C FLINTRAN.F - FOR MERGING BMR COLUMN DATA TO ONE FILE
C ASSUMES BMR DATA IS IN AMG AND ON /TMP AFTER AGS2COLS
C
      INTEGER*4 DATE,FLT,TIME,LINE,FID,DATE1,FLT1,TIME1,
     .          LINE1,FID1
      REAL*8 EAST,NORTH,EAST1,NORTH1,TC,K,U,TH,RADALT,
     .       MAGLEV,RESMAG
       OPEN(UNIT=2,FILE='/tmp/RADOLD.524',READONLY)
       OPEN(UNIT=3,FILE='/tmp/MAGOLD.524',READONLY)
       OPEN(UNIT=4,FILE='flinders.amg')
   10 READ(2,*,END=20) DATE,FLT,TIME,LINE,FID,EAST,
     .   NORTH,TC,K,U,TH,RADALT
      READ(3,*) DATE1,FLT1,TIME1,LINE1,FID1,EAST1,NORTH1,
     .   MAGLEV,RESMAG
C
      IF (EAST .LT. 0.0D00) GOTO 10
C SKIP NULL COORDS
      IF (DATE .NE. DATE1) STOP 'DATE ERROR'
      IF (FLT .NE. FLT1) STOP 'FLT ERROR'
      IF (TIME .NE. TIME1) STOP 'TIME ERROR'
      IF (LINE .NE. LINE1) STOP 'LINE ERROR'
      IF (FID .NE. FID1) STOP 'FID ERROR'
      TIME=TIME+FID
C CONVERT TO TRUE TIME=FLT START + FID
      WRITE(4,100) DATE,FLT,TIME,LINE,FID,EAST,NORTH,
     .   MAGLEV,RESMAG,TC,K,U,TH,RADALT
  100 FORMAT(I6,I4,I6,I7,I6,F11.1,F10.1,7F9.2)
      GOTO 10
C
   20 CONTINUE
      STOP
      END