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


.. code-block:: text

    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