4. How the “INFXXX” utilities work

The sole purpose of this paragraph is to help understand (if necessary) the use of these routines:

• COMMON/INF001/NIVUTI, NIVPGM, UNITE

• INTEGER NIVUTI: level requested by the user: 1 or 2

• INTEGER NIVPGM: level accessible to the programmer: 0, 1, or 2

• INTEGER UNITE: logical unit of the file “MESSAGE”

• COMMON INF001 is only used by INFXXX routines

SUBROUTINE INFMAJ ()

COMMON/INF001/...

GETVIS (name CMD, 'I', 'INFO',..., NIV)

NIVUTI = NIV

NIVPGM = NIV

UNITE = IUNIFI ('MESSAGE')

END


SUBROUTINE INFNIV (IFM, NIV)

COMMON/INF001/...

INF = UNITE

NIV = NIVPGM

END


SUBROUTINE INFMUE ()

COMMON/INF001/...

IF (NIVUTI .EQ.1) NIVPGM = 0

END


SUBROUTINE INFBAV ()

COMMON/INF001/...

NIVPGM = NIVUTI

END