C COLIVE    SOURCE    CHAT      05/01/12    22:13:18     5004           
      SUBROUTINE COLIVE(VEC1,VEC2,L1,C1,C2,VEC3)                                
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)                                                  
************************************************************************        
*                                                                               
*                             C O L I V E                                       
*                             -----------                                       
*                                                                               
* FONCTION:                                                                     
* ---------                                                                     
*     CALCULE LA COMBINAISON LINEAIRE : C1 VEC1 + C2 VEC2 = VEC3                
*                                                                               
* PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)          
* -----------                                                                   
*                                                                               
*     VEC1    (E)  PREMIER VECTEUR                                              
*     VEC2    (E)  SECOND VECTEUR                                               
*     L1      (E)  LONGUEUR DES VECTEURS                                        
*     C1      (E)  PREMIER COEFFICIENT                                          
*     C2      (E)  SECOND COEFFICIENT                                           
*     VEC3    (S)  VECTEUR RESULTAT                                             
*                                                                               
* AUTEUR, DATE DE CREATION:                                                     
* -------------------------                                                     
*     DENIS ROBERT, LE 3 DECEMBRE 1988.                                         
*                                                                               
* LANGAGE:                                                                      
* --------                                                                      
*     FORTRAN77                                                                 
*                                                                               
************************************************************************        
*                                                                               
      REAL*8 VEC1(*),VEC2(*),VEC3(*)                                            
*                                                                               
      IFO=0                                                                     
      DO 10 I1=1,L1                                                             
         IFO=IFO+1                                                              
         VEC3(IFO)=VEC1(IFO)*C1+VEC2(IFO)*C2                                    
 10      CONTINUE                                                               
*     END DO                                                                    
*                                                                               
      END