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