MCSVIS    MCSVIS    MCSVIS    MCSVIS    MCSVIS    MCSVIS    MCSVIS    
          **********************************************
                    **************************
                              ******

SUBROUTINE MCSVIS (T, RMCWRK, VIS)
Returns the array of pure species viscosities, given temperature.

INPUT
T         - Real scalar, temperature.
               cgs units, K
RMCWRK(*) - Real workspace array; dimension at least LENRMC.

OUTPUT
VIS(*)    - Real array, species viscosities;
            dimension at least KK, the total species count.
               cgs units, gm/cm*s