C EXTRA9    SOURCE    CHAT      05/01/12    23:53:26     5004           
      SUBROUTINE EXTRA9(ICHP,MPOINT,CMOT,KERRE,XFLOT)                           
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)                                                  
************************************************************************        
*                                                                               
*                             E X T R A 9                                       
*                             -----------                                       
*                                                                               
* FONCTION:                                                                     
* ---------                                                                     
*                                                                               
*     EXTRAIT LA VALEUR "XFLOT" DU CHPOINT "ICHP" AU POINT "MPOINT"             
*       DE COMPOSANTE "CMOT".                                                   
*                                                                               
* MODULES UTILISES:                                                             
* -----------------                                                             
*                                                                               
-INC SMCHPOI                                                                    
-INC SMELEME                                                                    
-INC CCOPTIO                                                                    
*                                                                               
* PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)          
* -----------                                                                   
*                                                                               
*     ICHP    (E)  POINTEUR SUR LE CHPOINT                                      
*     MPOINT  (E)  POINT A EXTRAIRE                                             
*     CMOT    (E)  COMPOSANTE DU POINT A EXTRAIRE                               
*     KERRE   (S)  SIGNALE SI L'EXTRACTION S'EST BIEN PASSEE                    
*     XFLOT   (S)  VALEUR EXTRAITE                                              
*                                                                               
      CHARACTER*4 CMOT                                                          
*                                                                               
* MODE DE FONCTIONNEMENT:                                                       
* -----------------------                                                       
*                                                                               
*     ON SUPPOSE QUE LE PROGRAMME APPELANT  A VERIFIE QUE LE                    
*        MOT-CLE SOIT CORRECT.                                                  
*                                                                               
* AUTEUR, DATE DE CREATION:                                                     
* -------------------------                                                     
*                                                                               
*     LIONEL VIVAN    21 SEPTEMBRE 1989                                         
*                                                                               
* LANGAGE:                                                                      
* --------                                                                      
*                                                                               
*     ESOPE + FORTRAN77                                                         
*                                                                               
************************************************************************        
*                                                                               
      MCHPOI = ICHP                                                             
      SEGACT,MCHPOI                                                             
      KERRE = 0
      XFLOT=0.
      NBSOUS = IPCHP(/1)                                                        
      DO 11 I = 1,NBSOUS                                                        
         MSOUPO = IPCHP(I)                                                      
         SEGACT,MSOUPO                                                          
         DO 12 IC = 1,NOCOMP(/2)                                                
            IF (NOCOMP(IC).EQ.CMOT.AND.NOHARM(IC).EQ.NIFOUR) THEN               
               ICC=IC                                                           
               GOTO 13                                                          
            ENDIF                                                               
 12      CONTINUE                                                               
         SEGDES,MSOUPO                                                    
         GOTO 11                                                                
 13      CONTINUE                                                               
         MELEME = IGEOC                                                         
         MPOVAL = IPOVAL                                                        
         SEGACT,MELEME,MPOVAL                                                   
         DO 14 KJ = 1,NUM(/2)                                                   
            IF (NUM(1,KJ).EQ.MPOINT) THEN                                       
               KERRE=0                                                          
               XFLOT=VPOCHA(KJ,ICC)                                             
               SEGDES,MELEME,MPOVAL,MSOUPO                    
               GOTO 15                                                          
            ENDIF                                                               
 14      CONTINUE                                                               
         SEGDES,MELEME,MPOVAL                                       
         SEGDES,MSOUPO                                                    
                                                                                
 11   CONTINUE                                                                  
 15   SEGDES,MCHPOI                                                       
*                                                                               
      END