CKMXTP    CKMXTP    CKMXTP    CKMXTP    CKMXTP    CKMXTP    CKMXTP    
          **********************************************
                    **************************
                              ******

SUBROUTINE CKMXTP (ICKWRK, MAXTP)
Returns the maximum number of temperatures used in fitting the
thermodynamic properties of the species.

INPUT
ICKWRK(*) - Integer workspace array; dimension at least LENICK.

OUTPUT
MXTP      - Integer scalar, maximum number of temperatures used
            to fit the thermodynamic properties of the species.