Esope source files

   1 : C SDOT      SOURCE    CHAT      05/01/13    03:13:04     5004           
   2 :       FUNCTION SDOT(N,V,M,W,L)                                                  
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8 (A-H,O-Z)                                                 
   5 : C     PRODUIT DE DEUX VECTEURS                                                  
   6 :       DIMENSION V(1),W(1)                                                       
   7 :       P=0.D0                                                                    
   8 :       I1=1                                                                      
   9 :       J1=1                                                                      
  10 :       IF(M.EQ.1.AND.L.EQ.1) GO TO 2                                             
  11 :       DO 1 I=1,N                                                                
  12 :       P = P + V(I1) * W(J1)                                                     
  13 :       I1=I1+M                                                                   
  14 :       J1=J1+L                                                                   
  15 :    1  CONTINUE                                                                  
  16 :       SDOT = P                                                                  
  17 :       RETURN                                                                    
  18 :   2   DO 3 I = 1,N                                                              
  19 :    3  P = P + V(I) * W(I)                                                       
  20 :       SDOT = P                                                                  
  21 :       RETURN                                                                    
  22 :       END                                                                       
  23 :