Esope source files

   1 : C FISSU2    SOURCE    CHAT      05/01/13    00:01:45     5004           
   2 : C FISSU2     SOURCE    INSL       24/10/96    
   3 :       SUBROUTINE FISSU2(S1X,SIGRX,STRNX,RTM,PENT,TANG)
   4 : C
   5 : C         BETON FISSURE : COMPORTEMENT ADOUCISSANT
   6 : C                        ---> TENSION-SOFTENING
   7 : C
   8 :       IMPLICIT INTEGER(I-N)
   9 :       IMPLICIT REAL*8(A-H,O-Z)
  10 : C
  11 :       S1X = RTM-PENT*(STRNX-(RTM-SIGRX)/TANG)       
  12 :       IF(S1X .LE. 0.D0) THEN
  13 :         S1X = 0.D0
  14 :         TANG = 0.D0
  15 :       ENDIF
  16 : C
  17 : C       ACTUALISATION DE LA RESISTANCE EN TRACTION
  18 : C
  19 :       RTM=S1X
  20 : C
  21 :       RETURN
  22 :       END
  23 :  
  24 :