C
      COMMON/CINPUT/ TP2TE,WLMIN,WLMAX,SMALLN,CECOEF,
     * ISUM,ICOLL,ISPLIN,
     * IWATOM, IWLINE, IWEQI, IDEBUG, IWATMO,
     * CRTN
      CHARACTER*6 CRTN