parameter(nx=258,ny=231,nz=98)
        real ru(nx,ny,nz),rv(nx,ny,nz),rw(nx,ny,nz)


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
       open(19,file='uvw.dat',status='old',
     $   form='unformatted'
     $   ,access='direct',recl=nx*ny*nz)

       read(19,rec=1) ru
       read(19,rec=2) rv
       read(19,rec=3) rw

       close(19)


       ix = 100
       iy = 100
       do iz=1,nz
       print*,iz,ru(ix,iy,iz),rv(ix,iy,iz),rw(ix,iy,iz)
       enddo

       stop
       end