Next: 5.4 Manipulation of files Up: 5 Diverse utilities Prev: 5.2 Manipulating characters Index Contents

5.3 Obtaining general information

The programs sometimes require general information (machine constants, user name, etc.). For this purpose, functions DINFO, IINFO, KINFO, RINFO return information, respectively of type DOUBLE PRECISION, INTEGER, CHARACTER*80, and REAL.

For example, IINFO('GRAND') returns the largest integer possible on that particular machine. These functions must obviously be adapted to each type of machine [MODULEF User Guide - 1].

Utility DINFO

DOUBLE PRECISION FUNCTION DINFO( )

CHARACTER*(*) KEYWORD

This utility returns an item of information of type DOUBLE PRECISION, as a function of parameter KEYWORD:

'CPU':

CPU time measured from a fixed moment.

'DELTA CPU':

Increase in CPU time.

• The first call returns the same value as DINFO('CPU').

• The next calls return the difference between the current value of the CPU time and the value obtained at the previous call.

Remark: For the result to be meaningful, the user must take care to localize all the calls to DINFO('DELTA CPU').

'DELTA HORLOGE':

Increase in clock time.

• The first call returns the same value as DINFO('HORLOGE').

• The next calls return the difference between the current value of the clock time and the value obtained at the previous call.

Remark: For the result to be meaningful, the user must take care to localize all calls to DINFO('DELTA HORLOGE').

'GRAND':

Largest real (in double precision).

'HORLOGE':

Clock time measured from a fixed moment.

'PETIT':

Smallest positive real (in double precision).

'PRECISION':

Precision = smallest real p such that 1+p > 1 (in double precision).

Utility IINFO

INTEGER FUNCTION IINFO( )

CHARACTER*(*) KEYWORD

This utility returns an item of information of type INTEGER, as a function of parameter KEYWORD:

'L' or 'LECTEUR':

Input number. All MODULEF input is read using this unit number. This number can be modified by:

CALL LIBSET('LIRE', ...)

'LECTEUR INITIAL':

Initial input number (see also 'LECTEUR'). This number is assigned by the user at the beginning of execution in utility INITIS (p. ).

'I' or 'IMPRIMANTE'

Output number. All MODULEF output is sent to this unit number. This number can be modified by:

CALL LIBSET('IMPRIMANTE', ...)

'IMPRIMANTE INITIALE':

Initial printer number (see also 'IMPRIMANTE'). This number is assigned by the user at the beginning of execution via utility INITIS (p. ).

'INTERACTIVITE':

Interactivity (little used): 0 batch, 1 interactive without graphics, 2 interactive with graphics. This number is modified by:

CALL LIBSET('TERMINAL', ...)

'INTERACTIVITE INITIALE':

Initial interactivity (see also INTERACTIVITE). This number is assigned at the start of execution by utility INITIS (p. ).

'BAVARD':

MODULEF print parameter (from 0 to 10): the higher the number, the more output. This number can be modified by:

CALL LIBSET('BAVARDAGE', ...)

'GRAND':

Largest integer.

'LANGUE':

Language: 0 French, 1 English. It is preferable to statically filter the lines in a program containing #F, #GB, ..., in column 73.

'RECL' or 'UNITE RECL':

In the OPEN command for unformatted input/output, keyword RECL defines a length measured in a unit which depends on the processor ([Fortran 77], p. 12-20, l. 1 to 16). This keyword gives the size of a machine-word expressed in this unit.

'REEL2':

Effective type of the double precision dynamic arrays (5 in general, 2 on super-computers).

Utility KINFO

CHARACTER*80 FUNCTION KINFO( )

CHARACTER*(*) KEYWORD

This utility returns an item of information of type CHARACTER*80, as a function of parameter KEYWORD:

'DATE':

Date (YYMMDD), where YY denotes the year, MM the month, and DD the day.

'HEURE':

Time (HHMMSSFFFFFF), where HH is the hour from 00 to 23, MM the minutes from 00 to 59, SS the seconds from 00 to 59, and FFFFFF the microseconds from 000000 to 999999.

'MACHINE':

Name of the host machine.

'POBA':

Name of file POBA (basis polynomials).

'PRE_HELP' or 'SYMD':

Absolute name of directory PPAD (data of the main programs).

'PROC':

Name of file PROC (procedure base).

'SUF_HELP':

Suffix of the help files.

'TESD':

Absolute name of directory TESD (test data).

'TITRE':

Title (see INITI).

'UTILISATEUR':

User name.

Utility RINFO

REAL FUNCTION RINFO( )

CHARACTER*(*) KEYWORD

This utility returns an item of information of type REAL, as a function of parameter KEYWORD:

'GRAND':

Largest real.

'PETIT':

Smallest positive real.

'PRECISION':

Precision = smallest real p such that 1+p > 1.