MCSAVE    MCSAVE    MCSAVE    MCSAVE    MCSAVE    MCSAVE    MCSAVE    
          **********************************************
                    **************************
                              ******

SUBROUTINE MCSAVE (LOUT, LSAVE, IMCWRK, RMCWRK)
Writes to a binary file information about a Transport linkfile,
pointers for the Transport library, and Transport work arrays.

INPUT
LOUT      - Integer scalar, formatted output file unit number.
LSAVE     - Integer scalar, unformatted output file unit number.
IMCWRK(*) - Integer workspace array; dimension at least LENIMC.
RMCWRK(*) - Real    workspace array; dimension at least LENRMC.