C RADNULL.F - FOR REMOVING NULLS FROM END OF RAD DATA
C FOR AREA C
      CHARACTER*234 FIRST
      INTEGER*4 USE
      OPEN(UNIT=3,FILE='areaCtran.dat',ACTION='READ')
      OPEN(UNIT=4,FILE='radC.ldt')
   10 READ(3,100,END=20) FIRST,USE
  100 FORMAT(A234,I1)
      IF (USE .EQ. 0) GOTO 10
      WRITE(4,100) FIRST,USE
      GOTO 10
   20 CONTINUE
      CLOSE(UNIT=4,STATUS='KEEP')
      END