PROGRAM binaryreader
      IMPLICIT NONE
      REAL LONG, LAT, DEP
      INTEGER I, TAG
      
     

      OPEN(100,status='old',file='indiano2_bin.dat'
     c     ,form='UNFORMATTED')

      OPEN(101,file='indiano2.out')

      DO I = 1, 5800861
         READ(100) LONG, LAT, DEP, TAG
         WRITE(101,*) LONG, LAT, DEP, TAG
      END DO

      CLOSE(100)
      CLOSE(101)
      

      STOP
      END