General utility routines

Initialise XZ package

CALL XZINIT (LPRINT,LDEBUG,LUNI,LUNO,IRC)

LPRINT

Integer variable specifying logical unit to be used to print diagnostic messages.

LDEBUG

Integer variable specifying the level of debug messages to be printed. See the description of the XZLOGL routine for details of the various log levels.

LUNI

Integer variable specifying the logical unit used for file input by the XZGETx/XZPUTx routines.

LUNO

Integer variable specifying the logical unit used for file output by the XZGETx/XZPUTx routines.

IRC

Integer variable in which the return code is returned.

This routine sets the logical units to be used by the XZ package and the log level. The log level may be reset at any time by a call to XZLOGL or by a further call to XZINIT.

Example of using the XZINIT routine

      CALL XZINIT(6,0,11,21,IRC)
      IF(IRC.NE.0) PRINT *,'Error from XZINIT'

Set log level of XZ package

CALL XZLOGL (LDEBUG)

LDEBUG

Integer variable specifying the level of debug messages to be printed.

This routine sets the log level of the XZ package The log level may be reset at any time by a further call to XZLOGL or by XZINIT.

The various levels are described below.

• -3 Suppress all log messages
• -2 Error messages
• -1 Terse logging
• 0 Normal
• 1 Log calls to XZ routines
• 2 Log to monitor XZ internals
• 3 Debug messages

Example of using the XZLOGL routine

      CALL XZLOGL(-3)

Print date of generation of package

CALL XZVERS

This routine prints the PAM file title from the CSPACK PAM file and the date and time of the PATCHY run that generated the code.

Example of using the XZVERS routine

      CALL XZVERS