Suiv.: Obtention d'informations générales
Sup.: 5 Utilitaires divers
Préc.: 5.1 Initialisation d'un programme Modulef
Index
Table des matières
Il est parfois commode d'utiliser des ``variables Hollerith'' [Laug 1984]. De telles variables sont de type INTEGER, mais contiennent 4 caractères. Les utilitaires CHAR4 et ICHAR4, décrits dans cette section, permettent de les manipuler. Exemple :
INTEGER I, ICHAR4
CHARACTER*4 C, CHAR4
I = ICHAR4('ABCD')
WRITE (*, '(A4)') I ABCD
C = CHAR4(I)
WRITE (*, '(A4)') C ABCD
Enfin, l'utilitaire NUMALP est présenté.
CHARACTER*4 FUNCTION CHAR4( )
INTEGER I
Cet utilitaire effectue la conversion : Hollerith CHARACTER*4.
INTEGER FUNCTION ICHAR4( )
CHARACTER*(*) C
Le paramètre C est copié dans une variable intermédiaire de type CHARACTER*4, donc tronqué ou complété par des blancs si nécessaire. Ensuite, cet utilitaire effectue la conversion : CHARACTER*4 Hollerith.
CHARACTER*1 FUNCTION NUMALP( )
INTEGER NB
Cet utilitaire retourne un caractère à partir de l'entier NB, selon les conventions suivantes :
-1 | donne | '%'. |
0 ... 9 | donne | '0' ... '9'. |
10 ... 35 | donne | 'A' ... 'Z'. |
Toute autre valeur | donne | '*'. |
Il permet ainsi de créer les noms des tableaux dynamiques d'une SD.