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)

464
Computer programs
398
399
400
401
402
403
404
40S
406
407
408
409
no
Ul
U2
U3
4U
us
U6
U7
na
U9
uo
Ul
U2
U3
U4
us
&26
&27
us
U9
uo
431
432
U3
434
43S
436
U7
438
439
uo
Ul
U2
U3
4U
us
U6
U7
U8
U9
450
451
452
453
454
45S
456
457
4S8
459
460
461
462
463
464
SOOO FORMAT
'
(//, I *********************************************',/,
' *Summary of Input Data for Program BMBRSR *',/,
• *********************************************',/)
5010 FORMAT ('Title for beam section : ', 40Al, /)
S020 FORMAT
(' Details of the Flanged Section :' /,
'
------------------------------ ' /,
'
'
'
'Effective flange width, beff 3PE10.3, 'mm', /,
• Planqe thickness, hf • 3PE10.3, • mm', /,
'Web thickness, bw 3PE10.3, 'mm', /,
'Effective depth, d 3PE10.3, 'mm', /,
'Depth of comp. steel, d'' = ', 3PE10.3, 'mm', /)
S02S FORMAT (' Details of the Rectangular Section :' /,
'
---------------------------------- ' /,
'
'
'
'
'Beam width, b = ', 3PE10.3, 'mm', /,
'Effective depth, d a', 3PE10.3, 'mm', /,
'Depth of comp. steel, d'' = ', 3PE10.3, 'mm', /)
5030 FORMAT ('Characteristic Strengths :'/,
I ------------------------'/,
'Concrete, feu=', 2PE10.2, 'N/mm**2', /,
'Reinforcement, fy = ', 3PE10.3, 'N/mm**2', /)
S040 FORMAT (' Loading Information :' /,
'
I
END
-------------------'/,
'Design ultimate moment, M = •, 3PE10.3, 'kHm', /,
' Moment redistribution ratio = OPE10.2, ///)
Cam ·····~···························································
~· *
~ * Subroutine Name : RECTAH ("' RECTANgular section)
~·
~·
~·
~·
Purpose : To determine the amount of bending reinforcement
for a rectangular beam section.
Com* Reference : Section 4.7 of Chapter 4.
~·
Com *****************************************************************
SUBROUTINE RECTAH (B, BETAB, D, DDASH, FCU, FY, KDASH, H, X, Z,
' AS, ASDASH, FSDASH, MU)
~ • • • • • Input parameters
REAL B, BETAB, D, DDASH, FCU, PY, KDASH, M, X, Z
~ • • • • • Output parameters •
REAL AS, ASDASH, FSDASH, MU
~ ---------------------------------------------------------------
~ I calculate the moment capacity due to concrete Mu in Hmm.
~ I from Eqn 4. 7-4 of Chapter 4.
~ ---------------------------------------------------------------
MU = KDASH * FCU * B * D ** 2
~ ---------------------------------------------------------------
~ I Check the moment capacity of the concrete Mu.
~ ---------------------------------------------------------------
IF (M * l.OE6 .LE. MU) GO TO 100
IF (M * l.OE6 .GT. MU) GO TO 200
Com ---------------------------------------------------------------
~ case 1 : Ultimate moment M is less than or equal to Mu.
Com The section is to be singly reinforced.
~ calculate the minimum amount of tension steel required from
~ Eqn 4. 7-9, see St.ep 2 of Section 4. 7 in Chapter 4.
~ ---------------------------------------------------------------
100 AS = M * l.OE6 / (0.87 * FY * Z)
RETURif