Esope source files

   1 : C EXTRA9    SOURCE    CHAT      05/01/12    23:53:26     5004           
   2 :       SUBROUTINE EXTRA9(ICHP,MPOINT,CMOT,KERRE,XFLOT)                           
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
   5 : ************************************************************************        
   6 : *                                                                               
   7 : *                             E X T R A 9                                       
   8 : *                             -----------                                       
   9 : *                                                                               
  10 : * FONCTION:                                                                     
  11 : * ---------                                                                     
  12 : *                                                                               
  13 : *     EXTRAIT LA VALEUR "XFLOT" DU CHPOINT "ICHP" AU POINT "MPOINT"             
  14 : *       DE COMPOSANTE "CMOT".                                                   
  15 : *                                                                               
  16 : * MODULES UTILISES:                                                             
  17 : * -----------------                                                             
  18 : *                                                                               
  19 : -INC SMCHPOI                                                                    
  20 : -INC SMELEME                                                                    
  21 : -INC CCOPTIO                                                                    
  22 : *                                                                               
  23 : * PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)          
  24 : * -----------                                                                   
  25 : *                                                                               
  26 : *     ICHP    (E)  POINTEUR SUR LE CHPOINT                                      
  27 : *     MPOINT  (E)  POINT A EXTRAIRE                                             
  28 : *     CMOT    (E)  COMPOSANTE DU POINT A EXTRAIRE                               
  29 : *     KERRE   (S)  SIGNALE SI L'EXTRACTION S'EST BIEN PASSEE                    
  30 : *     XFLOT   (S)  VALEUR EXTRAITE                                              
  31 : *                                                                               
  32 :       CHARACTER*4 CMOT                                                          
  33 : *                                                                               
  34 : * MODE DE FONCTIONNEMENT:                                                       
  35 : * -----------------------                                                       
  36 : *                                                                               
  37 : *     ON SUPPOSE QUE LE PROGRAMME APPELANT  A VERIFIE QUE LE                    
  38 : *        MOT-CLE SOIT CORRECT.                                                  
  39 : *                                                                               
  40 : * AUTEUR, DATE DE CREATION:                                                     
  41 : * -------------------------                                                     
  42 : *                                                                               
  43 : *     LIONEL VIVAN    21 SEPTEMBRE 1989                                         
  44 : *                                                                               
  45 : * LANGAGE:                                                                      
  46 : * --------                                                                      
  47 : *                                                                               
  48 : *     ESOPE + FORTRAN77                                                         
  49 : *                                                                               
  50 : ************************************************************************        
  51 : *                                                                               
  52 :       MCHPOI = ICHP                                                             
  53 :       SEGACT,MCHPOI                                                             
  54 :       KERRE = 0
  55 :       XFLOT=0.
  56 :       NBSOUS = IPCHP(/1)                                                        
  57 :       DO 11 I = 1,NBSOUS                                                        
  58 :          MSOUPO = IPCHP(I)                                                      
  59 :          SEGACT,MSOUPO                                                          
  60 :          DO 12 IC = 1,NOCOMP(/2)                                                
  61 :             IF (NOCOMP(IC).EQ.CMOT.AND.NOHARM(IC).EQ.NIFOUR) THEN               
  62 :                ICC=IC                                                           
  63 :                GOTO 13                                                          
  64 :             ENDIF                                                               
  65 :  12      CONTINUE                                                               
  66 :          SEGDES,MSOUPO                                                    
  67 :          GOTO 11                                                                
  68 :  13      CONTINUE                                                               
  69 :          MELEME = IGEOC                                                         
  70 :          MPOVAL = IPOVAL                                                        
  71 :          SEGACT,MELEME,MPOVAL                                                   
  72 :          DO 14 KJ = 1,NUM(/2)                                                   
  73 :             IF (NUM(1,KJ).EQ.MPOINT) THEN                                       
  74 :                KERRE=0                                                          
  75 :                XFLOT=VPOCHA(KJ,ICC)                                             
  76 :                SEGDES,MELEME,MPOVAL,MSOUPO                    
  77 :                GOTO 15                                                          
  78 :             ENDIF                                                               
  79 :  14      CONTINUE                                                               
  80 :          SEGDES,MELEME,MPOVAL                                       
  81 :          SEGDES,MSOUPO                                                    
  82 :                                                                                 
  83 :  11   CONTINUE                                                                  
  84 :  15   SEGDES,MCHPOI                                                       
  85 : *                                                                               
  86 :       END                                                                       
  87 :  
  88 :