Esope source files

   1 : C FONFLU    SOURCE    CHAT      05/01/13    00:06:15     5004           
   2 :       SUBROUTINE FONFLU(CRFLU,TZRFLU,BETJEF,BETFLU)
   3 : C
   4 :       IMPLICIT INTEGER(I-N)
   5 :       IMPLICIT REAL*8(A-H,O-Z)
   6 : C
   7 :       DIMENSION CRFLU(21,42),TZRFLU(42),
   8 :      &          TMTFLU(21),TEM(21,42)
   9 : C
  10 : C
  11 : C SELON MODELE ACI
  12 : C
  13 : C CRFLU(NFLU,MFLU)=FONCTION DE FLUAGE OU DE COMPLAISANCE
  14 : C TEM(NFLU,MFLU)=DATE DE MESURE DE LA DEFORMATION
  15 : C TZRFLU(MFLU)= DATE D'APPLICATION DE LA CHARGE
  16 : C DATCOU= DATE DE COULAGE DU BETON
  17 : C TMTFLU(NFLU)=TEM(NFLU,MFLU)-TZERO(MFLU)
  18 : C E28=4734*SQR(FC)
  19 : C
  20 : *
  21 :       SEGMENT BETJEF
  22 :        REAL*8 AA,BETA,RB,ALPHA,EX,XNU,GFC,GFT,CAR,ETA,TDEF,
  23 :      &          TCON,DPSTF1,DPSTF2,TETA,PDT
  24 :        INTEGER ICT,ICC,IMOD,IVIS,ITER,
  25 :      &                ISIM,IBB,IGAU,IZON
  26 :       ENDSEGMENT
  27 :       SEGMENT BETFLU
  28 :        REAL*8 DATCOU,TP0,E28,TAU1
  29 :        INTEGER NBRC,NCOE,NTPS,NTZERO,IFLU,MC,NC
  30 :       ENDSEGMENT
  31 : *
  32 : *     COMMON /DBETJEF/AA,BETA,RB,ALPHA,EX,XNU,GFC,GFT,CAR,ETA,TDEF,
  33 : *    &          TCON,DPSTF1,DPSTF2,TETA,PDT,ICT,ICC,IMOD,IVIS,ITER,
  34 : *    &                ISIM,IBB,IGAU,IZON
  35 : C
  36 : *     COMMON /DBETFLU/DATCOU,TP0,E28,TAU1,NBRC,NCOE,NTPS,NTZERO,IFLU,
  37 : *    &                MC,NC
  38 : C
  39 :       TZER=1.D0
  40 :       TMT=1.D0
  41 : C
  42 :       NFLU=21
  43 :       DO 10 I=1,NFLU
  44 :       IF(I.EQ.1)THEN
  45 :       TMTFLU(I)=TMT
  46 :       ELSE
  47 :       TMTFLU(I)=TMTFLU(I-1)*(10**(0.25))
  48 :       ENDIF
  49 :    10 CONTINUE
  50 : C
  51 :       DO 20 I=1,NFLU 
  52 :       MFLU=42
  53 :       DO 30 J=1,MFLU
  54 : C
  55 :       IF(J.EQ.1)THEN
  56 :       TZRFLU(J)=TZER
  57 :       ELSE
  58 :       TZRFLU(J)=TZRFLU(J-1)*(10**(0.25))
  59 :       ENDIF
  60 : C                       
  61 :       TEM(I,J)=TZRFLU(J)+TMTFLU(I)
  62 : C
  63 :       CRFLU(I,J)=1/E28*SQRT((4+0.85*TZRFLU(J))/TZRFLU(J))*
  64 :      *(1+2.35*(TZRFLU(J)**(-0.118))*(TMTFLU(I)**(0.6))/(10+
  65 :      *(TMTFLU(I)**(0.6))))
  66 : C      
  67 :    30 CONTINUE
  68 : C
  69 :    20 CONTINUE
  70 : C
  71 :       RETURN
  72 :       END
  73 : 
  74 : 
  75 :  
  76 : 
  77 : 
  78 : 
  79 : 
  80 : 
  81 : 
  82 :  
  83 :