SKKION    SKKION    SKKION    SKKION    SKKION    SKKION    SKKION    
          **********************************************
                    **************************
                              ******

SUBROUTINE SKKION (ISKWRK, KEL, KKION, KION)
Returns the species number of the electron, the number of positive
ions in the gas phase, and an array of species number for each
positive ion

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

OUTPUT
KEL       - Integer scalar, species index of the electron species.
KKION     - Integer scalar, total gas-phase positive ion count.
KION      - Integer array, species indices for the gas-phase positive
            ions;
            dimension at least NKKGAS, the gas-phase species count.