Esope source files

   1 : C FISSU     SOURCE    CHAT      05/01/13    00:01:48     5004           
   2 : C FISSU     SOURCE    INSL       24/10/96    
   3 :       SUBROUTINE FISSU(S1X,STRNX,TANG,RTM,PENT)
   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 :       TANG=PENT
  12 :       S1X = RTM-PENT*STRNX     
  13 :       IF(S1X .LE. 0.D0) THEN
  14 :         S1X = 0.D0
  15 :         TANG = 0.D0
  16 :       ENDIF
  17 : C
  18 : C       ACTUALISATION DE LA RESISTANCE EN TRACTION
  19 : C
  20 :       RTM=S1X
  21 :       RETURN
  22 :       END
  23 :  
  24 :