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 465
&65
&66
&67
&68
&69
no
&71
&72
&73
&7&
&75
&76
&77
&78
&79
&80
&81
&82
&83
&U
&85
&86
&87
&88
&89
&90
&91
&92
&93
&9&
&95
&96
&97
&98
&99
500
501
502
503
50&
505
506
507
508
509
510
511
512
513
51&
515
516
517
518
519
520
521
522
523
52&
525
526
527
528
529
530
531
Com
Com
Com
Com
Com
Com
200
Com
Com
Com
Com
Com
case 2 : Ultimate -t M exceeds Mu.
The section is to be doubly reinforced.
However, it needs to check whether As' reaches yield
strength at ULS or not, using lqn &.6-10 of Chapter &.
IF (DDASH I X .LE. (1,0 - FY I 800.0)) GO TO 210
IF (DDASH I X .GT. (1,0 - FYI 800.0)) GO TO 220
I The compression steel As' reaches the design strength at
I the ulti•te state. calculate the lli.ni.aa 111110unt of As'
I from Bqn &.7-10 and As from 1qn &.7-11 of Chapter &.
210 ASDASH • (M * l.OE6 - MU) I (0,87 * FY * (D - DDASH))
AS "' MU I (0.87 * FY * Z) + ASDASH
RETURN
Com ---------------------------------------------------------------
Com Here As • does not reach the design strength at the ultimate I
Com liadt state. calculate the minimum 111110unts of As' ' As from Com Eqns &.7-10 and &.7-1& of Chapter &, using a reduced stress I
Com fs' tor As • • t s • is calculated from Bqn &• 6-11 of Chapter &.1
Com ---------------------------------------------------------------
220 FSDASH = 700.0 * (1.0 - DDASH I X)
ASDASH = (M * l.OE6 - MU) I (FSDASH * (D - DDASH))
AS (MU * l.OE6 I Z + FSDASH * ASDASH) I (0.87 * FY)
cam *****************************************************************
Com* *
Com * Subroutine Name : RESULT (• RESULTs)
Com*
Com * Purpose : TO print out the results. *
Com* *
Com *****************************************************************
SUBROUTINE RESULT (BMTYPE,
'
AS, ASDASH, D, DDASH, FSDASH, FY, HF,
' It, KDASH, D, M, MU, X, Z)
IHTBGER*l
REAL
REAL
IHTIGER*l
REAL
DATA
XOD=XID
ZOD=ZID
Input parameters
BMTYPE
AS, ASDASH, D, DDASH, FSDASH, FY, HF
It, KDASH, D, M, MU, X, Z
• • • • • Local parameters
F, R
XOD, ZOO
F, R I'F', 'R'I
WRITE (6,5000)
Com ---------------------------------------------------------------
Com I Print out K, It', x/d, zld tor rectangular or flanged section I
Com ---------------------------------------------------------------
WRITE (6,5010) It, KDASH
WRITE (6,5020) XOD, ZOD
Com ---------------------------------------------------------------
Com I Check the type ot section (rectangular or flanged).