program main
  implicit none
  integer, parameter :: nx = 720, ny = 360
  real :: dat(nx,ny)

  open(11, file='file.bin', form='unformatted', access='direct', recl=4*nx*ny, status='old')
  read(11, rec=1) dat
  close(11)

end program main