C MAGTRANS.F - FOR CONVERTING THE MAG FILE FOR
C WTRMP AREA C TO HAVE A WIDTH OF 4 FOR FID
      INTEGER*4 LINE,FLT,DATE,JULDATE,FID,USED
      REAL*8 TIME, AGDE,AGDN,GDAE,GDAN,GDALAT,GDALON,
     .  MAGRAW,MAGCOMP,MAGCOR,MAGLEV,MAGFIN,DIURN,
     .  IGRF,DTM,PRESS,RADALT,BARALT,GPSALT,TEMP
       OPEN(UNIT=3,FILE='areaEmag.dat',ACTION='READ')
      OPEN(UNIT=4,FILE='areaEtran.dat')
   10 READ(3,*,END=20) LINE,FLT,DATE,JULDATE,FID,
     .  TIME, AGDE,AGDN,GDAE,GDAN,GDALAT,GDALON,
     .  MAGRAW,MAGCOMP,MAGCOR,MAGLEV,MAGFIN,DIURN,
     .  IGRF,DTM,PRESS,RADALT,BARALT,GPSALT,TEMP,USED
      WRITE(4,100) LINE,FLT,DATE,JULDATE,FID,
     .  TIME, AGDE,AGDN,GDAE,GDAN,GDALAT,GDALON,
     .  MAGRAW,MAGCOMP,MAGCOR,MAGLEV,MAGFIN,DIURN,
     .  IGRF,DTM,PRESS,RADALT,BARALT,GPSALT,TEMP,USED
  100 FORMAT(I6,I4,I9,I8,I7,F9.5,F10.2,F11.2,F10.2,
     .  F11.2,F13.8,F13.8,5F10.3,2F10.2,5F7.1,F6.1,I2)
      GOTO 10
   20 CONTINUE
      CLOSE(UNIT=4,STATUS='KEEP')
      END