Esope source files

   1 : C SCVECT    SOURCE    CHAT      05/01/13    03:13:01     5004           
   2 :       FUNCTION SCVECT(U,V,N)
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8(A-H,O-Z)
   5 :       DIMENSION U(N),V(N)
   6 : C
   7 : C-----------------------------------------------------
   8 : C     CALCUL DE LE PRODUIT SCALAIRE DE 2 VECTEURS
   9 : C     DE DIMENSION EGALE QUELCONQUE
  10 : C     SCVECT=U.V
  11 : C-----------------------------------------------------
  12 : C
  13 :       SCVECT=0.D0
  14 :       DO IE1=1,N
  15 :         SCVECT=SCVECT+U(IE1)*V(IE1)
  16 :       ENDDO
  17 : C
  18 :       RETURN
  19 :       END
  20 :  
  21 :