C MAGTRANS.F - SEPERATE OUT THE MAG, RADALT AND DTM
C DATA AND FIX THE FIDUCIALS BY MULTIPLYING BY 4 TO
C MAKE INTEGER
      CHARACTER*29 ALINE
      REAL*8 FID,X,Y,MAG,RADALT,DTM
      INTEGER*4 IFID,IFIN
      OPEN(UNIT=3,FILE='melba.dat',READONLY)
      OPEN(UNIT=4,FILE='melbamag.ldt')
   10 READ(3,100,END=20) ALINE,FID,X,Y,IFIN,MAG,
     . RADALT,DTM
  100 FORMAT(A29,F8.2,2F11.1,I3,11X,F9.2,21X,
     . F6.1,175X,F6.1)
      IF (IFIN .NE. 1 ) GOTO 10
C SKIP NOT USED DATA
      IFID=FID*4.0D00
      WRITE(4,200) ALINE,IFID,X,Y,IFIN,MAG,RADALT,DTM
  200 FORMAT(A29,I8,2F11.1,I3,F10.2,2F7.1)
      GOTO 10
C
   20 CONTINUE
      END