*KEEP,CTNCOL.
      COMMON/ CTNCOL / NCOL
C