Subroutines FORTRAN de lecture d'une liste

Ces subroutines remplissent un tableau de valeurs d'après la ligne correspondant à une clé donnée. Tous les blancs (espace, tabulation et retour chariot) en début et fin de clé sont ignorés. Selon la façon dont on a initialisé le traitement des paramètres avec intfparam la clé sera ou ne sera pas traduite en majuscules ou minuscules. S'il y a des duplications de clés la valeur retournée correspondra a la première de ces lignes lue dans le fichier.

Paramètres :

key (entrée)

La clé de recherche. Normalement un nom de paramètre.

val (sortie)

Tableau des valeurs lues

ne (entrée/sortie)

En entrée la taille du tableau val. En sortie le nombre d'éléments lus.

ie (sortie)

Code de sortie :

0

Pas d'erreur.

1

Liste vide.

2

Clé inexistante.

4

Tableau trop petit (le nombre d'éléments dans la liste est supérieur à ne).

gplfint

CHARACTER* key
INTEGER val,ne,ie
CALL gplfint(key,val,ne,ie)

gplffloat

CHARACTER* key
FLOATING POINT val
INTEGER ne,ie
CALL gplffloat(key,val,ne,ie)

gplfdouble

CHARACTER* key
DOUBLE PRECISION val
INTEGER ne,ie
CALL gplfdouble(key,val,ne,ie)

gplfcomplex

CHARACTER* key
COMPLEX val
INTEGER ne,ie
CALL gplfcomplex(key,val,ne,ie)

Les valeurs complexes dans le fichier de paramètres sont codées suivant la forme : (re,im), par exemple i sera codé (0.0,1.0).

gplfdcomplex

CHARACTER* key
DOUBLE COMPLEX val
INTEGER ne,ie
CALL gplfdcomplex(key,val,ne,ie)

Les valeurs complexes dans le fichier de paramètres sont codées suivant la forme : (re,im), par exemple i sera codé (0.0,1.0).