[u/mrichter/AliRoot.git] / HERWIG / src / hwvdot.f


CDECK  ID>, HWVDOT.

*CMZ :-        -26/04/91  11.11.56  by  Bryan Webber

*-- Author :    Bryan Webber

C-----------------------------------------------------------------------

      FUNCTION HWVDOT(N,P,Q)

C-----------------------------------------------------------------------

C     VECTOR DOT PRODUCT

C-----------------------------------------------------------------------

      DOUBLE PRECISION HWVDOT,PQ,P(N),Q(N)

      INTEGER N,I

      PQ=0.

      DO 10 I=1,N

   10 PQ=PQ+P(I)*Q(I)

      HWVDOT=PQ

      END
Commit	Line	Data
3820ca8e	1
	2	CDECK ID>, HWVDOT.
	3
	4	*CMZ :- -26/04/91 11.11.56 by Bryan Webber
	5
	6	*-- Author : Bryan Webber
	7
	8	C-----------------------------------------------------------------------
	9
	10	FUNCTION HWVDOT(N,P,Q)
	11
	12	C-----------------------------------------------------------------------
	13
	14	C VECTOR DOT PRODUCT
	15
	16	C-----------------------------------------------------------------------
	17
	18	DOUBLE PRECISION HWVDOT,PQ,P(N),Q(N)
	19
	20	INTEGER N,I
	21
	22	PQ=0.
	23
	24	DO 10 I=1,N
	25
	26	10 PQ=PQ+P(I)*Q(I)
	27
	28	HWVDOT=PQ
	29
	30	END