HERWIG/src/hwvdot.f

   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