C CONV.F - TO CONVERT AGSO AMG FILES TO BETTER FORMATY
      INTEGER*4 LINE,FID,DIR,FLT,DATE
      REAL*8 EAST,NORTH,MAG,TIME
      OPEN(UNIT=3,FILE='surv6302.ldt',READONLY)
      OPEN(UNIT=4,
     .  FILE='/cdata5/airmag/bmr/offshtasgo/surv6302.amg')
   10 READ(3,200,END=20) LINE,FID,DIR,NORTH,EAST,MAG,FLT,DATE
  200 FORMAT(I8,I7,I5,F15.6,F15.6,F11.2,I4,I7)
      TIME=FLOAT(FID)/10.0
      WRITE(4,100) LINE,FLT,FID,TIME,EAST,NORTH,MAG,DATE
  100 FORMAT(I7,I4,I7,F8.1,F9.1,F10.1,F8.2,I7)
      GOTO 10
C
   20 CONTINUE
      STOP
      END