HERWIG/src/hwvsca.f

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