7.16. CKCHRG

CKCHRG    CKCHRG    CKCHRG    CKCHRG    CKCHRG    CKCHRG    CKCHRG    
          **********************************************
                    **************************
                              ******

SUBROUTINE CKCHRG (ICKWRK, RCKWRK, KCHARG)
Returns the electronic charges of the species.

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

OUTPUT
KCHARG(*) - Integer array, electronic charges of the species;
            dimension at least KK, the total species count.
            KCHARG(K)=-2 indicates that species K has two
            excess electrons.