C MAG.F - EXTRACT MAGS,RADALT AND BARALT FROM ALTCOR LDT
C
      CHARACTER*34 FIRST
      REAL*8 RADALT,BARALT,LEVMAG
      INTEGER*4 FID
C
      OPEN(UNIT=3,FILE='sorell_altcor_geotem.ldt',ACTION='READ')
      OPEN(UNIT=4,FILE='mag.ldt')
C
      FID=1
C SET UP FIDS
   10 READ(3,100,END=20) FIRST,RADALT,BARALT,LEVMAG
  100 FORMAT(A34,273X,2F8.1,F10.2)
      IF (FIRST(28:28) .EQ. ' ') GOTO 10
C SKIP START AND END OF LINES
      WRITE(4,200) FIRST,FID,RADALT,BARALT,LEVMAG
  200 FORMAT(A34,I8,2F8.1,F9.2)
      FID=FID+1
      GOTO 10
C
   20 CONTINUE
      END