9.14. MCREWR

MCREWR    MCREWR    MCREWR    MCREWR    MCREWR    MCREWR    MCREWR    
          **********************************************
                    **************************
                              ******

SUBROUTINE MCREWR (LINKMC, LOUT, IMCWRK, RMCWRK, IFLAG)
This subroutine writes a new the transport linkfile from
the data stored in the integer and real work arrays,
IMCWRK(*) and RMCWRK(*).

INPUT
LINKMC    - Integer scalar, transport linkfile output unit number.
LOUT      - Integer scalar, formatted output file unit number.

OUTPUT
IMCWRK(*) - Integer workspace array; dimension at least LENIMC.
RMCWRK(*) - Real    workspace array; dimension at least LENRMC.