[updated 7.Jul.1999]

Qui appelle sdexco ?

      SUBROUTINE SDEXCO (ITEM,STRUCT,CARAC1,CARAC2,CARAC3)

  Auteur : D.Martin (Novembre 1990)  
  Derniere modification : D.Martin (6 Juillet 1999)
   
  Exploitation du tableau STRUCT, d'entete de longueur 4 et d'increment 3
  pour trouver les attributs d'un item
   
 - Arguments d'entree -
  ITEM   numero de l'item dont on cherche les caracteristiques
  STRUCT structure contenant les caracteristiques de l'item
 - Arguments de sortie -
  CARACi i-eme caracteristique de l'item dans la structure

      INTEGER   ITEM,STRUCT(*),CARAC1,CARAC2,CARAC3
 
      INTEGER   POINTR,LGENTE,NBITEM,INCREM,NBCHAR
      CHARACTER BUG*6

      CARAC1=0 
      CARAC2=0 
      CARAC3=2 
      IF (ITEM.LE.0) RETURN 
      CALL SDEXDB (STRUCT,LGENTE,NBITEM,INCREM,NBCHAR)  
   
      IF (ITEM.GT.NBITEM) THEN  
         CALL ENCLER (ITEM,BUG)
         CALL BAISE  ('*SDexco* Erreur dans une structure :'
     *//' Nombre d''items '//BUG//' depasse ?') 
      ENDIF
   
      POINTR=LGENTE+INCREM*(ITEM-1)  
      CARAC1=STRUCT(POINTR+1)
      CARAC2=STRUCT(POINTR+2)  
      CARAC3=STRUCT(POINTR+3)  
                                                                    END !Sdexco

sdexco est appelé dans (91 procédures)