*=*=*=*= aMXV_adj.html =*=*=*=*
SUBROUTINE aMXV_adj(A,NRA,B,NCA,C) IMPLICIT NONE INTEGER NRA,NCA REAL A(NRA,NCA), B(NCA), C(NRA) INTEGER I,J do 220 j=1,nca do 210 i=1,nra b(j)=b(j)+a(i,j)*c(i) 210 continue 220 continue c initialize product DO 100 I = 1, NRA C(I) = 0. 100 CONTINUE c multiply matrix A and vector B c DO 220 J = 1, NCA c DO 210 I = 1, NRA c C(I) = C(I) + A(I,J)*B(J) c10 CONTINUE c20 CONTINUE RETURN END