7.101. CKPHAZ

CKPHAZ    CKPHAZ    CKPHAZ    CKPHAZ    CKPHAZ    CKPHAZ    CKPHAZ    
          **********************************************
                    **************************
                              ******

SUBROUTINE CKPHAZ (ICKWRK, RCKWRK, KPHASE)
Returns a set of flags indicating phases of the species

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

OUTPUT
KPHASE(*) - Integer array, phases of the species;
            dimension at least KK, the total species count.
            KPHASE(K)=-1, species K is solid
            KPHASE(K)= 0, species K is gaseous
            KPHASE(K)=+1, species K is liquid