Sources Esope | Cast3M

plmatr
C PLMATR    SOURCE    CHAT      05/01/13    02:15:10     5004
      SUBROUTINE PLMATR(U,COU,V,COV,M,N,W)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
      DIMENSION U(M,N),V(M,N),W(M,N)
C
C-----------------------------------------------------
C     CALCUL DE LA SOMME PONDEREE DE 2 MATRICE
C     DE DIMENSION EGALE QUELCONQUE
C     W=COU*U+COV*V
C-----------------------------------------------------
C
      USV=0.D0
      DO IE1=1,N
        DO JE1=1,M
          W(JE1,IE1)=COU*U(JE1,IE1)+COV*V(JE1,IE1)
        ENDDO
      ENDDO
C
      RETURN
      END