HP MLIB User's Guide Vol. 2 7th Ed.

932 HP MLIB User’s Guide
DSLEOC Output control
INTEGER*8 msglvl, output
REAL*8 global(150)
CALL CSLEOC(msglvl, output, global)
INTEGER*8 msglvl, output
REAL*8 global(150)
CALL ZSLEOC(msglvl, output, global)
Input msglvl Message level for printable output:
msglvl ≤ 0 Suppress all output.
msglvl = 1 Error messages and summary
statistics.
msglvl = 2 More complete statistics.
msglvl = 3 First stage of debugging output.
msglvl = 4 Complete debugging output.
output Fortran logical unit number to which all output is
written.
Updated global Global communications array for this problem. This
array must be passed, untouched by the user, to
successive subroutines in this package.
Example Increase message level from 1 to 2 while leaving the output unit the same at 6.
REAL*8 GLOBAL(150)
CALL DSLEOC (2,6,GLOBAL)