C RADTRANS.F - FOR CONVERTING THE RAD FILE FOR
C WTRMP AREA C+E TO HAVE A WIDTH OF 4 FOR FID
      INTEGER*4 LINE,FLT,DATE,JULDATE,FID,USED,
     .  LIVE,COSMIC,RAWK,RAWU,RAWTH,RAWTC
      REAL*8 TIME, AGDE,AGDN,GDAE,GDAN,GDALAT,GDALON,
     .  MAGMLV,K,U,TH,TC,DTM,BAROHT,PRESS,STP,
     .  RADALT,GPSALT,TEMP
       OPEN(UNIT=3,FILE='areaErad.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,
     .  MAGMLV,LIVE,COSMIC,RAWK,RAWU,RAWTH,RAWTC,
     .  K,U,TH,TC,DTM,BAROHT,PRESS,STP,
     .  RADALT,GPSALT,TEMP,USED
      WRITE(4,100) LINE,FLT,DATE,JULDATE,FID,
     .  TIME, AGDE,AGDN,GDAE,GDAN,GDALAT,GDALON,
     .  MAGMLV,LIVE,COSMIC,RAWK,RAWU,RAWTH,RAWTC,
     .  K,U,TH,TC,DTM,BAROHT,PRESS,STP,
     .  RADALT,GPSALT,TEMP,USED
  100 FORMAT(I6,I4,I9,I8,I7,F9.5,F10.2,F11.2,F10.2,
     .  F11.2,F13.8,F13.8,F10.3,I6,5I5,3F8.4,F9.3,
     .  6F7.1,F6.1,I2)
C     GOTO 10
   20 CONTINUE
      CLOSE(UNIT=4,STATUS='KEEP')
      END