8.13. SKCHRG

SKCHRG    SKCHRG    SKCHRG    SKCHRG    SKCHRG    SKCHRG    SKCHRG    
          **********************************************
                    **************************
                              ******

SUBROUTINE SKCHRG (ISKWRK, RSKWRK, KCHARG)
Returns an array containing electronic charges of the species.

INPUT
ISKWRK(*) - Integer workspace array; dimension at least LENISK.
RSKWRK(*) - Real    workspace array; dimension at least LENRSK.

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