SKPKK     SKPKK     SKPKK     SKPKK     SKPKK     SKPKK     SKPKK     
          **********************************************
                    **************************
                              ******

SUBROUTINE SKPKK  (ISKWRK, KKPHAS, KFIRST, KLAST)
Returns arrays of species pointers for the phases.

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

OUTPUT
KKPHAS(*) - Integer array, the total species counts for phases;
            dimension at least NPHASE, the total phase count.
KFIRST(*) - Integer array, species indices for the first species of
            the phases;
            dimension at least NPHASE, the total phase count.
KLAST(*)  - Integer array, species indices for the last species of
            the phases;
            dimension at least NPHASE, the total phase count.