[updated 8.Sep.2008]

Qui appelle getcst ?

      SUBROUTINE GETCST (NOMCST,TYPCST,NTIERE,REELLE,COMPLE,CHARAC)

  Auteur : D.Martin (Janvier 1990)  
  Derniere modification : D.Martin (30 Juin 1997)
   
  Recherche d'une valeur de la constante de nom donne  
   
 -- Argument d'entree --  
  NOMCST nom de la constante
 -- Argument de sortie -- 
  TYPCST type de la constante('ENTIER','REEL','COMPLEXE',CHARACTER,CHARACTER*x')
  NTIERE valeur de la constante si la constante est entiere
  REELLE valeur de la constante si le constante est reelle 
  COMPLE valeur de la constante si le constante est complexe
  CHARAC valeur de la constante caractere ou chaine de caracteres  

      INTEGER       NTIERE
      REAL          REELLE
      COMPLEX       COMPLE 
      CHARACTER*(*) NOMCST,CHARAC,TYPCST
   
      INCLUDE 'ALLOC'  
      INCLUDE 'CONTEX' 
 
      INTEGER   KELCHN,INTDON
      INTEGER   MCMDON,MCDONN,LGEDON,NBDONN,INCDON,NCHDON,NUDONN
     &         ,ITYDON,NIVDON,ITYPDO
      CHARACTER ERCODE*120,TYPINT*13
      COMMON/FORMAH/ERCODE 

      CALL PRFXMJ (1,'*GetCst*')
   
      CALL TBAR2  (ERCODE,'#OMDON',1,MCMDON,'$DONNE',1,MCDONN)
      CALL SDEXDB (IST(MCDONN),LGEDON,NBDONN,INCDON,NCHDON)             !sdexplo
      NUDONN=KELCHN (NOMCST,AST(MCMDON),NBDONN,NCHDON)                  !utilite
      IF (NUDONN.LE.0) CALL ERDONN (1,NOMCST)                           !utilite
   
      Caracteristiques de la donnee  
      CALL SDEXCO (NUDONN,IST(MCDONN),ITYDON,NIVDON,ITYPDO)             !sdexplo
      IF (ITYDON.NE.INTDON ('CONSTANTE')) CALL ERDONN (2,NOMCST)        !utilite
  
      CALL OUTCST (NIVDON,ITYPDO,NTIERE,REELLE,COMPLE,CHARAC)           !sdexplo
      TYPCST=TYPINT (ITYPDO)
      CALL PRFXMJ (-1,'*GetCst*')  
                                                                    END !Getcst

getcst est appelé dans (30 procédures)