SKREWR    SKREWR    SKREWR    SKREWR    SKREWR    SKREWR    SKREWR    
          **********************************************
                    **************************
                              ******

SUBROUTINE SKREWR (LINSK, LOUT, ISKWRK, RSKWRK, CSKWRK, IFLAG)
Rewrites a new linkfile from the data stored in ISKWRK,
RSKWRK and CSKWRK.

INPUT
LINSK     - Integer scalar, linkfile output file unit number.
LOUT      - Integer scalar, formatted output file unit number.
ISKWRK(*) - Integer workspace array; dimension at least LENISK.
RSKWRK(*) - Real    workspace array; dimension at least LENRSK.
CSKWRK(*) - Character string workspace array; dimension at least
            LENCSK.
OUTPUT
IFLAG     - Integer scalar to indicate successful writing of
            linkfile; IFLAG>0 is an error type.