      dimension a(2048)


      open(21,file='testfile',access='direct',recl=2048*4)
      read(21,rec=1)a
      close(21)

      do i=1,2048
         print *,a(i)
      end do

      end
