MCLEN     MCLEN     MCLEN     MCLEN     MCLEN     MCLEN     MCLEN     
          **********************************************
                    **************************
                              ******

SUBROUTINE MCLEN (LINKMC, LOUT, LI, LR, IFLAG)
Returns the lengths required for work arrays.

INPUT
LINKMC   - Integer scalar, input file unit for the linkfile.
LOUT     - Integer scalar, formatted output file unit.

OUTPUT
LI       - Integer scalar, minimum length required for the
           integer work array.
LR       - Integer scalar, minimum length required for the
           real work array.
IFLAG    - Integer scalar, indicates successful reading of
           linkfile; IFLAG>0 indicates error type.