F. K. Kong MA, MSc, PhD, CEng, FICE, FIStructE, R. H. Evans CBE, DSc, D ès Sc, DTech, PhD, CEng, FICE, FIMechE, FIStructE (auth.)-Reinforced and Prestressed Concrete-Springer US (1987)

Program layout 459
65
66
67
68
69
70
7l
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
lU
115
116
117
118
119
120
121
122
123
12&
125
126
127
128
129
130
131
Com I section.
Coal --------------------------------------------------------------
200 CALL FLAKGE (BEFF, BETAB, BW, D, DDASH, FCU, FY, HF,
' mASH, M, X, Z,
' AS, ASDASH, FSDASH, KF)
Com --------------------------------------------------------------
Coal I Print out the results.
Com --------------------------------------------------------------
300 CALL RESULT (BMTYPE,
' AS, ASDASH, D, DDASH, FSDASH, FY, HF,
' K, KDASH, KF, M, MU, X, Z)
S'l'OP
END
Com *****************************************************************
Coal *
Coal * Subroutine Name : CONSTA (= CONSTAnts)
Coal *
Com*
Coal *
Coal *
Coal *
Purpose: To calculate the constants K, K', z and x for
subsequent use. K', z and x are to be used by
subroutine FLAKGE or RECTAK.
Coal* References : Sections &.5 to 4.7 of Chapter 4.
Coal *
COm *****************************************************************
SUBROUTIRE CONSTA (BMTYPE,
' B, BEFF, BETAB, D, FCU, M,
' K, KDASH, X, Z)
Coal Input parameters • • • • • • • • • • • •
INTEGER*l BMTYPE
REAL B, BEFF, BETAB, D, FCU, M
REAL K, KDASH, X, Z
Coal • • • • • OUtput parameters
Com • • • • • Local parameters
INTEGER*l
DATA
F, R
F, R I'F' I 'R'I
Coal ---------------------------------------------------------------
Coal I calculate K from design ultimate moment.
Coal ---------------------------------------------------------------
IF (BMTYPE .EQ. R) K • M * 1.0!6 I (FCU * B * D ** 2)
IF (BMTYPE .EQ. F) K • M * 1.0!6 I (FCU * BEFF * D ** 2)
Coal ---------------------------------------------------------------
Com I calculate K' from Eqn 4.7-5 of chapter 4.
Com ---------------------------------------------------------------
IF (BETAB .LE. 0.9) GO '1'0 100
WRITE (6,5000)
BETAB 0.9
100 KDASH = 0.40 * (BETAB - 0.4) - 0.18 * (BETAB - 0.4) ** 2
Com ---------------------------------------------------------------
Com I calculate the lever-arm distance z from Eqn 4.7-6 or &.7-7. I
Com I Note that K > K' is equivalent to M > Mu. I
Com ---------------------------------------------------------------
IF (K .LE. KDA5H) Z = (0.5 + SORT (0.25 - (K I 0.9))) * D
IF (K .GT. KDASH) Z = (0.5 +SORT (0.25- (KDASH I 0.9))) * D
Com Com ---------------------------------------------------------------
I z should not> 0.95d, see penultimate paragraph of Sect &.5.1
Com ---------------------------------------------------------------
IF (Z .LE. 0.95 * D) GO '1'0 200
WRITE (6,5010) Z
*
*
*