HERWIG/src/hwvsum.f

   1
   2 CDECK  ID>, HWVSUM.
   3
   4 *CMZ :-        -26/04/91  11.11.56  by  Bryan Webber
   5
   6 *-- Author :    Bryan Webber
   7
   8 C-----------------------------------------------------------------------
   9
  10       SUBROUTINE HWVSUM(N,P,Q,R)
  11
  12 C-----------------------------------------------------------------------
  13
  14 C    VECTOR SUM
  15
  16 C-----------------------------------------------------------------------
  17
  18       DOUBLE PRECISION P(N),Q(N),R(N)
  19
  20       INTEGER N,I
  21
  22       DO 10 I=1,N
  23
  24    10 R(I)=P(I)+Q(I)
  25
  26       END