1 : C RKFCCA SOURCE AM 12/02/28 00:28:54 7289 2 : FUNCTION RKFCCA(t,tmax) 3 : 4 : c Reduction of compression strength in calcareous concrete 5 : c according to Table 3.1 of prEN1992-1-2 6 : 7 : IMPLICIT REAL*8 (A-B,D-H,O-Z) 8 : implicit integer (I-K,M,N) 9 : implicit logical (L) 10 : implicit character*10 (C) 11 : 12 : i1 = 1 13 : r1 = 1.0d0 14 : r0 = 0.0d0 15 : precision = 1.0d-3 16 : 17 : if (tmax.le.100.d0) then 18 : fc = 1.00d0 19 : else if (tmax.le.200.d0) then 20 : fc = 1.00d0-.0003d0*(tmax-100.d0) 21 : else if (tmax.le.300.d0) then 22 : fc = 0.97d0-.0006d0*(tmax-200.d0) 23 : else if (tmax.le.400.d0) then 24 : fc = 0.91d0-.0006d0*(tmax-300.d0) 25 : else if (tmax.le.500.d0) then 26 : fc = 0.85d0-.0011d0*(tmax-400.d0) 27 : else if (tmax.le.600.d0) then 28 : fc = 0.74d0-.0014d0*(tmax-500.d0) 29 : else if (tmax.le.700.d0) then 30 : fc = 0.60d0-.0017d0*(tmax-600.d0) 31 : else if (tmax.le.800.d0) then 32 : fc = 0.43d0-.0016d0*(tmax-700.d0) 33 : else if (tmax.le.900.d0) then 34 : 35 : fc = 0.27d0-.0012d0*(tmax-800.d0) 36 : else if (tmax.le.1000.d0) then 37 : fc = 0.15d0-.0009d0*(tmax-900.d0) 38 : else if (tmax.le.1100.d0) then 39 : fc = 0.06d0-.0004d0*(tmax-1000.d0) 40 : else 41 : fc = max(0.02d0-.0002d0*(tmax-1100.d0),0.0001D0) 42 : endif 43 : 44 : c Attention to the cases when T<20°C and Tmax=20°C 45 : if ( (t.lt.tmax) .and. (dabs(tmax-20.).ge.precision) ) then 46 : c Cooling down 47 : c calculate fc(20°C) = rmul * fc(tmax) 48 : if (tmax.lt.300.) then 49 : rmul = 1.0-0.1*(t-20.)/280. 50 : else 51 : rmul = 0.9 52 : endif 53 : fc20 = rmul*fc 54 : c calculate fc(t) = interpolation between fc(20) and fc(tmax) 55 : fc = fc20+(fc-fc20)*(t-20.)/(tmax-20.) 56 : endif 57 : 58 : rkfcca = fc 59 : 60 : return 61 : end 62 : 63 :
© Cast3M 2003 - All rights reserved.
Disclaimer