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

Traitement des caractè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é.

Utilitaire CHAR4

CHARACTER*4 FUNCTION CHAR4( )

INTEGER I

Cet utilitaire effectue la conversion : Hollerith CHARACTER*4.

Utilitaire ICHAR4

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.

Utilitaire NUMALP

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.