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