Suiv.: 5.4 Manipulation de fichiers Sup.: 5 Utilitaires divers Préc.: Traitement des caractères Index Table des matières

Obtention d'informations générales

Les programmes ont parfois besoin d'obtenir des informations générales (constantes-machines, nom de l'utilisateur, ...). Dans ce but, les fonctions DINFO, IINFO, KINFO, RINFO retournent des informations de types respectifs DOUBLE PRECISION, INTEGER, CHARACTER*80, REAL.

Par exemple, IINFO('GRAND') retourne le plus grand entier représentable en machine. Ces fonctions doivent évidemment être adaptées à chaque type de machine [Guide Modulef - 1].

Utilitaire DINFO

DOUBLE PRECISION FUNCTION DINFO( )

CHARACTER*(*) MOTCLE

Cet utilitaire retourne une information de type DOUBLE PRECISION, en fonction du paramètre MOTCLE :

'CPU' :

temps CPU à partir d'un instant fixé.

'DELTA CPU' :

accroissement du temps CPU.

- Au premier appel, retourne la même valeur que DINFO('CPU').

- Ensuite, retourne la différence entre la valeur courante du temps CPU et la valeur qu'il avait à l'appel précédent.

Remarque : pour que le résultat ait un sens, l'utilisateur doit bien localiser tous les appels à DINFO('DELTA CPU').

'DELTA HORLOGE' :

accroissement du temps horloge.

- Au premier appel, retourne la même valeur que DINFO('HORLOGE').

- Ensuite, retourne la différence entre la valeur courante de l'horloge et la valeur qu'elle avait à l'appel précédent.

Remarque : pour que le résultat ait un sens, l'utilisateur doit bien localiser tous les appels à DINFO('DELTA HORLOGE').

'GRAND' :

plus grand réel (en double précision).

'HORLOGE' :

temps horloge a partir d'un instant fixé.

'PETIT' :

plus petit réel positif (en double précision).

'PRECISION' :

précision = plus petit réel p tel que 1+p > 1 (en double précision).

Utilitaire IINFO

INTEGER FUNCTION IINFO( )

CHARACTER*(*) MOTCLE

Cet utilitaire retourne une information de type INTEGER, en fonction du paramètre MOTCLE :

'L' ou 'LECTEUR' :

numéro des entrées. Toutes les entrées Modulef ont lieu sur ce numéro d'unité. Ce numéro est modifiable par :
CALL LIBSET('LIRE', ...)

'LECTEUR INITIAL' :

numéro initial des entrées (voir aussi 'LECTEUR'). Ce numéro est attribué en début d'exécution par l'utilitaire INITIS (p. ).

'I' ou 'IMPRIMANTE' :

numéro des sorties. Toutes les sorties Modulef ont lieu sur ce numéro d'unité. Ce numéro est modifiable par :
CALL LIBSET('IMPRIMANTE', ...)

'IMPRIMANTE INITIALE' :

numéro initial des sorties (voir aussi 'IMPRIMANTE'). Ce numéro est attribué en début d'exécution par l'utilitaire INITIS (p. ).

'INTERACTIVITE' :

interactivité (peu utilisé actuellement) : 0 batch, 1 interactif alphanumérique, 2 interactif graphique. Ce numéro est modifiable par :
CALL LIBSET('TERMINAL', ...)

'INTERACTIVITE INITIALE' :

interactivité initiale (voir aussi INTERACTIVITE). Ce numéro est attribué en début d'exécution par l'utilitaire INITIS (p. ).

'BAVARD' :

taux d'impression Modulef (de 0 à 10) : plus il est élevé, plus les impressions sont nombreuses. Ce numéro est modifiable par :
CALL LIBSET('BAVARDAGE', ...)

'GRAND' :

plus grand entier.

'LANGUE' :

langue : 0 français, 1 anglais. Il est préférable de filtrer statiquement les lignes contenant #F, #GB, ...

'RECL' ou 'UNITE RECL' :

dans un ordre OPEN pour des entrées/sorties non formatées, le mot-clé RECL définit une longueur mesurée en une unité qui dépend du processeur ([Fortran 77], p. 12-20, l. 1 à 16). Ce mot-clé fournit la taille d'un mot-machine exprimée dans cette unité.

'REEL2' :

type effectif des tableaux dynamiques double précision (5 en général, 2 sur les super-calculateurs).

Utilitaire KINFO

CHARACTER*80 FUNCTION KINFO( )

CHARACTER*(*) MOTCLE

Cet utilitaire retourne une information de type CHARACTER*80, en fonction du paramètre MOTCLE :

'DATE' :

date du jour ( AAMMJJ) AA année, MM mois, JJ jour.

'HEURE' :

heure ( HHMMSSFFFFFF) HH heure de 00 à 23, MM minute de 00 à 59, SS seconde de 00 à 59, FFFFFF microseconde de 000000 à 999999.

'MACHINE' :

nom de la machine hôte.

'POBA' :

nom du fichier POBA (polynômes de base).

'PRE_HELP' ou 'SYMD' :

nom absolu du catalogue PPAD (données des programmes principaux).

'PROC' :

nom du fichier PROC (base des procédures).

'SUF_HELP' :

suffixe des fichiers d'aide.

'TESD' :

nom absolu du catalogue TESD (données des tests).

'TITRE' :

titre (cf. INITI).

'UTILISATEUR' :

nom de l'utilisateur.

Utilitaire RINFO

REAL FUNCTION RINFO( )

CHARACTER*(*) MOTCLE

Cet utilitaire retourne une information de type REAL, en fonction du paramètre MOTCLE :

'GRAND' :

plus grand réel.

'PETIT' :

plus petit réel positif.

'PRECISION' :

précision = plus petit réel p tel que 1+p > 1.