Download foncre.eso
Back to the list
1 : C FONCRE SOURCE FANDEUR 13/01/29 21:15:38 7683
2 : C SOURCE BERTHOLLET
3 : C
4 : SUBROUTINE FONCRE(FLU,FI,TFLU,DUR,ELAS0,BETJEF,BETFLU)
5 : C
6 : IMPLICIT INTEGER(I-N)
7 : IMPLICIT REAL*8(A-H,O-Z)
8 : -INC CCREEL
9 : C
10 : C*****************************************************************
11 : C
12 : SEGMENT BETJEF
13 : REAL*8 AA,BETA,FC,ALPHA,EX,XNU,GFC,GFT,CAR,ETA,TDEF,
14 : & TCON,DPSTF1,DPSTF2,TETA,PDT,TP00
15 : INTEGER ICT,ICC,IMOD,IVIS,ITER,
16 : & ISIM,IBB,IGAU,IZON
17 : ENDSEGMENT
18 : SEGMENT BETFLU
19 : REAL*8 DATCOU,DATCUR,DATSEC,E28,PGTZO,PGDUR,TAU1,TAU2,
20 : & TP0,TZER
21 : INTEGER ITYPE,IMD,NBRC,NCOE,NTZERO,NTPS,IFOR
22 : ENDSEGMENT
23 : C
24 : C MODELE B3 ET BP-KX
25 : C*****************************************************************
26 : C
27 : CIMENT = 266.
28 : EAU = 161.
29 : AGREG = 1615.
30 : SABLE = 1133.
31 : RH = 50.
32 : C POUR LE CAS D UNE EPROUVETTE 16*32
33 : RAYON = 0.08
34 : HAUT = 0.32
35 : C U = PERIMETRE EN CONTACT AVEC L EXTERIEUR EN M
36 : U = 2*XPI*RAYON
37 : C
38 : C AC = SURFACE EN CONTACT AVEC L ATMOSPHERE EN M2
39 : AC = XPI*(RAYON**2)
40 : C
41 : C VOL = VOLUME DE L ELEMENT CONSIDERE EN M3
42 : VOL = XPI*(RAYON**2)*HAUT
43 : C
44 : SILICE = 40.3
45 : FINES = 57.0
46 : ADJUV = 9.98
47 : C
48 : C*****************************************************************
49 : C CHOIX DU MODELE DE FLUAGE
50 : C*****************************************************************
51 : C
52 : IF (ITYPE.LT.1.OR.ITYPE.GT.8) THEN
53 : WRITE(*,*)'MAUVAIS CHOIX DE FONCTION DE FLUAGE'
54 : GO TO 100
55 : ENDIF
56 : C
57 : C 1 / MODELE ACI209 :FLUAGE TOTAL
58 : IF (ITYPE.EQ.1) GO TO 10
59 : C
60 : C 2 / MODELE ESPION ET HALLEUX : FLUAGE TOTAL
61 : IF (ITYPE.EQ.2) GO TO 20
62 : C
63 : C 3 / MODELE B3 :FLUAGE PROPRE ET DE DESSICCATION
64 : IF (ITYPE.EQ.3) GO TO 30
65 : C
66 : C 4 / MODELE CEB FIP : BETON GENERAL
67 : IF (ITYPE.EQ.4) GO TO 40
68 : C
69 : C 5 / MODELE EUROCODE 2 : BETON GENERAL
70 : IF (ITYPE.EQ.5) GO TO 40
71 : C
72 : C 6 / MODELE BEPL91 : BHP
73 : IF (ITYPE.EQ.6) GO TO 40
74 : C
75 : C 7 / MODELE AFREM :BHP : FLUAGE PROPRE ET DE DESSICCATION
76 : IF (ITYPE.EQ.7) GO TO 50
77 : C
78 : C 8 / MODELE BP-KX :BETON ORDINAIRE
79 : IF (ITYPE.EQ.8) GO TO 60
80 : C
81 : C*****************************************************************
82 : C 1 : MODELE ACI209
83 : C*****************************************************************
84 : C*****************************************************************
85 : C
86 : 10 E28=4734*SQRT(FC)
87 : FLU = 1/E28*SQRT((4+0.85*TFLU)/TFLU)*
88 : *(1+2.35*(TFLU**(-0.118))*(DUR**(0.6))/(10+
89 : *(DUR**(0.6))))
90 : ELAS0 = E28*SQRT(TFLU/(4+0.85*TFLU))
91 : TFLU = 0.D0
92 : DUR = 0.D0
93 : C
94 : FI = FLU*ELAS0-1
95 : GO TO 100
96 : C
97 : C*****************************************************************
98 : C 2 : MODELE ESPION ET HALLEUX
99 : C*****************************************************************
100 : C*****************************************************************
101 : C
102 : 20 FLU = 1/26000*(1+2.867*(TFLU**(-0.118))*
103 : *(DUR**(0.6))/(15+(DUR**(0.6))))
104 : C
105 : E28=4734*SQRT(FC)
106 : ELAS0 = E28*SQRT(TFLU/(4+0.85*TFLU))
107 : FI = FLU*ELAS0-1
108 : GO TO 100
109 : C
110 : C*****************************************************************
111 : C 3 : MODELE B3
112 : C*****************************************************************
113 : C*****************************************************************
114 : C
115 : C DATCUR = TEMPS DE CURE MINIMAL DU BETON
116 : C DATSEC = AGE DE DEBUT DE SECHAGE DU BETON POUR LE TERME DE DESSICCATION
117 : C
118 : C VOL EN M3, AC EN M2, RH EN % (EX : RH = 50)
119 : C
120 : C
121 : C
122 : C VALIDITE DU MODELE
123 : C*****************************************************************
124 : C
125 : C LA COMPOSITION DE BETON EST REDUITE A L UTILISATION DE CIMENT
126 : C PORTLAND AVEC :
127 : C
128 : C 17MPA