Télécharger la plaquette Cast3M


fr en

Télécharger prodmm.eso

Retour à la liste

Numérotation des lignes : 

prodmm

  1. C PRODMM    SOURCE    CB215821  26/08/24    21:17:56     12622          
  2. C  PRODMM    SOURCE   NECH   99/27/5
  3.       SUBROUTINE PRODMM(A,B,C,II,JJ,KK)
  4. C
  5.       IMPLICIT INTEGER(I-N)
  6.         IMPLICIT REAL*8(A-H,O-Z)
  7. C
  8. *--------------------------------------------------------------------*
  9. *                                                                    *
  10. *     PRODUIT MATRICE * MATRICE = MATRICE                            *
  11. *    ______________________________________                          *
  12. *                                                                    *
  13. *    ENTREES:                                                        *
  14. *                                                                    *
  15. *        A(I,K)          MATRICE                                     *
  16. *        B(K,J)          MATRICE                                     *
  17. *        II,JJ,KK        DIMENSIONS                                  *
  18. *                                                                    *
  19. *    SORTIES:                                                        *
  20. *                                                                    *
  21. *        C(I,J)          MATRICE                                     *
  22. *                                                                    *
  23. *--------------------------------------------------------------------*
  24. C
  25.         DIMENSION A(4,4),B(4,4),C(4,4)
  26. C
  27.         DO 32 I=1,II
  28.         DO 31 J=1,JJ
  29.          C(I,J)=0.D0
  30.         DO 30 K=1,KK
  31.          C(I,J)=C(I,J)+A(I,K)*B(K,J)
  32.    30   CONTINUE
  33.    31   CONTINUE
  34.    32   CONTINUE
  35. C
  36.         RETURN
  37.         END
  38.  
  39.  
  40.  
  41.  

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