C CONVRAD.F - TO CONVERT AGSO AMG RADS FILES TO BETTER FORMAT
      INTEGER*4 LINE,FID,DIR,FLT,DATE,IT
      REAL*8 EAST,NORTH,TIME,TC,K,U,TH,ALT
      OPEN(UNIT=3,FILE='RAD.630',READONLY)
      OPEN(UNIT=4,
     .  FILE='kingrad.ldt')
   10 READ(3,200,END=20) DATE,FLT,IT,LINE,FID,EAST,NORTH,
     .  TC,K,U,TH,ALT
  200 FORMAT(I7,I5,I10,I8,I10,F11.3,F11.2,5F8.1)
      IF (EAST .LT. 0.0D00) GOTO 10
      TIME=FLOAT(FID)
      WRITE(4,100) LINE,FLT,FID,TIME,EAST,NORTH,
     .  TC,K,U,TH,ALT,DATE
  100 FORMAT(I7,I4,I7,F8.1,F9.1,F10.1,5F8.1,I7)
      GOTO 10
C
   20 CONTINUE
      STOP
      END