Sources Esope | Cast3M

mulmv
C MULMV     SOURCE    FD218221  25/09/03    21:15:05     12351          
      SUBROUTINE MULMV(R,M,V,NLIG,NCOL)
c=======================================================================
C     CALCULE LE PRODUIT D'UN VECTEUR V PAR UNE MATRICE M AINSI :
C     R(i,j) = V(j,1) * M(i,j)
C     CELA REVIENT A MULTIPLIER CHAQUE COLONNE DE LA MATRICE M
C     PAR LES TERMES DU VECTEUR V
c=======================================================================
      INTEGER NLIG,NCOL,I,J
      REAL*8 M(NLIG,NCOL),V(NCOL,1),R(NLIG,NCOL)
C
      DO J=1,NCOL
          DO I=1,NLIG
              R(I,J)=V(J,1)*M(I,J)
          ENDDO
      ENDDO
      RETURN
      END