Télécharger prodt3.eso

Retour à la liste

Numérotation des lignes :

  1. C PRODT3 SOURCE CB215821 17/06/06 21:15:10 9449
  2. SUBROUTINE PRODT3(A,B,C,I,J)
  3.  
  4. IMPLICIT INTEGER(I-N)
  5. IMPLICIT REAL*8(A-H,O-Z)
  6.  
  7. C EFFECTUANT A=TRANSPOSEE(C)*B*C ,OU A(I,I),B(J,J),C(3,I)
  8.  
  9. DIMENSION A(I,1),B(J,1),C(3,1)
  10. DO 1 L=1,I
  11. DO 3 K=1,I
  12. A(K,L)=0.D0
  13. 3 CONTINUE
  14. DO 1 M=1,J
  15. S=0.D0
  16. DO 2 N=1,J
  17. S=S+B(M,N)*C(N,L)
  18. 2 CONTINUE
  19. DO 1 K=1,I
  20. A(K,L)=A(K,L)+C(M,K)*S
  21. 1 CONTINUE
  22. RETURN
  23. END
  24.  
  25.  
  26.  

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