HERWIG/src/hwvequ.f

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