Modulefpreviousupnextcontentsindex[BIG][Normal][small]
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.


Modulefpreviousupnextcontentsindex[BIG][Normal][small]
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