Convertir le texte en majuscules/minuscules

C     La routine P2H012 convertit le texte en majuscules.

C     La routine P2H013 convertit le texte en minuscules.

C     

C     Appel :

C     CALL P2H012 (TEXTVAR,IRET)

C     CALL P2H013 (TEXTVAR,IRET)

C     

C     La variable suivante doit être définie au préalable :

C     

C     TEXTVAR : Variable avec le texte à modifier. Après l'appel de

C               la routine, la variable contient le texte corrigé

C     

C     NOTE : La variable de texte TEXTVAR doit être déclarée dans l'en-tête du

C              programme !

C     CHARACTER *80 TEXTVAR

C     

C     Exemple :

C     -----------------------------------

C     Convertir le texte en majuscules

C     -----------------------------------

      TEXTVAR = "Exemple"

C     

      CALL P2H012 (TEXTVAR,IRET)

C     

C     La sortie avec l'instruction :

      WRITE(6,*)TEXTVAR

C     

C     donne : "EXEMPLE"

C