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)

458 Computer programs
Fig. 12.1-2 Listing of program BMBRSR
1
2
3
5 '
6
7
8
9
10
11
12
13
1&
15
16
17
18
19
20
21
22
23
2&
25
26
27
28
29
30
31
32
33
3&
35
36
37
38
39
&0
u
&2
u
"&5
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Com *****************************************************************
Com*
Proqram Unit Name : BMBRSR (= BeaM; Bending Reinforcaaent;
Simplified Rectangular)
COm*
Com*
COm*
Com*
Com*
Com*
Com*
Com*
Com*
Com*
Com*
Com*
Com*
Com*
Com*
Com*
Com*
Com*
Purpose
Reference
*
Authors
Design of bending reintorcaaent for a rectangular
or flanged beam section in accordance with
BS 8110 : 1985, using simplified rectangular
stress block.
This proqram refers to Sections 4. 7, 4.8 and
&.12 of Chapter & of Kong and Evans : Reinforced *
and Prestressed Concrete, van Nostrand Reinhold, *
lrd Edition, 1987. *
* * * * * * *
Dr H. H. A. Wong in collaboration with
Professors P. K. Kong and R. H. Evans
* *
*
Com * ProqraJIIDing Language : PRO FORTRAlf
Com*
Com * Operating Systems : IBM's PC-DOS and Microsoft's MS-DOS. *
Com*
Com * Version : KE3-4.12-8523P6
*
Com*
Com *****************************************************************
PROGRAM IIMBRSR
IIITEGER*l
REAL
REAL
DATA
BMTYPE, P, R
AS, ASDASH, B, BEPP, BETAB, BW, D, DDASH, PCU
PSDASH, PY, HP, K, KDASH, KP, M, MU, X, Z
P, R /'P', 'R'/
Com
Com
--------------------------------------------------------------
I Read in the section and material properties,. etc.
Com --------------------------------------------------------------
CALL III'IT (BMTYPE,
' B, BEPP, BETAB, BW, D, DDASH, PCU, PY, HP, M)
Com
Com
--------------------------------------------------------------
I Calculate the constants K, K', z and x for subsequent use. I
Com --------------------------------------------------------------
CALL COII'STA (BMTYPE,
' B, BEPP, BETAB, D, PCU, M,
' K, KDASH, X, Z)
Com
Com
--------------------------------------------------------------
I Check the type of section (rectangular or flanged).
Com --------------------------------------------------------------
IP (BMTYPE .EQ. R) GO TO 100
IP (BMTYPE .EQ. P) GO TO 200
Com --------------------------------------------------------------
Com I Calculate the areas of main reinforc-t for rectangular
COm I section.
Com --------------------------------------------------------------
100 CALL RECTAlf (8 1 BBTAB, D, DDASH, PCU, PY, mASH, M, X, Z,
'
AS, ASDASH, PSDASH, MU)
GO TO 300
Com --------------------------------------------------------------
Com I Calculate the areas of main reinforc-t for flanged
*
*
*
*
*
*
*
*
*
*