Sources Esope | Cast3M

sicten
C SICTEN    SOURCE    CHAT      05/01/13    03:16:22     5004
      SUBROUTINE SICTEN (HI, S, H0)
***************************************************
*     Calcul des tenseurs d'endommagement pour le
*     modele SIC_SIC
*     Entree: HI, S (Matrice de Hook)
*     Sortie: H0 Tenseur d'endommagement
***************************************************
      IMPLICIT INTEGER(I-N)
 
      REAL*8 HI(6,6), S(6,6), H0(6,6)
 
      CALL ZERO (H0, 6,6)
 
      DO 50 ILOOP=1,6
         DO 50 JLOOP=1,6
           H0(ILOOP,JLOOP)=HI(ILOOP,JLOOP)*S(ILOOP,JLOOP)
50    CONTINUE
 
 
 
      RETURN
      END