*KEEP,CINPU.
      COMMON / CINPU / ANDT, CTOF
C