Télécharger plmatr.eso

Retour à la liste

Numérotation des lignes :

  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.  
  24.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales