Esope source files

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