Esope source files

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