Suiv.: Fonctions interprétées Sup.: 1 Format libre Préc.: 1.1 Utilisation Index Table des matières

1.2 Programmation

Un programme peut lire un scalaire, lire un tableau, ou lancer une commande.

1.2.1 Lire un scalaire

Plusieurs utilitaires sont à la disposition du programmeur, selon le type de la donnée à lire. Ces utilitaires sont décrits dans la figure 1.1.

 
Figure 1.1: Les utilitaires du format libre 

Remarques :

1. LIBMAJ lit la chaîne de caractères et la convertit en majuscules.
2. En sortie de LIBCAL, L contient le nombre de caractères effectivement lus.
3. L'utilitaire LIBHOL résulte des constantes Hollerith de Fortran 66 : une variable temporaire de type CHARACTER*4 est lue, puis codée dans une variable de type INTEGER à l'aide de l'utilitaire ICHAR4.

Par exemple, l'instruction :

CALL LIBENT(N)

lit en format libre l'entier N.

1.2.2 Lire un tableau

Pour lire un tableau, il suffit d'effectuer une boucle. Dans l'exemple ci-dessous, un tableau de 10 réels est lu :

REAL T(10)

...

DO 100 I = 1, 10

CALL LIBRSP(T(I))

100 CONTINUE

1.2.3 Lancer une commande

Au lieu d'activer les commandes par l'intermédiaire des données (section 1.1.5), il est possible de les activer par programme, au moyen de l'utilitaire LIBSET. ( L'utilitaire LIBCOM, qui concerne les anciennes commandes, n'est pas documenté ici.)

Utilitaire LIBSET

SUBROUTINE LIBSET( , , )

CHARACTER*(*) COM

INTEGER N, ICODE

Cet utilitaire active une commande COM ayant un argument numérique N (s'il existe). La liste des commandes disponibles se trouve en section 1.1.5. En sortie, ICODE = 0 s'il n'y a pas eu d'erreur.

Exemples :

C COMMANDES SANS ARGUMENT NUMERIQUE :

CALL LIBSET('ADRESSAGE', 0, ICODE) !ADRESSAGE

CALL LIBSET('ECRIRE *', 0, ICODE) !ECRIRE *

C COMMANDE AVEC UN ARGUMENT NUMERIQUE :

CALL LIBSET('BAVARDAGE', 5, ICODE) !BAVARDAGE 5