Esope source files

   1 : C PLMATR    SOURCE    CHAT      05/01/13    02:15:10     5004           
   2 :       SUBROUTINE PLMATR(U,COU,V,COV,M,N,W)
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8(A-H,O-Z)
   5 :       DIMENSION U(M,N),V(M,N),W(M,N)
   6 : C
   7 : C-----------------------------------------------------
   8 : C     CALCUL DE LA SOMME PONDEREE DE 2 MATRICE 
   9 : C     DE DIMENSION EGALE QUELCONQUE
  10 : C     W=COU*U+COV*V
  11 : C-----------------------------------------------------
  12 : C
  13 :       USV=0.D0
  14 :       DO IE1=1,N
  15 :         DO JE1=1,M
  16 :           W(JE1,IE1)=COU*U(JE1,IE1)+COV*V(JE1,IE1)
  17 :         ENDDO
  18 :       ENDDO
  19 : C
  20 :       RETURN
  21 :       END
  22 :  
  23 :