C COMBI2    SOURCE    CHAT      05/01/12    22:13:53     5004           
      SUBROUTINE COMBI2 (IPCHP1,REEL1,IPCHP2,REEL2,IPCOMB)                      
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)                                                 
************************************************************************        
*                                                                               
*                             C O M B I 2                                       
*                             -----------                                       
*                                                                               
* FONCTION:                                                                     
* ---------                                                                     
*                                                                               
*     COMBINAISON LINEAIRE DE 2 'CHPOINT':                                      
*     COMB = REEL1*CHP1 + REEL2*CHP2                                            
*                                                                               
*     CAS PARTICULIER OU LES DEUX CHPOINTS S'APPUIENT SUR LES MEMES             
*     POINTS, AVEC LES MEMES COMPOSANTES.                                       
*                                                                               
* MODE D'APPEL:                                                                 
* -------------                                                                 
*                                                                               
*     CALL COMBI2 (IPCHP1,REEL1,IPCHP2,REEL2,IPCOMB)                            
*                                                                               
* PARAMETRES:   (E)=ENTREE   (S)=SORTIE                                         
* -----------                                                                   
*                                                                               
*     IPCHP1  ENTIER    (E)  POINTEUR SUR LE 1ER 'CHPOINT'.                     
*     REEL1   REEL DP   (E)  COEFFICIENT DU 1ER 'CHPOINT'.                      
*     IPCHP2  ENTIER    (E)  POINTEUR SUR LE 2IEME 'CHPOINT'.                   
*     REEL2   REEL DP   (E)  COEFFICIENT DU 2IEME 'CHPOINT'.                    
*     IPCOMB  ENTIER    (S)  POINTEUR SUR LE 'CHPOINT' COMBINE.                 
*                                                                               
* LEXIQUE: (ORDRE ALPHABETIQUE)                                                 
* --------                                                                      
*                                                                               
*     IPTA1   ENTIER    POINTEUR SUR LE SEGMENT CONTENANT LA LISTE DES          
*                       POINTEURS DE 'CHPOINT'.                                 
*     IPTA2   ENTIER    POINTEUR SUR LE SEGMENT CONTENANT LA LISTE DES          
*                       COEFFICIENTS.                                           
*                                                                               
* SOUS-PROGRAMMES APPELES:                                                      
* ------------------------                                                      
*                                                                               
*     COMBIL                                                                    
*                                                                               
* AUTEUR, DATE DE CREATION:                                                     
* -------------------------                                                     
*                                                                               
*     PASCAL MANIGOT     20 DECEMBRE 1984                                       
*                                                                               
* LANGAGE:                                                                      
* --------                                                                      
*                                                                               
*     ESOPE + FORTRAN77                                                         
*                                                                               
************************************************************************        
*                                                                               
*                                                                               
      SEGMENT ITA1(2)                                                           
      SEGMENT/ITA2/ (TA2(2)*D)                                                  
*                                                                               
         SEGINI,ITA1                                                            
         IPTA1 = ITA1                                                           
         SEGINI,ITA2                                                            
         IPTA2 = ITA2                                                           
*                                                                               
      ITA1(1) = IPCHP1                                                          
      ITA1(2) = IPCHP2                                                          
      TA2(1) = REEL1                                                            
      TA2(2) = REEL2                                                            
      SEGDES,ITA1                                                               
      SEGDES,ITA2                                                               
*                                                                               
      CALL COMBIL (IPTA1,IPTA2,  IPCOMB)                                        
*                                                                               
      END