7.115. CKREWR

CKREWR    CKREWR    CKREWR    CKREWR    CKREWR    CKREWR    CKREWR    
          **********************************************
                    **************************
                              ******

SUBROUTINE CKREWR (LINC, LOUT, ICKWRK, RCKWRK, CCKWRK, IFLAG)
Rewrites a new linkfile from the data stored in ICKWRK,
RCKWRK and CCKWRK.

INPUT
LINC  -  Integer scalar, linkfile output file unit number.
LOUT  -  Integer scalar, diagnostics output file unit number.
ICKWRK(*) - Integer workspace array; dimension at least LENICK.
RCKWRK(*) - Real    workspace array; dimension at least LENRCK.
CCKWRK(*) - Character string workspace array;
            dimension at least LENCCK.

OUTPUT
IFLAG     - Integer scalar to indicate successful writing of
            linkfile; IFLAG>0 is an error type.