Esope source files

   1 : C COLIVE    SOURCE    CHAT      05/01/12    22:13:18     5004           
   2 :       SUBROUTINE COLIVE(VEC1,VEC2,L1,C1,C2,VEC3)                                
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
   5 : ************************************************************************        
   6 : *                                                                               
   7 : *                             C O L I V E                                       
   8 : *                             -----------                                       
   9 : *                                                                               
  10 : * FONCTION:                                                                     
  11 : * ---------                                                                     
  12 : *     CALCULE LA COMBINAISON LINEAIRE : C1 VEC1 + C2 VEC2 = VEC3                
  13 : *                                                                               
  14 : * PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)          
  15 : * -----------                                                                   
  16 : *                                                                               
  17 : *     VEC1    (E)  PREMIER VECTEUR                                              
  18 : *     VEC2    (E)  SECOND VECTEUR                                               
  19 : *     L1      (E)  LONGUEUR DES VECTEURS                                        
  20 : *     C1      (E)  PREMIER COEFFICIENT                                          
  21 : *     C2      (E)  SECOND COEFFICIENT                                           
  22 : *     VEC3    (S)  VECTEUR RESULTAT                                             
  23 : *                                                                               
  24 : * AUTEUR, DATE DE CREATION:                                                     
  25 : * -------------------------                                                     
  26 : *     DENIS ROBERT, LE 3 DECEMBRE 1988.                                         
  27 : *                                                                               
  28 : * LANGAGE:                                                                      
  29 : * --------                                                                      
  30 : *     FORTRAN77                                                                 
  31 : *                                                                               
  32 : ************************************************************************        
  33 : *                                                                               
  34 :       REAL*8 VEC1(*),VEC2(*),VEC3(*)                                            
  35 : *                                                                               
  36 :       IFO=0                                                                     
  37 :       DO 10 I1=1,L1                                                             
  38 :          IFO=IFO+1                                                              
  39 :          VEC3(IFO)=VEC1(IFO)*C1+VEC2(IFO)*C2                                    
  40 :  10      CONTINUE                                                               
  41 : *     END DO                                                                    
  42 : *                                                                               
  43 :       END                                                                       
  44 :