Esope source files

   1 : C SICTEN    SOURCE    CHAT      05/01/13    03:16:22     5004           
   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 :       
  12 :       CALL ZERO (H0, 6,6)
  13 :       
  14 :       DO 50 ILOOP=1,6
  15 :          DO 50 JLOOP=1,6 
  16 :            H0(ILOOP,JLOOP)=HI(ILOOP,JLOOP)*S(ILOOP,JLOOP)
  17 : 50    CONTINUE
  18 :       
  19 :       
  20 :       
  21 :       RETURN
  22 :       END
  23 : 
  24 :  
  25 :