CKION     CKION     CKION     CKION     CKION     CKION     CKION     
          **********************************************
                    **************************
                              ******

SUBROUTINE CKION (ICKWRK, KION)
Returns the ion species indices

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

OUTPUT
KION(*)   - Integer array, ion species indices;
            dimension at least NKKI, the total ion count.