*=*=*=*= aMXV_adj.html =*=*=*=*
SUBROUTINE aMXV_adj

SUBROUTINE aMXV_adj


      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