C SICTEN    SOURCE    CB215821  26/08/24    21:18:25     12622          
      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 51 ILOOP=1,6
         DO 50 JLOOP=1,6
           H0(ILOOP,JLOOP)=HI(ILOOP,JLOOP)*S(ILOOP,JLOOP)
50    CONTINUE
   51 CONTINUE



      RETURN
      END