MCAVIS    MCAVIS    MCAVIS    MCAVIS    MCAVIS    MCAVIS    MCAVIS    
          **********************************************
                    **************************
                              ******

SUBROUTINE MCAVIS (T, X, RMCWRK, VISMIX)
Returns mixture viscosity, given temperature and species mole
fractions.  It uses modification of the Wilke semi-empirical
formulas.

INPUT
T         - Real scalar, temperature.
               cgs units, K
X(*)      - Real array, mole fractions of the mixture;
            dimension at least KK, the total species count.
RMCWRK(*) - Real workspace array; dimension at least LENRMC.

OUTPUT
VISMIX    - Real scalar, mixture viscosity.
               cgs units, gm/cm*s