[updated 6.Dec.1996]

Qui appelle getchn ?

      SUBROUTINE GETCHN (TBCHEN,NBCCHN,NUCHEN,CHAINE) 

  Auteur : D.Martin (Septembre 1989) 
  Derniere modification (D.Martin) le 6 Decembre 1996
   
  Remplissage d'une chaine de caracteres avec le contenu d'un sous-tableau 
  d'un tableau de caracteres, apres mise a blanc de la chaine
   
 -- Arguments d'entree -- 
  TBCHEN tableau des sous-tableaux de longueur NBCCHN 
  NBCCHN nombre de caracteres des sous-tableaux du tableau
  NUCHEN rang du sous-tableau a transformer en chaine 
 -- Argument de sortie -- 
  CHAINE chaine de caractere receptrice

      CHARACTER TBCHEN(*),CHAINE*(*)
      INTEGER   NBCCHN,NUCHEN
 
      INTEGER   IAD,ITEM

      IAD=NBCCHN*(NUCHEN-1)
      CHAINE=' '
      DO 1 ITEM=1,MIN (LEN(CHAINE),NBCCHN)  
         CHAINE(ITEM:ITEM)=TBCHEN(IAD+ITEM)
1     CONTINUE
                                                                    END !Getchn

getchn est appelé dans (44 procédures)