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


.. code-block:: text

    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