C ADDALT.F - ADD ALTITUDE VALUE FROM OLDTAS.AMG TO NEW DATA WITH SPLIT
C LINES TO MAKE A COMPLETE FILE
      INTEGER*4 FID(886000),EAST(886000)
      CHARACTER*4 FLT(886000)
      REAL*8 RAWMAG(886000)
      REAL*8 MAGLEV(886000)
      CHARACTER*9 ALT(886000)
      CHARACTER*16 LINE2
      CHARACTER*34 LINE1
      REAL*8 RMAG,LMAG
      INTEGER*4 REAST
C
      OPEN(UNIT=3,FILE='oldtas.amg',READONLY)
      OPEN(UNIT=4,FILE='weeded.dat',READONLY)
C INPUTS
C
      J=1
   10 READ(3,100,END=11) FLT(J),FID(J),EAST(J),RAWMAG(J),MAGLEV(J),
     .  ALT(J)
  100 FORMAT(6X,A4,13X,I6,I9,13X,F8.2,F9.2,A9)
      J=J+1
      GOTO 10
C READ VALUES FROM OLD FILE
C
   11 CONTINUE
      CLOSE(UNIT=3,STATUS='KEEP')
      J=J-1
C
      OPEN(UNIT=7,FILE='newalt.mag')
C OUTPUT FILE
C
   20 READ(4,101,END=25) LINE1,IFID,REAST,LINE2,RMAG,LMAG
  101 FORMAT(A34,I6,I7,A16,F8.2,F9.2)
      DO 21 I=1,J
      K=I
      IF (FLT(I) .NE. LINE1(9:12)) GOTO 21
      IF (FID(I) .NE. IFID) GOTO 21
      IF (IABS(EAST(I)-REAST) .GT. 2 ) GOTO 21
      IF (DABS(RAWMAG(I)-RMAG) .GT. 0.02D00) GOTO 21
      IF (DABS(MAGLEV(I)-LMAG) .GT. 0.02D00) GOTO 21
      GOTO 22
   21 CONTINUE
C IF FALL OUT HAVE PROBLEM
      STOP ' FELL OUT OF LOOP'
C
   22 WRITE(7,200) LINE1,IFID,REAST,LINE2,RMAG,LMAG,ALT(K)
  200 FORMAT(A34,I6,I7,A16,F8.2,F9.2,A9)
      GOTO 20
C
   25 CONTINUE
      END