Télécharger la plaquette Cast3M


fr en

Télécharger sicten.eso

Retour à la liste

Numérotation des lignes : 

sicten

  1. C SICTEN    SOURCE    CB215821  26/08/24    21:18:25     12622          
  2.       SUBROUTINE SICTEN (HI, S, H0)
  3. ***************************************************
  4. *     Calcul des tenseurs d'endommagement pour le
  5. *     modele SIC_SIC
  6. *     Entree: HI, S (Matrice de Hook)
  7. *     Sortie: H0 Tenseur d'endommagement
  8. ***************************************************
  9.       IMPLICIT INTEGER(I-N)
  10.  
  11.       REAL*8 HI(6,6), S(6,6), H0(6,6)
  12.  
  13.       CALL ZERO (H0, 6,6)
  14.  
  15.       DO 51 ILOOP=1,6
  16.          DO 50 JLOOP=1,6
  17.            H0(ILOOP,JLOOP)=HI(ILOOP,JLOOP)*S(ILOOP,JLOOP)
  18. 50    CONTINUE
  19.    51 CONTINUE
  20.  
  21.  
  22.  
  23.       RETURN
  24.       END
  25.  
  26.  
  27.  
  28.  
  29.  

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