The TELEMAC-MASCARET system  trunk
dot.f
Go to the documentation of this file.
1 ! *****************************
2  DOUBLE PRECISION FUNCTION dot
3 ! *****************************
4 !
5  &(npoin,x,y)
6 !
7 !***********************************************************************
8 ! BIEF V6P1 21/08/2010
9 !***********************************************************************
10 !
11 !brief SCALAR PRODUCT OF VECTORS X AND Y OF SIZE NPOIN.
12 !
13 !history J-M HERVOUET (LNH) ; F LEPEINTRE (LNH)
14 !+ 18/08/94
15 !+ V5P1
16 !+
17 !
18 !history N.DURAND (HRW), S.E.BOURBAN (HRW)
19 !+ 13/07/2010
20 !+ V6P0
21 !+ Translation of French comments within the FORTRAN sources into
22 !+ English comments
23 !
24 !history N.DURAND (HRW), S.E.BOURBAN (HRW)
25 !+ 21/08/2010
26 !+ V6P0
27 !+ Creation of DOXYGEN tags for automated documentation and
28 !+ cross-referencing of the FORTRAN sources
29 !
30 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
31 !| NPOIN |-->| TAILLE DE X ET Y
32 !| X |-->| FIRST DOUBLE PRECISION VECTOR
33 !| Y |-->| SECOND DOUBLE PRECISION VECTOR
34 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
35 !
37  IMPLICIT NONE
38 !
39 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
40 !
41  INTEGER, INTENT(IN) :: NPOIN
42  DOUBLE PRECISION, INTENT(IN) :: X(npoin),Y(npoin)
43 !
44 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
45 !
46  INTEGER I
47 !
48 !-----------------------------------------------------------------------
49 !
50  dot = 0.d0
51 !
52  DO i = 1 , npoin
53  dot = dot + x(i) * y(i)
54  ENDDO
55 !
56 !-----------------------------------------------------------------------
57 !
58  RETURN
59  END
double precision function dot(NPOIN, X, Y)
Definition: dot.f:7