Télécharger la plaquette Cast3M


fr en

Télécharger mtmt3d.eso

Retour à la liste

Numérotation des lignes : 

mtmt3d

  1. C MTMT3D    SOURCE    PV090527  23/01/27    21:15:54     11574          
  2. c***********************************************************************
  3.       SUBROUTINE mtmt3d(A,B,NL,NC1,NC2,C)                                       
  4.       IMPLICIT INTEGER(I-N)
  5.       IMPLICIT REAL*8 (A-H,O-Z)                                                 
  6. *                                                                               
  7. *  C(NL,NC2)=A(NL,NC1)*B(NC1,NC2)                                               
  8. *  LE PREMIER INDICE EST DE LIGNE, LE DEUXIEME DE COLONNE                       
  9. *                                                                               
  10.       DIMENSION A(NL,nc1),B(NC1,nc2),C(NL,nc2)                                        
  11.       DO   I=1,NL                                                               
  12.         DO   J=1,NC2                                                              
  13.             XX= 0.D0                                                                  
  14.             DO 2 K=1,NC1                                                              
  15.                 XX = A(I,K)*B(K,J) + XX                                                   
  16.     2       CONTINUE                                                                  
  17.             C(I,J)=XX                                                                 
  18.         enddo                                                                       
  19.       enddo                                                                       
  20.       RETURN                                                                    
  21.       END
  22.  
  23.  
  24.  

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