4. Fonctionnement des utilitaires “INFXXX”

Ce paragraphe a pour seul but d’aider à comprendre (si nécessaire) l’utilisation de ces routines :

• COMMON/INF001/NIVUTI, NIVPGM, UNITE

• INTEGER NIVUTI : niveau demandé par l’utilisateur : 1 ou 2

• INTEGER NIVPGM : niveau accessible au programmeur : 0, 1, ou 2

• INTEGER UNITE : unité logique du fichier ‘MESSAGE’

• le COMMON INF001 n’est utilisé que par les routines INFXXX

SUBROUTINE INFMAJ ()

COMMON/INF001/…

GETVIS (nomCMD, '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