[updated 4.Mar.2000]

Qui appelle donint ?

      FUNCTION DONINT (INDICE)

  Auteur : D.Martin (Octobre 1989)  
  Derniere modification : D.Martin (3 mars 2000)
  Version # 1.0.1
   
  Retrouver le type de donnee (CONSTANTE,FONCTION,..,) d'apres le code entier  
  Function reciproque IntDon
   
 -- Argument d'entree --  
  INDICE : Entier representant le type de donnee d'apres INTDON

      CHARACTER*(*) DONINT
      INTEGER       INDICE 
 
      INTEGER       NBCHEN,NBCCHN
      PARAMETER    (NBCHEN=8,NBCCHN=10) 
      CHARACTER*10  CCCHEN*120,TBCHEN(NBCHEN)
      COMMON/ONSEPA/CCCHEN
      EQUIVALENCE  (CCCHEN,TBCHEN)

      CCCHEN(1:NBCHEN*NBCCHN)='CONSTANTE FONCTION  TABLEAU   FICHIER   '
     &//'FONCTION-VFONCTION-TTABLEAU-V TABLEAU-T'
 
      IF (INDICE.GE.0.AND.INDICE.LE.NBCHEN-1) THEN
         DONINT=TBCHEN(INDICE+1)
      ELSE
         CALL ENCLER (INDICE,TBCHEN(1))                                 !Utilite
         CALL BAISE  ('*Donint* Type de donnee fantaisiste :'
     &                //TBCHEN(1)//'.')
      ENDIF
                                                                    END !Donint

donint est appelé dans (15 procédures)