Combiner deux textes

C     TEXT1 et TEXT2 sont combinés et stockés dans TEXT3.

C     Les espaces à la fin sont supprimés.

C     

C     Appel :

C     CALL P2H028 (TEXT1,TEXT2,TEXT3,IRET)

C     

C     Les variables suivantes doivent être définies au préalable :

C     

C     TEXT1 : le premier texte

C     TEXT2 : le deuxième texte

C     TEXT3 : retour du texte combiné

C     IRET  : n'est pas évalué, mais doit être spécifié

C     

C     NOTE : Les variables de texte doivent être déclarées dans l'en-tête du programme !

C     CHARACTER *80 TEXT1, TEXT2, TEXT3

C     

C     Exemple :

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

C     Combiner deux textes

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

      TEXT1 = "Gâteau"

      TEXT2 = "aux cerises"

C     

      CALL P2H028 (TEXT1,TEXT2,TEXT3,IRET)

C     

C     La sortie avec l'instruction :

      WRITE(6,*)TEXT3

C     

C     donne : "Gâteau aux cerises"

C