C CONVMAG.F - TO CONVERT AGSO AMG MAG FILES TO BETTER FORMAT
      INTEGER*4 LINE,FID,DIR,FLT,DATE,IT
      REAL*8 EAST,NORTH,MAG,TIME
      OPEN(UNIT=3,FILE='MAG3.630',READONLY)
      OPEN(UNIT=4,
     .  FILE='kingmag.ldt')
   10 READ(3,200,END=20) DATE,FLT,IT,LINE,FID,EAST,NORTH,MAG
  200 FORMAT(I7,I5,I10,I8,I10,F11.3,F11.2,F8.1)
      IF (EAST .LT. 0.0D00) GOTO 10
      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