Esope source files

   1 : C EXTRA2    SOURCE    CHAT      05/01/12    23:53:02     5004           
   2 : * EXTRAIRE LE I-EME ELEMENT D'UN OBJET DE TYPE "LISTENTI".                      
   3 :       SUBROUTINE EXTRA2 (IPOINT,IEME,INTEGR)                                    
   4 : ************************************************************************        
   5 : *                                                                               
   6 : *                             E X T R A 2                                       
   7 : *                             -----------                                       
   8 : *                                                                               
   9 : * FONCTION:                                                                     
  10 : * ---------                                                                     
  11 : *                                                                               
  12 : *     EXTRAIRE LE I-EME ELEMENT D'UN OBJET DE TYPE "LISTENTI".                  
  13 : *                                                                               
  14 : * MODE D'APPEL:                                                                 
  15 : * -------------                                                                 
  16 : *                                                                               
  16 : *     CALL EXTRA2 (IPOINT,IEME,INTEGR)                                          
  17 : *                                                                               
  18 : * PARAMETRES:   (E)=ENTREE   (S)=SORTIE                                         
  19 : * -----------                                                                   
  20 : *                                                                               
  21 : *     IPOINT  ENTIER    (E)  POINTEUR DE L'OBJET DE TYPE "LISTENTI".            
  22 : *     IEME    ENTIER    (E)  NUMERO D'ORDRE DE L'ELEMENT A EXTRAIRE DANS        
  23 : *                            L'OBJET DE TYPE "LISTENTI".                        
  24 : *     INTEGR  ENTIER    (S)  ELEMENT EXTRAIT.                                   
  25 : *                                                                               
  26 : * SOUS-PROGRAMMES APPELES:                                                      
  27 : * ------------------------                                                      
  28 : *                                                                               
  29 : *     ERREUR                                                                    
  30 : *                                                                               
  31 : * AUTEUR, DATE DE CREATION:                                                     
  32 : * -------------------------                                                     
  33 : *                                                                               
  34 : *     PASCAL MANIGOT     5 DECEMBRE 1984                                        
  35 : *                                                                               
  36 : * LANGAGE:                                                                      
  37 : * --------                                                                      
  38 : *                                                                               
  39 : *     ESOPE + FORTRAN77                                                         
  40 : *                                                                               
  41 : ************************************************************************        
  42 : *                                                                               
  43 :       IMPLICIT INTEGER(I-N)
  44 : -INC CCOPTIO                                                                    
  45 : -INC SMLENTI                                                                    
  46 : *                                                                               
  47 :       MLENTI = IPOINT                                                           
  48 :       SEGACT,MLENTI                                                             
  49 : *                                                                               
  50 :       IF (0 .LT. IEME .AND. IEME .LE. LECT(/1) ) THEN                           
  51 :          INTEGR = LECT(IEME)                                                    
  52 :       ELSE                                                                      
  53 :          INTERR(1) = IEME                                                       
  54 :          NUMERR = 36                                                            
  54 :          CALL ERREUR (NUMERR)                                                   
  55 :       END IF                                                                    
  56 : *                                                                               
  57 :       SEGDES,MLENTI                                                       
  58 : *                                                                               
  59 :       END                                                                       
  60 :