Acquisition d'un objet

La première action d'un opérateur est souvent d'acquerir les structures de données (OBJET) à partir desquelles il travaillera. Pour cela les sous-programmes LIR*** ont été crés. En étant exhaustif, on peut citer :

1. SUBROUTINE LIRENT (IVAL,ICOND,IRETOU) Lectur d'un entier
2. SUBROUTINE LIRREE (XVAL,ICOND,IRETOU) Lecture d'un flottant
3. SUBROUTINE LIRCHA (CHAR,ICOND,IRETOU) Lecture d'une chaine
4. SUBROUTINE LIRLOG (LOGI,ICOND,IRETOU) Lecture d'un logique
5. SUBROUTINE LIROBJ (MTYP,IRET,ICOND,IRETOU) Lecture d'un objet
6. SUBROUTINE LIRTAB (MTYP,IRET,ICOND,IRETOU) Lecture d'une table sous-typée

*

ICOND est un entier de valeur 0 ou 1 précisant si la présence de l'objet est obligatoire ou non. Un message d'erreur est émis par le lecteur en cas de besoin, de plus la variable IERR du COMMON COPTIO prend une valeur différente de zéro.

*

IRETOU est un entier de valeur 1 ou 0 précisant en retour de la lecture si la demande a pu etre réalisée avec succés ou non. Dans le cas de la lecture d'une chaine IRETOU contient la longueur de la chaine lue.

*

IVAL est un entier qui contient en retour la valeur lue.

*

XVAL est un REAL*8 qui contient en retour la valeur lue.

*

CHAR est une chaine de caractères, elle contient en retour, cadrée à gauche et tronquée ou complétée par des blancs, la chaine lue.

*

LOGI est un logique ( variable fortran LOGICAL)

*

MTYP est une chaine de 8 caractères précisant le type de l'objet attendu (ou le sous-type de l'objet TABLE si appel à LIRTAB).

*

IRET est la valeur associée à l'objet lu. Dans le cas d'objet crée par les opérateurs de Castem2000, c'est la valeur transmise lors de l'enregistrement de l'objet par les sous-programmes ECR*** qui suivent.