program test_read
      
      implicit none
      
      real a, b, c, d, e, f, g

      open(unit=39,file='fake_sst_date_file.dat',status='old',
     $        form='unformatted',access='direct',recl=4*1)
      read(unit=39,rec=1) a
      read(unit=39,rec=2) b 
      read(unit=39,rec=53) c

      write(6,*) a,b,c-a

      end program test_read