C TASTRAN.F - FOR MERGING BMR COLUMN DATA TO ONE FILE
C ASSUMES BMR DATA IS IN AMG
C
      INTEGER*4 DATE,FLT,TIME,LINE,FID
      REAL*8 EAST,NORTH,ALT,
     .       MAGLEV,RESMAG
       OPEN(UNIT=3,FILE='newalt.mag',READONLY)
       OPEN(UNIT=4,FILE='/data3/airmag/bmr/tasreg/newtas.amg')
   10 READ(3,*,END=20) DATE,FLT,TIME,LINE,FID,EAST,NORTH,
     .   MAGLEV,RESMAG,ALT
C
      IF (EAST .LT. 0.0D00) PAUSE' NULL COORDS'
C SKIP NULL COORDS
      TIME=TIME+FID
C CONVERT TO TRUE TIME=FLT START + FID
      WRITE(4,100) DATE,FLT,TIME,LINE,FID,EAST,NORTH,
     .   MAGLEV,RESMAG,ALT
  100 FORMAT(I6,I4,I6,I7,I6,F11.1,F10.1,3F9.2)
      GOTO 10
C
   20 CONTINUE
      STOP
      END