c===============================VADD.FOR================================
c
C  PERFORMS A=A+B on each element.                      /DEE 1-89

      SUBROUTINE VADD(A,B)
      INTEGER A(8), B(8)
      DO 10, J=1,8
      A(J)=A(J)+B(J)
 10   CONTINUE
      RETURN
      END