Professional Documents
Culture Documents
Prepared by
Kyungsik Kim
ChaiH. Yoo
Prepared for
MAV2002
Kyungsik Kim
and
Chai H. Yoo
May 2002
Acknowledgments
Disclaimer
ii
....
EXECUTIVE SUMMARY
An investigation was conducted to characterize and quantify the load intensity on deeply
buried concrete box culverts. For deeply buried structures, the dead weight of soil itself is the
main design load and the effect of live loads is not considered significant. The current AASHTO
Standard Specifications for Highway Bridges and AASHTO LRFD Bridge Design Specifications
stipulate the computation of the design load on the top flange of the box culvert based primarily
on research work by Marston and Spangler.
installation or embankment installation, the effective density (or the design soil-structure
interaction factor) on the concrete box culverts can be substantially different, as the settlement of
the backfill is affected by the vertical shear between the adjacent soil columns. Although the
AASHTO procedure may be applied conservatively for most ordinary culverts, an opportunity
exists to evaluate a more rational soil-structure interaction behavior based on modem methods of
finite element analyses.
The primary objectives are: 1) to evaluate factors directly influencing load intensities on
concrete box culverts under high backfill, including the effect of different installation methods;
2) to examine the performance of the traditional method of predicting loads on concrete box
culverts under high backfill; and 3) to develop a method that includes new design equations or
figures to predict the effective densities or soil-structure interaction factors for deeply buried
concrete box culverts.
To meet the objectives of this research project, three main tasks were carried out: 1) a
literature survey, 2) numerical analysis and evaluation of analytical data, and 3) the development
of design equations and graphical charts. In the first task, a thorough literature search was
III
problems were presented to illustrate the validity and reliability of the derived equations.
All three finite element programs, ABAQUS, CANDE-89, and ISBILD predicted the
effective densities or soil-structure interaction factors that were reasonably close to one another.
The results showed that the effective densities for embankment installations are most sensitive to
the foundation characteristics, i.e., whether on a yielding or unyielding foundation was used.
Concrete box culverts are most likely to be installed on a yielding foundation unless an obvious
solid bedrock layer is encountered.
compactness of fill along the sides of the box section does not appear to affect the effective
density significantly. The finite element analysis indicates that the effect of possible slips of the
backfill materials along the exterior culvert wall is negligibly small. The results also show that
imperfect trench installations reduce the effective density on the box culverts significantly.
IV
However, the size of the soft zone that is needed in the imperfect trench installations need not be
unnecessarily large. It has also been reported that the selection of the lightweight compression
material to be used in the soft zone and subsequent field installations demands considerable
planning and care. The current AASHTO equations, along with most other references, stipulate
the effective densities for the trench installations under the assumption that the trench walls are
excavated vertically. This study showed that the effect of sloping trench walls on the soilstructure interaction factors is quite high. As it is practically impossible and/or too expensive to
excavate deep trench walls vertically, the validity and usefulness of the current AASHTO
equations for trench installations is therefore questionable.
..
TABLE OF CONTENTS
CONCLUSIONS AND RECOMMENDATIONS FOR FUTURE STUDy ........ ........ .. ....... .. ... 77
6.1 Conclusions ................................... ... .. .. ........ ........ ...................................................... 77
6.2 Recommendations for Future Study ..... .... ................................................................. 78
REFERENCES .............. ................................... ................. ............ ..... ......... ........ .... .. ...... ........... . 80
APPENDICES
APPENDIX A
Vll
LIST OF TABLES
Table 2.1: Young's Modulus vs. Vertical Stress for the Overburden Dependent Model ......... ..... 8
Table 3.1: Design Values of Settlement Ratio ........................................... .. ....................... ...... ... 20
Table 3.2: Values ofCe in Terms of lUBe ......................................... .. .................... .. ................... 20
Table 3.3: Summary of the Hyperbolic Parameters .......... ...... .... ... ............ .... .............................. 33
Table 3.4: Stress-Strain and Strength Parameters for Soils under Drained Conditions ............... 36
Table 3.5: Stress-Strain and Strength Parameters for Soils
under Unconsolidated-Undrained Conditions ............................................................. 38
Table 4.1: Soil-Structure Interface Factor Comparison .............................................................. 47
Table 4.2: Values of Parameters of K st .................... .. ...... . .. . .. ..... .... .. .... ... .. ........ .. ................. . ....... 48
Table 5.1: Hyperbolic Parameters Used in the Analysis ........................................ ................... .. 53
Table 5.2: Pressure Reduction Rates (%) Due to Imperfect Trench Installation ....... ............. ... .. 60
Table 5.3: Vertical Displacements at Soft Zone (ft) .................................................................... 64
Table 5.4: Summary of Results for Example 1 ......... ............ .. .. ............ ........ ...... ... .. .. .. ........ .. ...... 73
viii
LISTS OF FIGURES
Figure 3.1: Pressure Transfer within a Soil-Structure System ...................... ............. .... .... .... ..... 15
Figure 3.2: Construction Conditions of Underground Conduits ..................... .. ... .... ... ... .. .. .... ...... 16
Figure 3.3 : Various Classes of Conduit Installations ........... .... .. ... .... ... ... ... ....... .. .... ................ .. ... 17
Figure 3.4: Diagram for Coefficient Cd for Ditch Conduits ............ ... .......... ........ .......... ....... ...... 21
Figure 3.5: Diagram for Coefficient Ce for Positive Projecting Conduits .... ..... ... .. .... ........ ......... 22
en
ix
Figure 5.5: Load Reduction Rate versus hlHc (Different Young's Modulus) ..... ...................... .. 61
Figure 5.6: Effective Density Distribution on the Box (Different wlBc) ..................................... 62
Figure 5.7: Effective Density Distribution on the Box (Different Young's Modulus) ................ 62
Figure 5.8: Load Reduction Rate vs. h'lHc ................................................................................... 63
Figure 5.9: Effective Density Distribution (wIBc=l, hlHc=1.25) ................................................. 63
Figure 5.10: Close-up View of Deformed Shape near the Soft Zone ..................... ... ....... ... .... ... 64
Figure 5.11: Effective Density vs. BdlBc .................................................................................... 66
Figure 5.12: Effective Density vs. HIBdon Yielding Foundation ............................................... 68
Figure 5.13: Effective Density vs. HIBdon Unyielding Foundation .................. ............... .......... 68
Figure 5.14: Trench Installation with Sloping Sidewalls ...................................................... ....... 70
Figure 5.15: Effect of Sloping Sidewall in Trench Installations (H=50 feet) ............................. 70
Figure 5.16: Effect of Sloping Sidewall in Trench Installations (H= 100 feet) ...... ..................... 71
Figure 5.17: Effect of Sloping Sidewall in Trench Installations (H=150 feet) ............... ............ 71
CHAPTERl
INTRODUCTION
2)
3)
To develop a method that includes new design equations or figures to predict the
effective densities for deeply buried concrete box culverts.
A literature survey,
2)
3)
In the first task, a thorough literature search was conducted to collect existing information
regarding innovative design guidelines that can be applied to a more realistic design load
evaluation for concrete box culverts. This task has resulted in a collection of a substantial
amount of material published on the subject, including the original Marston-Spangler theory, soil
modeling techniques, and applications of finite element analysis programs.
In the second task, a number of selected hypothetical culvert-soil systems were modeled
with different installation methods and foundation conditions, as well as a range of backfill
heights. The models were analyzed using finite element codes such as ABAQUS, a generalpurpose commercial finite element code, CANDE-89 (Culvert ANalysis and DEsign program),
and ISBILD (a computer program for the analysis of static stresses and movements in
embankments). This study presents results that are based on two-dimensional finite element
analyses, linear elastic analysis by ABAQUS, CANDE-89, and nonlinear analysis by ISBILD.
The construction layers were considered in these three programs. The backfill heights were
vaied from 50 to 200 feet for the embankment condition and 50 to 150 feet for the trench
condition. In the case of the trench condition, the distance between the concrete box culvert
wall and the adjacent existing trench soil column was also varied.
In the final task, the data collected in the second task were quantified and used to
formulate a set of equations for predicting effective densities.
CHAPTER 2
LITERATURE REVIEW
2.1 General
A culvert, in the fonn of an underground structure, in a unifonn soil field causes a
redistribution of the free field stresses and deflections. The nature of this redistribution
influences the load that reaches the structure, and the proportion of the load that reaches the
structure is governed by the characteristics of the soil, and the geometry and stiffness of the
structure itself. Marston pioneered an investigation of underground conduits both analytically
and experimentally in the early years of the 20th century. Most codes of practice for the design
and construction of underground structures have made use of the extensive experimental and
analytical studies carried out originally by Marston. Marston and Anderson[\] published an
authoritative paper on the theory of external loads on pipes in ditches and tests of cement and
clay drain tiles and sewer pipes in 1913. Marston issued a series of bulletins from then on; one
of the most useful works was a review of theories of external loads on closed conduits in 1930.[2]
The work was carried forward by Spangler, who published a bulletin concerning field
measurements of the settlement ratio of various highway culverts in 1950. [3] Marston discussed
the loads on rigid conduits in tenns of the shearing forces developed in the prism of soil above
the structure, making use of the following soil properties: density, the ratio between active
lateral and vertical pressure, cohesion, the angle of internal friction, and the stress-strain
characteristics of the soil. Marston also took into account the relative settlement of the soil
above and below the structure and the soil adjacent to the structure, the vertical deflection of the
top surface of the structure with respect to the base, and the compression in the soil prisms above
and adjacent to the structure. More details concerning the Marston-Spangler theory are
presented in Chapter 3.
Up until the twelfth edition of the AASHTO Standard Specifications for Highway
Bridges, [4] the stipulated vertical loading was essentially 70 percent of the weight of the earth
prism (120 Ib/ft3) above the top slab. Article 1.2.2(A) permits the application of Marston
formulas for definite conditions of bedding and backfill. The current AASHTO LRFD Bridge
Design Specifications[5] and Standard Specifications for Highway Bridges[6] requirements on the
design loadings on cast-in-place or precast concrete box culverts are based on the MarstonSpangler theory of the soil-structure interaction. These criteria were adopted by AASHTO in the
thirteenth edition of the Standard Specifications[7] in 1983. At the same time, the 0.7, vertical
soil pressure reduction factor, was eliminated. The current AASHTO Standard Specifications for
highway bridges[6] provide dead and wheel loads on the culvert transferred through the filling
soil in Section 6, "Culverts," and design guidelines of culverts including soil-structure interaction
factors, taking into account the type and conditions of installation, in Section 17, "SoilReinforced Concrete Structure Interaction Systems." The current AASHTO LRFD Bridge
Design Specifications[5] also provide methods of calculating total unfactored loading on concrete
box culverts, either cast-in-place or precast, in Section 12, "Buried Structures and Tunnel
Liners."
2.2 Soil model
Linear elastic isotropic material properties were used in earlier finite element analyses of
soil behavior. Two independent elastic constants are required to characterize the soil; Poisson's
ratio and Young's modulus, or shear modulus. It was readily recognized that successful
modeling required a judicious choice of the elastic moluli of various soil types. More common
representations of soil behavior, incorporated in the finite element codes, are the nonlinear
models represented by piece-wise elastic or stress-dependent moduli that are capable of handling
the laboratory stress-strain conditions. There are two general categories of stiffness and/or
compressibility models: (1) models based on constant confining pressure triaxial tests, and (2)
models based on uniaxial strain (confined) compression tests. The soil models in the first
category usually incorporate a failure condition, whereas those found in the second category do
not, because the failure condition is not defined in the uniaxial tests. Examples of the first
category are the Hardin model, [8] the Duncan model,l9,1O] and the bilinear modelY I] while the
overburden-dependent model[12] falls into the second category. Since the Duncan model is
capable of obtaining its compressibility parameters from the uniaxial compression test, it is the
most general of the models in the first category and one of the most frequently used models in
recent studies.
In the linear elastic model, where the soil is represented as a linear elastic material, it is
required that two independent elastic constants be defined, for example, Young's modulus, E,
and Poisson's ratio,
v. Based on a synthesis of the results of the plate load field tests, one-
dimensional compression tests, and triaxial compression laboratory tests, Sanderson and his
coworkers[l3] showed the best estimate of a representative Young's modulus for all of the
backfill to be in the range from 3,000 to 7,000 psi. The value of Poisson's ratio was determined
from the coefficient of lateral earth pressure at rest, Ko, which is required to define the initial
stress states of all of the newly placed soil elements for the finite element analysis. This
coefficient of lateral earth pressure relates the lateral stress,
OH,
OV,
using
the relationship:
(2.1)
The vertical stress, av, is calculated as the product of the total unit soil weight, Yr, and half the
vertical element height, H. The value of Ko was determined from the Mohr-Coulomb strength
parameter, , and the empirical correlation as:
Ko
= 1-sin
(2.2)
The Poisson's ratio, v, for the plane strain case may be calculated from Ko as follows:[24]
Ko
=--"--
(2.3)
l + Ko
For example, for a of 44 degrees, typical values of Ko and v are calculated to be 0.35 and 0.25
from Equations 2.2 and 2.3, respectively.
The Duncan model is the most frequently used soil model based on a nonlinear
constitutive relationship. Duncan and Chang[9] expanded the basic hyperbolic stress-strain
relationship of soil suggested by Kondner[14] to include failure ratios of soil, modulus numbers,
modulus exponent, and Poisson ratio parameters. In the Duncan model, triaxial and onedimensional compression tests are employed to determine the stress-strain, strength and
compressibility parameters. Details of the Duncan model are given in Chapter 3.
In a bilinear model, the stress-strain behavior of an individual triaxial test is represented
as a bilinear function consisting of a constant slope from zero to the peak deviator stress,
followed by a small positive slope after the peak. The constant slope represents the average
slope from zero to the peak stress. The reduction in stress following the peak is not modeled;
instead, a reduction of Young's modulus, i.e., the slope in deviator stress-axial strain plot to a
value of 111,000 of its original value is incorporated to handle failure. The relationship between
the constant average slope and the confining pressure was described by Janbu[15] in terms of
confining stress, atmospheric pressure, and an exponent determining the rate of variation of
constant modulus with confining stress.
One inconvenience of the overburden model is that the overburden-dependent,
incrementally elastic parameters, Young's modulus, E, and Poisson's ratio, v, cannot be
determined directly from a one-dimensional compression test. Sanderson and his coworkers[13]
used a bilinear model for back-calculation in order to reproduce one-dimensional compression
test results. McVay[16] proposed some vertical stress-dependent Young's moduli for the
overburden dependent model using one-dimensional compression test with a single finite
element. McVay's model incorporates a constant Poisson's ratio of 0.25. Table 2.1 lists the
moduli with their respective vertical stresses.
Table 2.1: Young's Modulus vs. Vertical Stress for the Overburden Dependent Model
Vertical Stress (psi)
0.0
44
0.5
623
1.0
840
3.0
1,100
5.0
1,170
10.0
1,720
15.0
2,200
20.0
2,700
25.0
3,200
30.0
3,600
40.0
4,600
which is characterized by the relative movement along the surface of contact when the shear
stress tangent to the interface exceeds the corresponding interface frictional resistance. The
modeling of the interface behavior for finite element applications is classified into two distinct
methods, i.e., the method of stiffness and the method of constraintsY2]
Goodman, Taylor and Brekke[17] were the first to develop the stiffness interface element
to account for the relative movements between rock joints. The element consists of two lines,
each with two nodal points. The two lines initially occupy the same position before deformation
and each node has two degrees of freedom, horizontal and vertical displacement, which can
simulate both tangential slippage across the interface and debonding of the soil and culvert.
However, the element suffers from certain difficulties. In order to prevent penetration of the two
contacting bodies when subject to compressive forces, a very large interface normal stiffness
must be supplied. On the other hand, some penetration is required in order to recover the normal
force at the interface. Leonards and WU[18] have indicated that due to the large normal stiffness,
the significant digits of penetration become truncated, hence the resulting interface normal force
would be in error. It has been shown by studies employing the method of stiffness that in most
cases the effects of slip between the soil and conduits are small. [16]
The concept of using constraint equations to represent interface behavior was first
introduced by Chan and Tuba.[I9] It is believed that Katona and his coworkers[J2] were the first
to develop a general theory for treating constraint equations in the formulation of interface
elements, and devised an iterative procedure for characterizing the interface behavior. The
interface element is defined by a set of paired nodes, one node belonging to the conduits and the
other the soil, each of which allows both horizontal and vertical displacements. A third node is
assigned to the interior of the paired nodes with the distinct purpose of providing equation
numbers for the normal and tangential interface forces. The resulting element stiffness matrix is
of the order of 6 by 6. Four kinematic states were defined to represent the interface behavior
based on permutations of either "fixed or "free" to describe the relative movements in both the
normal and tangential directions. However, the free state in the normal direction and the fixed
state in the tangential direction were disallowed from a physical point of view. For a given load
increment, the choice of correct interface states (kinematically) is determined by a trial and error
process. The trial responses are then used to determine if the assumed state is correct and, if not,
what the new trial state should be. [12] The interface behavior by constraint equation has been
programmed in the CANDE program[36] but has met with only limited success because of
difficulties of convergence. The linear and overburden-dependent soil models appear to be the
only two soil models free of the convergence problems with the interface elements in the
CANDE program. [18,20]
2.4 Imperfect Trench Installation
During the late 1800s and the early 1900s, the significant effect of the relative settlements
of the prisms directly above and adjacent to the buried conduits on the soil pressure was noted.
Consequently, it became a common practice to place the fill to a height of about 12 ft above the
structure, excavate a trench, and back fill this with an organic material such as hay, also known
as imperfect trench installation. It was intuitively expected that the result of this organic back fill
was to introduce a reverse arching effect with a radical alteration of the culvert pressure
distribution due to the fill subsequently placed above the hay level. With the completion of the
fill and the passage of time, the organic material would rot away and provide little effective
10
stiffness. It is believed that Brown[21] quantified for the first time in 1967 the pressure reduction
effect of the hay layers based on the finite element method of plane elasticity. An analytical
method incorporating the finite element analysis of plane elasticity was developed to account for
the practical features concerning how to describe the pressure distribution on a rigid culvert that
is buried with the light material zone. To verify the accuracy ofthe theoretical treatment and the
computer programs, the method developed was applied to a 200-ft-high fill embankment with
organic inclusions over a 10-ft high, barrel-shaped rigid culvert. Various properties offill and
organic hay zones with rigid and flexible rock-boundaries were tried for a series of practical
examples. The success of the method is largely dependent on the knowledge of the properties of
fill, rock, and hay inclusions. Lately, Vaslestad and his coworkers[22] revisited this imperfect
trench installation method to examine the long-term behavior of the load reduction
characteristics on rigid culverts beneath high fills. Super light expanded polystyrene blocks were
used as the compressible material. The full-scale measurements showed a considerable
reduction, 30%-50%, in the vertical earth pressure. The long-term observations showed that
there was no increase in earth pressure and deformation of the pipes beneath the rock fill and
only a slight increase in the deformation of the expanded polystyrene in the clay.
2.5 Finite Element Codes
The finite element method was originally introduced in the late 1950s as a tool for the
solution of stress problems related primarily to the aircraft industry. Since that time, the finite
element method has become a useful and accepted tool in many areas of civil engineering.
Linear and nonlinear stress analysis applications in geotechnical engineering for static and
dynamic loading was introduced in the late 1960s and early 1970s.
11
Kulhawy and his coworkers[23] developed LSBUILD, a finite element program for
stresses and movements in embankments during construction, in 1969. Ozawa and Duncan[24]
followed the work and developed ISBILD, which is an updated version of the older computer
program LSBUILD taking into account additional characteristics such as incompatible
displacement modes, a more accurate procedure for assigning initial stresses to elements, and
more efficient computational techniques. The computer program ISBILD was developed
originally in order to incorporate improvements in finite element analysis techniques into a
computer program for analysis of stress and movements in dams. This program incorporates a
nonlinear incremental finite element method employing a hyperbolic stress-strain relationship
and incremental analysis procedures. Allen and Meade[25] used the program ISBILD to predict
loads on and settlements of concrete culverts that had been actually installed in the Kentucky
area. Soil parameters for the original ground were obtained from triaxial tests of materials from
the actual construction site. Their results indicated that the finite element method predicted the
pressure on box culverts more accurately than other analytical methods available at the time.
Katona and his coworkers[12] pioneered the application of the finite element method for
the solution of buried pipe problems. Their FHWA-sponsored project produced CANDE, which
is a special-purpose finite element program primarily intended for the design and analysis of
buried culverts. Some useful features of the program include incremental construction to model
the physical process of constructing soil layers in a progressive manner, linear and nonlinear soil
models, nonlinear beam-rod elements to model yielding and cracking of structural components,
and frictional interfaces between soil and structure to simulate frictional sliding during the
loading. The CANDE program has been widely used for soil-structure analysis and evaluation
of buried box culvert designs by a number of researchers, including Chang and his coworkers, [20]
12
Katona and Vittes,[26] and Tadros and his coworkers. [27] CANDE has been upgraded several
times, with the latest version being CANDE-89[28] (available from McTrans, University of
Florida).
ABAQUS,[30] developed by Hibbit, Karsson & Sorensen, Inc., is one of the most broadly
used general-purpose commercial finite element codes. Yang and his coworkers[29] made use of
ABAQUS to model and predict loads on a double-cell concrete box culvert under a backfill of 36
feet. A non-associative Drucker-Prager elasto-plastic model with linear yield criteria was chosen
for the gravel surrounding the culvert, the backfill material, and the existing excavated slope.
The interface between the structure and the surrounding fill was represented by contact pair
surfaces, which allow sliding and loss of contact during the loading.
In order to investigate the soil-structure interaction effect on load intensity on concrete
box culverts, the following three finite element programs will be used in this study, i.e.,
ABAQUS Version 5.8,[30] ISBILD (Computer Program for Analysis of Static Stresses and
Movements in Embankment),[24] and CANDE-89 (Culvert ANalysis and DEsign Program).[28]
Analyses made in this study using these three finite element programs are based on the plane
strain geometry and the small displacement theory.
13
CHAPTER 3
BACKGROUND AND THEORY
14
~ ----------- -I
I
I
I
I
I
I
I
--------- 1I
r- -------Direction of
Relative Settlement
}- - - ----- -:
H-------Jl
I
I
I
I
I
I
I
I
I
I
Direction of
Relative Settlement
Structure
Structure
Embankment Installation
Trench Installation
two broad categories, trench installations and embankment installations. Spangler and Handy[31]
categorized buried conduits into several groups and sub-groups based on the various construction
conditions that influence loads on underground conduits. Figure 3.2 shows their classification
for underground conduits.
A ditch conduit is defined as one that is installed in a relatively narrow ditch dug in
passive or undisturbed soil and which is then covered with earth backfill. A positive projecting
conduit is one which is installed in shallow bedding with its top projecting above the surface of
the natural ground and which is then covered with an embankment. Railway and highway
culverts are frequently installed in this manner. A negative projecting conduit is installed in a
relatively narrow and shallow ditch, with its top at an elevation below the natural ground surface,
15
which is then covered with an embankment. This is a very favorable method of installing a
railway or highway culvert, since the load produced by a given height of fill is generally less
than it would be in the case of a positive projecting conduit. This negative projecting method of
construction is most effective in minimizing the load if the ditch between the top of the conduits
and the natural ground surface is backfilled with loose uncompacted soil or organic material,
such as baled hay. The imperfect ditch conduit, sometimes called the induced trench conduit, is
I UNDERGROUND CONDUITS
I
I Projecting Conduits I
Ditch Conduits
Positive Projecting
Conduits
Complete
Projection
Condition
Incomplete
Projection
Condition
Complete
Ditch
Condition
Incomplete
Ditch
Condition
I
Complete
Ditch
Condition
Special Cases
Incomplete
Ditch
Condition
Negative Projecting
Conduits
I
Imperfect
Ditch
Conduits
Wide
Ditch
Conduits
Conduits on
Compressible
Beddings
an important special case that is somewhat similar to the negative projecting conduit, but is even
more favorable from the standpoint of reduction of load on the structure. Obviously, this method
of construction should not be employed in embankments that serve as a water barrier, since the
loosely placed backfill may encourage channeling of seepage water through the embankment.
The essential elements of these four main classes of conduit are shown in Figure 3.3.
Natural
ground \
(a)
(b)
Top
of embankment
' ,HI)Ql)fJJ.IP..JfI!f/ffll!i/lll!llllhu;m(,.1;nin!f//1!i
IU/JImJjl),':r!lIJJUJlllhlfJ.JII1f1?%,,;;;;;;.7i>fI1lIl
-1 j /
0 \
Compacted L _ _ __ J Compacte'd
Natural\
grOund\\
(c)
(d)
17
= CdY B~
(3.1)
= CcY B;
(3.2)
= ClIy B;
(3.3)
where Cd, Ce, and Cn = load coefficients; Bd = horizontal width of ditch; and Be = width of ditch.
Although graphical diagrams are provided for the computation of coefficients, there still exist
many practical difficulties because the load coefficients proposed contain certain parameters that
cannot be determined readily, such as settlement ratio and height of plane of equal settlement.
Graphical diagrams for Cd, Ce , and Cn are presented in Figures 3.4, 3.5, and 3.6. For load
coefficients, Ce in Figure 3.5, the rays are straight lines that can be represented by equations for
use when the value of H1Be exceeds the limit of the diagram. These equations are given in Table
3.2. Symbols used in the figures are defined as follows:
Bd
Be
J.1
J.1'
projection ratio, the vertical distance from natural ground surface to the top of
the structure divided by the structure height,
p'
r sd
Sill
where
Sm
Sg
sf
de
rsd,
of the load formula, it is very difficult to predetermine the actual value that will be developed in
a specific case. Spangler and Handy[31) recommended design values of the settlement ratio based
on observations of the performance of actual culverts under embankments, as shown in Table
3.1.
Conditions
+1.0
+0.5 -+0.8
0.0 - +0.5
-0.4 - 0.0
-0.2 -+0.2
K.u = 0.19
K.u = 0.13
rsdP
Equation
rsdP
Equation
+0.1
-0.1
+0.3
-0.3
+0.5
-0.5
+0.7
-0.7
+1.0
-1.0
+2.0
20
3
2
V.lues or cocrnci~nl Cd
21
10
:t: i oe"
....0
OIl
Kil
=0.13
:;
>
2
Kil '" 0 .19
10
Values of coefficient Cc
22
a. I-.....:,...+-~+--H'-fl-+-I-i-
6 1---1-- 1 - -
::: ","
~
:::::l
o
V.lues or I!ocfficicnl
en
(a)
10
(b)
10
~'r7Vyo~:;
It~I/1 ]I V
i "'17'.
.J
,."
~.
T;;:i
. r
11t h
V~<ii'
:!!'1V/
1;<
jW/;V/ V
IOn
I
f
"'Iol'
ttl~V
/
:!
,t'". 0.1l
~/
71 1//
K~ =
0. 13
~/
J~
o
8
Values (lr c~mdenl
en
t:::::J'
o'
.,'
"
, ..
WV
I ';
8
//
..
//
l/
;7
1/
/7
V-
//
If
//
?/
~
Valun 01 cl)C'(fkienl
(c)
'f!;V,;
~I
1/ /
j/
o
".AVi
;Iri'f.1Ij <Mdltl:~'-: r::i
,.;
en
(d)
23
approximately documented analytical techniques based on the principles of soil mechanics and
soil structure interaction, or design pressure can be calculated as being the results of an
equivalent fluid weight as follows:
30 pcf
120 pcf
30 pcf
60 pcf
C. Flexible Culverts
For vertical earth pressure 120 pcf
For lateral earth pressure
120 pcf
The effects of soil-structure interactions can be taken into account based on the design
earth cover, sidefill compaction, and bedding characteristics. These parameters may be
24
determined by a soil-structure interaction analysis of the system. The loads given above may be
used if they are multiplied by a soil-structure interaction factor, Fe, that accounts for the type and
conditions of installation, so that the total earth load, We, on the reinforced concrete box section,
either cast-in-place or precast, is:
(3.4)
Embankment Installation
(3.5)
Trench Installation
F
= CdB~
(3.6)
HB
02
where H
backfill height;
Be
Bd
Cd
Fe/ need not be greater than 1.15 for installations with compacted fill at the sides of the
box section, and need not be greater than 1.4 for installations with uncompacted fill at the sides
of the box section. The load coefficient for trench installation, Cd, is included in Equation 3.2 as
a variable. Although the current AASHTO Equation is based on the Marston-Spangler theory,
the load coefficient, Cd, based on the Marston theory, remains the same. Load coefficients for
trench installation, Cd, provided in the graphical diagram for several soil types in AASHTO, are
identical to those of the Marston-Spangler theory as described in the previous section, Figure 3.4.
25
CYj, 0'3 =
8 =
and a, b = constants whose values may be determined experimentally. Both of these constants a
and b have readily discernible physical meanings. As shown in Figures 3.7 and 3.8, a is the
reciprocal of the initial tangent modulus, E;" and b is the reciprocal ofthe asymptotic value of the
stress difference which the stress-strain curve approaches at infinite strain (a/-a3)u/t. The values
of the coefficients, a and b, may be determined readily if the stress-strain data are plotted on
transformed axes, as shown Figure 3.8. When Equation 3.7 is rewritten in the following form:
&
----=a+b&
(a, - 0'3)
(3.8)
it may be noted that a and b are the intercept and the slope of the reSUlting straight line,
respectively. By plotting stress-strain data in the form shown in Figure 3.8, it is straightforward
to determine the values of the parameters, a and b, corresponding to the best fit between a
hyperbola and the test data. It is commonly found that the asymptotic value of (0'/-0'3) is larger
than the compressive strength of the soil by a small amount, because the hyperbola remains
below the asymptotic at all finite values of strain. The asymptotic value may be related to the
compressive strength, however, by means of a factor Rf
(3.9)
26
Axial Strain - E
6
~
I
4)
g
4)
....
i:S
'"'"
l:I
4)
CI)
I:
'g
CI)
C;
Axial Strain - E
27
where
(0)-0'3)/=
(O'j-0'3)ult=
the
asymptotic value of stress difference; and Rf= the failure ratio, which always has a value less
than unity. For a number of different soils, the value of Rf has been found to be between 0.75
and 1.00, and is essentially independent of confining pressure. By expressing the parameters a
and b in terms of the initial tangent modulus value and the compressive strength, Equation 3.7
may be rewritten as
(3.10)
This hyperbolic representation of stress-strain curves has been found to be fairly useful in
representing the nonlinearity of soil stress-strain behavior. Except in the case of unconsolidatedundrained tests on saturated soils, both the tangent modulus value and the compressive strength
of soils have been found to vary with the confining pressure employed in the tests. Experimental
studies by Janbu[15] have shown that the relationship between tangent modulus and confining
pressure may be expressed as
(3.11 )
where E; = the initial tangent modulus;
0'3
0'3;
0'3.
If it is assumed that failure will occur with no change in the value of 0'3, the relationship
between compressive strength and confining pressure may be expressed conveniently in terms of
the Mohr-Coulomb failure criterion as
28
(a l -a3 ) f
.
(3.12)
where c, = the Mohr-Coulomb strength parameters. Equations 3.11 and 3.12, in combination
with Equation 3.4, provide a means of relating stress to strain and confining pressure using the
five parameters K, n, c, , and Rj. Nonlinear, stress-dependent stress-strain behavior may be
approximated in finite element analyses by assigning different modulus values to each of the
elements into which the soil is subdivided for purposes of analysis. The modulus value assigned
to each element is selected on the basis of the stresses or strains in each element. Because the
modulus values depend on the stresses, and the stresses in tum depend on the modulus values, it
is necessary to make repeated analyses to ensure that the modulus values and stress conditions
correspond for each element in the system.
The stress-strain relationship expressed by Equation 3.10 may be employed in
incremental stress analyses because it is possible to determine the value of the tangent modulus
corresponding to any point on the stress-strain curve. If the value of the minimum principal
stress is constant, the tangent modulus, E(, may be expressed as:
(3.13)
If Equation 3.13 is then differentiated, and the strain,
8,
initial tangent modulus, E;, in Equation 3.10 and the compressive strength, (a1-a3)!, in Equation
3.12 are substituted into the result of the differentiation, the following expression is obtained for
the tangent modulus:
(3.14)
29
For the hyperbolic stress-strain relationships, the same value for the unloading-reloading
modulus, Eur, is used for both unloading and reloading. The value of Eur is related to the
confining pressure by an equation of the same form as Equation 3.11 :
(3.15)
where Kur is the unloading-reloading modulus number. The value of Kur is always larger than the
value of K (for primary loading). Kur may be 20% greater than K for stiff soils such as dense
sands. For soft soils such as loose sands, K ltr may be three times as large as K. The value of the
exponent n is always very similar for primary loading and unloading, and in the hyperbolic
relationships it is assumed to be the same.
The value of the tangent Poisson's ratio may be determined by analyzing the volume
changes that occur during a triaxial test. For this purpose it is convenient to calculate the radial
strains during the test using the equation
(3.16)
where 6v and
8a
are the volumetric and axial strains. Taking compressive strains as positive, the
value of 8a is positive and the value of 8r is negative. The value of 8 v may be either positive or
negative. If the variation of 8 a versus
8r
8
a
-8
(3.17)
VI -
d8,
As shown in Figures 3.9 and 3.10, this equation may be transformed as follows:
(3.18)
30
",
Vi
- Er
31
In Equation 3.18,
Vi
the change in the value of Poisson's ratio with radial strain. For saturated soils under undrained
conditions, there is no volume change and
Vi
(3.19)
where G is the value of Vi at a confining pressure of one atmosphere, and F is the reduction in
for a ten-fold increase in
0"3.
6"
Vi
substituting
Equation 3.19, and eliminating the strain using Equations 3.8 to 3.11, the tangent value of
Poisson's ratio may be expressed in terms of the stresses as follows:
(3.20)
where
=
O"j, (J'3
parameters; Pa = atmospheric pressure. There are nine parameters involved in the hyperbolic
stress-strain and volume change relationships, and the roles of these parameters are summarized
in Table 3.3.
Nonlinear volume change can also be accounted for by employing the constant bulk
modulus instead of Poisson's ratio parameters. The assumption that the bulk modulus of the soil
is independent of stress level
(0"1-0))
reasonable approximation to the shape of the volume change curves. According to the theory of
32
K, Kur
Function
Name
Modulus number
Modulus exponent
Cohesion intercept
Relate (a/-a3) to a3
Friction angle
Rj
Failure ratio
Value of Vi at (j3=Pa
Decrease in
Vi
(3 .21)
3E"
where B is the bulk modulus, L1a/ . .10'2, and L1a3 are the changes in the values ofthe principal
stress, and L1Ey is the corresponding change in volumetric strain. For a conventional triaxial test,
in which the deviator stress (0'/;'0'3) increases while the confining pressure is held constant,
Equation 3.21 may be expressed as;
(3.22)
The value of bulk modulus for a conventional triaxial compression test may be calculated using
the value of (a/-0'3) corresponding to any point on the stress-strain curve. When values of Bare
33
calculated from tests on the same soil specimen at various confining pressures, the bulk modulus
will usually be found to increase with increasing confining pressure. The variation of B with
confining pressure can be approximated by an equation of the form:
(3.23)
where Kb is the bulk modulus number and m is the bulk modulus exponent, both of which are
dimensionless. Pa is atmospheric pressure. Experimental study of this soil model, sometimes
called the modified Duncan model, has resulted in, for most soils, values of m varying between
0.0 and 1.0. Ifa bulk modulus is known, the tangent Poisson's ratio can be determined from the
basic theory of elasticity by the following equation:
E,
=--2 6B
(3.24)
Some parameters for this Duncan model are listed in Tables 3.4 and 3.5 from drained and
undrained conditions, respectively. These tables have been reproduced from Duncan and his
coworkers[33] and Wong and DuncanYO]
Although the hyperbolic relationship outlined previously has proven to be quite useful for
a wide variety of practical problems, it has some significant limitations:[33] 1) Being based .on
the generalized Hooke's law, the relationships are most suitable for analysis of stresses and
movements prior to failure. The relationships are capable of predicting accurately nonlinear
relationships between loads and movements, and it is possible to continue the analyses up to the
stage where there is local failure in some elements. However, when a stage is reached where the
behavior of the soil mass is controlled to a large extent by properties assigned to elements which
have already failed, the results will no longer be reliable, and they may be unrealistic in terms of
the behavior of real soils at and after failure. 2) The hyperbolic relationships do not include
34
volume changes due to changes in shear stress, or shear dilatancy. They may, therefore, be
limited in the accuracy with which they can be used to predict deformations in dilatant soils,
such as dense sands under low confining pressures. The values of tangent Poisson's ratio
calculated using Equation 3.13 may exceed 0.5 for some combinations of parameter values and
stress values, so it needs to be specified to be less than 0.5 in the computer program. 3) The
parameters are not fundamental soil properties, but only values of empirical coefficients that
represent the behavior of the soil under a limited range of conditions. The values of the
parameters depend on the density of the soil, its water content, the range of pressures used in
testing, and the drain conditions. In order that the parameters will be representative of the
behavior of the soil under field conditions, the laboratory test conditions must correspond to the
field conditions with regard to these factors.
3.4 Tangent Stiffness for Interface Shear Behavior[34]
The nonlinear stress dependent interface behavior may be represented by means of
equations similar to those for Duncan's hyperbolic stress-strain relationships of soils. The
nonlinear stress-displacement curves may be approximated by a hyperbola having an equation of
the form:
r=
Lt,.
a+ b4
(3.25)
where r= interface shear stress; Lis = interface displacement; and a and b :: empirical coefficients
whose values are determined experimentally. The values of these coefficients may be
determined most readily if the stress-displacement data are transformed to another set of axes, on
which the hyperbola plot as straight lines. By transposing Equation 3.25, the following
relationship may be obtained:
35
Table 3.4: Stress-Strain and Strength Parameters for Soils under Drained Conditions
Compaction
Soil
0'1
Soil Description
Group
Type
Max. DIY
UnitWt
(PCF)
Opt.
W/C
DI)'
U.WI.
(PCF)
W/C
C
(TSF)
Rr
K"
DO 50 (10)
.00 44 ( 9)
. 00 49 ( 6)
540
210
560
.43
. 51
.48
. 64
.64
. 65
. 25
. 33
. 09
. 10
4. 5
6.4
135
100
330
.34
. 34
.33
. 00 53 ( 7)
. 00 SO l 1)
. 00 51 l 9)
950
690
690
.52
.51
.45
. 59
. 51
. 59
.21 - . 01 13.7
.38
. 11 11.2
. 10 27 . 3
.14
470
360
170
.52
.51
.2 2
340
420
450
. 28
. 50
. 37
.11
.18
. 61
. 18
. 22
.34
. 04
. 06
. 16
7. 4
4. 7
1. 8
52
125
255
.18
.4 6
. 18
. 33
. 40
. 59
. 07
7.1
900
195
.22
.16
0
. 17 14 .6 1400
.2 5 4.2
45
. 14 5.5 600
0
0
0
+0(1'.+)
GW
GW
GW
GW-l
GW-2
GW-3
GW
GW
GW
GW-4
GW-5
GW- 6
GW
GP
GP
GW-l
GP-2
GP-3
105.1
133.8
.00 46 ( 9)
.00 41 ( 3)
. 00 52 (10)
GP
GP
GP
GP-6
GP-7
GP- ll
.00 53 ( 8) 1300
.00 51 ( 6) 1780
. 00 51 (14)
410
. ~O
.72
. 39
91. 6
148. 0
152 .0
99 .0
.67
.71
GP
GC
SW
GP-13
GC-1
SW- 1
10.8
. 00 58 (10) 2500
.28 19 ( -)
99
. 00 53 ( 9) 1600
.21
113 . 0
135 . 0
101 . 0
111.6
. OB
.72
. 35
. 29
. 33
SW
SW
51'1 - 2
SW-3
13.2
125 . 4
108 . 7
. 00 55 (10) 1000
.00 38 ( 3) 260
. 22
. 50
. 70
.76
.31
. 35
.11
5. 6
3.0
390
100
. 14'
.5
SW
SP
SP
SW-5
SP-3
SP-4A
. 00
.00
6.9
4.8
2.9
SP
SP
SP
SP-4B
SP-4C
SP- 4D
SP
SP
SP
SP-5A
SP-5B
SP-1A
100.0
SP
SP
SP
SP-7B
SP-7C
SP- 12
100. 0
100. 0
SP
SP
SP
SP-13
SP-14
SP-16A
,SP
ISp
'SP
SP-16B
SP-l7A
SP-l7B
SP
SP
SP
SP-17C
SP-l7D
~P-18
-
118.9
123 . 1
132.1
16,450
120.0
118.3
-- -
13.0
13.0
13.0
87 . 4
80.7
120.1
10.8
13 . 5
.2 1
. 70
.75
.86
. 46
. 13
2.7
117 .5
112. 3
89.5
.0 0 35 ( 2)
330
190
430
. 46
.70
. 27
. 51
. 51
. 84
. 20
.37
. 42
.07
. 16
. 21
110
190
230
.46
.35
.02
94 .0
97 . B
103 .9
.0 0 37 ( 2 ) 410
.0 0 41 ( 5 ) 1100
.00 45 ( 7 ) 1200
.69
.36
.48
. 90
. 85
.85
.35
. 46
.50
. 17 5.9 260
. 22 8.9 900
.23 11.7 1500
.15
95.5
.00 31 ( 1. ) 890
.00 47 ( 9 ) 1100
. 00 39( 0 ) 41 0
.26
.57
.65
. 78
. 8&
. 84
. 35
.69
.10
.29
2.4 360
7.1 2250
.11
0
.00 40 ( 1)
.00 44 ( 3)
. 00 39( 6)
400
750
280
.49
.71
.37
. 83
. 11
. 20
.12
7.1
95
. 21
. 00 48 (10)
. 00 49 (12)
. 00 30 ( 0)
340
650
280
.45
. 36
.65
.70
.93
.33
. 28
.35
.21
. 01
.07
6.1
6. 9
3.5
230
380
110
. 06
.05
.65
. 00 31 ( 0) 1400
. 00 35 ( 0)
920
. 00 39 1 0) 510
.74
.79
.51
.90
.96
.91
.15
.32
. 22
. 00 45( 3 ) 3200
.00 47 ( 5) 1500
.00 39(13) 1600
.78
.76
. 08
. 92
. 91
.63
.34
.48
.34
. 12 75.9 1400
.30 13.5 1100
. 16 12 . 3 150
.4 S
.52
0
100 . 0
105 . 1
74. B
84.2
76.9
9.5
3.2
120.0
18 . 0
25 . 0
9.5
43(
4)
44 (
~)
a
0
. 71
. 71
Soil Descriprion
Group
Type
Max. Dry
VnitWt.
(PCf)
w
-.)
Dry
V.Wt.
(PCf)
W/C
C
(TSf)
,.(A.)
Rr
Std.AASHO
Std.AASHO
16,450
123.0
132 .0
110.6
9.5
8.1
17 .5
116 . 7
124. 5
108 . 1
9.4
1 .53
11.5
.00 37 ( 0 )
.00 41( 0)
.00 46 ( 81
100 1.07
530 .51
100 .35
.62
. 62
.15
. 41
.18
6.0
16,450
91.1
105.6
109 .3
19 . 5
16.4
12.9
88 .4
104. 5
109.
19.0
15 .
12.
.00 O( 8)
.00 36( 5)
. 00 36(11)
610
530
800
.25
.28
.20
.12
.14
.61
. 39
.38
.39
.17
.11
. 10
Std.AASHTO
Std.AASHTO
Std . AASHTO
136.0
136.0
136.0
9.8
9 .8
9.8
131.1
134.0
128.2
1.1
9.7
11.9
. 31 33 ( - )
. 85 34 ( - )
. 40 45 [ - )
700
425
160
. 31
.58
.81
. 80
.10
.63
.25
.21
. 26
16,450
97.0
19.0
108 . 0
92 . 8
11.7
. 00 45 ( 6)
.00 42 ( 7)
200 1.01
500 .45
. 51
. 82
ML-5
CL-29C
CL-29D
16,450
Harvard
Harvard
102 .5
116 .2
116 .2
16 . 5
15.2
15.2
99 . 2
111.2
116 . 2
17 . 0
13 . 1
13. 3
. 00 36( 1)
. 17 30 ( -)
.5!:! 29 ( -)
530 .35
550 -.05
690 .10
CL-30E
CL-30F
CL-34E
Harvard
Harvard
Harvard
112.8
112 .8
105. 6
16.7
16.7
19.8
115 . 1
110 . 0
106 . 3
15 . 2
17 . 4
19 .0
.51 33( -J
.39 30 ( - )
.26 31 ( - )
150
160
130
SM
SM
SM
SM-4
SM-S
SM-6
SM
SM
SM
SM-9
SM-13
SM-16
SM-SC
SM-SC
SM-SC
SM-SC-1A
SM-SC-1B
SM-SC-1C
ML
ML
ML-1
ML-4
i'lL
L
L
CL
CL
CL
- --
Opt.
W/C
.62
.50
.59
K"
640
6.1
3.9
4.1
500
410
600
0
0
0
.02
. 05
.04
5.5
1.9
6.2
280
205
65
.19
.44
. 81
.33
.41
. 02
. 39
1.3
6.9
200
400
.8 9
0
.11
.82
. 11
.39
. 03
3.2
520
. 23
. 61
.63
. 12
. 58
. 33
.14
2.3
2.5
360
210
45
0
0
. 59
. 41
Table 3.5: Stress-Strain and Strength Parameters for Soils under Unconsolidated-Undrained Conditions
Compaction
Soil
Group
Soil Description
Type
00
Opt
W/C
Dry
U.Wt
(PCF)
W/C
C
(TSF)
~.(6+>
Rr
K.
. 71
.39
2.5
12000
- . 99
. 78
.03 13.3
250
.00
GC
GC
SP
GC-2A
GC-2B
SP-8D
Std.AASHO
Std.AASHO
Mod.AASHO
138.6
138.6
109.5
8.1
8.1
11.8
139 . 0
139.0
104.0
8.1
B. l
11.8
1. 50
24
10.01
3
.00 37( 4)
540
190
590
.51
.95
1.10
.84
.97
.89
SP
SP
SP
SP-8E
SP-8F
SP-9D
Mod.AASHO
Mod.AASHO
Mod.AASHO
109.5
109 5
101. 1
11.8
l1.B
13.6
98.6
110 .0
101.3
11 . 8
11. 2
13 . 6
. 00 37 ( 8)
. 00 O( 9)
.00 44 ( 6)
770
940
420
- .14
.00
.61
.87
.B2
.16
SP
SP
SM
SP-9E
SP-9F
5M-1
Mod . AASHO
Mod.AASHO
Std.AASHO
101. 1
101. 1
122 . 9
13.6
13.6
10.0
96.2
92.0
124.0
13.3
12.4
9.4
.00 44 (11)
.00 40 ( B)
. 00 42( 5)
850
410
00
.19
.51
.3B
.92
.86
.51
SM
SM-3A
SM-3B
SM-3C
SM
Std.AASHO
Std.AASHO
Std.AASHO
109.1
109.1
109.1
13.4
13.4
13.4
109 .3
104.1
103 . 6
13 . 4
13.2
16 . 7
. 00 40( 2)
.00 40 ( 6)
. 00 39( 4)
350
420
340
.91
.84
.64
.69
. 75
. 12
SM-SC
SC
SC
SM-SC-2
SC-2
SC-3
Std.AASHO
Std.AASHO
20,000
129.2
123.3
125.8
9 .2
12 .0
9 .B
131.0
122.0
123.2
8. 8
12.0
9. 6
2.60
31
18
26
320
39
3900
.35
. 61
- .OB
. B6
. 55
. 93
SC
SC
SC
SC-S
SC-6A
SC-7B
Std.AASHO
Std.AASHO
Std.AASHO
120.1
U .2
U.7
15 .0
126.0
116.2
110.0
B.3
14.7
17.0
1. 80
1. 30
1.10
115.0
0
0
510
52
250
.37
.00
.00
.63
. 76
. 97
i'lL
/'IL
ML
ML-2A
ML-2B
ML-3A
Std.AASHO
Std.AASHO
Std.AASHO
115 . 0
115.0
10B.8
12.8
12 . 8
13.6
10B.7
109.3
104.0
15.6
1 .80
. 39
. 42
19
30
31
200
12.7
11.6
240
. 59
1.43
. 31
.86
.72
. 83
ML
CL
ML-38
ML-3C
CL-IA
Std.AASHO
Std.AASHO
Std.AASHO
108 .8
10B. 8
110. 0
13 .6
n .6
18.0
104.0
104.0
108.7
13 . 6
16.6
16. 7
.19
.54
. 53
31
27
29
270
100
260
.3B
B4
.60
.B2
. 77
. 87
CL
CL
CL
CL-IB
CL-2A
CL-2B
Std.AASHO
Std.AASHO
Std.AASHO
110.0
110.5
110.5
16 . 0
l6 . 4
16 .4
107. 0
107 . 1
104 . 0
19.5
19 . 1
21.2
1.20
.95
.42
14
0
0
39
66
10
.48
.00
.03
. 58
. 75
. 52
CL
CL
CL
CL-3
CL-SA
CL-5B
Std.AASHO
Mod.AASHO
Mod.AASHO
106.B
118.9
11B.9
18 .0
13 . 5
13.5
102.0
105.4
109.1
21. 7
11 . 5
14 . 3
1. 00
. 92
1. 50
0
31
17
36
650
760
. 00
- .68
- . 14
.57
. 90
.93
. 29
. 31
.20
.09
2.B
3.1
190
240
- . B1
- .21
CL
CL
CL
CL-SC
CL-SE
CL-5F
Mod.AASHO
Mod.AASHO
Mod.AASHO
11B.9
118.9
118.9
13 . 5
U .S
13. 5
109.0
112.7
114.7
16.8
11.5
14 .5
1.30
1.80
1.90
6
24
13
00
2400
2000
.10
- . 74
- .30
.93
.92
. 97
. 2B
.30
.25
.06 5 . 8
.14 6 . 2
.16 10.1
115
740
460
. 10
- . 96
- . 64
CL
CL
CL
CL-5H
CL-SI
CL-6A
Mod.AASHO
Mod.AASHO
Std.AASHO
11 8. 9
118.9
11 0 . 3
13 .5
13 .5
14 .5
10B.8
119.3
105.0
8.7
11.7
12.5
1.50
3.30
. 64
32
18
29
8900
5000
320
-1.10
- .28
- .21
.97
.95
.80
. 22
. 28
.07 19.7
.02 12.4
1900
1400
-1.10
- .33
CL
CL
CL
CL-6B
CL-7A
CL-7B
Std.AASHO
Std . AASHO
Std.AASHO
110.3
107.5
107.5
14 .5
17.2
17.2
105.0
107.9
107 . 2
14 . 5
17 .2
17 .0
. 50
1. 00
1.00
29
2
1
190
. 02
. 23
- . 05
.81
. 87
. B4
51'1
Max. Dry
UnitWt.
(PCF)
ML
122.0
. 98
.92
27
14
6B
Soil
Group
Soil Descriprion
Max. Dry
VnitWt.
Type
(peF)
w
\0
CL
CL
CL
CL- I0B
CL-11A
CL- 11B
CL
CL
CL
Opt.
W/C
Dry
V.Wt.
(peF)
w/e
e
(TSF)
.o(t.+>
IV
K"
In
I
110.7
107 . 5
107 . 5
15.0
16 . 8
16 . 8
106.5
100 . 3
106 . 5
15.0
13 . .5
13.3
. 55
. 78
1. 50
22
28
25
290
680
600
.27
- .36
.18
. 91
. 84
. 68
CL-11C
CL-llD
CL-11E
Std . AASHO
Std.AASHO
Std.AASHO
107.5
107.5
107.5
16 . 8
16 . 8
16 . 8
102.6
106.7
101. 5
19 . 3
16.1
16 . 3
.74
. 91
. 66
II
18
20
23
280
220
.32
.60
.23
. 61
. 93
.90
CL
CL
CL
CL-12A
CL-12C
CL-12D
Std.AASHO
Std.AASHO
Std.AASHO
106.1
106.1
106 . 1
17 . 2
17.2
17 . 2
105 .0
101. 9
103 . 0
18 . 6
17 . 1
19 .7
1. 30
1.00
.80
8
13
2
140
120
.20
.09
.33
. 84
. 83
. 82
CL
CL
CL
CL-12E
CL-12F
CL-13A
Std.AASHO
Std.AASHO
Std.AASHO
106.1
106.1
104.9
17.2
17 .2
17 . 6
106.5
108.3
98 . 7
13 . 9
16.9
20 . 8
1. 50
1.50
.67
24
8
4
950
470
75
- .15
.00
.44
. 90
.95
. B8
CL
CL
CL
CL-13B
CL-13C
CL-13D
Std.AASHO
Std.AASHO
Std.AASHO
104 . 9
104.9
104 . 9
17.6
17.6
17.6
104. 9
101. 2
100 . 5
14 .B
17 .4
14. 2
1. BD
1 . 20
1. 40
23
12
29
840
270
1100
- .19
.06
- .36
. B4
. B7
. B3
CL
CL
CL
CL-13E
CL- 14
CL-16C
104 . 9
103.0
105 . 0
17.6
21.2
20.2
104 . 4
98.0
99.7
17 . 5
24 . 0
22.9
1. 40
.77
. 97
13
2
1
410
57
110
.15
.43
Std.AASHO
Std.AASHO
Std.AASHO
. 87
. 86
.90
CL
CL
CL
{;L-174
CL-17B
CL-17C
Std.AASHO
Std.AASHO
Std.AASHO
101 . 0
101. 0
101.0
20 . 1
20.1
20.1
99 . 1
98 . 1
98.9
22 .7
23 . 9
22.7
1.10
. 99
1.10
2
1
3
100
160
130
.54
.46
. 89
. 97
. 91
CL
CL
CL
CL-19A
CL-24A
CL-25A
Std.AASHO
Std.AASHO
Std.AASHO
102 . 0
104 . 0
113.0
19.9
19.3
15 . 1
96 . 8
97.6
107 . 4
22 .1
23.4
18 . 1
.18
1. 2.0
2
0
0
53
240
160
. 41
.00
. 00
. 85
. 95
.93
CL
CL
CL
CL-28
CL-29A
CL- 29B
Std.AASHO
Harvard
Harvard
115 . 0
116.2
116.2
14 . 6
15.2
15.2
114 . 8
110 . 9
115.8
12 .2
13. 0
13 . 1
1. 60
2 . 00
2. 50
12
20
20
150
440
440
.16
.17
.34
. 79
. 85
.86
CL
CL
CL
CL-30A
CL-30B
CL-30D
Harvard
Harvard
16.7
16.7
16.7
111. 0
112 .2
110.3
16 .'2
16 . 6
11 .3
1.00
16
1.00
11
9
110
67
37
.94
.71
. 37
. 91
1. 40
Harvard
112 . 8
112 .8
112 .8
CL
CH
CH
CL- 338
CH-l
CH- 3A
Harvard
Std . AASHO
Std.AASHO
106 . 8
94.0
95 . 5
18 . 0
26 . 5
26.5
106 . 3
90 . 0
89.3
16 .2
28 . 8
31.1
2.20
.61
.37
3
4
0
71
92
21
1.06
. 21
. 00
. 98
. 89
. 65
CH
CH
CH
CH-3B
CH- 4
CH-5A
Std.AASHO
Std.AASHO
Std.AASHO
95.5
100 . 0
95.0
26.5
22 . 7
28 .6
26 . 5
1
1
0
67
65
36
. 79
. 14
. 72
.77
27 . ~
.51
. 63
1. 20
.02
24 . ~
92.6
96.4
90.3
CH
CH-5B
Std.AASHO
95.0
24.4
90.7
24.4
-
1.~
52
. 66
. 89
Std . AASHO
Std . AASHO
Std.AASHO
. 95
47
.43
.27
I
I
. 77
. 65
. 91
-
, ,~
~,' = a+bLi
(3.26)
,I'
If values of LilT are plotted against values of Lis, the resulting variation will be a straight line
while the shear stress varies hyperbolically with respect to displacement. It may be readily seen
that coefficient a is the intercept, and coefficient b is the slope of the straight line on the
transformed plot. The reciprocal of coefficient a is the initial slope of the shear stressdisplacement curve, and is analogous to the initial tangent modulus of a stress-strain curve. This
quantity, called the initial shear stiffness, K si , has units of force per cubic length, or pounds per
cubic inch. The reciprocal of coefficient b is the asymptote approached by the shear stressdisplacement curve at very large values of displacement. This asymptotic shear stress,
Tull>
is
larger than the peak value of shear stress or strength of the interface, 'rj. It has been found to be
convenient to express
Tull
The values of Rjare found to range from 0.82 to 0.95. The initial shear stiffness, K si , and the
shear strength of the interface depend on the value of normal stress on the interface. The
variation of initial shear stiffness with normal stress may be expressed using an equation of the
general form suggested by Janbu:[l5]
(3.28)
}'1v
expressed in the same units as Ks;; and pa = atmospheric pressure expressed in the same units as
the normal stress ern. Clough and Duncan[34] showed in their experimental research that the
stiffness number has a value of 75,000 and the stiffness exponent has a value of 1.0. The shear
40
strength of the interface is proportional to normal stress, and the strength characteristics of the
interface may be expressed in terms of the angle of wall friction, 8, as follows:
(3.29)
Substituting Equations 3.28, and 29 into Equation 3.26, the variation of shear stress with respect
to displacement may be expressed in terms of the parameters K/, n, Rj, and 8 as follows:
r
Ll"
= ------"----1
(3.30)
RILl."
- -- -- + --"---
al/)"
KJyw Po
a'l tan 0
Using Equation 3.30, variations of shear stress with displacement may be calculated for any
value of normal stress in the range of values employed in the tests. Thus, the nonlinear, stressdependent behavior of the interface may be expressed in terms of the four parameters K/, n, Rj,
and 8, whose values may be readily determined from a series of interface shear tests.
A way of performing approximate nonlinear analyses of soil behavior is to perform
incremental analyses, changing the soil property values as appropriate for each stage of the
analysis. Tangent stiffness values, representing the slope of a tangent to the shear stressdisplacement curve, may be readily employed in such analysis. Differentiating Equation 3.30
with respect to Lls, and eliminating Lls from the resulting equation, the tangent stiffness value may
be expressed as:
K
,,'
= or = K
aLl"
a" " ( 1 _
IY W ( Pa )
R/f
)2
all tan 0
(3.31)
The tangent stiffness values are calculated using Equation 3.31 and used for the spring constants
in interface modeling in the next chapter.
41
CHAPTER 4
SOIL-STRUCTURE MODELING
lh incremental soil
= KO'ii)
(4.1)
,i=i+J
where Hi, Yi = depth and density of ith soil layer (numbering from the bottom to the top of the
backfill or original ground). These values are substituted for the principal stresses in Equations
3.14 and 3.20 for the evaluation of tangent Young's modulus and tangential Poisson's ratio. The
coefficient of lateral pressure, K, is 0.5. Adding each element group to previously existing
42
element groups for incremental procedures can be performed by using the "element remove and
reactivation" option of ABAQUS.
Taking advantage of the symmetry of the concrete culvert and soil, only one half of the
structure and the surrounding soil were modeled. Exactly the same geometry mesh, boundary
conditions, and number of construction layers were considered in both ABAQUS and ISBILD
programs. It is known that the width of half the soil-structure finite element model affects the
analysis resultsY6] To examine the effect of the width of soil layers in the finite element model,
a number of finite element models with constant height but different widths were run using
ABAQUS. Figure 4.2 shows that soil-structure interaction factors as the ratio of half soil layer
width to box culvert width, W,/B e, varies. It also shows that the value of the soil-structure
interaction factor increases until W,/Be reaches approximately six or seven, after which no
significant increase is shown. In the one half model, the width of soil layer was taken to be
seven times the culvert width because it has been shown in a series of exploratory models that
any wider widths are not likely to affect the soil pressure distribution in the embankment
installations. The width of in-situ soil was taken to be six times the culvert width. The depth of
the yielding foundation was taken to be four times the culvert height and an unyielding
foundation was modeled by placing pin-ended boundaries immediately under the structure base.
A typical soil-structure finite element model is shown in Figure 4.1, and incremental sequences
considered for the embankment and trench installations are illustrated in Figure 4.3. Heights of
backfill varied from 50 feet to 200 feet for the embankment installations, and from 50 feet to 150
feet for the trench installations on both yielding and unyielding foundations. The constant
exterior dimensions of the culvert were 8 feet by 8 feet, with 12-inch thick walls and slabs. In
the case where the height of the backfill exceeds 150 feet, the thickness of walls and slabs may
43
have to be increased to resist the induced shearing force near the wall face. It was found from a
series of numerical analyses that the thickness of the culvert did not significantly alter the
pressure distribution at the top of the culvert, having an effect in the order of 1%. This
phenomenon may be explained that the relative displacement at the mid-span of the top slab is
not greatly affected as the thickness of the wall is varied. It should be noted that the
displacement at the top of the walls remains practically the same regardless of the different
values of the wall thickness used. As the pressure distribution at the top slab of a culvert is a
function of the relative vertical displacement of the slab, only small differences in the soil
pressure distribution would be expected. The modulus of elasticity of concrete box culverts was
computed to be 3,605 ksi, assuming the 28-day strength of concrete,
Poisson's ratio, v, is 0.25 for soil layers that follow Duncan's model.
4.2 Soil-Structure Interface Modeling
To investigate the effect of the soil-structure interface between the exterior box culvert
wall and the filling soil, two different methods were considered; one was a shear interface model
and the other a spring interface model.
For the first modeling technique for the soil-culvert interface, the shear resistant capacity
of the soil elements adjac(!nt to the sidewalls of the concrete box culvert was modified to look for
a possible slippage between the culvert web and soil elements. One of the extreme cases
provided a very low value for the modulus. A linear elastic analysis was run on ABAQUS and
CANDE-89 to examine the effects of interface behaviors. In the ABAQUS analysis, very
narrow elements (1/20th ofthe width of the wall element) were placed between the culvert
outside wall and the backfills. The value of Young's modulus of the interface element was
varied from 1I1,000th to 1/10th of the filling material. The unit weight was set to be 1I1,000th of
44
c>
p
_h
1,
I
I
( -
~"
B--'
.---ls.
45
1.30
.-----------------------~
~C'\l 1.28
- - -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -- - - - - - - - - - - - - -
....
I..L..
t5!!!
1.26
c
~
:l
1.24 - - - - - - - - - - - - - - - - - - - - . - - - - - . . .. - - - - - - - - - - - . . - - - - - - -
t)
:l
,;;
~ 1.22
en
'0
- , --
--1
.J~J.... ............. _.
Filling Soil
Layers
..... __ ...
.. PL .... .._ ..
[2]
Trench Installation
Embankment Installation
soil. The interior dimensions of the concrete box culvert were taken to be 4 ft wide and 4 ft high.
The thickness of the flange and web were lOin. The height of backfill was 7.25 ft measured
from the top of the top slab. In the CANDE-89 program, the interface behavior was taken into
account by treating constraint equations in the finite formulation based on a generalized principle
of virtual work. Table 1 shows the results of analyses of different shear interface models from
ABAQUS and CANDE-89, and the differences are calculated on the basis of the value from
CANDE-89.
For the other interface model, spring elements were placed at the nodes between the
exterior wall and the adjacent soil elements, as shown in Figure 4.4. On the vertical interface
line, two nodes for every geometric point were defined when constructing the finite element
mesh, one for the culvert wall element and the other for the soil element. A very small spring
constant was assigned for the vertical degree of freedom. To prevent extension and compression
modes of interface behavior, a very large spring constant was assigned for the horizontal degree
ABAQUS
Shear Interface
Model
(Difference)
1110
1120
1150
11100
111,000
1.1125
1.1288
1.1364
1.1488
1.1577
1.1740
(-1.00 %)
(0.45 %)
(1.13 %)
(2.23 %)
(3.03 %)
(4.48 %)
ABAQUS
Spring Interface
1.1253
Model
(0.14 %)
(Difference)
CANDE-89
1.1237
47
of freedom.
Applying tangent stiffness for shear interface movement (vertical), presented in the form
of K st in Section 3.4, each spring constant for a two elements system (at the top and bottom of the
culvert element and the soil element as shown in Figure 4.4 (b)) may be written as:
d
(4.1)
k="2Ksl
where d = depth of finite element, and rewriting this equation by substituting Equation 3.31
gives:
(4.2)
O'n
be replaced by normal and shear stresses of the soil element. [34] Each model was run twice using
ABAQUS.
The normal and shear stresses of soil elements immediately adjacent to culvert
elements were obtained from the first run, and the spring constants were calculated for the spring
elements that were used. The second analysis obtained actual pressure values on the culvert.
The values of other parameters of Kst are shown in Table 4.2.
interface modeling is also shown in Table 4.1. As can be seen from Table 4.1, the effect of a
Values
24
K/
40,000
1.0
Rf
0.9
48
~
d
49
potential slip of the backfill soil along the exterior culvert wall is insignificant. Therefore, this
possibility was not considered in the subsequent analyses.
4.3 Model Verification
In order to assess the validity of the soil modeling technique adopted in this study, an
example considered by Katona and Vittes[26j for their verification study to validate the CANDE
prediction versus the test data for soil pressure round a box culvert was reanalyzed using
ABAQUS and ISBILD. As Katona and Vittes presented their comparison in a graphical form,
the same graphical comparisons are given in Figure 4.5. As can be seen from Figure 4.5, the
analytically predicted values from ABAQUS are fairly close to those from CANDE. Therefore,
it was concluded that the finite element analysis results obtained using ABAQUS and the soil
Fill Soil
Young's Modulus = 2.0 ksi
Poisson's Ratio = 0.25
Density 13 8 pef
~X-
so
_ _ _ _)(..
- - ABACUS (H = 21 .611)
- -ABACUS (H 77.0 It)
)(
TESTS (H=21 .6 It)
o
TESTS (H=77 fI)
i
so
:~
ox
.
0
fr.'
50
'
100
- -....
~
~., .
50
modeling technique adopted are valid. The soil pressure directly above the sidewall is
substantially higher than the soil pressure at the center of the top slab, where the largest relative
vertical deflection is expected to occur. It appears that the inclusion of reinforcing steel in the
calculation of the slab stiffness has a negligible effect on the soil pressure distribution, as
expected from ACI[35] Article 8.6, "Stiffness."
51
CHAPTERS
NUMERICAL ANALYSIS
5.1 General
The soil pressure or the effective density distribution at the top slab (flange) of deeply
buried concrete box culverts is affected very sensitively by the installation method used, either
embankment installation or trench installation. Therefore, the numerical analysis of a series of
hypothetical concrete box culvert models and subsequent data reduction were carried out
separately for the cases of trench installation and embankment installation. This independent
treatment permits the development of an optimum finite element model for each group. A
typical soil-structure model and incremental sequence of embankment and trench installation for
finite element analysis are shown in Figure 4.1. The properties of soil layers were computed
following the Duncan model, as discussed in Chapter 3. The following apply to the analyses of
both the trench and embankment installations:
1)
2)
3)
4)
Neglect any slip between the soil and the culvert and between the placed backfill
and pre-existing ground,
5)
6)
7)
8)
52
FeJ
given by
Equation 3.5. As shown in Figure 5.1, the value of the effective density increased as backfill
Filling Soil
K, Kur
160.00
78.00
0.81
1.24
c (pet)
800.00
0.00
(degree)
34.00
26.00
Rj
0.63
0.92
0.26
0.5
0.04
0.0014
6.20
0.0077
w (pet)
120.00
53
Original Ground
126.00
heights increased. The values determined from the ABAQUS analysis were higher than those
obtained from ISBILD. ASSHTO[6] provides soil-structure interaction factors of uncompacted
and compacted side-fill, as given in Equation 3.5. The predicted values on yielding foundations
from both ABAQUS and ISBILD analyses were between the values given for the compacted and
the uncompacted side-fill by AASHTO. It appears from the analysis that the value ofthe
effective density is most sensitive to the foundation characteristics. In the case of an unyielding
foundation, the value of the effective density from ABAQUS analysis showed somewhat higher
value than that obtained from ISBILD. Analysis results also indicate that the value of the
effective density for an unyielding foundation is much higher than that for a yielding foundation.
Two proposed predictor equations, Equations 5.1 and 5.2, are derived based on the data
from ABAQUS and ISBILD analyses by means of a linear regression method.
DE
= 1.009Ho.o48
on Yielding Foundation
(5.1)
(5.2)
where DE and H stand for effective density value and filling height, respectively.
Figure 5.2 shows the curves of predicted values of the effective density computed from a
linear regression method, along with the raw values of the predicted effective densities from
ABAQUS and ISBILD. Figure 5.3 shows deformed shapes of soil-culvert systems on yielding
and unyielding foundations. It can be seen from Figure 5.3 that the height of equal settlement on
a yielding foundation is less than that on an unyielding foundation. This is an important
characteristic that can explain why the effective density or the soil-structure interaction factor is
higher for an unyielding foundation than that for a yielding foundation. There are no relative
movements between the soil column on the top of culvert and adjacent soil columns above the
horizontal line of equal settlement. It is evident that the foundation condition of the construction
54
....
1.7
~ABAQ
(nYlelding)
-+-AB
Ie mg
o
ISBILD(Uyielding)
-+-ISBILD(Yielding)
_ _ AASHTO(Uncompacted) ____ AASHTO(Compacted)
1.6
1.5
~
'00
c:
Q)
1.4
Cl
Q)
>
U 1.3
~
UJ
1.2
1.1
1.0 +-________.-________,-________.-________.-______
100
50
200
150
250
1.7
1.6
1.5 .
Pre lete
a ues nyle m9)
.. . .. .. Proposed Equation (Unyielding)
'00
c:
Q)
.. -
1.4
...
--_ .... - ..
- - . - - - - -- - - --- :-.:-T-"---::"::':- - - - -
Cl
--.
- - - - - ..
-'
Q)
>
:p
1.3
UJ
1.2
1.1
1.0
0
50
100
150
Backfill Height (ft)
200
250
Figure 5.2: Effective Density Curves from Proposed Equations for Embankment Installations
55
I-
f--
. t-
r
I--
I
(a) Yielding Foundation
56
site is a prominent factor affecting the soil pressure on the structure, especially under high
backfill conditions. However, concrete box culverts are most likely to be installed on yielding
foundations unless a solid rock layer is encountered immediately under the concrete box culverts.
Unlike the current AASHTO[6] provisions, the compactness offill along the sides of the box
section does not affect the effective density significantly. It should be noted that ASSHTO
Standard Specifications for Highway Bridges[6] stipulates that a special analysis is required for
culverts untrenched on unyielding foundation.
5.3 Imperfect Trench Installations
The loads on concrete box culverts in embankment installations are greater than the
weight of the soil directly above the structure, as stated previously. The pressure intensity on
buried concrete culverts is very sensitive to the relative vertical displacement of the soil prism
above the culvert. An attempt to avoid increasing the load on the structure led to the
development of the imperfect trench method (sometimes called the induced trench method) of
construction, where larger relative vertical displacements of the soil prism above the structure are
induced by replacing some part of the fill with lightweight material. The most common type of
light or compression material used in the imperfect trench method is organic, such as baled
straw, leaves, hay, or compressive soil. The traditional imperfect trench method involves
installing a compression layer above the culvert within the backfill, as shown in Figure 5.3. As
the embankment is constructed, the soft zone compresses more than the surrounding fill and thus
induces an arching action above the culvert.
In order to demonstrate the versatility of the finite element modeling, concrete box
culverts with light back fill materials were analyzed for several different geometric
configurations and back fill material properties. As exact values of the modulus of elasticity and
57
the specific weight of the baled straw were not known, the value of the modulus of elasticity
were varied from 100 ksf to 10 ksf and the weigh of the baled straw taken to be 10 pounds per
cubic foot. A typical average value of the modulus of elasticity of soil, E, is about 30 to 40 ksf at
ground level and 500 ksf at a depth of 100 feet. The width of the light back fill or loose material
zone, w, was varied from 1 to 2.5 times the width of the culvert, Be, and the height of the
lightweight back fill was set at 10 feet. Examination of the literature reveals that the loose
material zone is traditionally placed above a 2 feet-deep filling cover above the top flange of the
box culvert. The depth of the filling cover, h', in Figure 5.3 was thus 2 feet. The exterior
dimensions of box culvert were 8 feet high and 8 feet wide, and the thickness of each wall was
12 inches. Table 5.2 shows the load reduction rate of the imperfect trench method in terms of
percentage. It can be seen from Table 5.2 that the width of the lightweight backfill need not be
greater than 1.5 times the width of the culvert.
The effect of the height of the soft zone and the depth of filling cover was examined. h
and h' were varied from 2.5 feet to 15 feet, and from 0 to 8 feet, respectively. wlB e was varied
from 1.0 to 2.0. h was set at 10 feet when h' was varied, and h' was set at two feet when h was
varied. The load reduction rates as functions of the ratio of the height of the soft zone to that of
the culvert, hlHe, are plotted with different values of wiBe in Figure 5.4. The effect of Young's
modulus is given in Figure 5.5. As Figures 5.4 and 5.5 shows that variations ofload reduction
have a diminishing return characteristic with regard to increasing hlHe Typical effective density
distributions on the box culverts with hlHe = 1.25 are shown in Figures 5.6 and 5.7, with
different values of wiBe and different values of Young's modulus, respectively. The variations
ofload reduction rates are shown in Figure 5.8 as a function of the ratio of filling cover depth to
the height ofthe culvert, h' IHe. Typical effective density distributions with wlBe=l and hlHe
58
=1.25 are plotted in Figure 5.9. Figures 5.8 and 5.9 show that the highest load reduction occurs
when the lightweight backfill or the soft zone is placed immediately on the box culvert, i.e., there
is no intermediate filling between the culvert and the soft zone. It is also clear from Figures 5.4
and 5.5 that the height of the soft zone does not need to be greater than 1.5 times that of the
culverts after that point, no significant load reduction is realized.
Although the artificially induced reverse arching action is desirable, Vaslestad and his
coworkers[22] recommended a judicious selection of the lightweight back fill material and its
careful installations. A number of serious stress concentration problems have been reported due
to ill-advised arrangements of compression layers and improper material selection.
It may require a considerable effort to develop a reasonable force-displacement
relationship and a volume change rate for the material used in the soft zone, as there are
practically no experimental data available that can be used to establish a constitutive relationship
for the material in the soft zone. It is highly likely that the constitutive relationship of the soft
zone material would be nonlinear, as for relationship describing backfill soil. A close up view of
the deformed shape ofa typical model around the soft zone is shown in Figure 5.10. The
displacement values are magnified with an amplification factor of 4. Young's modulus and
Poisson's ratio of the soft zone were taken to be 10 ksi and 0.1, respectively, for this case. Table
5.3 presents the vertical displacement at the top, mid-height, and bottom of the soft zone along
the vertical centerline of symmetry of a soil-structure model. Three different Young's moduli
and two different Poisson's ratios were used to generate Table 5.3. The vertical displacements at
the top and mid-height increase for the softer material, as expected. However, it is of interest to
note that the vertical displacement at the bottom of the soft material zone decreases, resulting in
a volume squeeze. As presented in Table 5.3, the value of Poisson's ratio does not appear to
59
Table 5.2: Pressure Reduction Rates (%) Due to Imperfect Trench Installation
Width of Back Fill Layer, wlBe
Modulus E
(ksf)
l.5
2.5
100
32.8
4l.1
39.1
36.7
50
43.6
58.6
57.0
54.3
10
56.9
83.7
85.3
84.8
Top of Embankment
/7/(\'\
Be
IE
>1
h'
He
60
80 ~------------------------------------------,
60
40 ,1
20
-+-w/Bc=1 .0
o +-------.-------.-------~------_r------~------~
0.0
0.5
1,0
2.0
1.5
hlHc
2.5
3.0
.......
~
~r::
o
60
..
--- - ..
- -- - .
--
-- -
~----
..
------
...
40
----
. <>--------------<>
U
::I
"C
Q)
a:::
"C
-<>- E=100
20
__ E=
ro
50
....J
-.tr-
E= 10
o +-------,--------.-------r------~--------------_4
0.0
0.5
1.5
1.0
2.0
2.5
3.0
hlHc
Figure 5.5: Load Reduction Rate vs. hlHc (Different Young's Modulus)
61
2.0
~w/o Soft Zone
__ w/Bc=1.5
-+-w/Bc=1 .0
-.-w/Bc=2.0
15 1
~
.(jj
I:
-- 0 - - - - - - 0 - - - - - - -
Q)
Q)
1.0
.~
t.>
w
0.5
0.0
Left Wall
Center of Flange
Right Wall
2 . 0 1----------r====~~~====~~~====,_------__r
- 0 - w/o Soft Zone -+- E=100
__ E= 50
- . - E= 10
1.5
~
iii
I:
Q)
Q)
>
1.0
ffi
Left Wall
Center of Flange
Right Wall
Figure 5.7: Effective Density Distribution on the Box (Different Young's Modulus)
62
80 ~----------------------------------------------~
-+-w/Bc=1
__ w/Bc=1.5
-+- w/Bc=2.0
- -
- -
.... .... -
- ""<::.....:::-.....
---=-~ -----.
-~ -----------~:'-::-..... .~ -----------.....
------.
.. -..........
-..
.. ,
o +--------r------~--------,_------~------_.------~
0.0
0.2
0.6
0.4
0.8
1.0
1.2
h'lHc
2.0
I
1
1.5
>.
iii
c
Q.l
0
Q.l
>
t ---j
I
1.0
UJ
0.5
O . O ~--------------------------------____--------__~
Left Wall
Center of Flange
Right Wall
63
E=100 (ks)
E=10 (ks)
v=O.4
v=O.l
Diff.
(%)
v=O.4
v=O.1
Diff.
(%)
v=O.4
v=O.l
Diff.
(%)
Top
0.656
0.705
7.4
0.712
0.753
5.7
0.799
0.824
3.1
Middle
0.466
0.485
4.1
0.482
0.498
3.2
0.514
0.526
2.3
Bottom
0.289
0.274
5.3
0.270
0.258
4.3
0.247
0.243
1.5
-Ilf')'
Soft Zone
"
i'
"
"
l~~'
""/I"
,./
-=
"
-"
/
- i"
_/
i"
...w:K
Figure 5.10: Close-up View of Deformed Shape near the Soft Zone
64
....
affect the vertical displacements significantly. It should also be noted that the soil layers
between the soft zone and the concrete culvert appear to be swollen. This phenomenon is likely
to be caused by the effect of Poisson's ratio of these soil layers, as they are subjected to very
high lateral pressures exerted by the adjacent backfill elements.
5.4 Trench Installations
The effective density of soil pressure or the value of the soil-structure interaction factor
for concrete box culverts in trench installations was also examined. The ratio of the horizontal
width of the trench to the box width, BriBe, was varied from two to twelve. The height of the
backfill varied from 50 ft to 150 ft. Exactly the same parameters in the Duncan soil model of the
original ground and filling soil were used for analyses of both embankment installations and
trench installations. In this trench installation model, the sides of the trench were assumed to be
vertical, and no slip was permitted between the backfill soil and the sides of the trench. The
pressure values on the top flange of the box culverts were again conservatively averaged and
converted to effective densities. Figure 5.11 shows the value of the effective density at the top of
box culverts installed on a yielding foundation as a function of the ratio of the trench width to the
box culvert width, BriBe. Similar information on unyielding foundation models is not shown.
The value of effective density approaches asymptotically that for embankment installations as
65
1.4
'I - - - -- - - -- - -- - -- - - -- - - - - ------,
1.2
- - _ _ .. - - - -
'w
5; 0.8
-~: ;-.~
~ 0.6
:l!:l
....- -.'
0.4
-- . .- -
0.2
+.. . -- .
.'
.' ....
8". ~ 6"
- - -
. . ,: ------------------------I
- - - _.
- - - _. _. - - -
- - .- -
O+-_ __~---~----~--~---~----~--~
10
12
14
The value of effective density is plotted as a function of the ratio of backfill height to
horizontal width, HIBd, on yielding and unyielding foundations in Figures 5.12 and 5.13,
respectively. It should be noted in Figures 5.12 and 5.13 that the effective density varies only
slightly for different values of the backfill height if HIBd remains the same. The load coefficient
for trench installation, Cd, is given in Equation 3.6 as a variable. Although Equation 3.6
(adopted in the current AASHTO Specifications[5.61) is based on Marston-Spangler theory, the
load coefficient, Cd, based on the Marston theory remains unchanged. Most values of the soilstructure interaction factor from AASHTO Specifications are 1.4, the limit value, except for a
few cases. It is clear from Figures 5.12 and 5.13 that the values of effective density (or structuresoil interaction factors) given by the current AASHTO Specifications appear to be conservative
compared to the analytically predicted values from this study. In Figures 5.12 and 5.13, values
computed from AASHTO provisions are given for the case yielding minimum values, obtained
66
by selecting granular materials without cohesion. The curves shown are obtained from a
regression analysis on the data from ABAQUS and ISBILD as functions of HIBd. The following
regression equations are found to best fit the data relating the effective density and HIBd.
Yielding Foundation
(5.1)
(5.2)
Unyielding Foundation
(5.3)
log(DE)
= 0.018(!i.J2 B,j
(5.4)
It appears possible that representative effective density values for yielding and unyielding
foundations may be expressed by taking mean values of those two predicted values from
ABAQUS and ISBILD. Equations 5.1 and 5.2 can be combined into Equation 5.5. Likewise,
Equations 5.3 and 5.4 can be combined into Equation 5.6.
DE
=exp [ 0.QJ5(:'
DE
67
(5.5)
(5.6)
1.6 -,-_ _ _ _ _ __ _ _ _ __ __ _ _ _ _ _ __ _ _ _ _
. 11111 . . . . . . . . . . . .- -+- - -. -. -
1.4
1.2
~
U)
c:
1.0
Cl
0.8
CII
~
w
-- - -
- -
-- -
-.-- - - - - - -
- - - - - - -.- - - - - - -
- -
ABAQUS
ISBILD
AASHTO
-- --
-- --
- - - - ~ -..~ ..
. - - - - - - - - - - ' - -
.~ .
0.6
0.4
-+- - - - - .- - - .. - - - -
...f ....
- - - - - - . : ,,~~ - -
- - - - .
- - - - - - -
- .
- - - - - - -I
'-
0.2
- --- -- ---- --- -------- ---~ =: :: =...~ --- -.- ~~. ~- -:.:-- -:.~. ~- -:. ~. ~ .-
0.0 + - - -- - - . - - - - - - - .- - ---...-- - - - - . - - -- -8
2
4
6
a
---1
10
HlBd
1.6
1.4
..
,
1.2
~\.- ~ ~ ~
.......
.l
- - - - -- -
.~
U)
c:
1.0
Cl
0.8
~ - - -- - -~~,: - - -
0.6
CII
~
w
0.4
0.2
0.0 _
0
-- -
"4l
......
- ....
~--
- - - ..... -
- -
- -.-
ISBILD
AASHTO
- - - -- - -- -
_.
- - -
....-
", ....
~~- - - - - - -
- -
H1Bd
68
10
69
~1
I'
StruCture
D
Figure 5.14: Trench Installation with Sloping Sidewalls
-'#.
Z.
'in
c:
<I)
0
<I)
.~
:: .,--1-- --- --------------- --- ------ ---, -- ------- -------- - --.. ----------,---,1
80
60
~
w
40
:;::
tU
Qj
0::
20
0 ~------_+--------4_------_4--------~------_4
0.00
0.25
0.50
0.75
1.00
1.25
tanS
120 ,--------------------------------------------,
100
80
c:
Q)
Q)
60
40
>
~
.~
co
_ _ _ __ _ __ _ _ _ _ _ _ _ _ _ _ _
--tBd/Bc=4, H= 100 ft
_ _ _ _ _ _ _ _ _ _ _ _.....J
- _ __
Q)
0::
0 +--------+--------1-------~~-----_r------~
0.00
0.25
0.75
0.50
1.00
1.25
tanS
Q)
.~
LU
40
i.. .
2:
..
+:.
co
Q)
~. - . - :: :::~-~~ 1
.~
VI
c:
m u
~ ~
:~ . -~ ~
_ _
BdIBC=~.H=150ft
0::
0.00
0.25
0.50
0.75
1.00
_I
I
1.25
tanS
Given:
Concrete box exterior dimension, BcxHc:
8 ft x 8 ft
Fill height, H:
160 ft
120 pcf
Foundation condition:
Yielding foundation
Solution:
From Equation 5.1, the effective density value, DE can be determined as follows:
We
(kl ft)
H
160
Fe/ =1+0.20-=1+0.20-=5.00 >1.40
Be
8
WAASHTO
(kl ft)
Equation 3.2 from the Marston-Spangler theory can be applied if the settlement ratio,
rsd.
is
known. Based on Spangler's recommendation, Table 3.1 gives a settlement ratio of between
+0.5 and +0.8. If the settlement ratio,
rsd,
72
positive projection, Ce, can be detennined from Figure 3.5, to be in the region ofCe =31.7. From
Equation 3.2,
W5'patlgler = CcY B; = (31.7)(0.12)(8
= 243.45 (k 1ft)
The results from this study, AASHTO, and Marston-Spangler theory are compared in Table 5.4.
197.68 klft
AASHTO
215.04 kl jt (8%)
Marston-Spangler Theory
Given:
Concrete box exterior dimension, BexHe:
8 ft x 8 ft
Fill height, H:
175 ft
r.
120 pef
Foundation condition:
Unyielding foundation
Solution:
From Equation 5.2, the effective density DE can be detennined as follows:
DE =(1.016)(175.068 ) =1.444
73
We
is calculated as:
rsd
can be taken to be +1.0, and the load coefficient, Ce , can be determined from Figure 3.5 to be
C e=36.8. Using Equation 3.2, the total load is computed according to Spangler's
recommendation as:
W~'pallgler
= CeyB;
= (36.8)(0.12)(8
2
)
This value is greater than the predicted value from this study by 16%. However, it should be
noted that concrete box culverts are most likely to be installed on yielding foundation unless an
obvious solid rock layer is encountered.
Given:
Concrete box exterior dimension, BexHe:
8ftx8ft
Fill height, H:
120 ft
120 pcf
24 ft
1/2
Foundation condition:
Yielding foundation
74
Solution:
From the given data,
H I Btl
= 120116 = 7.5
From Equation 5.1, the effective density , DE, of embankment installation can be detennined as
DE
= (1.009)(120.048 )
= 1.270
From Figures 5.16 and 5.17, one can detennine the relative effective density, say a,
corresponding to H
density, a , is computed to be 78%. Therefore, the total earth load is calculated as follows:
F
e2
HBc
WAASHTO
(120)(8)
It appears that there is some difference between the values of total load from this study and
AASHTO. However, it should be also noted that the load values obtained by this study include
the effect of sloping walls by incorporating tanB=
~,
detennined under the assumption that the trench walls are excavated to be completely vertical.
In the case where the trench wall is assumed to be vertical, Equations 5.S and 5.6 can be used to
obtain the effective density for yielding foundations and unyielding foundations, respectively.
75
For a vertical trench wall, i.e., tanB= 0, on the yielding foundation, the total earth load is
calculated using Equation 5.5 as follows:
= exp[ 0.015(7.5)2 -
0.352(7.5) + 0.402]
= 0.248
(k / ft)
However, it should be noted that the assumption of a deep vertical trench wall is not very
realistic one.
76
CHAPTER 6
CONCLUSIONS AND RECOMMENDED FUTURE STUDY
6.1 Conclusions
The findings and concluding remarks are summarized below for the finite element
numerical investigation on the effective density or soil-structure interaction factor of deeply
buried concrete box culverts. All three finite element programs, ABAQUS, CANDE-89, and
ISBILD predict effective densities or soil-structure interaction factors that are reasonably close to
each other.
1)
The values of the effective density for embankment installations are more
sensitively affected by the foundation characteristics, i.e., whether a yielding or
unyielding foundation is used. The values of effective density on unyielding
foundations are much higher than those on yielding foundations. AASHTO
stipulates that a special analysis is required for embankment installations on
unyielding foundations.
2)
Finite element analysis results show that the greatest effect of load reduction can
be obtained in imperfect trench installations when the soft zone is placed
immediately above the box culvert, i.e., there is no soil cover between the top of
the box culvert and the bottom of the soft zone.
3)
The variation of the load reduction rate due to imperfect trench installations
shows a diminishing return characteristic. The ratio of the height of the soft zone
to that of the box culvert, hiRe, does not need not to be greater than 1.5; after that
point no significant load reduction is realized.
77
4)
5)
To simulate the soil-structure interface between the exterior box culvert wall and
the filling soil, two different methods of interface modeling have been applied.
The effect of possible slips of the backfill materials along the exterior culvert wall
appears to be negligibly small.
6)
Finite element analysis indicates that the effective density is only marginally
affected by the properties of the sidefill materials, i.e., compacted or uncompacted
fill at the sides of the box section.
7)
The current AASHTO provision reproduced in Equation 3.4 and most other
references stipulate the effective densities for the trench installations under the
assumption that the trench walls are excavated vertically. However, it has been
shown in this study that the effect of the sloping trench walls on the soil-structure
interface factors is actually quite high.
8)
Although Figures 5.5 and 5.6 show large discrepancies between the values of the
effective density computed from AASHTO provisions and finite element
analyses, the actual differences are likely to be much smaller if the effect of the
sloping trench wall is reflected in the finite element analyses.
78
method approach can be applied to everyday design practice in deeply or shallow buried concrete
box culvert designs. However, a considerable effort is still required to properly determine the
subsoil conditions and assign the appropriate parameters for the constitutive model. The
following recommendations are offered for future research.
1)
2)
It is expected that the constitutive relationship, as well as the volume change rate
Laboratory performed soil property tests for constitutive models may be necessary
to augment the results obtained from finite element analyses.
79
REFERENCES
[1]
Marston, A., and Anderson, A 0., "The Theory of Loads on Pipes in Ditches and Tests
of Cement and Clay Drain Tile and Sewer Pipes." Bulletin 31, Iowa Engineering
Experiment Station, Ames, Iowa, 1913.
[2]
Marston, A, "The Theory of External Loads on Closed Conduits in the Light of the
Latest Experiments," Bulletin 96, Iowa Engineering Experiment Station, February 19,
1930.
[3]
[4]
AASHTO Standard Specifications for Highway Bridges, 12th ed., American Association
of State Highway and Transportation Officials, Inc., Washington, D.C., 1977.
[5]
AASHTO LRFD Bridge Design Specifications, 2nd Ed., American Association of State
Highway and Transportation Officials, Inc., Washington, D.C., 1998.
[6]
AASHTO Standard Specifications for Highway Bridges, 16th ed., American Association
of State Highway and Transportation Officials, Inc., Washington, D.C., 1996.
[7]
AASHTO Standard Specifications for Highway Bridges, 13th ed., American Association
of State Highway and Transportation Officials, Inc., Washington, D.C., 1983.
[8]
Hardin, B. 0., "Characterization and Use of Shear Stress-Strain Relations for Airfield
Subgrade and Base Course Material," Technical Report No. AFN-TR-71-60, Air Force
Weapons Laboratory, Kirkland AFB, New Mexico, July 1971.
[9]
Duncan, J.M., and Chang, C.Y., "Nonlinear Analysis of Stress and Strain on Soils,"
Journal of Soil Mechanics and Foundation Div., ASCE, Vol. 96, No. SM5, September
1970,pp.1629-1653.
[10]
Wong, K.S., and Duncan, lM., "Hyperbolic Stress-Strain Parameters for Nonlinear
Finite Element Analysis of Stresses and Movements in Soil Masses," Report No. TE-74-3,
University of California, Berkeley, California, 1974.
[11]
McVay, M.C., and Selig, E.T., "Soil Model and Finite Element Boundary Studies,"
Report No. ACP81-283I, Dept. of Civil Engineering, University of Massachusetts,
Amherst, Mass., July 1981.
[12]
Katona, M.G., Smith, J.M., Odello, R.S., and Allgood, J.R., "CANDE - A Modern
Approach for the Structural Design and Analysis of Buried Culverts," Report No.
FHWA-RD-77-5, FHWA, October 1976.
80
[13]
Sanderson, M. C., McVay, M. c., Dorwart, B. C., and Selig, E. T., "Soil Properties for
Bucks County Culvert Project," Report No. RSC80-242R, Prepared for Republic Steel
Corporation, Dept. of Civil Engineering, University of Massachusetts, Amherst,
Massachusetts, June, 1981.
[14]
Konder, R.L., "Hyperbolic Stress-Strain Response: Cohesive Soils," Journal of the Soil
Mechanics and Foundations Div., ASCE, Vol. 98, No. SM1, 1963, pp. 115-143.
[15]
[16]
[17]
Goodman, R. E., Taylor, R. L., and Brekke, T., "A Model for the Mechanics of Jointed
Rock," Journal of the Soil Mechanics and Foundations Divi., ASCE, Vol. 94, No. SM3,
Proc.Paper5937,May, 1968,pp.473-496
[18]
Leonards, G. A., and Wu, T. H., "Predicting performance of Buried Conduits", Report
No. 6-36-62F, Final Report to Indiana State Highway Commission and FHWA,
Engineering Experiment Station, Purdue University, W. Lafayette, Indiana, March, 1981.
[19]
Chan, S. H, and Tuba, 1. S., "A Finite Element Method for Contact Problems of Solid
Bodies," International Journal of Mechanical Science, Vol. 13, No.7, July, 1971, pp 615639.
[20]
Chang, C. S., Espinoza, J. M., and Selig, E. T., "Computer Analysis of Newtown Creek
Culvert," J. of the Geotechnical Engineering Div., ASCE, May 1980, pp531-556
[21]
Brown, C.B., "Forces on Rigid Culverts under High Fills," J. Structural Div., ASCE,
93(ST5), October 1967, pp. 195-215.
[22]
Vaslestad, J., Johansen, T.H., and Holm, W., "Load Reduction on Rigid Culverts Beneath
High Fills: Long-term Behavior," Transportation Research Record 1415, Washington,
D.C., 1993.
[23]
Kulhawy, F. H., and Duncan, J. M., and Seed, H. B., "Finite Element Analysis of Stresses
and Movements in Embankments During Construction," Geotechnical Engineering
Research Report No. TE-69-4, Department of Civil Engineering, University of
California, Berkeley , November, 1969.
[24]
Ozawa, Y., and Duncan, J.M., "ISBILD: A Computer Program for Analysis of Static
Stresses and Movements in Embankment," Report No. TE-73-4, University of California,
Berkeley, California, 1973.
81
[25]
Allen, D.L., and Meade, B.W., "Analysis of Loads and Settlements for Reinforced
Concrete Culverts," Research Report UKTRP-84-22, Kentucky Transportation Research
Program, University of Kentucky, Kentucky, 1984.
[26]
Katona, M.G., and Vittes, P.D., "Soil-Structure Analysis and Evaluation of Buried BoxCulvert Designs," Transportation Research Record 878, Washington, D.C., 1982.
[27]
Tadros, M. K., Benak, J. V., and Gilliland, M. K., "Soil Pressure on Box Culverts", ACI
Structural Jour., Vol. 86, No.4, July-August 1989. pp439-450.
[28]
Musser, S.C., "CANDE-89 User Manual," Report No. FHWA-RD-89-169, FHWA, June
1989.
[29]
[30]
Hibbit, Karlsson & Sorensen, Inc. ABAQUS/Standard User's Manual, Ver. 5.8, 1998.
[31]
Spangler, M.G., and Handy, R.L., Soil Engineering, 4th Ed., Harper and Row, New York,
1982.
[32]
[33]
Duncan, J. M., Byrne, P., Wong, K. S., and Mabry, P., "Strength, Stress-Strain and Bulk
Modulus Parameters for Finite Element Analysis of Stresses and Movements in Soil
Masses," Report No. UCB/Gtl80-01, University of California, Berkeley California,
August 1980.
[34]
Clough, G. W., and Duncan, J. M., "Finite Element Analysis of Retaining Wall
Behavior," J. of Soil Mechanics and Foundations Div., ASCE, December 1971, pp.16571673.
[35]
ACI Building Code Requirements for Structural Concrete (318-99) and Commentary
(318R-99), American Concrete Institute, Farmington Hills, Mich., 1999.
[36]
Katona, M. G., Meinhert, D. F., Orillac, R. and Lee, C. H., "Structural Evaluation of New
Concepts for Long-Span Culverts and Culvert Installation," Report No. FHWA-RD-79115, Intrim Report to Federal Highway Administration, December 1979.
[37]
Watkins, R. K., and Anderson, L. R., "Structural Mechanics of Buried Pipes," CRC Press
LLC, Boca Raton, Florida, 2000.
82
APPENDICES
APPENDIX A
Typical Input for ABAQUS
APPENDIX B
Typical Input for ISBILD
APPENDIX C
Typical Input for CANDE-89
APPENDIX D
ISBILD Source Code
APPENDIX E
CANDE-89 Source Code
APPENDIX A
TYPICAL INPUT for ABAQUS
*HEADING
LOAD ON THE CONCRETE BOX CULVERVERT
*RESTART,WRITE,FREQUENCY=5
*NODE
1,
0.,-40.
4,
6.,-40.
13,74.,-40.
*NODE,NSET=THREENO
5, 10.,-40.
6, 16.,-40.
7, 24.,-40.
*NGEN
1,4,1
7,13,1
*NSET, NSET=BOT, GENERATE
1,13,1
*NCOPY,CHANGE NUMBER=52,SHIFT,OLD SET=BOT,NEW SET=HLINE1
0.,28., O.
0.,0.,0.,0.,0.,0.,0.
*NFILL
BOT,HLINE1,4,13
*NCOPY,CHANGE NUMBER=68,SHIFT,OLD SET=THREENO
0.,30., O.
0.,0.,0.,0.,0.,0.,0.
*NCOPY,CHANGE NUMBER=84,SHIFT,OLD SET=THREENO
0.,32.,0.
0.,0.,0.,0.,0.,0.,0.
*NCOPY,CHANGE NUMBER=111,SHIFT,OLD SET=THREENO
0.,34.,0.
0.,0.,0.,0.,0.,0.,0.
*NCOPY,CHANGE NUMBER=176,SHIFT,OLD SET=THREENO
0.,42.,0.
0.,0.,0.,0.,0.,0.,0.
*NODE
66, 0.,-10.
72, 6.,-10.
81,74.,-10.
82, 0.,-8.
88,6.,-8.
97,74.,-8.
98, 0.,-7.
101,3.,-7.
107,3.,-I.
110,0.,-I.
167,0.,0.
170,3.,0.
171,0.,I.
176,5.,I.
177,0.,2.
180,6.,2.
189,74.,2.
I l l , 4.,-7.
112, 5.,-7.
113, 4.,-6.
114, 5.,-6.
115, 6.,-6.
124,74.,-6.
84
*NGEN
66,72
75,81
82,88
91,97
98,101
101,107
107,110
167,170
171,176
177,180
183,189
118,124
*NSET, NSET=LANO, GENERATE
111,124
*NCOPY,CHANGE NUMBER=14,SHlFT,OLD SET=LANO
0.,2.,0.
0.,0.,0.,0.,0.,0.,0.
*NCOPY,CHANGE NUMBER=28,SHlFT,OLD SET=LANO
0.,4.,0.
0.,0.,0.,0.,0.,0.,0.
*NCOPY,CHANGE NUMBER=42,SHlFT,OLD SET=LANO
0.,6., o.
0.,0.,0.,0.,0.,0.,0.
*NSET,NSET=FlLLBOT,GENERATE
177,189
*NCOPY,CHANGE NUMBER=247,SHlFT,OLD SET=FlLLBOT, NEW SET=FlLLTOP
0.,98.,0.
0.,0.,0.,0.,0.,0.,0.
*NFlLL
FlLLBOT, FlLLTOP, 19,13
*NSET,NSET=Sl
1,14,27,40,53,66,82,98,110,167,171,
26,39,52,65,81,97,124,138,152,166
*NSET,NSET=DES,GENERATE
177,424,13
189,436,13
*NSET,NSET=SlDESBC
Sl,DES
*NSET,NSET=BOTTOMBC
BOT
*NSET,NSET=CHECKNO,GENERATE
98,110,1
*ELEMENT, TYPE=CPE4, ELSET=CULV
82,82,83,99,98
83,83,84,100,99
84,84,85,101,100
85,85,86,111,101
86,101, 111,113,102
87,102,113,125,103
88,103,125,127,104
89,104,127,139,105
90,105,139,141,106
91,106,141,153,107
92,107,153,155,170
93,108,107,170,169
94,109,108,169,168
95,110,109,168,167
*ELEMENT,TYPE=CPE4
1,1,2,15,14
58,56,57,73,72
67,66,67,83,82
101,88,89,116,115
85
115,115,116,130,129
167,157,158,181,180
96,86,87,112,111
97,111,112,114,113
110,113,114,126,125
111,125,126,128,127
124,127,128,140,139
125,139,140,142,141
138,141,142,154,153
139,153,154,156,155
152,167,168,172,171
153,168,169,173,172
154,169,170,174,173
155,170,155,175,174
156,155,156,176,175
*ELGEN
1,12,1,1,4,13,12
58,9,1,1
67,15,1,1
101,9,1,1
115,9, I, I, 3, 14,14
167,9,1,1
*ELEMENT,TYPE=CPE3
98,112,115,114
99,112,88,115
100,87,88,112
112,126,129,128
113,126,115,129
114,114,115,126
157,171,172,177
158,172,178,177
159,172,173,178
160,173,174,178
161,174,179,178
162,174,175,179
163,175,176,179
164,176,180,179
165,176,157,180
166,156,157,176
49,53,67,66
50,53,54,67
51,54,68,67
52,54,69,68
53,54,55,69
54,69,55,70
55,55,71,70
56,55,56,71
57,71,56,72
*ELGEN
112,3,14,14
113,3,14,14
114,3,14,14
*ELEMENT,TYPE=CPE4
176,177,178,191,190
*ELGEN
176,12,1,1,19,13,12
*ELSET,ELSET=Fl,GENERATE
1,12
*ELSET,ELSET=F4,GENERATE
86
37,48
*ELSET,ELSET=F5,GENERATE
49,66
*ELSET, ELSET=F6, GENERATE
67,81
*ELSET, ELSET=LACOM, GENERATE
96,102
*ELSET, ELSET=LBCOM, GENERATE
110,116
*ELSET, ELSET=LCCOM, GENERATE
124,130
*ELSET,ELSET=LDCOM,GENERATE
138,144
*ELSET, ELSET=LA, GENERATE
103,109
*ELSET,ELSET=LB,GENERATE
117,123
*ELSET, ELSET=LC, GENERATE
131,137
*ELSET,ELSET=LD,GENERATE
145,151
*ELSET, ELSET=L1, GENERATE
152,175
*ELSET,ELSET=L2,GENERATE
176,187
*ELSET, ELSET=L3, GENERATE
188,199
*ELSET,ELSET=L4,GENERATE
200,211
*ELSET,ELSET=L5,GENERATE
212,223
*ELSET, ELSET=L6, GENERATE
224,235
*ELSET, ELSET=L7, GENERATE
236,247
*ELSET,ELSET=L8,GENERATE
248,259
*ELSET,ELSET=L9,GENERATE
260,271
*ELSET, ELSET=LI0, GENERATE
272,283
*ELSET,ELSET=Ll1,GENERATE
284,295
*ELSET, ELSET=LI2, GENERATE
296,307
*ELSET,ELSET=L13,GENERATE
308,319
*ELSET,ELSET=L14,GENERATE
320,331
*ELSET,ELSET=L15,GENERATE
332,343
*ELSET,ELSET=LI6,GENERATE
344,355
*ELSET,ELSET=LI7,GENERATE
356,367
*ELSET, ELSET=L18, GENERATE
368,379
*ELSET,ELSET=L19,GENERATE
380,391
*ELSET, ELSET=L20, GENERATE
392,403
*ELSET,ELSET=CHECKEL
152,153,154,155,156,
87
92,93,94,95,
96,97,110,111,124,125,138,139
*SOL10 SECT10N,ELSET=L1,MATER1AL=L1
*SOL10 SECT10N,ELSET=L2,MATER1AL=L2
*SOL1D SECT10N,ELSET=L3,MATER1AL=L3
*SOL10 SECT10N,ELSET=L4,MATER1AL=L4
*SOL10 SECT10N,ELSET=L5,MATER1AL=L5
*SOL10 SECT10N,ELSET=L6,MATER1AL=L6
*SOL10 SECT10N,ELSET=L7,MATER1AL=L7
*SOL10 SECT10N,ELSET=L8,MATER1AL=L8
*SOL10 SECT10N,ELSET=L9,MATER1AL=L9
*SOL10 SECT10N,ELSET=L10,MATER1AL=L10
*SOL10 SECT10N,ELSET=L11,MATER1AL=L11
*SOL1D SECT10N,ELSET=L12,MATER1AL=L12
*SOL1D SECT10N,ELSET=L13,MATER1AL=L13
*SOL1D SECT10N,ELSET=L14,MATER1AL=L14
*SOL1D SECT10N,ELSET=L15,MATER1AL=L15
*SOL10 SECT10N,ELSET=L16,MATER1AL=L16
*SOL1D SECT10N,ELSET=L17,MATER1AL=L17
*SOL1D SECT10N,ELSET=L18,MATER1AL=L18
*SOL1D SECT10N,ELSET=L19,MATER1AL=L19
*SOL1D SECT10N,ELSET=L20,MATER1AL=L20
*SOL1D SECT10N,ELSET=LA,MATER1AL=LA
*SOL10 SECT10N,ELSET=LB,MATER1AL=LB
*SOL10 SECT10N,ELSET=LC,MATER1AL=LC
*SOL10 SECT10N,ELSET=LO,MATER1AL=LO
*SOL1D SECT10N,ELSET=LACOM,MATER1AL=LACOM
*SOL10 SECT10N,ELSET=LBCOM,MATER1AL=LBCOM
*SOL10 SECT10N,ELSET=LCCOM,MATER1AL=LCCOM
*SOL1D SECT10N,ELSET=LDCOM,MATER1AL=LDCOM
*SOL10 SECT10N,ELSET=F1,MATER1AL=F1
*SOL1D SECT10N,ELSET=F2,MATER1AL=F2
*SOL1D SECT10N,ELSET=F3,MATER1AL=F3
*SOL10 SECT10N,ELSET=F4,MATER1AL=F4
*SOL1D SECT10N,ELSET=F5,MATER1AL=F5
*SOL10 SECT10N,ELSET=F6,MATER1AL=F6
*MATER1AL,NAME=L20
*ELAST1C
238.,0.425
*DENS1TY
0.125
*MATER1AL,NAME=L19
*ELAST1C
313.,0.401
*DENS1TY
0.125
*MATER1AL,NAME=L18
*ELAST1C
356.,0.388
*OENS1TY
0.125
*MATERIAL,NAME=L17
*ELASTIC
387.,0.378
*OENS1TY
0.125
*MATERIAL,NAME=L16
*ELASTIC
412.,0.370
*DENSITY
0.125
*MATERIAL,NAME=L15
*ELAST1C
88
433.,0.364
*DENSITY
0.125
*MATERIAL,NAME=L14
*ELASTIC
452.,0.358
*DENSITY
0.125
*MATERIAL,NAME=L13
*ELASTIC
468.,0.353
*DENSITY
0.125
*MATERIAL,NAME=L12
*ELASTIC
483.,0.348
*DENSITY
0.125
*MATERIAL,NAME=L11
*ELASTIC
497.,0.344
*DENSITY
0.125
*MATERIAL,NAME=L10
*ELASTI.C
509.,0.340
*DENSITY
0.125
*MATERIAL,NAME=L9
*ELASTIC
521.,0.336
*DENSITY
0.125
*MATERIAL,NAME=L8
*ELASTIC
532.,0.332
*DENSITY
0.125
*MATERIAL,NAME=L7
*ELASTIC
542.,0.329
*DENSITY
0.125
*MATERIAL,NAME=L6
*ELASTIC
552.,0.326
*DENSITY
0.125
*MATERIAL,NAME=L5
*ELASTIC
561.,0.323
*DENSITY
0.125
*MATERIAL,NAME~L4
*ELASTIC
570.,0.320
*DENSITY
0.125
*MATERIAL,NAME=L3
*ELASTIC
578.,0.318
*DENSITY
0.125
89
I ,
*MATERIAL,NAME=L2
*ELASTIC
587.,0.315
*DENSITY
0.125
*MATERIAL,NAME=L1
*ELASTIC
592.,0.313
*DENSITY
0.125
*MATERIAL,NAME=LD
*ELASTIC
595.,0.313
*DENSITY
0.125
*MATERIAL,NAME=LC
*ELASTIC
598.,0.312
*DENSITY
0.125
*MATERIAL,NAME=LB
*ELASTIC
601.,0.311
*DENSITY
0.125
*MATERIAL,NAME=LA
*ELASTIC
604.,0.310
*DENSITY
0.125
*MATERIAL,NAME=LDCOM
*ELASTIC
595.,0.313
*DENSITY
0.125
*MATERIAL,NAME=LCCOM
*ELASTIC
598.,0.312
*DENSITY
0.125
*MATERIAL,NAME=LBCOM
*ELASTIC
601.,0.311
*DENSITY
0.125
*MATERIAL,NAME=LACOM
"ELASTIC
604.,0.310
"DENSITY
0.125
*MATERIAL,NAME=F6
*ELASTIC
353.,0.450
*DENSITY
0.126
*MATERIAL,NAME=F5
*ELASTIC
362.,0.450
*DENSITY
0.126
*MATERIAL,NAME=F4
"ELASTIC
376.,0.450
90
*DENSITY
0.126
*MATERIAL,NAME=F3
*ELASTIC
400.,0.450
*DENSITY
0.126
*MATERIAL,NAME=F2
*ELASTIC
431.,0.450
*DENSITY
0.126
*MATERIAL,NAME=F1
*ELASTIC
465.,0.450
*DENSITY
0.126
*SOLID SECTION,ELSET=CULV,MATERIAL=CULV
*MATERIAL,NAME=CULV
*ELASTIC
519120,0.250
*DENSITY
0.15
*STEP
1ST ANALYSIS
*STATIC
*BOUNDARY
BOTTOMBC,1,2
SIDESBC,l
*DLOAD
F1,
GRAV,1.0,0.,-1.,0.
F2,
GRAV,1.0,0.,-1.,0.
F3,
GRAV,1.0,0.,-1.,0.
F4,
GRAV,1.0,0.,-1.,0.
F5,
GRAV,l.0,O.,-1.,0.
F6,
GRAV,l.0,0.,-1.,0.
CULV,
GRAV,l.0,0.,-1.,0.
*MODEL CHANGE, REMOVE
LA,LB,LC,LD,LACOM,LBCOM,LCCOM,LDCOM,
L1,L2,L3,L4,L5,L6,L7,L8,L9,L10,
L11,L12,L13,L14,L15,L16,L17,L18,L19,L20
*NODE PRINT,NSET=CHECKNO
U, RF
*EL PRINT,ELSET=CHECKEL,POSITION=CENTROIDAL
S,E
*NODE FILE, NSET=CHECKNO
U
91
LB,LBCOM,
*DLOAD,OP=MOD
LB, GRAV, 1. 0, 0., -1., O.
LBCOM, GRAV, 1.0, D., -1., D.
*END STEP
*STEP
add construction layer LC
*STATIC
*MODEL CHANGE,ADD=STRAINFREE
LC,LCCOM,
*DLOAD,OP=MOD
LC, GRAV, 1. 0, 0., -1., O.
LCCOM, GRAV, 1.0, D., -1., O.
*END STEP
*STEP
add construction layer LD
*STATIC
*MODEL CHANGE,ADD=STRAINFREE
LD,LDCOM
*DLOAD,OP=MOD
LD, GRAV, 1.0,0., -1., O.
LDCOM, GRAV, 1.0, D., -1., O.
*END STEP
*STEP
add 1st construction layer
*STATIC
*MODEL CHANGE,ADD=STRAINFREE
L1,
*DLOAD,OP=MOD
L1, GRAV, 1.0, 0., -1., O.
*END STEP
"'STEP
add 2nd construction layer
*STATIC
*MODEL CHANGE,ADD=STRAINFREE
L2,
*DLOAD,OP=MOD
L2, GRAV, 1. 0, 0., -1., O.
"'END STEP
*STEP
add 3rd construction layer
"'STATIC
*MODEL CHANGE,ADD=STRAINFREE
L3,
*DLOAD,OP=MOD
L3, GRAV, 1.0, 0., -1., O.
*END STEP
*STEP
add 4th construction layer
*STATIC
*MODEL CHANGE,ADD=STRAINFREE
L4,
*DLOAD,OP=MOD
L4, GRAV, 1.0, 0., -1., O.
*END STEP
*STEP
add 5th construction layer
*STATIC
*MODEL CHANGE,ADD=STRAINFREE
L5,
*DLOAD,OP=MOD
L5, GRAV, 1.0, 0., -1., O.
*END STEP
92
*STEP
add 6th construction layer
*STATIC
*MODEL CHANGE,ADD=STRAINFREE
L6,
*DLOAD,OP=MOD
L6, GRAV, 1.0, 0., -1., D.
*END STEP
*STEP
add 7th construction layer
*STATIC
*MODEL CHANGE,ADD=STRAINFREE
L7,
"DLOAD,OP=MOD
L7, GRAV, 1.0, D., -1., O.
*END STEP
*STEP
add 8th construction layer
*STATIC
*MODEL CHANGE,ADD=STRAINFREE
La,
*DLOAD,OP=MOD
L8, GRAV, 1.0, 0., -1.,
"END STEP
*STEP
o.
"STATIC
*MODEL CHANGE,ADD=STRAINFREE
L9,
*DLOAD,OP=MOD
L9, GRAV, 1. 0, D., -1., O.
*END STEP
"STEP
add 11th construction layer
*STATIC
*MODEL CHANGE,ADD=STRAINFREE
LID,
*DLOAD,OP=MOD
LI0, GRAV, 1.0, 0., -1., O.
*END STEP
*STEP
add construction layer Lll
*STATIC
*MODEL CHANGE,ADD=STRAINFREE
Lll,
*DLOAD,OP=MOD
LlI, GRAV, 1.0, 0., -1., O.
*END STEP
*STEP
add construction layer Ll2
"STATIC
*MODEL CHANGE,ADD=STRAINFREE
L12,
*DLOAD,OP=MOD
L12, GRAV, 1.0, 0., -1., O.
*END STEP
*STEP
add construction layer Ll3
*STATIC
*MODEL CHANGE,ADD=STRAINFREE
L13,
"DLOAD,OP=MOD
L13, GRAV, 1.0, 0., -1., O.
93
*END STEP
*STEP
add construction layer L14
*STATIC
*MODEL CHANGE,ADD~STRAINFREE
114,
*D10AD,OP=MOD
114, GRAV, 1.0, 0., -1., O.
*END STEP
*STEP
add construction layer 115
*STATIC
*MODEL CHANGE,ADD=STRAINFREE
115,
*DLOAD,OP=MOD
L15, GRAV, 1.0, 0., -1., O.
*END STEP
*STEP
add construction layer L16
*STATIC
*MODEL CHANGE,ADD=STRAINFREE
L16,
*DLOAD,OP=MOD
L16, GRAV, 1.0, 0., -1., O.
*END STEP
*STEP
add construction layer L17
*STATIC
*MODEL CHANGE,ADD=STRAINFREE
L17,
*DLOAD,OP=MOD
L17, GRAV, 1. 0, 0., -1., O.
*END STEP
*STEP
add construction layer L18
*STATIC
*MODEL CHANGE,ADD=STRAINFREE
L18,
*DLOAD,OP=MOD
L18, GRAV, 1.0, 0., -1., o.
*END STEP
*STEP
add construction layer L19
*STATIC
*MODEL CHANGE,ADD=STRAINFREE
L19,
*DLOAD,OP=MOD
L19, GRAV, 1.0, 0., -1., O.
*END STEP
*STEP
add construction layer L20
*STATIC
*MODEL CHANGE,ADD=STRAINFREE
L20,
*DLOAD,OP=MOD
L20, GRAV, 1.0, 0., -1., O.
*END STEP
94
APPENDIXB
TYPICAL INPUT for ISBILD
CULVERT ANALYSIS
403,436,81,97,14,30,4,24,0,0,1,872,
2.116,
1,0.126, 78., 78.,1.24,0.0077,0.50,0.0014,0.0,26 . ,0.92,0.5,
2,0.125,300.,300.,0.25,6.2000,0.26,0.0400,0.0,32.,0.70,0.0,
3,0.125,300.,300.,0.25,6.2000,0.26,0.0400,0.0,32.,0.70,0.0,
4,0.150,245330.,245330.,0.01,6.2,0.26,0.04,0.8,89.,0.63,0.,
1,
0.,
-40.000,
1, 1,
2,
2.0000,
-40.000,
1, 1,
3,
4.0000,
-40.000,
1,1,
4,
6.0000,
-40.000,
1, 1,
5,
10.000,
-40.000,
1,1,
6,
16.000,
-40 . 000,
1,1,
7,
24.000,
-40.000,
I, 1,
8,
32.333,
-40.000,
1, 1,
9,
40.667,
-40.000,
1,1,
10,
49.000,
-40.000,
1, 1,
11,
57.333,
-40.000,
1,1,
12,
65.667,
-40.000,
1, 1,
13,
74.000,
-40.000,
1, 1,
14,
0.,
-33.000,
1,
15,
2.0000,
-33.000,
16,
4.0000,
-33.000,
17,
6.0000,
-33.000,
18,
10.000,
-33.000,
19,
16.000,
-33.000,
20,
24.000,
-33.000,
21,
32.333,
-33.000,
22,
40.667,
-33.000,
23,
49.000,
-33.000,
24,
57.333,
-33.000,
25,
65.667,
-33.000,
26,
74.000,
-33.000,
1,
27,
0.,
-26.000,
1,
28,
2.0000,
-26.000,
29,
4.0000,
-26.000,
30,
6.0000,
-26.000,
31,
10.000,
-26 . 000,
32,
16.000,
-26.000,
33,
24.000,
-26.000,
34,
32.333,
-26.000,
35,
40.667,
-26 . 000,
36,
49.000,
-26.000,
37,
57.333,
-26.000,
38,
65.667,
-26.000,
39,
74.000,
-26.000,
1,
40,
0.,
-19.000,
1,
41,
2.0000,
-19.000,
42,
4.0000,
-19.000,
43,
6.0000,
-19.000,
44,
10.000,
-19.000,
45,
16.000,
-19.000,
46,
24.000,
-19.000,
47,
32.333,
-19.000,
48,
40.667,
-19.000,
49,
49.000,
-19.000,
50,
57.333,
-19.000,
95
51,
52,
53,
54,
55,
56,
57,
58,
59,
60,
61,
62,
63,
64,
65,
66,
67,
68,
69,
70,
71,
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,
Ill,
112,
113,
65.667,
74.000,
O. ,
2.0000,
4.0000,
6.0000,
10.000,
16.000,
24.000,
32.333,
40.667,
49.000,
57.333,
65.667,
74.000,
O. ,
1. 0000,
2.0000,
3.0000,
4.0000,
5.0000,
6.0000,
10.000,
16.000,
24.000,
32.333,
40.667,
49.000,
57.333,
65.667,
74.000,
O. ,
1. 0000,
2.0000,
3.0000,
4.0000,
5.0000,
6.0000,
10.000,
16.000,
24.000,
32.333,
40.667,
49.000,
57.333,
65.667,
74.000,
O. ,
1. 0000,
2.0000,
3.0000,
3.0000,
3.0000,
3.0000,
3.0000,
3.0000,
3.0000,
2.0000,
1.0000,
O. ,
4.0000,
5.0000,
4.0000,
-19.000,
-19.000,
-12.000,
-12.000,
-12.000,
-12.000,
-12.000,
-12.000,
-12.000,
-12.000,
-12.000,
-12.000,
-12.000,
-12.000,
-12.000,
-10.000,
-10.000,
-10.000,
-10.000,
-10.000,
-10.000,
-10.000,
-10. 000,
-10.000,
-10.000,
-10.000,
-10.000,
-10.000,
-10.000,
-10.000,
-10.000,
-8.0000,
-8.0000,
-8.0000,
-8.0000,
-8.0000,
-8.0000,
-8.0000,
-8.0000,
-8.0000,
-8.0000,
-8.0000,
-8.0000,
-8.0000,
-8.0000,
-8.0000,
-8.0000,
-7.0000,
-7.0000,
-7.0000,
-7.0000,
-6.0000,
-5.0000,
-4.0000,
-3.0000,
-2.0000,
-1.0000,
-1.0000,
-1.0000,
-1.0000,
-7.0000,
-7.0000,
-6.0000,
1,
1,
1,
1,
1,
1,
1,
1,
1,
96
114,
115,
116,
117,
118,
119,
120,
121,
122,
123,
124,
125,
126,
127,
128,
129,
130,
131,
132,
133,
134,
135,
136,
137,
138,
139,
140,
141,
142,
143,
144,
145,
146,
147,
148,
149,
150,
151,
152,
153,
154,
155,
156,
157,
158,
159,
160,
161,
162,
163,
164,
165,
166,
167,
168,
169,
170,
171,
172,
173,
174,
175,
176,
5.0000,
6.0000,
10.000,
16.000,
24.000,
32.333,
40.667,
49.000,
57.333,
65.667,
74.000,
4.0000,
5.0000,
4.0000,
5.0000,
6.0000,
10.000,
16.000,
24.000,
32.333,
40.667,
49.000,
57.333,
65.667,
74.000,
4.0000,
5.0000,
4.0000,
5.0000,
6.0000,
10.000,
16.000,
24.000,
32.333,
40.667,
49.000,
57.333,
65.667,
74.000,
4.0000,
5.0000,
4.0000,
5.0000,
6.0000,
10.000,
16.000,
24.000,
32.333,
40.667,
49.000,
57.333,
65.667,
74.000,
-6.0000,
-6.0000,
-6.0000,
-6.0000,
-6.0000,
-6.0000,
-6.0000,
-6.0000,
-6.0000,
-6.0000,
-6.0000,
-5.0000,
-5.0000,
-4.0000,
-4.0000,
-4.0000,
-4.0000,
-4.0000,
-4.0000,
-4.0000,
-4.0000,
-4.0000,
-4.0000,
-4.0000,
-4.0000,
-3.0000,
-3.0000,
-2.0000,
-2.0000,
-2.0000,
-2.0000,
-2.0000,
-2.0000,
-2.0000,
-2.0000,
-2.0000,
-2.0000,
-2.0000,
-2.0000,
-1.0000,
-1. 0000,
,
1,
1,
1,
o. ,
O. ,
o. ,
O. ,
o. ,
o. ,
o. ,
o. ,
O. ,
o. ,
o. ,
O. ,
1,
1,
2.0000,
3.0000,
o. ,
o. ,
o. ,
o. ,
1.0000,
1.0000,
1.0000,
1.0000,
1.0000,
1.0000,
1,
1.0000,
2.0000,
3.0000,
4.0000,
5.0000,
o. ,
1. 0000,
o. ,
97
177,
178,
179,
180,
181,
182,
183,
184,
185,
186,
187,
188,
189,
190,
191,
192,
193,
194,
195,
196,
197,
198,
199,
200,
201,
202,
203,
204,
205,
206,
207,
208,
209,
210,
211,
212,
213,
214,
215,
216,
217,
218,
219,
220,
221,
222,
223,
224,
225,
226,
227,
228,
229,
230,
231,
232,
233,
234,
235,
236,
237,
238,
239,
o. ,
2.0000,
4.0000,
6.0000,
10.000,
16.000,
24.000,
32.333,
40.667,
49.000,
57.333,
65.667,
74.000,
O. ,
2.0000,
4.0000,
6.0000,
10.000,
16.000,
24.000,
32.333,
40.667,
49.000,
57.333,
65.667,
74.000,
O. ,
2.0000,
4.0000,
6.0000,
10.000,
16.000,
24.000,
32.333,
40.667,
49.000,
57.333,
65.667,
74.000,
O. ,
2.0000,
4.0000,
6.0000,
10.000,
16.000,
24.000,
32.333,
40.667,
49.000,
57.333,
65.667,
74.000,
O. ,
2.0000,
4.0000,
6.0000,
10.000,
16.000,
24.000,
32.333,
40.667,
49.000,
57.333,
2.0000,
2.0000,
2.0000,
2.0000,
2.0000,
2.0000,
2.0000,
2.0000,
2.0000,
2.0000,
2.0000,
2.0000,
2.0000,
7.1579,
7.1579,
7.1579,
7.1579,
7.1579,
7.1579,
7.1579,
7.1579,
7.1579,
7.1579,
7.1579,
7.1579,
7.1579,
12.316,
12.316,
12.316,
12.316,
12.316,
12.316,
12.316,
12.316,
12.316,
12.316,
12.316,
12.316,
12.316,
17.474,
17.474,
17.474,
17.474,
17.474,
17.474,
17.474,
17.474,
17.474,
17.474,
17.474,
17.474,
17.474,
22.632,
22.632,
22.632,
22.632,
22.632,
22.632,
22.632,
22.632,
22.632,
22.632,
22.632,
1,
1,
1,
1,
1,
,
1,
1,
,
1,
1,
98
240,
241,
242,
243,
244,
245,
246,
247,
248,
249,
250,
251,
252,
253,
254,
255,
256,
257,
258,
259,
260,
261,
262,
263,
264,
265,
266,
267,
268,
269,
270,
271,
272,
273,
274,
275,
276,
277,
278,
279,
280,
281,
282,
283,
284,
285,
286,
287,
288,
289,
290,
291,
292,
293,
294,
295,
296,
297,
298,
299,
300,
301,
302,
65.667,
74.000,
0. ,
2.0000,
4.0000,
6.0000,
10.000,
16.000,
24.000,
32.333,
40.667,
49.000,
57.333,
65.667,
74.000,
O. ,
2.0000,
4.0000,
6.0000,
10.000,
16.000,
24.000,
32.333,
40.667,
49.000,
57.333,
65.667,
74.000,
0. ,
2.0000,
4.0000,
6.0000,
10.000,
16.000,
24.000,
32.333,
40.667,
49.000,
57.333,
65.667,
74.000,
0. ,
2.0000,
4.0000,
6.0000,
10.000,
16.000,
24.000,
32.333,
40.667,
49.000,
57.333,
65.667,
74.000,
O. ,
2.0000,
4.0000,
6.0000,
10.000,
16.000,
24.000,
32.333,
40.667,
22.632,
22.632,
27.789,
27.789,
27.789,
27.789,
27.789,
27.789,
27.789,
27.789,
27.789,
27.789,
27.789,
27.789,
27.789,
32.947,
32.947,
32.947,
32.947,
32.947,
32.947,
32.947,
32.947,
32.947,
32.947,
32.947,
32.947,
32.947,
38.105,
38.105,
38.105,
38.105,
38.105,
38.105,
38.105,
38.105,
38.105,
38.105,
38.105,
38.105,
38.105,
43.263,
43.263,
43.263,
43.263,
43.263,
43.263,
43.263,
43.263,
43.263,
43.263,
43.263,
43.263,
43.263,
48.421,
48.421,
48.421,
48.421,
48.421,
48.421,
48.421,
48.421,
48.421,
,
1,
1,
I,
1,
,
1,
1,
,
1,
1,
,
1,
1,
99
303,
304,
305,
306,
307,
308,
309,
310,
311,
312,
313,
314,
315,
316,
317,
318,
319,
320,
321,
322,
323,
324,
325,
326,
327,
328,
329,
330,
331,
332,
333,
334,
335,
336,
337,
338,
339,
340,
341,
342,
343,
344,
345,
346,
347,
348,
349,
350,
351,
352,
353,
354,
355,
356,
357,
358,
359,
360,
361,
362,
363,
364,
365,
49.000,
57.333,
65.667,
74.000,
o. ,
2.0000,
4.0000,
6.0000,
10.000,
16.000,
24.000,
32.333,
40.667,
49.000,
57.333,
65.667,
74.000,
o. ,
2.0000,
4.0000,
6.0000,
10.000,
16.000,
24.000,
32.333,
40.667,
49.000,
57.333,
65.667,
74.000,
o. ,
2.0000,
4.0000,
6.0000,
10.000,
16.000,
24.000,
32.333,
40.667,
49.000,
57.333,
65.667,
74.000,
o. ,
2.0000,
4.0000,
6.0000,
10.000,
16.000,
24.000,
32.333,
40.667,
49.000,
57.333,
65.667,
74.000,
o. ,
2.0000,
4.0000,
6.0000,
10.000,
16.000,
24.000,
48.421,
48.421,
48.421,
48.421,
53.579,
53.579,
53.579,
53.579,
53.579,
53.579,
53.579,
53.579,
53.579,
53.579,
53.579,
53.579,
53.579,
58.737,
58.737,
58.737,
58.737,
58.737,
58.737,
58.737,
58.737,
58.737,
58.737,
58.737,
58.737,
58.737,
63.895,
63.895,
63.895,
63.895,
63.895,
63.895,
63.895,
63.895,
63.895,
63.895,
63.895,
63.895,
63.895,
69.053,
69.053,
69.053,
69.053,
69.053,
69.053,
69.053,
69.053,
69.053,
69.053,
69.053,
69.053,
69.053,
74.211,
74.211,
74.211,
74.211,
74.211,
74.211,
74.211,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
100
.,
366,
367,
368,
369,
370,
371,
372,
373,
374,
375,
376,
377,
378,
379,
380,
381,
382,
383,
384,
385,
386,
387,
388,
389,
390,
391,
392,
393,
394,
395,
396,
397,
398,
399,
400,
401,
402,
403,
404,
405,
406,
407,
408,
409,
410,
411,
412,
413,
414,
415,
416,
417,
418,
419,
420,
421,
422,
423,
424,
425,
426,
427,
428,
32.333,
40.667,
49.000,
57.333,
65.667,
74.000,
o. ,
2.0000,
4.0000,
6.0000,
10.000,
16.000,
24.000,
32.333,
40.667,
49.000,
57.333,
65.667,
74.000,
O. ,
2.0000,
4.0000,
6.0000,
10.000,
16.000,
24.000,
32.333,
40.667,
49.000,
57.333,
65.667,
74.000,
o. ,
2.0000,
4.0000,
6.0000,
10.000,
16.000,
24.000,
32.333,
40.667,
49.000,
57.333,
65.667,
74.000,
o. ,
2.0000,
4.0000,
6.0000,
10.000,
16.000,
24.000,
32.333,
40.667,
49.000,
57.333,
65.667,
74.000,
O. ,
2.0000,
4.0000,
6.0000,
10.000,
74.211,
74.211,
74.211,
74.211,
74.211,
74.211,
79.368,
79.368,
79.368,
79.368,
79.368,
79.368,
79.368,
79.368,
79.368,
79.368,
79.368,
79.368,
79.368,
84.526,
84.526,
84.526,
84.526,
84.526,
84.526,
84.526,
84.526,
84.526,
84.526,
84.526,
84.526,
84.526,
89.684,
89.684,
89.684,
89.684,
89.684,
89.684,
89.684,
89.684,
89.684,
89.684,
89.684,
89.684,
89.684,
94.842,
94.842,
94.842,
94.842,
94.842,
94.842,
94.842,
94.842,
94.842,
94.842,
94.842,
94.842,
94.842,
100.00,
100.00,
100.00,
100.00,
100.00,
1,
1,
1,
1,
1,
1,
1,
1,
,
1,
1,
101
429,
430,
431,
432,
433,
434,
435,
436,
1,
2,
3,
4,
5,
6,
7,
8,
9,
10,
11,
12,
13,
14,
15,
16,
17,
18,
19,
20,
21,
22,
23,
24,
25,
26,
27,
28,
29,
30,
31,
32,
33,
34,
35,
36,
37,
38,
39,
40,
41,
42,
43,
44,
45,
46,
47,
48,
49,
50,
51,
52,
53,
54,
55,
16.000,
24.000,
32.333,
40.667,
49.000,
57.333,
65.667,
74.000,
1,
2,
3,
4,
5,
6,
7,
8,
9,
10,
11,
12,
14,
15,
16,
17,
18,
19,
20,
21,
22,
23,
24,
25,
27,
28,
29,
30,
31,
32,
33,
34,
35,
36,
37,
38,
40,
41,
42,
43,
44,
45,
46,
47,
48,
49,
50,
51,
53,
53,
54,
54,
54,
69,
55,
100.00,
100.00,
100.00,
100.00,
100.00,
100.00,
100.00,
100.00,
2,
3,
4,
5,
6,
7,
8,
9,
10,
11,
12,
13,
15,
16,
17,
18,
19,
20,
21,
22,
23,
24,
25,
26,
28,
29,
30,
31,
32,
33,
34,
35,
36,
37,
38,
39,
41,
42,
43,
44,
45,
46,
47,
48,
49,
50,
51,
52,
67,
54,
68,
69,
55,
55,
71,
,
1,
15,
16,
17,
18,
19,
20,
21,
22,
23,
24,
25,
26,
28,
29,
30,
31,
32,
33,
34,
35,
36,
37,
38,
39,
41,
42,
43,
44,
45,
46,
47,
48,
49,
50,
51,
52,
54,
55,
56,
57,
58,
59,
60,
61,
62,
63,
64,
65,
66,
67,
67,
68,
69,
70,
70,
14,
15,
16,
17,
18,
19,
20,
21,
22,
23,
24,
25,
27,
28,
29,
30,
31,
32,
33,
34,
35,
36,
37,
38,
40,
41,
42,
43,
44,
45,
46,
47,
48,
49,
50,
51,
53,
54,
55,
56,
57,
58,
59,
60,
61,
62,
63,
64,
66,
67,
67,
68,
69,
70,
70,
102
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
56,
57,
58,
59,
60,
61,
62,
63,
64,
65,
66,
67,
68,
69,
70,
71,
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,
114,
115,
116,
117,
118,
55,
71,
56,
57,
58,
59,
60,
61,
62,
63,
64,
66,
67,
68,
69,
70,
71,
72,
73,
74,
75,
76,
77,
78,
79,
80,
82,
83,
84,
85,
101,
102,
103,
104,
105,
106,
107,
108,
109,
110,
86,
111,
112,
112,
87,
88,
89,
90,
91,
92,
93,
94,
95,
96,
113,
125,
126,
126,
114,
115,
116,
117,
118,
56,
56,
57,
58,
59,
60,
61,
62,
63,
64,
65,
67,
68,
69,
70,
71,
72,
73,
74,
75,
76,
77,
78,
79,
80,
81,
83,
84,
85,
86,
Ill,
1l3,
125,
127,
139,
141,
153,
107,
108,
109,
87,
112,
115,
88 ,
88,
89,
90,
91,
92,
93,
94,
95,
96,
97,
114,
126,
1 2 9,
115,
115,
116,
117,
118,
119,
71,
72,
73,
74,
75,
76,
77,
78,
79,
80,
81,
8 3,
84,
85,
86,
87,
88,
89,
90,
91,
92,
93,
94,
95,
96,
97,
99,
100,
101,
Ill,
113,
125,
127,
139,
141,
15 3 ,
155,
170,
169,
168,
1 12,
114,
114,
115,
112,
116,
117,
118,
119,
1 2 0,
121,
122,
123,
124,
126,
128,
128,
129,
126,
l30,
131,
132,
133,
71,
72,
72,
73,
74,
75,
76,
77,
78,
79,
80,
82,
83,
84,
85,
86,
87,
88,
89,
90,
91,
92,
93,
94,
95,
96,
98,
99,
100,
101,
102,
103,
104,
105,
106,
107,
170,
169,
168,
167,
111,
113,
114,
115,
112,
115,
116,
117,
118,
119,
120,
121,
122,
123,
125,
127,
128,
129,
126,
129,
130,
131,
132,
103
I,
1,
1,
1,
1,
1,
1,
1,
1,
I,
I,
1,
1,
1,
1,
1,
I,
1,
I,
1,
1,
1,
1,
1,
1,
1,
II ,
4,
4,
4,
1/ ,
II ,
I! ,
4,
4,
4,
1/ ,
4,
1/ ,
1/ ,
3,
3,
3,
3,
3,
3,
3,
2,
2,
2,
2,
2,
2,
2,
3,
3,
3,
3,
3,
3,
3,
2,
2,
119,
120,
121,
122,
123,
124,
125,
126,
127,
128,
129,
130,
131,
132,
133,
134,
135,
136,
137,
138,
139,
140,
141,
142,
143,
144,
145,
146,
147,
148,
149,
150,
151,
152,
153,
154,
155,
156,
157,
158,
159,
160,
161,
162,
163,
164,
165,
166,
167,
168,
169,
170,
171,
172,
173,
174,
175,
176,
177,
178,
179,
18O,
181,
119,
120,
121,
122,
123,
127,
139,
140,
140,
128,
129,
130,
131,
132,
133,
134,
135,
136,
137,
141,
153,
154,
154,
142,
143,
144,
145,
146,
147,
148,
149,
150,
151,
167,
168,
169,
170,
155,
171,
172,
172,
173,
174,
174,
175,
176,
176,
156,
157,
158,
159,
160,
161,
162,
163,
164,
165,
177,
178,
179,
180,
181,
182,
120,
121,
122,
123,
124,
128,
140,
143,
129,
129,
130,
131,
132,
133,
134,
135,
136,
137,
138,
142,
154,
157,
143,
143,
144,
145,
146,
147,
148,
149,
ISO,
151,
152,
168,
169,
170,
ISS,
156,
172,
178,
173,
174,
179,
175,
176,
180,
157,
157,
158,
159,
160,
161,
162,
163,
164,
165,
166,
178,
179,
180,
181,
182,
183,
134,
135,
136,
137,
138,
140,
142,
142,
143,
140,
144,
145,
146,
147,
148,
149,
150,
151,
152,
154,
156,
156,
157,
154,
158,
159,
160,
161,
162,
163,
164,
165,
166,
172,
173,
174,
175,
176,
177,
177,
178,
178,
178,
179,
179,
179,
180,
176,
181,
182,
183,
184,
185,
186,
187,
188,
189,
191,
192,
193,
194,
195,
196,
133,
134,
135,
136,
137,
139,
141,
142,
143,
140,
143,
144,
145,
14 6,
147,
148,
149,
150,
151,
153,
155,
156,
157,
154,
157,
158,
159,
160,
161,
162,
163,
164,
165,
171,
172,
173,
174,
175,
177,
177,
178,
178,
178,
179,
179,
179,
180,
176,
180,
181,
182,
183,
184,
185,
186,
187,
188,
19O,
191,
192,
193,
194,
195,
104
2,
2,
2,
2,
2,
3,
3,
3,
3,
3,
3,
3,
2,
2,
2,
2,
2,
2,
2,
3,
3,
3,
3,
3,
3,
3,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
182,
183,
184,
185,
186,
187,
188,
189,
190,
191,
192,
193,
194,
195,
196,
197,
198,
199,
200,
201,
202,
203,
204,
205,
206,
207,
208,
209,
210,
211,
212,
213,
214,
215,
216,
217,
218,
219,
220,
221,
222,
223,
224,
225,
226,
227,
228,
229,
230,
231,
232,
233,
234,
235,
236,
237,
238,
239,
240,
241,
242,
243,
244,
183,
184,
185,
186,
187,
188,
190,
191,
192,
193,
194,
195,
196,
197,
198,
199,
200,
201,
203,
204,
205,
206,
207,
208,
209,
210,
211,
212,
213,
214,
216,
217,
218,
219,
220,
221,
222,
223,
224,
225,
226,
227,
229,
230,
231,
232,
233,
234,
235,
236,
237,
238,
239,
240,
242,
243,
244,
245,
246,
247,
248,
249,
250,
184,
185,
186,
187,
188,
189,
191,
192,
193,
194,
195,
196,
197,
198,
199,
200,
201,
202,
204,
205,
206,
207,
208,
209,
210,
211,
212,
213,
214,
215,
217,
218,
219,
220,
221,
222,
223,
224,
225,
226,
227,
228,
230,
231,
232,
233,
234,
235,
236,
237,
238,
239,
240,
241,
243,
244,
245,
246,
247,
248,
249,
250,
251,
197,
198,
199,
200,
201,
202,
204,
205,
206,
207,
208,
209,
210,
211,
212,
213,
214,
215,
217,
218,
219,
220,
221,
222,
223,
224,
225,
226,
227,
228,
230,
231,
232,
233,
234,
235,
236,
237,
238,
239,
240,
241,
243,
244,
245,
246,
247,
248,
249,
250,
251,
252,
253,
254,
256,
257,
258,
259,
260,
261,
262,
263,
264,
196,
197,
198,
199,
200,
201,
203,
204,
205,
206,
207,
208,
209,
210,
211,
212,
213,
214,
216,
217,
218,
219,
220,
221,
222,
223,
224,
225,
226,
227,
229,
230,
231,
232,
233,
234,
235,
236,
237,
238,
239,
24O,
242,
243,
244,
245,
246,
247,
248,
249,
250,
251,
252,
253,
255,
256,
257,
258,
259,
260,
261,
262,
263,
105
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
245,
246,
247,
248,
249,
250,
251,
252,
253,
254,
255,
256,
257,
258,
259,
260,
261,
262,
263,
264,
265,
266,
267,
268,
269,
270,
271,
272,
273,
274,
275,
276,
277,
278,
279,
280,
281,
282,
283,
284,
285,
286,
287,
288,
289,
290,
291,
292,
293,
294,
295,
296,
297,
298,
299,
300,
301,
302,
303,
304,
305,
306,
307,
251,
252,
253,
255,
256,
257,
258,
259,
260,
261,
262,
263,
264,
265,
266,
268,
269,
270,
271,
272,
273,
274,
275,
276,
277,
278,
279,
281,
282,
283,
284,
285,
286,
287,
288,
289,
290,
291,
292,
294,
295,
296,
297,
298,
299,
300,
301,
302,
303,
304,
305,
307,
308,
309,
310,
311,
312,
313,
314,
315,
316,
317,
318,
252,
253,
254,
256,
257,
258,
259,
260,
261,
262,
263,
264,
265,
266,
267,
269,
270,
271,
272,
273,
274,
275,
276,
277,
278,
279,
280,
282,
283,
284,
285,
286,
287,
288,
289,
290,
291,
292,
293,
295,
296,
297,
298,
299,
300,
301,
302,
303,
304,
305,
306,
308,
309,
310,
311,
312,
313,
314,
315,
316,
317,
318,
319,
265,
266,
267,
269,
270,
271,
272,
273,
274,
275,
276,
277,
278,
279,
280,
282,
283,
284,
285,
286,
287,
288,
289,
290,
291,
292,
293,
295,
296,
297,
298,
299,
300,
301,
302,
303,
304,
305,
306,
308,
309,
310,
311,
312,
313,
314,
315,
316,
317,
318,
319,
321,
322,
323,
324,
325,
326,
327,
328,
329,
330,
331,
332,
264,
265,
266,
268,
269,
270,
271,
272,
273,
274,
275,
276,
277,
278,
279,
281,
282,
283,
284,
285,
286,
287,
288,
289,
290,
291,
292,
294,
295,
296,
297,
298,
299,
300,
301,
302,
303,
304,
305,
307,
308,
309,
310,
311,
312,
313,
314,
315,
316,
317,
318,
320,
321,
322,
323,
324,
325,
326,
327,
328,
329,
330,
331,
106
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
'2 ,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
308,
309,
310,
311,
312,
313,
314,
315,
316,
317,
318,
319,
320,
321,
322,
323,
324,
325,
326,
327,
328,
329,
330,
331,
332,
333,
334,
335,
336,
337,
338,
339,
340,
341,
342,
343,
344,
345,
346,
347,
348,
349,
350,
351,
352,
353,
354,
355,
356,
357,
358,
359,
360,
361,
362,
363,
364,
365,
366,
367,
368,
369,
370,
320,
321,
322,
323,
324,
325,
326,
327,
328,
329,
330,
331,
333,
334,
335,
336,
337,
338,
339,
340,
341,
342,
343,
344,
346,
347,
348,
349,
350,
351,
352,
353,
354,
355,
356,
357,
359,
360,
361,
362,
363,
364,
365,
366,
367,
368,
369,
370,
372,
373,
374,
375,
376,
377,
378,
379,
380,
381,
382,
383,
385,
386,
387,
321,
322,
323,
324,
325,
326,
327,
328,
329,
330,
331,
332,
334,
335,
336,
337,
338,
339,
340,
341,
342,
343,
344,
345,
347,
348,
349,
350,
351,
352,
353,
354,
355,
356,
357,
358,
360,
361,
362,
363,
364,
365,
366,
367,
368,
369,
370,
371,
373,
374,
375,
376,
377,
378,
379,
380,
381,
382,
383,
384,
386,
387,
388,
334,
335,
336,
337,
338,
339,
340,
341,
342,
343,
344,
345,
347,
348,
349,
350,
351,
352,
353,
354,
355,
356,
357,
358,
360,
361,
362,
363,
364,
365,
366,
367,
368,
369,
370,
371,
373,
374,
375,
376,
377,
378,
379,
380,
381,
382,
383,
384,
386,
387,
388,
389,
390,
391,
392,
393,
394,
395,
396,
397,
399,
400,
401,
333,
334,
335,
336,
337,
338,
339,
340,
341,
342,
343,
344,
346,
347,
348,
349,
350,
351,
352,
353,
354,
355,
356,
357,
359,
360,
361,
362,
363,
364,
365,
366,
367,
368,
369,
370,
372,
373,
374,
375,
376,
377,
378,
379,
380,
381,
382,
383,
385,
386,
387,
388,
389,
390,
391,
392,
393,
394,
395,
396,
398,
399,
400,
107
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
2,
371,
388,
389,
402,
401,
2,
372,
389,
390,
403,
402,
2,
373,
390,
391,
404,
403,
2,
374,
391,
392,
405,
404,
2,
375,
392,
393,
406,
405,
2,
376,
393,
394,
407,
406,
2,
377,
394,
395,
408,
407,
2,
378,
395,
396,
409,
408,
2,
379,
396,
397,
410,
409,
2,
380,
398,
399,
412,
411,
2,
381,
399,
400,
413,
412,
2,
382,
400,
401,
414,
413,
2,
383,
401,
402,
415,
414,
2,
384,
402,
403,
416,
415,
2,
385,
403,
404,
417,
416,
2,
386,
404,
405,
418,
417,
2,
387,
405,
406,
419,
418,
2,
388,
406,
407,
420,
2,
419,
389,
407,
408,
421,
420,
2,
390,
408,
409,
422,
421,
2,
391,
409,
410,
423,
422,
2,
392,
411,
412,
425,
424,
2,
393,
412,
413,
426,
425,
2,
394,
413,
414,
427,
2,
426,
395,
414,
415,
428,
427,
2,
396,
415,
416,
429,
428,
2,
397,
416,
417,
430,
429,
2,
398,
417,
418,
431,
430,
2,
399,
418,
419,
432,
431,
2,
400,
419,
420,
433,
432,
2,
401,
420,
421,
434,
433,
2,
402,
421,
422,
435,
434,
2,
403,
422,
423,
436,
435,
2,
1, 96,109,111,124, 86,113,124, 97
2,110,123,125,138, 113,127,138,124
3,124,137,139,152, 127,141,152,138
4,138,151,153,166, 141,155,166,152
5,152,175,167,189, 167,177,189,166
6,176,187,190,202, 177,190,202,189
7,188,199,203,215, 190,203,215,202
8,200,211,216,228, 203,216,228,215
9,212,223,229,241, 216,229,241,228
10,224,235,242,254, 229,242,254,241
11,236,247,255,267, 242,255,267,254
12,248,259,268,280, 255,268,280,267
13,260,271,281,293, 268,281,293,280
14, 2 72,283,294,306, 281,294,306,293
15,284,295,307,319, 294,307,319,306
16,296,307,320,332, 307,320,332,319
17,308,319,333,345, 320,333,345,332
18,320,331,346,358, 333,346,358,345
19,332,343,359,371, 346,359,371,358
20,344,355,372,384, 359,372,384,371
21,356,367,385,397, 372,385,397,384
22,368,379,398,410, 385,398,410,397
23,380,391,411,423, 398,411,423,410
24,392,403,424,436, 411,424,436,423
82,83,84,85,86,87,88,89,90,91,92,93,94,95
82,83,84,85,86,98,99,100,101,102,103,104,105,106,107,
108,109,110,111,113,125,127,139,141,153,155,167,168,169,170
1,
108
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
109
APPENDIXC
TYPICAL INPUT for CANDE-89
ANALYS 2 CONCRE BOX CULVERT 8*6-8 (MEDIUM REINFORCED - H=77 FT)
-1. 0
10.0 STD
3
0.0001
4500.0
150.0
60000.0
10.0
10.0
10.0
10.0
0.0
.037
.050
.050
.017
1. 0
EMBA EMBANKMENT - STIFF SOIL
o
1
3
20
29.00
29.00
77.00
138.00
1
1
0.0 IN-SITU
100000.0
0.25
2
1
0.0 BEDDING-SOIL
4001.0
0.25
L
3
1
138.0 FILL SOIL
2000.0
0.25
STOP
110
12.00
OPEN
OPEN
OPEN
OPEN
OPEN
APPENDIXD
ISBILD SOURCE CODE
......
--......
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
THIS IS THE ORIGINAL ISBILD FINITE ELEMENT PROGRAM. SOME PRINTING CAN
BE AVOIDED BY INPUTTING A I(ONEI IN COLUMN 55 OF THE SECOND DATA CARD.
THIS VARIABLE (MPRINTI WAS ADDED BY DAN EATON
DATA FOR CONTOUR MAPPING CAN BE OUTPUT TO UNIT 7 (SEARCH FOR **CNTUR**)
PUNCH OUTPUT ARE STORED IN UNIT
NUMELT-TOTAL NUMBER OF ELEMENTS IN THE COMPLETED STRUCTURE
NUMBER Of NODAL POINTS IN THE COMPLETE STRUCTURE
NFEL ~NUMBER OF ELEMENTS IN THE FOUNDATION PART
NfNP =NUMBER Of NODAL POINTS IN THE FOUNDATION PART
NUMCEL-NUMBER OF ELEMENTS IN THE PREEXISTING PART
NUMCNP~NUMBER OF NODAL POINTS IN THE PREEXISTING PART
NUMMAT=NUMBER OF DIFFERENT MATERIAL TYPES
NLAY =NUMBER OF CONSTRUCTION LAYER INCREMENTS
NFORCE-NUMBER OF LOAD INCREMENTS AFTER CONSTRUCTION
NPUNCH-NUMBER OF CONSTRUCTION LAYER INCREMENTS AND LOAD
INCREMENTS FOR WHICH OUTPUT IS TO BE STORED IN A FILE. FOR
EXAMPLE, IF THE OUTPUT FOR THE LAST CONSTRUCTION LAYER
INCREMENT AND THE LAST LOAD INCREMENT AFTER CONSTRUCTION
IS TO BE STORED, NPUNCH=2. ORDINARILY NPUNCH~O
THE OUTPUT CONSISTS OF THE STRESS AND
STRAIN FOR EACH ELEMENT AND THE DISPLACEMENT FOR EACH NODAL
POINT. THIS OUTPUT MAY BE USED AS THE INPUT FOR
THE PREEXISTING PART IN ANALYSES OF EMBANKMENTS ON OR
CONTAINING PREEXISTING PARTS.
NUMNPT~TOTAL
C
C
Nl=l
N2=Nl+INEQ
N3=N2+2*NUMNPT
N4=N3+S*NUMELT
N5=N4+NUMCEL+l
N6=N5+NUMCNP+l
N7-N6+2*NUMLD
NB-N7+2*NUMLD
N9=NB+4*NUMLD
NDEX-N9+NPUNCH+l
IF (NDEX/2*2.EQ.NDEX) NIO=NDEX/2+l
IF (NDEX/2*2.NE.NDEX) NIO=NDEX/2+2
Nll=NlO+13*NUMMAT
NI2=Nll +NUMNPT
N13=N12+NUMNPT
N14-N13+NUMELT
NlS=N14+NUMELT
NI6=N15+NUMELT
N17=N16+NUMELT
NIB=N17+NUMNPT
N19=NIB+NUMNPT
N20=N19+3*NUMELT
N21=N20+3*NUMELT
N22-N21+3*NUMELT
NNI-N2l+NUMELT
MTMN17-MTOTD2-N17
NN2=N21+2*NUMNPT
IF (NN2.GT.N22) N22=NN2
IF (N22.LT.MTOTD21 GO TO 130
WRITE (10,5000) N22
GO TO 999
C
C
C
IN-S
I~6
OPEN
4,FILE='f04',FORM='UNFORMATTED')
OPEN
5,FILE=' 'I
OPEN
6,FILE-' ')
OPEN
7,FILE='f07',FORM='UNfORMATTED')
OPEN
8,FILE~'f08',fORM~'UNFORMATTED')
OPEN
9,FILE='f09',fORM='UNFORMATTEO')
OPEN (IO,FILE='flO',FORM='UNFORMATTED')
OPEN (ll,FILE='fll',FORM='UNFORMATTED'1
C
C
(12,FILE-'f12',FORM='UNFORMATTED')
(13,FILE='fI3',FORM='UNFORMATTED')
(14,FILE-'f14',FORM='UNFORMATTED'1
(lS,FILE='f1S',FORM='UNfORMATTEO'1
(16,fILE='f16',fORM='UNFORMATTED')
N24=N23+NEQB
IF(N24.LT . MTOTD2) GO TO 140
WRITE (10,5000) N24
GO TO 999
C
C
--
tv
C
C
C
C
C
C
c
C
2 PATM,NUMELT,NUMNPT,NUMCEL,NUMCNP,NUMMAT,NUMLO,NLAY,LN,IT,NPUNCH,
3 NUMEL,NUMNP,NELCAL,NNPCAL,NNPRED,NEQ,NEQB,NBLOCK,
4 A(N11),A(N12),IO)
CALL SECOND (T(9
WRITE (10,2000)
DO 250 1=5,8
250 T(I)=T(I+1)-T(I)
T(9)=T(5)+T(6)+T(7)+T(8)
WRITE (10,2110) T(5),T(6),T(7),T(8),T(8)
IF(IT.LT.2) GO TO 280
T(10)=T(10)+T(3)+T(4)+T(9)
WRITE (10,2120) T(3),T(4),T(10)
TIME-TlME+T(lO)
GO TO 300
280 T(10)=T(10)+T(9)
300 CONTINUE
400 CONTINUE
WRITE (IO,2130) T(l) ,T(2) ,TIME
GO TO 100
999 CONTINUE
CLOSE ( 4, STATUS = 'DELETE')
CLOSE ( 5)
CLOSE ( 6)
CLOSE ( 7, STATUS
'DELETE')
CLOSE ( 8. STATUS
'DELETE')
CLOSE ( 9. STATUS ~ 'DELETE')
CLOSE (10. STATUS
'DELETE')
CLOSE (11. STATUS
'DELETE')
CLOSE (12, STATUS - 'DELETE')
CLOSE (13. STATUS
'DELETE')
CLOSE (14, STATUS - 'DELETE')
CLOSE (15. STATUS - 'DELETE')
CLOSE (16, STATUS
'DELETE')
1000 FORMAT (20A4)
2000 FORMAT (1H1,20A4)
2010 FORMAT (/,
1 35HOTOTAL NUMBER OF ELEMENTS*********,!3,1.
2 35HOTOTAL NUMBER OF NODES***********,!3,/,
3 35HONUMBER
35HONUMBER
5 35HONUMBER
6 35HONUMBER
7 3SHONUMBER
8 35HONUMBER
EVALUATE RESULTS
OF
OF
OF
OF
OF
OF
2020
2030
2100
2110
COMMON !ISOP/ E1, E2,RR(4), ZZ (4), LM(S), P (S), S (12, 12), STR(3, 12),
1 STA(3,S),VJAC,MPRINT
DIMENSION A(NE2B,MBAND),B(NE2B)
DATA NUM3/0/
K=NEQB+1
TEMP=NBLOCK
MB=DSQRT(TEMP)
MB=MB/2+1
NEBB=MB*NE2B
MM=l
NSHIFT=O
1 NUMCEL,NUMCNP,NUMLD,NLAY,LN,MBAND,NUMEL,NUMNP,NELCAL,
2 NNPCAL,NELRED,NNPRED,NEQ,NEQB,NBLOCK,NMXEQB,IO)
IMPLICIT REAL*S (A-H,O-Z)
DIMENSION ID(NUMNPT,2),NCEL(1),NCNP(1)
DIMENSION NOMEL(NUMLD,2) ,NOMNP(NUMLD,2) ,NPHUMP(NUMLD,4)
C
C
C
REWIND 10
REWIND 15
C
C
( 2 BLOCKS AT A TIME)
----
DO 500 M=1,NBLOCK,2
DO 100 J=l,MBAND
DO 100 I=1,NE2B
100 A(I,J)=O.O
READ (10) (B(I) ,I=l,NEQB)
IF (M .NE. NBLOCK) READ (10) (B(I),I=K,NE2B)
C
REWIND 13
REWIND 14
NA=14
NUME=NUM3
IF (MM .NE. 1) GO TO 150
NA=13
NUME=NUMEL
NUM3=0
150 DO 300 N=l,NUME
READ (NA) LM, S(I,J),I=l,S),J=l,S)
DO 220 I=l,S
LMN=l-LM(I)
II=LM(I) -NSHIFT
IF (II .LE. a .OR. II .GT. NE2B) GO TO 220
DO 200 J=l, S
JJ=LM(J)+LMN
If (JJ .GT. 0) A(II,JJ)=A(II,JJ)+S(I,J)
200 CONT INUE
220 CONTINUE
!...J
C
C
C
C
C
NEQB=NMXEQB
MAX=O
DO 120 1=1,2
DO 120 N=l, NUMNP
IF (ID(N,I) .GT. MAX) MAX=ID(N,I)
120 CONTINUE
NEQ=MAX
IF (NEQB .GT. NEQ) NEQB=NEQ
NBLOCK=(NEQ-1)/NEQB+1
WRITE (10,2100) MBAND,NEQ,NEQB,NBLOCK
RETURN
2000 FORMAT (/,
1 57H ******************************************************.* ,I,
2 57H *****************~~*****.**************w************** ** ,I,
3S7H*
,1,
4 45H
LAYER NUMBER************,I4,8H
.. fIr
5S7H*
.1,
6 57H *.****.*** *.******.********************************+* , / ,
7 57H * _ * _ ** . /)
PRT=HT(1)*RR(1)+HT(2)*RR(2)+HT(3)*RR(3)+HT(4)'RR(4)
VJAC-PRS*PZT-PRT*PZS
C
PSR=PZTIVJAC
PTR=-PZSIVJAC
PSZ=-PRTIVJAC
PTZ=PRS/VJAC
45H *
,1,
57H*
S1H ...- ... .... . .. .. .... ...... . ...... .,. ........-.. . ..- .................._..-
.,/,
.--:It -t; "" .
.... .. .. .. .... .. . . . .
DO 100 1=1,6
HR(I)=PSR*HS(I)+PTR*HT(I)
100 HZ(I)-PSZ'HS(I)+PTZ'HT(I)
,I,
.,1,
357H*
C
C
DO 200 K=1,6
I=II (K)
J=JJ(K)
STR(l,I)=HR(K)
STR(2,J)=HZ(K)
STR(3, I) =HZ (K)
200 STR(3,J)=HR(K)
> -'
C
C
C
MATRIX OF DERIVATIVES
SM=1.0DO-SX
SP=1.0DO+SX
TM=1.0DO-TY
TP=1.0DO+TY
# /,
RETURN
END
SUBROUTINE ELAW (EMPR, BULK,SHEAR,POIS,SLMAX,PRS,PATM,
1 NUMMAT,N,MTYPE,STRIEV,KK)
IMPLICIT REAL*8 (A-H,O-Z)
DIMENSION EMPR(NUMMAT,13),BULK(1),SHEAR(1),POIS(1),SLMAX(1),PRS(2)
C
C
C
C
C
77
C
H(1)~SM*TM/4.0DO
H(2)=SPTM/4.0DO
H(3)=SP*TP/4.0DO
H(4)=SM*TP/4.0DO
H(5)=(1.0DO-SX'SX)
H(6)=(1.0DO-TY*TY)
C
HS(1)=-TM/4.0DO
HS(2)=-HS(1)
HS(3)=TP/4.0DO
HS(4)=-HS(3)
HS(5)--SX-SX
HS(6)-0.0
C
HT(1)=-SM/4.0DO
HT(2)=-SP/4.0DO
HT(3)=-HT(2)
HT(4)=-HT(1)
HT(5)-0.0
HT(6)=-TY-TY
C
C
100
11 0
C
C
120
C 130
C
C
130
14 0
JACOBIAN
PZT-HT(1)'ZZ(1)+HT(2)*ZZ(2)+HT(3)*ZZ(3)+HT(4)*ZZ(4)
PZS=HS(1)*ZZ(1)+HS(2)*ZZ(2)+HS(3)*ZZ(3)+HS(4)*ZZ(4)
PRS=HS(1)'RR(1)+HS(2)*RR(2)+HS(3)*RR(3)+HS(4)*RR(4)
88
CC
DEVSTR=PRS(1)-PRS(2)
WRITE(6,77) PRS(2)
FORMAT (2X, 'PRS(2) ',2X,FlO.5)
DEVFH=EMPR(MTYPE,12)+EMPR(MTYPE,13)'PRS(2)
IF (DEVFH .GT. 0.0) GO TO 100
STRIEV-O.O
DEVLEV=O.O
GO TO 110
DEVLEV-DEVSTR/DEVFH
STRLEV-DEVLEV/EMPR(MTYPE,10)
CONTINUE
WRITE(6,88) KK
FORMAT{2X, 'KK',2X,I2)
IF (KK .EQ. 1) GO TO 140
IF (PRS{2) .GT. 0.0) GO TO 120
POIS(N)=EMPR(MTYPE,6)
IF (POIS(N) .GT. 0.49DO) POIS{N) = 0.49DO
GO TO 130
IF (STRLEV .LT. 1.0DO .AND. SHEAR(N) .GT. O.OOOlDO) GO TO 140
PHIR=68.2-30.2*DLOG10{CF)
PI=355./113.
SHEAR{N)=DABS{{PRS(1)*DTAN(PHIR*PI/190.))/3.)
IF (SHEAR(N).LT.14400.) SHEAR(N)=360.
GO TO 200
CONTINUE
IF (PRS(2) .LT. O.OlDO) PRS(2)=0.01DO
PPRS2=PRS (2) IPATM
IF (KK .EQ. 3 .AND. STRLEV. LT. SLMAX(N)) GO TO 150
EINIT-PATM*EMPR{MTYPE,2)*PPRS2"EMPR(MTYPE,4)
TEMP-1.0DO-DEVLEV
EMOD=EINIT*(TEMP*TEMP)
IF(EMOD.LT.100.0) EMOD=lOO.O
......
.....
Vl
DIMENSION EMPR(NUMMAT,13),ID(NUMNPT,2),X(1),Y(1),INP(NUMELT,5)
DIMENSION NCEL(1),NOMEL(NUMLO,2),FX(1),FY(1),B(1),R(NEOB)
C
DO 50 I=l,NUMNP
FX(I)=O.O
50 FY(I)=O.O
IF (LN .GT. NLAY) GO TO 400
NELS=NOMEL(LN,l)
NELL=NOMEL(LN,2)
DO 300 N=NELS,NELL
IF (NUMCEL .EO. 0) GO TO 100
DO 80 M=l,NUMCEL
IF (N .EO. NCEL(M GO TO 300
BO CONTINUE
100 CONTINUE
FG=O.O
MTYPE=INP(N,5)
KK=l
I=INP(N,l)
J=INP(N,2)
K=INP(N,4)
120 AREA=X(J)*(Y(K)-Y(I+X(I)'(Y(J)-Y(K+X(K)*(Y(I)-Y(J
FG=FG-EMPR(MTYPE,1)*AREA/2.0DO
IF (KK .NE. 1 .OR . INP(N,3) .EO. INP(N,4 GO TO 140
KK-2
I=INP(N,3)
J=INP(N,4)
K=INP(N,2)
GO TO 120
14 0 CONTINUE
IF (INP(N,3) .EO. INP(N,4 GO TO 200
FG=FG/4 .000
KL-4
GO TO 220
200 FG=FG/3.000
KL=3
220 CONTINUE
DO 250 I=l,KL
II=INP (N, I)
250 FY(II)=FY(II)+FG
300 CONTINUE
GO TO 650
400 CONTINUE
REWIND 15
REWIND 16
DO 300 N=l,NUMELT
DO 50 J=1,12
DO 50 1=1,3
50 STR(I,J)=O.O
READ (15) LM
WRITE(16) LM
00 100 1=1,4
II=INP (N, I)
RR (I )=X (II)
100 ZZ(I)-Y(II)
DO 200 II=1,2
E1=SSS (II)
DO 200 JJ=l,2
E2=TTT (JJ)
CALL DERIVE
WRITE(16) VJAC,STR
200 CONTINUE
E1-0.0
E2=0.0
CALL DERIVE
WRITE(16) ((STR (1, J) , 1=1, 3) ,3=1, B)
300 CONTINUE
RETURN
END
SUBROUTINE FVECT (EMPR,IO,X,Y,INP,NCEL,NOMEL,FX,FY,B,R,
1 NUMELT,NUMNPT,NUHCEL,NUMMAT,NUMLO,NLAY,LN,NEO,NEOB,NUMNP,IN,IO)
IMPLICIT REAL*B (A-H,O-Z)
C
C
C
C
TEMP2-PRES2+PRES2
FX(IBC)=FX(IBC)+(TEMPl+PRES2)*DY/3.0DO
FX(JBC)=FX(JBC)+(PRESl+TEMP2)*DY/3.0DO
FY(IBC)=FY(IBC)+(TEMPl+PRES2)*DX/3.0DO
FY(JBC)=FY(JBC)+(PRESl+TEMPZ)*DX/3.0DO
600 CONTINUE
650 CONTINUE
C
C
C
0\
INITIALIZATION
DO 700 I=l,NEQ
700 B(I)=O.O
DO 7Z0 N=l,NUMNP
DO 720 1=1,2
II-ID (N, I)
IF (II .LT. 1) GO TO 720
IF (I .EQ. 2) GO TO 710
B (II) =B (II) +FX(N)
GO TO 720
710 B(II)=B(II)+FY(N)
720 CONTINUE
REWIND 10
KSHIFT=O
DO 730 1=1, NEQB
130 R(I)=O.O
DO 750 N=l,NEQ
Il=N-KSHIFT
R(Il)-B(N)
IF (II .NE. NEQB) GO TO 150
WRITE(lO) R
KSHIFT=KSHIFT+NEQB
DO 140 I=l,NEQB
140 R(I)-O.O
150 CONTINUE
WRITE(lO) R
--
C
C
DO 300 N=l,NUMEL
KEY-O
DO ZO J=l,12
DO 20 I=l,lZ
20 S(I,J)=O.O
C
30
40
50
55
60
10
75
BO
760
170
800
CIOOO
CIOIO
CI020
2000
90
100
DO 150 NN-l,4
L=12-NN
K-L+l
DO 150 I-1,L
C=S(I,K)/S(K,K)
151
152
153
154
150
160
20
30
40
C
C
'"-"
'"-"
-..J
C
C
NQ=NEQB*NBLOCK
DO 10 NN=I,NBLOCK
READ (13) (R(I),I=l,NEQB)
N=NEQ8
IF (NN . EQ. 1) N=NEQ-NQ+NEQB
NQ=NQ-NEQB
DO 10 J=l,N
I=NQ+J
10 B(I)=R(J)
IF (LN .GT. NLAY) GO TO 15
WRITE (10,2000) LN,IT
GO TO 16
15 LNMLAY=LN-NLAY
WRITE (10,2005) LNMLAY,IT
16 CONTINUE
IF (IT . LT. 2) GO TO 110
C
C
C
C
42
45
50
60
70
80
90
C***************************CNTUR********************************
777 CONTINUE
100 CONTINUE
110 CONTINUE
C
C
C
C
C
C
PRS(3)~2.0DO*ER
EMOD~2.0DO*BULK(N)(1.0DO+POIS(N(1.0DO-POIS(N)-POIS(N
C
Cl~BULK(N)+SHEAR(N)
C2~BULK(N)-SHEAR(N)
C3=SHEAR(N)
DO 200 K~I,8
STS(I,K) ~Cl*STR(I,K)+C2*STR(2,K)
STS(2,K)~C2*STR(I,K)+C1*STR(2,K)
STS(3,K) ~ C3*STR(3,K)
KK~LM(K)
DO 500 N~I,NUMEL
IF (N .LE. NELCAL .OR. NUMCEL .EQ . 0) GO TO 440
DO 420 M~I,NUMCEL
IF (N .EQ. NCEL(M GO TO 440
420 CONTINUE
GO TO 500
440 CONTINUE
P(K)~B(KK)
GO TO 200
180 P(K)=O.O
20 0 CONTINUE
DO 220 I~I, 3
SIG(I)~O.O
DO 220 K~I,8
220 SIG(I)=SIG(I)+STS(I,K)*P(K)
GO TO 228
222 CONTINUE
IF (IT .EQ . 1) GO TO 225
DO 224 I~I, 3
224 SIG(I)=O . O
GO TO 228
22 5 CONTINUE
DO 226 I~I,3
226 SIG(I)~STRESS(N,I)
228 CONTINUE
IF (IT .EQ . 2) GO TO 240
DO 230 1=1,3
230 SNEW(N,I)-STRESS(N,I)-0.5DO*SIG(I)
GO TO 300
24 0 CONTINUE
DO 250 1=1,3
,.....
,.....
00
C~(SNEW(N,2)+SNEW(N,I/2 . 0DO
CM~ (SNEW(N,2) - SNEW(N,1
C
C
C
TEMP=STRAIN(N,3)/2.0DO
ER=DSQRT(TEMP*TEMP+EM*EM)
PRS (1) =EP+ER
PRS(2)=EP-ER
/ 2.0DO
TEMP~SNEW(N,3)
CR=DSQRT(TEMP*TEMP+CM*CM)
PRS(l)-CP+CR
PRS(2)=CP-CR
MTYPE=INP(N,5)
KL=2
IF (IT .EQ. 1) KL=3
CALL ELAW (EMPR,BULK,SHEAR,POIS, SLMAX,PRS, PATM,NUMMAT,N,
1 MTYPE,STRLEV,KL)
IF (IT . LT. 2) GO TO 500
IF (STRLEV .GT. SLMAX(N) SLMAX(N) - STRLEV
PRS(3)=CR
PRS (4) ~O.O
IF (SNEW(N,3) .EQ. 0.0 . AND. CM .EQ. 0.0) GO TO 450
PRS(4)~57.29577951DO*DATAN2(SNEW(N,3),CM)/2.0DO
450 CONTINUE
IF (PRS(2) .NE. 0.0) GO TO 460
PRS(5)~999.999DO .
GO TO 470
460 PRS(5)~PRS(1)/PRS(2)
470 CONTINUE
SNEW(N,I)~STRESS(N,I)-SIG(I)
PRINT STRESSES
.......
.......
\D
WRITE(4) IN,ISTRAININ,M),M=I,3),N=I,NUMEL)
WRITE(4) (N, (DISP(N,M),M=I,2),N=I,NUMNP)
530 CONTINUE
RETURN
ITERATION =,13, I,
2000 fORMAT (15HlLAYER NUMBER =,I3,15H
1 59H * +*.*.***** ************.*** *.************ *****,/)
2005 fORMAT (12HILOAD CASE -,I3,15H
ITERATION -,13,1,
1 59H *** *** * **.* ******** ** **,/)
2010 FORMAT ('0 NP
DELTA-X
DELTA-Y
X-DISP',
1 '
Y-DISP
TOTAL NP', I)
2050 FORMAT (I5,5FI4.4,I4)
2100 FORMAT ('1',' MODULUS AND POISSON"S RATIO BASED ON AVERAGE',
1 ' STRESSES DURING THE INCREMENT',I,
2 ' ' , ' STRAINS FOR FINAL CONDITION AT END OF INCREMENT',II,
3
',' ELE
ELAS MOD
BULK MOD SHEAR MOD POlS RATIO',
4 '
EPS-X
EPS-Y
GAM-XY
EPS-l
EPS-3',
5 '
GAMMAX ELE', I)
2150 FORMAT (I5,10Fl1.3,I5)
2200 fORMAT ('1',' STRESSES AND STRESS LEVELS FOR FINAL CONDITION AT',
1 ' END OF INCREMENT',II,
2 ' ',' ELE
SIG-X
SIG-Y
TAU-XY
SIG-1' ,
THETA SIG1/SIG3
SLMAX' ,
3 '
SIG-3
TAU-MAX
4'
SLPRES ELE',/)
2250 FORMAT II5,10Fll.3,I5)
CXXXXXXXXXXXXXX
C2500 FORMAT (I5,3F10.4)
C2550 fORMAT (I5,2fl0.4)
END
SUBROUTINE LAYOUT (MAXB, ID,INP,NCEL,NCNP, NOMEL,NOMNP, NPHUMP, NLDP,
1 EMPR,X,Y, BULK,SHEAR,POIS,SLMAX,DISP, STRESS, STRAIN,XCP,YCP, NUMELT,
2 NUMNPT,NUMCEL,NUMCNP,NFEL,NUMMAT,NUMLD,NLAY,NEQ,NEQB,MBAND,PATM,
3 MTMNI7,NMXEQB,NPUNCH,IN,IO,INEQ)
IMPLICIT REAL-S (A-H,O-Z)
DIMENSION EMPR(NUMMAT,13),IDINUMNPT,2),X(I),Y(I),INP(NUMELT,5)
DIMENSION BULK(I),SHEAR(I),POIS(l),SLMAX(I),XCP(I),YCP(l)
DIMENSION DISP(NUMNPT,2),STRESSINUMELT,3),STRAIN(NUMELT,3)
DIMENSION NCEL(I),NCNP(I),NOMELINUMLD,2),NOMNPINUMLD,2)
DIMENSION NPHUMPINUMLD,4),NLDPI1)
DIMENSION MATNOII0),NLELI10),NRELII0),HLII0),SINITXII0),SINITYII0)
DIMENSION LM(8),PRSI5),HH(10),SIGAVEI3),MAXB(INEQ)
C
THIS PORTION IS EXECUTED JUST TO GET RID OF WARNING FROM THE COMPILER
C
C
DO 997 I=I,INEQ
997 MAXBII)=O
CONST=2 . 0DO/(EMPR(M,10)-(1.0DO-DSIN(PHI)))
EMPR(M,12)=CONST'EMPR(M,S)'DCOS(PHI)
EMPR(M,13)=CONST'DSIN(PHI)
IF (M .LT. NUMMAT) GO TO 50
LL=O
C
C
C
REWIND 15
IF (NPUNCH .EQ. 0) GO TO 20
C
C
C
C
C
ID(N, I)=ID(NN, I)
GO TO 330
310 IF (ID(N,I) .EQ. 1) GO TO 320
NEQ=NEQ+l
ID(N,I)=NEQ
GO TO 330
320 ID(N,I)-O
330 CONTINUE
WRITE (ID,2070)
WRITE (10,2080) (N, (ID(N,I),I~l,2),N~ l,NUMNPT)
C
C
C
C
C
C
C
C
WRITE (10,2200)
READ (IN,*) NFLAY,HFLEV
WRITE (10,2210) NFLAY,HFLEV
WRITE (ID,2220)
1=0
600 I=Hl
READ (IN,') I,MATNO(I),NLEL(I),NREL(I),HL{I)
WRITE (10,2230) I,MATNO(I),NLEL(I),NREL(I),HL(I)
IF (I .GT. 1) GO TO 610
HH(I)=HL(I)-HFLEV
GO TO 620
610 HH{I)=HL(I)-HL{I-l)
620 CONTINUE
IF (I .LT. NFLAY) GO TO 600
WRITE (10,2090)
READ (IN,*) (LN, (NOMEL(LN,I),I=l,2), (NOMNP(LN,J),J=l,2),
1 (NPHUMP(LN,K),K=l,4),N=I,NLAY)
WRITE (10,2100) (LN, (NOMEL(LN,1),I- l,2), (NOMNP(LN,J),J-l,2),
1 (N PHUMP (LN,K) ,K=l,4) ,LN-l,NLAY)
440 CONTINUE
IF (NUMCEL .EQ. 0) GO TO 450
C
C
C
READ AND PRINT DATA FOR PREEXISTING ELEMENTS AND NODAL POINTS
WRITE (10,2110)
READ (IN,*) (NCEL(N),N=l,NUMCEL)
WRITE (10,1050) (NCEL(N) ,N=I,NUMCEL)
WRITE (ID,2120)
READ (IN,*) (NCNP(N),N=l,NUMCNP)
WRITE (ID,l050) (NCNP(N),N=l,NUMCNP)
450 CONTINUE
C
C
C
MBAND=O
DO 430 N=l, NUMELT
MIN=lOOOOO
MAX- O
IJ=O
DO 410 1=1,4
II=INP (N, I)
DO 410 J=l,2
IJ=IJ+l
410 LM(IJ)=ID(II, J)
WRITE(15) LM
DO 420 L-l,8
IF (LM(L) .EQ. 0) GO TO 420
IF (LM(L) .GT. MAX) MAX=LM(L)
IF (LM(L) .LT. MIN) MIN=LM(L)
420 CONTINUE
NDIF=MPJ(-MIN+l
IF (NDIF .GT. MBAND) MBAND=NDIF
430 CONTINUE
NMXEQB=MTMNI7/(MBAND+2)/2
NEQB=NMXEQB
IF (NEQB .GT. NEQ) NEQB=NEQ
WRITE (10,2085) MBAND,NEQ,NEQB
IF (NLAY .EQ. 0) GO TO 440
...N
o
STRESS(I,J)=O.O
500 STRAIN(I,J)-O . O
DO 510 J=I,2
DO 510 I-l,NUMNPT
510 DISP(I,J)=O.O
IF (NUMCEL .EQ. 0) GO TO 550
DO 670 I=I,NFLAY
SINITY(I)=O.O
IF (I .EQ. NFLAY) GO TO 640
NN=I+I
DO 630 J-NN,NFLAY
MTYPE=MATNO(J)
630 SINITY(I)=SINIT(I)+EMPR{MTYPE,l)*HH(J)
640 MTPE=MATNO(I)
SINIT(I)=SINIT(I)+EMPR(MTPE,I)*HH(I)/2 . 0DO
SINITX(I) =EMPR(MTPE,lI)*SINITY(I)
NNL=NLEL(I)
NNR~NREL
(I)
DO 650 N=NNL,NNR
STRESS(N,l)~SINITX(I)
650 STRESS(N,2)=SINITY(I)
NNL1-NNL+l
N=NNL
MTYPE=INP(NNL,5)
PRS(1)=STRESS(NNL,2)
PRS(2)=STRESS(NNL,1)
CALL ELAW (EMPR,8ULK,SHEAR,POIS,SLMAX,PRS,PATM,NUMMAT,N,
I MTYPE,STRLEV,l)
SLMAX(NNL)zSTRLEV
DO 660 N=NNL1,NNR
8ULK(N) =8ULK (NNL)
SHEAR(N) =SHEAR (NNL)
POIS(N)=POIS(NNL)
660 SLMAX (N) =SLMAX (NNL)
610 CONTINUE
100 CONTINUE
C
C
......
N
......
110
120
C
C
44
131
732
133
734
140
WRITE (10,2310)
If (NLAY .EQ. 0) GO TO 790
DO 760 LN~l,NLAY
NNL=NOMEL (LN, 1 )
NNR-NOMEL(LN,2)
III-NPHUMP(LN,l)
1I2=NPHUMP(LN,2)
II3=NPHUMP(LN,3)
II4=NPHUMP (LN, 4)
IF (X(II2)-X(IIl .NE. 0.0)TEMPI-(Y(II2)-Y(IIl/(X(Il2)-X(Il1
If (X( II3) -x (Il2
.NE. 0.0) TEMP2= (Y(Il3) -Y (Il2) ) I (X (II3) -X (II2) )
If X(II4)-X(Il3 .NE. 0.0)TEMP3=(Y(Il4)-Y(II3/(X(II4)-X(II3
DO 710 N=NNL,NNR
IF (NUMCEL .EQ. 0) GO TO 120
DO 110 M=l,NUMCEL
IF (N .EQ. NCEL(M GO TO 170
CONTINUE
MTYPE=INP(N,5)
IF (XCP (N) . LE. X(IIl GO TO 131
IF (XCP (N) .LE. X(II2 GO TO 132
IF (XCP(N) .LE. X(II3 GO TO 133
IF (XCP (N) . LE. X(II4 GO TO 734
SLOPE=O.O
HT=Y(II4)-YCP(N)
WRITE(6,44)Y(II4),YCP(N)
fORMAT (3X, 'Y(II4) ',2X,F10.2,3X, 'YCP(N) ',2X,flO.2)
GO TO 140
SLOPE-O.O
HT-Y(IIl)-YCP(N)
GO TO 740
SLOPE=TEMPI
HTzY(II1)+(XCP(N)-X(II1*SLOPE-YCP(N)
GO TO 740
SLOPE=TEMP2
HT=Y(II2)+(XCP(N)-X(II2*SLOPE-YCP(N)
GO TO 740
SLOPE-TEMP3
HT=Y(II3)+(XCP(N)-X(II3*SLOPE-YCP(N)
BETA=DTAN (SLOPE)
STRESS(N,2)-HT*EMPR(MTYPE,1)
WRITE(6,33) HT,EMPR(MTYPE,l)
33 FORMAT(2F10.3)
STRESS(N,3)=0.50DO*STRESS(N,2)*DSIN(BETA)
SIGAVE(2)=STRESS(N,2)/2.0DO
SIGAVE(3) - STRESS(N,3)/Z.ODO
POISl=EMPR(MTYPE,6)
750 IF (POIS1 .GT. 0 . 49DO) POISl=0.49DO
STRESS(N,1)-STRESS(N,2)*POISl/(1.ODO-POIS1)
SIGAVE(1) - STRESS(N,1)/2.0DO
CP=(SIGAVE(2)+SIGAVE(1/2.0DO
CM=(SIGAVE(2)-SIGAVE(1/2.0DO
CR=DSQRT(SIGAVE(3)*SIGAVE(3)+CM*CM)
PRS(l)=CP+CR
PRS(2)=CP-CR
CALL ELAW (EMPR,BULK,SHEAR,POIS,SLMAX,PRS,PATM,NUMMAT,N,
1 MTYPE,STRLEV,l)
POIST=POIS(N)
IF (DABS (POIS1-POIST) .LT . 0.000100) GO TO 760
POISl=POISl+(POIST-POISl)/lO.ODO
GO TO 150
160 CONTINUE
SLMAX(N)=STRLEV
110 CONTINUE
180 CONTINUE
790 CONTINUE
C
C
DO 800 N=l,NUMELT
EMOD=Z.ODO*SHEAR(N) * (1.0DO+POIS(N
WRITE (10,2320) N,XCP(N),YCP(N),EMOD,BULK(N),SHEAR(N),POIS(N),
1 (STRESS(N,MI,M=1,3)
600 CONTINUE
REWIND 8
REWIND 9
WRITE(8) STRESS
WRITE(9) DISP
WRITE (9) STRAIN
999 CONTINUE
RETURN
CIOOO fORMAT (FIO.O)
C1010 FORMAT (I5,1FIO.0/5F10.0)
C1020 FORMAT (I5,2F10.0,2I5)
CI030 FORMAT (615)
CI040 FORMAT (915)
1050 FORMAT (1515)
c1100 FORMAT (I5,3F10.0)
CIllO FORMAT (I5,2F10.0)
C1200 FORMAT (I5,FIO.0)
C1210 FORMAT (415,F10.0)
2000 FORMAT (/,23H MATERIAL PROPERTY DATA,I,
122M ATMOSPHERIC PRESSURE=,FIO.4,/)
2010 FORMAT (' ',24X, 'MODULUS',34X, 'POISSON RATIO',I,
I
2 '
','MAT
UNITWT
KUR
DI,
G
F
C
PHI
FAIL RATIO',
3 '
KO', I)
2020 FORMAT (14,11Fl1 . 3)
2030 fORMAT (23H1NODAL POINT INPUT DATA,II,SH NODE,3X,
1 23HNODAL POINT COORDINATES,1X,9HB.C. CODE/,1H NUMBER,
2 40H
X-ORD
Y-ORD
XX
YY, I)
2040 fORMAT (11,2flO.3,10X,21S)
2050 fORMAT (30HlfOUR NODES SOLID ELEMENT DATA,II,
1 5H ELET,5X,15HCONNECTED NODES,5H MATL,
2 26H ELEMENT CENTER CooRDINATES,f,
2060
C2065
2070
2080
2085
3 30H NO.
I
J
K
L NO.,24H
FORMAT (615,2F12.3)
FORMAT (I5,2FI0.3)
FORMAT (17HIEQUATION NUMBERSII, ISH
N
FORMAT (315)
FORMAT (/,
X-ORD
Y-ORD, /)
DO 130 J~I,NMB,NEQB
IF (A(J).NE.O.O) MAXB(I)~J
130 CONTINUE
Y, /)
C
JL~I+1
35HOBAND WIDTH************************,I4,1,
35HONUMBER OF EQUATIONS***************,I4,/,
......
IF (JL.GT.NEQB) GO TO 300
II~I
DO 200
IF(II.GT.NMB) GO TO 200
C~A(II)
IF (C.EQ.O.O) GO TO 200
C~C'A(I)
C
KK~J-II
MAX~MAXB(I)
DO 150
150
KK~J
200 CONTINUE
300 CONTINUE
WRITE (NBKS) MAXB,A
C
C
C
NC~MB+1
NI~Nl
NBR~(MB-1)/NEQB+1
IF(N.EQ.1) NI~NORG
IF(NN.EQ.NBR) NI~NORG
READ (NI) B
NMB~NEQB'MB
N2~NT2
IL~l+NN*NEQB*NEQB
N1~NT1
DO 700
REWIND NORG
REWIND NBKS
II~IL
REDUCE EQUATIONS
C~C'A(K)
MAX~MAXB(K)
C
KK~I-II
DO 640
640
NI~N1
KK~I+NMB
I~l,NEQB
JJ~K+NMB
MAXB(I)~O
B(KK)~B(KK)-C*A(JJ)
D~A(I)
IF(D) 115,300,120
115
M~NEQB*(N-1)+I
A(II)~A(II)/D
740
A(I)~B(I)
IL~IL+NEQB
GO TO 800
750 WRITE(N2) B
800 CONTINUE
J~2,NC
II~II+NEQB
125
II~II-INC
IF(NBR.NE.1) GO TO 750
DO 740 I~l, NSB
II~I
DO 125
690
700
C
120
JJ~II,MAX,NEQB
B(JJ+KK)~B(JJ+KK)-C'A(JJ)
READ (NI) A
110 DO 300
I~l,NEQB
BLOCK-BY-BLOCK
DO 900 N~I,NBLOCK
IF (N .GT. 1 .AND. NBR .EQ. 1) GO TO 110
IF (NBR .EQ. 1) GO TO 105
REWIND N1
REWIND N2
105
+NMB
JJ~I+NMB
A(KK)~A(KK)-C'A(JJ)
INC~NEQB-1
C
C
C
JJ~II,MAX,NEQB
A(JJ+KK)~A(JJ+KK)-C'A(JJ)
tv
tv
J~JL,NEQB
II~II+NEQB
11~ N1
Nl~t12
900 N2=M
C
C
C
tlEB ~NEQB' ( f;!IlR'~ )
mw.~r;BR~NEQ8
DO 1000 ~l,NBLOCK
READ (NBKS) MAXB,A
K=NEB
DO 910 J=l, NUM
I=K-NEQB
B(K)=B(I)
910 K=K-1
C
I=NMB
K=O
920 J=l,NEQB
00
r-I+l
K ~ K+l
92Q B(K)-A( I I
C
00 950 I=l,NEQB
J=NEQB+1-I
MAX=MAXB(J)
IF (A(J) .EQ. 0.0) GO TO 950
KK=J
JJ=KK+1
IL=J+NEQB
C=B(KK)
DO 940 II=IL,MAX, NEQB
C=C-A(II) B(.JJ)
940 JJ=JJ+1
B(KK)=C
950 CONTINUE
.......
tv
w
1=0
K=O
960 J=l,NEQB
K=K+l
1=1+1
960 A(I)=B(K)
00
END
SUBROUTINE SECOND (TIM)
USE PORTLIB
C
C
C
C
C
RETURN
END
APPENDIXE
REWIND 30
NPROB - 0
WRITE(6,2000)
WRITE(6,20IO)
100 CONTINUE
DO 105 I = 1, 99
DO 105 N = 1,20
105 RESULT(N,I) = 0.0
READ (5, 1000) XMODE,LEVEL,PTYPE,HED,NPMAT,NPPT
IF (XMODE .EQ. STOP) GO TO 900
IF(LEVEL.LT.l .OR. LEVEL.GT.3) GO TO 500
IF(XMODE.NE.DESIGN .AND. XMODE.NE.ANALYS) GO TO 500
.......
tv
~
ACAN0002
CANDE-89 (C)ULVERT (AN)ALYSIS AND (DE)SIGN PROGRAM
ACAN0003
VERSION 1.0, MARCH 1990
ACAN0004
PUBLIC DOMAIN SOFTWARE CONTRIBUTED BY
ACANOOOS
THE FEDERAL HIGHWAY ADMINISTRATION
.. * .. II' * * .. * * * .. * .,. * ................ * .... * .. * * ............ .. ACAN0006
ACAN0007
PROGRAM CANDE(INPUT,OUTPUT,TAPES~INPUT,TAPE6=OUTPUT,TAPE30,
C
ACAN0008
1
TAPEIO,TAPEll,TAPE12,TAPE13,TAPEI4,TAPEI6,TAPE17)
C
ACAN0009
C
ACANOOlO
CANDE ... (C)ULVERT (ANIALYSIS AND (DE)SIGN PROGRAM.
C
ACANOOll
C
ACAN0012
ENGLISH UNIT VERSION
C
ACANOOn
C
ACAN0014
Uncomment this statement in all program modules for double
ACANOOlS
precision version. SCM 3-10-90
ACAN0016
ACAN0017
IMPLICIT DOUBLE PRECISION (A-H,o-Z)
ACAN0018
ACANOOl9
Revise dimensions of PIPMAT and RESULT arrays from 30 to 99.
ACAN0020
SCM
4-30-89
ACANOOn
ACAN0022
DIMENSION HED(IS),PLIST(10),PIPMAT(S,99),RESULT(20,99),SOLVE(6)
ACAN0023
ACAN0024
C
C
NEW ADDITION COMMON STATEMENT IN 1983 FOR JOINT SLIPPING BEHAVIOR ACAN002S
C
ACAN0026
Expand array dimension statements from 30 to 99.
SCM
5-22-89
SCM 3-18-89
')
')
OPEN(10,FILE='PLOT1.PLl')
OPEN(30,FILE='PLOT2.PL2')
FILE~'
OPEN(6,FILE~'
OPEN(ll,FILE~'DATA.SAV')
OPEN(16,FILE-'DUNCAN.DUN')
OPEN(17,FILE='XFACES.XFC')
OPEN(12,FORM='UNFORMATTED')
OPEN(13,FORM='UNFORMATTED')
OPEN(14,FORM~'UNFORMATTED')
SCM
2-24-88
IF(LEVEL.NE.3) NPMAT = 10
IF(LEVEL.NE.3) NPPT - 11
IF(LEVEL.EQ.2) THEN
LCODE : -(LEVEL'IOO + NPMAT)
ELSE
LCODE - LEVEL
ENDIF
IF(LEVEL.EQ.2 .AND. NPMAT.EQ.2) THEN
NPMAT = 14
NPPT ~ 15
ELSE IF(LEVEL.EQ.2 .AND. NPMAT.EQ.3) THEN
NPMAT ~ 19
NPPT : 20
ELSEIF(LEVEL . NE.3) THEN
NPMAT = 10
NPPT - 11
ENDIF
ACAN0027
ACAN0028
ACAN0029
ACAN0030
ACAN0031
ACAN0032
ACAN0033
ACAN0034
ACAN003S
ACAN0036
ACAN0037
ACAN0038
ACAN0039
ACAN0040
ACAN0041
ACAN0042
ACAN0043
ACAN0044
ACAN004S
ACAN0046
ACAN0047
ACAN0048
ACAN0049
ACANOOSO
ACANOOSI
ACAN0052
ACANOOS3
ACANOOS4
110
NPIPE :
DO 110 N~l,NLIST
IF(PTYPE.EQ.PLIST(N NPIPE
IF(NPIPE.EQ.O) GO TO 500
NPROB = NPROB + 1
WRITE(6,2l00) NPROB,HED,XMODE,SOLVE(LEVEL),SOLVE (LEVEL+3),
1
PLIST(NPIPE),PLIST(NPIPE+S)
C
C
C
120
130
GO TO 400
CONTINUE
140
lEXIT ~ 1
ICOME: 2
ACAN005S
ACANOOS6
ACANOOS7
ACANOOS8
ACANOOS9
ACAN0060
ACAN0061
ACAN0062
ACAN0063
ACAN0064
ACAN006S
ACAN0066
ACAN0067
ACAN0068
ACAN0069
ACANOO?O
ACAN0071
ACAN0072
ACANOO?3
ACANOO?4
ACAN007S
ACAN0076
ACAN0077
ACAN0078
ACANOO?9
ACAN0080
ACAN008l
ACAN0082
ACAN0083
ACAN0084
ACAN008S
ACAN0086
ACAN008?
ACAN0088
ACAN0089
ACAN0090
ACAN0091
ACAN0092
ACAN0093
ACAN0094
ACAN0095
ACAN0096
ACAN0097
ACAN0098
ACAN0099
ACANOlOO
ACANOI0l
ACAN0102
ACANOI03
ACANOl04
ACANOl05
ACANOI06
ACANOIO?
ACANOI08
ACANOl09
ACANO 11 0
ACANO 11 1
ACAN01I2
ACAN01I3
ACANO 11 4
ACANOlIS
ACAN01I6
ACAN0117
GO TO 400
CONTINUE
GO TO 300
CONTINUE
150
160
IF(IEXIT.NE.1) GO TO 140
C
C
C
C
C
C
C
300
C
301
302
303
......
304
VI
305
PIPE LIBRARY
GO TO (301,302,303,304,305) , NPIPE
CALL STEEL (IA,ICOME,IEXIT,LEVEL,N1NC,NPMAT,NPPT,PDIA,PIPMAT,
1
RESULT, SK, SM, XMODE)
GO TO 310
CALL ALUMIN(IA,ICOME,IEXIT,LEVEL,NINC,NPMAT,NPPT,PD1A,PIPMAT,
1
RESULT, SK, SM, XMODE)
GO TO 310
CALL CONCRE(IA,ICOME,1EX1T,LEVEL,NINC,NPMAT,NPPT,PDIA,PIPMAT,
1
RESULT, )(MODE)
GO TO 310
CALL PLASTI(IA,ICOME,1EXIT,LEVEL,NINC,NPMAT,NPPT,PD1A,PIPMAT,
1
RESULT, SK, SM, XMODE}
GO TO 310
CALL BASIC (IA,ICOME,IEXIT,LEVEL,NINC,NPMAT,NPPT,PD1A,PIPMAT,
1
RESULT, XMODE)
CONTINUE
GO TO (120,160) ICOME
310
C
C
C
401
mesh additions.
402
1
SCM
3-18-89
CALL PRHERO(IA,ICOME,IEXIT,LCODE,NINC,NPMAT,NPPT,PDIA,PIPMAT,
RESULT, SK, SM)
410
C
GO TO (130,150},ICOME
ERROR EXIT
C
500
WR1TE(6,3000) )(MODE,LEVEL,PTYPE
STOP 10
C
C
NORMAL EXIT
ACANO 11 8
ACAN01l9
ACANOl20
ACAN012l
ACANOl22
ACAN0123
ACAN0124
ACANOl25
REACANOI26
ACAN0127
ACAN0128
ACAN0129
ACAN0130
ACAN0131
ACAN0132
ACAN0133
ACAN0134
ACAN0135
ACAN0136
ACAN0137
ACAN0138
ACAN0139
ACAN014 0
ACAN0141
ACAN0142
ACAN0143
ACAN0144
ACAN0145
ACAN0146
ACAN0147
ACAN0148
ACAN0149
ACAN0150
ACANOl51
ACAN0152
ACAN0153
ACAN0154
ACAN0155
ACANOl56
ACAN0157
ACAN0158
ACAN0159
ACAN0160
ACAN0161
ACAN0162
ACAN0163
ACAN0164
ACAN0165
ACAN0166
ACAN0167
ACAN0168
ACANOl69
ACAN0170
ACANOl71
ACANOl72
ACAN0173
ACAN0174
ACAN0175
ACAN0176
ACAN0177
ACAN0178
ACAN0179
ACAN0180
ACAN0181
ACAN0182
ACAN0183
ACAN0184
C
ACAN0185
C
FORMATS
ACAN0186
C
ACAN0187
1000 FORMAT (A4,3X,11,lX,A4,3X,15A4,212)
ACAN0188
C
ACAN0189
Revise title page of Unit 6 output file for 1989 version.
ACAN0190
SCM 3-10-90
ACAN0191
ACAN0192
2000 FORMAT (lHl, I I
X, 112X, 57H
N
8888
9999ACAN0193
AA
N DDDD
EEEEE
CCCC
88 8 99 9ACAN0194
X,I12X,57H
AM
NN
N DD D EE
CC
X,I12X,56H
N DO 0
NNN
EEEE DOD 88888
9999 ACAN0195
CC
AAA
EE
9 ACAN0196
X, 112X, 55H
CC
AAAAA NN N N DO 0
88 8
x,/12X,54H
9
ACANOl97
8888
CCCC AA. A NN NN OOODO EEEEE
ACAN0198
X, I
X,/12X,52HI1111111I1II1IIIII1111111I1111II1111I1IIIIII11111111
ACAN0199
ACAN0200
X,/12X,51H
IIIIIIIIIIIIIIIIIIIII!I!IIII1IIIIIIIIIIIII
ACAN0201
X,/12X,50H
III
ACAN0202
X,/12X,49H
(C)ULVERT (AN)ALYSIS AND (DE)SIGN II
ACAN0203
X, 112X, 48H
ACAN0204
X, I
X,/12X,35H
VERSION 1. 0
ACAN0205
ACAN0206
X,/12X,34H
MARCH 1990
ACAN0207
X, I
X,/12X,47H
ACAN0208
PUBLIC DOMAIN SOFTWARE CONTRIBUTED BY
ACAN0209
THE FEDERAL HIGHWAY ADMINISTRATION
X,/12X,46H
ACAN021 0
X)
ACAN0211
2010 FORMAT (lH ,I I
ACAN0212
X, 112X, 27H
PIPE TYPE LIBRARIES:
ACAN0213
ALUMINUM (CORRUGATED)
X,I12X,33H
ACAN0214
X,/12X,33H
BASIC (ANALYSIS ONLY)
ACAN0215
x,/12X,46H
(UNCONNECTED ELEMENT OPTION)
ACAN0216
CONCRETE (REINFORCED)
X,I12X,33H
ACAN0217
X,/12X,32H
PLASTIC (SOLID WALL)
X,/12X,30H
ACAN0218
STEEL (CORRUGATED)
ACAN0219
X,/12X,40H
(SLOTTED JOINT OPTION)
ACAN022 0
X, I
ACAN0221
X,/12X,23H
SOLUTION LEVELS:
ACAN0222
X,/12X,43H
LEVEL 1: ELASTIC THEORY - BURNS
LEVEL 2: FINITE ELEMENT - AUTO
X,/12X,42H
ACAN0223
ACAN0224
CIRCULAR AND ELLIPTICAL (CAN1)
X,/12X,51H
ACAN0225
X,/12X,51H
CONCRETE BOX CULVERT (CANBOX)
ACAN0226
X,/12X,51H
2 OR 3 SEGMENT ARCHES (CANAR1)
ACAN0227
X,/12X,42H
LEVEL 3: FINITE ELEMENT - USER
ACAN0228
X)
ACAN0229
2100 FORMAT(IH1, 11 1 10X,19H PROBLEM NUMBER,I3,4H "'IIII0X,15A4/11 ACAN0230
X lOX, 21H EXECUTION MODE ..... ,A4 II
ACAN0231
ACAN0232
X lOX, 21H SOLUTION LEVEL ..... ,2A4 II
ACAN0233
X lOX, 21H CULVERT TYPE ...... ,2A4)
3000 FORMAT(111128H FATAL ERROR IN DATA
II 9H MODE IS ,A4,4X, ACAN0234
X10H LEVEL IS ,I2,4X,14H PIPE-TYPE IS ,A4)
ACAN0235
)ACAN0236
6000 FORMAT (111111 10X,40H * * * NORMAL EXIT FROM CANDE
ACAN0237
END
ACANOOOI
AFUN0002
CANDE-B9 (C)ULVERT (AN)ALYSIS AND (DE)SIGN PROGRAM
AFUN0003
VERSION 1.0, MARCH 1990
AFUNOOD4
PUBLIC DOMAIN SOFTWARE CONTRIBUTED BY
THE FEDERAL HIGHWAY ADMINISTRATION
AFUNOOOS
.... ,. . ..... .,.
............ * .. * ...... * * ... * ..... + .. ~ " ........ .. AFUN0006
C
900 WRITE(6,6000)
STOP
FUNCTION AF (I, J)
0.00000,0.00000,0.08883,0.09891,0.11466,0.13016,0.14575,
AFUN0007
AFUN0008
AFUN0009
AFUNOOI0
AFUN0011
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
AFUN0012
AFUNOOl)
COMMON IAFCALCI XX(4), YY(4)
AFUN0014
AF ~ (XX(I) -XX(J)) * (YY(I) +YY(J)) 12.0
AFUN0015
RETURN
AFUN0016
END
AFUN0017
ALUM0001
CANDE-89 (C)ULVERT (AN)ALYSIS AND (DE)SIGN PROGRAM
ALUM0002
VERSION 1.0, MARCH 1990
ALUM0003
PUBLIC DOMAIN SOFTWARE CONTRIBUTED BY
ALUM0004
THE FEDERAL HIGHWAY ADMINISTRATION
ALUM0005
ALUM0006
SUBROUTINE ALUMIN (IA,ICOME,IEXIT,LEVEL,NINC,NPMAT,NPPT,PDIA,
ALUM0007
ALUM0008
1
PIPMAT,RESULT,SK,SM,XMODE)
ALUM0009
SUBROUTINE FOR CORRUGATED ALUMINUM CULVERTS.
ALUM0010
ALUM0011
THE FOLLOWING ADDITIONS TO THE * RESULT * ARRAY ARE CALCULhTED
ALUM0012
IN THIS SUBROUTINE.
ALUM0013
ALUM0014
RESULT(10,N)
BENDING STRESSES IN OUTER FIBERS.
ALUM0015
RESULT(11,N)
THRUST STRESS (AVERAGE OVER SECTION)
ALUM0016
ALUM0017
RESULT(12,N) - SHEAR STRESS (AVERAGE OVER SECTION)
ALUM0018
Uncomment this statement in all program modules for double
ALUM0019
precision version. SCM 3-10-90
ALUM0020
ALUM0021
ALUM0022
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
ALUM0023
Revise dimensions of PIPMAT and RESULT arrays from 30 to 99.
ALUM0024
ALUM0025
SCM 4-30-89
ALUM0026
DIMENSION CPLIST(10),FS(4),PALIST(35),PFS(4),PHINGE(5),PILIST(35),ALUM0027
1
PIPMAT (5,99) , PSLIST (35) , RESULT (20,99)
ALUM0028
ALUM0029
ALUM0030
DATA E,XNU,YIELD,ELONG,E2/10200000.,O.33,24000.,O.05,600000.1
ALUM0031
DATA NFS,FS/4,3.,4.,2.,2.01
ALUM0032
DATA FF,GAGE2010.09,O.0381
ALUM0033
DATA ANALYS, DESIGN 14HANAL,4HDESII
9, ALUM0034
DATA CPLIST,BXB,NUMCP,NUMGAI 4H 8/3,4H
3,4H
6,4H
6,4H
1
4Hl/2,2*4H1
,4H2
,4H5/2 ,3H X ,5,71
ALUM0035
ALUM0036
DATA PALISTI
ALUM0037
0 . 03875,0.05158,0.06458,0.08066,0.11300,0.14533,0.17775,
1
0.04450,0.05925,0.07416,0.09275,0.13000,0.16733,0.20483,
ALUM0038
2
ALUM0039
0.00000,0.00000,0.06460,0.08080,0.11300,0.14540,0.17750,
3
ALUM0040
0.00000,0.00000,0.20408,0.22825,0.26658,0.30483,0.34325,
ALUMOO41
0.11700,0.14600,0.17500,0.20400,0.23400,0.26300,0.292001
ALUM0042
DATA PILIST/
0.00112,0.00150,0.00189,0.00239,0.00342,0.00453,0.0057 ,
ALUMOO43
1
ALUM0044
0.00515,0.00689,0.00865,0.01088,0.01545,0.02017,0.02508,
2
ALUM0045
0.00000,0.00000,0.00850,0.01060,0.01490,0.01910,0.02340,
3
ALUM0046
0.00000,0.00000,0.09616,0.10800,0.12691,0.14616,0.16583,
0.09100,0.11400,0.13600,0 . 15900,0.18200,0.20600,0.227001
ALUMOO47
ALUM0048
DATA PSLIST/
ALUM0049
0.00419,0.00549,0.00676,0 . 00831,0 . 01133,0.01428,0.01724,
1
0 . 00995,0.01315,0.01634,0.02025,0.02798,0.03557,0.04308,
ALUM0050
2
0.00000,0.00000,0.01603,0 . 01974,0.02697,0.03366,0.04021,
ALUM0051
3
C
C
C
C
C
C
C
C
C
C
N
0\
ALUM0052
ALUM0053
ALUM0054
GO TO (100,200),ICOME
ALUM0055
ALUM0056
ALUM0057
FIRST ENTRY ESTABLISHES PIPE PROPERTIES, AND SAFETY FACTORS
READ(5,lOOO) NONLIN,PDIA,PE,PNU,PYIELD,PELONG,PDEN,PE2
ALUM0058
IF(PE.LE.O.O) PE ~ E
ALUM0059
ALUM0060
IF(PNU.LE. 0.0) PNU ~ XNU
IF(PYIELD . LE.O . O) PYIELD ~ YIELD
ALUM0061
ALUM0062
IF(PELONG.LT.PYIELD*(1.-PNU**2)/PE) PELONG ~ ELONG
ALUM0063
IF(NONLIN.NE . l . AND . NONLIN.NE.2) NONLIN ~
IF(NONLIN . EQ . 2 . AND . PE2 . LE.0.0) PE2 = E2
ALUM0064
ALUM0065
ALUM0066
WRITE(6,2000) PDIA,PE,PNU,PYIELD,PELONG,PDEN,NONLIN
ALUM0067
IF(NONLIN.EQ . 2) WRITE(6,2001) PE2
ALUM0068
PIMIN = PDIA'*2/{PE*FF)
PHINGE(l) ~ 0 . 0
ALUM0069
ALUM0070
IF(XMODE.EQ.DESIGN) GO TO 110
ALUM0071
READ(5,1010) PA,PI,PS
ALUMOOn
WRITE(6,2010) PA,PI,PS
ALUM0073
GO TO 130
ALUM0074
READ(5,1010) (PFS(I),I~l,NFS)
ALUM0075
DO 120 I~l, NFS
ALUM0076
ALUM0077
IF(PFS(I) . GT.O.O) GO TO 120
ALUM0078
PFS (I) = FS ( I )
ALUM0079
CONTINUE
ALUM0080
WRITE(6,2100) (PFS(I),I-1,NFS)
ALUM0081
PAMIN - GAGE20
ALUM0062
PA - PAMIN
ALUM0083
PI - PIMIN
ALUM0084
NOTE ... SECTION MODULUS FOR ALUMINUM CORRUGATIONS HAS THE RELATION,ALUM0085
PS - PI/(1.417*SQRT(PI/PA) + 0.450*PA)
ALUM0086
ITER = 0
ALUM0087
ALUM0088
INITIALIZE PIPE PROPERTIES ALL AROUND PIPE TO BE THE SAME
ALUM0089
ALUM0090
ALUM0091
DO 140 N-l,NPMAT
ALUM0092
PIPMAT (1, N) - PE
ALUM0093
PIPMAT(2, N)
PNU
ALUM0094
PIPMAT(3,N)
PA
ALUM0095
PIPMAT (4, N)
PI
ALUM0096
PIPMAT(5,N)
PDEN*PA
ALUM0097
DO 145 N=l, NPPT
ALUM0098
PA
ALUM0099
RESULT(14,N)
RESULT{15,N)
PI
ALUMOIOO
RESULT (16, N)
PI/PS
ALUMOIOI
ICON = 0
ALUMOI02
PESUM = PE
ALUM0103
RETURN
ALUMOI04
ALUMOI05
ALUMOI06
SECOND ENTRY DETERMINES MAXIMUM STRUCTURAL RESPONSES FOR
ALUMOI07
EVALUATING THE PIPE IN TERMS OF FAILURE CRITERIA. IN THE DESIGN
ALUMOI08
MODE, THE PROGRAM ITERATES TO FIND ADEQUATE SECTION PROPERTIES.
ALUMOI09
ALUM0110
IEXIT = 0
ALUMO 11 1
ALUMO 11 2
IF{NONLIN.EQ . l .AND. IA.EQ.NINC) CALL HINGE(PIPMAT,NPMAT,PS,PDIA, ALUMOl13
X PYIELD,SM,SK,RESULT,NPPT,PHINGE)
ALUMOl14
0.07000,0.08685,0.10264,0.11888,0.13481,0.15119,0.165091
C
C
100
110
120
C
C
C
130
140
C
145
C
C
C
C
C
200
C
IF(NONLIN.NE.2) GO TO 203
ICON = ICON + 1
CALL EMOD(IA,ICON,NPMAT,NPPT,PA,PE, PE2,PESUM,PI,PIPMAT,
1
PNU,PS,PYIELD,RESULT,ICOME)
IF(ICON.EQ . -1) GO TO 203
IEXIT = -1
RETURN
C
C
203
C
C
C
204
......
N
--...)
20S
210
DO 210 N=l,NPPT
RESULT(10,N)
RESULT(S,N)(PS
RESULT(I1,N) = RESULT(6,N)(PA
RESULT(I2,N) - RESULT(7,N)(PA
IF(NONLIN.EQ . O) GO TO 20S
SIGN s 1. 0
IF(RESULT(10,N) .LT-O.O) SIGN = -1.0
BSTRES - PYIELD
IF(NONLIN.EQ . 2) BSTRES = PYIELD + RESULT(I7,N)
IF(SIGN'RESULT(IO,N) .GT.PYIELD) RESULT(IO,N) = SIGN'BSTRES
IF(ABS(RESULT(10,N)) .GT.BMAX) BMAX = ABS(RESULT(10,N))
IF(ABS(RESULT(11,N)) . GT.TMAX) TMAX = ABS(RESULT(ll,N))
IF(RESULT(4,N).GT.UYMAX) UYMAX c RESULT(4,N)
IF(RESULT(4,N).LT.UYMIN) UYMIN = RESULT(4,N)
IF(NONLIN.EQ . 2.AND.RESULT(lB,N) . GT.EPSMAX) EPSMAX c RESULT(lB,N)
PAVG K PAVG + RESULT(B,N)
CONTINUE
PAVG = ABS(PAVG(NPPT)
DISP ~ UYMAX-UYMIN
IF (SM .EQ. 0.0) SM - 1.0
PBUCK - PDIA"3(36.*PESUM'SM*(1 . -SK))*(1.-PNU**2)
PCRIT = SQRT(PI(PBUCK)
IF(NONLIN.EQ . O) EPSMAX - BMAX*(l . -PNU**2)(PE
IF(NONLIN.EQ.1) EPSMAX
PHINGE(S)*(I.-PNU**2)*PYIELD(PE
IF(NONLIN.EQ.2) EPSMAX c EPSMAX*(1.-PNU**2)'PYIELD(PE
IF(NONLIN.EQ . ! .AND . PHINGE(l) .LT.O.O) GO TO 300
IF(XMODE.EQ.ANALYS) GO TO 300
ICON = 0
IF(IA . LT.NINC) RETURN
ITER = ITER + 1
ICHKA - 0
ICHRI = 0
C
ALUMO 11 5
ALUM01l6
ALUM01l7
ALUM0118
ALUMO 11 9
ALUMOl20
ALUM0121
ALUM0122
ALUMOl23
ALUM0124
ALUM012S
ALUM0126
ALUMOl27
ALUM012B
ALUM0129
ALUMO 13 0
ALUM0131
ALUM0132
ALUM0133
ALUM0134
ALUMO 13 5
ALUM0136
ALUM0137
ALUM0138
ALUM0139
ALUM0140
ALUM0141
ALUM0142
ALUM0143
ALUM0144
ALUM014S
ALUM0146
ALUM0147
ALUM0148
ALUM0149
ALUMOISO
ALUMOlS1
ALUM01S2
ALUMOIS3
ALUMOlS4
ALUM0155
ALUMOI56
ALUM0157
ALUMOlS8
ALUM0159
ALUM0160
ALUM0161
ALUM0162
ALUM0163
ALUM0164
ALUM0165
ALUMOI66
ALUM0167
ALUM0168
ALUM0169
ALUMOI70
ALUM0171
ALUMOl72
ALUM0173
ALUM0174
ALUM0175
ALUM0176
ALUM0177
ALUM0178
ALUM0179
ALUMOI80
C
UPDATE MOMENT OF INERTIA AS REQUIRED BY . .. (1) DEFLECTION LIMIT
ALUM0181
C
AS A PERCENT OF DIAMETER, OR (2) ELASTIC BUCKLING AS GIVEN BY
ALUM0182
C
C
CHELAPATI, HIGHWAY RESEARCH RECORD, NO. 413, 1972., OR (3) STRAIN ALUM0183
RUPTURE IN THE OUTER FIBERS .
ALUM0184
C
ALUM0185
C
ALUM0186
PINEWD - PFS(2)*DISP*PI/(0 . 2*PDIA)
ALUM0187
PINEWB = (PFS(3)'PAVG)**2*PBUCK
ALUM0188
PINEWS
PFS(4)*EPSMAX*PI/PELONG
ALUM0189
ALUM0190
Revise intrinsic function to generic form.
ALUM0191
SCM 3-10-90
ALUM0192
ALUM0193
PINEW
MAX(PINEWD,PINEWB,PINEWS)
ALUM0194
ALUM0195
IF(PINEW . LT.PIMIN) PINEW = PIMIN
ALUM0196
IF(ABSPINEW-PI)/PlNEW) .LT.O.OS) ICHKI - 1
ALUM0197
PI - PINEW
ALUM0198
PS = PI/(1.417*SQRT(PI/PA) + 0.4S0*PA)
ALUMOI99
C
UPDATE SECTION PROPERTIES AND CHECK FOR CONVERGENCE.
ALUM0200
C
ALUM0201
C
ALUM0202
IF(ICHKA*ICHKI.EQ.l) GO TO 250
ALUM0203
IF(ITER.GT.5) WRITE(6,2200) ITER,PA,PI,PS
ALUM0204
IF(ITER.GT.S) GO TO 300
ALUM0205
IEXIT = -2
ALUM0206
GO TO 130
ALUM0207
C
ALUM0208
SEARCH STANDARD CORRUGATION TABLES FOR SUITABLE SECTIONS WHICH
C
ALUM0209
SATISFY THE DESIGN SOLUTION, LIST THEM.
C
ALUM0210
C
ALUM0211
WRITE(6,2300) ITER,PA,PI,PS
250
ALUM0212
SUMMAX - 0.0
ALUM0213
IJBEST = 0
ALUM0214
DO 280 I-l,NUMCP
ALUM0215
NGAGE - 0
ALUM0216
DO 260 J=l,NUMGA
IJ = J+NUMGA*(I-l)
ALUM0217
ALUMO 21 8
CPA = PALIST(IJ)
CPI = PILIST(IJ)
ALUM02I9
IF(CPA.LT.PA .OR. CPI.LT.PI) GO TO 260
ALUM0220
ALUM0221
NGAGE = 22-2'J
ALUM0222
IF(I.EQ.4) NGAGE- 14-2*J+J/4
ALUM0223
IF(LEQ . S) NGAGE= 0
ALUM0224
GO TO 270
ALUM0225
CONTINUE
260
ALUM0226
WRITE(6,2400) CPLIST(I),BXB,CPLIST(I+5)
ALUM0227
GO TO 280
ALUM0228
270 WRITE(6,2500) CPLIST(I),BXB,CPLIST(I+5),NGAGE,CPA,CP!
ALUM0229
SUMS = PA/CPA + PI/Cpr
ALUM0230
IF(SUMS.LT.SUMMAX) GO TO 290
ALUM0231
SUMMAX = SUMS
ALUM0232
IJBEST
IJ
ALUM0233
NGBEST = NGAGE
ALUM0234
CONTINUE
280
ALUM023S
C
ALUM0236
CHOOSE MOST EFFICIENT SECTION FROM LIST AND ANALYSE.
C
ALUM0237
C
IF(IJBEST.EQ.O) WRITE(6,2600)
ALUM0238
IF(IJBEST.EQ.O) GO TO 300
ALUM0239
ALUM024
0
PA = PALIST(IJBEST)
IF(ABSPANEW-PA)/PANEW) .LT . O.OS) ICHKA - 1
PA = PANEW
PI = PILIST(IJBEST)
PS = PSLIST(IJBEST)
IBEST = (IJBEST-1)/NUHGA+1
WRITE(6,2100) CPLIST(IBEST),BXB,CPLIST(IBEST+5),NGBEST
XMODE = ANAL YS
IEXIT = -2
GO TO 130
.....
tv
00
ALUM0241
ALUM0242
ALUM0243
ALUM0244
ALUM0245
ALUM0246
ALUM0241
C
ALUM024 B
300
CONTINUE
ALUM0249
C
ALUM0250
PRINT FINITE ELEMENT FIELD RESPONSES.
C
ALUM0251
ALUM0252
C
ALUM0253
IF (LEVEL .EQ. 1) GO TO 330
ICOME = 3
ALUM0254
CALL PRHERO(IA,ICOME,IEXIT,LEVEL,NINC,NPMAT,NPPT,PDIA,PIPMAT,
ALUM0255
1
RESULT, SK, SM)
ALUM0256
ICOME
2
ALUM0251
330 CONTINUE
ALUM025B
ICOME=3
ALUM0259
IF(NONLIN.EQ.2) CALL EMOD(IA,lCON,NPMAT,NPPT,PA,PE,PE2,PESUM,PI, ALUM0260
ALUM0261
PIPMAT,PNU,PS,PYIELD,RESULT,ICOME)
1
ICOME=2
ALUM0262
ALUM0263
C
PRINTOUT STRUCTURAL RESULTS AND EVALUATION.
ALUM0264
C
ALUM0265
C
WRITE(6,2800) lA, (RESULT(1,J),RESULT(3,J),RESULT(8,J),RESULT(5,J),ALUM0266
X RESULT(6,J) ,RESULT(1,J) ,RESULT(2,J) ,RESULT(4,J) ,RESULT (9,J),
ALUM0261
X RESULT(10,J),RESULT(11,J),RESULT(12,J),J~1,NPPT)
ALUM026B
ALUM0269
C
IF(NONLIN.EQ.2) WRITE(6,2990) lA, (J,RESULT(19,J),RESULT(20,J),
ALUM021 0
X RESULT(18,J),RESULT(13,J),J=1,NPPT)
ALUM0211
ALUM0212
C
IF (TMAX*DISP*PAVG*BMAX .EQ. 0.0) GO TO 350
ALUM0213
ALUM0274
CIRCR = PYIELD/TMAX
ALUM0275
DISPR = (0.2*PDIA)/DISP
ALUM0276
BUCKR - PCRIT/PAVG
ALUM0217
STRNR = PELONG/EPSMAX
BENDR = PYIELD/BMAX
ALUM027B
ALUM0279
HANDR = PI/PIMIN
ALUM0280
WRITE(6,2900) IA,CIRCR,DISPR,BUCKR,STRNR,BENDR,HANDR
ALUM0281
350
CONTINUE
ALUM0282
IF(NONLlN.NE.l) GO TO 400
IF(PHINGE(l) .LT.O.O .OR. PHINGE(l) .GT.l.0) GO TO 400
ALUM0283
ALUM0284
WRITE(6,2950) (PHINGE(I),I=1,5)
IEXIT = 1
ALUM02B5
400
IF(IA.LT.NINC) IEXIT= 0
ALUM0286
ALUM0287
ICON = 0
ALUM0288
RETURN
ALUM02B9
C
ALUM0290
FORMATS
C
ALUM0291
C
ALUM0292
1000 FORMAT (IS, 7FlO.0)
ALUM0293
1010 FORMAT (4FlO. 0)
ALUM0294
2000 FORMAT (III 10X,35H PIPE PROPERTIES ARE AS FOLLOWS ... II
X 15X,36H AVERAGE PIPE DIAMETER (IN.) ....... , E15.5 II
ALUM0295
X 15X,36H YOUNGS MODULUS OF PIPE (PSI) .....
E15.5 II
ALUM0296
ALUM0291
X 15X,36H POISSONS RATIO OF PIPE (-) ........ , E15.5 /I
X 15X,36H YIELD STRESS OF PIPE (PSI) .........
E15.5 II
ALUM029B
X 15X,36H RUPTURE STRAIN OF PIPE (IN/IN) .... , E15.5 /I
ALUM0299
ALUM0300
X 15X,36H DENSITY OF PIPE (PCI) .............. , E15.5 /I
X 15X,36H MATERIAL CHARACTER, NONLIN ........ , IS I
ALUM0301
X 17X,25H NONLIN=O, IMPLIES LINEAR I
ALUM0302
X 17X,30H NONLIN=l, IMPLIES YIELD-HINGE I
ALUM0303
CP (3,1) =0.0
CP(3,2)=0.0
CP(I,I)=Cll
CP(I,2)=Cl2
CP(2,2)=C22
CP(3,3)~C33
CP(2,1)=CI2
IF(PI .EQ. O.O)GO TO BO
PI=PIO. 0174533
SPH-SIN (PI)
CPH=COS(PI)
D1=CPH*CPH
D2=SPH*SPH
C1=SPH*CPH
TH(l,l)=D1
TH(l,2)=D2
TH (1. 3)=C1
TH(2,1)=D2
TH(2,2)-D1
TH(2,3)=-Cl
TH(3,l)=-2.0*C1
TH(3,2)=2.0*CI
TH(3,3)=D1-D2
DO 67 M=l,3
DO 67 N=l,3
DU=O.O
DO 65 L~l,3
65DU=DU+TH(L,N)*CP(M,L)
67 RO(M,N)=DU
DO 75 M=l,3
DO 75 N=l,3
DU1=0.0
DO n L=l,3
72 DU1=DUI~TH(L,M)*RO(L,N)
75 CP (M, N) =DU1
BO RETURN
END
.......
N
\0
ANSP0007
ANSPOOOB
ANSP0009
ANSP0010
ANSPOOll
ANSP0012
ANSP0013
ANSPOOH
ANSP0015
ANSP0016
ANSP0017
ANSP001B
ANSP0019
ANSP0020
ANSP0021
ANSP0022
ANSP0023
ANSP0024
ANSP0025
ANSP0026
ANSP0027
ANSP002B
ANSP0029
ANSP0030
ANSP0031
ANSP0032
ANSP0033
ANSP0034
ANSP0035
ANSP0036
ANSP0037
ANSP003B
ANSP0039
ANSP0040
ANSP0041
ANSP0042
ANSP0043
ANSP0044
ANSP0045
ANSP0046
ANSP0047
ANSP004B
ANSP0049
ANSP0050
ANSP0051
ANSP0052
ANSP0053
ANSP0054
ANSP0055
ANSP0056
ANSP0057
ANSPOOS8
SASCOOO I
BASC0002
BASC0003
BASC0004
BASCOOOS
BASC0006
BASC0007
BASCOOOB
BASC0009
BASC0010
BASCOOll
100
IF(NPMAT.EQ.O) RETURN
Add NEXTRA parameter to read statement for input of
unconnected elements.
MGK 1-17-89
READ(5,1000) PDIA,NEXTRA
NTOTAL = NPMAT + NEXTRA
150
MGK 1-17-B9
IF (ISEQ2.GT.NTOTAL) GO TO 400
175
IF(ISEQ2.LE.ISEQ1) ISEQ2=ISEQ1
DO 175 I - ISEQ1,ISEQ2,l
DO 175 J=I.5
PIPMAT(J,I) = PIPMAT(J,ISEQ1)
IF(ISEQ2.EQ.NTOTAL) GO TO 190
GO TO 150
Revise output statement to use NTOTAL instead of NPMAT for
1- 17-89
200
CONTINUE
C
C
C
210
CONTINUE
C
C
BASC0012
BASC0013
BASC0014
BASC0015
BASC0016
BASC0017
BASCOOIB
BASC0019
BASC0020
BASC0021
BASC0022
BASC0023
BASC0024
BASC0025
BASC0026
BASC0027
BASC0028
BASC0029
BASC0030
BASC0031
BASC0032
BASC0033
BASC0034
BASC0035
BASC0036
BASC0037
BASC003B
BASC0039
BASC0040
BASCO 0 41
BASC0042
BASC0043
BASC0044
BASC0045
BASC0046
BASC0047
BASC0048
BASC0049
BASC0050
BASC0051
BASC0052
BASC0053
BASC0054
BASC0055
BASC0056
BASC0057
BASC0058
BASC0059
BASCO 0 60
BASC006l
BASC0062
BASC0063
BASC0064
BASC0065
BASC0066
BASC0067
BASC0068
BASC0069
BASC0070
BASC0071
BASCOOn
BASC0073
BASCOO?4
350
C
C
C
400
C
C
C
1000
1500
2000
.....
2300
3000
C
C
C
BASC0075
BASC0076
BASC0077
BASC007B
BASC0079
BASCOOBO
BASCOOBI
BASCOOB2
BASCOOB3
BASCOOB4
BASCOOB5
BASCOOB6
BASCOOB7
BASCOOBB
ERROR EXIT
BASCOOB9
BASC0090
WRITE(6,3000) ISEQl,ISEQ2
BASC0091
STOP 10
BASC0092
BASC0093
FORMATS
BASC0094
BASC0095
Revise format statement for reading input of unconnected
BASC0096
structures option. MGK 1-17-89
BASC0097
BASC009B
FORMAT(FI0.0, IS)
BASC0099
FORMAT(2I5,5FIO.0)
BASC0100
FORMAT (/ I I 10X,35H PIPE PROPERTIES ARE AS FOLLOWS ... I I
BASCOI01
X 15X,36H AVERAGE PIPE DIAMETER ..... . ....... , E15.5 II
BASCOI02
X lX,9H MATERIAL ,5X,7H YOUNGS ,4X,8H POISSON ,5X,7H THRUST ,5X,
BASCOI03
X7H MOMENT ,4X,BH DENSITY I 3X,7H NUMBER ,4X,8H MODULUS ,6X,
BASC0104
X 6H RATIO, 7X,5H AREA ,4X,BH INERTIA 1(5X,I5,5E12.4))
BASCOI05
FORMAT(lHl,1110X,32H STRUCTURAL RESPONSES OF CULVERT II
BASCOI06
X 4X,9H X-COORD.,5X,8H X-DISP . ,4X,9H N-PRES.,6X,7H MOMENT,6X,
BASCOI07
X 7H THRUST,7X,6H SHEAR 14X,9H Y-COORD.,5X,BH Y-DISP.,5X,BH S-PRES.BASC010B
X, (11F13.2,5E13.3/F13.2,2E13.3))
BASCOI09
FORMAT ( 11127H FATAL DATA ERROR IN BASIC I
BASCOIIO
X44H BEAM SEQUENCE NUMBERS ARE OUT OF BOUNDS . .. ,215)
BASCOlll
END
BASCOl12
* * * * + BMELOOOI
BMEL0002
CANDE-B9 (C)ULVERT (AN)ALYSIS AND (DE)SIGN PROGRAM
BMEL0003
VERSION 1.0, MARCH 1990
BMEL0004
PUBLIC DOMAIN SOFTWARE CONTRIBUTED BY
BMEL0005
THE FEDERAL HIGHWAY ADMINISTRATION
* * * * * * * * * * * * * * * * * * * * * * * * + * * * * BMEL0006
SUBROUTINE BEAMEL
BMEL0007
BMEL0008
THIS SUBROUTINE CALCULATES THE STIFFNESS MATRIX FOR A BENDING ELEMBMEL0009
BMELOOI0
BMELOOll
Uncomment this statement in all program modules for double
BMELOOn
precision version. SCM 3-10-90
BMEL0013
BMEL0014
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
BMEL0015
BMEL0016
COMMON I ELEMNTI AS (3), BS (3) ,Cl (17,17), EST (4,3), RQ(4), RT(3),
BMEL0017
STORE
(17),
Z4
(12),
ZQ(4),
ZT(3),
ZY(17),
JI,
RO
1
BMEL0018
COMMON lMATERLI CP (3, 3 ) , DEN ( 10) , E (10, 10) , GNU ( 10, 10) , H( 10, 10) ,
BMEL0019
ITYPE(10) ,NON(10)
I
BMEL0020
CA=RQ(2) -RQ (1)
BMEL0021
SA=ZQ (2) -ZQ (1)
BMEL0022
XL=SQRT(CA*CA+SA*SA)
BMEL0023
CA=CAlXL
BMEL0024
SAs-SA/XL
BMEL002S
STORE(l)=CA
ICOME = 3
CALL PRHERO(IA,ICOME,IEXIT,LEVEL,NINC,NPMAT,NPPT,PDIA,PIPMAT,
1
RESULT, SK, SM)
lCOME = 2
CONTINUE
lEXIT = 1
IF(IA.LT.NINC) lEXIT = 0
IF(NPMAT.LE . 0) RETURN
WRITE(6,2300) (RESULT(l, J), RESULT (3, J), RESULT (B, J), RESULT (5, J),
X RESULT(6,J),RESULT(7,J) ,RESULT(2,J) ,RESULT(4,J) ,RESULT( 9,J)
X ,J=l, NPPT)
RETURN
BMEL0026
BMEL0027
BMEL0028
NEW ADDITION STATEMENT IN 1983 FOR JOINT SLIPPING BEHAVIOR .
BMEL0029
BMEL0030
STORE ( 3) =XL
BMEL0031
BMEL0032
EB = CP(1,1)
BMEL0033
GNUB = CP(I,2)
BMEL0034
AB = CP(1,3)
BMEL0035
XIB = CP(2,1)
BMEL0036
EB c EB/(1.0-GNUB*GNUB)
BMEL0037
DU=EB*AB/XL
BMEL0038
Cl(1,1)=DU
BMEL0039
C1(4,1)=-DU
BMEL0040
C1(1,4)=-DU
BMELOO4l
Cl(4,4)=DU
BMEL0042
XL=O .S*XL
BMEL0043
RQ(l)=O.O
BMEL0044
RQ(3)=O.O
BMEL0045
D=.2S/XL
BMEL0046
RQ(2)=-D
BMELOOn
RQ(4)=D
BMEL004B
ZQ(2)=D
BMEL0049
ZQ(4)=D
BMELOOSO
D=D/XL
BMEL0051
ZQ(l)-D
BMELOOS2
ZQ(3)=-D
BMEL0053
D~8.0*XLEB*XIB
BMEL0054
DO 120 L-1,4
BMEL0055
LS=L+l+L/3
BMELOOS6
DO 120 J-1,4
BMELOOS7
JS=J+l+J/3
BMEL0058
BMEL0059
ZQ(J) *ZQ(L))
Cl(LS,JS)cD*(RQ(J)*RQ(L)+3.
BMEL0060
BMEL0061
LOCAL UNKNOWNS TRANSFORMED TO GLOBAL UNKNOWNS
BMEL0062
BMEL0063
DO 400 NR=I,4,3
BMEL0064
DO 315 JJ-1, 6
BMEL0065
D2~Cl (NR+I, JJ)
BMEL0066
Dl=Cl(NR,JJ)
BMEL0067
C1(NR,JJ)-Dl*CA+DZ*SA
BMEL006B
Cl(NR+l,JJ)--Dl*SA+D2*CA
BMEL0069
DO 318 II~l, 6
BMEL0070
Dl=C1 (II, NR)
BHELOO7l
D2-Cl (II,NR+1)
BMELOOn
Cl(II,NR)-D1*CA+D2*SA
BMEL0073
C1(II,NR+l)=-Dl*SA+D2*CA
BMEL0074
CONTINUE
BHEL0075
BMEL0076
GRAVITY LOAD OF BENDING ELEMENT
BMELOOn
BMEL0078
ZY(2) = -RO*XL
BMEL0079
ZY(5) = -RO*XL
BMEL0080
RETURN
BMEL0081
END
* *." *+ * * * .. * ...... ** * * ..... BMSTOOOI
BMST0002
CANDE-89 (C)ULVERT (AN)ALYSIS AND (DE)SIGN PROGRAM
BMST0003
VERSION 1.0, MARCH 1990
BI1ST0004
PUBLIC DOMAIN SOFTWARE CONTRIBUTED BY
BMST0005
THE FEDERAL HIGHWAY ADMINISTRATION
* . * * * * * ..... * * * * * . . . . . " ... * * * * - * ... BMST0006
BMST0007
SUBROUTINE BEAMST (NOD,NQ,I,NELEM,NPT,MN)
STORE(2) -- SA
C
C
120
C
C
C
315
31B
400
C
C
C
C
c
c
c
C
C
C
C
C
C
C
C
......
w
......
C
C
C
BMST0008
BMST0009
BMSTOOI0
BMSTOOll
Uncomment this statement in all program modules for double
BMST0012
precision version. SCM 3-10-90
BMST0013
BMST0014
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
BMST0015
BMST0016
DIMENSION NODI4,NELEM),NQINPT)
BMST0017
COMMON IELEMNTI AS(3),BS(3),ClI17,17),ESTI4,3),RQI4),RT(3),
BMST0018
1
STORE (17), Z4 (12), ZQ(4), ZT (3), ZY( 17), J1, RO
BMSTOOl9
COMMON/SYSTEM/B(240),A(240,120)
BMST0020
NEW ADDITION COMMON STATEMENT IN 1983 FOR JOINT SLIPPING BEHAVIOR BMST0021
BMST0022
BMST0023
Expand array dimension statements from 30 to 99 .
BMST0024
SCM 5-22-89
BMST0025
BMST0026
COMMON/XJOINT/DSTRN(99),XLONGI99) ,JOINT
BMST0027
BMST0028
BMST0029
STIFFNESS MATRIX TIMES DISPLACEMENT
BMST0030
BMST0031
COST=STORE(1)
BMST0032
SINT=STORE(2)
BMST0033
BMST0034
NEW ADDITION STATEMENT IN 1983 FOR JOINT SLIPPING BEHAVIOR .
BMST0035
BMST0036
XL~STORE(3)
BMST0037
BMST0038
ZYIS)=ZYI4)
BMST0039
ZY(4)-ZY(3)
BMST0040
N1 = NODI1,I)
BMST0041
NO-NQIN1) 1100+2
BMST0042
ZY(3) = BIND)
BMSTOOO
DO 100 K=1,6
BMSTOOH
DU~ O.O
BMST0045
DO 90 L=1,6
BMST0046
90 DU~DU+C1IK,L)*ZYIL)
BMST0047
100 STORE(K)=DU
BMST004B
RQ(1)=-STORE(1)*COST-STORE(2)*SINT
BMST0049
RQ(2)=STOREIl)'SINT-STOREI2)*COST
BMST0050
RQ(3) = STORE(3)
BMST005l
RQ(4) = STORE 11)
BMST0052
ZQ(1)=STOREI4)*COST+STORE(5)*SINT
BMST0053
ZQ(2)=-STOREI4)*SINT+STOREIS)*COST
BMST0054
ZQ(3)
-STORE(6)
BMST0055
ZQ(4) = STORE(2)
BMST0056
BMST0057
NEW ADDITION STATEMENTS IN 1983 FOR JOINT SLIPPING BEHAVIOR.
BMST0058
BMST0059
IFIJOINT . EQ.O)RETURN
BMST0060
UL1=COST*ZY(1)+SINT*ZYI2)
BMST0061
UL2 z cOST*ZY(4)+SINT*ZY(5)
BMST0062
DSTRN(MN)-(UL2-UL1)/XL
BMST0063
XLONGIMN) - XL
BMST0064
RETURN
BMST0065
END
.. ." . . . . . . . . . . . . . . . . . . . . * . . . . . . . . . CANAOOOl
CANA0002
CANDE-89 (C)ULVERT (AN)ALYSIS AND (DE)SIGN PROGRAM
CANA0003
VERSION 1.0, MARCH 1990
CANAO004
PUBLIC DOMAIN SOFTWARE CONTRIBUTED BY
CANA0005
THE FEDERAL HIGHWAY ADMINISTRATION
C
C
C
C
C
CANA0007
CANA0008
CANA0009
CANA0010
CANA0011
CANA0012
CANA0013
CANA0014
CANA0015
CANA0016
CANA0017
CANAOOIB
CANA0019
CANA0020
CANA0021
CANAD022
CANA0023
CANA0024
CANAD025
CANA0026
CANA0027
CANA0028
CANA0029
CANA0030
CANAD031
CANA0032
CANA0033
CANA0034
CANA0035
CANA0036
CANA003?
CANA003B
CANA0039
CANA0040
CANAD041
CANAD042
CANAOOO
CANA0044
CANA0045
CANA0046
CANA0041
CANAD048
CANA0049
CANA0050
CANA0051
CANA0052
CANA0053
CANA0054
CANA0055
CANA0056
CANA0057
CANA0058
CANA0059
CANA0060
CANA0061
CANA0062
CANA0063
CANA0064
CANA0065
CANA0066
CANA0067
CANA006B
CANA0069
CANA0070
CANA0071
CANAO072
CANAO073
CANA0074
CANA0075
CANA0016
CANA0011
CANA0018
CANA0079
3*0.0,
CANA0080
3*0.0 I
CANA0081
3*0.0,
CANA008Z
3*0.0,
CANA0083
3*0 . 0,
3*0 . 0,
CANA0084
3*0.0,
CANA0085
3*0.0,
CANA0086
3*0.0,
CANA0087
236.0,216.0,1.0,CANA0088
2*0.0,1.00,
CANA0089
2*0.0,1.00,
CANA0090
2*0.0,1.00,
CANA0091
2*0.0,1.00,
CANA0092
2*0.0,1.00,
CANA0093
2*0.0,1.00,
CANA0094
Z*0.0,1.00,
CANA0095
2*0.0,1.00,
CANA0096
Z*0.O,I.00 I
CANA0097
15.0,245.0,1.26,CANA0098
15.0,266.0,1.26,CANA0099
15.0,281.0,1.26/CANAOI00
CANAOI01
CANAOI02
2,190,194,0,0,2,1,0,0,0,0,
CANAOI03
4, 164,161,0,0, 4, 1,0,0,0,0,
CANAOI04
6,158,161,0,0,6, 1,0,0,0,0,
CANAOI05
8,136,138,0,0,8,1,0,0,0,0,
CANAOI06
10, 132, 13 4 , 0, 0, 10, I, 0, 0, 0, 0,
CANAOI07
12,128,130,0,0,12,1,0,0,0,0,
CANAOI08
14,115,118,0,0,14, I, 0, 0, 0, 0,
X 13,118,128,0,0,13,1,0,0,0,0,
CANAOI09
16,103,109,0,0,16,1,0,0,0,0,
X 15,109,115,0,0,15,1,0,0,0,0,
CANA0110
18,91,97,0,0,18,1, 0,0, 0, 0,
X 11,97,103,0,0,17,1,0,0,0,0,
CANA0111
X 19,80,91,0,0,19,1,0,0,0,0 I
CANAO 11 2
DATA LNOD2 I
X 20,1,2,17,16,1,1,0,1,1,0,
34,16,17,32,31,1,1,0,1,1,0,
CANA0113
X 48,31,32,47,46,1,1,0,1.1,0 ,
62,46,47,62,61,1,1,0,1,1,0,
CANAO 11 4
X 76,61,62,17,16,1,1,0,1, 1. O.
CANAO 11 5
X 19,64,65,80,19,2,1,0,1,1,0,
81,66,61,82,81,1,1,0,1,1,0,
CANAOl16
X 90,83,84,96,0,3,2,0,0,0 , 0,
91,96,84,121,102,3,2,0,0,0,0,
CANAOl17
X 92,84,85,122,121,3,2,0,1,1,0,
98,102,121,108,0,3,3,0,0,0,0,
CANAOl18
X 99,108,121,151,114,3,3,0,0,0,0, 100,121,122,152,151,3,3,0,1,1,0, CANA0119
X 106,114,151,150,0,3,4,0,0,0,0,
107,150,151,183,0,3,4,0,0,0,0,
CANA0120
X 108,150,183,182,0,3,4,0,0,0,0,
109,151,152,184,183,3,4,0,1,1,0, CANA0121
X 115,182,183,217,216,3,1,0,1,1,0,122,216,217,238,237,3,8,0,1,1,0, CANA0122
X 129,80,81,94,93,3,2,0,1,1,0,
132,93,94,100,99,3,2,0,1,1,0,
CANA0123
X 135,99,100,106,105,3,3,0,1,1,0, 138,105,106,112,111,3,3,0,1,1,0, CANA0124
X 141,111,112,148,117,3,4,0,0,0,0,142,112,113,149,148,3,4,0,1,1,0, CANA0125
X 144,117,148,147,120,3,4. 0, 0, 0, 0,145, 148,149,181,141, 3, 4, 0,0, 0, 0, CANA0126
X 146,149,150,182,181,3,4,0,0,0,0,141,200,196,197,201,3,5,0,0,0,0, CANA0127
X 148,196,192,193,197,3,5,0,0,0,0,149,192,169,170,193,3,5,0,0,0,0, CANA0128
X 150,169,166,111,170,3,5,0,0,0,0,151,166,163,172,171,3,5,0,0,0,0, CANA0129
X 152,163,160,113,172,3,5,0,0,0,0,153,160,140,174,173,3,5,0,0,0,0, CANA0130
X 154,140,141,115,114,3,5,0,1,1,0,158,144,145,146,178,3,5,0,0,0,0 ICANA0131
X
6.0,60.0,0.0,
1.0,75.0,0.0,
X
6.0,75.0,0.0,
X
1.0,90.0,0.0,
X
6.0,90.0,0.0,
X
0.0,127.0,0.0,
X
2*0.0,1.26,
X
0.0,223.0,0.0 ,
X
0.0,244.0,1.0,
X
2*198.0,0.0,
X
2*194.0,0.0,
X
2*190.0,0.0,
DATA XYAND2/ 2*167.0,0.0,
X
2*164.0,0.0,
X
2*161.0,0.0,
X
2*158.0,0.0,
X
2*138.0,0.0,
X
2*136.0,0.0,
X
2*134.0,0.0,
X
2*0.0,1.0,
X
3*0.0,
X
3*0.0,
X
3*0.0,
X
3*0.0,
X
3*0.0,
X
3*0.0,
X
3*0.0,
X
3*0.0,
X
3*0.0,
DATA XYANDA I 3*0 .0 ,
X
3*0.0,
X
3*0.0,
DATA LNODI I
X 1,194,198,0,0,1,1,0,0,0,0,
X 3,167,190,0,0,3,1,0,0,0,0,
X 5,161,164,0,0,5, I, 0, 0, 0, 0,
X 7,138,158,0,0,7,1,0,0,0,0,
X 9,134,136,0,0,9,1,0,0, 0, 0,
XII, 130, 132, 0, 0, 11, 1, 0, 0, 0, 0,
X
tv
8.0,60.0,1.0,
4.0,75.0,0.79,
8.0,75.0,1.0,
4.0,90.0,0.79,
8.0,90.0,0.0,
2*0.0,1.26,
0.0,189.0,0.0,
2*0 . 0,1.26,
2*0.0,1.26,
2*0.0,1.00,
2*0.0,1.00,
2*0.0,1.00,
2*0.0,1.00,
Z*0.O,1.00,
2*0 . 0,1. 00,
2*0.0,1.00,
2*0.0,1.00,
2*0 . 0,1.00,
2*0.0,1.00,
3*0.0,
2*132.0,0.0,
2*130.0,0.0,
2*128.0,0.0,
2*109.0,0.0,
2*115.0,0.0,
2*118.0,0.0,
2*103.0,0.0,
2*97.0,0.0,
2*91. 0, 0.0,
0.0,245.0,1.0,
0.0,266.0,1.0,
0.0,287.0,1. 0,
2*0.0,1.26,
5.0,15.0,0.0,
2*0.0,1.26,
5.0,90.0,0.0,
2*0.0,1.26,
0.0,157.0,0.0,
2*0.0,1.26,
1.0,244.0,0.0,
3*0.0,
3*0.0,
C
C
C
C
C
C
C
CANA0132
DATA LNOD3 I
X 159,145,120,147,146,3,5,0,0,0,0,160,201,197,203,202,3,6,0,0,0,0, CANA0133
X 161,191,193,204,203,3,6,0,0,0,0,162,193,110,205,204,3,6,0,0,0,0, CANA0134
X 163,170,111,206,205,3,6,0,1,1,0,170,171,118,119,212,3,6,0,0,0,0, CANA0135
X 171,118,146,180,179,3,6,0,0,0,0,172,146,141,181,180,3,6,0,0,0,0, CANA0136
X 113,202,203,225,224,3,7,0,1,1,0,182,211,212,213,233,3,7,0,0,0,0, CANA0137
X 183,212,119,214,213,3,7,0,0,0,0,184,179,180,215,214,3,1,0,0,0,0, CANA0138
CANA0139
X 185,180,181,182,215,3,7,0,0,0,0,186,182,216,215,0,3,1,0,0,0,0,
X 187,213,234,233,0,3,8,0,0,0,0,
188,213,214,235,234,3,8,0,1,1,0 lCANA0140
CANA0141
DATA LNOD4 I
CANA0142
192,194,196,195,0,2,5,1,0,0,0,
X 191,198,200,199,0,1,5,1,0,0,0,
CANAOI43
194,167,169,168,0,4,5,1,0,0,0,
X 193,190,192,191,0,3,5,1,0,0,0,
CANA0144
196,161,163,162,0,6,5,1,0,0,0,
X 195,164,166,165,0,5,5,1,0,0,0,
CANA0145
198,138,140,139,0,8,5,1,0,0,0,
X 197,158,160,159,0,7,5,1,0,0,0,
CANA0146
200,134,142,135,0,10,5,1,0,0,0,
X 199,136,141,137,0,9,5,1,0,0,0,
CANA0147
X 201,132,143,133,0,11,5,1,0,0,0, 202,130,144,131,0,12,5,1,0,0,0,
CANA0148
X 203,128,145,129,0,13,5,1,0,0,0, 204,118,120,119,0,14,4,1,0,0,0,
CANA0149
206,109,111,110,0,16,3,1,0,0,0,
X 205,115,117,116,0,15,4,1,0,0,0,
CANA0150
X 207,103,105,104,0,17,3,1,0,0,0, 208,97,99,98,0,18,2,1, 0, 0, 0,
CANA0151
X 209,91,93,92,0,19,2,1,0,0,0 I
CANA0152
DATA LNODA I
CANA0153
X 191,224,225,246,245,3,9,0,1,1,0,
CANA0154
X 211,245,246,267,266,3;10,0,1,1,0,
CANA0155
X 231,266,267,288,287,3,11,0,1,1,0 I
DATA NODBC1 I 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,30,45,60,75,90, CANA0156
X
121,157,189,223,224,202,201,200,199,198,76,61,46,31,16 I CANA0157
CANA0158
DATA NODBCA I 245,265,266,286,281,307 I
CANA0159
CANA0160
INITIALIZE VARIABLES
CANA0161
CANA0162
DO I,J=I,3
CANA0163
R(J) = 0.0
CANA0164
THETA(J) = 0.0
CANA0165
CHORD(J) = 0.0
CANA0166
ARCLEN(J) = 0.0
CANA0167
XCEN(J) = 0.0
CANA0168
YCEN(J) = 0.0
CANA0169
DELTA(J) - 0.0
CANA0170
DO 2,J-l,20
CANAOI71
ANG(J) = 0.0
CANAOl72
0.0
XPN(J)
CANA0173
YPN(J) - 0.0
2
CANA0114
DO 3,J=1,301
CANA0175
X(J) = 0.0
CANA0176
)
Y(J) = 0.0
CANA0177
HPRESS = 0
CANA0178
INCADD = 0
CANA0l79
PINC = 0
CANA0180
XDIV - 0
CANA0181
YDIV = 0
CANA0182
CANA0183
READ DATA CARDS THAT SPECIFY THE CANNED MESH
CANA0184
CANA0185
READ(5,1000) WORD,TITLE,WORDI
CANA0186
READ(5,1005) IPLOT, IWRT,MGENPR,NINC,HTCOVR,DENSTY,TRNDEP,TRNWID,
CANA0187
X
TRNSLP
CANAD188
READ(5,1010) RISE,HFSPAN,SDRISE,FTDEP,FTWIDO,FTWIDI,SPCFAC
CANA0189
READ(5,1020) (R(J),THETA(J),J=I,3),THETA(4),NTN,NCN
CANA0190
CANA0191
CONVERT INPUT TO PROPER UNITS
CANA0192
CANA0193
HTCOVR = HTCOVR*12
CANA0194
TRNDEP
TRNDEP*12
TRNWID
C
C
C
......
w
w
TRNWID*12
CANA019S
CANA0196
CANAOI9?
CANA0198
CANA0199
CANA0200
CANA0201
CANA0202
CANA0203
CANA0204
CANA020S
CANA0206
CANA0201
CANA020B
CANA0209
CANA021 0
CANA0211
CANA0212
CANA0213
CANA0214
CANA0215
CANA0216
CANA0211
CANA0218
CANA0219
CANA022 0
CANA0221
CANA0222
CANA0223
CANA0224
CANA0225
CANA0226
CANA0227
CANA022B
CANA0229
CANA0230
CANA0231
CANA0232
CANA0233
CANA0234
CANA0235
CANA0236
CANA0237
CANA0238
CANA0239
CANA024 0
CANA0241
CANA0242
CANA0243
CANA0244
CANA0245
CANA0246
CANA0247
CANA0248
CANA0249
CANA0250
CANA02S1
CANA02S2
CANA02S3
CANA02S4
CANA025S
CANA02S6
CANA02S1
KPUTCK = KPUTCK + 1
END IF
END IF
IF(FTWIDI.LT.O . l*HFSPAN .OR . FTWIDI . GT.O.S*HFSPAN) THEN
WRITE(6,2035)
KPUTCK = KPUTCK + 1
END IF
IF(FTDEP.LT.O.OS*RISE .OR . FTDEP.GT.O.3*RISE) THEN
WRITE(6,2040)
KPUTCK = KPUTCK + 1
END IF
IF(SPCFAC.LT.O.O .OR. SPCFAC.GT.1.3) THEN
WRITE(6,2042)
KPUTCK = KPUTCK +
END IF
IF(SDRISE.GT.O . O) THEN
IF(NTN.GT.17 .OR. NTN.LT.O) THEN
WRITE(6,2045)
KPUTCK - KPUTCK + 1
END IF
IF(NCN.GT . 1B .OR. NCN.LT.O) THEN
WRITE(6,20S0)
KPUTCK = KPUTCK + 1
END IF
ELSE
IF(NTN . GT . IB .OR. NTN.LT.O) THEN
WRITE(6,204S)
KPUTCK = KPUTCK + 1
END IF
IF(NCN.GT.19 .OR. NCN.LT.O) THEN
WRITE(6,20S0)
KPUTCK = KPUTCK + 1
END IF
END IF
C
C
C
CANA02SB
CANA02S9
CANA026 0
CANA0261
CANA0262
CANA0263
CANA0264
CANA0265
CANA0266
CANA0261
CANA026B
CANA0269
CANA027 0
CANA0271
CANA0272
CANA0213
CANA0274
CANA0275
CANA0276
CANA0277
CANA0218
CANA0279
CANA02BO
CANA0281
CANA0282
CANA02B3
CANA02B4
CANA028S
CANA02B6
CANA02B7
CANA02BB
CANA02B9
CANA0290
CANA0291
CANA0292
CANA0293
CANA0294
CANA029S
CANA0296
CANA0297
CANA029B
CANA0299
CANA0300
CANA0301
CANA0302
CANA0303
CANA0304
CANA0305
CANA0306
CANA0307
CANA030B
CANA0309
CANA0310
CANA0311
CANA0312
CANA0313
CANA0314
CANA031 5
CANA0316
CANA0317
CANA031B
CANA0319
CANA0320
NUMEL = 249
NEPTC - 39
END IF
IF(HTCOVR.GT . 1 . 0*RISE) THEN
JNMODA = 9
JXYA = 9
JLNODA = 3
JBCA = 6
KeOVER = 3
INCLEV = 11
NUMNP = 301
NUMEL = 269
NBPTC = 41
END IF
C
C
C
10
20
25
......
30
40
45
50
60
70
15
76
17
80
85
86
CANA032 1
CANA0322
CANA0323
CANA0324
CANA0325
CANA0326
CANA0327
CANA0328
CANA0329
CANA0330
CANA0331
CANA0332
CANA0333
CANA0334
CANA0335
CANA0336
CANA0337
CANA0338
CANA0339
CANA034 0
CANA0341
CANA0342
CANA0343
CANA0344
CANA034 5
CANA0346
CANA0347
CANA0348
CANA0349
CANA0350
CANA0351
CANA03S2
CANA0353
CANA03S4
CANA03SS
CANA03S6
CANA03S7
CANA0358
CANA0359
CANA0360
CANA0361
CANA0362
CANA0363
CANA0364
CANA0365
CANA0366
CANA0367
CANA0368
CANA0369
CANA0370
CANA0371
CANA0312
CANA0373
CANA0374
CANA0375
CANA0376
CANA0377
CANA0378
CANA0379
CANA038 0
CANA0381
CANA0382
CANA0383
CANA0384
CANA0385
CANA0386
CANA0387
CANA03BB
CANA03B9
CANA039 0
CANA0391
CANA0392
CANA0393
CANA0394
CANA0395
CANA0396
CANA0397
CANA0398
CANA0399
CANA0400
CANA0401
CANA0402
CANA0403
DO 120,J=1,4
THETA(J) = THETA(J)*PI/180
DO 150,J=1,3
IF(ABS(R(J) .GT . O.O) THEN
CHORD(J) = 2*ABS(R(J*SIN(THETA(J)/2)
ARCLEN(J) = ABS(R(J*THETA(J)
ELSE
THETA(J)
DELTA(J)
THETA(J)
0.0
END IF
150 CONTINUE
120
C
C
Xl
Y1
0.0
RISE
C
C
IF(SDRISE.EQ.O . O) THEN
X3 = HFSPAN
Y3 - 0.0
GO TO 180
C
C
C
CANA040B
CANA0409
CANA04l0
CANA0411
CANA04l2
CANA0413
CANA0414
CANA0415
CANA0416
CANA04l7
CANA04lB
CANA0419
CANA042 0
CANA0421
CANA0422
CANA0423
CANA0424
CANA0425
CANA0426
CANA0427
CANA042B
CANA0429
CANA043 0
CANA001
CANA002
CANAO03
CANA004
CANA005
CANAO06
CANA007
CANA0438
CANA009
CANA044 0
CANA0441
CANA0442
CANA0443
CANA0444
CANA0445
CANA0446
X3 = X4 + Y3*TAN(PI/2-DELTA(3
CHORD(3) = SQRTX3-X4)'*2+(Y3-Y4)'*2)
ENDIF
ENDIF
C
C
C
.....
W
VI
C
C
(CHORD(1)"2+SIDEI3**2-CHORD(2) **2)1
(2*CHORD{1)*SIDEI3)
(CHORD(2)'*2+SIDEI3**2-CHORD(I) **2)1
(2*CHORD{2)*SIDE13)
CKLIM ~ COS(PI/2-Bl)
IF(CKANGl.GE.l.O .OR. CKANGl.LT.CKLIM) GO TO 600
Al = ACOS(CKANGl)
IF(CKANG3.GE.l.0 .OR. CKANG3.LT.0.0) GO TO 600
A3 - ACOS(cKANG3)
CKANGI
CKANG3
A2
n-hl-~
END IF
X2 = X3 - CHORD(2)*COS(B3+A3)
Y2 = Y3 + CHORD(2)'SIN(B3+A3)
C
C
C
CANA04 47
CANA04 46
CANA04 4 9
CANA0450
CANA0451
CANA0452
CANA0453
CANA0454
CANA0455
CANA0456
CANA0457
CANA0458
CANA0459
CANA0460
CANAO 46 1
CANA0462
CANA0463
CANA0464
CANA046S
CANA0466
CANA0467
CANA0468
CANA0469
CANA047 0
CANA047 1
CANA0472
CANA0473
CANA0474
CANA047S
CANA0476
CANA0477
CANA0478
CANA0479
CANA0480
CANA0481
CANA04B2
CANA0463
CANA0484
CANA04B5
CANA0486
CANA0467
CANA0466
CANA0469
CANA0490
CANA049l
CANA0492
CANA0493
CANA0494
CANA049S
CANA0496
CANA0497
CANA049B
CANA0499
CANAOSOO
CANA050l
CANAOS02
CANA0503
CANA0504
CANAOSOS
CANA0506
CANAOS07
CANAOS06
CANAOS09
END IF
IF(ARCLEN(2)
XCEN(2)
YCEN(2)
END IF
IF(ARCLEN(3)
XCEN(3)
YCEN(3)
END IF
C
C
C
. GT.O.O) THEN
- X3 + ABS(R(2*COS(-A3-B3-THETA{2)12-PI/2)
= Y3 + ABS(R(2*SIN(-A3-B3-THETA(2)/2-PI/2)
.GT.O . O) THEN
~ X4 - R(3)*COS(THETA(4
= Y4 - R(3)*SIN(THETA(4
C
C
ANG (I)
PI/2
XPN(l)
Xl
YPN(l)
Y1
IF (ARCLEN (1) .EQ.O.O) THEN
DO 200,J=2,NTN
ANG(J)
DELTA(l) + PI/2
XPN(J)
Xl T CHORD(l)*COS(DELTA(l*(J-l)/NTN-l
YPN(J)
Yl + CHORD(l)'SIN(DELTA(l'(J-l)/NTN-l
200
CONTINUE
C
C
CANAOSlO
CANA0511
CANAOS12
CANA0513
CANA0514
CANA0515
CANA0516
CANA0517
CANA051B
CANAOS19
CANAOS20
CANA0521
CANA0522
CANA0523
CANA0524
CANA0525
CANA0526
CANA0527
CANA0526
CANA0529
CANA0530
CANA053 1
CANA0532
CANA0533
CANA0534
CANA0535
CANA0536
CANA0537
CANA0538
CANA0539
CANA054 0
CANA054 1
CANA0542
CANA0543
CANA0544
CANA054 5
CANA0546
CANA0547
CANA0548
CANA0549
CANA055 0
CANA055l
CANA0552
CANA0553
CANA0554
CANA0555
CANA0556
CANA0557
CANA0556
CANA0559
CANA056 0
CANA056l
CANA0562
CANA0563
CANA0564
CANA0565
CANA0566
CANA0567
CANA0568
CANA0569
CANA057 0
CANA0571
CANA0572
CANAOS73
CANA0574
CANA057 5
C
CANAOS76
C
fIND BEAM COORDINATES - CURVED CORNER SEGMENT
CANAOS77
C
CANA0578
ELSE If(ARCLEN(2) .GT.O.O) THEN
CANAOS79
DO 230,J=NTN+l,NCN
CANA058 0
ANG(J) = ATAN(ABSY2-YCEN(2)}/(X2-XCEN(2)) CANAOS81
X
THETA(2)* (J-NTN)/(NCN-NTN)
CANA0582
XPN(J) = XCEN(2) + ABS(R(2*COS(ANG(J
CANA0583
YPN(J) = YCEN(2) + ABS(R(2)*SIN(ANG(J
CANAOS84
230
CONTINUE
CANAOS8S
END IF
CANAOS86
C
CANAOS87
C
fIND BEAM COORDINATES - STRAIGHT SIDE SEGMENT
CANA0588
C
CANA0589
IF(ARCLEN(3) . EQ.O.O .AND. SDRISE.GT.O.O) THEN
CANAOS90
DO 240,J=NCN+1,NSN
CANA0591
ANG(J) - DELTA(3) - PI / 2
CANA0592
XPN(J)
X3 - CHORD (3) 'COS(DELTA(3*(J-NCN)/
CANA0593
X
(NSN-NCN+1)
CANA0594
YPN(J)
Y3 - CHORD(3)*SIN(DELTA(3*(J-NCN)/
CANAOS9S
X
(NSN-NCN+1)
CANAOS96
240
CONTINUE
CANAOS97
C
CANAOS98
C
FIND BEAM COORDINATES - CURVED SIDE SEGMENT
CANAOS99
C
CANA0600
ELSE If(ARCLEN(3) .GT.O . O . AND. SDRISE.GT . O. O) THEN
CANA0601
DO 250,J=NCN+1,NSN
CANA0602
ANG(J) = ATAN(ABSY3-YCEN(3))/(X3-XCEN(3)))) CANA0603
X
THETA(3) * (J-NCN)/(NSN-NCN+1)
CANA0604
XPN(J)
XCEN(3) + ABS(R(3)'COS(ANG(J
CANA060S
YPN(J)
YCEN(3) + ABS(R(3) 'SIN(ANG(J
CANA0606
250
CONTINUE
CANA0607
END IF
CANA0608
C
c .. .. END SOLUTION OF BEAM ELEMENT GEOMETRY *CANA0609
CANA0610
C
CANA0611
ASSIGN COORDINATES TO KEY NODAL POINTS
C
CANA0612
C
CANA0613
300 X(198) - XPN(I)
CANA0614
Y(198) - YPN(I)
CANA0615
XPN(2)
X(194 )
CANA0616
Y(194) - YPN(2)
CANA0617
XPN(3)
X(190)
CANA0618
YPN(3)
Y(190)
CANA0619
XPN(4)
X (167)
CANA0620
Y(167) - YPN(4)
CANA0621
X (164) ~ XPN(S)
CANA0622
YPN(5)
Y(164)
CANA0623
X (161) c XPN(6)
CANA0624
YPN(6)
Y(161}
CANA062S
XPN(7)
X( 158)
CANA0626
YPN(7)
Y(1S8)
CANA0627
XPN(8)
X(138)
CANA0628
YPN(8)
Y(138)
CANA0629
X(136) ~ XPN(9)
CANA0630
YPN(9)
Y(136)
CANA0631
XPN(10)
X(134)
CANA0632
Y(134) - YPN(10)
CANA0633
X(132) - XPN(ll)
CANA0634
YPN(ll )
Y(132)
CANA0635
XPN(12}
X(130)
0\
YPN(12)
Y(130)
X(128)
XPN(13)
YPN(13)
Y(128)
X(118)
XPN(14)
Y(118) c YPN(l4)
X(115) = XPN(15)
Y(l1S)
YPN (15)
X(109)
XPN(16)
Y(109) - YPN(16)
XPN(17)
X(l03)
Y(103) ~ YPN(17)
X(97) - XPN(18)
Y(97) - YPN(18)
X(91) - XPN(19)
YPN (19)
Y(91)
(NCN-NTN+1)
220
CONTINUE
C
X(1S) - 6*HFSPAN
X (8) - HFSPAN + HFSPAN/ 4 + RISE/4
X(6) = HFSPAN + FTWIDO
XIS) - HFSPAN
HFSPAN - FTWIDI
X(4)
0.0
X(l)
yell - - l.S*RISE
Y(7S) - -FTDEP
Y(90) - 0.0
X(237) - X(8)
X(8)
X(2S8)
X(279)
X(8)
X(8)
X(300)
XINC - (X(lS)-X(B))/(1+1.26+1.26**2+1 . 26**3+1 . 26**4+1.26**S+
1.26**6)
X
X(8) + XINC
X(121)
X(1S1) - X(l21)
X(183) c X(121)
X(217) ~ X(121)
C
IF(KCOVER.EQ.O) Y(244) - RISE + HTCOVR
IF(KCOVER.EQ.1) THEN
YINC - HTCOVR/(l + SPF + SPF**Z + SPF**3)
Y(244) = RISE + YINC + SPF*YINC + (SPF**2)*YINC
Y(24S) = RISE + HTCOVR
ELSE IF(KCOVER.EQ.Z) THEN
YINC = HTCOVR/(1 + SPF + SPF**2 + SPF**3 + SPF**4)
Y(244)
RISE + YINC + SPF*YINC + (SPF**Z)*YINC
Y(24S) = Y(244) + (SPF**3)*YINC
Y(266) = RISE + HTCOVR
ELSE IF(KCOVER.EQ.3) THEN
IF(HTCOVR.GT.l.S*RISE) THEN
YINC ~ 1.S*RISE/(1+SPF+SPF*2+SPF**3+SPF**4+SPF**S)
Y(244)
RISE + YINC + SPF*YINC + (SPF**2)*YINC
Y(24S) - Y(244) + (SPF'*3)*YINC
Y(266) c Y(245) + (SPF"4)*YINC
Y(287)
RISE + 1.S'RISE
HPRESS
HTCOVR - 1.S*RISE
INCADD
NINC - INCLEV
IF(INCADD.LE.O) INCADD = -1
NBPTC = NBPTC + IABS(INCADD)*21
PINC = -(HPRESS*DENSTY)/(1728*IABS(INCADD)
ELSE
HTCOVR/ (1+SPF+SPF**2+SPF**3+SPF**4+SPF**S)
YINC
RISE + YINC + SPF*YINC + (SPF**2)*YINC
Y(244)
Y(244) + (SPF*'3)*YINC
Y(24S)
Y(24S) + (SPF**4)*YINC
Y(266)
CANA0636
CANA0637
CANA063B
CANA0639
CANA0640
CANA0641
CANA0642
CANA0643
CANA0644
CANA0645
CANA0646
CANA0647
CANA0648
CANA0649
CANA06S0
CANA0651
CANA0652
CANA06S3
CANA06S4
CANA06SS
CANA06S6
CANA06S7
CANA06S8
CANA06S9
CANA0660
CANA0661
CANA0662
CANA0663
CANA0664
CANA066S
CANA0666
CANA0667
CANA0668
CANA0669
CANA0670
CANA0671
CANA0672
CANA0673
CANA0674
CANA067S
CANA0676
CANA0677
CANA0678
CANA0679
CANA068 0
CANA0681
CANA0682
CANA0683
CANA0684
CANA068S
CANA0686
CANA0687
CANA0688
CANA0689
CANA0690
CANA0691
CANA069Z
CANA0693
CANA0694
CANA069S
CANA0696
CANA0697
CANA069B
Y(287)
END IF
RISE + HTCOVR
END IF
C
C
C
VJ
-...J
CANA0699
CANA0700
CANA0701
CANA070Z
CANA0703
CANA0704
CANA0705
CANA0706
CANA0707
CANA0708
CANA0709
CANA07l0
CANA0711
CANA07lZ
CANA0713
CANA07l4
CANA071S
CANA07l6
CANA07l7
CANA071B
CANA07l9
CANAO 72 0
CANA0721
CANA0722
CANA0723
CANA0724
CANA072S
CANA0726
CANA0727
CANA0728
CANA0729
CANA0730
CANA0731
CANA0732
CANA0733
CANA0734
CANA073S
CANA0736
CANA0737
CANA0738
CANA0739
CANAOHO
CANA0741
CANA0742
CANAOH3
CANA0744
CANA074S
CANA0746
CANAOH7
CANA0748
CANA0749
CANA0750
CANA0751
CANA0752
CANA0753
CANA0754
CANA0755
CANA07S6
CANA0757
CANA075B
CANA0759
CANA0760
CANA0761
ELSE
DO 360,I=9Z,93
LNOD (6, I)
1
360
LNOD(7,I) = 1
TRNDEP
Y(266)
X(2S8) = X(Z37) + TRNSLP*(Y(245)-Y(244
X(279) = X(258) + TRNSLP*(Y(266)-Y(245
END IF
ELSE If(KCOVER.EQ.3) THEN
If(TRNDEP.LE.Y(244 THEN
X(2SB)
X(237)
X(Z79) ~ X(237)
X(300) ~ X(237)
ELSE IF(TRNDEP.GT.Y(Z44) .AND. TRNDEP.LE.Y(24S THEN
LNOD(6,92) = 1
LNOD(7,9Z) = 1
TRNDEP
Y(Z4S)
X(258) = X(237) + TRNSLP*(Y(24S)-Y(Z44
X(Z79)
X(2S8)
X(300)
X(2S8)
ELSE IF(TRNDEP.GT.Y(24S) .AND. TRNDEP.LE.Y(266 THEN
DO 370,1=92,93
LNOD(6, I) =
370
LNOD(7,I) =
TRNDEP
Y(266)
X(2SB)
X(237) + TRNSLP*(Y(Z4S)-Y(Z44
X(279)
X(2SB) + TRNSLP*(Y(Z66)-Y(245
X(300)
X(Z79)
ELSE
DO 3BO,I~92,94
LNOD(6,I) - 1
380
LNOD(7, I)
1
TRNDEP
Y(287)
X(258)
X(Z37) + TRNSLP*(Y(245)-Y(Z44
X(279)
X(258) + TRNSLP' (Y(266)-Y(245
X(300)
X(279) + TRNSLP*(Y(287)-Y(Z66
END IF
END IF
C
C
CANA0762
CANA0763
CANA0764
CANA0765
CANA0766
CANA0767
CANA0768
CANA0769
CANAOnO
CANA0771
CANA0772
CANA0773
CANA0774
CANA0775
CANA0776
CANA0777
CANA0778
CANA0779
CANA0780
CANA0781
CANA0782
CANA0783
CANA0784
CANA078S
CANA0786
CANA0787
CANA07BB
CANA07B9
CANA0790
CANA0791
CANA0792
CANA0793
CANA0794
CANA0795
CANA0796
CANA0797
CANA0798
CANA0799
CANA0800
CANA0801
CANA0802
CANA0803
CANA0604
CANA0805
CANA0806
CANA0807
CANA0808
CANAOe09
..l.N
00
CANA0825
CANA0826
CANA0827
CANA0828
CANA0829
CANA0830
CANA0831
CANAOB32
450
CANA0833
C
CANA0834
C
SAVE DATA FOR MAIN CONTROL CARDS
CANA0835
C
CANAOB36
500 WRITEILUDATA,6105) PREP,TITLE,WORDl,NINC,MGENPR,NPUTCK,IPLOT,IWRT CANA0837
1
,NUMNP,NUMEL,NBPTC
CANAOB3B
C
CANA0839
SAVE DATA NEEDED FOR NODE GENERATION
C
CANAOB40
C
CANA084 1
LIMIT = IBLANK
CANA0842
K=0
CANA0843
DO 520,N = 1,162+JNMODA
CANAOB44
NNP - NODMOD(l,N)
CANA0845
SPACNG = 0.0
CANA0846
XCOORD = X INNP)
CANA0847
YCOORD = Y(NNP)
CANAOB4B
IF (NODMOD(2,N) .EQ. 5) GO TO 510
CANAOB49
IF (K .LT. 111+JXYA) K = K + 1
CANA0850
IF (XYANDS(l,K) .NE. 0.0) XCOORD = XYANDS(l,K)
CANA0851
IF (XYANDSI2,K) .NE. 0.0) YCOORD = XYANDSI2,K)
CANA0852
IF IXYANOS(3,K) .NE. 0.0) SPACNG = XYANDS(3,K)
CANA0853
510 IF (N.EQ. 162+JNMODA) LIMIT = LIH
CANAOB54
520 WRITE (LUDATA,6l10) LIMIT, NNP, NODMOD(2,N), XCOORD, YCOORD,
CANA0855
1
IZERO, SPACNG, FZERO
CANAOB56
CANAOB57
C
C
SAVE DATA NEEDED FOR ELEMENT GENERATION
CANAOB58
C
CANA0859
CANA0860
LIMIT = IBLANK
DO 530,NE = 1,91+JLNODA
CANA0861
INCR - LNODI7,NE)
CANAOB62
IF(INCR . GT.NINC) INCR = NINC
CANA0863
IF (NE.EQ.91+JLNODA) LIMIT = L1H
CANA0864
530 WRITE (LUDATA,6115) LIMIT, (LNOD(K,NE), K
1,6),INCR,
CANA0865
X
(LNOD(K,NE),K=8,11)
CANA0866
CANA0867
C
C
SAVE DATA NEEDED FOR INPUT OF DISPLACEMENT BOUNDARY CONDITIONS
CANA0868
C
CANA0869
CANA0870
K = roNE
CANA0871
L = roNE
CANA0872
LIMIT = IBLANK
CANA0873
DO 540,N = 1,35+JBCA
IF (N .GT. 15) THEN
CANA0874
CANA0875
K - lONE
CANA0876
L - IZERO
END IF
CANA0877
IF IN.EQ.29) THEN
CANA0878
CANA0879
K = IZERO
L = lONE
CANA08BO
END IF
CANA088 1
IF (N.EQ.35+JBCA .AND. HPRESS.EQ.O) LIMIT = LIH
CANA0882
CANA0883
540 WRITE ILUDATA,6120) LIMIT, NODBC(N), K, FZERO, L, FZERO, FZERO,
1
lONE, IZERO, IZERO, FZERO, FZERO
CANA0884
CANA0885
C
C
SAVE DATA NEEDED FOR OVERBURDEN PRESSURE BOUNDARY FORCES
CANA0886
CANAOB87
C
IF(HPRESS.GT.O) THEN
LIMIT = IBLANK
DO 550, N=l,IABS(INCADD)
IFIN.EQ.IABSIINCADD)) LIMIT
LIH
IF(INCADD.GT.O) THEN
IADD = NINC - INCADD + N
ELSE
IADD
NINC + INCADD + N
END IF
550
WRITE (LUDATA,6120) LIMIT,287,IZERO, FZERO, IZERO, FZERO,
X
FZERO,IADD,307,IONE,PINC,PINC
END IF
REWIND LUDATA
RETURN
CANA0888
CANA0889
CANAOB90
CANA089 1
CANA0892
CANAOB93
CANAOB94
CANAOB95
CANA0896
CANA0897
CANAOB9B
CANAOB99
CANA0900
CANA0901
C
CANA0902
C
ERROR EXIT
CANA0903
C
CANA0904
600 STOP ""FATAL ERROR IN ARCH GEOMETRY - CHECK INPUT""
CANA0905
C
CANA0906
C
FORMATS
CANA0907
C
CANA090B
1000 FORMAT IA4, 17A4 ,A3)
CANA0909
1005 FORMAT (4I5,5FlO.0)
CANA0910
1010 FORMAT (7FlO.0)
CANA0911
1020 FORMAT (7FlO.0,2I5)
CANA09l2
2000 FORMAT (lHO,22H"'FATAL DATA ERROR"'/1H ,74HTHE CONTROL WORD FOR CANA0913
XMESH TYPE MUST BE "EMBA" , "TREN", OR "HOMO", BUT IS ',A4,lH'/1H
CANA0914
X17HISEE USER MANUAL) I)
CANA0915
2003 FORMAT (lHO,22H*'*FATAL DATA ERROR"'/1H ,34HCONTROL WORD1 MUST BECANA0916
X MOD OR BLANK/1H ,17H (SEE USER MANUAL) /)
CANA0917
2005 FORMAT (lHO,22H"'FATAL DATA ERROR"'/IH ,72HNUMBER OF CONSTRUCTIOCANA09lB
XN INCREMENTS "NINC" MUST BE WITHIN ALLOWABLE LIMITS/IH ,17H(SEE USCANA0919
XER MANUAL) I)
CANA0920
2010 FORMAT (IHO,34HSPECIFIED COVER HEIGHT TO SHALLOW./IHO,34HPROGRAM WCANA0921
XILL SET HTCOVR = O.I'RISE/)
CANA0922
2011 FORMAT (lHO,22H"'FATAL DATA ERROR"'/IH ,24HINVALID ENTRY FOR "RlCANA0923
XSE"I)
CANA0924
2012 FORMAT (lHO,22H*"FATAL DATA ERROR"'/IH ,26HINVALID ENTRY FOR "HFCANA0925
XSPAN"/)
CANA0926
2013 FORMAT (IHO,22H*'*FATAL DATA ERROR"'/IH ,26HINVALID ENTRY FOR "SDCANA0927
XRISE"/)
CANA092B
2014 FORMAT (lHO,22H*'*FATAL DATA ERROR"'/IH ,3lHINVALID ENTRY FOR RADCANA0929
XIU5 "R(I)"I)
CANA0930
2015 FORMAT (lHO,22H"'FATAL DATA ERROR'**/IH ,52HTRENCH WIDTH "TRNWID"CANA0931
XMUST BE WITHIN ALLOWABLE LIMITS/IH ,17H(SEE USER MANUAL) I)
CANA0932
2020 FORMAT (lHO,22H"'FATAL DATA ERROR-"/IH ,52HTRENCH DEPTH "TRNDEP"CANA0933
XMUST BE WITHIN ALLOWABLE LIMITS/IH ,17H(SEE USER MANUAL) I)
CANA0934
2025 FORMAT (lHO,22H"'FATAL DATA ERROR"'/IH ,52HTRENCH SLOPE "TRNSLP"CANA0935
XMUST BE WITHIN ALLOWABLE LIMITS/IH ,17H (SEE USER MANUAL) /)
CANA0936
2030 FORMAT (lHO,22H"'FATAL DATA ERROR"'/lH ,62HOUTSIDE FOOTING WIDTHCANA0937
X "FTWIDO" MUST BE WITHIN ALLOWABLE LIMITS/IH ,17H(5EE USER MANUAL)CANA093B
XI)
CANA0939
2035 FORMAT (lHO,22H"'FATAL DATA ERROR"'/lH ,61HINSIDE FOOTING WIDTH CANA0940
X"FTWIDI" MUST BE WITHIN ALLOWABLE LIMITS/IH ,17H(SEE USER MANUAL)/CANA0941
X)
CANA0942
2040 FORMAT (lHO,22H"'FATAL DATA ERROR"'/IH ,53HFOOTING DEPTH "FTDEP"CANA0943
X MUST BE WITHIN ALLOWABLE LIMITS/1H ,17HISEE USER MANUAL)/)
CANA0944
2042 FORMAT (lHO,22H"'FATAL DATA ERROR"'/lH ,55HSPACING FACTOR "SPCFACANA0945
XC" MUST BE WITHIN ALLOWABLE LIMITS/1H ,17H(SEE USER MANUAL)/)
CANA0946
2045 FORMAT (lHO,22H"'FATAL DATA ERROR"'/lH ,72HNUMBER OF TOP SEGMENTCANA0947
X NODAL POINTS "NTN" MUST BE WITHIN ALLOWABLE LIMITS/IH ,17H(SEE USCANA0948
XER MANUAL)/)
CANA0949
2050 FORMAT IlHO,22H"'FATAL DATA ERROR"'/lH ,75HNUMBER OF CORNER SEGMCANA0950
......
W
ID
C
C
C
C
C
C
10
20
------------------------------.F8.21
C
C
C
C
C
C
30
70
SO
CANB0079
CANB0080
CANB0081
X(I)~X(I-1)+DX
CANB0082
DX-DX+O . 2 *R1
CANB0083
IF(DX.GT.R1)DX~R1
CANB0084
IF(XTR.GT.X(I)) NTR~I
CANB0085
CONTINUE
CANB0086
TRELIM-4.49*R1
CANB0087
IF(XTR.GT.TRELIM) NMOVE~NX2
CANB0088
CANB0089
NMOVE~NX2 IMPLIES EMBANKMENT CONDITION
CANB0090
CANB0091
IF(XTR.GT.TRELIM) GO TO 50
CANB0092
CANB0093
ADJUST TRENCH WALL LOCATION
CANB0094
MOVE CLOSEST LINE TO COINCIDE WITH TRENCH LINE LOCATION
CANB0095
CANB0096
NMOVE~NTR
CANB0097
IF(ABS(XTR-X(NTR)) .GE. ABS(XTR-X(NTR+1))) NMOVE~NTR+1
CANB0098
X(NMOVE)~XTR
CANB0099
CONTINUE
CANB0100
CANB0101
SET MASTER COORDINATES FOR Y
CANB0102
NY1 ARE SPACED EVENLY ALONG VERTICAL WALL OF BOX
CANS0103
CANB0104
Y(6)--R2
CANB0105
DY~R2/3.0
CANB0106
DO 60 I~7, 12
CANB0107
Y(I)-Y(I-1)+DY
CANB0108
SET BOTTOM NODES IN Y-DIRECTION(TO BE ADJUSTED LATER FOR BDEPTH) CANB0109
CANB0110
Y(1)~-4.0'R2
CANB0111
DY~2.0*R2/3.0
CANBOl12
DO 90 I~2, 5
CANB0113
Y(I)~Y(I-1)+DY
CANBOl14
CANB0115
SET Y-CooRDINATES FOR TOP NODES UP TO SPECIFIED COVER HEIGHT
CANB0116
CANB0117
IF COVER HEIGHT IS GREATER THAN 4R2, TRUNCATE AT 4R2 AND APPLY
CANBOl18
REMAINING SOIL WITH EQUIVALENT PRESSURE LOAD IN BOUNDARY CONDITIONCANB0119
CANB0120
CANB0121
NHC~12
CANB0122
IF(HTCOVR.LT.O.O) GO TO 95
CANB0123
GO TO 96
CANB0124
WRITE(6,2070)HTCOVR
CANB0125
STOP
CANB0126
CANB0127
YCOVR~MAXlMUM Y COORDINATE
CANB0128
NHC~MAXIMUM NUMBER OF VERTICAL NODES IF HTCOVR.GE.4R2
CANB0129
IUP~STARTING VERTICAL NUMBER OF ROWS ON PIPE TOP,ASCENDING
CANB0130
IDN~STARTING VERTICAL NUMBER OF ROWS ON PIPE BOTTOM,DESCENDING
CANB0131
CANB0132
YCOVR~HTCOVR+R2
CANB0133
NHC-17
CANB0134
IUP~12
CANB0135
IDN~6
CANB0136
DO 100 I~1,5
CANB0137
Y(IUP+I)~-Y(IDN-I)
CANB0138
IF(Y(IUP+I) . GT.YCOVR) NHC~IUP+I
CANB0139
IF(Y(IUP+I) .GT.YCOVR) GO TO 110
CANB014 0
CONTINUE
CANB0141
GO TO 120
DX~O .2*R1
DC 40 I~6,NX2
40
C
C
C
C
C
C
C
50
C
C
C
C
......
60
C
C
C
90
C
C
C
C
C
C
95
C
C
C
C
C
C
96
100
C
C
110
115
120
C
C
C
C
C
C
140
130
C
C
C
C
C
C
C
C
C
C
C
C
150
C
C
C
C
C
CANB0142
CANBOl43
CANBOl44
CANB0145
DYTOP~(Y(NHC)-YCOVR)0.5
CANB0146
DYBOT~YCOVR-Y(NHC-1)
CANB0147
IF(NHC.LE.14) GO TO 115
CANB0148
IF(DYTOP.GT.DYBOT) NHC~NHC-1
CANB0149
Y(NHC)~YCOVR
CANB0150
GO TO 120
CANB01S1
NHC~14
CANB0152
Y(NHC)~YCOVR
CANB01S3
Y(NHC-1)~(Y(NHC)+Y(NHC-2))*0.5
CANB0154
CONTINUE
CANB0155
ADJUST BOTTOM Y-COORDINATE Y(5) TO BE LOCATED AT BOTTOM OF BEDDINGCANB01S6
CANB0157
IF(BDEPTH.LE.O.O) GO TO 140
CANB01S8
CANB0159
LIMITS FOR MAXIMUM AND MINIMUM BEDDING THICKNESS
CANB0160
CANB0161
BDEMIN~0.1*R2
CANB0162
BDEMAX~O. 667'R2
CANB0163
IF(BDEPTH.LT.BDEMIN) BDEPTH~BDEMIN
CANB0164
IF(BDEPTH.GT.BDEMAX) BDEPTH-BDEMAX
CANB016S
Y(5)~Y(6)-BDEPTH
CANB0166
GO TO 130
CANB0167
WRITE(6,2020)
CANB0168
CONTINUE
CANB0169
CANBO 17 0
COMPUTE THE NUMBER OF NODES,NUMBER OF ELEMENTS AND ESTIMATE
CANB0171
MAXIMUM NUMBER OF BOUNDARY CONDITIONS(FOR STORAGE SPACE ONLY)
CANB0172
CANSO 173
NUMNP-11*NHC-S*4
CANB0174
NUMEL=10*(NHC-1)-6*4+14
CANB017S
NBPTC-200
CANB0176
NPUTCK~O
CANB0177
NPMAT-14
CANB0178
CANB0179
WRITE MASTER CONTROL DATA TO UNIT LUDATA TO SIMULATE LEVEL 3 INPUTCANB0180
CANB0181
WRITE(LUDATA,2030)PREP,TITLE,WORD2,NINC,MGENPR,NPUTCK,IPLOT,IWRT, CANB0182
1 NUMNP. NUMEL, NBPTC
CANB0183
CANB0184
CANB0185
WRITE NODAL POINT DATA TO UNIT LUDATA FOR LEVEL 3 INPUT
CANB0186
CANB0187
LIMIT-IBLANK
CANB0188
NODE-O
CANB0189
CANB0190
VERTICAL NODE COUNTER
CANB0191
CANB0192
DO 150 J~l, NHC
CANB0193
ISTART~l
CANB0194
IF(J.GT.6 .AND. J.LT.12) ISTART~5
CANB0195
DO 150 I~ISTART, 11
CANB0196
NODE-NODE+1
CANB0197
IF(NODE.EQ.NUMNP) LIMIT=L1H
CANB0198
WRITE(LUDATA,2040)LIMIT,NODE,IZERO,XII),Y(J),IZERO,FZERO,FZERO
CANB0199
CANB0200
GENERATE ELEMENT DATA
CANB0201
CANB0202
GET PIPE ELEMENT CONNECTIVITY
CANB0203
CANB0204
LIMIT=IBLANK
RESET Y-COORDINATE TO MATCH
"YCOVR"
170
180
160
C
C
C
-+:>.
190
C
C
210
220
200
C
CANB020S
CANB0206
CANB0207
CANB0208
CANB0209
CANB02l0
CANB0211
IXB~IXA+1
CANB0212
GO TO 160
CANB0213
IF(I.GT.10) GO TO 180
CANB0214
lXA=IXB
CANB0215
IXB=IXA-7
CANB0216
IF(I.EQ.5) IXB=95
CANB0217
GO TO 160
CANB02l8
lXA=IXB
CANB0219
IXBaIXA-l
WRITE(LUDATA,2050)LIMIT,I,IXB,IXA,IZERO, IZERO, I,IONE,IZ ERO,IZERO, CANB0220
CANB0221
1 IZERO,IZERO
CANB0222
CANB0223
NEXT GENERATE SOIL BLOCK # 1 (BOTTOM)
CANB0224
CANB0225
INC=1
CANB0226
INTRAL=O
CANB0227
NUMLAY=O
CANB0228
INTERL~O
CANB0229
DO 190 K~1,4
CANB0230
MAT=l
CANB0231
IF(K.EQ.2 .AND. BDEPTH.GT.O.O) MAT=2
CANB0232
IF(K.NE.4) GO TO 190
CANB0233
INTRAL=l
CANB0234
NUMLAY-5
CANB0235
INTERL=ll
WRITE(LUDATA,2050)LIMIT, (LNODl(J,K),J=1,5),MAT,INC,IZERO,INTRAL, CANB0236
CANB0237
1 NUMLAY,INTERL
CANB0238
CANB0239
GENERATE SOIL BLOCK # 2 (SIDE)
CANB0240
CANB0241
DO 200 1=1,6
CANB0242
INTRAL=O
CANB0243
NUMLAY~O
CANB0244
INTERL=O
CANB0245
MAT=LNOD2(6,I)
CANB0246
INC- LNOD2(7,I)
CANB0247
IF(NINC.LT.O) INC=1
CANB0248
IF(I.EQ.6) GO TO 210
CANB0249
GO TO 220
CANB0250
INTRAL=1
CANB0251
NUMLAY~5
CANB0252
INTERL=7
CANB0253
IF(NMOVE.EQ.ll) INC=4
CANB0254
IF(NMOVE.EQ . ll) MAT-3
CANB0255
IF(NINC.LT.O) INC=l
WRITE(LUDATA,2050) LIMIT, (LNOD2(J,I),J=I,5),MAT,INC,IZERO,INTRAL, CANB0256
CANB0257
1 NUMLAY, INTERL
CANB0258
IF(I.EQ.6) GO TO 200
CANB0259
IF(NMOVE.EQ . ll) GO TO 200
CANB0260
NELI=LNOD2(I,I)+NMOVE-5
CANB0261
MAT=1
CANB0262
INC=1
CANB0263
IF(NELI.EQ . 94) GO TO 200
CANB0264
WRITE(LUDATA,2050)LIMIT,NELI,IZERO, IZERO, IZERO, IZERO,MAT,INC,
CANB0265
1 IZERO,INTRAL,NUMLAY,INTERL
CANB0266
CONTINUE
CANB0267
NB1~66
NB2=101
IXB=NB2+1
DO 160 I~I, NPMAT
IF(I . GT.4) GO TO 170
lXA=IXB
*3
(SIDE)
DO 250 1=1,2
INTRAL=O
NUMLAY=O
INTERL=O
MAT=LNOD3(6,I)
INC=LNOD3(7,I)
IF(NINC.LT.O) INC=l
IF(I.EQ.1) GO TO 240
INTRAL~l
240
NUMLAY=l
IF(NMOVE.EQ.l1) INC=4
IF(NINC.LT.O) INC-l
IF(NMOVE.EQ.11) MAT-3
IF(HTCOVR.LE.O.O) LIMIT=L1H
WRITE (LUDATA,2050) LIMIT, (LNOD3(J,I),J-1,S),MAT,INC,IZERO,INTRAL,
1 NUMLAY,INTERL
IF(I.EQ.2) GO TO 250
IF(NMOVE.EQ.11) GO TO 250
NELI=LNOD3(1,I)+NMOVE-5
MAT-l
INC~1
250
IF(NELI.EQ.lOO) GO TO 250
WRITE(LUDATA,2050)LIMIT,NELI,IZERO, IZERO, IZERO, IZERO,MAT,INC,
1 IZERO,INTRAL,NUMLAY,INTERL
CONTINUE
IF(LIMIT.EQ.LIH) GO TO 400
280
290
270
300
LASTEL=(NHC-12)*10+l00
DO 260 1=1,6
INTRAL=O
NUMLAY-O
INTERL=O
MAT-LNOD4 (6, I)
INC-LNOD4(7,I)
0
IF(NINC.LT.O) INC-l
IF(I.EQ.l) GO TO 270
IF(LNOD4(I,I).GE.LASTEL) GO TO 280
GO TO 270
If(I.EQ.6) GO TO 290
GO TO 300
INTRAL=l
NUMLAY=5
INTERL=l1
IF(NMOVE.EQ.11) INC=9
IF(NINC.LT.O) INC-1
IF(NMOVE.EQ.l1) MAT=3
LIMIT=LlH
WRITE(LUDATA,2050)LIMIT, (LNOD4(J,I),J=I,5),MAT,INC,IZERO,INTRAL,
1 NUMLAY,INTERL
IF(LIMIT.EQ.LIH) GO TO 400
GO TO 310
LIMIT=LIH
NODEI~(NHC-12)11+100
NODEJ=NODEI+l
NODEK~NODEJ +11
NODEL=NODEK-l
MAT~1
INC~1
INTRAL~1
CANB0268
CANB0269
CANB0270
CANB0271
CANB0272
CANB0273
CANB0274
CANB0275
CANB0276
CANB0277
CANB0278
CANB0279
CANB0280
CANB0281
CANB0282
CANB0283
CANB0284
CANB0285
CANB0286
CANB0287
CANB02BB
CANB0289
CANB0290
CANB0291
CANB0292
CANB0293
CANB0294
CANB0295
CANB0296
CANB0297
CANB0298
CANB0299
CANB0300
CANB0301
CANB0302
CANB0303
CANB0304
CANB0305
CANB0306
CANB0307
CANB030B
CANB0309
CANB031 0
CANB0311
CANB0312
CANB0313
CANB0314
CANB0315
CANB0316
CANB0317
CANB03lB
CANB0319
CANB0320
CANB0321
CANB0322
CANB0323
CANB0324
CANB0325
CANB0326
CANB0327
CANB032B
CANB0329
CANB0330
NUMLAY~NHC-12
INTERL~l1
310
IF(NMOVE.EQ.11) INC~NHC-B
IF(NINC.LT.O) INC~1
IF(NMOVE.EQ.11) MAT~3
WRITE(LUDATA,2050)LIMIT,LASTEL,NODEI,NODEJ,NODEK,NODEL,MAT,INC,
1 IZERO,INTRAL,NUMLAY,INTERL
GO TO 400
IF(I.EQ.6) GO TO 260
IF(NMOVE.EQ.11) GO TO 260
NELI=LNOD4(1,I)+NMOVE-1
MAT~l
260
C
C
INC=l
IF(NELI.EQ.LASTEL) GO TO 260
WRITE(LUDATA,2050)LIMIT,NELI,IZERO,IZERO,IZERO,IZERO,MAT,INC,
1 IZERO,INTRAL,NUMLAY,INTERL
CONTINUE
ALL CONNECTIVITY IS DONE
C
C
C
400
LIMIT~IBLANK
COVLIM~3.0*R2
IF (HTCOVR.LE.COVLIM) GO TO 440
OVERP-(HTCOVR-3.0*R2)*DENSIT
WRITE(6,21l0) OVERP
IF(NINC.LE.9) GO TO 420
OVER~OVERP/FLOAT(NINC-9)
IDINC=NINC-9
DO 430 I~l,IDINC
NfIRST=157
NLAST=167
+:0N
NEWINC~9+I
PLOAD~-OVERP
430
420
NEWINC-1
PLOAD2-0VERP
WRITE(LUDATA,2060)LIMIT,NFIRST,IZERO, FZERO, IZERO, FZERO ,FZERO,
1 NEWINC,NLAST,IONE,PLOAD,PLOAD
C
C
C
440
450
DO 450 1=1,38
IF(I.GT.l1) K=IZERO
IF(NODBC(I).EQ.LASTNO) LIMIT~LlH
WRITE(LUDATA,2060)LIMIT,NODBC(I),IONE,FZERO,K,FZERO,FZERO,IONE,
1 IZERO,IZERO,FZERO,FZERO
IF(LIMIT.EQ.LlH) GO TO 460
CONTINUE
460
WRITE(6,2080)
CANB0331
CANB0332
CANB0333
CANB0334
CANB0335
CANB0336
CANB0337
CANB0338
CANB0339
CANB0340
CANB0341
CANB0342
CANB0343
CANB0344
CANB0345
CANB0346
CANB0347
CANB0348
CANB0349
CANB0350
CANB0351
CANB0352
CANB0353
CANB0354
CANB0355
CANB0356
CANB0357
CANB0358
CANB0359
CANB0360
CANB0361
CANB0362
CANB0363
CANB0364
CANB0365
CANB0366
CANB0367
CANB0368
CANB0369
CANB0370
CANB0371
CANB0372
CANB0373
CANB0374
CANB0375
CANB0376
CANB0377
CANB0378
CANB0379
CANB0380
CANB0381
CANB0382
CANB0383
CANB0384
CANB0385
CANB0386
CANB0387
CANB0388
CANB0389
CANB0390
CANB0391
CANB0392
CANB0393
470
C
C
C
1000
1010
2000
2010
2120
2100
2110
2020
2030
2040
2050
2060
2070
2080
2090
C
C
C
DO 470 K~1,3
NUMMAT-K
Kl-2*K-l
K2=Kl+1
WRITE(6,2090)MATTYP(K1) ,MATTYP(K2) ,NUMMAT
REWIND LUDATA
RETURN
CANB0394
CANB0395
CANB0396
CANB0397
CANB0398
CANB0399
CANB0400
CANB0401
CANB0402
FORMATS
CANB0403
FORMAT(A4,17A4,A4)
CANB0404
FORMAT (415,6FlO.0)
CANB0405
FORMAT (lHO, ' FATAL DATA ERROR. THE CONTROL WORD MUST BE MBA ORCANB0406
CANB0407
1 TREN ,BUT IS" ',A4,' .. '}
FORMAT (lHI, '
BEGIN GENERATION OF CANNED MESH '111
CANB0408
1
THE DATA TO BE RUN IS ENTITLED
'111HO, 17A411CANB0409
2
TYPE OF MESH - - - - - - - - - - - - - - --- ',3MII
CANB0410
3
PLOTTING DATA SAVED - ----- -- - - ',1511
CANB0411
4
PRINT SOIL RESPONSES ----------------- ',151/
CANB0412
PRINT CONTROL FOR PREP OUTPUT -------- ',151/
CANB04l3
5
NUMBER OF CONSTRUCTION INCREMENTS ---- ',151/
CANB0414
6
SPAN OF BOX -------------------------- ',F9.211
CANB0415
HEIGHT OF BOX ------------------------ ',F9.2/)
CANB04I6
TRENCH WIDTH (FT) - - - - - - - - -- -',F9.2/)
CANB04l7
SOIL ABOVE TOP OF BOX (FT) ----------- ',F9.211
CANB041B
MESH HEIGHT ABOVE TOP OF BOX (FT) ---- ',F9.211
CANB04l9
SOIL DENSITY ABOVE MESH (PCF)--------- ',F9.2/)
CANB0420
FORMAT(lHO,' PRESSURE OF TRUNCATED SOIL (PSI)------ ',F9.2)
CANB0421
FORMAT(III,lH ,'WE ARE GOING TO ASSUME NO BEDDING MATERIAL'II)
CANB0422
FORMAT(A4,IX,17A4,3X,A4IBI5)
CANB0423
FORMAT(Al,I4, IS,2FlO.3,IS,SX,2FlO.3)
CANB0424
FORMAT(Al,I4,lOI5)
CANB0425
FORMAT(Al,I4,I5,FlO.2,I5,2FlO.2,315,2FlO.2)
CANB0426
FORMAT (lHO, '
HTCOVR-',FlO.211' FATAL DATA ERROR FOR THE HEIGHT CANB042?
10F COVER OF SOIL'II' HTCOVR MUST BE GREATER OR EQUAL THAN ZERO') CANB042B
FORMAT (lHO, II' IDENTIFICATION OF MATERIAL ZONE WITH MATERIAL NUMBECANB0429
lR'llllOX, 'MATERIAL-ZONE',3X, 'MATERIAL NO.'I)
CANB0430
FORMAT(lHO,16X,2A4,3X,I2)
CANB0431
END
CANB0432
* * * * * * CONCOOOI
CANDE-B9 (C)ULVERT (AN)ALYSIS AND (DE)SIGN PROGRAM
CONC0002
CONC0003
VERSION 1.0, MARCH 1990
PUBLIC DOMAIN SOFTWARE CONTRIBUTED BY
CONC0004
THE FEDERAL HIGHWAY ADMINISTRATION
CONCOOOS
CONC0006
SUBROUTINE CONCRE(IA,ICOME,IEXIT,LEVEL,NINC,NPMAT,NPPT,PDIA,
CONCOOO?
1
PIPMAT,RESULT,XMODE)
CONCOOOS
CONC0009
SUBROUTINE ,OR REINfORCED CONCRETE PIPE CULVERTS
CONCOOlO
CONC0011
Uncomment this statement in all program modules for double
CONC0012
CONCOOl)
precision version. SCM 3-10-90
CONC0014
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
CONC001S
CONC0016
Revise pipe dimension statements from 30 to 99.
CONC0017
SCM 5-22-89
CONC0018
CONC0019
DIMENSION ASI(99),ASO(99),PFS(3),PIPMAT(S,99),PPFS(3),PSTRNI(99), CONC0020
1
PSTRNO(99),RESULT(20,99),SAFE(4),STNMAT(S),TBI(99),
CONC0021
TBO(99),WALLA(33),WALLB(33),WALLC(33),PTV(99)
CONC0022
CONC0023
CONC0024
C
C
C
C
C
C
C
C
C
C
C
C
C
..-+:>-
C
C
C
C
100
TABLES BELOW GIVE STANDARD WALL THICKNESSES DERIVED FROM ASTM c-76cONC0025
CONC0026
USERS MAY SUBSTITUTE THEIR OWN TABLES OF WALL THICKNESSES USING
PIPE SIZES FOR WHICH NO STANDARD WALL CONC0027
THE SAME FORMAT AS BELOW.
CONC0028
IS AVAILABLE SHOULD HAVE O. IN THE MATRIX AT THOSE LOCATIONS
eONC0029
CONC0030
FORMAT FOR LOCATING PIPE SIZES IS AS FOLLOWS-CONe0031
27
CONC0032
12
15
18
24
30
21
CONC0033
45
48
51
33
36
39
42
69
72
CONC0034
57
54
60
63
66
87
CONC0035
78
75
81
84
90
93
CONC0036
96
99 102 105 108
CONC0037
COMMON IPEDROI STSMAX{30,11),STNMAX(30,11),SMl,SM2,SM3,PCE2,FTC, CONC0038
CONC0039
X FYC,FCC,PFSY,SMS,PTSN{30,2),PTSS(30,2)
CONC0040
DATA WALIJII
CONCOO41
1. 750, 1. 875, 2.000, 2.250, 2.500, 2.375, 2.750,
1
CONC0042
2
2 . 875, 3.000, 3.250, 3.500, 3 . 750, 4.000, 4.250,
CONCOOn
4. 500, 4.750, 5.000, 5.250, 5 . 500, 5.750, 6.000,
3
CONC0044
4
6.250, 6.500, 6.750, 7.000, 7.250, 7.500, 7.750,
CONC0045
5
8.000, 8.250, 8.500, 8.750, 9.0001
CONC0046
DATA WALLBI
CONC0047
2.000, 2. 250, 2.500, 2.750, 3 . 000, 3.250, 3.500,
1
CONC0048
3.750, 1.000, 4.250, 4.500, 4.750, 5.000, 5.250,
2
7.000,
CONC0049
5.500, 5 .750, 6.000, 6.250, 6 . 500, 6.750,
3
CONC0050
7 . 250, 1. 500, 7.750, 8.000, 8.250, 8.500, 8.750,
4
CONC0051
9.000, 9.250, 9.500, 9.750, 10.0001
5
CONC0052
DATA WALLCI
CONC0053
2.750, 3.000, 3 . 250, 3.500, 3 . 750, 4.000, 4.250,
1
CONC0054
4.500, 4.750, 5.000, 5.250, 5.500, 5.750, 6.000,
2
CONC0055
6 . 250, 6.500, 6.750, 7.000, 7 . 250, 7.500, 7.750,
3
CONC0056
8.000, 8.250, 8.500, 8.750, 9 . 000, 9.250, 9.500,
4
CONC0057
9.750, 10.000, 10.250, 10.500, 10 . 7501
5
CONC0058
CONCOOS9
DATA NFS,PPFS/ 3,1.6,2.,2./
CONC0060
DATA FPC,XNU,FSY,SE,SNU,SLS/4000., .17,40000.,29000000., .3,2.01
OPT
STD
CONC0061
DATA ANALYS, ARBI , CIRC , DESIGN, ELL I , FIX
/ 4HANAL , 4HARBI, 4HCIRC, 4HDESI, 4HELLI, 3HFIX, 3HOPT, 3HSTD /CONC0062
1
CONC0063
DATA NTMAX,CW01/Z0,0 . 011
CONC0064
CONC0065
GO TO (100,200),ICOME
CONC0066
CONC0067
FIRST ENTRY ESTABLISHES PIPE PROPERTIES AND SAFETY FACTORS
CONC0068
READ(S,lOOO) PDIA,PT,RSHAPE,NONLIN,STNMAT(l) ,STNMAT(2) ,STNMAT(3) , CONC0069
CONC0070
X PFPC,PCE,PNU,PDEN,PFSY,PSE,PSNU,SL
CONcoon
ITER=O
CONcoon
IF(PDIA.EQ.O.O) GO TO 950
CONC0073
IF(PFPC.EQ.O . ) PFPC=FPC
CONCOOH
PFPT = 5.0*SQRT(PFPC)
CONC0075
PrvT - 2.0*SQRT{PFPC)
CONC0076
PDENT ~ PDEN
CONC0077
IF{PDENT.LE.O.) PDENT = 150.
CONC0078
IF{PCE.EQ.O.) PCE - 33.*PDENT**1.5*SQRT(PFPC)
CONC0079
IF(PNU . EQ.O.) PNU=XNU
CONC0080
IF{PFSY.EQ.O.) PFSY=FSY
CONC0081
IF(PSE.EQ.O.) PSE=SE
CONC0082
IF{PSNU.EQ.O . ) PSNU=SNU
CONC0083
IF(SL . EQ.O . O) SL=SLS
CONC0084
IF(PDIA.LT.O.O) WRITE(6,2001)
CONC0085
WRITE(6,2000) PDIA,PFPC,PCE,PNU,PDEN,PFSY,PSE,PSNU
CONC0086
CONC0087
PCENU = PCE/(1.-PNU**2)
C
C
110
C
C
C
C
C
C
C
111
112
113
C
C
C
114
CONC0088
CONC0089
CONC0090
CONC0091
CONcoon
CONC0093
CONC0094
CONC0095
CONC0096
CONC0097
CONC0098
CONC0099
CONC0100
CONC0101
CONCOl02
CONCOl03
CONC0104
CONC0105
CONCOI06
CONC0107
CONCOl08
READ SECTION PROPERTIES FOR ANALYSIS
CONCOl09
IF{PDIA . LT.O.O) GO TO 111
CONCOllO
CONCOlll
IF(RSHAPE.NE.ELLI .AND. RSHAPE.NE . ARBI) RSHAPE= CIRC
CONC01l2
IF(XMODE . EQ.DESIGN) GO TO 120
CONC0113
NREAD =1
CONC0114
IF(RSHAPE.EQ.ARBI) NREAD = NPPT
DO 110 N=l,NREAD
CONCOllS
READ(5,lOOl) ASI(N),ASO(N),TBI(N),TBO(N)
CONCO 11 6
CONC0117
IF(TBI(N) .LE.O.O) TBI(N)
1.25
CONC0118
IF{TBO{N).LE.O.O) TBO(N) - 1.25
CONC0119
CONTINUE
CONC0120
CONC0121
WRITE SECTION PROPERTIES TO BE ANALYSED.
CONCOl22
WRITE(6,200S) PT,RSHAPE
CONCOl23
CONC0124
IF(RSHAPE.EQ.CIRC) WRITE(6,2010) ASI(l),ASO(l),TBI(l),TBO(l)
IF(RSHAPE.EQ.ELLI) WRITE(6,2011) ASI(l),TBI(l)
CONC0125
CONC0126
IF(RSHAPE.EQ.ARBI) WRITE(6,2012) (ASI(N),ASO(N),TBI(N),TBO(N),
X N=l,NPPT)
CONCOl27
CONC0128
GO TO 165
CONC0129
CONC0130
READ ARBITRARY CONCRETE SECTION PROPERTIES FOR NEW OPTION OF
VARIABLE THICKNESS (LEVEL 2-BOX OR 3)
CONCOl31
CONC0132
IF(LEVEL . EQ.3) GO TO 112
CONC0133
NDTOP=S
CONC0134
NDSIDE=7
CONC0135
NPPT=2*(NDTOP-1)+NDSIDE
CONC0136
NPMAT-NPPT-l
CONC0137
IF{RSHAPE.NE.ARBI) GO TO 114
CONC0136
DO 113 N=l, NPPT
CONC0139
READ(S,lOOl) ASI(N),ASO(N),TBI(N),TBO(N),PTV(N)
CONC0140
IF(TBI(N) .LE.O.O) TBI(N)=1.25
CONCOl41
IF{TBO(N) .LE.O.O) TBO{N)=1.25
CONC0142
IF(PTV(N) .LE.O . O) PTV(N)=PT
CONC0143
CONTINUE
CONC0144
GO TO 118
CONC0145
CONC0146
READ BOX CULVERT SECTION PROPERTIES FOR LEVEL 2-BOX AND RSHAPE=STDCONC0147
CONC0148
IF{LEVEL.NE.2) GO TO 960
CONC014<;
CONC0150
READ(S,lOOl) PTT,PTS,PTB,HH,HV
READ(5,10011 ASl,AS2,AS3,AS4,XLl,TC
IF(PTT.LE.O . O) PTT- PT
IF(PTS.LE.O . O) PTS-PT
IF(PTB.LE . O. O) PTB~PT
IF(XLl.LE . O. O) XL1~1.0
IF(TC.LE.O.O) TC=1.25
C
115
NDAS= FLOAT(NDTOP-1)'XL1+1
NDAS=NDTOP-NDAS
C
C
C
ASO(NBOT)=ASOUT
.~
~
ASI(NBOT)~AS3
116
PTV(NBOT)= PTB
C
C
LIM2-NDSIDE+NDTOP-2
NTOPl=NDTOP+l
DO 117 N~NTOP1,LIM2
ASO(N)=AS1
ASI(N)=AS4
117
PTV(N)~PTS
C
C
C
ASI(NDTOP+NDSIDE-1)=0.S*(AS3+AS4)
C
C
118
C
C
C
C
C
C
120
CONTINUE
WRITE(6,2009)
GO TO 16S
(N,ASI(N),ASO(N),TBI(N),TBO(N),PTV(N),N~l,NPPT)
CONC01Sl
CONC01S2
CONC01S3
CONC01S4
CONC015S
CONC01S6
CONC01S7
CONCOlS8
CONC01S9
CONC0160
CONC0161
CONC0162
CONC0163
CONC0164
CONC0165
CONC0166
CONC0167
CONC0168
CONC0169
CONC0170
CONCOl71
CONC01n
CONC0173
CONC0174
CONC0175
CONC0176
CONCOl77
CONC0178
CONC0179
CONC0180
CONC0181
CONC0182
CONC0183
CONC0184
CONC0185
CONC0186
CONC018?
CONC018B
CONC01B9
CONC0190
CONC0191
CONC01n
CONC0193
CONC0194
CONC019S
CONC0196
CONC0197
CONC0198
CONC0199
CONC0200
CONC0201
CONC0202
CONC0203
CONCD204
CONC020S
CONC0206
CONC0207
CONC0208
CONC0209
CONC0210
CONC0211
CONC0212
CONC0213
130
C
C
C
C
C
C
C
C
C
C
141
151
lS2
IS3
ISS
160
C
C
C
C
C
C
C
C
161
CONC0214
CONC02lS
CONC02I6
CONC0217
CONC02I8
CONC02I9
CONC0220
CONC022I
NGOAL = 1, IMPLIES OPTIMUM WALL DESIGN
CONC0222
IMPLIES
STANDARD
WALL
DESIGN
NGOAL = 2,
CONC0223
NGOAL = 3, IMPLIES FIXED WALL THICKNESS
CONC0224
CONC022S
NGOAL =
CONC0226
IF(GOAL.EQ.OPT) NGOAL ~ 1
CONC0227
IF(GOAL.EQ.FIX . AND. PT . GT . O.O) NGOAL = 3
CONC0228
IF(NGOAL.EQ.O) GOAL = STD
CONC0229
IF(NGOAL.EQ.O) NGOAL ~ 2
CONC0230
WRITE(6,2100) (PFS(I),I=l,NfS)
CONC023I
IF(ALCW.NE.O.) WRITE(6,210l) ALCW
CONC0232
IF(ALCW.EQ.O . ) ALCW ~ 1000000.
CONC0233
WRITE(6,2102) RSHAPE,TBI(l),GOAL
CONC0234
IF(NGOAL.EQ.3) WRITE(6,2103) PT
CONC0235
IF(RSHAPE.EQ.CIRC) WRITE(6,2104) SRATIO
CONC0236
PFSC = CWOI/ALCW
CONC0237
CONC0238
ASSIGN MINIMUM WALL THICKNESS FOR DESIGN
CONC0239
IF THICKNESS IS SPECIFIED IT WILL REMAIN CONSTANT
CONC0240
IF IT IS ADEQUATE
CONC0241
CONC0242
IF(NGOAL.EQ.3) GO TO 160
CONC0243
GO TO (lSl,1S2),NGOAL
CONC0244
PT = . OS'PDIA
CONC0245
GO TO 160
CONC0246
CONTINUE
CONC0247
ISIZE ~ PDIA/3 -3
CONC0248
IF(ISIZE.GE.l . AND.ISIZE.LE.33) GO TO ISS
CONC0249
NGOAL = 1
CONC0250
WRITE(6,2018)
CONC02S1
GO TO 141
CONC0252
PT-WALLA(ISIZE)
CONC02S3
If(PT.LE.O.1 PT - WALLB(ISIZEI
CONC02S4
IF(PT.LE.O.I PT = WALLC(ISIZE)
CONC02S5
IF(PT.LE.O.) GO TO lS3
CONC0256
PTMIN = PT
CONC02S7
CONC02S8
ASSIGN MINIMUM STEEL AREA SASED ON HANDLING DEFLECTION,
CONC02S9
TEMPERATURE STEEL, OR MINIMUM PRACTICAL REINFORCEMENT
CONC0260
AS = (.13'PDIA""3 + 130 . *PDIA**2) I ( . 49*PSE*PT**2) - .0184*PT/PN CONC026l
CONC0262
IF(AS . LT .. 0014'PT) AS - . 0014*PT
CONC0263
IF(AS.LT . . 00583) AS = .00S83
CONC0264
I<SMIN - AS
CONC026S
CONC0266
ESTABLISH RELATIVE DESIGN PROPORTIONS OF STEEL FOR CIRCULAR AND
CONC026?
ELLIPTICAL CAGES
CONC0268
CONC0269
IF(RSHAPE.EQ.ELLI) GO TO 161
CONC0270
ASI(l) = ASMIN
CONC027I
ASO(l) = SRATIO*ASMIN
CONC0272
TSO(l) = TSI(l)
CONC0273
GO TO 165
CONC0274
ASI (1) = ASMIN
CONC0275
I<SO(l) - 0.0
CONC0276
TSO(l) - 0.0
1.2S
IF(TBI(l).LE.O.O) TSI(1)
0.75
IF(SRATIO.LE.O.O) SRATIO
00 130 I~l, NFS
IF(PFS(I) .GT . O.O) GO TO 130
PFS(I)=PPFS(I)
CONTINUE
C
C
C
165
168
169
170
C
C
C
C
180
181
"VI
"'-
C
C
C
188
189
190
C
C
C
CONCOZ??
DESIGN ANO ANALYSIS ... ASSIGN CIRCULAR OR ELLIPTICAL STEEL CAGES.CONC02?8
CONC02?9
NOTE THIS SECTION IS RE-ENTERED FOR EACH TRIAL DESIGN.
CONCOZ80
CONC0281
IF(PDIA.LT.O.O) GO TO 181
CONC0282
IF(RSHAPE.EQ.ARBI) GO TO 180
CONC0283
DELTB ; 0.0
CONC0284
IF(RSHAPE.NE.ELLI) GO TO 168
CONC028S
XPPT z NPPT
CONC0286
XPMAT = NPMAT
CONC028?
DELTS - (PT-2.*TBI(1))/(XPMAT/Z.)
CONC0288
CONTINUE
CONC0289
DO 170 N=2, NPPT
CONCOZ90
ASI(N) - ASI(N-1)
CONC0291
ASO(N) = ASO(N-1)
CONCOZ92
SIGN e 1.0
CONC0293
IF(RSHAPE.NE.ELLI) GO TO 169
CONC0294
XN ; N
CONC029S
TERM = XPPTfZ. - XN + 1.
CONC0296
IF(TERM.EQ.O.O) SIGN = 0 . 0
CONC0291
IF(TERM.LT.O.O) SIGN=-l .
CONC0298
TBI(N) - TBI(N-1) + DELTS"SIGN
CONC0299
TBO(N) = TBO(N-1)
CONC0300
CONTINUE
CONC0301
CONC0302
CALCULATE INTIAL SECTION PROPERTIES BASED ON UNCRACKED SECTION.
CONC0303
(GENERALLY THIS WILL PRODUCE MAXIMUM MOMENT AND THUST)
CONC0304
CONC030S
IF(ICOME . EQ.1) PDIA = PDIA + PT
CONC0306
CONTINUE
CONC030?
DO 190 N-LNPPT
CONC0308
IF(PDIA.LT.O.O) PT=PTV(N)
CONC0309
APNI = ASI(N)"(PN-1.)
CONC0310
APNO = ASO(N)*(PN-1.)
CONC0311
YTI = TSI(N)
CONC0312
YTO = PT - TBO(N)
CONC0313
PA = PT + APNI + APNO
CONC0314
YSAR = (0.5'PT"PT + APNI"YTI + APNO*YTO)/PA
CONC031S
PI = 0.3333*PT*'3 - PT'PT'YBAR + PT'YeAR'YBAR
CONC0316
PI = PI +APNI*(YTI-YBARj'*Z + APNO*(YTO-YBAR)**Z
CONC031?
RESULT(14,N) - PA
CONC0318
RESULT(lS,N) = PI
CONC0319
RESULT(16,N) = YeAR
CONC0320
PSTRNI (N)
0.0
CONC0321
PSTRNO(N) - 0.0
CONC0322
CONC0323
INITIAL VALUES FOR MAX. STRAINS AND STRESSES
CONC0324
CONC0325
DO 188 IL=l,Z
CONC0326
PTSN(N,IL)=O.O
CONC032?
PTSS(N,IL)=O.O
CONC0328
DO 189 II=l,l1
CONC0329
STNMAX(N,II)--O.OOOOOl/PCENU
CONC0330
STSMAX(N,II)=-O.OOOOOI
CONC0331
CONTINUE
CONC0332
CONC0333
AVERAGE AREA AND MOMENT OF INERTIA AT ELEMENT CENTERS FOR INPUT
CONC0334
INTO SOLUTION THEORIES.
CONC033S
CONc0336
DO 195 N=l,NPMAT
CONC033?
N1 = N+l
CONC0338
IF(N1 . GT.NPPT) N1-1
CONC0339
PIPMAT(l,N) = PCE
195
C
C
C
C
C
C
C
200
C
C
500
C
C
C
505
50?
C
C
C
C
C
C
C
C
510
520
CONC0340
CONC0341
CONC0342
CONC0343
CONC0344
CONC0345
CONC0346
CONC0347
CONC0348
CONC0349
SECOND ENTRY ... (I) RE-EVALUATE SECTION PROPERTIES BASED ON
CONC0350
CURRENT VALUES OF THRUST AND MOMENT. (2) EVALUATE STRUCTURAL
CONC03S1
RESPONSES IN TERMS OF DESIGN CRITERIA. (3) IN DESIGN MODE
CONC035Z
DETERMINE NEW STEEL AREA AND/OR CONCRETE THICKNESS AS REQUIRED.
CONC03S3
CALL CONMAT(NPMAT,NPPT, ICON,ASI,ASO,TSI,TBO,RESULT,PIPMAT,STNMAT, CONC03S4
CONC03S5
X PSTRNI,PSTRNO,PT,PN,PCENU,PSENU,NONLIN,PDIA,PTV,NTlMES,SL)
CONC0356
IF(ICON.EQ.l) GO TO 500
CONC035?
IF(NTIMES.GE.NTMAX) GO TO 500
CONC0358
NTlMES = NTIMES + 1
CONC0359
IEXIT = -1
CONC0360
WRITE(6,')NTIMES
CONC0361
RETURN
CONC0362
CONC0363
CHECK IF NONLINEAR SOIL MODEL HAS CONVERGED
CONC0364
CONC036S
NTIMES ~ 0
CONC0366
IF(NINC.GT.O) GO TO 505
CONC036?
IEXIT - -1
CONC0368
RETURN
CONC0369
CONC0370
SAVE INNER AND OUTER PIPE STRAINS OF CONVERGED SOLUTION
CONC0371
CONC0372
DO 507 N-l, NPPT
CONC0373
PSTRNI(N)
RESULT(19,N)
CONC0374
PSTRNO(N) = RESULT(20,N)
CONC03?5
EVALUATE STRUTURAL RESPONSES. (IN DESIGN MODE ONLY ON LAST STEP) CONC0376
CONC0377
CONC03?6
SSMAX = MAX TENSILE STRESS IN STEEL
CONC0379
SCMAX = MAX COMPRESSIVE STRESS IN CONCRETE
CONC0360
VMAX = MAX SHEAR STRESS ON GROSS SECTION
CONC0361
DISP - MAX RELATIVE DISPLACEMENT
CONC0382
CRWD = MAX CRACK WIDTH
CONC0383
CONC0384
IF(XMODE.EQ.ANALYS) GO TO 510
CONC038S
IF(IA.EQ.NINC) GO TO 510
CONC0386
IEXIT = 0
CONC0367
RETURN
CONC0388
CONC0389
SSMAX = O.OOOOOI*PFSY
CONC0390
BCMAX - -O.OOOOOl*PFPC
CONC0391
VMAX = O.OOOOOOI*PFPC
CONC0392
UYMAX - RESULT(4,1)+0.OOOOOOI*PT
CONC0393
UYMIN = RESULT(4,1)
CONC0394
CRWD ~ 0.0
CONC039S
DO 540 N=l,NPPT
CONC0396
IF(ASS(RESULT(10,N) .GT.BSMAX) SSMAX - ABS(RESULT(lO,N)
CONC0397
IF(ABS(RESULT(11,N)) .GT.BSMAX) SSMAX = ABS(RESULT(ll,N)
CONC0398
IF(RESULT(12,N) . LT. BCMAX) BCMAX - RESULT(12,N)
CONC0399
VN ~ ABS(RESULT(13,N))
CONC0400
IF(VN.LT.VMAX) GO TO 520
CONC0401
VMAX - VN
CONC040Z
IF(RESULT(17,N) .GT.CRWD) CRWD
RESULT(l?,N)
PIPMAT (2, N)
PIPMAT(3,N)
PIPMAT (4, N)
PIPMAT(S,N)
CONTINUE
NTIMES = 0
RETURN
PNU
0.S*(RESULT(14,N)+RESULT(14,Nl))
0.S*(RESULT(15,N)+RESULT(1S,N1
PDEN*PTll728.
540
C
C
C
C
C
C
C
C
C
C
C
C
C
0\
C
C
C
C
C
C
C
C
CONC0403
CONC0404
CONC04 05
CONC0406
CONC0407
CONC0408
CONC0409
COMPUTE ACTUAL SAFETY AND PERFORMANCE FACTORS, THE CRITERIA IS . .. CONC0410
CONC0411
(1) STEEL YIELD STRESS (PFSY)
CONC0412
(2) CONCRETE COMPRESSIVE STRENGTH (PFPC)
CONC0413
(3) SHEAR STRENGTH=TENSILE STRENGTH (VUzPFPT)
CONC0414
(4) ALLOWABLE CRACK WIDTH, 0.01 INCHES OR USER DEFINED, (ALCW) CONC0415
(5) ALLOWABLE DISPLACEMENT, FROM LUM,NCHRP-116,PAGE 21. (DISLUM)CONC04I6
CONC0417
CONC0418
VU
PFVT
CONC0419
CONC0420
DETERMINE RADIAL STRESS FOR BOW STINGING
CONC0421
CONC0422
BOWSTR = 10.*BSMAX*ASI(I)/(PDIA/2 . 0)
CONC0423
IF(BOWSTR.LE.O.O) BOWSTR = 0.001
CONC0424
CONC0425
DISLUM = (PDIA-PT)*2/(1200.*PT)
CONC0426
CONC0427
ACTUAL SAFETY FACTORS AND PERFORMANCE FACTORS
CONC0428
CONC0429
FSST = PFSY/BSMAX
CONCOOO
FSCC = PFPC/BCMAX
CONCOOI
FSV = VU/VMAX
CONC002
FSCW = CW01/CRWD
CONC0433
FSDIS = DISLUM/DISP
CONC004
FSBOW = PFPT/BOWSTR
CONC0435
CONC006
DESIGN UPDATE
CONC0437
CONCOOS
IF (XMODE.EQ . ANALYS) GO TO 900
CONC0439
ITER = ITER + 1
CONCO 44 0
IF(ITER.GT.9) WRITE(6,2200) ITER,PT,ASI(l),ASO(l)
CONC0441
IF(ITER.GT.9) GO TO 900
CONC0442
CONC0443
COMPUTE RATIOS OF ACTUAL TO DESIRED SAFETY FACTORS.
CONC0444
CONC0445
SAFE (1)
FSST/PFS(I)
CONC0446
SAFE(2) = FSCC/PFS (2)
CONC0447
FSV/PFS(3)
SAFE(3)
CONC0448
FSCW/PFSC
SAFE(4)
CONC0449
CONC0450
REVISE STEEL AREA
CONC045I
CONC0452
Revise intrinsic funtion to generic form. SCM 3-10-90
CONC0453
CONC0454
SMIN = MIN(SAFE(1),SAFE(4))
CONC0455
CONC0456
ICHKS = 1
CONC0457
IF(ABS(SMIN-l.O) .LT . 0 . 05) GO TO 555
CONC0458
ASNEW = ASI(l)/SMIN
CONC0459
IF(ASNEW.LT.ASMIN) ASNEW = ASMIN
CONC0460
IF(ASI(l) .EQ.ASNEW) GO TO 555
CONC046I
ICHKS = 0
CONC0462
RATIO = ASNEW/ASI(l)
CONC0463
ASI(l)
RATIO'ASI(l)
CONC0464
ASO(l) = RATIO'ASO(I)
CONC0465
IF(RESULT(4,N).GT.UYMAX) UYMAX
IF(RESULT(4,N) .LT.UYMIN) UYMIN
CONTINUE
DISP = UYMAX-UYMIN
BCMAX = ABS(BCMAX)
IF(CRWD.EQ.O.O) CRWD =0.000001
RESULT(4,N)
RESULT(4,N)
555
ICHKC = 1
IF(NGOAL.EQ.3) GO TO 510
Revise intrinsic function to generic form.
SCM
3-10-90
SMIN = MIN(SAFE(2),SAFE(3))
561
562
563
564
IF(PTNEW.GT.WALLA(ISIZE)) GO TO 563
PTNEW = WALLA(ISIZE)
GO TO 568
IF(PTNEW.GT.WALLB(ISIZE)) GO TO 564
PTNEW = WALLB(ISIZE)
GO TO 568
IF (PTNEW.GT.WALLC (ISIZE) . AND. ITER .GT. 4) GO TO 565
PTNEW = WALLC(ISIZE)
GO TO 568
565
WRITE(6,2016)
NGOAL = 1
GO TO 561
568
IF(PT.EQ.PTNEW) GO TO 570
ICHKC = 0
PT = PTNEW
570
C
C
C
800
IF(ICHKS*ICHKC.EQ.1) GO TO 800
IEXIT = -2
GO TO 165
PRINT DESIGN RESULTS
WRITE(6,23I0) ITER,PT,ASI(I),ASO(l)
C
C
900
CONTINUE
IF (LEVEL .EQ. 1) GO TO 350
ICOME - 3
CALL PRHERO(IA,ICOME,IEXIT,LEVEL,NINC,NPMAT,NPPT,PDIA,PIPMAT,
1
RESULT,SK,SM)
ICOME = 2
350 CONTINUE
WRITE(6,2800) lA, (J,RESULT(1,J),RESULT(3,J),RESULT(B,J),
X RESULT(5,J) ,RESULT(7,J) ,RESULT(2,J) ,RESULT(4,J) ,RESULT (9,J),
X RESULT(6,J),RESULT(l8,J),J=I,NPPT)
WRITE(6,2810) lA, (J,RESULT(10,J) ,RESULT(ll,J) ,ReSULT(12,J) ,
X RESULT(13,J),J=1,NPPT)
WRITE(6,2820) (J,PSTRNI(J),PSTRNO(J),J=1,NPPT)
IF(PDIA.LT.O.O) GO TO 580
CONC0466
CONC0467
CONC0468
CONC0469
CONC0470
CONC0471
CONC0472
CONC0473
CONC0474
CONC0475
CONC0476
CONC0477
CONC0478
CONC0479
CONC0480
CONC0481
CONC0482
CONC0483
CONC0484
CONC0485
CONC0486
CONC0487
CONC0488
CONC0489
CONC0490
CONC0491
CONC0492
CONC0493
CONC0494
CONC0495
CONC0496
CONC0497
CONC0498
CONC0499
CONC0500
CONC050l
CONC0502
CONC0503
CONC0504
CONC0505
CONC0506
CONC0507
CONC0508
CONC0509
CONC0510
CONC0511
CONC0512
CONC0513
CONC0514
CONCOS15
CONC0516
CONC0517
CONC05l8
CONC0519
CONC0520
CONC0521
CONC0522
CONC0523
CONC0524
CONC0525
CONC0526
CONC0527
CONC0528
5BO
C
581
C
C
C
950
960
C
C
C
1000
1001
1003
2000
....j::>.
-....l
2001
2002
2005
200 9
2010
2011
2012
2013
2014
20 16
2018
210 0
CONC0529
CONC0530
CONC0531
CONCOS32
IEXIT
CONCOS33
CONCOS34
IF(IA.NE . NINC) IEXIT - 0
CONCOS35
RETURN
CONC0536
CONCOS37
FATAL ERROR EXITS
CONCOS3S
WRITE(6,2013)
CONC0539
CONCOS40
IEXIT ~ 1
RETURN
CONCOS41
CONCO S42
WRITE(6.2014)
CONCOS43
IEXIT - 1
CONCOS44
RETURN
CONCOS45
CONCOS46
FORMATS
CONC0547
FORMAT{2FlO.0, lX,A4, IS, 3FlO . O I BFlO . O)
CONC0548
FORMAT (6FlO.0)
CONCOS49
FORMAT(4FIO.0,7X,A3,2FlO.0)
CONCOSSO
FORMAT(lHllll lOX,3SH PIPE PROPERTIES ARE AS FOLLOWS . _. I
CONCOSSI
X lOX, 38H (UNITS ARE INCH-POUND SYSTEM)
II
CONCOS52
X l5X,36H NOMINAL PIPE DIAMETER ............ .
FlS.4 II
CONCOSS3
X l5X,36H CONCRETE COMPRESSIVE STRENGTH . . ... , F15.4 II
CONC05S4
X lSX,36H CONCRETE ELASTIC MODULUS . .. .. .. ...
F15.4 I I
CONCOSS5
X 15X,36H CONCRETE POISSON RATIO .. . .... .... .
FlS.4 I I
CONCOS56
X 15X,36H DENSITY OF PIPE (PCF)..... . ... .. . ..
F15 . 4111
CONCOS57
X 15X,36H STEEL YIELD STRENGTH ..... . ... .. ... , FlS.4 11
CONC05S8
X 15X,36H STEEL ELASTIC MODULUS ........ .. . . . , FlS.4 11
CONCOSS9
X 15X,36H STEEL POISSON RATIO ........ .. . . . ..
FlS.4)
CONC0560
FORMAT(II I IIOX,88H***NEGATIVE PIPE DIAMETER IMPLIES NEW CANDE OPTICONC0561
XON FOR VARIABLE CONCRETE THICKNESS. '** ,I I IOX,7SH***OPTION IS RECONCOS62
XSTRICTED TO ANALYSIS ONLY WITH LEVEL 2-BOX, OR LEVEL 3. . . . )
CONC0563
FORMAT{1I15X,36H NONLINEAR CODE (1,2,OR 3) .. ....... , 10X,IS II CONCOS64
X l5X,36H CONC . CRACKING STRAIN (1,2,3) .. .. . ,FlS . 6 I I
CONC0565
X lSX,36K CONC. YIELDING STRAIN (2,3) . ... . .. ,Fl5.6 II
CONCOS66
X l5X,36H CONC. CRUSHING STRAIN (2,3) .. .... . ,Fl5. 6 II
CONC0567
X lSX,36H STEEL YIELDING STRAIN (3) .... .. . . . ,F15.6 IIII
CONC0568
X l5X,36H SPACING LONGITUDINAL REINFORCEMENT ,F15.2)
CONC0569
FORMAT(/I lSX, 36H WALL THICKNESS ... ..... ........... ,F15.411
CONC0570
X15X,36H SHAPE OF REBAR CAGES ............ . . ,11X,A4 I)
CONCOS71
FORMAT(lHl,5X, 'NODE
STEEL AREAS (IN2) ',13X, 'STEEL COVERS (IN)CONCOS72
X',8X, 'THICKNESS (IN) ',II'
N
ASI(N)
ASO(N)
CONCOS73
X
TBI(N)
TBO(N)
PTV{N)', I I(I6,SFlS.4))
CONCOS74
FORMAT(lSX,36H INNER CAGE STEEL AREA ... .. . . ...... , F15 . 4 II
CONC0575
X 15X,36H OUTER CAGE STEEL AREA ......... .. .. , F15.411
CONC0576
X lSX,36H COVER TO CENTER OF INNER REBAR . ... , F15.411
CONCOS77
X lSX,36H COVER TO CENTER OF OUTER REBAR . ... , FlS.4/)
CONCOS78
FORMAT(15X,36H ELLIPTICAL CAGE STEEL AREA . .. ..... , F15 . 4 II
CONC0579
X lSX,36H MIN. COVER TO CENTER OF REBAR . .. . ,F15.4 I)
CONCOS80
FORMAT(lSX,36H REINFORCEMENT AREA AND COVER DEPTH II
CONCOS81
X 15X,36H INNER A. OUTER A. INNERC . OUTER C. 1{15X,4F9 . 4))
CONC0582
FORMAT(52H PIPE DIAMETER WAS NOT SPECIFIED PROGRAM TERMINATED)
CONCOS83
FORMAT(lHO,SX,47H WRONG LEVEL WAS SPECIFIED, PROGRAM TERMINATED
CONCOS94
FORMAT(49H WALL THICKNESS GREATER THAN WALL C IS REQUIRED I
CONCOS8S
X
34H DESIGN WILL PROCEED IN OPTION OPT )
CONCOS86
FORMAT(/1141H NO STANDARD WALLS FOR THIS PIPE DIAMETER I
CONC058?
X
34H DESIGN WILL PROCEED IN OPTION OPT )
CONC058S
FORMAT{/ I 10X,43H DESIRED SAFETY FACTORS FOR PIPE DESIGN . . . I I
CONCOSS9
X lSX,36H STEEL YIELDING .. . . . . ....... ... .. ..
Fl5.4 /I
CONCOS90
X 15X,36H CONCRETE CRUSHING ..... .. .. . .. .... , FlS.4 I I
CONCOS9l
WRITE(6,2900) IA,FSST,FSCC,FSV,FSCW,FSDIS,FSBOW
GO TO 581
WRITE( 6,2901) IA,FSST,FSCC.FSV,FSCW
2101
2102
2103
2104
2200
2310
2800
28 10
2820
2900
290 1
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
.J:>.
00
C
C
C
C
C
81
82
CONM0011
CONM0012
CONM0013
(1) INNER AND OUTER FIBER STAINS ASSUMING LINEAR DISTRIBUTION.
CONM0014
(2) DEPTH OF CRACKING, DISTANCE TO BENDING AXIS.
CONM0015
(3) EFFECTIVE THRUST AREA AND EFFECTIVE MOMENT OF INERTIA.
CONM0016
CONM0017
(THESE ARE AVERAGED INTO PIPMAT VECTOR FOR NEXT SOLUTION)
(4) STEEL STRESSES, CONCRETE COMPRESSIVE STRESS, AND SHEAR STRESS.CONM0019
(5) CRACK WIDTH ESTIMATE.
CONM0019
CONM0020
THE ABOVE RESPONSES ARE STORED IN THE VECTOR RESULT FOR EACH NODE CONM0021
CONM0022
POINT AS DEFINED BELOW...
CONM0023
INNER CAGE STEEL STRESS
CONM0024
RESULT(10,N)
OUTER CAGE STEEL STRESS.
RESULT(11,N)
CONM0025
RESULT(12,N)
MAX CONCRETE COMPRESSIVE STRESS.
CONM0026
RESULT(13,N) ~ MAX SHEAR STRESS IN CONCRETE.
CONM0027
RESULT(14,N) ~ EFFECTIVE AREA OF SECTION
CONM0029
RESULT(15,N)
MOMENT OF INERTIA ABOUT YBAR.
CONM0029
RESULT(16,N)
DISTANCE TO BENDING AXIS (YBAR).
CONM0030
RESULT(17,N)
WIDTH OF CRACK.
CONM0031
RESULT(19,N)
LENGTH OF CRACK.
CONM0032
CONM0033
RESULT(19,N)
MOMENT INCREMENT, OR CURRENT INNER STRAIN
THRUST INCREMENT, OR CURRENT OUTER STRAIN
CONM0034
RESULT(20,N)
PSTRNI(N)
INNER WALL STRAIN OF PREVIOUS CONVERGED STEP .
CONM0035
PSTRNO(N) ~ OUTER WALL STRAIN OF PREVIOUS CONVERGED STEP .
CONM0036
CONM0037
Uncornment this statement in all program modules for double
CONM0038
precision version. SCM 3-10-90
CONM0039
CONM0040
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
CONM0041
CONM0042
Revise pipe dimension statements from 30 to 99 .
CONM0043
CONM0044
SCM
5-22-89
CONM0045
DIMENSION ASI(NPPT),ASO(NPPT),TBI(NPPT),TBO(NPPT),RESULT(20,NPPT),CONM0046
X PIPMAT(5,NPMAT) ,STNMAT(5) ,PSTRNI(99),PSTRNO(99),PTV(99),FE (11), CONM0047
X CMOM(99),CTHR(99)
CONM0048
CONM0049
COMMON IPEDROI STSMAX(30,11),STNMAX(30,11),SM1,SM2,SM3,PCE2,FTC, CONM0050
X FYC,FCC,FSY,SM5,PTSN(30,2),PTSS(30,2)
CONM0051
DATA LIMIT,TOLERl,TOLER2/3,0.01,0.031
CONM0052
CONM0053
SET OUTER LOOP CONVERGENCE CODE, (FOR ITERATIONS WITHIN LOAD STEP)CONM0054
CONM0055
CONM0056
ICON
CONM0057
BEGIN NODE LOOP TO CONSIDER EACH NODE INDIVIDUALLY
CONM0058
CONM0059
CONM0060
DO 100 N~l,NPPT
CONM0061
IF(NOLIT.GT.O) GO TO 81
CONM0062
CDELM~O.O
CONM0063
CDELN~O.O
CONM0064
GO TO 92
CONM0065
CDELM~CMOM(N)
CONM0066
CDELN~CTHR(N)
CONM0067
CONTINUE
CONM0068
IF(PDIA.LT.O.O) PT~PTV(N)
CONM0069
PA ~ RESULT(14,N)
CONM0070
PI ~ RESULT(15,N)
CONM0071
YBAR ~ RESULT(16,N)
CONM0072
DELM ~ RESULT(19,N) + CDELM
CONM0073
DELN ~ RESULT(20,N) + CDELN
PDENOM
C
C
C
C
C
C
C
C
C
C
C
32
33
31
29
27
34
C
C
C
PSTRNO(N)-PSTRNI(N)
CONM0074
CONM0075
DETERMINE DISTANCE TO CENTER OF REBARS AND SET INNER LOOP COUNTER.CONM0076
CONM0077
YTI ~ TBI (N)
CONM0078
YTO - PT-TBO (N)
CONM0079
NTIMES - 0
CONM0080
CONM0081
BEGIN INNER LOOP ... DETERMINE INNER AND OUTER STRAINS OF PIPE.
CONM0082
CONM0083
THETA = DELM/(PI*PCE)
CONM0084
STNORM ~ DELN/(PA*PCE)
CONM0085
STRNI = STNORM + THETA*YBAR + PSTRNI(N)
CONM0086
STRNO = STNORM + THETA*(YBAR-PT) + PSTRNO(N)
CONM0087
IF (DELM .EQ. 0.0 .AND. DELN .EQ. 0.0) GO TO 99
CONM0088
DENOM = STRNO - STRNI
CONM0089
IF(DENOM.EQ.O.O) DENOM~0.OOOOl*STNMAT(2)
CONM0090
STRNEG~STRNI
CONM0091
IF(STRNEG.GT.STRNO)STRNEG~STRNO
CONM0092
CONM0093
DETERMINE FE(I) AT INTEGRATION POINTS
CONM0094
CONM0095
NINT=10
CONM0096
NINTP=l1
CONM0097
DY=PT/FLOAT(NINT)
CONM0098
YY~O.O
CONM0099
DO 135 I~l,NINTP
CONM0100
PSTAIN=PSTRNI(N)+PDENOM*YY/PT
CONM0101
CONM0102
SET MAX. VALUE OF STRESS AND STRAIN AT EACH POINT
CONMOI03
CONM0104
SSM=-ABS(STSMAX(N,I))
CONMOI05
SNM~STNMAX(N,I)
CONM0106
IF(NOLIT.GT.O) GO TO 34
CONM0107
IF(PSTAIN.GT.SNM) GO TO 27
CONM0108
IF(PSTAIN.LT.SNM) STNMAX(N,I)~PSTAIN
CONM0109
IF(SNM.LT.SM3)GO TO 33
CONMOllO
IF(SNM.LT.SM2)GO TO 32
CONMOlll
PSTESS~(PSTAIN-SNM)*PCE+SSM
CONM01l2
IF(PSTESS.GT.FYC) GO TO 31
CONMOl13
PSTESS=(PSTAIN-SM2) *PCE2+(SM2-SNM) *PCE+SSM
CONM01l4
IF(PSTESS.GT.FCC) GO TO 31
CONM01l5
GO TO 33
CONM01l6
PSTESS=(PSTAIN-SNM)*PCE2+SSM
CONMO 11 7
IF(PSTESS.GT.FCC)GO TO 31
CONM0118
PSTESS~FCC+(PSTAIN-SM3)*0.OOOOl
CONM0119
IF(PSTESS.LT.SSM .AND. STSMAX(N,I) .LT.O.O) GO TO 29
CONM0120
IF(PSTESS.LT.SSM) STSMAX(N,I)~-PSTESS
CONM012 1
GO TO 34
CONM0122
STSMAX(N,I)~PSTESS
CONM0123
GO TO 34
CONM0124
PSTESS~(PSTAIN-SNM)'PCE + SSM
CONM0125
IF (PSTESS .GT. FTC) STSMAX (N, I) =ABS (STSMAX (N, I) )
CONM0126
IF(PSTESS.GT.O.O .AND. STSMAX(N,I) .GT.O.O) STSMAX(N,I)~ABS(STSMAX(CONM0127
XN,I))
CONM0128
FE(I)~1.0
CONM0129
ICK~l
CONM0130
IF(STSMAX(N,I) .GT.O.O) ICK~O
CONM0131
CONM0132
COMPUTE STRAINS OF THE POINT YY
CONM0133
CONM0134
STAIN~STRNI+DENOM*YY/PT
CONM0135
IF(NONLIN.LT.2) GO TO 43
CONM0136
C
C
C
SNM-STNMAX(N, I)
C
C
IF(STAIN.LT.PSTAIN) GO TO 36
IF(SSM.LT.FYC) GO TO 37
STESS~(STAIN-SM2)*PCE+FYC
37
38
GO TO 38
STESS=(STAIN-SNM)*PCE+SSM
IF(STESS.GT.O . O .AND. ICK.EQ . O) FE(I)=O.O
IF(STESS.GT.FTC) FE(I)=O.O
IF(I . EQ.l) STSIN~STESS
IF(I . EQ.NINTP) STSOU~STESS
PSTESS=(PSTAIN-SNM)*PCE + SSM
FSl=PSTESS
IF(FSl.GT.FTC) FSl=O.O
IF(FSl.GT.O.O .AND. ICK.EQ . O) FSl=O.O
GO TO 35
36
...+>-
IF(STAIN.GT.SNM) GO TO 44
IF(SNM.LT.SM3) GO TO 39
IF(SNM.LT.SM2) GO TO 40
STESS-(STAIN-SNM)*PCE+SSM
IF(STESS.GT.FYC) GO TO 41
STESS~(STAIN-SM2)*PCE2+(SM2-SNM)*PCE.SSM
\0
41
40
39
IF(STESS.GT.FCC) GO TO 41
STESS=FCC+(STAIN-SM3) *0.00001
PSTESS-(PSTAIN-SNM)*PCE+SSM
GO TO 42
STESS=(STAIN-SNM)*PCE2+SSM
IF(STESS.GT.FCC) GO TO 41
STESS=(SM3-SNM)*PCE2+(STAIN-SM3)*0 . 00001+SSM
GO TO 41
STESS~(STAIN-SM3)*0.00001+FCC
GO TO 41
44
45
42
STESS~(STAIN-SNM)*PCE+SSM
IF(I.EQ.NINTP) STSOU~STESS
IF(PSTESS.GT.FTC) FSl~O.O
IF(PSTESS.GT.O.O .AND. ICK.EQ . O)
FEl=(SNM*PCE-SSM+FSl)/PCE
FSl~O.O
FE2~STAIN
43
FS2-STESS
FE(I)=((FS2-FSl)/(FE2-FEl* (FEZ-FEI)/(FE2-PSTAIN)
FE(I)-FE(I)/PCE
IF(FE(I) .LT.O.OOOOOOl) FE(I)=O.OOOOOOI
GO TO 35
IF(STAIN.GT.SMl) FE(I)=O.O
IF(STAIN.GT.O.O .AND. ICK.EQ.O) FE(I)=O.O
CONM0137
CONM0138
CONM0139
CONM014 0
CONM014 1
CONM0142
CONM0143
CONM0144
CONM0145
CONM0146
CONM0147
CONM0148
CONM0149
CONM0150
CONM0151
CONM0152
CONM0153
CONM0154
CONM0155
CONM0156
CONM0157
CONM0158
CONM0159
CONM0160
CONM0161
CONM0162
CONM0163
CONM0164
CONM0165
CONM0166
CONM0167
CONM0168
CONM0169
CONM0170
CONMOI71
CONMOln
CONMOI73
CONM0174
CONM0175
CONM0176
CONM0177
CONM0178
CONM0179
CONM0180
CONM0181
CONM0182
CONM0183
CONM0184
CONM0185
CONM0186
CONM0187
CONM0188
CONM0189
CONM0190
CONM0191
CONMOI92
CONM0193
CONM0194
CONM0195
CONM0196
CONM0197
CONM0198
CONM0199
35
IF(FE(I) .EQ.O.O)
CONTINUE
C
C
STSMAX(N,I)~ABS(STSMAX(N,I
IF(I.GT.l) GO TO 12
C
C
C
10
IF(FE(I).GT.O . O) ICRK-l
KV=O
IF(ICRK.EQ.l) GO TO 10
HI=O.O
STSHI=STESS
GO TO 135
HF=O.O
STSHF~STESS
12
C
C
GO TO 135
IF(KV.EQ.l) GO TO 135
IF(ICRK.GT.O) GO TO 13
IF(FE(I) .EQ.O . O) GO TO 14
HF= (I-I) *DY
STSHF-STESS
SLIM=FTC
IF(STSMAX(N,I) .GT.O.O) SLIM=O.O
HK=HI+((SLIM-STSHI)/(STSHF-STSHI*DY
XKD=HK
Yl=HK
Y2=PT
KV=l
WE KNOW
XKD
AND
HK
14
13
C
C
C
16
135
19
GO TO 135
HI=(I-I)*DY
STSHI=STESS
GO TO 135
IF(FE(I) .GT.O.O) GO TO 16
HI-(I-l)*DY
STSHI=STESS
SLIM=FTC
IM1=I-l
IF(STSMAX(N,IMl) .GT.O.O) SLIM-O.O
HK=HI-((SLIM-STSHI)/(STSHF-STSHI*DY
XKD=PT-HK
n=o .0
Y2=HK
KV-l
WE KNOW
XKD
AND
HK
GO TO 135
HF=(I-1)*DY
STSHF-STESS
YY-YY+DY
IF(KV.EQ.O .AND. ICRK.EQ.l) GO TO 18
IF(KV.EQ.O .AND. ICRK.EQ.O) GO TO 19
GO TO 20
XKD=PT
HK=PT
naHK
Y2=PT
CONM0200
CONM0201
CONM0202
CONM0203
CONM0204
CONM0205
CONM0206
CONM0207
CONM0208
CONM0209
CONM0210
CONM0211
CONM0212
CONM0213
CONM0214
CONM0215
CONM0216
CONM0217
CONM0218
CONM0219
CONM0220
CONM0221
CONM0222
CONM0223
CONM0224
CONM0225
CONM0226
CONM0227
CONM0228
CONM0229
CONM0230
CONM0231
CONM0232
CONM0233
CONM0234
CONM0235
CONM0236
CONM0237
CONM0238
CONM0239
CONM0240
CONM0241
CONM0242
CONM0243
CONM0244
CONM0245
CONM0246
CONM0247
CONM0248
CONM0249
CONM0250
CONM0251
CONM0252
CONM0253
CONM0254
CONM0255
CONM0256
CONM0257
CONM0258
CONM0259
CONM0260
CONM0261
CONM0262
GO TO 20
18
XKD~O.O
20
HK-O.O
Yl=O.O
Y2-HK
CONTINUE
C
C
IF(NOLIT.GT.O) GO TO 60
C
C
C
61
62
60
..VI
C
C
64
65
66
67
68
69
63
TSSI=(TSN1-PTSN(N,l))*PSE+PTSS(N,l)
TSSO-(TSNO-PTSN(N,2))*PSE+PTSS(N,2)
IF (ABS (TSSI J . LE. FSY) GO TO 64
TSSI=TSS1*FSY/ABS(TSSI)
1F(ABS(TSSO) .LE.FSY) GO TO 65
TSSO=TSSO*FSY/ABS(TSSO)
DFSTSI-ABS(TSSI-PTSS(N,l))
IF(DFSTSI.GT . O.OOOI .OR. ABS(TSSI) .LT.FSY) GO TO 66
I'ISI=O.O
GO TO 67
WSI=(TSSI-PTSS(N,1))/(TSNI-PTSN(N,1))
WSI=WS1/PSE
DFSTSO=ABS(TSSO-PTSS(N,2))
IF(DFSTSO.GT.0.0001 .OR. ABS(TSSOJ .LT.FSY) GO TO 68
WS<PO.O
GO TO 69
WSo-(TSSO-PTSS(N,2)J/(TSNO-PTSN(N,2))
WSO=WSO/PSE
CONTINUE
IF(WSI.LT.O.OOOOOOI) WSI=0.0000001
IF(WSO.LT.0.0000001) WSO=O.OOOOOOl
CONTINUE
APN1 = ASI(N)*PNI*WSI
APNO = ASO(N)*PNO*WSO
C
C
CONM0263
CONM0264
CONM0265
CONM0266
CONM0267
CONM0268
CONM0269
CONM0270
CONM0271
CONM0272
CONM0273
CONM0274
CONM0275
CONM0276
CONM0277
CONM0278
CONM0279
CONM0280
CONM0281
CONM0282
CONM0283
CONM0264
CONM0265
CONM0266
CONM0287
CONM026B
CONM0269
CONM0290
CONM0291
CONM0292
CONM0293
CONM0294
CONM0295
CONM0296
CONM0297
CONM0296
CONM0299
CONM0300
CONM0301
CONM0302
CONM0303
CONM0304
CONM0305
CONM0306
CONM0307
CONM0306
CONM0309
CONM0310
CONM0311
CONM0312
CONM0313
CONM0314
CONM0315
CONM0316
CONM0317
CONM0316
CONM0319
CONMO 32 0
CONM0321
CONM0322
CONM0323
CONM0324
CONM0325
55
SUM1=0.0
SUM2=0.0
SUM3-0.0
yy=O.O
DO 55 I=1,NINT,2
12-H1
13-1+2
SUM1=FE(I)+4.0FE(I2)+FE(I3)+SUM1
YYl=H
YY2=YY+DY
YY3=YY+2.0*DY
SUM2=FE(I)*YYl+4.0*FE(I2)*YY2+FE(I3)*YY3+SUM2
SUM3=FE(I)*YYl**2+4.0*FE(I2)*YY2**2+FE{I3)*YY3*Z+SUM3
YY=YY3
C
C
PAP=PA
PA-DY*SUMl/3.0+APNI+APNO
YBAR={DY*SUM2/3.0+APNI*YTI+APNO*YTO)/PA
PI-(DY/3.0) * (SUM3-2.0*YBAR*SUMZ+YBAR*YBAR*SUMI)
PI=PI+APNI* (YTI-YBAR) **2+APNO* (YTO-YBAR)'*2
PAMIN=O.OOOOl*PT
PIMIN=O.OOOOl*PT
IF(PA.LT.PAMIN)PA=PAMIN
IF(PI.LT.PIMIN)PIapIMIN
C
C
C
C
C
C
C
C
C
50
137
138
CONM0326
CONM03Z7
CONM0328
CONM0329
CONM0330
CONM0331
CONM0332
CONM0333
CONM0334
CONM0335
CONM0336
CONM0337
CONM0338
CONM0339
CONM0340
CONM0341
CONM0342
CONM0343
CONM0344
CONM0345
CONM0346
CONM0347
CONM0348
CONM0349
CONM0350
CONM0351
CONM0352
CONM0353
CONM0354
CONM0355
CONM0356
CONM0357
CONM0358
CONM0359
CONM0360
CONM0361
CONM0362
CONM0363
CONM0364
CONM0365
CONM0366
CONM0367
CONM0368
CONM0369
CONM0370
CONM0371
CONM0372
CONM0373
CONM0374
CONM0375
CONM0376
CONM0377
CONM0378
CONM0379
CONM0380
CONM038 1
CONM038Z
CONM0383
CONM0384
CONM0385
CONM0386
CONM0387
CONM0388
HDY~DY
136
C
C
C
If(l.EQ.I) HDY-DY/2.0
If(I . EQ.NINTP) HDY-DY/2.0
HYY-YY
IF(I.EQ.I) HYY-HDY
If(I.EQ.NINTP) HYY-YY-DY/2.0
CORRN-PSTESS*HDY+CORRN
CORRM-PSTESS'HDY'(YBAR-HYY)+CORRM
YY-YY+DY
CMOM(N)=CORRM
CTHR(N)=CORRN
CHECK fOR CONVERGENCE OF LOAD STEP LOOP . THAT IS, FOR ITERATIONS
WITHIN THE LOAD STEP , THE MOMENT AND THRUSTS WILL CONVERGE WHEN
THE MATERIAL PROPERTIES HAVE CONVERGED .
ERROR - ABS(YBAR-RESULT(16,N/PT
IF(ERROR . GT.TOLER2) ICON = 0
ERROR - ABS(PA-RESULT(14,N iPT
If(ERROR.GT.TOLER2) ICON= 0
If(NOLIT.EQ.O .AND. ABS(CMOM(N .GT.O.O) ICON=O
IF(NOLIT.EQ.O .AND. ABS(CTHR(N . GT.O.O) ICON-O
C
C
C
----
C
C
C
PA
PI
YBAR
Ul
C
C
C
C
C
57
SHAREA- PT-(PT-YTO+YTl)/2.0
RESULT(13,N)~RESULT(7,N)/SHAREA
C
C
TB=O.O
IF(ASI(N) .LE.O.O) GO TO 70
IF(TS.GT.TSSI) GO TO 70
TS =TSSI
TB~TBI(N)
70
72
73
GO TO 72
IF(ASO(N) .LE.O.O) GO TO 71
IF(ASO(N) .LE.O.O) GO TO 73
IF(TS.GT.TSSO) GO TO 73
TS=TSSO
TB=TBO(N)
CRWD- (.091'1.34'(TS-5000.0)'(2.0*TB'TB*SL ) **0.333)/I000000 . 0
CONM0389
CONM0390
CONM0391
CONM0392
CONM0393
CONM0394
CONM0395
CONM0396
CONM0397
CONM0398
CONM0399
CONM0400
CONM0401
CONM0402
CONM0403
CONM0404
CONM0405
CONM0406
CONM0407
CONM0408
CONM0409
CONM0410
CONM0411
CONM0412
CONM0413
CONM0414
CONM0415
CONM0416
CONM0417
CONM041B
CONM0419
CONM0420
CONM0421
CONM0422
CONM0423
CONM0424
CONM0425
CONM0426
CONM0427
CONM0428
CONM0429
CONM0430
CONM0431
CONM0432
CONM0433
CONM0434
CONM0435
CONM0436
CONM0437
CONM043B
CONM0439
CONM0440
CONM0441
CONM0442
CONM0443
CONM0444
CONM0445
CONM04 4 6
CONM04 47
CONM0448
CONM0449
CONM0450
CONM0451
CONM0452
CONM0453
CONM0454
CONM0455
74
CONM0456
C
CONM0457
SAVE INNER AND OUTER STRAINS AND CRACK LENGTH
C
CONM0458
C
RESULT (18,N) = XKD
CONM0459
99 CONTINUE
CONM0460
CONM0461
RESULT(19,N) - STRNI
RESULT(20,N)
STRNO
CONM0462
CONTINUE
CONM0463
100
CONM0464
C
AVERAGE PIPE PROPERTIES AT ELEMENT CENTERS fOR INPUT TO SOLUTIONS CONM0465
C
CONM0466
C
DO 150 N=I,NPMAT
CONM0467
CONM0468
N1 - N+l
IF(Nl.GT.NPPT) Nl ~ 1
CONM0469
CONMOnO
PIPMAT(3,N)
0 . 5*(RESULT(14,N)+RESULT(14,Nl
CONM0471
PIPMAT(4,N) - 0 . 5*(RESULT(15,N)+RESULT(15,Nl
150
CONM0472
C
CONM0473
RETURN
CONMOn4
C
C"
FORMATS
CONM0475
C
CONMOn6
END
CONMO 47 7
71
IF(CRWD.LT.O . O) CRWD=O.O
GO TO 74
CRWD-O . O
RESULT (17,N)=CRWD
* * ... ... .. .. .. ... .. .. .. .. ... .,. ... .. ... .. ... .. ... .. * ...
It-
..
...
..
..
..
...
CONVOOD}
CONV0002
CONV0003
CONV0004
CONV0005
.............
.,..
....
.,..
....
.,..
....
"
........
.,..
..
ft
.,..
.,..
tr
..........
... CONY0006
CONV0007
SUBROUTINE CONVT(Dl,D2)
CONV0008
THIS SUBROUTINE EXPRESSES ISOTROPIC PROPERTIES IN ANISOTROPIC FORMCONV0009
CONVOOI0
CONVOOll
Uncomment this statement in all program modules for double
precision version. SCM 3-10-90
CONV0012
CONV0013
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
CONV0014
CONVOOt5
COMMON lMATERLI CP{3,3),DEN(10),E(10,10),GNU(10,10),H(10,10),
CONV0016
CONV0017
1
ITYPE(10),NON(10)
DO 10 I
I, 3
CONV0018
DO 10 K - I, 3
CONV0019
10 CP(I,K) = 0.0
CONV0020
IF(D2 . EQ . 0 . 5)D2~.49S
CONV002I
CP(3,3)-Dl*0 . 5/(1.0+D2)
CONV0022
DI-Dl/1.0+02)'(1 . 0-2.0*D2
CONV0023
CP(I,2)-D2*D1
CONV0024
CP(2,l)-CP{1.2)
CONV002 5
Dl~Dl'(1.0-D2)
CONV0026
CP(I,l)-Dt
CONV0027
CP{2,2)-Dl
CONV0028
RETURN
CONV0029
END
CONV0030
CANDE-89 (C)ULVERT {AN)ALYSIS AND (DE)SIGN PROGRAM
VERSION 1.0, MARCH 1990
PUBLIC DOMAIN SOFTWARE CONTRIBUTED BY
THE FEDERAL HIGHWAY ADMINISTRATION
C
C
C
.. .. .. * .. ..
ft
..
..
..
..
..
..
..
..
..
.,..
.,..
..
..
..
ft
...
..
SUBROUTINE DUNCAN{ST,STHARD,NEL,ICON,ITER,MN,NELEM,IA)
.,..
DUNC0002
DUNC0003
DUNC0004
DUNCOOOS
DUNC0006
DUNC0007
C
C
C
C
9-29-88
SCM 3-18-89
STHARD(l,NEL)~TANGENT
STHARD(2,NEL)~TANGENT
C
C
......
VI
C
C
tv
C
C
C
C
C
C
C
C
C
Convergence flag.
SCM
-1.0 (Not converged)
1. 0 (Converged)
3-11-89
STHARD(5,NEL)~TANGENT
STHARD(6,NEL)~TANGENT
-ST(4,NEL)
-ST(s,NEL)
ST(6,NEL)
C
C
B2-STHARD(6,NEL)
Bl=B2
STHARD(2,NEL)=B1
DUNC0008
DUNC0009
DUNC0010
DUNCOOll
DUNC0012
DUNC0013
DUNC0014
DUNCOOlS
DUNC0016
DUNC0017
DUNC0018
DUNC0019
DUNC0020
DUNC0021
DUNC0022
DUNC0023
DUNC0024
DUNC0025
DUNC0026
DUNC0027
DUNC0028
DUNC0029
DUNC0030
DUNC0031
DUNC0032
DUNC0033
DUNC0034
DUNC003S
DUNC0036
DUNC0037
DUNC0038
DUNC0039
DUNC0040
DUNC0041
DUNC0042
DUNC0043
DUNC0044
DUNC0045
DUNC0046
DUNC0047
DUNC0048
DUNC0049
DUNC0050
DUNCOOS1
DUNCOOS2
DUNCOOS3
DUNCOOS4
DUNC0055
DUNC0056
DUNC0057
DUNCOOS8
DUNC0059
DUNC0060
DUNC0061
DUNC0062
DUNC0063
DUNC0064
DUNC006S
DUNC0066
DUNC0067
DUNC0068
DUNC0069
DUNC0070
C
C
C
IF(E1.NE.0.0) GO TO S
POISI ~ VT(MN)
IF(POIS1.EQ.0.0) POIS1 = 0.33
S3 - o. l'PATM
51 ~ S3*(1.0-POISl)/POISI
C
C
IF(ITER.EQ.1) GO TO 10
E1
STHARD(1,NEL)
B1 - STHARD(2,NEL)
C
C
C
10
O.S
IF(El.EQ.O.O) WTE
RATIO(MN)
WTP = O.S
IF(El.EQ.O.O) WTP
RATIO(MN)
liTE -
S3PA=S3/PATM
IF(S3PA.LT.0.l) S3PA=0.1
C
C
C
c
COMPUTE YOUNGS TANGENT MODULUS E2, THEN ETNEW
C
C
XS3-PATM*S3PA
Revise intrinsic function to generic. form.
PHI
SCM 3-10-90
E2A~E2/3.0
E2B=E2*8.0
C
C
DUNC0071
DUNC0072
DUNC0073
DUNC0014
DUNCOO?S
DUNC0076
DUNC0077
DUNCOO?8
DUNC0019
DUNC0080
DUNC0081
DUNC0082
DUNC0083
DUNC0084
DUNC0085
DUNC0086
DUNC0087
DUNC0088
DUNC0089
DUNC0090
DUNC0091
DUNC0092
DUNC0093
DUNC0094
DUNC009s
DUNC0096
DUNC0097
DUNC0098
DUNC0099
DUNC0100
DUNCOI0l
DUNCOI02
DUNCOI03
DUNCOI04
DUNCOIOS
DUNC0106
DUNCOI0?
DUNCOI08
DUNCOI09
DUNCOllO
DUNCOlll
DUNC0112
DUNCO 11 3
DUNCO 11 4
DUNCOl1s
DUNCOll6
DUNCOlll
DUNC01l8
DUNC01l9
DUNC0120
DUNC0121
DUNC0122
DUNC0123
DUNC0124
DUNC0125
DUNC0126
DUNC0127
DUNC0128
DUNC0129
DUNC0130
DUNC0131
DUNC0132
DUNC0133
c
EZP
STHARD(5,NEL)
IF(ITER.GT.Z) EZ
O.50*EZ + O.50*EZP
STHARD(5,NEL) = E2
ETCHEK = (E2 -E2P)/E2
DUNC0134
DUNC0135
DUNC0136
DUNC0l37
DUNC0138
DUNC0139
DUNC0140
DUNCOl41
DUNC014Z
DUNCOl43
DUNC0144
DUNC0145
DUNC0146
DUNC0147
DUNC0148
**********************************************************************DUNC0149
IF(VT(MN).GT.O.O) GO TO 30
B2=BK(MN)*PATM*S3PA**BM(MN)
IF(B2.LT.E2A) B2=E2A
IF(B2.GT.E2B) B2=E2B
IF POISSONS RATIO
.......
Vl
Vol
E2A
E2B
DUNC0150
DUNC0151
DUNC0152
DUNC0153
DUNC0154
DUNC0155
DUNC0156
DUNC0157
DUNC0158
DUNC0159
DUNC0160
DUNC0161
DUNC0162
DUNC0163
DUNC0164
DUNC0165
DUNC0166
DUNC0167
DUNC0168
DUNC0169
DUNC0l70
DUNCOl71
DUNCOl72
DUNC0173
DUNC0l74
DUNC0l75
DUNC0176
DUNCOl77
DUNC0178
DUNC0179
DUNC0180
DUNC0181
DUNC0182
DUNC0183
DUNC0184
DUNC018S
DUNC0186
DUNC0187
DUNC0188
IF(ITER.GT.2) B2
STHARD(6,NEL)
B2P
STHARD(6,NEL)
DUNC0190
DUNC0191
DUNC0192
DUNC0193
DUNC0194
DUNC0195
DUNC0196
B2
30 ETNEW=(1.0-WTE)*E1+WTE*EZ
IF(VT(MN).GT.O.O) GO TO 40
BNEW=(1.0-WTP)*B1+WTP*B2
C
C
C
C
C
40 PNEW=VT(MN)
8NEW=ETNEW/(3.0-6.0*PNEW)
Revise logic to force iteration if arbitrary
converged.
elemen~
SCM 3-10-89
50 IF(ABS(ETCHEK).GT.TOLER) THEN
STHARD(4,NEL) = -1.0
ELSE
STHARD(4,NEL)
1.0
END IF
DO 55, NNEL=l,NELEM
IF(STHARD(4,NNEL) .LT.O.O) ICON
55
CONTINUE
IF(ITER.EQ.1) ICON = 0
JCON = ICON
IF(IABS(NON(MN)) .GT.MAXIT) MAXIT = IABS(NON(MN))
IF(ITER.GE.IABS(NON(MN))) ICON = 1
Calculate stress level. MGK 2-16-89
SLEV < -1.0; Tension failure,
(Complete)
~**~************************************************** ******************DUNC0189
C
C
0.50*B2 + 0.50*B2P
CHOD
ETNEW
has not
DUNC0197
DUNCOl98
DUNCOl99
DUNCOZOO
DUNCOZ01
DUNC0202
DUNC0203
DUNC0204
DUNCOZ05
DUNC0206
DUNC0207
DUNC0208
DUNCOZ09
DUNC02l0
DUNC0211
DUNC021Z
DUNC02l3
DUNC0214
DUNC02l5
DUNC0216
DUNC02l7
DUNCOZl8
DUNCOZl9
DUNC0220
DUNC0221
DUNCOZ22
DUNC02Z3
DUNC0224
DUNC0225
DUNC0226
DUNC0227
DUNC0228
DUNC0229
DUNC0230
DUNC0231
DUNC023Z
DUNC0233
DUNC0234
DUNC0235
DUNC0236
DUNC0237
DUNC0238
DUNC0239
DUNC0240
DUNC0241
DUNC0242
DUNC0243
DUNC0244
DUNC0245
DUNC0246
DUNC0247
DUNC0248
DUNC0249
DUNC0250
DUNC0251
DUNC0252
DUNC0253
DUNC0254
DUNC0255
DUNCOZ56
DUNCOZ57
DUNC0258
DUNCOZ59
DUNC0260
DUNC0261
DUNC0262
MATNO
MN
DUNC0263
DUNC0264
C
DUNC0265
PRINT-OUT RECORD 0, NONLINEAR I-IODULI (NON(MN) .LT.O)
C
DUNC0266
C
DUNC0267
Revise unit numbers, variables and formats for soil modulus
DUNC0268
output. SCI-I 1-9-89
DUNC0269
DUNC0270
IF(IWRT.LE.1) GO TO 100
DUNC0271
IF(ITXX.NE.ITER) WRITE(16,6000) IA,ITER
DUNC0272
IF(ITXX.NE.ITER) WRITE(16,6020)
DUNC0273
DUNC0274
ITXX = ITER
DUNC0275
DUNC0276
WRITE(16,6030) NEL,MATNO,KTYPE,JCON,ETCHEK,SLEV,
DUNC0277
X
ETNEW, BNEW, PNEW, CMOD
DUNC0278
DUNC0279
100 CONTINUE
DUNC0280
RETURN
DUNC0281
C
DUNC0282
C
FORMATS
DUNC0283
C
DUNC0284
DUNC0285
6000 FORMAT(lHl,II,6X,23HCONSTRUCTION INCREMENT ,I2,5X,
DUNC0286
X
10HITERATION ,12)
PARAMETERS,
DUNC0287
6020 FORMAT(lHO,15x, 47H' ELASTIC MODULI AND CONVERGENCE
DUNC0288
X28H FOR DUNCAN SUBROUTINE' , ',I
X22X,69H(CONVERGENCE ERRORS (ERROR-EMOD) ARE RATIOS GIVEN BY, (NEW-DUNC0289
DUNC0290
XOLD)/NEW),I
DUNC0291
X22X,42HK-TYPE = 1
DUNCAN POWER LAW BULK MODULUS,
DUNC0292
X10X,45HSTRESS-LEV <= -1.0 ; COMPLETE TENSION ,AlLURE, I
DUNC0293
X22X,42HK-TYPE = 2 ; SELIG HYPERBOLIC BULK MODULUS,
DUNC0294
XlOX, 34HSTRESS-LEV >= +1.0 ; SHEAR FAILURE,I
DUNC0295
X22X,37HK-TYPE = 3 ; CONSTANT POISSON'S RATIO,II
DUNC0296
X3X,5HELE-N,4X,5HMAT-N,4X,6HK-TYPE,4X,4HICON,4X,
DUNC0297
XlOHERROR-EMOD,4X,10HSTRESS-LEV,4X,10HYOUNGS-MOD,6X,BHBULK-MOD,
DUNC0298
X4X,10HPOIS-RATIO,4X,12HCONFINED-MOD,II)
DUNC0299
6030 FORMAT(3X,I4,5X,I4,7X,I2,7X,I2,5X,F10.4,4X,F10.4,2X,E12.5,
DUNC0300
X
2X,E12.5,7X,F5.3,6X,E12.5)
DUNC0301
DUNC0302
END
. * * ** ** ..
** *~ . * * * * * * . * ** ** ...... EI-IODOOOI
EI-IOD0002
CANDE-89 (C)ULVERT (AN)ALYSIS AND (DE)SIGN PROGRAM
mOD0003
VERSION 1.0, MARCH 1990
mOD0004
PUBLIC DOMAIN SOFTWARE CONTRIBUTED BY
EI-IOD0005
THE FEDERAL HIGHWAY ADMINISTRATION
mOD0006
_ ... * . * * * * * * * * * * * * * * * * " , * * ... * * * * * *
EI-IOD0007
SUBROUTINE EMOD (IA,ICON,NPMAT,NPPT,PA,PEl,PE2,PESUM,PI,
EI-IOD0008
1
PIPMAT,PNU,PS,PYIELD,RESULT,ICOME)
EI-IOD0009
C
EI-IOD0010
THIS
ROUTINE
DETERMINES
NONLINEAR BENDING PROPERTIES FOR A
C
EI-IOD0011
HOMOGENOUS MATERIAL WITH A BILINEAR STREES-STRAIN CURVE. THE
C
EI-IOD0012
FOLLOWING RESULT MATRIX IS IDENTIFIED ...
C
EI-IOD0013
C
EI-IOD0014
BENDING STRESS IN OUTER FIBER
RESULT(lO,N)
C
EI-IOD0015
THRUST
STRESS
(AVERAGE
OVER
SECTION)
RESULT (11, N)
C
EI-IOD0016
SHEAR STRESS (AVERAGE OVER SECTION)
RESULT(12,N)
C
EI-IOD0017
RESULT(13,N) - FRACTION OF SECTION YIELDED
C
EMOD0018
MODIFIED THRUST AREA (PASTAR)
RESULT (14, N)
C
EI-IOD0019
MODIFIED MOMENT OF INERTIA (PISTAR)
RESULT(15,N)
C
EMOD0020
DISTANCE TO BENDING AXIS (YBAR)
RESULT (16, N)
C
CALL CONVT(CI-IOD,PNEW)
.v-.
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
'*.
5
C
C
C
10
YEI = YTl
YE2 - YT2
NTIMES - 0
Revise moment summation logic.
MGK
2-19-89
C
C
C
20
C
C
.......
25
VI
VI
C
C
C
30
IF(DIFFl.EO.O.O) THEN
IITl - 0.0
ELSE
SCM
12-14-89
EMOD0084
EMODOOSS
EMOD0086
EMODOOB7
EMOD0088
EMOD0089
EMOD0090
EMOD0091
EM000092
EMOD0093
EMOD0094
EMOD0095
EMOD0096
EMOD0097
EMOD0098
EMOD0099
EMOD0100
EMODOIOI
EMODOI02
EMODOI03
EMODOl04
EMODOI05
EMODOI06
EMODOI07
EMODOI08
EMODOI09
EMODO 11 0
EMODOlll
EMOD01l2
EMOD01l3
EMOD01l4
EMOD01l5
EMOD01l6
EMOD01l7
EMODO 11 8
EMOD01l9
EMOD0120
EMOD0121
EMODOl22
EMOD0123
EMODOl24
EMODOl2S
EMODOl26
EMOD0127
EMOD0128
EMOD0129
EMOD0130
EMOD0l31
EMOD0l32
EMOD0l33
EMODOl34
EMODOl35
EMOD0136
EMOD0137
EMOD0138
EMOD0139
EMOD0140
EMOD0141
EMOD0142
EMODOl43
EMOD0144
EMOD0l45
EMOD0146
= 0.0
1.0
YAVG2 = (YE2+YT2)/2.0
EPMAX2 - ABS(STANITDENOM*YAVG2/YTOP)
EPMIN2 = ABS(PSTRNI(N)+PDENOM*YAVG2/YTOP)
DIFF2 - ABS(EPMAX2-EPMIN2)
Add logic to avoid division by zero.
SCM
12-14-89
IF(DIF'2.EO.0.0) THEN
WT2 = 0.0
ELSE
WT2 D (EPSY-EPMIN2+RATIO*(EPMAX2-EPSY)/DIFF2
END IF
IF(WT2.LT.0.0) WT2 - 0 .0
IF(WT2.GT.l.0) WT2
1. 0
C
C
C
PAPR= PASTAR
PASTAR - (YE2-YEl) + RATIO*(YTOP-YT2+YTl)
PASTAR D PAS TAR + WTl*(YE1-YTl) + WT2*(YT2-YE2)
PASTAR = PASTAR*PA/YTOP
C
C
IF(PASTAR.LE.O.O) GO TO 40
YBAR - (YE2**2-YEI**2) + RATIO* (YTOP**2-YT2'*2 + YTI**2)
YBAR
YBAR + WT1*(YEl**2-YTl**2) + WT2*(YT2**2-YE2**2)
YBAR
YBAR*PA/ (2. *YTOP*PASTAR)
C
C
YEBI ~ (YEI-YBAR)**3
YEB2
(YE2-YBAR) **3
YTBl - (YTI-YBAR)**3
YTB2
(YT2-YBAR)"3
YTOPB - (YTOP-YBAR)**3
PISTAR ~ (YEB2-YEB1) + RATIO*(YTOPB-YTB2+YTBI+ YBAR*'3)
PISTAR = PISTAR + WTl'(YEBI-YTBl) + WT2*(YTB2-YEB2)
PISTAR ~ PISTAR*PA/ (3. *YTOP)
C
C
40
45
C
C
C
GO TO 45
PASTAR - PA*RATIO
YEAR = YTOPI2.0
PISTAR - PI*RATIO
CONTINUE
CHECK INNER LOOP EXIT CONDITIONS
NTIMES = NTIMES + 1
IF (NTIMES .GT. 10) GO TO 50
ERR = ABS(PASTAR-PAPR)/PASTAR
IF(ERR.LT.TOLER) GO TO 50
GO TO 20
EMOD0147
EMOD0148
EMOD0149
EMODOI50
EMODOI5I
EMOD0152
EMODOI53
EMODOl54
EMODOl55
EMODOI56
EMOD0157
EMODOI58
EMODOI59
EMODO 16 0
EMODOI6I
EMODOl62
EMODOI63
EMODOI64
EMOD0165
EMOD0166
EMOD0167
EMOD0168
EMODOI69
EMOD0l70
EMODOI71
EMODOl72
EMOD0l73
EMOD0l74
EMOD0l75
EMOD0l76
EMOD0l77
EMOD0l78
EMOD0l79
EMOD0180
EMODOl81
EMOD0182
EMODOI83
EMOD0184
EMOD0185
EMODOl86
EMOD0187
EMOD0188
EMODOI89
EMOD0190
EMOD019I
EMODOI92
EMODOI93
EMOD0194
E:MODOI95
EMOD0196
EMODOI97
EMOD0198
EMODOI99
EMOD0200
EMOD020I
EMOD0202
EMOD0203
EMOD0204
EMOD0205
EMOD0206
EMOD0207
EMOD0208
EMOD0209
C
C
C
C
50
ERROR - ABS(PASTAR-RESULT(14,N))/PASTAR
ERRSUM ~ ERRSUM + ERROR
60
C
C
C
C
C
C
RESULT(14,N)
PASTAR
RESULT(15,N)
PISTAR
RESULT(16,N)
YBAR
RESULT(19,N)
STRNI
RESULT(20,N)
STRNO
YEPR(3,N) ~ YE1
YEPR(4,N) = YE2
COMPUTE NONLINEAR CHARACTERISTICS (PRINTED OUT ON CONVERGENCE)
(I) FRACTION OF SECTION YIELDED
(21 BENDING STRESS ABOVE YIELD STRESS (AVERAGE)
(3) MAXIMUM FIBER STRAIN/YIELD STRAIN
ELAST = (YE2-YEl)/YTOP
IF(ELAST.GT.0.999) ELAST
RESULT(13,N) = 1.-ELAST
........
Vl
1.0
RESULT(11,N) = 0.0
DSTRN = O.S*ABS(STRNO-STRNI)-EPSY
IF(DSTRN.GT.O.O) RESULT(17,N) - DSTRN*PSE2
C
Revise intrinsic function to generic form.
0\
SCM 3-10-90
STNMAX = MAX(ABS(STRNI),ABS(STRNO))
RESULT(18,N)
C
100
C
C
C
STNMAX/EPSY
CONTINUE
CHECK ON OUTER LOOP CONVERGENCE
IF (ERRSUM.LT.TOLER) ICON= -1
IF(ICON.GT.LIMIT) WRITE(6,6500) ERRSUM
IFIICON.GT.LIMIT .AND. ERRSUM.LE.O.l) ICON = -1
IFIICON.GT.LIMIT .AND. ERRSUM.GT . 0.1) ICON=-2
C
C
150
PESUM = 0.0
DO 150 N~l, NPMAT
Nl = N+l
IF(N1.GT.NPPT) Nl = 1
PIPMAT(3,N) = 0.S*IRESULT(14,N)+RESULT(14,Nl))
PIPMAT(4,N) = 0.S*(RESULT(lS,N)+RESULT(15,Nl))
PESUM ~ PESUM + PIPMAT(4,N)
XMAT = NPMAT
PESUM = PESUM*PEl/(XMAT*PI)
RETURN
EMOD0210
EMOD0211
EMOD0212
EMOD0213
EMOD0214
EMOD0215
EMOD0216
EMOD0211
EMOD0218
EMOD0219
EMOD0220
EMOD0221
EMOD0222
EMOD0223
EMOD0224
EMOD0225
EMOD0226
EMOD0221
EMOD0228
EMOD0229
EMOD0230
EMOD0231
EMOD0232
EMOD0233
EMOD0234
EMOD023S
EMOD0236
EMOD0237
EMOD0238
EMOD0239
EMOD0240
EMOD0241
EMOD0242
EMOD0243
EMOD0244
EMOD0245
EMOD0246
EMOD0241
EMOD0248
EMOD0249
EMOD0250
EMOD02S1
EMOD02S2
EMOD02S3
EMOD02S4
EMOD025S
EMOD02S6
EMOD025?
EMOD0258
EMOD0259
EMOD0260
EMOD0261
EMOD0262
EMOD0263
EMOD0264
EMOD0265
EMOD0266
EMOD0267
EMOD0268
EMOD0269
EMOD0210
EMOD0211
EMOD0212
EMOD0273
EMOD0274
EMOD0275
C
EMOD0276
200 DO 115 N=l,NPPT
EMOD0211
EMOD0278
Save accumulated moment correction. MGK
2-19-89
EMOD0219
EMOD0280
XMOMPR(N)
XMOMPR(N) + DELNM(N)
EMOD0281
EMOD0282
PSTRNI(N)
RESULT(19,N)
EMOD0283
PSTRNO(N) ~ RESULT(20,N)
EMOD0284
YEPR(l,N)
YEPR(3,N)
EMOD0285
YEPR(4,N)
YEPR(2,N)
115
EMOD0286
C
EMOD0287
RETURN TO PIPE SUBROUTINE
C
EMOD0288
C
EMOD0289
RETURN
EMOD0290
C
EMOD0291
EMOD0292
Revise wording of message to include "PIPE WALL" to avoid
EMOD0293
confusion with other nonlinear models. SCM 3-18-89
EMOD0294
6500 FORMAT(lHl,111158(2H *)111112H NONLINEAR PIPE WALL MODULUS DID NOTEMOD0295
X CONVERGE, SOLUTION WILL CONTINUE WITH A RATIO OF ERROR IN THE MODEMOD0296
XULU5 OF
,E15.511161H IF ERROR RATIO IS LE5S THAN 0.1, SOLUTIONEMOD0291
X MAY BE ACCEPTABLE
11158(2H *))
EMOD0298
END
EMOD0299
* * * * * + * * * * * * * ESTBOOOl
CANDE-89 (ClULVERT (AN)ALY5IS AND (DE)SIGN PROGRAM
E5TB0002
VERSION 1. 0, MARCH 1990
ESTB0003
PUBLIC DOMAIN SOFTWARE CONTRIBUTED BY
ESTB0004
THE FEDERAL HIGHWAY ADMINISTRATION
E5TB0005
* * * * * * * * * * * * * * * * ESTB0006
SUBROUTINE ESTAB
ESTB0001
ESTB0008
C
ESTB0009
TRANSFORMATION RELATIONSHIPS BETWEEN ELEMENT AND SUB-ELEMENT
C
E5TB0010
UNKNOWNS
ESTABLISHED
C
ESTB0011
ESTB0012
Uncomrnent this statement in all program modules for double
ESTB0013
precision version. SCM 3-10-90
ESTB0014
ESTB0015
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
E5TB0016
ESTB0017
COMMON IELEMNTI AS(3),BS(3),Cl(17,11l,EST(4,3l,RQ(4),RT(3l,
ESTB0018
1
STORE(11), Z4 (12), ZQ(4), ZT(3), ZY(17), Jl,RO
ESTB0019
COMMON IESTABLI ITRW(28,2l,NETCL(11,2),T(28,2)
ESTB0020
DO 55 1=1,2
ESTB0021
DO 50 J=l,28
ESTB0022
ITRWIJ,I)~l
ESTB0023
50 T(J,I)=1.0
EST80024
DO 55 J=l,l1
ESTB0025
55 NETCL(J,I)=l
E5TB0026
DO 57 I~l,3
E5TB0021
ITRW(I+ 8,1)-1+6
ESTB0028
ITRW(I+12,l)=I+9
E5TB0029
ITRW(I+18,l)~I+6
EST80030
ITRW(I+21,ll=I+9
ESTB0031
ITRW(I+24,l)=I+6
ESTB0032
ITRW(I+ 9,2)=1+6
EST80033
ITRW(I+13,2)=I+9
ESTB0034
ITRW(I+19,2)-I+9
ESTB0035
ITRWII+22,2)=I+6
E5TB0036
57 ITRW(I+25,2l=I+9
C
C
SECOND ENTRY,
ESTB0037
EST80038
EST80039
E5T80040
ESTB0041
ESTB0042
ESTB0043
ESTBOOH
ESTB0045
EST80046
ESTB0047
ESTB0048
EST80049
EST800S0
ESTBOOS1
ESTBOOS2
E5TB0053
ESTBOOS4
ESTB0055
ESTBOOS6
ESTBOOS7
ESTBOOS8
ESTBOOS9
ESTB0060
ESTB0061
ESTB0062
ESTB0063
ESTB0064
ESTB0065
ESTB0066
ESTB0067
ESTB0068
ESTB0069
ESTB0070
. . . . . . . . . . . * . . . . . . . . * " ** . .. GENLOOOI
GENL0002
CANDE-89 (C)ULVERT (AN)ALYSIS AND (DE)SIGN PROGRAM
GENL0003
VERSION 1 . 0, MARCH 1990
GENL0004
PUBLIC DOMAIN SOFTWARE CONTRIBUTED BY
GENL0005
THE FEDERAL HIGHWAY ADMINISTRATION
* * . " * . 1 r * * ***"
GENL0006
GENL0007
SUBROUTINE GENEL (NOD, LGEN, NUMNP, NUMEL, MAXEL, KPUTCK,
GENL0008
MGENPR, MBAND, LSTOP, LUPREP)
GENL0009
GENL0010
Uncomment this statement in all program modules for double
GENLOOl!
precision version. SCM 3-10-90
GENL0012
GENL0013
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
GENL0014
GENL0015
DIMENSION NOD (LSTOP, 1) , LGEN(4,l)
GENL0016
DIMENSION IX(7),KINDLG(3),ETYPE(5)
GENL0017
DATA ETYPE/4HQUAD,4HTRI.,4HBEAM,4HFACE,4HBAD
DATA L1H, I1H, NIH, IBLANK, M1H/1HL,lHI,1HN,1H ,1HM/
GENL001B
GENL0019
GENL0020
INITIALIZE PARAMETERS, READ AND CHECK ELEMENT CARDS
GENL002l
GENL0022
IF (MGENPR .GE. 2) WRITE (6,600S)
GENL0023
MAXEL = NUMEL
GENL0024
LIMIT - 0
GENL0025
MBAND = 0
GENL0026
NUMEL - 0
GENL0027
MPRIOR ~ 1
GENL002B
IPRIOR - 1
GENL0029
JPRlOR = 0
NETCL( 9,1)=3
NETCL (11,1) =3
NETCL(15,1)=6
NETCL(16,l)=3
NETCL (10, 2 ) =3
NETCL (12,2) =3
NETCL(16,2)=3
NETCL(17,2)-6
ITRW (2,1) =4
ITRW(3,1) =2
ITRW(4,l) =5
ITRW(7,l) - 3
ITRW(B,1)=6
ITRW(17,l)-7
ITRW (lB, 1) - 10
T(5,1)-0.0
T(6,1)=0 . 0
T(12,1)=0 . 0
T(16,l) -0. 0
T(28,1)=0.0
ITRW(3,2) =2
ITRW(4,2) =S
ITRW(5,2)-3
ITRW (6,2) =6
ITRW(B,2) =4
ITRW(17 , 2)=9
ITRW (18,2)=12
T(l,2) - 0 . 0
T(2,2)=0 . 0
T( 9,2) - 0.0
T(13,2) - 0 . 0
T(19,2)=0.0
RETURN
END
......
VI
'-l
C"
C
DO 20 NE = l,MAXEL
20 LGEN(1,NE) = 0
40 IF (LIMIT . EQ. L1H) RETURN
READ (LUPREP,S015) LIMIT, NE, (IX(K), K = 1,7), KINDLG
IF (NE . LE. NUMEL .OR . NE .GT. MAXEL) GO TO 520
IF (NUMEL .EQ. 0 .AND. (NE .NE. 1 .OR . IX(l) .EQ. 0)) GO TO 540
C
C"
C
C
C"
60 INTRAL
KINDLG(1)
NUMLAY - KINDLG(2)
INTERL
KINDLG(3)
IF (INTRAL .EQ. 0) INTRAL = 1
IF (NUMLAY .LE. 1) GO TO 80
LINLAY - (NE-LPRIOR +NUMLAY-l)/ NUMLAY
C
C"
80 NUMEL = NUMEL +1
IF (NE .GT. NUMEL) GO TO 140
C
C"
KGEN = IlH
IF (IX(S) + IX(6)+IX(7) .EQ. 0) KGEN = N1H
IF (IX(S) .EQ. 0) IX(S) = MPRIOR
IF (lX(6) .EQ. 0) IX(6)
IPRlOR
IF (IX(7) .EO. 0) IX(7) = JPRIOR
MPRIOR = IX (5)
IPRIOR = IX(6)
JPRIOR - IX(7)
LPRIOR = NUMEL
C
C"
MB = 0
DO 120 K - 1,4
DO 120 L = K,4
IF (IX(K) .EQ. 0 .OR. IX(L) .EO. 0) GO TO 120
M = lABS (IX (K) -IX (L) )
IF (M .GT. MB) MB = M
120 CONTINUE
NDF = 2
IF(IX(3) .EO.O) NDF = 3
MB - NDF' (MB+ 1)
IF (MB . GT. MBAND) MBAND
MB
C
C"
DO 130 K = l,LSTOP
130 NOD(K,NE) = IX(K)
GO TO 170
C
. NE.
GENL0030
GENL0031
GENL0032
GENL0033
GENL0034
GENL0035
GENL0036
GENL0037
GENL0038
GENL0039
GENL0040
GENL0041
GENL0042
GENL0043
GENL0044
GENL0045
GENL0046
GENL0047
GENL0048
GENL0049
GENL0050
GENLOOSl
GENL0052
GENL0053
GENL0054
GENL0055
GENL0056
GENL0057
GENL0058
GENLOOS9
GENL0060
GENL0061
GENL0062
GENL0063
GENL0064
GENL006S
GENL0066
GENL0067
GENL0068
GENL0069
GENL0070
GENL0071
GENL0072
GENL0073
GENL0074
GENL0075
GENL0076
GENL0077
GENL0078
GENL0079
GENL0060
GENL0081
GENL0082
GENL0083
GENL0084
GENL008S
GENL0066
GENL0087
GENLOOB8
GENL0089
GENL0090
GENL0091
GENL0092
GENL0093
GENL0094
GENL0095
140 KGEN = IBLANK
GENL0096
DO 150 K ~ 1,4
GENL0097
NOD (K,NUMEL) = NOD(K,NUMEL-1) +INTRAL
GENL0098
IF (NUMLAY .LE. 11 GO TO 145
GENL0099
IF (MOD (NUMEL-LPRIOR,LINLAY) .NE. 0) GO TO 145
GENL0100
NOD (K,NUMEL) = NOD(K,LPRIOR) + INTERL*(NUMEL-LPRIOR)/LINLAY
GENL0101
145 CONTINUE
GENL0102
IF (NOD(K,NUMEL) .LT. 0 .OR. NOD(K,NUMEL) .GT. NUMNP) GO TO 580
GENL0103
150 IF (NOD(K,NUMEL-1) .EQ. 0) NOD (K,NUMEL) = 0
GENL0104
C
GENLOl05
C*MAKE MATERIAL CHANGE fOR GENERATED ELEMENTS WHERE SPECIFIED
GENLOl06
C
GENLOl07
IF (LGEN(l,NUMEL) .NE. NUMEL) GO TO 160
GENLOlOB
IF (LGEN(2,NUMEL) .GT. 0) MPRIOR = LGEN(2,NUMEL)
GENLOl09
IF (LGEN(3,NUMEL) .GT. 0) IPRIOR = LGEN(3,NUMEL)
GENL0110
IF (LGEN(4,NUMEL) .GT. 0) JPRIOR - LGEN(4,NUMEL)
GENL0111
KGEN z M1H
GENL0112
160 NOD(5,NUMEL) : MPRIOR
GENL0113
NOD (6,NUMEL)
IPRIOR
GENLO 11 4
NOD (7,NUMEL)
JPRIOR
GENL0115
C
GENL01l6
PRINT ELEMENT DATA
C
GENLOll1
GENL011B
170 IF (MGENPR .LT . 2) GO TO 190
ELM - ETYPE(5)
GENL0119
IF(NOD(4,NUMEL) .NE.O) ELM - ETYPE(l)
GENL0120
IF(NOD(4,NUMEL) .EQ.O) ELM = ETYPE(2)
GENL0121
IF(NOD(3,NUMEL).EQ.0) ELM = ETYPE(3)
GENL0122
IF(NOD(l,NUMEL) .NE.O) ELM = ETYPE(4)
GENLOl23
IF (KGEN.EQ.I1H.OR.KGEN.EQ.NIH)WRITE(6,6015) KGEN,NUMEL,
GENLOl24
1
(NOD (K, NUMELI ,K:l, 6) , ELM, MS, (KINDLG (K) ,K~l, 3)
GENL0125
IF (KGEN .EQ. IBLANK . OR. KGEN .EQ. MIH) WRITE(6,6015) KGEN,NUMEL,GENL0126
1
(NOD(K,NUMEL),K=l,6),ELM
GENL0121
190 IF (NE .EO. NUMEL) GO TO 40
GENL012B
GO TO 80
GENL0129
C
GENL0130
GENL0131
C.*
WRITE ERROR MESSAGES FOR ELEMENT INPUT
GENL0132
C
GENL0133
520 WRITE (6,6025)
GENL0134
GO TO 600
GENL0135
540 WRITE (6,6030)
GENL0136
GO TO 600
GENL0131
560 WRITE (6,6035)
GENL0138
GO TO 600
GENL0139
580 WRITE (6,6040)
GENL014 0
600 MB = 0
GENL0141
ELM = ETYPE (5)
GENL0142
WRITE (6,6015) KGEN, NE, (IX (K) ,K=l, 6) ,ELM, MS, (KINDLG (K) ,K=l, 3)
GENL0143
KPUTCK - KPUTCK +1
GENL0144
GO TO 40
5015 FORMAT (AI, 14, 1015)
GENL0145
6005 FORMAT (122HIELEMENT
NODAL CONNECTIVITY
MATERIAL
CONSTR. GENL0146
1
ELEMENT
BAND
WITHIN LAYER
NUMBER OF
BETWEEN LAYGENL0141
2ERI 120H NUMBER
J
K
L
NUMBER
INCR.
GENL0148
3 TYPE
WIDTH
NODE INCR.
ELEMENT LAYERS
NODE INCR.)
GENL0149
6010 FORMAT ( 71HOWARNING ONLY.
THE LAST ELEMENT LAYER OF THE FOLLOWIGENL0150
lNG GENERATION HAS ,IS, 52H ELEMENTS WHILE THE NUMBER OF ELEMENTSGENL0151
2 IN ALAYER IS ,15/)
GENL0152
6015 FORMAT(lX,Al,I4,I10,315,I7,I11, 7X,A4,Il1,I10,2I17)
GENL0153
6025 FORMAT ( 78HOFATAL DATA ERROR ON FOLLOWING ELEMENT CARD.
ELEMENGENL0154
IT NUMBER IS OUT OF BOUNDS/)
GENL0155
C"
...-.
VI
00
GENERATE AN ELEMENT
GENN0057
GENN0058
GENN0059
GENN0060
C
GENN0061
C
LOOP OVER ELEMENTS TO ESTABLISH MISSING NODAL COORDINATES
GENN0062
C
GENN0063
DO 50 NE ~ l,NUMEL
GENN0064
LIMIT = 4
GENN0065
IF (NOD(4,NE) .EQ. 0) LIMIT
3
GENN0066
IF (NOD(3,NE) .EQ. 0) LIMIT
2
GENN0067
DO 40 K ~ I,LIMIT
GENN0068
NNP = NOD(K,NE)
GENN0069
IF (NODTYP(NNP) .GT. 6 .OR. NODTYP(NNP) .LE. 0) GO TO 40
GENN0070
IF (NODTYP(NNP) .EQ. 1) NODTYP(NNP) = 6
GENN0071
L = K-l
GENN0072
IF (K.EQ.l) L = LIMIT
GENN0073
NNPBAC = NOD(L,NE)
GENN0074
L=K+l
GENN0075
IF ( K .EQ. LIMIT) LeI
GENN0076
NNPFOR = NOD(L,NE)
GENN0077
XYGEN(I,NNP)
XYGEN(I,NNP) +X(NNPFOR) +X(NNPBAC)
GENN0078
XYGEN(2,NNP)
XYGEN(2,NNP) +Y(NNPFOR) +Y(NNPBAC)
GENN0079
XYGEN(3,NNP) = XYGEN(3,NNP) +2.0
GENN0080
40 CONTINUE
GENN008l
50 CONTINUE
GENN0082
DO 60 NNP = I, NUMNP
GENN0083
IF (NODTYP(NNP) .GT. 6 .OR. NODTYP(NNP) .EQ. 1) GO TO 60
GENN0084
XPRIOR = X (NNP)
GENN008S
YPRIOR = Y(NNP)
IF (NODTYP(NNP)/2 .NE. 2) X(NNP) e XYGEN(I,NNP)/XYGEN(3,NNP)
GENN0086
GENN0087
IF (NODTYP(NNP)/2 .NE. 1) Y(NNP) = XYGEN(2,NNP)/XYGEN(3,NNP)
GENN0088
BETA
= ABSX(NNP)-XPRIOR)/(ABS(XPRIOR)+1.E-20
GENN0089
1
+ABSY(NNP)-YPRIOR)/ (ABS(YPRIOR) +1.E-20
GENN0090
GENN0091
Revise intrinsic function to generic form.
SCM 3-10-90
GENN0092
GENN0093
FACTOR = MAX(FACTOR, BETA)
GENN0094
GENN009S
60 CONTINUE
GENN0096
IF (FACTOR .LE. 0.0001) GO TO 80
GENN0097
70 CONTINUE
GENN0098
NM = NMISNG
GENN0099
80 WRITE(6,6005) NM,NMISNG,FACTOR
GENNOI00
C
GENNOlOI
SET BOUNDARY CONDITION FOR OMITTED NODES
C"
GENNOl02
C
GENNOl03
220 DO 240 NNP = l,NUMNP
GENNOl04
IF (NODTYP(NNP) .NE. 1) GO TO 230
GENNOlOS
X(NNP) - 0 . 0
GENNOl06
Y(NNP) = 0.0
GENNOl07
KODE (NNP) = 3
GENNOl08
CONTINUE
230
GENNOl09
240 CONTINUE
GENNOllO
IF (MGENPR . LT. 3) GO TO 260
GENNOlll
WRITE(6,60l0)
GENNO 11 2
DO 250 NNP = I, NUMNP
GENN0113
K =NODTYP (NNP)
GENN0114
WRITE(6,6020)
NNP,X(NNP)
,Y(NNP),NAMEG(K)
,NAMEG(K+ll),NAMEG(K+22)
250
GENN01l5
260 CONTINUE
GENN0116
C
IF TRIANGLE, CHECK AREA AND RESTART LOOP GENN01l7
COMPUTE ELEMENT AREAS
C"
GENN0118
C
GENN01l9
DO 380 NE - l,NUMEL
DO 30 NNP = I, NUMNP
DO 30 K = 1,3
30 XYGEN(K,NNP) = 0.0
-"
VI
'0
GENNOI20
GENN0121
GENN0122
GENNOl23
GENNOl24
GENNOl25
GENN0126
GENNOIZ7
GENN0128
GENN0129
GENN0130
GENNOl3l
GENN0l32
GENN0l33
GENN0134
GENN0135
C
-AF(l, 4) -AF(2,1) +AF(2,4)
GENN0136
330 AREA(l)
AF(3,4) +AF(2,3) -AF(2,4)
GENN0137
AREA(2)
GENN0138
AREA(3) = AF(3,1) +AF(2,3) -AF(2,1)
GENN0139
AREA(4 )
-AF(l, 4) -AF(3,l) +AF(3, 4)
GENN0140
C
GENN014l
C"
CHECK FOR NEGATIVE AREAS OF QUAD SUB ELEMENTS
GENN0142
C
GENN0143
SIGN - 1.0
GENN0144
SIGNA = 1.0
GENN014S
IF (AREA(l) . LT. SAFE .OR. AREA(2) .LT. SAFE) SIGN = -SIGN
GENN0146
IF (AREA(3) .LT . SAFE .OR. AREA(4) .LT. SAFE) SIGNA = -SIGNA
GENNOl47
IF (SIGN .GT. 0.0 .OR. SIGNA .GT. 0 . 0) GO TO 340
GENN0148
WRITE (6,6025) NE, AREA
GENN0149
KPUTCK = KPUTCK +1
GENN0150
GO TO 380
C
GENNOl5l
C"
SWITCH ORIENTATION OF DIAGONAL OF QUAD IF PRODUCES BETTER ELEMENT GENNOlS2
GENNOl53
C
GENNOl54
340 L ~ 0
GENN0155
IF (SIGN' ABS(AREA(l) +AREA(Z .GT.
GENNOl56
SIGNA' ABS(AREA(3) +AREA(4 ) GO TO 360
GENNOl57
NOD(I,NE) = IX(4)
GENN0158
DO 350 K = 2,4
GENNOl59
350 NOD(K,NE) - IX(K-l)
L ~ 2
GENNOl60
GENN016l
360 IF (AREA(L+l) .GT. 10.'AREA(L+Z) .OR.
GENN0162
1
AREA(L+1) .LT. AREA(L+2)/10.) WRITE (6,6030) NE, AREA
GENNOI63
380 CONTINUE
GENN0164
C
CO.
SET FLAGS FOR OTHER THAN QUAD ELEMENTS
GENN0165
GENN0166
C
DO 400 NE = l,NUMEL
GENNOl67
GENNOl68
IF (NOD (3, NE) . EQ . 0) NOD (3, NE)
NOD(2, NE)
GENNOl69
400 IF (NOD(4,NE) . EQ. 0) NOD(4,NE) - NOD(3,NE)
GENNOl70
C
C"
CHECK MATERIAL DEFINITIONS, AND DETERMINE NUMBER OF MATERIALS.
GENN0l71
GENNOl72
C
GENN0173
DO 410 J=l, MAXMAT
GENN0174
410 NODTYP(J) = -1
GENN0175
NSMAT = 0
GENN0176
C
DO 450 NE=I,NUMEL
GENN0177
IF(NOD(2,NE).EQ.NOD(3,NE GO TO 450
GENN0178
GENN0179
IF(NOD(7,NE).NE.0) GO TO 450
GENNOI80
MAT = NOD(S,NE)
GENNOIBI
C
GENN0182
DO 440 J=l,MAXMAT
IF (NOD(3,NE) .EQ. 0) GO TO 380
IF(NOD(7,NE).NE.0) GO TO 380
LIMIT = 4
IF (NOD(4,NE) . EQ. 0) LIMIT =
DO 320 L = I,LIMIT
K = NOD (L, NE)
IX(L) = K
XX(L) = X(K)
320 YY(L) = Y(K)
IF (LIMIT .EQ . 4) GO TO 330
AREA(l) = AF(3,1) +AF(2,3) -AF(2,1)
IF(AREA(l) .GT.SAFE) GO TO 380
WRITE(6,6025) NE,AREA(l)
KPUTCK = KPUTCK + 1
GO TO 380
IF(MAT.EQ.NODTP(J GO TO 450
440 CONTINUE
NSMAT = NSMAT +
NODTYP(NSMATI = MAT
450 CONTINUE
IF (NSMAT .GT .MAXMAT) WRITE (6, 6035) NSMAT ,MAXMAT
C
C
C
Revise MAXMX
f~om
30 to 99.
SCM
10-25-89
MAXMX = 99
460
DO 460 J=l,MAXMX
NODTYP(JI - -1
DO 410 NE=l,NUMEL
IF(NOD(1,NEj . EQ.OI GO TO 470
NOD(1,NEI - 1
MATX = NOD(S,NEI
IF(MATX.GT.O . AND. MATX.LE.MAXMXI GO TO 466
WRITE(6,6050) NE
KPUTCK = KPUTCK T
C
466
4 67
......
0'\
47 0
DO 467 J=l,MAXMX
IF(MATX.EQ.NODTYP(J)) GO TO 470
CONTI NUE
NXMAT - NXMAT + 1
NODTYP(NXMAT) = MATX
CONTI NUE
BOUNDARY CONDITIONS
PI = 0.0
LIMIT ~ IBLANK
IF(MGENPR.GE . 2) WRITE(6,915)
I-I
180 IF (LIMIT .EQ . LIH) GO TO 195
READ (LUPREP,5005) LIMIT, KK, (IIFLG(N), BIVD(N), N - 1,2),
1
TH, lA, KKP, INCR, PJ, PK
IF (I .GT. MAXBC) GO TO 193
NMIS=O
IF(KKP .EQ. O)GO TO 182
IF(INCR .EQ. 0) INCR=l
NM=(KKP-KK)/INCR
NMIS=IABS (NM)
INCR=INCR*NM/NMIS
182 IF(IA .EQ. 0) IA=l
NM=l+NMIS
DP=PK-PJ
IF(NMIS .EQ. 0) GO TO 185
M=KK
XL=O.O
DO 183 L=l, NMIS
MP=M
M=M+INCR
183 XL=SQRTX(M)-X(MP) 1**2+(Y(M)-Y(MP) )**2)+XL
OP=OP/XL
185 OXB=O.O
OYB=O.O
00 190 L=1. NM
GENN0183
GENN0184
GENN0185
GENN0186
GENN0187
GENN0188
GENN0189
GENN0190
GENN0191
GENN0192
GENN0193
GENN0194
GENN0195
GENN0196
GENN0197
GENN0198
GENN0199
GENN0200
GENN0201
GENN0202
GENN0203
GENN0204
GENN0205
GENN0206
GENN0207
GENN0208
GENN0209
GENN0210
GENN0211
GENN0212
GENN0213
GENN0214
GENN0215
GENN0216
GENN0217
GENN0218
GENN0219
GENN0220
GENN0221
GENN0222
GENN0223
GENN0224
GENN0225
GENN0226
GENN0227
GENN0228
GENN0229
GENN0230
GENN0231
GENN0232
GENN0233
GENN0234
GENN0235
GENN0236
GENN0237
GENN0238
GENN0239
GENN0240
GENN0241
GENN0242
GENN0243
GENN0244
GENN0245
GENN0246
GENN0247
GENN0248
GENN0249
GENN0250
GENN0251
GENN0252
GENN0253
GENN0254
GENN0255
GENN0256
GENN0257
GENN0258
GENN0259
GENN0260
GENN0261
GENN0262
GENN0263
GENN0264
MGK 3-18-89
Add extended boundary condition definition.
GENN0265
GENN0266
IF (IIFLG(J) . EQ. 21 AN(J) - ANI(2)
GENN0267
IF (IIFLG(J) .EQ. 3) AN(J) - ANI(l)
GENN0268
GENN0269
187 CONTINUE
GENN0270
GENN0271
Extend boundary condition output for rotational constraints .
GENN0212
SCM
10-25-89
GENN0273
GENN0274
IF(IIFLG(1) .EQ.O .AND. IIFLG(2) .EO.O) THEN
GENN0275
AN(3) = RBC(l)
GENN0276
ELSE IF(IIFLG(l) .EQ . 2 .AND. IIFLG(2) .EQ.O) THEN
GENN0277
AN (3) = RBC (1)
GENN0278
ELSE IF(IIFLG(I) .EQ.O .AND . IIFLG(2) .EQ.2) THEN
GENN0279
AN(3) = RBC(l)
GENN0280
ELSE IF(IIFLG(l) .EQ . 2 .AND. IIFLG(2) .EQ.21 THEN
GENN0281
AN(3) = RBC(I)
GENN0282
ELSE
GENN0283
AN(3) = RBC(2)
GENN0284
END IF
IF (MGENPR.GE. 2) WRITE (6, 906) KK, IA,AN( 1) ,BIV(l, I) ,AN (2), BIV(2, I I, GENN0285
GENN0286
X
BIV(3,I),AN(3)
GENN0281
GENN0288
KK=KK+INCR
GENN0289
BIV(3,I)-TH*0 . 0174533
GENN0290
190 IDI+l
GENN0291
GO TO 180
GENN0292
193 WRITE (6,6045)
GENN0293
KPUTCK ~ KPUTCK +1
GENN0294
195 NBPTC~I-l
GENN0295
C
RETURN
GENN0296
5005 FORMAT (A1,I4,I5,FI0.0,I5,2FI0.0,315 ,2FI0.0)
GENN0297
6005 FORMAT ( 38HlLAPLACE GENERATION HAS BEEN COMPLETED
GENN0298
1
40HONUMBER OF ITERATIONS ------------------,151
GENN0299
2
40HOMAXIMUM NUMBER OF ITERATIONS ALLOWED---, lSI
GENN0300
3
40HOLARGEST LAPLACE ERROR FACTOR---------- ,F15.6)
GENN0301
6010 FORMAT (61HINODE
X-COORDINATE
-COORDINATE
GENEGENN0302
lRATION 114H NUMBER
,37X,4HTPE)
GENN0303
6020 FORMAT (lX,I4,8X,E20.4,E15.4,3X,3A4)
GENN0304
6025 FORMAT ( 131HOFATAL DATA ERROR.
NEGATIVE AREA FOR ELEMENT NUMBERGENN0305
1
AREA OF TRIANGLES AS INPUT
AREA OF TRIANGLES USING ALTERNGENN0306
2ATE DIAGONALI
151. 8X,2E12.3, 13X,2E12.3)
GENN0307
6030 FORMAT ( 75HOWARNING ONLY.
THE AREA OF ONE SUB ELEMENT IS MUCH GENN0308
DXF=O.O
DF=O.O
IF(L .EQ. NM) GO TO 186
DXF=X(KK+INCR)-X(KK)
DYF=(KK+INCR)-Y(KK)
PK=PJ+DP*(SQRT(DXF*DXF+DYF*DYF
186 BIV(1,I)-BIVD(I)-(2.0*(DYF+DB)*PJ+DYB*PI+DYF*PK) / 6.0
BIV(2,I)=BIVD(2)+(2.0*(DXF+DXB) *PJ+DXB*PI+DXF*PK) 16.0
DXB-OXF
DYB=DYF
PI=PJ
PJ=PK
BIV(3, I) -TH
NODB(I)=KK*10000+IIFLG(1)*10+IIFLG(2) +IA*100
DO 187 J-l,2
IF (IIFLG(J) .EQ. 0) AN(J) = ANI(l)
IF (IIFLG(J) .EQ. II AN(J) = ANI(2)
..-.
0'1
..-.
If (SPACNG .EQ.
IF (LGTYPE .EQ.
IF (SPACNG .NE.
If (LGTYPE .EQ.
N = NN
DX = DX'SPACNG
120 DY ~ DY'SPACNG
GO TO 220
......
0\
1.0) NODTYP(NN) ~ a
1) NODTYP{NN) ~ NODTYP(NN) -6
1.0) NODTYP(NN) = 9
2) NODTYP(NN) = NODTYP(NN) -4
GENOOl07
GENOOIOa
GENOOI09
GENOOllO
GENOOlll
GENOOll2
GENOOll3
GENOOll4
C
GENOOll5
C"
GENERATE NODES ALONG AN ARC
GENOO1l6
C"
START BY FINDING COORDINATES OF CENTER OF CURVATURE
GENOOll7
C
GENOOllS
130 DX = X(NNP) -XPRIOR
GENOO1l9
DY = Y(NNP) -YPRIOR
GENOOl20
DL ~ SQRT (DX'DX +DY'DY)
GEN00121
RSIGN = SIGN(l.O, RADIUS)
GEN00122
RADIUS = ABS(RADIUS*1.00000l)
GENOOl23
GENOOl24
IF (DL/RADIUS/2.0 .GT. 1.0 .OR. DL .EQ. 0.0) GO TO 660
ASINfK = DL/RADIUS/2.0
GEN00125
THETA = 2.0'ATAN(1.0)-ATAN(ASINFK/SQRT(1.0-ASINFK"2
GENOOl26
PHI ~ ATAN2 (DY, DX)
GENOOln
ALPHA = PHI +RSIGN'THETA
GENOOl2S
XCENTR ~ XPRIOR +COS(ALPHA)*RADIUS
GENOOl29
YCENTR = YPRIOR +SIN(ALPHA)*RADIUS
GEN00130
C
GEN0013l
C"
SETUP GENERATION PARAMETERS AND GENERATE SPECIFIED NODES fOR ARC GEN00132
C
GEN00133
OMEGA = FACTOR' (4.0'ATAN(1.0) -2.0*THETA)
GEN00134
GEN0013S
BETA = ATAN2 (YPRIOR-YCENTR, XPRIOR-XCENTR)
GEN00136
DO 140 NM = 1,NMISNG
NN = NPRIOR +NPINCR'NM
GEN00137
GEN00138
If (MPRIOR .EQ. 5) NN = NODGEN{l,NM)
GEN00139
IF (NODTYP{NN) .NE. 1) GO TO 640
GEN0014 0
BETA = BETA +RSIGN'OMEGA
GEN0014 1
X(NN) = XCENTR +COS(BETA)'RADIUS
Y(NN) = YCENTR +SIN(BETA) 'RADIUS
GEN00142
GEN00143
If (MGENPR .GE. 3) CALL SAVEG (NODGEN, XYGEN, NUMGNP,
GEN00144
1
NN, -I, X(NN), Y(NN
GEN0014S
140 NODTYP(NN) = 10
GEN00146
GO TO 220
C
GEN00147
C"
GENERATE QUADRANTS OF AN ELLIPSE -ALWAYS GENERATE COUNTERCLOCKWISEGEN00148
e"
START BY FINDING CENTER COORDINATES AND ANGLE ALPHA
GEN00149
C
GENOOlSO
160 XAXIS = X(NNP) -X (NPRIOR)
GEN0015l
YAXIS = Y(NNP) -Y(NPRIOR)
GENOOlS2
XCENTR = X(NPRIOR)
GENOOlS3
YCENTR = Y(NNP)
GEN00154
IF (XAXIS'YAXIS .LT. 0.0) XCENTR = X(NNP)
GENOOISS
IF (XAXIS'YAXIS .LT. 0.0) YCENTR = Y(NPRIOR)
GENOOIS6
IF (XAXIS .LT. 0.0 .AND. YAXIS .GT. 0.0) ALPHA
0.0
GENOOIS7
IF (XAXIS .LT. 0.0 .AND. YAXIS .LT. 0.0) ALPHA = PI/2.0
GENOOlS8
IF (XAXIS .GT. 0.0 .AND. YAXIS .LT. 0.0) ALPHA = PI
GENOOIS9
IF (XAXIS .GT. 0.0 .AND. YAXIS .GT. 0.0) ALPHA = 3.0'PI/ 2.0
GENOOl60
GEN0016l
C
GEN00162
GENERATE NODES ALONG ELLIPSE CIRCUMFERENCE
C"
GEN00163
e
GENOOl64
DO 170 NM = 1,NMISNG
GEN0016S
NN = NPRIOR +NPINCR'NM
GEN00166
IF (MPRIOR .EQ. 5) NN = NODGEN(l,NM)
GEN00167
IF (NODTYP(NN) .NE. 1) GO TO 640
GEN00168
THETA = ALPHA +FLOAT{NM)'FACTOR*PI/ 2.0
X{NN) = 1.0/ SQRT { 1.0/XAXIS"2 +(TAN(THETA)/YAXIS)"2) +XCENTR GEN00169
C"
220 NPIUOI'. ~
)(PIUOR =
YPRIOR
NMlSNG
2)0 MERIOR
GO TO 20
NNP
X/NNP)
,({NNP)
MODEG
c
~ .
C
HO NMISNG = HMTSNG H
NODGEN (1. NMISNGJ IINP
GO TO 230
GEN00170
GENOOt7l
GENOO.L7Z
GEN0017]
GEN00174
GEN00115
GEN00176
GEN001 77
GEN0017S
GEN00179
GENO0 190
GEN00181
GENOOla2
GEN0018J
GEN00194
GEN00195
Gt:N00166
GEN00197
GEN00188
GENOOIB9
GE:N00190
GEN00191
GEN00192
Gt:NOQ 19 3
GEN001!)4
GENOOl95
GEN00196
GEN00197
GEN00198
GEII00199
GEtl00200
GEN00201
GEN00202
GE:N00203
GEN00204
GEN0020S
GEN00206
GEN00207
GEN0020a
GEN00209
GEN00210
GEN00211
GE"N002.12
GEN002 13
C'
WRITE ERROR MESSAGES FOR NODE Hl PUT AND NODES AS GENERATED LI.ST
C
520 ~RITE (6,6015)
i<PUTCK = Kl.'UTCK + 1
GO TO 220
540 WRITE (G.6020 )
KPUTCK - KEUTC~ ~ l
GO TO 220
560 ~lTE (6,60 25)
Kl.'UT<;K KPUTCK +1
GO TO 22Q
580 ~1T 16,6030)
KPa.CK KPUTCK +1
GO TO 220
600 WRITE (6 .6135)
KPUTCK ~ KPUTCK .1
GO TO 220
620 , WRITE 16,6040)
KPUTCK KPU1CK +1
GO TO 22 0
640 WRITE (6.6045) NN
KPOTCK - KPUTeK +1
C-O TO 220
660 WRITE (6,6050)
K~UICK ~ KPUTCK 1
GEN0021~
GO TO 220
GEN00215
BOO IF (MGENPR.GE.3) CALL S)WEG (NODGEN. XYG EN, NUHGNP, 0,0,0.0,0.0) GEN00216
RETURN
GEK00217
sello FORMAT ( At. H. IS. 2FlO.0 , IS. 5X, 2 nO.0 )
GEII0021B
6005 FORMAT ( 8ZH1I10DE
GENERA'I'IOII
X-COORDINATE
Y-CooRD]NJ\TE
GEN002 19
1 NOD E
SPA.CING
ARCI 16B NUMBER
MODE,39X ,301lINCREMGENOO:nO
ZENT
PAAAME:rER
RAD lt)S )
GEN0022 1
6010 FOlU-!AI In . ~9. E,1 9.L E1S.4,
19, flE.:l- .Fll.2 !
61::1100222
6015 E"QRMAT ( 7~ liOFATAL DATA ERROR ON ABOVE NODE CARD .
NODS POINT NUGEN00223
IMBER lS OUT OF BOONDS /)
GEN00224
6020 FOR!1AT ( 78HOFATAL DATA ERROR ON 'ABOVE NODE CARll.
a MODEG .GE . GEK00225
110. THEN RADIUS MUST - 0)
GN00226
6025 E"ORMP.T ( 125RO:'A'tAL DATil ERROR aU ABOVE NODE CARD.
A NODE HAS BEG"EN00221
lEII RECALLED 11.E . MOCEG - 1 OR 3) WKICH HAS NOT PREVIOUSLY BEEN DGEN00228
G"EN00229
2EE'INED /1
~030 FORMAT ( U7HOFAl'AL DF.TA ERROR ON ABOVE )JODE CAIID.
A NODE HAS BEGENOO2JO
lEN PRESCRIBED (MODEG ~ 0 OR 2) WHICH HAS PREVIOUSLY B&EN DE:FlNE:DI)GEN00231
THE NODE RELGEN0023 2
&135 rOm...T I 83HOFATAL DATA ERROR ON ABOVE NODAL CARD.
......
0\
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C**
C
C"
C
HARD0002
CANDE-89 (C)ULVERT (AN)ALYSIS AND (DE)SIGN PROGRAM
HARD0003
VERSION 1.0, MARCH 1990
HARD0004
PUBLIC DOMAIN SOFTWARE CONTRIBUTED BY
HARDOOOS
THE FEDERAL HIGHWAY ADMINISTRATION
*11
* * * * * * * * .. * * * * * .,. * HARDODD6
HARD0007
SUBROUTINE HARDIN (ST,STHARD,NEL,ICON,ITER,MN,NELEM)
HARD0008
THIS SUBROUTINE GENERATES AN INCREMENTAL PLAIN STRAIN
HARDOOD9
CONSTITUTIVE MATRIX BASED ON THE EXTENDED-HARDIN SOIL MODEL .
HARD0010
REFERENCE ... AFWL-TR-72-201, MARCH 1973, BY B. HARDIN.
HARDOOll
HARD0012
Uncomment this statement in all program modules for double
KARDOOl3
precision version. SCM 3-10-90
HARD0014
HARDD01S
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
HARD0016
HARD0017
HARD0018
DIMENSION ST(6,NELEM),STHARD(6,NELEM)
COMMON lMATERLI CP(3,3),DEN(10),E(10,10),GNU(10,10),H(10,10),
HARD0019
1
ITYPE(10),NON(10)
HARD0020
HARD0021
DATA TOLER 10.051
HARD0022
THE FOLLOWING VARIABLES ARE IDENTIFIED . .
HARD0023
HARD0024
NEL = ELEMENT NUMBER
HARD002S
MN = MATERIAL NUMBER
HARD0026
ITER - ITERATION NUMBER WITHIN LOAD STEP
HARD0027
ICON ~ CONVERGENCE CODE, 0 = NO, 1 = YES.
HARD0028
H(MN,l) - HARDIN SOIL PARAMETER, 1230*F
HARD0029
H(MN,2)
HARDIN SOIL PARAMETER, Cl
HARD0030
H(MN,3)
HARDIN SOIL PARAMETER, A
HARD0031
HARD0032
H(MN,4)
EXTENDED-HARDIN PARAMETER, MIN POISSON RATIO
H(MN,S)
EXTENDED-HARDIN PARAMETER, MAX POISSON RATIO
HARDDD33
HARD0034
H(MN,6) - EXTENDED HARDIN CURVE PARAMETER
ST(I,NEL) ~ STRAIN STATE. 1=1,2,3 (XX,YY,XY)
HARD003S
ST(I,NEL) = STRESS STATE. 1=4,5,6 (XX,YY,XY)
HARD0036
STHARD(l,NEL) = MAXIMUM SHEAR AT PREVIOUS LOAD STEP
HARD0037
STHARD(2,NEL) = MAXIMUM SHEAR STRAIN AT PREVIOUS LOAD STEP
HARD0038
STHARD(3,NEL) - AVERAGE PRESSURE AT THE PREVIOUS LOAD STEP
HARD0039
STHARD(4,NEL) = VOLUME CHANGE AT THE PREVIOUS LOAD STEP
HARD0040
STHARD(S,NEL)
SECANT SHEAR MODULUS AT LAST ITERATION STEP HARDOD4l
STHARD(6,NEL) - SECANT BULK MODULUS AT LAST ITERATION STEP
HARD0042
HARDOOn
RECOVER SYSTEM RESPONSES
HARD0044
HARD004S
AA ~ ST(1,NEL)'ST(4,NEL)-ST(2,NEL)'ST(S,NEL)
HARD0046
BB ~ ST(I,NEL)*ST(S,NEL) - ST(2,NEL)*ST(4,NEL)
HARDOOn
XNU2~ H(MN,4)
HARD004B
IF(BB.NE . O.O) XNU2= BB/(AA+BB)
HARDOD49
TEMP = ST(l,NEL) - ST(7,NEL)
HARDOOSO
GAMMA2 = SQRT(TEMP'*2+ST(3,NEL) **2)
HARDOOS1
TEMP
0.5* (ST(4,NEL) - ST(S,NEL)
HARDOOS2
TAU2 - SQRT(TEMP**2 +ST(6,NEL)**2)
HARD0053
SIGO = -(ST(4,NEL)+ST(S,NEL))*(I.+XNU2)/3.0
HARDOOS4
IF(SIGO.LE.O.O) SIGO=l . O
HARD005S
HARD0056
COMPUTE HARDIN VARIABLES
HARD0057
HARDOOS8
GMAX = H(MN,l)*SQRT(SIGO)
HARDOOS9
GAMMAR - GMAX/H(MN,2)
HARD0060
RATIO = GAMMAZ/GAMMAR
HARD0061
HARD0062
GAMMAP - H(MN,6)*RATIO
TERM = H(MN,3) / EXP(RATIOO . 4)
HARD0063
GAMMAH = RATIO' (1. + TERM)
HARD0064
HARD006S
HARD0066
HARD006?
c COMPUTE NEW SECANT SHEAR MODULUS
HARD0068
C
HARD0069
GNEW - GMAXI (1.+GAMMAH)
HARD0070
GOLD ~ STHARD(S,NEL)
HARDOOn
GCHECK ~ (GNEW-GOLD)/GNEW
HARD0072
GGUESS ~ GNEW
HARDOOB
STHARD(S,NEL) ~ GGUESS
HARDOOH
C
HARD007S
COMPUTE NEW SECANT BULK MODULUS
C"
Co.
HARD0076
(BULK MODULUS BASED ON HARDIN POISSON
HARD 0 077
RATIO AND SHEAR MODULUS)
C"
HARD0078
C
HARD0079
VNEW ~ (H(MN,4) +GllMMAP'H(MN,S/(1.+GAMMAP)
HARD0080
BNEW ~ 2./3.'GGUESS'(1.+VNEW)/(1.-2.*VNEW)
HARDOOBI
BOLD ~ STHARD(6,NEL)
HARD0082
BCHECK = (SNEW-BOLD)/BNEW
HARD0083
BGUESS - BNEW
HARDOOB4
STHARD(6,NEL) - BGUESS
HARD008S
C
HARD0086
Co.
COMPUTE CHORD VALUES FOR SHEAR AND BULK MODULI
HARD0087
C
HARD008B
GCORD ~ GGUESS
HARD0089
DGAMMA = GAMMA2 - STHARD(2,NEL)
HARD0090
IF (DGAMMA . NE. 0.0) GCORD~(GAMMA2'GGUESS-STHARD(l,NEL) )/DGAMMA
HARD009l
IF(GCORD.LE.O.O) GCORD = GGUESS
HARD0092
IF (GCORD .GT. GMAX) GCORD = GMAX
HARD0093
BCORD = BGUESS
HARD0094
DEKK ~ EKK - STHARD(4,NEL)
HARD009S
IF (DEKK .NE. 0.0) BCORD = (EKK*BGUESS-STHARD(3,NEL/DEKK
HARD0096
IF(BCORD.LE.O.O) BCORD ~ SGUESS
HARD0097
C
HARD009B
CO,
STORE PREVIOUSLY CONVERGED SOLUTION ON THE FIRST ITERATION
OF THE fOLLOWING LOAD STEP. (NOTE FIRST ITERATION IS PRIOR TO THE HARD0099
C"
HARDOlOO
APPLICATION OF LOADING)
C"
HARDOlOl
C
HARDOl02
IF (ITER .GT. 1) GO TO 100
HARDOl03
STHARD(l,NEL)= TAU2
HARDOl04
STHARD(2,NEL) - GAMMA2
HARDOlOS
STHARD(3,NEL) - -SIGO
HARDOl06
IF (TAU2 .EO. 0.0) STHARD(3,NEL) - 0.0
HARDOl07
STHARD(4,NEL) - EKK
HARDOl08
ICON ~ 0
HARDOl09
C
HARDO 11 0
C"
CKECK FOR CONVERGENCE
HARD 0 1 11
C
HARDO 11 2
100 IF (ABS(BCHECK) .GT. TOLER) ICON
0
HARD0113
IF (ABS(GCHECK) .GT. TOLER) ICON = 0
HARDO 11 4
IF (ITER .GT. NON(MN ICON - 1
HARDO 11 5
C
HARDO 11 6
C"
CONSTRUCT NEW INCREMENTAL CONSTITUTIVE MATRIX
HARD 0 11 ?
C
HARD01l8
VCORD = (3.0*BCORD-2.0*GCORD) I (6.0'BCORD+2.0'GCORD)
HARD01l9
IF (VCORD .LT. H(MN,4 VCORD = H(MN,4)
HARD0120
IF (VCORD .GT. H(MN,S VCORD = H(MN,S)
HARDOl2l
ECORD = 2.* (l.+VCORD)*GCORD
HARD0122
CALL CONYT (ECORD, VCORD)
HARD0123
RETURN
HARD0124
END
* * * * . * * * ........ * * * .... HERCOOOI
HERC0002
CANDE-89 (C)ULVERT (AN)ALYSIS AND (DE)SIGN PROGRAM
HERC0003
VERSION 1.0, MARCH 1990
EKK
,.....
0\
~
ST(l,NEL)
ST(2,NEL)
HERC0004
PUBLIC DOMAIN SOFTWARE CONTRIBUTED BY
HERCOOOS
THE FEDERAL HIGHWAY ADMINISTRATION
............ * * . * * .. * * * . . . . . . . . . . . . ** . . . . .. , HERC0006
HERC0007
SUBROUTINE HEROIC (BIV,DENSTY,IA,ICOME,IEXIT,LEVEL,NBPTC,MNO,
HERCODD8
1
NELEM,NINC,NOD,NODB,NPMAT,NPPT,NPT,NQ,NSMAT,
HERCODD9
NXMXX,PIPMAT,RESULT,SK,SM,ST,STHARD,STPIPE,
2
HERC0010
U,V,X,Y)
3
HERCOOll
C
HERCOD12
C
HERC0013
INCREMENTAL PLAIN STRAIN ANALYSIS
C
HERCOOl4
HEROIC - (HER)MANN (O)N (I)NCREMENTAL (C)ONSTRUCTION.
C
HERCOOls
C
HERC0016
C
HERC0017
Uncomment this statement in all program modules for double
HERC0018
precision version. SCM 3-10-90
HERC0019
HERC0020
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
HERC0021
HERC0022
DIMENSION BIV(3,NBPTC) ,MNO(NELEM),NOD(4,NELEM) ,NODB(NBPTC) ,
HERC0023
NQ(NPT+l),PIPMAT(S,NPPT),RESULT(20,NPPT),ST(6,NELEM),
1
HERC0024
STHARD(6,NELEM),STPIPE(2,NPPT),U(NPT),V(NPT),X(NPT),
2
HERC002s
Y(NPT)
3
HERC0026
C
HERC0027
COMMON /SIZEPRI BIVD(3),IX,NINCC
HERC0028
COMMON IELEMNTI AS(3),BS(3),Cl(17,11),EST(4,3),RQ(4),RT(3),
HERC0029
1
STORE (17) , Z4 (12) , ZQ (4) , ZT (3) , ZY (17) ,Jl, RO
HERC0030
COMMON/SYSTEM/B(240),A(240,120)
HERC0031
COMMON IMATERLI CP(3,3),OEN(10),E(10,10),GNU(10,10),H(10,10),
HERC0032
1
ITYPE(10),NON(10)
HERC0033
HERC0034
Expand array dimension statments from 30 to 99.
HERC003S
SCM 5-22-89
HERCD036
HERC0037
COMMON/XFACE/NXMAT,ANGLE(99) ,FCOEF(99) ,TENSIL(99) ,ITMAX
HERC0038
HERC0039
SCM 10-23-89
Add common block.
HERCD040
HERC0041
COMMON 10UTPUTI IWRT,IPLOT,MAXIT,JCON
HERC0042
HERCODO
Revise MAXMAT dimension statement from 30 to 99.
HERC0044
SCM 5-22-89
HERC004S
HERCD046
DATA LUDATA,MAXMAT 111,991
HERcoon
HERC0048
C
GO TO (100,110), ICOME
HERCD049
C
HERCODSO
C
FIRST ENTRY ESTABLISHES CONSTANTS AND READS FINITE ELEMENT DATA. HERCOOSI
C
HERCOOS2
100
CONTINUE
HERCOOS3
NEQ = 1200
HERCOOS4
NXMAT - NXMXX
HERCOOSS
C
HERCOOS6
HERCOOS7
C
HERCOOSB
ALL INPUT VALUES FROM PREP ARE READ HERE FROM TAPE LUDATA
C"
HERCOOS9
C
HERC0060
HERC0061
Revise 1/0 unit from LUDATA to Unit 14.
HERC0062
SCM 11-22-B8
HERC0063
HERC0064
REWIND 14
HERC006S
READ (14) NPT,NELEM,NBPTC,NINC,NPUTCK
HERC0066
READ (14) (X(N),Y(N),N=l,NPT), NOD(K,N),K-1,4),MNO(N),
C**
C
CALL READM(NSMAT,MAXMAT,DENSTY,LEVEL)
C
C
C
130
140
141
......
0\
VI
142
143
C
C
C
C
C
C
C
C
110
154
IF(IEXIT.NE.-1) GO TO 154
ITER = ITER + 1
GO TO 155
IA=IA+l
1-15-89
HERC0067
HERC006B
HERC0069
HERC0070
HERC0071
HERCOOn
HERC0073
HERC0074
HERC0075
HERC0076
HERC0077
HERC007B
HERC0079
HERC0080
HERCOOB1
HERCOOB2
HERC0083
HERCOOB4
HERCOOB5
HERCOOB6
HERCOOB7
HERC0088
HERCOOB9
HERC0090
HERC009l
HERC0092
HERC0093
HERC0094
HERC0095
HERC0096
HERC0097
HERC009B
HERC0099
HERC0100
HERC0101
HERC0102
HERC0103
HERC0104
HERCOI05
HERC0106
HERCOl07
HERC010B
HERC0109
HERCOllO
HERC01ll
HERC01l2
HERC01l3
HERC 0114
HERC0115
HERC0116
HERC01l7
HERCOllB
HERC01l9
HERC0120
HERC0121
HERC0122
HERC0123
HERC0124
HERC0125
HERC0126
HERC0127
HERC0128
HERC0129
HERC0130
HERC0131
HERC0132
CONTINUE
HERC0133
THE EQUATION POSITIONING MATRIX FOR THE SYSTEM MATRIX IS FORMED
HERC0134
AND THE ELEVATION OF THE TOP Of THE CONSTRUCTION INCREMENT ESTABLIHERC0135
HERC0136
HERC0137
DO 160 I=l,NPT
HERC013B
NQ(I+1)=0
HERC0139
DO 198 M=l,NELEM
HERC0140
IAC=MOD(HNO(M),1000) 110
HERC0141
IF(IAC.GT.IA) GO TO 198
HERC0142
LS-200
HERC0143
IF (NOO(2,H) .EQ. NOD(3,M)) LS c 300
HERC0144
DO IBO J-l,4
I _ NOD(J,M) + 1
HERC0145
HERC0146
IF(NQ(I).LT . 300)NQ(I)=LS
HERC0147
CONTINUE
HERC014B
NQ (1) =100
HERC0149
DO 200 I=l,NPT
HERC0150
NQ(I+l)=NQ(I)+NQ(I+l)
HERC015I
HERC0152
THE BAND WIDTH-NPC- IS COMPUTED
HERC0153
HERCOI54
NPC-O
HERC0155
DO 218 I=I,NELEM
HERC0156
lAC ~ MOD(HNO(I),1000)/10
HERC0157
IF(IAC.GT.IA) GO TO 218
HERC015B
DO 202 J=I,4
HERC0159
JJ = NOD(J,I)
HERC0160
NQ(JJ)=NQ(JJ)+1
HERC016l
DO 202 K=I,4
HERC0162
KK a NOD(K,I) + 1
HERC0163
IV-NQ(KK)/I00-NQ(JJ)/100
HERC0164
If (NPC .LT . IV) NPC=IV
HERC0165
CONTINUE
HERC0166
CONTINUE
HERC0167
HERC016B
COMPUTE MATRIX SPECIFICATIONS
HERC0169
HERC0170
If (NPC .LE. NEQ) GO TO 220
HERCOl71
WRITE(6,6010) NPC,NEQ
HERCOl72
RETURN
HERCOl73
NCOL
NPC
HERCOIH
NROW=NQ(NPT +1)/100-1
HERC0175
HERC0176
INITIALIZE SYSTEM MATRIX
HERCOI77
HERC017B
MN-2*NEQ
HERC0179
DO 223 N=l,HN
B(N) _ 0.0
HERCOIBO
HERC01B1
DO 223 J=I,NEQ
HERCOIB2
A(N,J) = 0.0
HERCOIB3
HERC01B4
THE STIfFNESS MATRIX IS GENERATED IN BLOCKS AND STORED ON TAPE
HERC0185
HERC01B6
HERCOIB7
Revise 1/0 unit from LUDATA to Unit 14 .
HERC01BB
SCM 11-22-B8
HERC0189
HERC0190
REWIND 14
HERCOl91
HERC0192
LB=O
ITER
155
C
C
C
C
160
180
198
200
C
C
C
202
218
C
C
C
220
C
C
C
223
c
C
C
LB1=0
NELEMTEO
2BB LB=LB+1
MB=LB'NEQ
C
C
C
DO 355 I=l,NELEM
IX=I
IF (NOD(l,I) . LT. 0) GO TO 355
IAC=MOD(MNO(I),lOOO)/lO
MN=MNO(I) 11000
IBEND ~ NOD(2,I) -NOD(3,I)
MNX = MNO(I) - MN'1000 - IAC'lO
IF(IBEND.EQ.O) RO = PIPMAT(5,MN)
IF(IBEND.NE.O) RO = DEN(MN)
IF(MNX.GT.O) RO = 0.0
IF (IAC-IA) 290,292,355
290 RO=O.O
292 00 300 L-1,4
KK = NOD(L,I)
K1=NQ(KK)/100
IF (Kl .LE. MB) GO TO 305
300 CONTINUE
GO TO 355
C
C
C
.....
0'1
0'1
C
C
320 CONTINUE
DO 321 J-l,3
CP(1,J) = PIPMAT(J,MN)
CP(2,J) = 0.0
321 CP(3,J) = 0.0
CP(2,1)= PIPMAT(4,MN)
C
C
C
C
HERC0193
HERC0194
HERC0195
HERC0196
HERC0197
HERC0198
HERC0199
HERC0200
HERC0201
HERC0202
HERC0203
HERC0204
HERC0205
HERC0206
HERC0207
HERC0208
HERC0209
HERC02l0
HERC0211
HERC02l2
HERC0213
HERC0214
HERC0215
HERC0216
HERC02l7
HERC0218
HERC0219
HERC0220
HERC0221
HERC0222
HERC0223
HERC0224
HERC0225
HERC0226
HERC0227
HERC0228
HERC0229
HERC0230
HERC0231
HERC0232
HERC0233
HERC0234
HERC0235
HERC0236
HERC0237
HERC0238
HERC0239
HERC0240
HERC0241
HERC0242
HERC0243
HERC0244
HERC0245
HERC0246
HERC0247
HERC0248
HERC0249
HERC0250
HERC0251
HERC0252
HERC0253
HERC0254
HERC0255
349
CALL STIFNS(BIV,NOD,NODB,NQ,X,Y,MNO,U,V,ST,IA,LB1,MN,IAC,MNX,
X
ITER,ICON,NEQ,NBPTC,NELEM,NPT)
NELEMT=NELEMT+l
NOD(l,I) = -NOD(l, I)
355 CONTINUE
C
C
C
C
C
C
C
C
555
560
C
C
C
562
c
c
C
563
564
HERC0256
HERC0257
HERC0258
HERC0259
HERC0260
HERC0261
IF HAVE LESS THAN 1 BLOCK OF EQUATIONS LEFT NO ADDITIONAL TAPE
HERC0262
STORAGE IS USED
HERC0263
HERC0264
HERC0265
IF(NROW .LE. MB ) GO TO 560
HERC0266
LBlELB1+1
HERC0267
HERC0268
THE BLOCK OF EQUATIONS IS REDUCED AND PUT ON TAPE
HERC0269
HERC0270
CALL REDUCI(NEQ,NCOL)
HERC0271
HERC0272
Revise I/O unit from LUDATA to Unit 14.
HERC0273
SCM 11-22-88
HERC0274
HERC0275
WRITE(14) (B(N), (A(N,M) ,M=1,NCOL) ,N=l,NEQ)
HERC0276
HERC0277
THE NUMBER TWO BLOCK OF EQUATIONS IS SHIFTED INTO THE NUMBER ONE HERC0278
POSITION
HERC0279
HERC0280
HERC0281
DO 555 L=1,NEQ
HERC0282
LRH=L+NEQ
HERC0283
B(L) = B(LRH)
HERC0284
B(LRH) = 0.0
HERC0285
DO 555 M=l,NCOL
HERC0286
A(L,M) = A(LRH,M)
HERC0287
A(LRH,M) = 0.0
HERC0288
GO TO 288
HERC0289
NT=NROW-LBl*NEQ
HERC0290
THE FINAL TWO BLOCKS OF EQUATIONS ARE REDUCED AND BACK-SUBSTITUTEDHERC0291
HERC0292
CALL REDUCI(NT,NCOL)
HERC0293
CALL BAKSU8(NT,NCOL,LB,NEQ)
HERC0294
IF (L81 .EQ. 0) GO TO 564
HERC0295
DO 563 J=l,LBl
HERC0296
DO 562 1=1, NEQ
HERC0297
LL~L+NEQ
HERC0298
8(LL) = B(L)
HERC0299
L -LBI-J+l
HERC0300
HERC0301
HERC0302
ANY BLOCKS ON THE TAPE ARE RECALLED AND BACK-SUBSTITUTED
HERC0303
HERC0304
HERC0305
Revise I/O unit from LUDATA to Unit 14 .
HERC0306
SCM 11-22-88
HERC0307
HERC030B
BACKSPACE 14
HERC0309
READ(14) (B(N), (A(N,M),M=l,NCOLI.N=l,NEQ)
HERC0310
8ACKSPACE 14
HERC0311
HERC0312
CALL BAKSUB(NEQ,NCOL,L,NEQ)
HERC0313
CONTINUE
HERC0314
L=O
HERC0315
DO 566 N:1,LB
HERC0316
K=NEQ
HE;RC03l7
DO 566 KK=1,NEQ
HERC031B
K-K+l
HERC0319
HERC0320
HERC0321
C
HERC0322
RECORD THE STRUCTURAL RESPONSES FOR CONVERGED SOLUTIONS
C
HERC0323
C
HERC0324
If(IEXIT.EQ.-1) GO TO S80
HERC032S
REWIND 13
HERC0326
WRITE (13) (U (I) ,V(I) , I-I, NPT) , ( (ST (J, I) ,1=1, NELEM) ,J-l. 6)
HERC0327
1
, STPIPE(J, 1),1=1, NPHAT) , J-l, 2)
HERC032B
GO TO S90
HERC0329
C
HERC0330
READ PREVIOUSLY CONVERGED STRUCTURAL RESPONSES IF IEXIT
-1
C
HERC0331
C
HERC0332
S80 REWIND 13
HERC0333
READ (13) (U (I) ,V (I) , 1=1, NPT) , ( (ST (J, I) , I-I, NELEM) ,J-l, 6)
HERC0334
1
,( (STPIPE(J,I),I=I,NPHAT) ,J~1.2)
HERC033S
C
HERC0336
CONTINUE
590
HERC0337
C
HERC033B
STRESSES AND STRAINS COMPUTED
C
HERC0339
C
HERC0340
CALL STRESS (BIV,MNO,NOD,NODB,NQ,ST,STPIPE,U,V,IA,NBPTC,
HERC0341
1
NELEM,NELEMT,NPHAT,NPPT,NPT,SK,SM)
HERC0342
C
HERC0343
PIPE RESULTS COLLECTED
C
HERC0344
C
HERC034S
CALL RESPIP (MNO,NOD,RESULT,ST,STPIPE,U,V,X,Y,NELEM,NPMAT,
HERC0346
1
NPPT,NPT,IEXIT,2)
HERC0347
C
HERC0348
IF(ICON.NE.l) NINC = -NINCC
HERC0349
Revise convergence limit and add JeON convergence flag for Duncan HERC03S0
HERC03S1
subroutine. SCM 1-1S-B9
HERC03S2
HERC03S3
IF(ITER.LE.20) RETURN
HERC03S4
HERC03SS
IF(ITER.LT.MAXIT) RETURN
HERC03S6
IF(JCON.LT.l) WRITE(6,SOOO) IA,ITER
HERC03S7
HERC03S8
RETURN
HERC03S9
C
HERC0360
C..
FORMATS
HERC0361
C
HERC0362
6010 fORMAT(IHl,41HFATAL ERROR BANDWIDTH IS TOO LARGE
,IS
HERC0363
1
30HBANDWIDTH IS ............... .
,IS
HERC0364
2
30HMAXIMUM ALLOWABLE BANDWIDTH IS
5000 FORMAT(//23H *** WARNING, LOAD STEP,I3,23H DID NOT CONVERGE AFTER,HERC036S
HERC0366
X 13,12H ITERATIONS.,23H PROGRAM WILL CONTINUE. )
HERC0367
NINC ~ NINCC
HERC036B
END
* * * * * * * * " , * " . . + ... * i r * * * * * * * .. ." .. * ." .. .. HINGOOOl
HINGOOOZ
CANDE-89 (C)ULVERT (AN)ALYSIS AND (DE)SIGN PROGRAM
HING0003
VERSION 1.0, MARCH 1990
HING0004
PUBLIC DOMAIN SOFTWARE CONTRIBUTED BY
HING0005
THE fEDERAL HIGHWAY ADMINISTRATION
." .. .. .. * .. * .. ." * .,. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. HING0006
HING0007
SUBROUTINE HINGE(PIPMAT,NPMAT,PS,PDIA,YIELD,SM,SK,RESULT,NPPT,
HINGOOOB
X PHINGE)
HING0009
C
THIS ROUTINE CALCULATES A CORRECTIONAL SET OF STRUCTURAL RESPONSESHING0010
C
TO ACCOUNT FOR PLASTIC YIELDING AT THE QUARTER POINTS OF A
HINGOOll
C
CIRCULAR CULVERT.
HING0012
C
HING0013
C
L-L+1
566 B(L)
0\
--..l
A(K,N)
C
C
C
C
C
C
SET CONSTANTS
50
SS
DO SO I~I, NPPT
DO 50 J=I,7
DESULT(J,I) ~ 0.0
00 55 I~1. 5
PHINGE(I) = 0.0
PE ~ PIPMAT(l,NPMAT)
PNU ~ PIPMAT(2,NPMAT)
PA - PIPMAT(3,NPMAT)
PI - PIPMAT(4,NPMAT)
PRAD ~ PDIA/2.
PC - PI/PS
NPO - (NPPT+l)/2
NPI ~ NPO-l
NP2 ~ NPO-2
IF(RESULT(S,NPO) .EQ.O.O) RETURN
SIGN ~ RESULT(5,NPO)/ABS(RESULT(S,NPO))
XMEO ~ RESULT(S,NPO)*SIGN
XMEI ~ RESULT(S,NPl)*SIGN
XME2 ~ RESULT(S,NP2)*SIGN
XMYLD ~ YIELD*PI/PC
XMULT ~ 1.S*XMYLD
PHINGE(I) = XMYLD/XMEO
PHINGE(S) - XMEO/(PS*YIELD)
IF(XMEO .LT . 1.01*XMYLD) RETURN
SPK ~ SM*(1.-SK)/PRAD
ALPHA ~ PRAD**4*SPK*(I.-PNU**2)/(PE*PI)
SQRAL = SQRT (ALPHA)
XP ~ O.S*SQRT(2.*SQRAL-1.)
XQ ~ 0.S*SQRT(2.*SQRAL+l.)
Cl ~ 1.+SQRAL
C2 ~ -1. +SQRAL
C3 - SQRT(ALPHA-.2S)
C4
O. 5-ALPHA
F1 = PI/(PA*PRAD**2)
F2
PRAD**2*5PK*(1 . -PNU**2)/(PE*PA) + 1.
F3 - PE*PI/(PRAD**2*(I.-PNU**2))
F4
YIELD*PRAD*(1.-PNU**2)/(PE*PC)
HPI = 2.*ATAN(1.0)
DTHETA ~ 2.*HPI/(NPPT-l.)
BE ~ (-3.*XMEO+4.*XME1-XME2)/(2.*DTHETA)
HING0014
HING0015
HING0016
HING0017
HINGOOIB
HING0019
HING0020
HING0021
HING0022
HING0023
HING0024
HING002S
HING0026
HING0027
HING002B
HING0029
HING0030
HING0031
HING0032
HING0033
HING0034
HING003S
HING0036
HING0037
HING0038
HING0039
HING0040
HINGOOn
HING0042
HING0043
HING0044
HING0045
HING0046
HINGOOn
HING0048
HING0049
HINGOOSO
HINGOOS1
HINGOOS2
HINGOOS3
HINGOOS4
HINGOOSS
HINGOOS6
HINGOOS7
HINGOOS8
HINGOOS9
HING0060
HING0061
HING0062
HING0063
HING0064
HING006S
HING0066
HING0067
HING0068
HING0069
HING0070
HING0071
HINGOOn
HING0073
HING0014
HING007S
HING0076
f'
HING0077
HING0078
HING0079
ESTABLISH MATRIX,XK, FOR SOLVING SIX UNKNOWN COEFFICIENTS OF
HING0080
END-MOMENT BOUNDARY VAlUE PROBLEM.
HING0081
HING0082
CAlL SETU(0.0,Cl,C2,C3,C4,SQRAl,XP,XQ,U)
HING0083
DO 100 I~1,4
HING0084
XK(l,I)
U(S,I)
HING008S
XK(3,I) ~ U(4,I)
HING0086
XK(S,I) ~ Fl*U(S,I) + F2*U(1,I)
HING0087
CAlL SETU(HPI,C1,C2,C3,C4,SQRAl,XP,XQ,U)
HING0088
DO 110 1-1,4
HING0089
XK(Z,I)
U(S,I)
HING0090
XK(4,I)
U(4,I)
HING0091
XK(6,I)
Fl*U(S,I) + F2*U(1,I)
HING0092
HING0093
SOLVE FOR THE FIRST FOUR UNKNOWN COEFFICIENTS.
HING0094
HING009S
CAlL INVER(XK,4)
HING0096
DO 120 I~l, 4
HING0097
A(I) ~ (XK(I,3)-XK(I,4))/F3
HING0098
HING0099
SOLVE FOR THE LAST TWO UNKOWN COEFFICIENTS .
HING0100
HING0101
TI ~ 0.0
HING0102
T2 ~ 0.0
HINGOI03
DO 130 I~l, 4
HING0104
Tl
TI + XK(S,I)*A(I)
HINGOIOS
T2 = T2 + XK(6,I)*A(I)
HINGOI06
A(S)
(TI-T2)/(Fl*HPI)
HING0107
A(6) - T1
HINGOI08
HINGOl09
COMPUTE STRUCTURAl RESPONSES FOR A UNIT APLLIED END MOMENTS.
HINGOllO
HINGOlll
THETA = HPI
HING01l2
ROTAT = 0.0
HING01l3
DO 150 N=I,NPO
HING01l4
DESULT(3,N) = A(S)
HINGOllS
DESULT(4,N)
-A(S)*THETA*F2 + A(6)
HING01l6
DESULT(S,N)
0.0
HING01l7
DESULT(6,N)
-A(S)*PRAD*SPK
HING01l8
DESULT(7,N) ~ 0.0
HING01l9
DESULT(8,N)
-A(S)*SPK
HING0120
CAlL SETU(THETA,CI,C2,C3,C4,SQRAl,XP,XQ,U)
HINGOl2l
DO 140 1=1,4
HING0122
IF(N.EQ.NPO) ROTAT ~ ROTAT + U(3,I)*A(I)/PRAD
HINGOl23
DESULT(3,N) - OESULT(3,N) + A(I)*U(2,I)
HING0124
DESULT(4,N) - DESULT(4,N) - A(I)*(FI*U(S,I)+F2*U(I,I))
HING012S
OESULT(S,N)
DESULT(S,N) + A(I)*F3*U(4,I)
DESULT(6,N) - DESULT(6,N) - A(I)*(f3/PRAD*U(6,I)+PRAD*SPK*U(2,I)) HING0126
HINGOl27
DESULT(7,N)
DESULT(7,N) + A(I)*F3/PRAD*U(S,I)
HINGOl28
DESULT(8,N)
DESULT(8,N) - SPK*A(I)*U(2,I)
HINGOl29
THETA = THETA-DTHETA
HING0130
CONTINUE
HINGOl3l
HING0132
COMPUTE PLASTIC HINGE ROTATION FOR THE ASSUMED END MOMENT, DMO .
HING0133
HING0134
DMMAX = XMEO-XMYLD
HING013S
DMMIN = XMEO-XMULT
HING0136
IF(DMMIN.LT.O.O) DMMIN
0.0
HING0l37
DMRIGH = DMMAX
HING0l38
DMLOW = DMMIN
HING0l39
KOUNT = 0
CE
C
C
C
100
110
C
C
C
120
C
C
C
(XMEO-2.*XMEl+XME2) I (2.*DTHETA*DTHETA)
200
C
C
C
C
C
C
250
130
.......
01
00
C
C
140
150
C
C
C
260
C
C
C
C
C
300
325
HING0140
HING0141
HING0142
HING0143
HING0144
HING014S
HING0146
HING0147
HING0148
COMPUTE LENGTH OF PLASTIC HINGE
HING0149
HING01S0
WI
(-BB/CC+ SQRTBB/CC) **2 -4.*(XMEO+XMOO-XMYLD)/CC))/Z.0
HINGOlSl
WZ - (-BB/CC- SQRTBB/CC)**Z -4.*(XMEO+XMDO-XMYLD)/CC))/Z.0
HINGOlS2
U
~
HINGOl53
IF(W2.GT.0.0) WP ~ W2
HING0154
DETERMINE PLASTIC ROTATION OVER HINGE LENGTH WITH 7 POINT SIMPSON HING015S
HING0156
INTEGRATION FOR PARTl, AND EXACT INTEGRATION FOR PART2.
HING0157
HING0158
NWP = 7
HINGOl59
NWPI ~NWP-l
HINGOl60
DW = WP/NWPl
HINGOl61
WW
0.0
HINGOl62
DO 2S0 I=l,NWP
HING0163
ARG = l.-(XMEO+XMOO+BB*WW+CC*ww*WW)/XMULT
HING0164
IF(ARG.LE.O.O) ARG ~ 0.0000001
HING016S
FW(I) = 1./SQRT(3.*ARG)
HINGOl66
WW = WW + OW
HING0167
SIMP = 0.0
HINGOl68
DO 260 I=1,NWPl,2
HINGOl69
SIMP - SIMP + FW(I) +4.*FW(I+1) + FW(I+2)
HING0l70
PARTI = SIMP*OW/3 .
HING0l71
PART2 - WP/XMYLO*(XMEO+BE*WP/2.+CE*WPWP/3.)
HINGOl72
ROTAP
F4* (PARTl-PART2)
HING0l73
COMPARE ROTATION FROM ELASTIC SOLUTION,ROTAE , WITH THE ROTATION HINGOl74
OF THE PLASTIC HINGE, ROTAP.
HING0175
HINGOl76
HINGOl77
ROTAE ~ -ROTAT*DMO
HING0l78
RATIO = ROTAE/ROTAP
HING0179
IF(ABS(RATIO-l.) .LT.O.Ol) GO TO 300
HING0180
IF(ROTAE.LT.ROTAP) DMLOW = DMO
HINGOl81
IF (ROTAE.GT.ROTAP) DMHIGH = DMO
HINGOl82
KOUNT - KOUNT + 1
HINGOl83
IF(KOUNT.GT.30) GO TO 400
HING0184
GO TO 200
HING0185
HINGOl86
COLLECT CONVERGED SOLUTION AND ADD TO ELASTIC SOLUTION
HING0187
HING0188
CONTINUE
HINGOl89
K - NPPT
HING0190
THETA - HPI
HING0191
DO 350 N=l,NPO
HING0192
RDISP = DESULT(3,N)*DMO
HINGOl93
TDISP = DESULT(4,N)*DMO
HING0194
DESULT(3,N)
RDISP*COS(THETA) - TDISP*SIN(THETA)
HING0195
DESULT(4,N)
ROISP*SIN(THETA) + TDISP'COS(THETA)
HING0196
DESULT(3,K)
OESULT(3,N)
HINGOl97
DESULT(4,K)
-OESULT(4,N)
HINGOl98
THETA = THETA-DTHETA
HINGOl99
DO 325 J~S,8
HING0200
DESULT(J,N)*DMO
DESULT (J, N)
HING020l
OESULT(J,N)
DESULT(J,K)
HING0202
CONTINUE
DMO = (OMHIGH+DMLOW) 12.
XMDO --DMO*OESULT(5,NPO)
XMDl ~-DMO*DESULT(5,NPl)
XMD2 ~-DMO*DESULT(S,NP2)
BB
(-3.* (XMEO+XMDO)+4.* (XMEI+XMDl)-(XME2+XMD2)/(2.*DTHETA)
CC ~ (XMEO+XMDO-2.*(XMEl+XMD1)+XME2+XMD2)/(2.*OTHETA**2)
HING0203
HING0204
HING0205
C
HING0206
DO 360 N=l,NPPT
HING0207
DO 360 J=3,8
HING0208
360
RESULT(J,N) = RESULT(J,N) + DESULT(J,N)
HING0209
C
HING02l0
C
EVALUATE HINGE CHARACTERISTICS
HING0211
C
HING02l2
HLONG = WP*PRAD
HING0213
HDEEP = PC*(1.-SQRT(3.*(1.-(XMEO+XMDO)/XMULT)))
HING0214
PHINGE (2)
HDEEPI (PI/PS)
HING02l5
PHINGE(3) ~ 2.*HLONG/(HPI*PRAD)
HING02l6
PHINGE(4)
2.*DESULT(4,l)/(RESULT(4,l)-RESULT(4,NPPT))
HING0217
PHINGE(5) ~ 1./SQRT(3.*(1.-ABS(RESULT(5,NPO))/XMULT))
HING02l8
RETURN
HING02l9
C
HING0220
C
EXIT FOR NO SOLUTION, FULL PENETRATION
HING0221
C
HING0222
400
PHINGE(l) ~ -PHINGE(l)
HING0223
WRITE(6,2000) PA,PI,PS
HING0224
RETURN
HING0225
C
2000 FORMAT(lHl,lOX,46H FULL PLASTIC PENETRATION OF HINGE HAS FORMED, IHING0226
HING0227
X 10X,48H AND A CORRECTIONAL SOLUTION CANNOT BE OBTAINED. I
HING0228
X lOX, 48H (IT IS SUGGESTED TO USE STIFFER SOIL MATERIAL.) I
HING0229
X lOX, 53H THE FOLLOWING RESULTS ARE FROM THE ELASTIC SOLUTION,
HING0230
X lOX, 42H WHERE THE PIPE SECTION PROPERTIES ARE ... II
HING0231
X 15X,36H THRUST AREA PER UNIT LENGTH .......
E15.5 II
HING0232
X l5X,36H MOM. OF INERTIA PER UNIT LENGTH
E15.S II
HING0233
X 15X,36H SECTION MODULUS PER UNIT LENGTH ...
E15.5 II)
HING0234
END
INTPOOOI
* * ... 1> .. .. .. 1> + * .. .. 1> .. .. * * * * * * * * *
INTP0002
CANDE-89 (C)ULVERT (AN)ALYSIS AND (DE)SIGN PROGRAM
INTP0003
VERSION 1.0, MARCH 1990
INTP0004
PUBLIC DOMAIN SOFTWARE CONTRIBUTED BY
INTP0005
THE FEDERAL HIGHWAY ADMINISTRATION
* * * * * * * * * . . . . . . . . * * *
INTP0006
INTP0007
SUBROUTINE INTPI(NOD,ST,X,Y,MNO,EI,GNUI,NEL,MN,IA,NELEM,NPT)
INTP0008
C
INTP0009
THIS ROUTINE CALCULATES YOUNGS MODULUS AND POISSONS RATIO AS A
C
INTPOOlO
FUNCTION OF OVERBURNDEN PRESSURE, I.E. Y-STRESS.
C
INTPOOll
C
INTP0012
Uncomment this statement in all program modules for double
INTP0013
precision version. SCM 3-10-90
INTP0014
INTP0015
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
INTPOOl6
INTP0017
DIMENSION NOD(4,NELEM),ST(6,NELEM),X(NPT),Y(NPT),MNO(NELEM)
INTP0018
COMMON/MATERLI CP(3,3),DEN(10),E(10,lO),GNU(10,lO),H(10,lO),
INTPOOl9
1
ITYPE(10) ,NON(lO)
INTP0020
C
INTP002l
FOR THE ELEMENT NEL FIND COORDINATES OF CENTER, (XNEL,YNEL)
C
INTP0022
C
INTP0023
NOMI ~ NON(MN)
INTP0024
XNEL = 0.0
INTP0025
NEL = 0.0
INTP0026
DO 100 J=l. 4
INTP0027
ND = NOD(J,NEL)
INTP0028
XNEL = XNEL + 0.25*X(ND)
INTP0029
100
YNEL = YNEL + 0.25*Y(ND)
INTP0030
C
INTP003l
C
FIND THOSE ELEMENTS IN CURRENT CONSTRUCTION INCREMENT BEING
350
.0\
\0
DESULT(7,K)
K = K-l
-DESULT(7,K)
C
C
SCM 3-10-90
XMIN ~ MIN(X(NDl),X(ND2),X(ND3),X(ND4)
XMAX = MAX(X(NDl),X(ND2),X(ND3),X(ND4)
IF(XNEL.LT.XMIN) GO TO 200
IF(XNEL.GE.XMAX) GO TO 200
YMAX - MAX(Y(NDI),Y(ND2),Y(ND3),Y(ND4))
IF(YNEL.GT.YMAX) GO TO 200
C
C
C
200
C
C
C
C
C
C
C
00
300
350
C
INTP0032
INTP0033
INTP0034
INTP0035
INTP0036
INTP0037
INTP0038
INTP0039
INTP0040
INTP0041
INTP0042
INTP0043
INTP0044
INTP0045
INTP0046
INTP0047
INTP0048
INTP0049
INTP0050
INTP005l
INTP0052
INTP0053
INTP0054
INTP0055
INTP0056
INTP0057
INTP0058
INTP0059
INTP0060
INTP0061
INTP0062
INTP0063
INTP0064
INTP0065
INTP0066
INTP0067
INTP0068
INTP0069
INTP0070
INTP007l
INTP0072
INTP0073
INTP0074
INTP0075
INTP0076
INTP0077
INTP0078
INTP0079
INTP0080
INTP0081
INTP0082
INTP0083
INTP0084
INTP0085
INTP0086
INTP0087
INTP0088
INTP0089
INTP0090
INTP0091
INTP0092
INTP0093
INTP0094
C
C
C
100
110
120
14 0
150
...-..J
o
200
... ...
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
INTP0095
INTP0096
INTP0097
~
, '" INVROOOl
INVR0002
INVR0003
INVR0004
INVR0005
INVR0006
INVR0007
SUBROUTINE INVER(A,NMAX)
INVR0006
INVR0009
INVERT MATRIX A
INVR0010
INVROOll
Uncornment this statement in all program modules for double
INVR0012
precision version. SCM 3-10-90
INVR0013
INVR0014
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
INVR0015
INVR0016
DIMENSION A(6, 6)
INVR0017
DO 200 N=l, NMAX
INVR0016
D=A(N,N)
INVR0019
DO 100 J =l,NMAX
INVR0020
A(N,J) = -A(N,J)/D
INVR0021
DO 150 I=l,NMAX
INVR0022
IF(N-I) 1l0, 150, 110
INVR0023
DO 140 J=l, NMAX
INVR0024
IF(N-J) 120,140,120
INVR0025
A(I,J)=A(I,J)+A(I,N)*A(N,J)
INVR0026
CONTINUE
INVR0027
A(I,N)=A(I,N)/D
INVR0028
A(N,N) =1.0/D
CONTINUE
INVR0029
RETURN
INVR0030
END
INVR0031
* * * * * * * * ." ...... * .. * ... * * '" .. * ...... '* * ......... .. .. JMODOOOI
CANDE-89 (C)ULVERT (AN)ALYSIS AND (DE)SIGN PROGRAM
JMOD0002
VERSION 1.0, MARCH 1990
JMOD0003
JMOD0004
PUBLIC DOMAIN SOFTWARE CONTRIBUTED BY
THE FEDERAL HIGHWAY ADMINISTRATION
JMOD0005
* ~ ... * ... * * * * * ~ * ... * * * * ... * ... .. ... .. ... ... * ... ... * * *
JMOD0006
JMOD0007
JMOD0006
JMOD0009
* ... ... * ... * * . . SUBROUTINE JMOD
... ... * * * * * ... ...
JMOD0010
NEW ADDITION SUBROUTINE IN 1983 FOR JOINT SLIPPING BEHAVIOR
JMODOOll
JMOD0012
SUBROUTINE JMOD(STRN,STRNPR,PE,PES,PEP,PEF,STRES,STRESP,PEOLD
JMOD0013
',PENEW,PNU,IFLAG,JCON,NJ)
JMOD0014
JMOD0015
THE OBJECTIVE OF THIS SUBROUTINE IS TO COMPUTE PENEW AND I FLAG ,
JMOD0016
WHERE PENEW IS THE CURRENT EFFECTIVE YOUNGS MODULUS FOR AXIAL
STRAIN, AND IFLAG IS A CODE FOR IDENTIFYING WHAT REGION CONTROLS JMOD0017
JMOD0016
THE CALCULATIONS OF PENEW
JMOD0019
NO REGION, (ERROR SOMEHOW)
I FLAG= 0
JMOD0020
ELASTIC REGION, (PRE SLIP)
!fLAG=l
JMOD0021
TRANSITION , (ELASTIC-SLIP REGION)
IFLAG=2
JMOD0022
SLIP REGION
IFLAG=3
JMOD0023
TRANSITION ,(SLIP-POSTSLIP REGION)
IFLAG=4
JMOD0024
POST SLIP REGION
I FLAG= 5
JMOD0025
TRANSITION, (POSTSLIP-FAILTURE REGION)
IFLAG=6
JMOD0026
IFLAG=7
FAILURE REGION
JMOD0027
UNLOADING,ELASTIC REGION
IFLAG=-l
JMOD0026
JMOD0029
START BY SETTING ABSOLUTE VALUES TO CURRENT STRAIN OF
C
C
C
IF(ASTRN.LT.ASTRNP)IFLAG=-l
IF(IFLAG.EQ.O)GO TO 100
PENEW=PE
RETURN
C
C
C
100 IF(ASTRS.LT.PSLIP) IFLAG=l
IF(IFLAG.EQ.O) GO TO 200
IF(JFLAG(NJ) .EQ.2)STRES=STRES/ASTRS*PSLIP
IF (JFLAG(NJ) .EQ.2)ASTRS=ABS(STRES)
IF (JFLAG (NJ) .EQ.2) GO TO 200
JFLAG (NJ) =IFLAG
PENEW=PE
RETURN
C
C
C
C
C
C
C
C
C
C
300 IF(SSTRN.GT.ASTRN .AND. ASTRSP.GE.PSLIP) IFLAG=3
IF(IFLAG.EQ.O) GO TO 400
IF (JFLAG(NJ) .EQ.4 .AND. ASTRN.LT.SSTRN) STRN=STRN/ASTRN*SSTRN
IF (JFLAG(NJ) .EQ.4 .AND. ASTRN.LT.SSTRN) ASTRN=ABS(STRN)
IF (JFLAG (NJ) .EQ.4) GO TO 400
PENEW=PES
JMOD0030
JMOD0031
JMOD0032
JMOD0033
JMOD0034
JMOD0035
JMOD0036
JMOD0037
JMOD0038
JMOD0039
JMOD0040
JMOD0041
JMOD0042
JMOD0043
JMOD0044
JMOD0045
JMOD0046
JMOD0047
JMOD0048
JMOD0049
JMODOOSO
JMODOOS1
JMOD0052
JMOD0053
JMOD0054
JMODOOS5
JMOD0056
JMOD0057
JMOD0058
JMOD0059
JMOD0060
JMOD0061
JMOD0062
JMOD0063
JMOD0064
JMOD0065
JMOD0066
JMOD0067
JMOD0068
JMOD0069
JMOD0070
JMOD0071
JMOD0072
JMOD0073
JMOD0074
JMOD0075
JMOD0076
JMOD0017
JMOD0078
JMOD0019
JMOD0080
JMOD0081
JMOD0062
JMOD0083
JMOD0084
JMOD0085
JMOD0086
JMOD0087
JMOD0068
JMOD0069
JMOD0090
JMOD0091
JMOD0092
JMOD0093
JMOD0094
CHECK IF LOADING IN TRANSITION REGION SLIP-POSTSLIP. IF SO,
JMOD0095
JMOD0096
USE WEIGHTED TRANSITION MODULUS
JMOD0097
C
JMOD0098
400 IF(ASTRN.GE.SSTRN .AND. SSTRN.GT.ASTRNP)IFLAG~4
JMOD0099
IF(IFLAG.EQ.O) GO TO 500
JMOD0100
JFLAG (NJ) =1 FLAG
JMOD0101
PENEW=PEOLD*(ASTRN-ASTRNP)/SSTRN-ASTRNP)*(l.-PES/pEP)
JMODOI02
* +(ASTRN-ASTRNP)*PEOLD/PEP)
JMOD0103
JMOD0104
Revise intrinsic function to generic form. SCM 3-10-90
JMODOI05
JMOD0106
IF(JCON.EQ.1 .AND. PEOLD.EQ.PES)SRATIO=LOG10(PEP/PES)/3 . *
JMOD0107
* (SSTRN-ASTRNP) I (ASTRN-SSTRN)
JMOD0108
JMOD0109
IF(PENEW.LT.PEOLD) GO TO 450
JMODO 11 0
ANDA=2.*PENEW/pEOLD*SRATIO
JMOD0111
IF(ANDA.LT.l.2)ANDA=1.2
JMODO 11 2
IFPENEW/PEOLD) .LT.1.01)ANDA=1.0
JMOD0113
IF(PES.GT . 0 . 0003*PEP)ANDA=1.0
JMOD0114
PENEW~ANDA*PENEW+(l.-ANDA)*PEOLD
JMODO 11 5
RETURN
JMOD0116
450 ANDA=2.*PEOLD/PENEW
JMOD0117
IFPEOLD/PENEW) .LT.1.01)ANDA=1.0
JMODO 11 8
PENEW=ANDA*PENEW+ (l.-ANDA) *PEOLD
JMOD01l9
RETURN
JMOD0120
C
C
CHECK IF LOADING IN POSTSLIP REGION. IF SO, USE POSTSLIP MODULUS JMOD0121
JMOD0122
C
JMOD0123
500 IF(PFAIL.GT . ASTRS .AND. ASTRNP.GE.SSTRN)IFLAG-5
JMOD0124
IF(IFLAG.EQ . O)GO TO 600
JMOD0125
IF(JFLAG(NJ) .EQ.6)STRES=STRES/ASTRS*PFAIL
JMOD0126
IF(JFLAG(NJ) .EQ. 6) ASTRS-ABS (STRES)
JMOD0127
IF (JFLAG(NJ) .EQ.6) GO TO 600
JMOD0128
JFLAG (NJ) =IFLAG
JMOD0129
PENEW=PEP
JMODO 13 0
RETURN
JMOD0131
C
JMOD0132
C
CHECK IF LOADING IN TRANSITION REGION POSTSLIp-FAILURE. IF SO,
JMOD0133
C
USE WEIGHTED TRANSITION MODULUS.
C
JMOD0134
600 IF(ASTRS.GE . PFAIL .AND . ASTRSP.LT . PFAIL) IFLAG=6
JMOD0135
IF(IFLAG.EQ . O) GO TO 700
JMOD0136
IF(JFLAG(NJ) .EQ.4) GO TO 660
JMOD0137
PENEW1=(PEP-PEF)* (PFAIL-ASTRSP)*(1.-PNU**2)IPEPI(ASTRN-ASTRNP)+PEFJMOD0138
IF(JCON.NE.1) GO TO 650
JMOD0139
ANDA=(PEOLD-1.01'PEF)/(PEOLD-PENEW1)
JMOD0140
IF(ANDA.LT.1.0)ANDA~1.0
JMOD0141
ANDA2(NJ)=ANDA
JMOD0142
650 PENEW=ANDA2(NJ)*PENEW1+(1.-ANDA2(NJ))*PEOLD
JMOD0143
JMOD0144
IF(PENEW.LT.PEF.AND.JCON.NE.1)PENEW=(PEF+PEOLD) 12.
If(PENEW.LT.PEf.AND.JCON.EQ.1)PENEW=1.01*PEF
JMOD0145
IF(PENEW.GT.PEP) PENEW= (PEP+PEOLD) 12.
JMOD0146
JFLAG(NJ)=IFLAG
JMOD0147
RETURN
JMOD0148
C
JMOD0149
JMOD0150
660 IFLAG=5
JMOD0151
JFLAG (NJ) =IFLAG
JMOD0152
PENEW=PEP
JMOD0153
RETURN
JMOD0154
C
JMOD0155
C
CHECK IF LOADING IN FAILURE REGION. IF SO, USE fAILURE MODULUS .
RETURN
700
C
C
C
,.....
-..J
,.....
C
C
800
WRITE(6,2000)
GO TO 950
WRITE(6,2100)
STOP
900
950
2000 FORMAT(IIII,44H "FATAL ERROR: I.E.OR TOO LARGE LOAD STEP*')
2100 FORMAT(IIII,20H TOO LARGE LOAD STEP)
JMOD0156
JMOD0157
JMOD0158
JMOD0159
JMOD0160
JMOD0161
JMOD0162
JMOD0163
JMOD0164
JMOD0165
JMOD0166
JMOD0167
JMOD0168
JMOD0169
JMOD0170
JMODOl71
c******************************************************************JMOD0172
JMOD0173
END
...
* ...... ..
C*C
Co.
C
Co.
C
MOOMODO!
MODM0002
MODM0003
MOOM0004
MODM0005
MODM0006
MODM0007
MODM0008
ROUTINE ALLOWS THE USER TO MODIFITY THE LEVEL 2 MESH
MODM0009
MODM0010
Un comment this statement in all program modules for double
MODMOOll
precision version. SCM 3-10-90
MODM0012
MODM0013
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
MODM0014
MODM0015
DIMENSION BIV(3,NBPTC), NOD(7,NPT),NODB(NBPTC),X(NPT),Y(NPT)
MODM0016
MODM0017
Revise array dimension from AN(2) to AN(3) for generalized
MODM0018
boundary condition option. SCM 10-25-89
MODM0019
MODM0020
DIMENSION AN(3),ANI(2),BV(3),IFLAG(2),ND(7)
MODM0021
MODM0022
DIMENSION RBC(2)
MODM0023
DATA ANI 14HF ~ ,4HD
MODM0024
MOOM0025
MODM0026
Add data statement for generalized boundary condition option.
SCM 10-25-89
MODM0027
MODM0028
DATA RBC 14H F ,4H D
MODM0029
MODM0030
MODM0031
READ A CONTROL CARD TO DETERMINE WHAT PARAMETERS ARE TO BE CHANGEDMODM0032
MODM0033
READ (5,5010) NEWXY, NEWEL, NEWBD
MODM0034
WRITE(6,6010) NEWXY, NEWEL, NEWBD
MODM0035
MODM0036
IF (NEWXY + NEWEL+ NEweD .EQ. 0) GO TO 120
IF (NEWXY .EQ. 0) GO TO 30
MOOM0037
WRITE( 6,6020)
MODM0038
MODM0039
CHANGE THE NODE COORDINATES
MODM0040
MODM0041
DO 20 N = 1, NEWXY
MODM0042
READ(5,5015) NEWNOD, XCOORD, YCOORD
MODM0043
IF (NEWNOD .GT. 0 .AND. NEWNOD .LT. NPT) GO TO 10
MODM0044
WRITE(6,6030) NEWNOD
MODM0045
GO TO 20
10 WRITE(6,6040) NEWNOD, X(NEWNOD),Y(NEWNOD),XCOORD,YCOORD
X (NEWNOD)
XCOORD
Y(NEWNOD) = YCooRD
20 CONTINUE
C
C'
C
C
C'
.....
-...)
tv
MGK 3-18-89
ANI (2)
ANI{l)
90 CONTINUE
10-Z5-89
IFLAG(2).EQ.0) THEN
.AND. I FLAG (2) .EQ.O) THEN
.AND. IFLAG{Z).EQ.2) THEN
.AND. IFLAG{Z) .EQ.Z) THEN
MODM0046
MODM0047
MODM0048
MODM0049
MODM0050
MODM0051
MODM0052
MODM0053
MODM0054
MODM0055
MODM0056
MODM0057
MODM0058
MODM0059
MODM0060
MODM0061
MODM0062
MODM0063
MODM0064
MODM0065
MODM0066
MODM0067
MODM0068
MODM0069
MODM0070
MODM0071
MODM0072
MODM0073
MODM0074
MODM0075
MODM0076
MODM0077
MODM0078
MODM0079
MODM0080
MODM0081
MODM0082
MODM0083
MODM0084
MODM0085
MODM0086
MODM0087
MODM0088
MODM0089
MODM0090
MODM0091
MODM0092
MODM0093
MODM0094
MODM0095
MODM0096
MODM0097
MODM0098
MODM0099
MODM0100
MODM0101
MODMOl02
MODM0103
MODM0104
MODM0105
MODM0106
MODMOI07
MODM0108
ELSE
MODM0109
MODMOllO
MODMOlll
MODM01l2
MODM01l3
MODM01l4
MODM0115
DO 100 I = 1, 3
MODM0116
100 BIV(I,NBPTC) = BV(I)
MODM01l7
NODB(NBPTC) = NU'10000 + IA'lOO + IFLAG(1)*10+IFLAG(2)
MODM0118
110 CONTINUE
MODMOl19
120 CONT INUE
MODM0120
RETURN
MODMOl21
5010 FORMAT (315)
MODM0122
5015 FORMAT (I5,5X,2FlO.0)
MODM0123
5030 FORMAT (815)
MODM0124
5040 FORMAT (ZI5,F10.0,I5,F10.0,F10.0,I5)
MODM0125
6010 FORMAT {lH1,10X,47H * * * CHANGES TO STANDARD LEVEL 2 MESH * * 'MODM0126
1
110X,40H ' NUMBER OF NODES TO BE CHANGED ------- ,17, MODM0127
1
1H' 110X,40H NUMBER OF ELEMENTS TO BE CHANGED ---- ,17, MODM0128
1H* 110X,40H ADDITIONAL BOUNDARY CONDITIONS ------ ,17, MODM0129
4
IH*/IOX,47H * * * * ~ * ... * * * * * ... * * * * * ...
*MODM0130
5
I I II
MODM0131
6020 FORMAT (lH ,13X,11HNODE NUMBER,13X,15HOLD CooRDINATES,20X,
MODM0132
1
15HNEW COORDINATES I
MODM0133
2
40X,lHX,10X,1HY,25X,lHX,10X,lHY)
MODM0134
6030 FORMAT {I1103H WARNING NODE NUMBER IS OUTSIDE OF ALLOWABLE RANMODM0135
IGE (O TO NPT) AND CARD WILL BE SKIPPED NODE READ = ,IS III)
MODM0136
6040 FORMAT (15X,I5,10X,FIO.2,10X,FlO.2,15X,F10.2,10X,F10.2)
MODM0137
6050 FORMAT (111110X,15H ELEMENT NUMBER,lOX, 19H ELEMENT CONNECTIVE,
MODM0138
1
5X,16H MATERIAL NUMBER,2X,19H CONSTRUCTION INCR. ,5X,MODM0139
2
4HX(7)/33X,lHI,7X,lHJ,7X,lHK,7X,lHL/)
MODM014 0
6060 FORMAT {11110X,46H* , WARNING ELEMENT NUMBER IS OUT OF BOUNDS. MODM0141
,40H (1 TO NELEM) ELEMENT NUMBER IS ,151/1) MODM0142
6070 FORMAT{14X,I5,7X,4{4X,I4),7X,I4,15X,I5,12X,I4,5X,
MODM0143
1
22HOLD ELEMENT PARAMETERS/26X, 4 {4X,I4),7X,I4,15X,I5,
MODM0144
2
12X,I4,5X,22HNEW ELEMENT PARAMETERS I)
MODM0145
MODMOH6
Revise formats for generalized boundary condition option.
MODM0147
SCM 10-25-89
MODMOH8
MODMOH9
6090 FORMAT{lH1,lX,31H' BOUNDARY CONDITIONS' '/2X,
MODM0150
X59H{FORCES = LBS; DISPLACEMENTS = INCHES; ROTATIONS = DEGREEs)11 MODM0151
XZX,8HBOUNDARY,6X,4HLOAD,6X, 14 HX-FORCE
OR,6X,14HY-FORCE
OR,MODM015Z
X6X,lZHX-Y ROTATION,6X,15HBEAM ROTATIONAL/6X,4HNODE,6X,4HSTEP,6X, MODM0153
X14HX-DISPLACEMENT,6X,14HY-DISPLACEMENT,ZZX,
MODM0154
X19HBOUNDARY CONDITIONSII)
MODM0155
6080 FORMAT(5X,I5,5X,I5,4X,A4,E1Z.4,4X,A4,E12.4,4X,E1Z.4,14X,A4)
MODM0156
MODM0157
61Z0 FORMAT (lH1,50H FATAL ERROR MAX. NUMBER OF BOUNDARY POINTS IS ,I5/MODM0158
1
SOH NUMBER OF BOUNDARY POINTS REQUIRED BY INPUT
,151 MODM0159
2
50HTO RUN THIS PROBLEM INCREASE SIZE OF BLANK COMMON IMODM0160
3
SOH IN SUBROUTINE PREHERO AND RECOMPILE THE ROUTINE ) MODM0161
END
MODM016Z
..... * ... * * ... * ... * * * . . * * * ... *
PLASOOOI
CANDE-89 (C)ULVERT (AN)ALYSIS AND (DE)SIGN PROGRAM
PLASOOOZ
VERSION 1.0, MARCH 1990
PLAS0003
PUBLIC DOMAIN SOFTWARE CONTRIBUTED BY
PLAS0004
THE FEDERAL HIGHWAY ADMINISTRATION
PLAS0005
* * * ... ... ... ... * ... * * * * * ... ... ... * * * * * * * ... * * * * * *
PLAS0006
SUBROUTINE PLASTI(IA,ICOME,IEXIT,LEVEL,NINC,NPMAT,NPPT,PDIA,
PLAS0007
1
PIPMAT,RESULT,SK,SM,XMODE)
PLAS0008
C
SUBROUTINE FOR PLASTIC PIPE CULVERTS.
PLAS0009
AN(3) - RBC(2)
END IF
WRITE(6,6080) NU,IA,AN(1),BV(1),AN(2),BV{2),
X
BV(3) ,AN(3)
BV(3)=BV(3)'0.0174533
C
C
RESULT(10,N)
RESULT(ll,N)
RESULT(12,N)
C
C
C
C
E,XNU,YIELD/1600000 . ,O.3,25000.1
NFS,FS/3,4.,3.,3 . 1
FF 10.333/
ANALYS, DESIGN I 4HANAL , 4HDESI/
GO TO (100,200),ICOME
C
--
100
-....)
110
120
PT
PA
PI
PS =
ITER
PTMIN
PTMIN
PTMIN
PTMIN
~ 0
3
2
12 . 0
6.0
130
PLASOOIO
PLASOOll
PLAS0012
PLAS0013
PLAS0014
PLAS0015
PLAS0016
PLAS0017
PLAS0018
PLAS0019
PLAS0020
PLAS0021
PLAS0022
PLAS0023
PLAS0024
PLAS0025
PLAS0026
PLAS0027
PLAS0028
PLAS0029
PLAS0030
PLAS0031
PLAS0032
PLAS0033
PLAS0034
PLAS0035
PLAS0036
PLAS0037
PLAS0038
PLAS0039
PLAS0040
PLAS0041
PLAS004Z
PLAS0043
PLAS0044
PLAS004S
PLAS0046
PLAS0047
PLAS0048
PLAS0049
PLAS0050
PLAS0051
PLAS0052
PLAS0053
PLAS0054
PLAS0055
PLAS0056
PLAS0057
PLAS0058
PLAS0059
PLAS0060
PLAS0061
PLAS0062
PLAS0063
PLAS0064
PLAS0065
PLAS0066
PLAS0067
PLAS0068
PLAS0069
PLAS0070
PLAS0071
PLAS0072
140
PIPMAT(3,N)
PA
PIPMAT (4, N)
PI
PIPMAT(S,N) ~ PDEN*PA
PDIA = PID + PT
RETURN
C
C
C
C
C
C
200
IEXIT
IF(NINC.GT.O) GO TO 205
IEXIT = -1
RETURN
C
C
205
TMAX
0.0
BMAX = 0.0
PAVG = 0.0
UYMAX = RESULT(4,l)
UYMIN = RESULT(4,l)
210
DO 210 N=l,NPPT
RESULT(10,N) - RESULT(5,N) Ips
RESULT(ll,N) - RESULT(6,N)/PA
RESULT(12,N) = RESULT(7,N)/PA
IF(ABS(RESULT(lO,N.GT.BMAX) BMAX - ABS(RESULT(lO,N
IF(ABS(RESULT(ll,N .GT.TMAX) TMAX - ABS(RESULT(ll,N
IF(RESULT(4,N) .GT.UYMAX) UYMAX = RESULT(4,N)
IF(RESULT(4,N) .LT.UYMIN) UYMIN = RESULT(4,N)
PAVG - PAVG + RESULT(8,N)
CONTINUE
PAVG = ABS(PAVG/NPPT)
DISP = UYMAX-UYMIN
IF (SM .EQ. 0.0) SM = 1.0
PBUCK ~ PDIA**3/(36.*PE*SM*(1.-SK*(1.-PNU*Z)
PCRIT = SQRT(PI/PBUCK)
IF(IA.LT.NINC)
ITER ~ ITER +
DISPR : PFS(l)
OUTFR = PFS(Z)
BUCKR = PFS(3)
RETURN
1
/ DISPSF
IOUTFSF
I BUCKSF
RMAX
SCM 3-10-90
PLAS0073
PLAS0074
PLAS0075
PLAS0076
PLAS0071
PLAS0078
PLAS0079
PLAS0080
PLAS0081
PLAS0082
PLAS0083
PLAS0084
PLAS0085
PLAS0086
PLAS0087
PLAS0088
PLAS0089
PLAS0090
PLAS0091
PLAS0092
PLAS0093
PLAS0094
PLAS0095
PLAS0096
PLAS0097
PLAS0098
PLAS0099
PLAS0100
PLASOIOI
PLAS0102
PLASOI03
PLAsOI04
PLAS0105
PLAS0106
PLASOI07
PLAS0108
PLAS0109
PLAS0110
PLASOl11
PLAS0112
PLASOll3
PLASO 11 4
PLASOllS
PLAS01l6
PLASOll7
PLAS01l8
PLASO 11 9
PLAS0120
PLAS0121
PLAS0122
PLAS0123
PLAS0124
PLAS0125
PLAS0126
PLAS0127
PLAs0128
PLAS0129
PLAS0130
PLAS0131
PLAS0132
PLAS0133
PLAS0134
PLAS0135
PLAS0l36
PLAS0l37
PLAS0l38
PTNEW ~ PT * RMAX
PLAS0139
IF( PTNEW .LT. PTMIN) GO TO 250
PLAS0l40
PT ~ PTNEW
PLAS0l41
PA ~ PT
PLAS0142
PI
PT
12.0
PLASOl43
PS ~ PT
6.0
PLAS0144
C
PLAS0145
C
UPDATE SECTION PROPERTIES AND CHECK FOR CONVERGENCE.
PLAS0l46
PLAS0147
C
IF(ITER.GT.5) WRITE(6,2200) ITER,PT,PA,PI,PS
PLAS0148
IF(ITER.GT.5) GO TO 300
PLAS0149
IEXIT ~ -2
PLAS0150
GO TO 130
PLAS0151
WRITE(6,2300) ITER,PT,PA,PI,PS
250
PLAS0152
C
PLAS0153
PRINTOUT STRUCTURAL RESULTS AND EVALUATION.
PLAS0154
C
C
PLAS0155
PLAS0156
300
CONTINUE
PLAS0157
C
PLAS0158
C
PRINT FINITE ELEMENT FIELD RESPONSES.
PLAS0159
C
PLAS0160
IF (LEVEL .EQ. 1) GO TO 350
ICOME ~ 3
PLAS0161
CALL PRHERO(IA,ICOME,IEXIT,LEVEL,NINC,NPMAT,NPPT,PDIA,PIPMAT,
PLAS0162
PLAS0163
RESULT,SK,SM)
ICOME ~ 2
PLAS0164
350 CONTINUE
PLAS0165
WRITE (6,2800) lA, (RESULT (1, J) ,RESULT (3, J) ,RESULT (8, J) ,RESULT (5, J) ,PLAS0166
X RESULT (6,J) ,RESULT(7,J) ,RESULT (2,J) ,RESULT(4,J) ,RESULT (9,J),
PLAS0167
X RESULT(10,J),RESULT(11,J),RESULT(12,J),J~l,NPPT)
PLAS0168
PLAS0169
C
PLAS0l70
C
PERFAC ~ (FF * PE * PI) I PDIA ** 2
PLAS0171
WRITE(6, 2900) lA, DISPSF, OUTFSF, BUCKSF, PERFAC
PLAS0172
PLAS0173
IEXIT = 1
PLAS0l74
IF(IA.LT.NINC) IEXIT~ 0
PLASOn5
RETURN
PLAS0176
C
PLAS0177
FORMATS
C
PLAS0l78
C
PLAsOn 9
1000 FORMAT (6FlO. 0)
PLAS0180
2000 FORMAT (III 10X,35H PIPE PROPERTIES ARE AS FOLLOWS ... II
X 15X,36H AVERPE PIPE DIAMETER (IN.) .......
Fl1.2 II
PLAS0181
X 15X,36H YOUNGS MODULUS OF PIPE (PSI).......
Fll.2 II
PLAS0182
X 15X,36H POISSONS RATIO OF PIPE (-) ........ , Fll. 2 I I
PLAS0183
X 15X,36H YIELD STRESS OF PIPE (PSI) ......... , Fll.2 II
PLAS0184
X 15X,36H DENSITY OF PIPE (PCI) ..............
Fl1.2 I)
PLAS0185
2001 FORMAT(I 10X,SOH**** WARNING **** PIPE WALL THICKNESS IS LESS THANPLAS0186
X
,8H ALLOWED, F5.2, 4H IN.)
PLAS0187
II
PLAS0188
2010 FORMAT(II lOX, 31H SECTION PROPERTIES OF PIPE
X 15X, 36H THICKNESS OF PIPEWALL (IN) ......... , FIO.5 II
PLAS0189
X 15X, 36H THRUST AREA (IN**2/IN) ............
FlO.5 II
PLAS0190
X l5X, 36H MOM. OF INERTIA (IN**4/IN) ........
FlO.5 II
PLAS0191
X l5X, 36H SECTION MODULUS (IN**3/IN) ........
FlO.5 /)
PLAS0192
2100 FORMAT(III 10X,43H DESIRED SAFETY FACTORS FOR PIPE DESIGN .,. III PLAS0193
X l5X, 36H DEFLECTION COLLAPSE, (0.2*D) ...... , FlO.5 II
PLAS0194
X 15X, 36H OUTER-FIBER ULTIMATE STRESS ........ , FIO.S II
PLAS0195
X 15X, 36H ELASTIC BUCKLING .................. , FlO.5 I
PLAS0196
FORMAT(1H1,111
10X,50H
DESIGN
ITERATIVE
PROCEDURE
DID
NOT
CONVERGEPLAS0197
2200
X AFTER ,131 10X,55H ITERATIONS. THE LAST SOLUTION IS PRINTED AND EPLAS0198
C
C
C
' -l
~
~REP0041
C"
~RE~0042
~REP0043
KPUTCK
0
LUPREP
IF (LEVEL . EQ. 2) LUPREP
LUDATA
IF(LEVEL.EQ . 2) THEN
IF(NCAN.EQ.O .OR . NCAN . EQ.I) CALL CANl (LUDATA,KPUTCH,PDIA,
X
DENSTY)
IF(NCAN.EQ.2) CALL CANBOX (LUDATA,KPUTCK,DENSTY)
IF(NCAN.EQ.3) CALL CANAR1 (LUDATA, KPUTCK,DENSTY)
ENDIF
C
C'
C
-.....l
Vl
NDNEL - MAXO(NPT,NELEM)
LOCX = 1
LOCY = LOCX + NPT
LOCNGN ~ LOCY + NPT
LOCNTP ~ LOCNGN + 7*NDNEL
LOCXYG = LOCNTP + NPT
C
C"
LOCNOD
LOCLGN
LOCNGN
LOCXYG
C"
C
~RE~0048
PREP0049
PREP0050
PREP005l
PREP0052
PREP0053
~REP0054
PREP0055
PREP0056
PREPOOS?
PREP0058
PREP0059
PREP0060
PREP0061
PREP0062
PREP0063
PREP0064
PREP006S
PREP0066
PREP006?
PREP0068
PREP0069
PREPOO?O
PREPOO?I
PREPOOn
PREP0073
~REPOO?4
C
C -
C"
PREP0044
PREP0045
PREP0046
PREP0047
C
C
C
60 CALL GENNOD(FEDATA(LOCX),FEDATA(LOCYJ,FEDATA(LOCNGN),
PREP0075
PREPOO?6
PREP007?
PREPOO?8
PREPOO?9
PREP0080
PREP008I
PREP0082
PREP0083
PREP0084
PREPOOBS
PREPOOB6
PREPOOe?
PREP008S
PREP0089
PREP0090
PREP009I
PREP0092
PREP0093
PREP0094
PREP0095
PREP0096
PREP0097
~REP00ge
PREP0099
PREPOIOD
PREPOIOI
PREPOI02
PREPOI03
PREPOI04
PREPOIOS
PREPOI06
CALL GENEL(FEDATA(LOCNOD) ,FEDATA(LOCLGN) ,NPT,NELEH,MAXEL,KPUTCK, PREPOIO?
1
MGENPR,MBAND,LSTOP,LUPREP)
PREPOI0B
PREPOI09
C
PREPOllO
CALL GENEND(FEDATA(LOCX),FEDATA(LOCY),FEDATA(LOCNOD),
FEDATA(LOCNDB),FEDATA(LOCBIV),FEDATA(LOCKDE),
PREPOlli
I
FEDATA(LOCNTP),FEDATA(LOCXYG),NPT,NELEM,NBPTCU,MAXBC,
PREP01l2
2
PREPOIl3
KPUTCK,MGENPR,NSMAT,LSTOP,NUMLI,LUPREP,MAXMAT,NXMAT)
3
PREP01l4
C
PREP01l5
ROUTINE MODMSH CHANGES THE CAN MESH TO USER SPECS.
C"
PREP01l6
C
PREP01l7
IF (WORD2 .EQ.XMOD) CALL MODMSH(FEDATA(LOCBIV) ,FEDATA(LOCNOD) ,
PREP01l8
FEDATA(LOCNDB),FEDATA(LOCX),FEDATA(LOCY),
PREP01l9
NBPTCU,MAXBC,NELEM,NPT)
PREP0120
C
PREPOI2I
CHECK NUMBER OF BOUNDARY CONDITIONS
C"
PREP0122
C
PREPOI23
IF (WORD2 .EQ. XMOD) NBPTC = NUMBC
PREPOI24
IF (NBPTCU .LE. NBPTC) GO TO 70
PREPOI2S
WRITE(6,6018) NBPTCU, NBPTC
PREPOI26
KPUTCK - KPUTCK + 1
PREPOI27
70 NBPTC - NBPTCU
PREPOI28
C
PREPOI29
SAVE GENERATED DATA
C"
PREP0130
C
PREP0l31
WRITE (6,6020) TITLE, KPUTCK, NSMAT, NPMAT, NXMAT, MBAND
PREP0l32
C
PREP0133
Add NPPT parameter to subroutine call . SCM 3-10-90
PREP0134
CALL SAVED(FEDATA(LOCX),FEDATA(LOCY),FEDATA(LOCNOD),FEDATA(LOCNDB)PREPOI35
,FEDATA(LOCBIV),FEDATA(LOCKDE) ,FEDATA(LOCXYG) ,TITLE,
PREP0136
2
NPT,NELEM,IPLOT,NBPTC,NPUTCK,KPUTCK,LSTOP,NINC,
PREPOI37
3
LUDATA,LUPLOT,NSMAT,NPMAT,NPPT)
PREP0138
PREP0l39
PREP0140
C
PREPOI41
ESTABLISH RESPONSE OUTPUT AND PLOTTING CONTROLS.
C"
PREP0142
C
PREP0143
PREP0144
Revise ranges of output and plotting controls. SCM 3-01-89
PREP0145
PREP0146
IF(IPLOT.LT.O .OR. IPLOT.GT.3) IPLOT =
PREP0147
IF(IWRT . LT.O .OR. IWRT . GT.3) IWRT = 1
PREP0148
PREP0149
lOUT - -(LUPLOT*lOO + IPLOT'lO + IWRT)
PREPOI50
PREPOISI
Add RESULT and NPPT parameters to subroutine call.
PREPOIS2
SCM 3-4-89
PREPOlS3
PREPOIS4
CALL RESOUT (FEDATA(l) ,FEDATA(l) ,FEDATA(l) ,FEDATA(l) ,FEDATA(I) ,
PREPOI55
I
FEDATA(I) ,FEDATA(l) ,IOUT,NELEM,NPT,RESULT,NPPT)
PREPOI56
PREP015?
C
PREPOI58
RETURN
PREPOI59
5010 FORMAT (A4,IX,I?A4,3X,A4/8I5)
THE CONTROL WORD MUST BE 'PREP 'PREPOI60
6005 FORMAT ( 63HOFATAL DATA ERROR.
PREPOI61
1, BUT IS ',AS, IH')
PREP0162
6010 FORMAT (
43HI"
BEGIN PREP OF FINITE ELEMENT INPUT' *1
PREP0163
I
113IHOTHE DATA TO BE RUN IS ENTITLED IIIHO,I?A4111
PREPOI64
2
40HONUMBER OF CONSTRUCTION INCREMENTS------,ISI
PREPOI65
3
40HOPRINT CONTROL FOR PREP OUTPUT----------,I51
PREPOI66
40HOINPUT DATA CHECK-----------------------,ISI
FEDATA(LOCNTP) ,FEDATA(LOCXYG) ,NPT,MAXNP, KPUTCK,
MGENPR,LUPREP)
--.)
0\
SCM 3-18-89
Co .
CC
COMMON FEDATA(10000)
DATA ISIZE/100001
DATA LUPLOT,LUDATA 110,111
DATA MAXNP,MAXEL,MAXBC,MAXMAT 1200,100,400,101
Add logic for evaluating LCODE parameter.
SCM 3-18-89
PREP0167
PREP0168
PREP0169
PREP0170
PREP0171
PREPOl72
PREP0173
PREP0174
PREP0175
PREP0176
PREP0177
PREP0178
PREP0179
PREP0180
PREP0181
PREP0182
PREP0183
PREP0184
PREP0185
PREP0186
PREP0187
PREPOl86
PREP0189
PREP0190
PREP0191
PREP0192
PRHROOOI
PRHR0002
PRHR0003
PRHR0004
PRHR0005
PRHR0006
PRHR0007
PRHR0008
PRHR0009
PRHROOI0
PRHROOll
PRHR0012
PRHR0013
PRHROOH
PRHR0015
PRHR0016
PRHR0017
PRHR0018
PRHR0019
PRHR0020
PRHR0021
PRHR0022
PRHR0023
PRHR0024
PRHR0025
PRHR0026
IF(LCODE.GT.O) THEN
LEVEL = LeODE
ELSE
LEVEL = IABS(LCODE/lOO)
NCAN = IABS(LCODE + LEVEL'lOO)
ENDIF
C
GO TO (100,1l0,140),ICOME
C
100 CONTINUE
C
C"
C
SCM
1
2
5-22-89
C"
C
LOCX c
LOCY = LOCX + NPT
LOCNOD c LOCY + NPT
LOCMNO
LOCNOD + NELEM 4
LOCNOS
LOCMNO + NELEM
LOCBIV = LOCNOB + NBPTC
LOCNQ = LOCBIV + NBPTC ' 3
LOCU - LOCNQ + NPT 1
LOCV = LOCU NPT
LOCST = LOCV + NPT
LOCSTP
LOCST + NELEM'6
LOCSTH = LOCsTP + NPMAT'2 + 2
ISZTST = LOCSTH + NELEM ' 6
IF (IsZTST .LE. ISIZE) GO TO 105
Reverse order of ISZTST and ISIZE in WRITE statement below.
SCM 10-23-89
WRITE(6,6020) ISIZE, ISZTST
STOP 11
C
C"
C
by KS
PRHR0027
PRHR0028
PRHR0029
PRHR0030
PRHR0031
PRHR0032
PRHR0033
PRHR0034
C
C"
1
2
3
PRHR0035
PRHR0036
PRHR0037
PRHR0038
PRHR0039
PRHR0040
PRHR0041
PRHR0042
PRHROOO
PRHR0044
PRHR0045
PRHR0046
PRHR0047
PRHR0048
PRHR0049
PRHR0050
PRHRO051
PRHR0052
PRHR0053
PRHR0054
PRHR0055
PRHR0056
PRHR0057
PRHR0058
PRHR0059
PRHR0060
PRHR0061
PRHR0062
PRHR0063
PRHR0064
PRHR0065
PRHR0066
PRHR0067
PRHR0068
PRHR0069
PRHR0070
PRHR0071
PRHR0072
PRHR0073
PRHR0074
PRHR0075
PRHR0076
PRHR0077
PRHR0078
PRHR0079
PRHR0080
PRHR0081
PRHR0082
PRHR0083
PRHR0084
PRHR0085
PRHR0086
PRHR0087
PRHR0088
PRHR0089
PRHR0090
PRHR009l
PRHR0092
PRHR0093
PRHR0094
PRHR0095
PRHR0096
PRHR0097
FEDATA(LOCV),FEDATA(LOCK),FEDATA(LOCY
PRHR009B
PRHR0099
PRHROI00
C
PRHROI01
PRHR0102
C"
RESOUT PRINTS OUT FINITE ELEMENT RESPONSES
PRHR0103
C
PRHR0104
PRHR0105
Add RESULT and NPPT parameters to subroutine call .
PRHR0106
SCM 3-01-B9
PRHR0107
PRHR010B
CALL RES OUT (FEDATA(LOCMNO),FEDATA(LOCNOD),fEDATA(LOCST),
1
FEDATA(LOCU),FEDATA(LOCV),FEDATA(LOCX),FEDATA(LOCY), PRHR0109
PRHROllO
Z
IA,NELEM,NPT,RESULT,NPPT)
PRHR0111
6020 FORMAT (lHO,40H .". ~ 11' . . . . ,. .. .. .. ..
,.
...........
..
,II
PRHROllZ
1
1 H 40H .. * It .. .. .. ERROR ..
.. " .. .. ..
, / I
PRHR01l3
Z
1H ,40H 'BLANK COMMON NEEDS TO BE INCREASED' , ,II
PRHR01l4
PRHR01l5
3
IH ,21H 'BLANK COMMON IS NOW,I5,5HWORDS,
PRHR01l6
IH ,32H ' REQUIRED SIZE OF BLANK COMMON,I5,5HWORDS,11
PRHR01l7
5
1H ,47H 'CHANGE BLANK COMMON SIZE IN SUBROUTINE PRHERO)
PRHROllB
RETURN
PRHR01l9
END
PRINOOOI
PRIN0002
CANDE-89 (C)ULVERT (AN)ALYSIS AND (DE)SIGN PROGRAM
PRIN0003
VERSION 1.0, MARCH 1990
PRIN0004
PUBLIC DOMAIN SOFTWARE CONTRIBUTED BY
PRIN0005
THE FEDERAL HIGHWAY ADMINISTRATION
PRIN0006
""** * * * * * * ..... * * * + . * .. ** * * *
PRIN0007
SUBROUTINE PRINC (XM, 'XML)
PRIN0008
C
PRIN0009
THIS SUBROUTINE FINDS THE PRINCIPAL COMPONENTS OF A SECOND RANK
C
PRIN0010
C
TENSOR IN TWO-DIMENSIONS
PRINOOll
C
PRIN0012
Uncomment this statement in all program modules for double
PRINOOl3
precision version. SCM 3-10-90
PRIN0014
PRIN0015
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
PRIN0016
PRIN0017
DIMENSION XM (4), XML (4)
PRIN001B
XML(3)~0.0
PRIN0019
DUl- (XM( 1) +XM(Z) ) IZ. 0
PRINOOZO
DUZ~SQRT ( ( (XM(I) -XM (Z) ) IZ. 0) "2+XM(3) **Z)
PRIN0021
XML (1) -DU1 +DU2
PRINOOZ2
XML(Z)~DUI-DU2
PRIN0023
IF (XM(l) .LE. XM(Z GO TO 705
PRINOOZ4
DU3~XML(I)-XM(Z)
PRIN0025
IF(DU3 . EQ.0.0) GO TO 718
PRIN0026
DUZ~XM(3)/DU3
PRINOOZ7
DU1-SQRT(1 . 0/(1.0+DU2"2
PRINOOZB
DUZ~DU2'DU1
PRIN0029
GO TO 716
PRIN0030
705 DU3~XML(1)-XM(1)
PRIN0031
IF(DU3.EQ.0.0) GO TO 718
PRIN0032
DU1~XM(3)/DU3
PRIN0033
DU2-SQRT(1.0/(1.0+DU1"Z
PRIN0034
DUl-DUl'DUZ
PRIN0035
716 XML(3)~ATAN2(DUZ,DU1)/0.017453Z9
PRIN0036
718 RETURN
PRIN0037
END
* . . . . . . . . . . . . . . . . * REDMOOO!
REDM0002
CANDE-B9 (C) ULVERT (AN)ALYSIS AND (DE) SIGN PROGRAM
REDM0003
VERSION 1. 0, MARCH 1990
REDM0004
PUBLIC DOMAIN SOFTWARE CONTRIBUTED BY
5
RETURN
140 CONTINUE
---.)
---.)
.**._ ....
4HCL90,4HCL8s1
DATA XCIO .0, 0 .0, 0.0, 0 .0, 0 .0, 0.0, 3. 472, 2.083,
1.388,2.777,1.388,0.6941
Change XPHIO and XDPHI parameters from radians to degrees.
SCM 3-03-89
DATA XPHIO/42.0,36.0,33.0,36 . 0,32.0,30.0,
3].0,33.0,33.0,30.0,30.0,30.01
DATA XDPHI/9. 0, 5. 0, 3.0,8.0,4.0,2.0,
0.0,0.0,0.0,0.0,0.0,0.01
DATA XZK/600.0,300.0,200.0,600.0,300.0,150.0,
400.0,150.0,100.0,150.0,90.0,60.01
DATA XZN/O.4, 0.4, 0.4, 0.25, 0.25, 0.25, 0.6, O. 6, O. 6,
0.45,0.45,0.451
DATA XRF 10.7,0.7,0.7,0.7,0.7,0.7,0.7,0.7,0.7,0.7,
0.7,0.71
DATA XBK/175.0,75.0,50.0,4s0.0,250.0,ls0.0,200.0,
75.0,50.0,140.0,80.0,50.01
DATA XBM/0.2, O. 2, 0.2, 0 .0, 0 .0, 0.0, 0.5,0.5,0.5,0.2,
0.2,0.2/
DATA IOVER/4HGGOO,4HGfAI,4HMGOO,4HMFAI,4HCGOO,4HCFAII
DATA XE/II00.0,550.0,600.0,400.0,250.0,150.0,
1300.0,750.0,850.0,550.0,325.0,200.0,
1500.0,850.0,1000.0,600.0,375.0,225.0,
1650.0,1000.0,1100.0,700.0,375.0,250.0,
1800.0,1100.0,1200.0,750.0,400.0,250.0,
1900.0,1150.0,1250.0,800.0,400.0,250.0,
2100.0,1300.0,1350.0,900.0,400.0,250.0,
2250.0,1400.0,1450.0,900.0,400.0,250.01
DATA XHI3.4, 6.9,10.3,13.8,17.2,20.7,27.6,34.51
......
-..J
00
C
C
C
[MATNAM(K),K~l,s)
+ 1
NON (I) = 0
IF(I.LT.l .OR. I.GT.MAXMAT) GO TO 30
IF(ITYP .LT.1 .OR. ITYP.GT.5) GO TO 30
GO TO 40
30 WRITE[6,6070) ITYP,I
KPUTCK = KPUTCK + 1
GO TO 2
C
40 WRITE[6,907) I, (MATNAM(K),K=l,s),DEN(I)
DEN(I) = DEN[I)/1728.
GO TO [sO,60,80,90,100),ITYP
C
REDM0068
REDM0069
REDM0070
REDM0071
REDMOO?2
REDM0073
REDM0074
REDH007s
REDM0076
REDMOO7?
REDM0078
REDM0079
REDMOOSO
REDM0081
REDM0082
REDM0083
REDM0084
REDM0085
REDM0086
REDM0087
REDM0088
REDM0089
REDM0090
REDM0091
REDM0092
REDH0093
REDM0094
REDM0095
REDM0096
REDM0097
REDH0098
REDM0099
REDHOIOO
REDH0101
REDM0102
REDHOI03
REDM0104
REDM010s
REDM0106
REDM0107
REDH0108
REDMOI09
REDMO 11 0
REDM0111
REDH0112
REDMOl13
REDMO 11 4
REDM011s
REDMO 11 6
REDM011 7
REDMO 11 8
REDM0119
REDMOl20
REDM0121
REDM0122
REDM0123
REDM0124
REDMOl2s
REDM0126
REDM0127
REDM0128
REDM0129
REDM0130
WRITE(6,904) E(I,1),GNU(I,l),SMH,SKH
CALL CONVT(E(I,l),GNU(I,l))
GO TO 65
C
C
C
ANISOTROPIC PROPERTIES
60 REAC(S,5010) D2,03,D4,D5,D6
WRITE(6,905) D2,D3,D4,D5,D6
CALL ANISP[D2,D3,D4,05,D6)
65 L=O
DO 70 J=l,3
DO 70 K=J,3
L~L+1
70 H(I,L)=CP(J,K)
GO TO 2
C
C
C
SCM
20
0.5
C
J=O
Add logic to select Selig standard parameters. SCM 3-3-89
IF (IBULK(I).EQ.O) THEN
DO 81 N=1,12
IF(MATNAM(l) .EQ.IDUNC(N)) J=N
81 CONTINUE
ELSE
DO 82 N=l,lS
IF(MATNAM(l) .EQ.ISELIG(N)) JS=N
82 CONTINUE
END IF
IF(J.EO.O .AND. JS.EQ.O) GO TO 85
IF(IBULK(I) .NE.O) GO TO 83
REDM0131
REDM0132
REDM0133
REDM0134
REDM0135
REDM0136
REDM0137
REDM0138
REDM0139
REDM0140
REDMOl41
REDM0142
REDM0143
REDM0144
REDM0145
REDM0146
REDM0147
REDM0148
REDM0149
REDM0150
REOM0151
REDM0152
REDM0153
REDM0154
REDM0155
REDM0156
REOM0157
REDM0158
REDM0159
REDM0160
REDM0161
REDM0162
REDM0163
REDM0164
REDM0165
REDM0166
REDM0167
REDM0168
REDM0169
REDM0170
REDM01?l
REDM01?2
REDMOn3
REDM0174
REDM01?5
REDM0176
REDMOl77
REDM0178
REDM0179
REDM0180
REDM0181
REDM0182
REDM0183
REDM0184
REDM0185
REDM0186
REDM0187
REDM0188
REDM0189
REDM0190
REDM0191
REDM0192
REDM0193
REDM0194
REDM0195
REDM0196
REDM0197
C (I) =XC (J)
REDM0198
REDM0199
Convert from degrees to radians. SCM 3-3-89
REDM0200
REDM0201
PHIO(I)=XPHIO(J)*PI/180
REDM0202
DPHI(I)=XDPHI(J)*PI/180
REDM0203
REDM0204
ZK (I )=XZK (J)
REDM0205
ZN (I )=XZN (J)
REDM0206
RF(I)=XRF(J)
REDM0207
BK(I)=XBK(J)
REDM0208
BM(I)=XBM(J)
REDM0209
VT(I)=O.O
REDM02l0
GO TO 86
REDM0211
REDM02l2
Establish standard Selig parameter values. SCM 3-3-89
REDM0213
REDM0214
83
C (I) =SXC (JS)
REDM02l5
PHIO(I)-SXPHIO(JS)*PI/180
REDM02l6
OPHI(I)=SXOPHI(JS)*PI/180
REDM0217
ZK(I)=SXZK(JS)
REDM02l8
ZN(I)=SXZN(JS)
REDM02l9
Rf(I) =SXRF (JS)
REDM0220
BK(I)=SXBI (JS)
REDM0221
BM (I )=SXEU (JS)
REDM0222
VT(I)=O.O
REDM0223
GO TO 86
REDM0224
REDM0225
C
REDM0226
USER DEFINED DUNCAN MODEL
C
REDM0227
C
REDM0228
85 READ(5,330)Hl,H2A,H2B,H3,H4,H5
REDM0229
C(I) = HI
REDM0230
REDM0231
SCM 3-3-89
Convert from degrees to radians.
REDM0232
REDM0233
PHIO(I) - H2A*PI/IBO
REDM0234
DPHI(I)
H2B*PI/IBO
REDM0235
REDM0236
ZK(I)
H3
REDM0237
ZN(I) - H4
REDM0238
RF(I)
H5
REDM0239
READ(5,340) H7,H8,H9
REDM0240
BK(I)=H7
REDM0241
BM(I)=H8
REDM0242
VT (I)=H9
REDM0243
C
REDM0244
WRITE OUT INPUT/DEFAULT DATA FOR SOIL CLASSES
C
REDM0245
C
REDM0246
REDM0247
convert PHIO and DPHI on output from radians to degrees .
REDM0248
SCM
3-3-89
REDM0249
REDM0250
86 WRITE(6, 310) (MATNAM(K), K =1,5) ,C(I), PHIO(I) *lBO/PI,
REDM0251
DPHI(I)*lBO/PI,ZK(I),ZN(I),RF(I)
REDM0252
REDM0253
Revise write statements for hyperbolic bulk modulus
REDM0254
option.
MGK 9-29-88
REDM0255
IF (VT(I) . EQ . 0.0 .AND. IBULK(I) .EQ. 0) WRITE(6,320) BK(I),BM(I)REDM0256
C
C
C
......
-..J
\D
C
C
C
C
90
91
C
C
C
92
C
C
C
93
94
95
98
C
C
C
100
C
C
C
C
C
C
C
C
REDM0320
REDM0321
REDM0322
REDM0323
REDM0324
REDM032S
REDM0326
REDM0327
SET DEFAULT VALUES FOR COHESIVE SOIL CLASS
REDM032B
REDM0329
IF(MATNAM(1).NE. ICOHE) GO TO 120
REDM0330
IF(03 . LT . 0 . 3 .OR. 03 .GT. 3.0) 03 = VOIORC
REDM0331
1' (04 . LT . 0.0 .OR.04 . GT. 1.0) 04
SATC
REDM0332
IF(OS . LE . O.O .OR.D5 .GT. 1.0) 05 = PIC
REDM0333
A = 1 . 12*(1.+2.*04)
REDM0334
GO TO 130
REDM0335
SET OE,AULT VALUES FOR MIXED SOIL CLASS . (THIS IS DEFAULT CLASS) REDM0336
REDM0337
REDM033B
MATNAM (l) = IMIX
REDM0339
IF(03 . LE . 0.1 .OR . D3 . GT . 1.0) 03 = VOIDRM
REDM034 0
1,(04 . LE.O.O .OR. D4.GT . 1.0) D4
SATM
REDM0341
I,(DS .LE.O.O . OR . OS.GT . 0.5) DS = PIM
REDM0342
A=2.S4* (1.+2.*04)
REDM0343
REDM0344
WRITE OUT INPUT/DEFAULT DATA FOR SOIL CLASSES.
REDM0345
REDM0346
WRITE(6,60~0) MATNAM(1),MATNAM(2),DO,01,D2,03 , D4,DS,NON(I)
REDM0347
COMPUTE MATERIAL CONSTANTS IN HARDINS EQUATIONS. (NOTE THE VARIABLEREDM034B
A WAS BASED ON HARDIN EQUATIONS WITH T = 10 AND N=l.
REDM0349
REDM0350
REDM0351
F - (2.973-03)*'2/(1.+D3)
REDM0352
R - (1100 . -600.*04)
REDM0353
H(I,l) - 1230. *F
REDM03S4
H(I,2)
F*F*R*R/(0.6 - 0.25"DS"0.6)
REDM0355
H(I,3) = A
REOM03S6
REOM0357
GO TO 2
REOM035B
USER DEFINED PROPERTIES FOR HARDINS RELATIONS FROM TRIAXIAL TESTS.REDM0359
REDM0360
REOM0361
WRITE(6,60 S0) 00,D1,02,D3,D4,D5,NON(I)
REOM0362
IF (03'04 . GT. 0.0) GO TO 160
REOM0363
WRITE(6,60SS)
REDM0364
KPUTCK = KPUTCK + 1
REOM0365
H(I,1) = D3
REOM0366
H(I,2) = D4
REOM0367
H(I,3) = DS
REOM0368
GO TO 2
REOM0369
REOM0370
INPUT PROPERTIES FOR INTERFACE ELEMENTS
REDM0371
REDM0372
IF(MATX.EQ.O) WRITE(6,9S0)
REOM0373
IF(1. LE.O) 1=1
REDM0374
REDM0375
Revise maximum interface materials from 30 to 99.
REOM0376
SCM 5-22-89
REOM0377
REDM0378
IF(I. GT. 99) GO TO 30
REDM0379
REDM0380
MATX = MATX+1
REDM0381
READ(5,5010) ANGLE(I),FCOEF(I),TENSIL(I)
REOM03B2
IF(MATNAM(l) . NE . IGRAN) GO TO 110
I'(03.LT . 0 . 1 . OR. D3 . GT. 1 . 0) D3
04 = 0 . 0
DS = 0.0
A = 3.20
GO TO 130
C
C
C
110
C
C
C
120
...-
C
C
C
130
C
C
C
C
00
C
C
C
C
150
160
C
C
C
200
SCM 4-25-89
VOIDRG
1.0
SCM
3-10-89
IF (ITMAX.GT.I0) ITMAX=10
IF (ITMAX.EQ. 0) ITMAX- S
IF (ITMAX.EQ.O) ITMAX- 20
GO TO 2
C
500 CONTINUE
IF (MAT.GT.NSMAT) WRITE(6,6080)MAT,NSMAT
IF (MATX.GT .NXMAT) WRITE (6, 60BO) MATX, NXMAT
IF(MAT.GE.NSMAT .AND . MATX.GE.NXMAT) GO TO 550
WRITE(6,6090) NSMAT
WRITE(6,6090) NXMAT
KPUTCK a KPUTCK + 1
550
IF(LEVEL.NE.2) GO TO 600
ICKFIL ~ 3
OENSTY
OENSTY/172B.
IFILL = 2*(NSMAT/ICKFIL) + 1
IF(DENSTY .NE. DEN(IFILLWRITE(6,6095)DENSTY,DEN(IFILL)
600
IF(KPUTCK.EQ.O) RETURN
WRITE{6,7000) KPUTCK
STOP
#
Co.
FORMATS
2000
5005
5010
6040
.*.
REDM0383
REDM0384
REDM0385
REDM03B6
REDM0387
REDM0388
REOM0389
REDM0390
REDM0391
REDM0392
REDM0393
REDM0394
REOM0395
REDM0396 .
REDM0397
REDM0398
REDM0399
REDM0400
REDM0401
REDM0402
REDM0403
REDM0404
REDM040S
REDM0406
REDM0407
REDM0408
REDM0409
REDMOnO
REDM0411
REDM0412
REDM0413
REDM0414
REDM041S
REDM0416
REDM0417
REDM0418
REDM0419
REOM0420
REOM0421
REDM0422
REDM04 23
REDM04 24
REDM0425
REDM0426
REOM0427
REDM0428
REOM0429
REDMOnO
REDMO 43 1
REDM0432
REDM0433
REDM0434
REDM0435
REDM0436
REDM0437
REDM0438
REDM0439
REDM044 0
REDM0441
REDM0442
REDM0443
REDM0444
REDM0445
......
00
......
6060 fORMAT(1 79H fATAL DATA ERROR. NUMBER Of NONLINEAR DATA POINTS NOTREDM0446
X BETWEEN 2 AND 10, NOMI = ,IS)
REDM0447
6070 FORMAT(/73H FATAL DATA ERROR. MATERIAL NUMBER ANI OR ITYP ARE OUT-OREDM0448
XF-BOUNDS . I,ITYPE=,2r5)
REDM0449
6080 FORMAT (11146R WARNING MORE MATERIAS WERE INPUT THAN DEFINED,2IS) REDM04S0
6090 FORMAT(11149H FATAL DATA ERROR NOT ENOUGH MATERIALS INPUT,NEED,I5)REDM0451
6095 FORMAT(IIII 40H WARNING'"
DENSITY OF FILL ABOVE MESH, ,FIO.S,
REDM0452
X 144H IS NOT THE SAME AS FILL DENSTY WITHIN MESH, ,F10.5)
REDM0453
7000 FORMAT(III 48H **'FATAL DATA ERRORS IN MATERIAL INPUT, ERRORS=,I3)REDM0454
907 FORMAT(lHOfI5X,23HPROPERTIES FOR MATERIAL,I3,3X,8H*'*""',5A4,
REDM0455
1 I l,lOX, 9HDENSITY = ,E15 . 5)
REDM0456
905 f"ORMAT(lHO, 9X,5HC-ll=, Ell.4,/, lOX, 5HC-12=,
El1.4, I,
REDM0457
1
10X,5HC-22=,
El1.4,I, lOX, 5HC-33=,
E11.4, I,
REDM0458
10X,3HTH=,
E11.41
REDM0459
904 FORMAT(lHO,10X,15HYOUNGS MODULUS=,
E11.4, I, 11X,
REDM0460
1
15HPOISSONS RATIO=,
Ell. 4, I, l1X,
REDM0461
2
15HCONFINED MOD.=,
E11.4, I, l1X,
REDM0462
3
15HLATERAL COEFF.=, E11.4)
REDM0463
916 FORMAT(lH ,9X,lP3E20.2)
REDM0464
923 FORMAT(lHO,9X,31HELASTIC PROPERTIES - OVERBURDENI120X,
REDH0465
1
10HOVERBURDEN,10X,14RYOUNGS MODULUS,6X,14HPOISSONS RATIO) REDM0466
FORMAT(IIII 10X,44H INTERFACE ELEMENT MATERIAL-GROUP PROPERTIES IIREDM0467
950
X 12X,8HMAT. NO.,3X,12HNORHAL-ANGLE,2X,13HCOEF-fRICTION,2X,
REDM0468
X 15HTENSILE-RUPTURE II)
REDM0469
FORMAT(15X,I5,3(3X,F12.5)
REDMO 47 0
955
REDM0471
REDM0472
Revise format statement to read IBULK
REDM0473
MGK
9-29-88
REDM0474
REDM0475
300 FORMAT(I5,FlO.5,I5)
REDM0476
REDM0477
305 FORMAT(115X,31RCONTROLS FOR DUNCAN SOIL MODEL III
REDM0478
1 10X,30R MAXIMUM ITERATIONS ........... ,181/
REDM0479
2 10X,30H ENTERING ELEMENT RATIO ....... ,,12.4/)
REDM0480
REDM0481
Add format statement for Selig version of model.
REDM0482
MGK 9-29-88
REDM0483
REDM0484
306 FORMAT(115X,30HCONTROLS FOR DUNCAN SUBROUTINE,I,
REDM0485
1 7X,48HWITH SELIG HYPERBOLIC BULK MODULUS FORMULATION III
REDM0486
2 10X,30H MAXIMUM ITERATIONS .......... ,18/1
REDM0487
3 10X,30H ENTERING ELEMENT RATIO ...... ,,12.4/)
REDM0488
REDM0489
Revise PHIO label to add (DEG). SCM 3-3-89
REDM0490
REDM0491
310 FORMAT(II 5X, 'HYPERBOLIC STRESS-STRAIN PARAMETERS'III
REDM0492
1 10X,36H SOIL CLASSIFICATION .. ......
,5A411
REDM0493
2 10X,30H COHESION INTERCEPT C....... ,F12.411
REDM0494
3 10X,30H FRICTION ANGLE PHIO (DEG) .. ,F12.411
REDM0495
$ 10X,30H 10-FOLD REDUCTION IN PHIO ... ,F12.411
REDM0496
4 10X,30H SCALED MODULUS NUMBER ZK .. ,F12 . 411
REDM0497
5 10X,30H MODULUS EXPONENT ZN ....... ,F12.411
REDM0498
6 10X,30H FAILURE RATIO RF .......... ,F12.4/)
REDM0499
320 FORHAT(10X,30H BULK MODULUS NUMBER BK .. .. ,F12.411
REDM0500
1 10X,30H BULK MODULUS EXPONENT 8M .. ,F12.4)
REDM0501
REDM0502
Insert format statements to print out hyperbolic
REDM0503
bulk modulus.
MGK
9-29-88
REDM0504
REDM0505
323 FORMAT(10X,30H INIT BULK MODULUS NUMBER BI. ,F12.411
REDMOS06
1 10X,30H ULT VOLUMETRIC STRAIN EU ... ,F12 . 4)
REDMOS07
REDMOS08
325 FORMAT(10X,29H CONSTANT POISSON'S RATIO VT ,F12.411)
REDM0509
REDM0510
REDM0511
"
REDUOOOI
REDU0002
CANDE-89 (C)ULVERT (AN)ALYSIS AND (DE)SIGN PROGRAM
REDU0003
VERSION 1 . 0, MARCH 1990
REDU0004
PUBLIC DOMAIN SOFTWARE CONTRIBUTED BY
REDU0005
THE FEDERAL HIGHWAY ADMINISTRATION
. . . . . . * . . . . . . ** ........... * * * REDU0006
REDU0007
SUBROUTINE REDUCI(NN,NCOL)
REDU0008
C
REDU0009
THIS SUBROUTINE REDUCES A BLOCK OF EQUATIONS
C
REDUOOlO
C
REDUOOll
Un comment this statement in all program modules foe double
REDUOOl2
precision version. SCM 3-10-90
REDU0013
REDU0014
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
REDU0015
REDU0016
COHHON/SYSTEM/B(240),A(240,120)
REDU0017
DO 300 N=l,NN
REDUOOl6
IF(A(N,l) .EQ. O.O)GO TO 300
REDU0019
D =8(N)/A(N,l)
REDU0020
B(N)=D
REDU0021
I=N
REDU0022
DO 275 L=2,NCOL
REDU0023
C~A(N,L)/A(N,l)
REDU0024
1=1+1
REDU0025
IF (C . EQ . 0.0) GO TO 275
REDU0026
J=O
REDU0027
DO 250 K=L,NCOL
REDU0028
J~J+l
REDU0029
250 A(I,J)=A(I,J)-C*~(N,K)
REDU0030
B(I)~B(I)-A(N,L)'D
REDU0031
275 A(N,L)-C
REDU0032
300 CONTINUE
REDU0033
RETURN
REDU0034
END
RESOOOOl
CANDE-89 (C)ULVERT (AN)ALYSIS AND (DE)SIGN PROGRAM
RES00002
RES00003
VERSION 1 . 0, MARCH 1990
RES00004
PUBLIC DOMAIN SOFTWARE CONTRIBUTED BY
RES00005
THE FEDERAL HIGHWAY ADMINISTRATION
.. .. .. .. .. .. * .. .. .. .. .. .. .. .. .. .. .. .. .. * .. .. " .. .. .. .. .. .. RES00006
RES00007
RES00008
Add RESULT and NPPT parameters to subroutine statement.
RES00009
SCM 3-01-89
RESOOOIO
SUBROUTINE RESOUT(MNO,NOD,ST,U,V,X,Y,IA,NELEM,NPT,RESULT,NPPT)
RESOOOll
RES00012
RES00013
Uncomment this statement in all program modules for double
precision version. SCM 3-10-90
RES00014
RES00015
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
RESOOOl6
RESOOOl7
RES00018
Add character variable . SCM 3-3-89
RES00019
RES00020
CHARACTER RECORD'133
RES00021
RES00022
Add RESULT variable to dimension statement. SCM 3-4-89
RES00023
DIMENSION MNO(NELEM),NOD(4,NELEM),ST(6,NELEMI,U(NPT),V(NPT),
RES00024
1
X(NPT),Y(NPT),STATE(4),RESULT(20,NPPT)
RES00025
RES00026
330 FORMAT(6F10.5)
340 FORMAT(3F10.5)
END
............
..................... .
--:.
I~.
COMMON/XFACE/NXMAT,ANGLE(99),FCOEF(99),TENSIL(99),ITMAX
DATA CON/0 . Ol745331
DATA STATE/4HFIX ,4HSLIP,4HSLIP,4HfREE
C
IWRT
0,
I,
2,
3,
IF(IA.GE.O) GO TO 50
IA ~ lABS ( IA)
LUPLOT ~ IAIlOO
IPLOT ~ (iA-LUPLOT*lOO)/10
IWRT ~ IA-LUPLOT'lOO-iPLOT*10
RETURN
00
tv
C
C'*
C
50
C
C
C~**********WRITE
78*~******************
C
C
C
C
C
RES00027
RES00028
RES00029
RESOOD30
RES00031
RES00032
RES00033
RES00034
RES00035
RES00036
RES00037
RES00038
RES00039
RES00040
RES00041
RES00042
RESOOOO
RES00044
RES00045
RES00046
RES00047
RES00048
RES00049
RES00050
RESOOOS1
RESOOOS2
RES00053
RESOOOS4
RES00055
RES00056
RES00057
RES00058
RES00059
RES00060
RES00061
RES00062
RES00063
RES00064
RES00065
RES00066
RES00067
RES00068
RES00069
RES00070
RES00071
RES00072
RES00073
RES00074
RES00075
RES00076
RES00077
RES00078
RES00079
RESOOOBD
RESODDB1
RESOOOB2
60
?O
BO
90
RES00084
RES00085
RES00086
RESOOOB?
WRITE STATEMENTS INCORPORATED, JUNE 7S***************** RESOOOeS
RES00089
WRITE(LUPLOT,1000) IA
DO 60 N~l,NPT
WRITE(LUPLOT,1010) U(N),V(N)
CONTINUE
DO 70 N~I,NELEM
WRITE(LUPLOT,1020) (ST(J,N), J~1,6)
CONTINUE
IF(IPLOT.LT.2) GO TO 100
WRITE(30,1000) IA
DO 90, N=l,NPPT
WRITE(30,1110) (RESULT(J,N), J-l,9)
CONTINUE
c*************************************.**.**.******
C
C
100
105
107
118
CONTINUE
MCT ~ 40
DO 118, NN=I,NREC-9
IF(MCT.LT.40) GO TO 115
MCT ~ 0
WRITE(6,6010) IAX , ITERX
WRITE(6,6020)
MCT = MCT + 1
READ (16, '(A133) ',ERR=5DO,END=118) RECORD
WRITE(6,'(A133)') RECORD
CONTINUE
120
CONTINUE
110
115
C
C***.*******.************** +++*~********* *********RESOOOS3
(U(N),V(N),N~l,NPT)
ST(J,N).J~I,6),N~I,NELEM)
C"
C
RES00090
RES00091
RES00092
RES00093
RES00094
RES00095
RES00096
RES0009?
RES00098
RES00099
RESOOIOO
RES00101
RES00102
RES00103
RESOOI04
RES00105
RES00106
RES0010?
RES00108
RES00109
RESOOllO
RESOOll1
RESOO1l2
RESOO1l3
RES00114
RES0011S
RES00116
RES00117
RESOOllB
RES00119
RES00120
RES00121
RES00122
RES00123
RES00124
RES00125
RES00126
RES00127
RES0012B
RES00129
RES00l30
REso0l31
RES00l32
RES00l33
RES00134
RES0013S
RES00l36
RES0013?
REso0l38
RES00139
RESo0140
RES00141
RES00142
RES00143
RES00144
RES00145
REso0146
RESOOl47
RES00148
RES00149
RES00150
RES00151
RES00152
12S
ISO
MCT 40
DO 150 N=l, NPT
IF(MCT.LT.40) GO TO 125
MCT = 0
WRITE(6,2000) IA
WRITE(6,2100)
MCT = MCT + 1
WRITE(6,2200) N,X(N),Y(N),U(N),V(N)
C*'
C
MCT = 40
DO 300 I=l,NELEM
N = MNO(I)
lAC MOO(N,lOOO)/lO
IF(IAC.GT.IA) GO TO 300
IF (NOO(2, I) .NE. NOD(3, I GO TO 300
IF(MCT.LT.40) GO TO 240
MCT 0
WRITE(6,2000) IA
WRITE(6,3100)
240
MCT MCT + 1
Nl - NOO(I,I)
N2 ~ NOO(2,I)
XC ~ O.S*(X(Nl) + X(N2
YC ~ O.S*(Y(Nl) + Y(N2
DO 2S0 K=l, 3
2S0 RQ(K) = 0.S*(ST(K,I)+ST(K+3,I
WRITE(6,3200) I,XC,YC, (RQ(K),K=I,3)
300
CONTINUE
......
00
VJ
C
C
C
310
315
C"
MCT = 40
DO 400 I=l,NELEM
N = MNO(I)
RES00153
RES00154
RESOOlS5
RES00156
RES00157
RES00158
RES00159
RES00160
RES00161
RES00162
RES00163
RES00164
RES00165
RES00166
RES00167
RES00168
RES00169
RES00170
RESOOl11
RESOOl72
RES00173
RES00174
RES00175
RES00176
RES00171
RES00178
RES00179
RES00180
RES00181
RES00182
RES00183
RES00184
RES00185
RES00186
RES00187
RES00188
RES00189
RES00190
RES00191
RES00192
RES00193
RES00194
RES0019S
RES00196
RES00191
RES0019B
RES00199
RES00200
RES00201
RES00202
RES00203
RES00204
RES0020S
RES00206
RES00201
RES00208
RES00209
RES00210
RES00211
RES00212
RES00213
RES00214
RES002l5
RES00216
RES00217
RES0021B
RES00219
RES00220
RES00221
RES00222
RES00223
RES00224
RES0022S
RES00226
RES00227
RES00228
RES00229
RES00230
RES00231
RES00232
RES00233
RES00234
RES00235
PRINCIPAL STRESSES CALCULATED
RES00236
RES00237
CALL PRINC(RQ,ZQ)
RES00238
WRITE(6,4200) I,XC, YC, (ST(K, I), K-1, 6), (ZQ(K), K=l, 3)
RES00239
RES00240
CONTINUE
RES00241
RETURN
RES00242
Add ERROR STOP for 1/0 errors on Unit 16. SCM 3-1-89
RES00243
RES00244
RES00245
WRITE(6,6030)
RES00246
STOP 15
RES00247
RES00248
FORMATS
RES00249
RES00250
RES00251
Revise formats for plot and print output. SCM 11-24-88
RES00252
RES00253
FORMAT (IS)
RES00254
FORMAT(E12.4,lH"E12.4)
RES00255
FORMAT(E12.4,5(lH"E12.4
RES002S6
RES00257
FORMAT(E12.4,8(lH"E12.4
RES002S8
FORMAT(lH1,111 SX,23H CONSTRUCTION INCREMENT, 14 III)
RES00259
FORMAT(IISX,5H NOOE,7X,8HX-COORO.,7X,8HY-COORD., 8X, 7HX-OISP. ,
RES00260
X 8X,7HY-OISP. )
RES00261
FORMAT(5X,I3,2X, 4 (2X,E13.4)
RES00262
FORMAT (SX, /136H BENDING ELEMENT RESULTANT FORCES " I/SX,SHELMNT,RES00263
X 6X,8HX-CENTER,6X,8HY-CENTER,8X,6HTHRUST,9X,5HSHEAR,8X,6HMOMENT/) RES00264
FORMAT(IIO,5(lX,E13.4
RES00265
FORMAT(II 5X,43H INTERFACE ELEMENT FORCES AND DISPLACEMENTS II
RES00266
X 5X,5HELMNT,SH MAT. , 3X, SHSTATE,7X, 7HN-FORCE,1X, 7HS-FORCE,2X,
RES00267
X 3X, 9HN-DISP(I),SX,9HS-OISP(I),5X,9HN-OISP(J),5X,9HS-DISP(
RES00268
FORMAT(5X,215,4X,A4,6(lX,E13.4
RES00269
FORMAT (5X, 7HELEMENT, 45X,
RES00270
1
28HELEMENT STRAINS AND STRESSES I ,6X,3HNO.,8XRES00271
1 ,lHX,10X,lHY,6X,9HEPSILON-X, 2X, 9HEPSILON-Y, 3X, 7HGAMA-XY, 4X,RES00272
7HSIGMA-X, 4X, 7HSIGMA-Y, 4X, 6HTAU-XY,SX,7HSIGMA-l, 4X, 1HSIGMA-2,RES00273
3
6X, 3 HANG , I)
RES00274
FORMAT(I7 ,4X,lPI1E11.2)
RES0027S
RES00276
Add formats for DUncan output. SCM 3-1-89
RES00277
RES00278
lAC c MOD(N,lOOO)/lO
IF(IAC.GT.IA) GO TO 400
IF (NOD(2,I) .EQ. NOD(3,I GO TO 400
N = N/1000
MNX = MNO(I)-N*1000-10*IAC
IF (MNX .NE. 0) GO TO 400
IF(MCT.LT.40) GO TO 325
MCT = 0
WRITE(6,2000) lA
WRITE(6,4100)
325
MCT = MCT + 1
N1
NOD (1, I)
N2
NOO(2,I)
N3
NOO(3, I)
N4
NOO(4, I)
XC = 0.2S*(X(N1)+X(N2)+X(N3)+X(N4
YC 0.2S*(Y(N1)+Y(N2)+Y(N3)+Y(N4
DO 350 K-1,3
350 RQ(K) = ST(K+3,I)
C
C
C
400
500
Co.
C
1000
1010
1020
1110
2000
2100
2200
3100
3200
3500
3600
4100
4200
6000
6010
00
~
FORMAT(29X,I2,15X,I21
RES00279
fORMAT(lHl,II,6X,23HCONSTRUCTION INCREMENT ,I2,15X,
RES00280
X31H(CONVERGENCE ACHIEVED AFTER "',I4,29H ITERATIONS IF ICON RES00281
X, 11)
RES00282
6020 fORMAT 11HO, 15X, 47H' , ELASTIC MODULI AND CONVERGENCE PARAMETERS,RES00283
X28H FOR DUNCAN SOIL MODEL * , " I
RES00284
X22X,69H(CONVERGENCE ERRORS (ERROR-EMODI ARE RATIOS GIVEN BY, (NEW-RES00265
XOLDI/NEW 1,1
RES00286
X22X,42HK-TYPE = 1
DUNCAN POWER LAW BULK MODULUS,
RES00287
X10X,45HSTRESS-LEV <= -1.0 ; COMPLETE TENSION FAILURE,I
RES0028S
X22X,42HK-TYPE = 2 ; SELIG HYPERBOLIC BULK MODULUS,
RES00269
X10X, 34HSTRESS-LEV >= .1.0 ; SHEAR FAILURE,I
RES00290
X22X,37HK-TYPE = 3 ; CONSTANT POISSON'S RATIO,II
RES00291
X3X,5HELE-N,4X,5HMAT-N,4X,6HK-TYPE,4X,4HICON,4X,
RES00292
X10HERROR-EMOD,4X,10HSTRESS-LEV,4X,lOHYOUNGS-MOD,6X,8HBULK-MOD,
RES00293
X4X,10HPOIS-RATIO, 4X, 12HCONFINED-MOD,111
RES00294
6030 FORMAT(lHO,21H"'FATAL 1/0 ERROR"'/1H ,55HDUNCAN SUBROUTINE OUTPURES00295
XT FILE NOT PRESENT OR UNREADABLE/I
RESOO296
RES00297
END
RESOO296
RESPOOOI
CANDE-89 (CIULVERT (ANIALYSIS AND (DEI SIGN PROGRAM
RESPOO02
VERSION 1. 0, MARCH 1990
RESPOOO3
PUBLIC DOMAIN SOFTWARE CONTRIBUTED BY
RESPOO04
THE FEDERAL HIGHWAY ADMINISTRATION
RESPOO05
RESPOO06
SUBROUTINE RESPIP (MNO,NOD,RESULT,ST,STPIPE,U,V,X,Y,
RESPOO07
1
NELEM,NPMAT,NPPT,NPT,IEXIT,ICOMEI
RESPOO06
C
RESPOO09
THIS SUBROUTINE ORDERS PIPE ELEMENTS AND PUTS PIPE RESPONSES
RESP0010
C
C
RESPOOll
INTO MATRIX RESULTS.
RESPOO12
C
X-COORDINATE ON PIPE (X-Y-O, AT PIPE CENTER, FOR RESPOO13
C
RESULT (1, N)
Y-CooRDINATE ON PIPE
LEVEL = 2 I
RESPOO14
C
RESULT(2,NI
Y-CooRDINATE ON PIPE
LEVEL - 21
RESPOO15
C
RESULT(2,NI
X-DISPLACEMENT
RESPOO16
C
RESULT(3,N)
Y-DlaPLACEMENT
RESP0017
RESULT (4, NI
C
BENDING MOMENT (POSITIVE = INNER FIBER TENSION) RESP0016
RESULT(5,NI
C
THRUST FORCE (COMPRESSION = NEGATIVE I
RESP0019
C
RESULT (6, NI
SHEAR fORCE
RESP0020
C
RESULT (7, NI
NORMAL
PRESSURE
ON
PIPE
(POSITIVE
OUTWARD
NORMALIRESP0021
C
RESULT (8, NI
TANGENTIAL PRESSURE ON PIPE (POSITIVE CLOCKWISE I RESP0022
RESULT(9,NI
C
RESP0023
C
THE REMAINING RESULT ARRAY IS DEPENDENT ON PIPE TYPE ..
RESP0024
C
RESP0025
C
Uncomment this statement in all program modules for double
RESP0026
RESP0027
precision version. SCM 3-10-90
RESP0026
RESP0029
IMPLICIT DOUBLE PRECISION (A-H,O-ZI
RESP0030
DIMENSION MNO(NELEMI,NOD(4,NELEM),RESULT(20,NPPTI
RESP0031
1
,ST(6,NELEMI,STPIPE(2,NPPT I,U(NPTI,V(NPTI,X(NPTI,Y(NPTIRESP0032
RESP0033
Revise dimensions of XMONT and XTHRU arrays from 30 to 99.
RESP0034
RESP0035
SCM 4-30-89
RESP0036
RESP0037
DIMENSION XMONT(991,XTHRU(991
RESP0036
RESP0039
COMMON ISIZEPRI BIVD(3),IX,NINC
RESP0040
COMMON lMATERLI CP(3,3),DEN(10),E(10,10),GNU(10,101,H(10,10),
RESP0041
1
ITYPE(10) ,NON(10)
RESP0042
Revise dimensions of NELPIP and NELIST arrays from 30 to 99.
RESPOOO
SCM
4-30-89
DIMENSION NELPIP(991,NELIST(99)
C
GO TO (99,2991 , ICOME
C
C
C
C
FIRST ENTRY
COLLECT CULVERT ELEMENTS AND FIND TOP ELEMENT
99
CONTINUE
YMAX - -1.E+10
NEP = 0
DO 100 I=l,NELEJoI
IF (NOO(2, II . NE. NOD(3, III GO TO 100
NEP = NEP + 1
NELPIP(NEPI = I
NDI
NOD (1 , I)
ND2 = NOD(2, II
Revise selection procedure to choose Material Number 1 as
first beam element in top, right position from centerline .
SCM 2-25-90
200
NETOP = I
CONTINUE
IF(NEP.EQ.OI RETURN
FIND BEAM ELEMENTS CONNECTED CLOCKWISE FROM TOP ELEMENT .
KK =
NEL = NETOP
NELIST(KKI = NEL
If(KK.EQ. NEPI GO TO 250
NAI - NOD(l,NELI
DO 200 1=1, NEP
NEL = NELPIPIII
NB2 = NOD(2,NELI
IF(NA1 . NE.NB21 GO TO 200
KK - KK .1
GO TO 150
CONTINUE
C
C
220
DO 220 I~l, KK
NELIST (NEP-I.l)
NELIST(KK-I+1)
225
NEL = NETOP
NELIST(NEP-KK.1) ~ NEL
IF(KK.EQ.NEPI GO TO 250
NAl = NOD(2,NELI
DO 230 1=1. NEP
NEL = NELPIP(II
NBI = NOD(l,NELI
IF(NAl.NE.NB11 GO TO 230
KK-KK+1
RESP0044
RESP0045
RESP0046
RESP0047
RESP0048
RESP0049
RESP0050
RESP0051
RESP0052
RESP0053
RESP0054
RESP0055
RESP0056
RESP0057
RESP0058
RESP0059
RESP0060
RESP0061
RESP0062
RESP0063
RESP0064
RESP0065
RESP0066
RESP0067
RESP0068
RESP0069
RESP0070
RESP0071
RESP0072
RESP0073
RESPOOH
RESP0075
RESP0076
RESP0077
RESP0076
RESP0079
RESP0060
RESP008l
RESP0062
RESP0083
RESP0064
RESP0085
RESP0086
RESP0087
RESP0066
RESP0069
RESP0090
RESP0091
RESP0092
RESP0093
RESP0094
RESP0095
RESP0096
RESP0097
RESP0098
RESP0099
RESPOIOO
RESPOl01
RESP0102
RESP0103
RESP0104
RESPOI05
RESP0106
230
GO TO 225
CONTINUE
240
C
C"
C"
WRITE(6,3000) NEP,KK
DO 240 I=l,KK
NELIST(I) = NELIST(NEP-KK+I)
NOTE, KK = NUMBER OF CONNECTED ELEMENTS,NEP = ALL BEAM ELMTS.
CHECK NUMBER OF CONNECTED ELEMENTS WITH PRESCRIBED VALUE
Revise limitation that continuous elements be connected .
SCM 4-30-89
'250
250
C
C"
C
275
......
00
Vl
DO 275 J=l,NEP
IF(NEL.EQ.NELPIP(J)) NELPIP(J) - -NELPIP(J)
285
CONTINUE
C"
C"
290
295
ICURVE
NELEFT = NELIST(l)
NERITE = NELIST (NPMAT)
NDLEFT ~ NOD(2,NELEFT)
NDRITE = NOD(l,NERITE)
IF(NDLEFT . EQ.NDRITE) ICURVE
NPPT = NPMAT + ICURVE
C
C
C
(NELIST(I),I=l,NPMAT)
RETURN
C
C
C
SECOND ENTRY
PUT STRUCTURAL RESPONSES INTO RESULT VECTOR .
RESPOI07
RESPOlOS
RESPOI09
RESPOllO
RESPOlll
RESP01l2
RESPOll3
RESPOll4
RESPOll5
RESP01l6
RESP01l7
RESPOllS
RESP01l9
RESP0120
RESPOl21
RESP0122
RESP0123
RESP0124
RESP0125
RESP0126
RESP0127
RESP0128
RESP0129
RESP0130
RESP0131
RESP0132
RESP0133
RESP0134
RESP0135
RESP0136
RESP0137
RESP0138
RESP0139
RESP014 0
RESP0141
RESP0142
RESP0143
RESP014 4
RESP014 5
RESP0146
RESP0147
RESP0148
RESP0149
RESP0150
RESP0151
RESP0152
RESP0153
RESP0154
RESP0155
RESP0156
RESP0157
RESP0158
RESP0159
RESP0160
RESP0161
RESP0162
RESP0163
RESP0164
RESP0165
RESP0166
RESP0167
RESP0168
RESP0169
299
300
CONTINUE
IF(NEP.EQ.O) RETURN
DO 300 1=1, NPMAT
NE = NELIST(I )
NDI - NOD(1,NE)
ND2 = NOD(2,NE)
X(ND2)
RESULT(l,I)
RESULT(2,I)
Y(ND2)
RESULT(3,I) = U(NDZ)
RESULT(4,I)
V(ND2)
310
C
C"
IF(ICURVE.EQ . O) GO TO 310
RESULT(I,NPPT)
X(NDl)
RESULT(2,NPPT)
Y(NDl)
RESULT(3,NPPT) = U(NDl)
RESULT(4,NPPT) - V(NDl)
CONTINUE
SAVE THE PREVIOUS CONVERGED SOLUTION FOR MOMENT AND THRUST
IF(IEXIT.EQ.-1) GO TO 360
DO 350 NUD
1, NPPT
XMONT(NUD) = RESULT(5,NUD)
350 XTHRU(NUD) = RESULT(6,NUD)
360 CONTINUE
C
C
C
400
RESULT (5, 11 I
(ST 13, NE!) + ST (6, NEZ)) 12.0
RESULT(6,Il)
IST(l,NEl) + ST(4,NE211/2.0
RESULT(7,Il) = ISTI2,NEl) + ST(5,NE2)) I 2.0
RESULT(8,Il) - FN/(0.5'(Sl+S2))
RESULTI9,Il) - FT/(0.5'(Sl+S2))
RESULT(19,Il) = RESULTI5,Il) -XMONTIIl)
RESULT(20,Il) - RESULT(6,Il) -XTHRU(Ill
IF(Il.LT. I) GO TO 500
IF(ICURVE.EQ . 1.AND.Il.EQ . NPMAT) GO TO 450
I
I + 1
I1=I+1
IFIICURVE.EQ.O .AND. I.EQ.NPMAT) II
GO TO 400
C
C
RESPOl70
RESPOl71
RESPOl72
RESP0173
RESP0174
RESP0175
RESP0176
RESPOl71
RESPOl78
RESPOl79
RESPOl80
RESP018l
RESPOl82
RESP0183
RESPD184
RESP0185
RESP0186
RESPOl87
RESP0188
RESP0189
RESP0190
RESPOl9l
RESP0192
RESPOl93
RESPOl94
RESPOl95
RESPOl96
RESPOl97
RESPOl98
RESPOl99
RESP0200
RESP020l
RESP0202
RESP0203
RESP0204
RESP0205
RESP0206
RESP0207
RESP0208
RESP0209
RESP02l0
RESP0211
RESP02l2
RESP0213
RESP0214
RESP02l5
RESP02l6
RESPOZl7
RESP02l8
RESP0219
RESP0220
RESP022l
RESP0222
RESP0223
RESP0224
RESP0225
RESP0226
RESP0227
RESP0228
RESP0229
RESP0230
RESP0231
RESP0232
450
C
C"
C
500
C
600
650
675
C
2000
00
3000
0\
4000
4100
4200
RESP0233
RESP0234
RESP0235
RESP0236
RESP0237
RESP023S
RESP0239
RESP0240
RESP0241
RESP0242
RESP0243
RESP0244
RESP0245
RESP0246
RESP0247
RESP024S
RESP0249
RESP0250
INITILIZE RESULT MATRIX
RESP0251
RESP0252
RETURN
RESP0253
RESP0254
WRITE(6,4000) NEL,MAT,I
RESP0255
STOP 10
RESP0256
WRITE(6,4100) NPMAT, KK
RESP0257
STOP 10
RESP0258
WRITE(6, 4200) NEL
RESP02S9
STOP 10
RESP0260
FORMAT(IIII0X,46H AN ORDERED LIST OF BEAM ELEMENTS AROUND PIPE. I RESP0261
X 10X,58H ORDERING IS CLOCKWISE FROM TOP TO BOTTOM OR LEFT TO RIGHTRESP0262
XII(10X,10IS)
RESP0263
FORMAT(II/37H ALL BEAM ELEMENTS ARE NOT CONNECTED.
RESP0264
X 37H THE TOTAL NUMBER OF BEAM ELEMENTS IS ,IS /
RESP026S
X 4lH THE NUMBER OF CONNECTED BEAM ELEMENTS IS ,lSI
RESP0266
X 54H THE LIST OF BEAM ELEMENTS BELOW WILL BE CONSIDERED TO I
RESP0267
X S4H TO COMPRISE THE PIPE. OTHER BEAM ELEMENTS WILL NOT BE I
RESP0268
X 57H PROCESSED BY THE PIPE SUBROUTINES. (NOTE IF YOU DID NOT
RESP0269
X 56H INTEND DISCONNECTED STRUCTURES CHECK BEAM CONNECTIVITY.)
RESP0270
FORMAT(11164H FATAL DATA ERROR. BEAM MATERIAL NUMBER IS NOT PROPERRESP0271
lLY DEFINED ,I
RESP0272
X 115H ELEMENT NUMBER,IS,/,16H MATERIAL NUMBER,IS,I
RESP0273
X 26H MATERIAL NUMBER SHOULD BE , IS)
RESP0274
FORMAT (I I / 40H FATAL DATA ERROR * *
,/
RESP0275
1
44H NUMBER OF SPECIFIED CONNECTED BEAM ELEMENTS ,IS,/RESP0276
2
41H NUMBER OF ACTUAL CONNECTED BEAM ELEMENTS, IS)
RESP0277
FORMAT (/ II 40H * FATAL DATA ERROR
,I
RESP0278
1
67H UNCONNECTED BEAM MATERIAL NUMBER SMALLER THAN NPMARESP0279
RESP0280
2T ELEMENT NUMBER, IS)
RESP0281
END
CONTINUE
RESULT(5,1)
ST(6,NELEFT)
RESULT(6,1) - ST(4,NELEFT)
RESULT(7,1)
0.0
RESULT(S,l)
-STPIPE(2,1) I SDI
RESULT(9,1) - 0.0
RESULT(19,1) - RESULT(5,1)-XMONT(1)
RESULT(20,1) = RESULT(6,1) - XTHRU(I)
RESULT (5, NPPT)
ST(3,NERITE)
RESULT(6,NPPT)
ST(I,NERITE)
RESULT(7,NPPT)
0.0
RESULT(S,NPPT)
-STPIPE(2,NPMAT) ISD2
RESULT(9,NPPT)
0.0
RESULT(19,NPPT)
RESULT(5,NPPT) - XMONT(NPPT)
RESULT(20,NPPT) = RESULT(6,NPPT) - XTHRU(NPPT)
1
C
C
...
SAVD0006
SAVD0007
SAVD0008
SAVD0009
SAVD0010
SAVDOOll
SAVD0012
SAVD0013
SAVD0014
INITIALIZE PARAMETERS
C"
NUMMAT = NSMAT + 1
IF (KPUTCK .NE. 0) NPUTCK = 1
IF(NPUTCK.NE.O .AND. IPLOT.NE.O) IPLOT E-1
DO 20 N = 1, NPT
20 CODE(N) = 0.0
DO 30 N = 1, NBPTC
NODE = NODB(N)/10000
IF (MOD(NODB(N) ,100) .GT. 1) CODE (NODE)
1.0
IF (MOD (NODB (N) ,10) .EQ. 1) CODE (NODE)
2. 0
IF (MOD(NODB(N),100).EQ. 11) CODE (NODE)
3. 0
30 CONTINUE
DO 40 N = 1, NELEM
KODE(N) = NOD(S,N)
IF(NOD(2,N).EQ.NOD(3,N)) KODE(N)
11
IF(NOD(7,N).EQ.l) KODE(N) = 11
40 CONTINUE
C
SAVE MESH DATA FOR PLOTTING AND AS INPUT DATA FOR HEROIC
SAVD0015
SAVD0016
SAVD0017
SAVD0018
SAVD0019
SAVD0020
SAVD0021
SAVD0022
SAVD0023
SAVD0024
SAVD0025
SAVD0026
SAVD0027
SAVD0028
SAVD0029
SAVD0030
SAVD0031
SAVD0032
SAVD0033
SAVD0034
SAVD0035
SAVD0036
SAVD0037
SAVD0038
SAVD0039
SAVD0040
SAVD0041
SAVD0042
SAVDOOO
SAVD0044
SAVD004S
SAVD0046
SAVD0047
SAVD004B
SAVD0049
SAVDOOSO
100
110
SAVD0002
SAVD0003
SAVD0004
SAVD0005
120
WRITE(LUPLOT,6010) (TITLE(K),K-l,17)
WRITE(LUPLOT,601S) NPT,NELEM,NUMMAT,NPUTCK,NBPTC,NINC
DO 100 N-l,NPT
WRITE(LUPLOT,6020) N,X(N),Y(N)
CONTINUE
DO 110 N=l,NELEM
WRITE(LUPLOT,6025) N, (NOD(K,N),K-l,4),KODE(N),NOD(6,N)
CONTINUE
IF(IPLOT.LT.2) GO TO 50
WRITE(30,6010) (TITLEIK),K=1,17)
WRITE(30, 6030) NINC,NPMAT,NPPT
C
C
SAVD0052
SAVD0053
SAVD0054
SAVDOOSS
SAVDOOS6
SAVD0057
SAVDOOS8
SAVDOOS9
SAVD0060
SAVD0061
SAVD0062
SAVD0063
SAVD0064
SAVD006S
SAVD0066
SAVD0067
SAVD0068
SAVD0069
SAVD0070
C
C**********WRITE STATEMENTS PERMANENTLY ELIMINATED (JUNE 78)**********SAVO0071
C
C
C
C
C
C
SAVD0072
SAVD0073
SAVD0074
SAVD007S
SAVD0076
SAVDOO?7
e*******************************-*"'********************SAVD0078
SAVD0079
50 CONTINUE:
SAVD0080
DO 45 N = I, NE:LEM
SAVD008l
NOD(6,N) = 1000'NOD(5,N) +10*NOD(6,NI +NOD(7,N)
SAVD0082
45 CONTINUE
SAVD0083
IF(IPLOT.LT.O) END FILE LUPLOT
SAVD0084
C
SAVD0085
SAVD0086
Revise 1/0 unit from LUDATA to Unit 14.
SAVD0087
SCM 11-14-88
SAVD0088
SAVD0089
WRITE (14) NPT,NELEM,NBPTC, NINC, NPUTCK
SAVD0090
WRITE (14) (X(N), Y(Nl. N=l,NPT),
SAVD0091
NOD(K,Nl. K=l,4), NOD(6,N), N=l,NELEM),
SAVD0092
1
(NODB(N), (BIV(K,N), K=l,3), N=l,NBPTC)
2
SAVD0093
SAVD0094
SAVD0095
C
SAVD0096
WRITE (6,6005)
SAVD0097
RETURN
6005 FORMAT ( 53HO*
MESH DATA HAS BEEN SAVED * * *)SAVD0098
6010 FORMAT(lH',17A4,lH')
SAVD0099
SAVD0100
6015 FORMAT(I5,5(lH"I5))
SAVD0101
6020 FORMAT(I5,2(lH"E12.4))
6025 FORMAT(I5,6(lH"I5
SAVD0102
SAVDOl03
6030 FORMAT (IS, 2 (IH" IS))
SAVD0104
END
.. ... * .. * .. .. .. .. .. .. .. .. .. .. " " .. * .. .. .. .. .. .. .. .. .. .. .. .. "* SAVDOOOI
CANDE-89 (C)ULVERT (AN)ALYSIS AND (DE)SIGN PROGRAM
SAVD0002
SAVD0003
VERSION 1.0, MARCH 1990
PUBLIC DOMAIN SOFTWARE CONTRIBUTED BY
SAVD0004
SAVD0005
THE FEDERAL HIGHWAY ADMINISTRATION
* . * * * * * * SAVD0006
SUBROUTINE SAVED (X, Y, NOD,NODB,BIV, KODE,CODE,TITLE,NPT,NELEM,
SAVD0007
1
IPLOT,NBPTC,NPUTCK,KPUTCK,LSTOP,NINC,LUDATA,
SAVD0008
2
LUPLOT,NSMAT,NPMAT,NPPT)
SAVD0009
SAVD0010
Uncomment this statement in all program modules for double
SAVDOOll
precision version. SCM 3-10-90
SAVD0012
SAVD0013
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
SAVD0014
SAVD0015
DIMENSION X(l), Y(l), NOD (LSTOP, 1) , NODB(l), BIV(3,l), KODE(l),
SAVD0016
SAVD0017
CODE(l), TITLE(17)
C
SAVD0018
DATA TPSCAN, FZERO, IZERO 11 . 0, 0.0, 01
SAVD0019
C
SAVD0020
C"
INITIALIZE PARAMETERS
SAVD0021
C
SAVD0022
NUMMAT - NSMAT + 1
SAVD0023
IF (KPUTCK .NE. 0) NPUTCK - 1
IF(NPUTCK.NE.O .AND. IPLOT.NE.O) IPLOT --1
SAVD0024
SAVD0025
DO 20 N
I, NPT
SAVD0026
20 CODE(N) = 0.0
DO 30 N = I, NBPTC
SAVD0027
SAVD0028
NODE = NODB(N)/10000
IF (MOD(NODB(N) ,100) .GT. 1) CODE (NODE) 1.0
SAVD0029
IF (MOD(NODB(N) ,10) .EQ . 1) CODE (NODE) = 2.0
SAVD0030
IF (MOD(NODB(N) ,100) .EQ. 11) CODE (NODE) 3.0
SAVD0031
SAVD0032
30 CONTINUE
SAVD0033
DO 40 N = I, NELEM
SAVD0034
KODE(N) NOD(5,N)
IF{NOO{2,N) . EQ . NOD{3,N)) KODE{N)
11
SAVD0035
SAVD0036
IF(NOD(7,N) .EQ.l) KODE(N) = 11
C
......
00
-.....l
*.*_ .....
40 CONTINUE
SAVD0037
SAVD0038
SAVE ME:SH DATA FOR PLOTTING AND AS INPUT DATA FOR HEROIC
SAVD0039
C"
SAVD0040
C
SAVD0041
Revise 1/0 Unit from LUDATA to Unit 14 .
SAVD0042
SCM 11-24-88
SAVDOOO
SAVD0044
REWIND 14
SAVD0045
IF(IPLOT.EQ.O) GO TO 50
SAVD0046
SAVD0047
IF(IPLOT.EQ . 2) GO TO 120
SAVD0048
Revise LUPLOT from unformated to formatted.
SAVD0049
SCM 11-24-88
SAVD0050
WRITE STATEMENTS PERMANENTLY INCORPORATED (JUNE 78)*'*"'*"'SAVD0051
WRITE (LUPLOT) (TITLE(K) ,K=l,17) ,NPT,NELEM,NUMMAT,NPUTCK,NINC
SAVD0052
WRITE (LUPLOT) (CODE(N),X(N),Y(N),N=l,NPT)
SAVD0053
WRITE (LUPLOT) NOD(K,N),K=l,4),KODE(N),NOD(6,N),N=l,NELEM)
SAVD0054
SAVD0055
WRITE(LUPLOT,6010) (TITLE{K),K=l,17)
SAVD0056
WRITE(LUPLOT,6015) NPT,NELEM,MUMMAT,NPUTCK,NBPTC,NINC
SAVD0057
DO 100 N=l,NPT
SAVD0058
WRITE(LUPLOT,6020) N,X(N),Y(N)
SAVD0059
SAVD0060
100 CONTINUE
DO 110 N-1,NELEM
SAVD0061
WRITE(LUPLOT,6025) N, (NOD(K,N),K=l,4),KODE(N),NOD(6,N)
SAVD0062
110 CONTINUE
SAVD0063
IF(IPLOT . LT . 2) GO TO 50
SAVD0064
SAVD0065
120 WRITE(30,6010) (TITLE(K),K=l,17)
SAVD0066
WRITE(30,6030) NINC,NPMAT,NPPT
SAVD0067
SAVD0068
C
SAVD0069
C
SAVD0070
C
CWRITE STATEMENTS PERMANENTLY ELIMINATED (JUNE 78)"""""'*SAVD0071
C
WRITE (LUPLOT) (TITLE(K), K = 1,8), NPT, NELEM, MUMMAT, NPUTCK,
SAVD0072
C
1
FZERO, NINC, IZERO, FZERO, FZERO, TPSCAN, TPSCAN, SAVD0073
C
2
(IZERO,K- l,12)
SAVD0074
C
WRITE (LUPLOT) (CODE(N), X(N), Y(N), N l,NPT),
SAVD0075
C
1
NOD(K,N),K=l,4),KODE(N),N~l,NELEM), (IZERO,K~l,4) SAVD0076
C
SAVD0077
C
SAVD0079
SAVD0080
SAVDOOal
SAVDOOa2
SAVD0083
SAVD0084
SAVD0085
C
SAVD0086
Revise 1/0 unit from LUDATA to Unit 14.
SAVD0087
SCM 11-14-88
SAVD0088
SAVD0089
WRITE (14) NPT,NELEM,NBPTC,NINC,NPUTCK
SAVD0090
WRITE (14) (X(Nl. Y(N), N-l,NPT),
SAVD0091
1
NOD(K,N), K=l,4), NOD(6,N), N~l,NELEM),
SAVD0092
2
(NODB(N), (BIV(K,N), K~l,3), N~l,NBPTC)
SAVD0093
SAVD0094
C
SAVD0095
WRITE (6,6005)
SAVD0096
RETURN
SAVD0097
MESH
DATA
HAS
BEEN
SAVED'
*
')SAVD0098
6005 FORMAT ( 53HO'
6010 FORMAT{lH',17A4,lH')
SAVD0099
C
50 CONTINUE
DO 45 N = I, NELEM
NOD(6,N) = 1000'NOD(S,N) +10'NOD(6,N) +NOD(7,N)
45 CONTINUE
IF(IPLOT.LT.O) END FILE LUPLOT
6015
6020
6025
6030
......
SAVDOI00
SAVDOI0l
SAVDOI02
SAVDOI03
SAVDOI04
t>
SAVGOOOI
SAVG0002
SAVG0003
SAVG0004
SAVG0005
* ......... ." ... * * * * ...... * *' ...... * * ...... * ... * '* " .. SAVG0006
......
00
00
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
SETU0025
EXPP/SQRAL*(XP*CQ+XQ*SQ)
U(I,I)
SETU0026
U(I,2) = EXPP/SQRAL'(-XQ*CQ+XP*SQ)
SETU0027
EXPN/SQRAL*(-XP*CQ+XQ*SQ)
U(I,3)
SETU0028
EXPN/SQRAL*(-XQ*CQ-XP*SQ)
U(I, 4)
SETU0029
U(2,1)
EXPP*CQ
SETU0030
EXPP*SQ
U(2,2)
SETU0031
EXPN*CQ
U(2,3)
SETU0032
EXPN*SQ
U(2,4)
SETU0033
U(3,1)
EXPP*(XP*CQ-XQ*SQ)
SETU0034
EXPP*(XQ*CQ+XP*SQ)
U(3,2)
SETU0035
EXPN*(-XP*CQ-XQ*SQ)
U(3,3)
SETU0036
EXPN*(XQ*CQ-XP*SQ)
U(3, 4)
SETU0037
EXPP*(-0.5*CQ-C3*SQ)
U(4,1)
SETU0038
EXPP*(C3*CQ-0.5*SQ)
U(4,2)
SETU0039
EXPN*(-0.5*CQ+C3*SQ)
U (4, 3)
SETU0040
EXPN*(-C3*CQ-0.5*SQ)
U(4, 4)
SETU0041
EXPP*(-XP*Cl*CQ-XQ*C2*SQ)
U (5,1)
SETU0042
EXPP*(XQ*C2*CQ-XP*Cl*SQ)
U(5,2)
SETU0043
EXPN*(XP*C1*CQ-XQ*C2*SQ)
U(5,3)
SETU0044
EXPN*(XQ*C2*CQ+XP*Cl*SQ)
U(5, 4)
SETU0045
EXPP*(C4*CQ+C3*SQ)
U (6, 1)
SETU0046
EXPP*(-C3*CQ+C4*SQ)
U(6,2)
SETU0047
EXPN*(C4*CQ-C3*SQ)
U(6,3)
SETU0048
EXPN*(C3*CQ+C4*SQ)
U(6,4)
SETU0049
U (5, 5)
THETA
SETU0050
U (5,6) = -1.0
SETU0051
U(6,5)
THETA
SETU0052
U(6,6)
-1.0
SETU0053
RETURN
SETU0054
END
... ... ... '* * ... ... ... .. '* " ... ... ~ ... ... * ... ... ... ... ... ... * ... * * ... * SLPJOOOI
SLPJ0002
CANDE-89 (C)ULVERT (AN)ALYSIS AND (DE)SIGN PROGRAM
SLPJ0003
VERSION 1.0, MARCH 1990
SLPJ0004
PUBLIC DOMAIN SOFTWARE CONTRIBUTED BY
SLPJ0005
THE FEDERAL HIGHWAY ADMINISTRATION
... ... * ... * ... . . . .
* SLPJ0006
SLPJ0007
* SLPJ0008
. . ... * * ... ... SUBROUTINE SLPJNT *
SLPJ0009
NEW ADDITION SUBROUTINE IN 1983 FOR JOINT SLIPPING BEHAVIOR
SLPJOOI0
SLPJ0011
SUBROUTINE SLPJNT(ICOME,LEVEL,NPMAT,NPPT,PDIA,PIPMAT,PE,
SLPJ0012
*PNU,PA,IA,JCON,ICON)
SLPJ0013
SLPJ0014
THIS ROUTINE CONTROLS THE PROCESSING OF SLIPPING JOINTS
SLPJ0015
FOR BOTH LEVEL 1 AND LEVEL 2,3 SOLUTIONS.
SLPJ0016
THERE ARE THREE ENTRY POINTS INTO THIS ROUTINE
SLPJ0017
CALLED FROM THREE PLACES IN SUBROUTINE STEEL.
SLPJ0018
ENTRY POINTS ARE CONTROLLED BY THE VARIABLE ICOME AS FOLLOWS:
SLPJ0019
ICOME=l
,READ INPUT DATA FOR JOINTS
SLPJ0020
COMPUTE CURRENT AXIAL YOUNGS MODULUS 'PENEW'
ICOME=2
SLPJ0021
AND STORE IN PIPMAT AS EFFECTIVE AREA
SLPJ0022
(ITERATE TO CONVERGENCE).
SLPJ0023
, UPDATE CONVERGED SOLUTIONS AND PRINT RESULTS.
ICOME=3
THE ONLY OTHER COMMUNICATION TO THIS SUBROUTINE IS THROUGH
SLPJ0024
COMMON/XJOINT/ WHICH PROVIDES CURRENT AXIAL STRAIN INCREMENTS FROMSLPJ0025
SUBROUTINE BEAMST(LEVEL 2,3) OR SUBROUTINE BURNS (LEVEL 1).
SLPJ0026
SLPJ0027
SLPJ0028
Un comment this statement in all program modules for double
SLPJ0029
precision version. SCM 3-10-90
SLPJ0030
SLPJ0031
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
SLPJ0032
SLPJ0033
Expand pipe dimension statements from 30 to 99.
SCM
......
00
\0
5-22-89
SLPJ0034
SLPJ0035
DIMENSION JLOC(15),PIPMAT(5,99),PRSTRN(15),JfLAG(lS),PSTRES(15), SLPJ0036
STRESI (lS),XJC(lS),PEOLDX(15),STRNl(15),SLOTLR(15) ,SLOT L1(15) SLPJ0037
SLPJ0038
Expand array dimension statements from 30 to 99.
SLPJ0039
SCM 5-22-89
SLPJ0040
SLPJ0041
COMMON/XJOINT/DSTRN(99) ,XLONG(99) ,JOINT
SLPJ0042
SLPJ0043
COMMON/LIMITS/PSLIP,SSTRN,PfAIL
SLPJ0044
DATA XPSLIP,XPFAIL,XRPES,XRPEP,XRPEf,XSLOTL/4950.,33000., .000001, SLPJ0045
0.5, .000001,1.01
SLPJ0046
DATA TOLER,ITMAX,NJMAX/.Ol,40,151
SLPJ0047
C
SLPJ0048
C
STATEMENT fUNCTION FOR RELATING JOINT RESPONSES
SLPJ0049
C
TO EFfECTIVE RESPONSES
SLPJOOSO
C
SLPJOOSI
fACTOR(PEJ)-PEJ/PE*(l . -XJR)+XJR
SLPJOOS2
C
SLPJOOS3
GO TO PROPER ENTRY POSITION
C
SLPJOOS4
C
SLPJOOSS
GO TO (100,200,400),ICOME
SLPJ0056
SLPJ0057
C
FIRST ENTRY, READ JOINT DATA,SET DEFAULTS AND CONSTANTS
C
SLPJ0058
SLPJ0059
C
100 READ(5,1000)PSLIP,PFAIL,RPES,RPEP,RPEF,SLOTL,NUMJ,JSLTLR
SLPJ0060
IF(LEVEL.NE.l)READ(5,1100) (JLOC(N),N=l,NUMJ)
SLPJ0061
IF(LEVEL.NE.l .AND. JSLTLR.NE.O) READ(5,1200) (SLOTLR(N),N=l,NUMJ) SLPJ0062
SLPJ0063
C
SLPJ0064
SET DEFAULT VALUES FOR INPUT VARIABLES,CHECK DATA
C
SLPJ0065
C
IF(PSLIP.EQ.O.O) PSLIP-XPSLIP
SLPJ0066
SLPJ0067
IF(PFAIL.EQ.O.O) PFAIL=XPFAIL
SLPJ0068
IF(RPES.LE.O.O) RPESzXRPES
SLPJ0069
IF(RPEP.LE.O.O)RPEP=XRPEP
SLPJ0070
IF(RPEF.LE.O.O)RPEF=XRPEf
SLPJ0071
IF(SLOTL.EQ.O.O)SLOTL=XSLOTL
IF(NUMJ.EQ.O) NUMJ=l
SLPJOOn
IF (NUMJ.GT.NJMAX) WRITE(6,2500)
SLPJ0073
SLPJ0074
DO 105 NJ=l,NUMJ
SLPJ0075
IF(LEVEL.EQ.l) GO TO 105
IF (JLOC (NJ) .GT.O .OR. JLOC(NJ) .LE.NPMAT) GO TO 105
SLPJ0076
SLPJ0077
WRITE(6,2000)NJ,JLOC(NJ)
105 CONTINUE
SLPJ0078
SLPJ0079
C
COMPUTE CONSTANTS FOR MODULI VALUES AND STRAIN AT END OF INITIAL SLPJ0080
C
EALSTIC RANGE
SLPJ0081
C
SLPJ0082
C
PES=RPES'PE
SLPJ0083
SLPJ0084
PEP=RPEP*PE
PEF=RPEF*PE
SLPJ0085
ESTRN=PSLIP/(PE/(1.-PNU**2))
SLPJ0086
SLPJ0087
SSTRN=l.O
PCSLIP-PSLIP+(1.-ESTRN)*PES/(I.-PNU**2)
SLPJ0088
IF(LEVEL.EQ.l)XJR=SLOTL*FLOAT(NUMJ)/(PDIA*3.1415926535898)
SLPJ0089
SLPJ0090
C
SLPJ0091
C
INITIALIZE PREVIOUS VALUES
SLPJ0092
C
SLPJ0093
C
PENEW=PE
SLPJ0094
SLPJ0095
DO 110 NJ=l,NUMJ
SLPJ0096
PEOLDX(NJ)-PE
SLPJ0097
SLPJ0098
SLPJ0099
SLPJ0100
WRITE OUT JOINT DATA TO BE USED
C
SLPJ0101
C
WRITE(6,2100)PSLIP,PFAIL,PES,PEP,PEf,SLOTL,NUMJ
SLPJOI02
DO 150 NJ=l, NUMJ
SLPJOI03
IF(JSLTLR.EQ.O) SLOTLR(NJ)=l.O
SLPJ0104
SLPJOI05
SLOTL1(NJ)=SLOTL*SLOTLR(NJ)
150 CONTINUE
SLPJOI06
SLPJOI07
IF(LEVEL.GT.l)WRITE(6,2200) (NJ,JLOC(NJ),SLOTLl(NJ),NJ=l,NUMJ)
SLPJ0108
IF(PFAIL.LE.PCSLIP)WRITE(6,2050)
IF(PFAIL.LT.PCSLIP)STOP
SLPJ0109
SLPJOllO
RETURN
C
SLPJOll1
SECOND ENTRY,COMPUTE CURRENT AXIAL MODULUS AND STORE IN PIPMAT
SLPJOl12
C
C
AS EffECTIVE AREA. THIS ENTRY WILL 8E REPEATED UNTIL CONVERGENCE SLPJOl13
C
OCCURS.
SLPJOl14
C
SLPJ01l5
200 JCON~JCON+l
SLPJ01l6
SLPJ01l7
C
C
COMPUTATIONS FOR LEVEL 1 SOLUTION (ENTRY 2)
SLPJ01l8
C
SLPJ01l9
IF(LEVEL.NE.l) GO TO 300
SLPJ0120
PEOLD-PENEW
SLPJ0121
STRNPR=PRSTRN(l)
SLPJ0122
DSTRNJ=DSTRN(l)/fACTOR(PEOLD)
SLPJ0123
STRN-STRNPR+DSTRNJ
SLPJ0124
STRESP=PSTRES(l)
SLPJ0125
STRES=STRESP+DSTRNJ*PEOLD/(1.-PNU**2)
SLPJ0126
CALL JMOD(STRN,STRNPR,PE,PES,PEP,PEF,STRES,STRESP,PEOLD,PENEW,PNU SLPJ0127
., I FLAG , JCON, 1)
SLPJ0128
STRNl(l)=STRN
SLPJ0129
STRESl(l)=STRES
SLPJ0130
IF(JOINT.EQ.2 .AND. JCON.EQ.l) WRITE(6,2600)IA,PSLIP,SSTRN,PFAIL SLPJ0131
SLPJ0132
C
CHECK ON CONVERGENCE, NOTE: CONVERGENCE WITH JCON=-l
SLPJ0133
C
SLPJ0134
C
ERR=ABS((PENEW-PEOLD)/PEOLD)
SLPJ0135
IF(ERR.LT.TOLER) JCON=-l
SLPJ0136
IF(JCON.GT.ITMAX) JCON=-2
SLPJ0137
IF(JOINT.EQ.2) WRITE(6,2650) STRN,STRES,STRNPR,STRESP,PEOLD,
SLPJ0138
PENEW,IfLAG,JCON,ICON
SLPJ0139
c
SLPJ0140
UPDATE CURRENT EFFECTIVE AREA IN PIPMAT MATRIX AND RETURN
C
SLPJ0141
C
SLPJ0142
DO 250 N=l,NPMAT
SLPJ0143
PESTAR=PENEW/FACTOR(PENEW)
SLPJ0144
250 PIPMAT (3, N) =PESTAR*PA/PE
SLPJ0145
RETURN
SLPJ0146
C
SLPJ0147
C
COMPUTATIONS FOR LEVEL 2 OR 3 SOLUTIONS (ENTRY 2)
SLPJ014 8
C
SLPJ0149
SLPJ0150
300 ERRSUM=O.O
IF(JOINT.EQ.2 .AND. JCON . EQ.l) WRITE(6,2700)IA,PSLIP,SSTRN,PFAIL SLPJ015l
DO 350 NJ=l,NUMJ
SLPJ0152
PEOLD=PEOLDX(NJ)
SLPJ0153
STRNPR=PRSTRN(NJ)
SLPJ0154
MNJ-JLOC(NJ)
SLPJ0155
XJR=SLOTLl(NJ)/XLONG(MNJ)
SLPJ0156
DSTRNJ=DSTRN(MNJ) I fACTOR (PEOLD)
SLPJ0157
STRN=STRNPR+DSTRNJ
SLPJ0158
STRESP=PSTRES(NJ)
SLPJ0159
110
PSTRES(NJ)=O.O
PRSTRN(NJ)=O.O
..1.0
0
STRES~STRESP+DSTRNJ'PEOLD/(1.-PNU"2)
SLPJ0160
CALL JMOD(STRN,STRNPR,PE,PES,PEP, PEF,STRES, STRESP, PEOLD,PENEW,PNU SLPJ0161
',IFLAG,JCON,NJ)
SLPJ0162
STRN1(NJ)~STRN
SLPJ0163
STRES1(NJ)~STRES
SLPJ0164
IF(JOINT.EQ.2) WRITE(6,2750)NJ,STRN,STRES,STRNPR,STRESP,PEOLD
SLPJ0165
,PENEW,IFLAG,JCON,ICON
SLPJ0166
SLPJ0167
IF(JOINT.EQ.2 .AND. NJ.EQ.NUMJ) WRITE(6,2800)
SLPJ0168
C
ACCUMULATE ERROR SUM OF ALL JOINTS
C
SLPJ0169
SLPJ0170
C
SLPJOl71
ERR~ABS((PENEW-PEOLD)/PEOLD)
SLPJOl72
ERRSUM=ERRSUM+ERR
SLPJOl73
C
SLPJ0174
UPDATE CURRENT EFFECTIVE AREA IN PIPMAT MATRIX
C
SLPJ0175
AND SAVE IFLAG NUMBER
C
SLPJ0176
C
PEOLDX(NJ)~PENEW
SLPJOl77
PESTAR~PENEW/FACTOR(PENEW)
SLPJ0178
SLPJ0179
PIPMAT (3, MNJ) ~PESTAR 'PA/PE
SLPJ0180
JFLAG(NJ)~IFLAG
SLPJ0181
350 CONTINUE
SLPJ0182
C
SLPJ0183
CHECK FOR CONVERGENCE AND RETURN TO STEEL SUBROUTINE
C
SLPJ0184
JCON.GT.O ,NO CONVERGENCE YET, ENTRY 2 WILL BE REPEATED
C
SLPJ0185
JCON~-l
CONVERGED, ENTRY 3 WILL BE CALLED
C.
SLPJ0186
JCON~-2
,PROGRAM
WILL
STOP
,
NO
CONVERGENCE
C
SLPJ0187
C
SLPJ0188
AVERR=ERRSUM/FLOAT(NUMJ)
SLPJ0189
IF(AVERR. LT. TOLER) JCON=-l
SLPJ0190
IF(JCON.GT.ITMAX)JCO~-2
SLPJ0191
RETURN
SLPJ0192
C
SLPJ0193
THIRD ENTRY, UPDATE JOINT AXIAL STRAIN VECTOR
C
SLPJ0194
AND PRINT RESULTS ABOUT JOINT BEHAVIOR
C
SLPJ0195
C
SLPJ0196
400 IF(LEVEL.GT.l)GO TO 500
SLPJ0197
PRSTRN (1) -STRNI (1)
SLPJ0198
APRSTR=ABS(PRSTRN(l)
SLPJ0199
PSTRES(1)~STRES1(1)
SLPJ0200
XJC(l)~(APRSTR-ESTRN)/(SSTRN-ESTRN)
SLPJ0201
IF(XJC(l) .LT.O.O) XJC(l)=O.O
SLPJ0202
IF (XJC (1) . GT.1. 0) XJC (1) =1. 0
SLPJ0203
WRITE(6,2300) IA,PRSTRN(l),PSTRES(l),XJC(I),IFLAG
SLPJ0204
RETURN
SLPJ0205
C
SLPJ0206
UPDATE AND OUTPUT FOR LEVEL 2,3
C
SLPJ0201
C
SLPJ0209
500 DO 550 NJ=I,NUMJ
SLPJ0209
MNJ=JLOC (NJ)
SLPJ0210
PENEW~PEOLDX(NJ)
SLPJ0211
XJR=SLOTL1(NJ)/XLONG(HNJ)
SLPJ0212
DSTRNJ~DSTRN(HNJ)/FACTOR(PENEW)
SLPJ0213
PRSTRN(NJ)~STRNl(NJ)
SLPJ02H
APRSTR=ABS(PRSTRN(NJ
SLPJ0215
PSTRES (NJ) =STRESI (NJ)
SLPJ0216
XJC(NJ)~(APRSTR-ESTRN)/(SSTRN-ESTRN)
SLPJ0211
IF(XJC(NJ) .LT.O.O) XJC(NJ)~O.O
SLPJ0218
IF(XJC(NJ) .GT.1.0) XJC(NJ)~l.O
SLPJ0219
550 CONTINUE
SLPJ0220
WRITE(6,2400)IA, (NJ,PRSTRN(NJ),PSTRES(NJ),XJC(NJ),JFLAG(NJ),
SLPJ0221
, NJ=l, NUMJ)
SLPJ0222
RETURN
SLPJ0223
SLPJ0224
SLPJ0225
SLPJ0226
1000 FORMAT(6FI0.0, 215)
SLPJ0221
HOO FORMAT (1514)
SLPJ0228
1200 FORMAT (15F4.0)
SLPJ0229
C
SLPJ0230
WRITE FORMAT
C
C
SLPJ0231
2000 FORMAT(////28H "'FATAL ERROR IN DATA .,' ,/,16H JOINT NUMBER,I5, SLPJ0232
18H JOINT LOCATION IS ,15,/)
SLPJ0233
SLPJ0234
2050 FORMAT(///128H "'FATAL ERROR IN DATA " . ,I,
39H PFAIL IS TOO SMALL OR PES IS TOO LARGE)
SLPJ0235
2100 FORMAT(lHl,III,10X,27H SLOTTED JOINTS PROPERTIES,IIII
SLPJ0236
10X,27H SLIPPING STRESS .... ....... ,E1S.S,11
SLPJ0237
10X,27H FAILURE STRESS ............ ,E15.5,11
SLPJ0238
10X,27H SLIPPING-JOINT MODULUS .... ,E15.5,11
SLPJ0239
10X,27H POSTSLIPPING-JOINT MODULUS,E1S.S, I/
SLPJ0240
SLPJ0241
10X,27H JOINT FAILURE MODULUS .... ,E1S.5,11
10X,27H JOINT SLOT LENGTH ......... ,E1S . S,11
SLPJ0242
10X,27H NUMBER OF JOINTS ....... . ,15,/1)
SLPJ0243
2200 FORMAT(III,13H JOINT NUMBER,10X,14HJOINT LOCATION,10X,
SLPJ0244
, 13H JOINT LENGTH,II,
SLPJ0245
SLPJ0246
(6X,IS,18X,IS,13X,E13.4,1
2300 FORMAT(lHl,III,41H SLOTTED JOINTS RESPONSES AT LOAD STEP =,IS,I/ISLPJ0247
SX,7H STRAIN,SX,7H STRESS,SX,20H JOINT CLOSURE RATIO,
SLPJ0248
SLPJ0249
5X,6H IFLAG,II,2E13.3,10X,E13.3,5X,IS)
2400 FORMAT(lHl,III,41H SLIPPING JOINTS RESPONSES AT LOAD STEP =,I5,1//SLPJ0250
-SX,8HJOINT NO,SX,7H STRAIN,SX,IH STRESS,5X,19HJOINT CLOSURE RATIO,SLPJ02Sl
'5X,6H IFLAG,II, (8X,I5,2E13.3,9X,E13.3,5X,I5
SLPJ0252
2500 FORMAT(//11,18H -"FATAL ERROR"', I,
SLPJ0253
43H NUMBER OF JOINTS .GT. MAX.NUMBER OF JOINTS)
SLPJ02S4
2600 FORMAT(lHl,//,6X,41H SLOTTED JOINT ITERATIONS AT LOAD STEP =,15, SLPJ02S5
, 11,6X,IH PSLIP=,E13.3,1,6X,IH SSTRN~,E13.3,1,6X,
SLPJ0256
SLPJ0257
lH PFAIL-,E13.3,111,6X,IH STRN ,6X,IH STRESS,6X,IH STRNPR,6X,
, lH STRESP,6X,7H PEOLD ,6X,IH PENEW ,4X,6H IFLAG,4X,5H JCON,4X,
SLPJ0258
, SH ICON,II)
SLPJ02S9
2650 FORMAT(6E13.5,3(4X,IS
SLPJ0260
2100 FORMAT(lHl,II,6X,4lH SLOTTED JOINT ITERATIONS AT LOAD STEP ~,I5, SLPJ0261
1/,6X,IH PSLIP~,E13.3,1,6X,IH SSTRN=,E13.3,/,6X,
SLPJ0262
, lH PFAIL=,E13.3,11/,2X,9H JOINT NO,6X,7H STRN ,6X,IH STRESS,6X, SLPJ0263
lH STRNPR,6X,7H STRESP,6X,7H PEOLD ,6X,7H PENEW ,4X,6H IFLAG,4X, SLPJ0264
5H JCON,4X,5H ICON,II)
SLPJ0265
2150 FORMAT(6X,I5,6E13.5,3(4X,IS
SLPJ0266
2800 FORMAT (II)
SLPJ0267
C
C
READ FORMAT
C
C
C
C
C
C
C
..
'"''"'
,.
...............
lit
..
..
..
..
..
..
..
..
..
...
SLPJ0268
SLPJ0269
END
.. .. .. .. .. .. .. .. * * .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. STELOOOl
STEL0002
CANDE-89 (C)ULVERT (AN)ALYSIS AND (DE)SIGN PROGRAM
VERSION 1.0, MARCH 1990
STEL0003
STEL0004
PUBLIC DOMAIN SOFTWARE CONTRIBUTED BY
THE FEDERAL HIGHWAY ADMINISTRATION
STELOOOS
* * * .. .. .. * .. .. * * .. * .. * .. * .. .. .. .. .. .. .. .. .. .. .. * .. STEL0006
SUBROUTINE STEEL(IA,ICOME,IEXIT,LEVEL,NINC,NPMAT,NPPT,PDIA,PIPMAT,STEL0007
1
RESULT,SK,SM,XMODE)
STEL0008
STEL0009
STEL0010
SUBROUTINE FOR CORRUGATED STEEL CULVERTS.
STEL0011
STEL0012
THE FOLLOWING ADDITIONS TO THE ' RESULT ARRAY ARE CALCULATED
STEL0013
IN THIS SUBROUTINE.
STEL0014
STEL0015
RESULT (10, N)
BENDING STRESSES IN OUTER FIBERS.
STEL0016
RESULT(ll,N)
THRUST STRESS (AVERAGE OVER SECTION)
STEL0017
STEL0018
STEL0019
STEL0020
STEL0021
STEL0022
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
STEL0023
STEL0024
Revise dimensions of PIPMAT and RESULT arrays from 30 to 99.
STEL0025
SCM 4-30-89
STEL0026
STEL0027
DIMENSION CPLIST(10),FF(2),FS(3),PALIST(35),PFS(3),PHINGE(5),
1
PILIST(35),PIPMAT(5,99),PSLIST(35),RESULT(20,99)
STEL0028
STEL0029
C
STEL0030
C
NEW ADDITION COMMON STATEMENT IN 1983 FOR JOINT SLIPPING BEHAVIOR STEL0031
STEL0032
C
STEL0033
Expand array dimension statements from 30 to 99.
STEL0034
SCM 5-22-89
STEL0035
STEL0036
STEL0037
COMMON/XJOINT/DSTRN(99),XLONG(99) ,JOINT
STEL0038
STEL0039
C
STEL0040
DATA E,XNU,YIELD/30000000.,0.3,33000.1
STEL0041
DATA NFS,FS/3,3.,4.,2.1
STEL0042
DATA FF,FIMIN,GAGE2010.0433,0.02,0.05,0.03BI
STELOOO
DATA ANALYS,DESIGN/4HANAL,4HDESII
6, STEL0044
DATA CPLIST,BXB,NUMCP,NUMGAI 4H 3/2,4H 2 ,4H B/3 ,4H
3,4H
STEL0045
1
4H1/4
,2*4H1/2 ,4H1
,4H2
,3H X ,5,71
STEL0046
DATA PALISTI
0.03800,0.05066,0 . 06341,0.07916,0.11091,0.14266,0 . 17441 ,
STEL0047
x
STEL0048
0.04075,0.05433,0.06791,0.08491,0.11900,0.15316,0.18 741 ,
x
STEL0049
0.03B75,0.05158,0.06458,0.08066,0.11300,0.14533,0.1 7775,
x
0.04450,0.05925,0.07416,0.09275,0.13000,0.16733,0.2 0483,
STELOOSO
x
0.12966,0.16691,0.20408,0.22825,0.26658,0.30483,0.343251
STEL0051
x
STEL0052
DATA PILISTI
0.00025,0.00034,0.00044,0.00056,0.00085,0.00120,0.00163,
STELOOS3
x
0.00144,0.00153,0.00194,0.00245,0.00354,0.00471,0.00599,
STELOOS4
x
STELOOS5
0.00112,0.00150,0.00189,0.00239,0.00342,0.00453,0.0057 ,
x
STELOOS6
0.00515,0.00689,0.00865,0.01088,0.01545,0.02017,0 . 02508,
x
STELOOS7
0.06041,0.07B16,0.09616,0.10800,0.12691,0.14616,0.1658 31
x
STEL005B
DATA PSLISTI
0. 00177,0 . 00230,0.00283,0 . 00349,0 . 00483,0 . 00627,0 . 00787,
STELOOS9
x
0 . 00427,0.00560,0.00693,0 . 00854,0 . 01171,0 . 01485,0 . 01805,
STEL0060
x
0 . 00419,0.00549,0.00676,0.00831,0.01133,0 . 01428,0 . 01724,
STEL0061
x
0.00995,0.01315,0.01634,0.02025,0 . 02798,0 . 03557,0.04308,
STEL0062
x
0 . 05741,0.07325,0.08883,0.09891,0 . 11466,0 . 13016,0.145751
STEL0063
x
STEL0064
C
STEL006S
GO TO (100,200) , ICOME
STEL0066
C
STEL0067
FIRST ENTRY ESTABLISHES PIPE PROPERTIES, AND SAFETY FACTORS
C
STEL0068
C
STEL0069
C
STEL0070
'JOINT' IS A NEW ADDITION TO THE NEXT READ STATEMENT IN 1983
C
STEL0071
AS AN OPTION TO USE THE SLIPPING JOINT BEHAVIOR OR NOT.
C
STEL0072
C
STEL0073
100 READ(5,1000) NONLIN,PDIA,PE,PNU,PYIELD,PDEN,PE2,JOINT
STEL0074
IF(PE.LE.O.O) PE = E
STEL007S
IF(PNU.LE. 0.0) PNU ~ XNU
STEL0076
IF(PYIELD.LE.O.O) PYIELD - YIELD
STEL0077
IF(NONLIN.NE . 1 .AND. NONLIN.NE.2) NONLIN = 0
STEL0078
PIMIN = PDIA**2/(PE*FF(1))
STEL0079
IF(PIMIN.GT.FIMIN) PIMIN = PIMIN*FF(1)/FF(2)
C
......
\0
STEL0080
STEL0081
STEL0082
STEL0083
STEL0084
STEL008S
STEL0086
STEL0087
STEL008B
C
READ(S,1010) (PFS(I),I=l,NFS)
110
STEL0089
DO 120 1=1, NFS
STEL0090
IF(PFS(I) .GT.O.O) GO TO 120
STEL0091
PFS (I) = FS (I)
STEL0092
120
CONTINUE
STEL0093
WRITE(6,2100) (PFS(I),I=l,NFS)
STEL0094
C
STEL0095
PAMIN - GAGE20
STEL0096
STEL0097
PA = PAMIN
PI = PIMIN
STEL0098
C
NOTE ... SECTION MODULUS FOR STANDARD CORRUGATIONS HAS THE RELATION,STEL0099
PS = PI/(1.465*SQRT(PI/PA) + 0.37S*PA)
STEL0100
ITER = 0
STEL0101
STEL0102
C
C
INITIALIZE PIPE PROPERTIES ALL AROUND PIPE TO BE THE SAME
STEL0103
C
STEL0104
C
STEL010S
C
NEW ADDITION STATEMENTS IN 1983 FOR JOINT SLIPPING BEHAVIOR .
STELOI06
C
INPUT JOINT PROPERTIES IF JOINT .GT. 0
STEL0107
C
STEL010B
130
IF(JOINT.EQ.O) GO TO 135
STEL0109
CALL SLPJNT(ICOME,LEVEL,NPMAT,NPPT,PDIA,PIPMAT,PE,PNU,
STELOllO
*PA,IA,JCON,ICON)
STEL01l1
135 DO 140 N=l, NPMAT
STEL01l2
PIPMAT(l,N) = PE
STEL0113
PIPMAT(2,N)
PNU
STELOl14
PIPMAT(3,N)
PA
STELOllS
PIPMAT(4,N)
PI
STEL0116
140
PIPMAT(S,N)
PDEN*PA
STEL0117
C
STEL01l8
DO 145 N-1,NPPT
STEL0119
RESULT(14,N)
PA
STEL0120
RESULT(15,N)
PI
STELOl21
14S
RESULT(16,N)
PI/PS
STEL0122
ICON = 0
STEL0123
JCON = 0
STEL0124
PESUM = PE
STEL012S
RETURN
STEL0126
C
STELOl27
C
STEL0128
C
SECOND ENTRY DETERMINES MAXIMUM STRUCTURAL RESPONSES FOR
STEL0129
C
EVALUATING THE PIPE IN TERMS OF FAILURE CRITERIA. IN THE DESIGN
STEL0130
C
MODE, THE PROGRAM ITERATES TO FIND ADEQUATE SECTION PROPERTIES.
STEL0131
C
STEL0132
200
IEXIT
STEL0133
C
STEL0134
IF(NONLIN . EQ . 1 .AND . IA . EQ.NINC) CALL HINGE(PIPMAT,NPMAT,PS,PDIA, STEL013S
X PYIELD,SM,SK,RESULT,NPPT,PHINGE)
STEL0136
C
STEL0137
C
IF NONLIN = 2, UPDATE NONLINEAR BEAM PROPERTIES (EFFECTIVE BENDINGSTEL0138
C
AND AXIAL STIFFNESS). CONVERGENCE IS SIGNALED BY SUBROUTINE EMOD STEL0139
C
RETURNING ICON=-l . ITERATION LIMIT SETS ICON=-2.
STEL0140
C
STEL0141
IF(NONLIN . NE.2) GO TO 201
STEL0142
C
WRITE(6,2000) PDIA,PE,PNU,PYIELD,PDEN,NONLIN
IF(NONLIN.EQ.2) WRITE(6,2001) PE2
PHINGE(l) = 0.0
IF(XMODE.EQ.DESIGN) GO TO 110
READ(S, 1010) PA,PI,PS
WRITE(6,2010) PA,PI,PS
GO TO 130
,1:\.
STELOl43
STELOl44
STEL0145
STEL0146
C
NEW ADDITION STATEMENT IN 1983 FOR JOINT SLIPPING BEHAVIOR.
STEL0147
C
MODIFY AXIAL STIFFNESS TO SIMULATE SLIPPING JOINTS,THIS OVER-RIDESSTEL0148
C
MODIFICATIONS BY EMOD.CONVERGENCE IS SIGNALED BY SUBROUTINE SLPJNTSTEL0149
C
RETURNING JCON--1. ITERATION LIMIT SETS JCON~-2
STEL0150
C
STELOlSl
C
STEL01S2
201 IF(JOINT.EQ.O) GO TO 208
STEL01S3
CALL SLPJNT(ICOME,LEVEL,NPMAT,NPPT,PDlA,PlPMAT,PE,PNU,
STEL01S4
'PA,IA,JCON,ICON)
STE101SS
IF(JCON.EQ . -2) WRITE (6,2999)JCON,ICON
STEL0156
C
STEL01S7
C
CHECK FOR CONVERGENCE OF BOTH ICON AND JCON. CONVERGENCE DOES
STEL01S8
C
NOT OCCUR IF ICON OR JCON .GT. 0
STEL01S9
C
STEL0160
208 IF(ICON.LE . O .AND. JCON.LE.O) GO TO 203
STEL0161
IF(ICON.EQ.-1) ICON-O
STEL0162
IEXIT ~ -1
STEL0163
RETURN
STEL0164
C
STEL016S
CHECK IF NONLINEAR SOIL MODEL HAS CONVERGED .,.
C
STEL0166
C
STE10167
IF(NINC.GT.O) GO TO 204
203
STE10168
lEXIT ~ -1
STEL0169
RETURN
STE10170
C
EVALUATE CURRENT MAXIMUM STRESSES, DISPLACEMENTS, AND PRESSURES. STE10171
C
STE10172
C
STE10173
TMAX ~ 0.0
204
STE10174
BMAX ~ 0.0
STE10175
PAVG ~ 0.0
STEL0176
UYMAX ~ RESULT(4,l)
STE10177
UYMIN ~ RESULT(4,l)
STE10178
C
STE10179
DO 210 N~l,NPPT
STE10180
RESULT(10,N) ~-ABS(RESULT(S,N)/PS)
STE10181
RESULT(ll,N) - RESULT(6,N)/PA
STE10182
RESULT(12,N) = RESULT(7,N)/PA
STEL0183
IF(NONLIN . EQ.O) GO TO 205
STE10184
IF(NONLIN.EQ.2) GO TO 202
STE10185
IF(ABS(RESULT(10,N)) .GT.PYIELD) RESULT(10,N) - -PYlELD
STE10186
GO TO 205
STEL0187
IF(RESULT(18,N) .LT.1.0) GO TO 205
202
STEL0188
SIGMAX~PYIELD*(1.0+PE2*(RESULT(18,N)-1.0)/PE)
STEL0189
RESULT(10,N)=-(SIGMAX-ABS(RESULT(11,N)))
STE10190
IF(ABS(RESULT(10,N)) .GT.BMAX) BMAX = ABS(RESULT(10,N))
205
STEL0191
IF(NONLlN.NE.2) GO TO 206
STEL0192
IF(SIGMAX.GT.BMAX .AND. RESULT(18,N) .GT.1.0) BMAX=SIGMAX
STEL0193
CONTINUE
206
STEL0194
IF(ABS(RESULT(ll,N)) .GT.TMAX) TMAX = ABS(RESULT(ll,N))
STEL0195
IF(RESULT(4,N) .GT.UYMAX) UYMAX
RESULT(4,N)
STEL0196
IF(RESULT(4,N) .LT.UYMIN) UYMlN = RESULT(4,N)
STEL0197
PAVG ~ PAVG + RESULT(8,N)
STE10198
CONTINUE
210
STEL0199
PAVG ~ ABS(PAVG/NPPT)
STEL0200
DlSP ~ UYMAX-UYMIN
STEL0201
IF (SM .EQ. 0.0) SM - 1.0
STE10202
PBUCK ~ PDIA'3/(36.*PESUM*SM*(1.-SK))*(1.-PNU**2)
STE10203
PCRIT = SQRT(Pl/PBUCK)
STEL0204
IF(NONLIN.EQ.1 .AND. PRINGE(l) .LT.O.O) GO TO 300
STE10205
IF (XMODE.EQ.ANALYS) GO TO 300
ICON ~ ICON + 1
CALL EHOD(IA,ICON,NPMAT,NPPT,PA,PE, PE2,PESUM,PI,PIPMAT,
1
PNU,PS,PYIELD,RESULT,ICOME)
>-'
\0
tv
C
C
C
C
C
C
C
C
C
PINEWD
PINEWB
PFS(2)*DISP*PI/(0.2*PDIA)
(PFS(3)*PAVG)**2*PBUCK
SCM 3-10-90
PINEW - MAX(PINEWD,PINEWB)
IF(PINEW.1T.PIMIN) PINEW - PIMIN
IF(ABSPINEW-PI)/PINEW) . LT.O.OS) ICHKI
PI = PINEW
PS = PI/(1.46S*SQRT(PI/PA)+0.37SPA)
C
IF(ICRRA*ICHKI.EQ.1) GO TO 250
IF(ITER.GT.S) WRITE(6,2200) ITER,PA,PI,PS
IF(ITER.GT.5) GO TO 300
IEXIT = -2
GO TO 130
C
C
C
C
250
WRITE(6,2300) ITER,PA,PI,PS
SUMMAX = 0.0
IJBEST
0
DO 280 I=l,NUMCP
NGAGE - 0
DO 260 J~1,NUMGA
IJ = J+NUMGA* (I-I)
CPA = PALIST (IJ)
CPI = PILIST (IJ)
IF(CPA.LT . PA . OR. CPI.1T . PI) GO TO 260
NGAGE = 22-2'J
IF(I.EQ.S) NGAGE~ 14-2*J+J/4
GO TO 270
CONTINUE
260
WRITE(6,2400} CP1IST(I),BXB,CPLIST(I+5)
GO TO 280
270 WRITE(6,2500) CP1IST(I),BXB,CP1IST(I+5),NGAGE,CPA,CPI
SUM5 = PA/CPA + PI/CPI
IF(SUMS.1T.SUMMAX) GO TO 280
SUMMAX = SUMS
STE10206
STE10207
STE10208
STEL0209
STE10210
STE10211
STE10212
STEL0213
STE10214
STE1021S
STE10216
5TE10217
STEL0218
5TE10219
STE10220
STEL0221
STE10222
STE10223
STEL0224
STEL022S
STEL0226
STEL0227
STEL0228
STE10229
STE10230
STE10231
STE10232
STE10233
STE10234
STEL023S
STE10236
STEL0237
STE10238
STE10239
STEL0240
STE10241
STEL0242
STEL0243
STEL0244
STEL024S
STEL0246
STEL0247
STE10248
STEL0249
STE102S0
STE102S1
STE102S2
STEL02S3
5TEL02S4
STEL02SS
STEL02S6
STE102S7
STEL02S8
STE102S9
STEL0260
STE10261
5TE10262
STE10263
STEL0264
STEL026S
5TE10266
STE10267
STEL0268
IJBEST = IJ
NGBEST = NGAGE
CONTINUE
......
\0
STEL0269
STEL0270
STEL0271
280
STEL0272
C
C
STEL0273
CHOOSE MOST EFFICIENT SECTION FROM LIST AND ANALYSE.
STEL0274
C
IF(IJBEST.EQ.O) WRITE(6,2600)
STEL0275
STEL0276
IF(IJBEST.EQ . O) GO TO 300
STEL0277
PA ~ PALIST(IJBEST)
STEL0278
PI = PILIST(IJBEST)
STEL0279
PS - PSLIST(IJBEST)
lBEST = (lJBEST-1)/NUMGA+1
STEL02BO
WRITE(6,2700) CPLI5T(IBE5T),BXB,CPLIST(IBEST+5),NGBEST
STEL0281
STEL0282
XMODE - ANALYS
STEL0283
IEXIT = -2
STEL0284
GO TO 130
STEL0285
C
STEL0286
C
PRINTOUT STRUCTURAL RESULTS AND EVALUATION.
STEL0287
C
STEL0288
CONTINUE
300
STEL0289
C
STEL0290
PRINT FINITE ELEMENT FIELD RESPONSES .
C
STEL0291
C
STEL0292
IF (LEVEL . EQ. 1) GO TO 330
STEL0293
ICOME = 3
STEL0294
CALL PRHERO(IA,ICOME,IEXIT,LEVEL,NINC,NPMAT,NPPT,PDIA,PIPMAT,
STEL0295
1
RESULT, SK, SM)
STEL0296
ICOME = 2
STEL0297
CONTINUE
330
STEL029B
ICOME- 3
IF(NONLIN.EQ.2) CALL EMOD(IA,ICON,NPMAT,NPPT,PA,PE,PE2,PESUM,PI, STEL0299
STEL0300
1
PIPMAT,PNU,PS,PYIELD,RESULT,ICOME)
STEL0301
C
STEL0302
NEW ADDITION STATEMENTS IN 19B3 FOR JOINT SLIPPING BEHAVIOR
C
5TEL0303
CALL TO SLPJNT TO PRINTOUT RESPONSES .
C
5TEL0304
C
STEL0305
IF(JOINT.NE.O)CALL SLPJNT(ICOME,LEVEL,NPMAT,NPPT,PDIA,
*PIPMAT,PE,PNU,PA,IA,JCON,ICON)
STEL0306
ICOME=2
5TEL0307
WRITE (6,2800) lA, (RESULT(l,J) ,RESULT(3,J) ,RESULT(8,J) ,RESULT(5,J) ,5TELO 308
STEL0309
X RESULT(6,J),RESULT(7,J) ,RE5ULT(2,J),RE5ULT(4,J) ,RESULT (9,J),
STEL0310
X RE5ULT(10,J) ,RE5ULT(11,J) ,RESULT(12,J) ,J=l,NPPT)
5TEL0311
C
STEL0312
IF(NONLIN.EQ . 2) WRITE(6,2990) lA, (J,RESULT(19,J),RESULT(20,J),
STEL0313
X RESULT(18,J),RESULT(13,J),J~1,NPPT)
STEL0314
C
STEL0315
IF (TMAJ(*DISP*PAVG*BMAX .EQ . 0 . 0) GO TO 350
STEL0316
CIRCR = PIELO/TMAX
STEL0317
DISPR ~ (0.2*PDIA)/DISP
STEL0318
BUCKR = PCRIT/PAVG
STEL0319
BENOR - PYIELD/BMAX
STEL0320
HANOR = PI I PIMIN
STEL0321
wRIrE!6 , 2900) IA, CI RCR, DISPR,BUCKR.BENDR ,HANDR
S'I'ELD322
CQNTWU
350
STEL0323
l NONLIN . WE.I ) GO TO 400
STL032 4
I f( PH I NGE(l ) . L7.0 . 0 .OR. PHINGECl) . GT . l.O ) GO TO Hio
5 '1'LOJ 2S
WR I 'I"E (6 . 2950 ) (FHl NGE ( r) , 1 - 1, 5 )
5 '1'E L 032 6
re;X IT = 1
400
5'1'EL0 327
If(rA.LT . NINC) IEY~T- 0
STEL032S
I F (J CON. EQ. - 2) ICON=- Z
STEL0.329
t F I IC~ .EQ.- 2) WRITE (6 . 2995 )
5TLO,330
1f' l1cQN. EO . -Z) STOP
S'l'EL0331
ICON ~ 0
STEL0332
STEL0333
C
STEL0334
C
FORMATS
5TL0335
C
STEL0336
5TEL0337
1000 FORMAT(I5 , 6FIO . 0,I5)
1010 FORMAT(3FIO.0)
STEL0338
2000 FORMAT (III 10X.35H PIPE PROPERTIES ARE AS FOLLOWS . .. II
STEL0339
X 15X,36H AVERAGE PIPE DIAMETER (IN . ) ..... . . , E15 . 5 II
STEL0340
STEL0341
X 15X.36H YOUNGS MODULUS OF PIPE (PSI) ... . . . . , E15 . 5 I I
E15 . 5 I I
STEL0342
X 15X.36H POISSON5 RATIO OF PIPE (-) .... .
X 15X,36H YIELD STRESS OF PIPE (PSI) ....... . . , E15 . 5 II
STEL0343
X 15X,36H DENSITY OF PIPE (PCI) .... . ...... . , E15 . 5 II
STEL0344
X 15X.36H MATERIAL CHARACTER, NONLIN ..... .. .
15 I
5TEL0345
X 17X.25H NONLIN=O, IMPLIES LINEAR I
STEL0346
X 17X,30H NONLIN=l. IMPLIES YIELD-HINGE I
STEL0347
X 17X,34H NONLIN=2, IMPLIES BILINEAR CURVE I)
STEL0348
2001 FORMAT ( 115X,36H MODULUS OF UPPER BI-CURVE ..... ... . E15 . 5 I)
STEL0349
2010 FORMAT( II lOX, 31H SECTION PROPERTIES OF PIPE
II
5TEL0350
X 15X. 36H THRUST AREA (IN**2/IN) ............ , flO. 5 I I
STEL0351
X 15X, 36H MOM. OF INERTIA (IN**4/IN) ....... , F10 . 5 II
5TEL0352
X 15X, 36H SECTION MODULUS (IN**3/IN) ... . . . .. F10.5 I)
STEL0353
2100 FORMAT(I I I 10X.43H DESIRED SAFETY FACTORS FOR PIPE DESIGN .. . 1115TEL0354
X 15X,36H THRUST STRESS YIELDING .. . ...... . . , F10 . 5 II
STEL0355
X 15X,36H DEFLECTION COLLAPSE, (0.2*0) ... . .. , F10.5 II
STEL0356
STEL0357
X 15X,36H ELASTIC BUCKLING . ..... . ....... .... , F10 . 5 I )
2200 FORMAT(lH1,111 10X,50H DESIGN ITERATIVE PROCEDURE DID NOT CONVERGE5TEL0358
X AFTER ,131 10X,55H ITERATIONS. THE LAST SOLUTION IS PRINTED AND ESTEL0359
XVALUATED, I 10X,37H WHERE THE SECTION PROPERTIES ARE
II
STEL0360
E15 . 5 II
STEL0361
X 15X,36H THRUST AREA PER UNIT LENGTH .... . ..
X 15X,36H MOM. OF INERTIA PER UNIT LENGTH .. , E15 . 5 II
STEL0362
X 15X.36H SECTION MODULUS PER UNIT LENGTH .. , E15 . 5 II)
STEL0363
2300 FORMAT(lH1,1110X,19H DESIGN RESULTS AT ,I2,11H ITERATIONS II
STEL0364
X 15X, 35H
REQUIRED THRUST AREA .... . ..
F10.5 II
STEL0365
X 15X, 35H
REQUIRED MOM . OR INERTIA . ... , F10 . 5 II
STL0366
X 15X, 35H
REQUIRED SECTION MODULUS . . . .. , F10 . 5 1III
STEL0367
X lOX, 49H THE FOLLOWING STEEL CORRUGATED SECTIONS MEET THE
STEL0368
X lOX, 37H ABOVE REQUIREMENTS WITH MINIMUM AREA II
STEL0369
X15X.12H CORRUGATION,3X,5H GAGE,3X,12H THRUST AREA.3X.13H MOM. INERSTEL0370
XTIA I)
STEL0371
2400 FORMAT(17X,3A4.3X,22H (NO ADEQUATE SECTION)
STEL0372
2500 FORMAT(17X.3A4,6X,I2,5X,F10.5,5X,F10.5)
STEL0373
2600 FORMAT(IIII 10X,37H NO STANDARD CORRUGATION IS ADEQUATE. I
STEL0374
X lOX, 45H AN ANALYSIS OF THE REQUIRED SECTION FOLLOWS. )
STEL0375
2700 FORMAT(IIII lOX, 38H THE CORRUGATION WITH MINIMUM AREA AND
STEL0376
X10X,21H MOMENT OF INERTIA IS,3A4,5H GAGE,I3,1
STEL0377
X lOX, 41H AN ANALYSIS OF THIS CORRUGATION FOLLOWS . )
STEL0378
2800 FORMAT(lHl, 1110X,32H STRUCTURAL RESPONSES OF CULVERT
STEL0379
X 3X, 12H LOAD STEP = ,12 II
STEL0380
STEL0381
X 4X.9H X-COORD.,5X.8H X-DISP.,4X,9H N-PRES . 6X,7H MOMENT,6X,
X 7H THRUST,7X,6H SHEAR 14X.9H Y-CooRD.,5X,8H Y-DISP.,5X,8H S-PRES . STEL0382
X .4X.9H M-STRESS,4X,9H T-5TRESS,4X.9H 5-STRESS ,
STEL0383
X (1IF13 . 2,5E13.3/F13.2.5E13 . 3
STEL0384
2900 FORMAT(lH1,111110X.34H CALCULATED SAFETY FACTORS AT STEP, 13 III STEL0385
X15X,50H THRUST STRESS . . . . . . . (YIELD-STRESS/MAX-STRESS) =,F10.211 STEL0386
X15X,50H DISPLACEMENT . . .. .. .. . (DIAMETER*0 . 2/ MAX-DISP.) =,F10.2 11 STEL0387
X15X,50H ELASTIC BUCKLING . ...... (P-CRITlCAL/P-AVERAGE) -,F10.211 I STEL0388
X lOX, 20H PERFORMANCE FACTORS I I I
STEL0389
X15X,50H MAXIMUM STRESS . .. ... (YIELD-STRESS/MAX-STRESS) =,F10.2 IisTEL0390
X15X.50H HANDLING REQUI REMENT . . ..... ... . (FF*EI / D**2) =,F10.2 I)STEL0391
2950 FORMAT( I II lOX, 27H PLASTIC HINGING EVALUATION I II
5TEL0392
X 15X,42H
RATIO OF LOAD AT INITIAL YIELDING .....
F10.5 II
STEL0393
X 15X,42H
RATIO OF MAXIMUM HINGE PENETRATION .. . .
F10.5 II
STEL0394
JCON = 0
RETURN
X 15X,4ZH
RATIO OF CIRCUMFERENCE IN YIELDING .... , FI0.5 II
5TEL0395
X 15X,4ZH
RATIO OF MAX-DI5P. DUE TO YIELDING .... , F10.5 II
5TEL0396
X 15X,4ZH
RATIO OF MAX-5TRA1N/YIELD-5TRAIN ......
F10.5 II)
5TEL0391
2990 FORMAT(lH1,11110X,40H NONLINEAR CHARACTERI5TIC5, LOAD 5TEP -,13115TEL0398
X5X,13H NODE
INNER-FIBER
OUTER-FI6ER
STRAIN RATIO
5TEL0399
X FRACTION OF IZ1X,57H5TRAIN
5TRAIN
MAX-TO-YIELD
5TEL0400
X WALL YIELDED II (5X,I5,ZE17.5,1X,F10.5,1X,F10.5
5TEL0401
2995 FORMAT(lHO,111131(ZH ')11173H THE SOLUTION WILL NOT CONTINUE DUE T5TEL040Z
XO THE RATIO OF ERROR IN THE MODULU5
11141H IT 15 RECOMMENDABLE T5TEL0403
XO USE SMALLER LOAD 5TEP5
11131(ZH *
5TEL0404
5TEL0405
2999 FORMAT(II,5X,6H JCON=,I5,1,5X,6H ICON=,I5,11)
END
5TEL0406
.. * .. .. .. .. .. STFBOOOI
* * . * * * * * * * ,. ** ...
STF60002
CANDE-89 (C)ULVERT (AN)ALY515 AND (DE)SIGN PROGRAM
5TF60003
VERSION 1.0, MARCH 1990
5TF60004
PU6LIC DOMAIN 50FTWARE CONTRIBUTED BY
5TF60005
THE FEDERAL HIGHWAY ADMINI5TRATION
.. .. * .. .. .. .. .. .. .. .. .. .. .. :t .. * ..
STFB0006
5TF80001
SUBROUTINE 5TF5U8
5T,80008
C
5TFB0009
THIS SUBROUTINE FORMS THE ELEMENT MATRIX FOR A TRIANGULAR
C
5TF60010
ELEMENT
C
5TFB0011
C
5TFBOOIZ
Uncomrnent this statement in all program modules for double
5T,B0013
precision version . SCM 3-10-90
5TF60014
5TF60015
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
5TF80016
5TF60011
DIMEN5ION AL(3,3),8T(3,3),CT(12,12),CTP(12,}7),GA(3,3),ZT(12)
5T,B0018
COMMON IELEMNTI AS(3),B5(3),Cl(17,17),E5T(4,3),RQ(4),RT(3),
5TF60019
1
5TORE(17),Z4112) ,ZQ(4) ,ZDUM(3) ,ZY(l7) ,Jl,RO
5TF60020
COMMON 15IZEPRI BIVD(3),IX,NINC
5TF80021
COMMON lMATERLI CP(3,3),DENII0),E(10,10),GNU(10,10),H(10,10),
5TFB0022
1
ITYPE(10) ,NON(10)
5TF60023
COMMON IE5TABLI ITRW(Z8,2),NETCL(17,2),T(28,Z)
STF80024
CALL GEOM(AA,DI,D2,D3)
ST,B0025
DO 155 N=1,3
5TFB0026
8N=65(N) 112.0
5TF80021
AN=A5 IN) IlZ. 0
ST,80028
DO 150 1=1,3
5TFB0029
AL(N,I)=2 . 0*BN
*B5(I)
STFB0030
BT(N,I)=AN
*85(I)+AS(I)*8N
STF60031
150 GA(N,I)=2.0*AN
*AS(I)
5TFB0032
AL(N,N)-Dl/12.0
5TF80033
BT(N,N)=D2/12.0
5TF60034
155 GA(N,N)=D3/12.0
5TFB0035
DU=0.5/AA
5TF60036
Cll=CP(I,I)*DU
5TF60037
Cl2=CP(I,2)*DU
5TFB0038
C13=CP(l, 3) *DU
5TF60039
C22=CP(2,2)*DU
5TF60040
C23=CP(2, 3) *DU
STF60041
C33=cP(3,3)*DU
5TFB0042
FY = -RO*AA/8.
5TFB0043
C
5TF80044
CHECK FOR DATA ERROR
C
5TF60045
C
5TF60046
IF(AA.LE . O. O) WRITE(6,911) IX
5TF60047
911 ,ORMAT III 7X,21HDATA ERROR IN ELEMENT , 141/)
5TF60048
C
5TF60049
C
FORM ELEMENT STIFFNE5S MATRIX
5T,B0050
C
5TF60051
DO 250 N=1,3
11
......
1.0
.po.
..
..
..
..
fir
..
..
11
11
..
DUI = 1.0
IF(N*J1.LT.2 . OR. N*J1.GT.4) DU1 = 2.0
8N- 65 (N)
AN=A5(N)
ZT(N )=0.0
ZT(N+3) = FY*DU1
ZT(N+6)=0.0
ZT(N+9) = 0.0
DO 250 1=1,3
DZ=-1. 0/3.0
D4=AL(I,N)
D5=BT (I, N)
D6=GA(I,N)
8I=B5(I)
AI=A5(I)
Xl-6I*8N
XZ-6I*AN
X3-AI*BN
X4=AI*AN
X5-X2+X3
CT(N,I)=
Cll*X1+C13* X5
+C33*X4
CT(N,I+3)=
CIZ*X3+C13'X1+C23'X4+C33*X2
..
CT(N,I+6)~D2*CT(N,I)
CT(N,I+9)=D2*CT(N,I+3)
CT(N+3,I+3)~
C22'X4+C2J* X5
+C33'X1
C33*X3+C23*X4 )
CTIN+3,I+6)=DZ*(C13*X1+C1Z*XZ+
CT(N+3,I+9)=D2*CT(N+3,I+3)
CT(N+6,I+6)=c11'D4+Z.0*clJ*D5+C33*D6
CT(N+6,I+9)=C13*D4
+(C12+C33)*D5+C23*D6
250 CT(N+9,I+9)=C22*D6+Z.0*C23'D5+CJ3'D4
DO JOO N=1, lZ
DO 300 I=N,1Z
CT(I,N)~CT(N,
I)
300
C
C
C
3Z0
380
400
405
410
K8=1
MC-1
DO 400 K~1,17
KA=NETCL (K, J1)
DO 3Z0 MM=l, KA
M=ITRW (K8, Jl)
ZY(K)=ZY(K)+ZT(M)*T(K8,Jl)
KB=K8+1
DO 380 L=1,12
CTP(L,K)=O.O
MP=MC
DO 380 MM=l,KA
M=ITRW(MP, J1)
CTP(L,K)=CTP(L,K)+CT(L,M)'T(MP,J1)
MP=MP+1
MC=MC+KA
MC=l
DO 410 1=1,17
KA=NETCL I I, Jl )
DO 405 K=l,l1
MP=MC
DO 405 MM=1, KA
M=ITRW (MP, J1)
Cl(I,K)=C1(I,K)+CTP(M,K)*TIMP,Jl)
MP=MP+1
MC=MC+KA
RETURN
5TF80052
5TF80053
5TF80054
5TF80055
5TFB0056
5TF80057
5TF80058
5TF80059
5TFB0060
5TFB0061
STF80062
5TFB0063
5TF60064
5TF80065
5TF80066
5TF80067
5TF80068
5TF80069
5TF80070
5TFB0071
5TFB0072
5TF80073
5TF80014
5TF80075
5TF80076
STFB0077
5TF80018
5TF80079
5TF80080
5TF80081
5TF80082
5TF80083
5TF80084
5TF80085
5TFB0086
5TF80087
5TF80088
5TFB0089
5TF80090
5TFB0091
STFB009Z
STF8D093
5TF80094
5TFB0095
5TE'80096
5TF80091
5TF80098
5TFB0099
5TF80100
5TF80101
5TE'B0102
5TFB0103
5TFB0104
5TF80105
5TFB0106
5TF60107
5TF80108
5TF80109
5TFB0110
5TFB0111
5TE'B0112
5TFB0113
5TF80114
STFB0115
* * * * " . * " ' . + * * * * * * * * * * * * * * .. * STFNOOOI
CANDE-89 (C)ULVERT (AN)ALYSIS AND (DE)SIGN PROGRAM
STFN0002
STFN0003
VERSION 1.0, MARCH 1990
STFN0004
PUBLIC DOMAIN SOFTWARE CONTRIBUTED BY
STFN0005
THE FEDERAL HIGHWAY ADMINISTRATION
. * * * * * * * * * * * + * * * * * * * * * . ; * * * * * * STFN0006
SUBROUTINE STIfNS(BIV,NOD,NODB,NQ,X,Y,MNO,U,V,ST,IA,LB1,MN,IAC,
STFN0007
STFN0008
X
MNX,ITER,ICON,NEQ,NBPTC,NELEM,NPT)
STFN0009
STfN0010
THIS SUBROUTINE FORMS THE ELEMENT MATRIX FOR A QUADRILATERAL
STFNOOll
ELEMENT
STFN0012
STFN0013
Un comment this statement in all program modules for double
STFN0014
precision version. SCM 3-10-90
STFN0015
STFN0016
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
STFN0017
STFN0018
DIMENSION BIV(3,NBPTC),NOD(4,NELEM),NODB(NBPTC),NQ(NPT),
STFN0019
1
X(NPT) ,Y(NPT),U(NPT) ,V(NPT),MNO(NELEM) ,ST(6,NELEM)
STFN0020
COMMON /ELEMNT/ AS(3),BS(3),C1(17,17),EST(4,3),RQ(4),RT(3),
STFN0021
1
STORE (17) , Z4 (12) , ZQ (4) , ZT (3) , ZY (17) ,J1, RO
STFN0022
COMMON /SIZEPR/ BIVD(3),IX,NINC
STFN0023
COMMON/SYSTEM/B (240) ,A(240,120)
STFN0024
COMMON IMATERLI CP(3,3),DEN(10),E(10,10),GNU(10,10),H(10,lO),
STFN0025
1
ITYPE(10) ,NON(10)
STFN0026
DIMENSION IIFLG(3)
STFN0027
STFN0028
INITIALIZE ELEMENT STIFFNESS AND LOADING
STFN0029
STFN0030
DO 60 J=1,17
STFN0031
DO 50 K=l,17
STFN0032
50 C1 (J, K)=O. 0
STFN0033
60 ZY(J)=O.O
STFN0034
STFN0035
THE CORNER POINT COORDINATES ARE fOUND
STFN0036
STFN0037
DO 90 J=1. 4
STfN0038
K = NOD(J,IX)
STFN0039
RQ(J)~X(K)
STFN0040
90 ZQ(J) aY(K)
STfN0041
NU=2
STFN0042
STfN0043
BENDING ELEMENT STIFFNESS DEVELOPED
STfN0044
STfN0045
IF(NOD(3,IX) . NE.NOD(2,IX GO TO 95
STFN0046
CALL BEAMEL
STFN0047
NU=3
STFN0048
GO TO 313
STFN0049
STfN0050
INTERFACE ELEMENT CONSTRAINT AND LOAD DEVELOPMENT
STfN0051
STfN0052
95 IF(MNX . EQ.O) GO TO 9?
CALL XFACES(MN,IAC,MNX,IX,ICON,ITER,NELEM,NPT,MNO,NOD,ST,U,V,I A) STfN0053
STfN0054
GO TO 313
STFN0055
STFN0056
THE SUB-ELEMENT MATRICES ARE fOUND AND ADDED INTO THE ELEMENT
STfN0057
MATRIX, JTRY=l IMPLIES ONE TRIANGLE, JTRY = 2, IMPLIES TWO .
STFN0058
STFN0059
97 JTRY=2
STFN0060
IF (NOD(4,IX) .EQ. NOD(3,IX) ) JTRY = 1
STfN0061
STFN0062
DO 300 J=1, JTRY
JI- J
END
C
C
C
C
C
C
>-'
\0
VI
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
310 C1(L,M)~C1(L,M)-C1(KK,M)DU1
312 ZY(L)=ZY(L)-DU1*DU2
C
C
C
17)
DO 334 J- 1,4
NRQ = NOD(J,IX)
DO 331 K-1,NBPTC
KK~IABS(NODB(K
Kl=KK/10000
IF (NRQ .NE . K1) GO TO 331
XX=l.O
If (NODB(K) .LT. 0) XX=O.O
NODB(K) - -KK
NR=NU* (J-1)
IIfLG(1)=MOD(KK,100) 110
IIFLG(2)=MOD(KK,10)
IIFLG(3)=IIFLG(1)+IIFLG(2)
MKG
3-18-89
STFN0063
STFN0064
STFN0065
STFN0066
STFN0067
STFN0068
STFN0069
STFN0070
STFN0071
STFN0072
STFN0073
STfN0074
STFN0075
STFNOO?6
STFNOO?7
STFN0078
STFN0079
STFN0080
STFN0081
STFN0082
STFN0083
STfN0084
STFN0085
STFN0086
STFN0087
STFN0088
STFN0089
STFN0090
STFN0091
STFN0092
STFN0093
STFN0094
STFN0095
STFN0096
STFN0097
STFN0098
STFN0099
STFNOI00
STFNOI01
STFNOI02
STFNOI03
STFNOI04
STFNOI05
STfNOI06
STFNOI07
STFNOI08
STFNOI09
STFNOllO
STFNOll1
STFN0112
STFN01l3
STFN01l4
STFN01l5
STFN01l6
STFN01l7
STfN01l8
STFN01l9
STFN0120
STFN0121
STFN0122
STFN0123
STFN0124
STFN0125
"_.,
BIVD{l) ~ BIV{l,K)
BIVD(2) = BIV{2,K)
BIVD(3) =0.0
IIIN=MOD (KK,lOOOO) /l00
lING = BIV{3, K)
IF{ANG .EQ. 0.0) GO TO 320
C
C
CA-COS{IING)
SA=SIN(IING)
Dl-ZY (NR+l)
D2=ZY{NR+2)
ZY(NR+l)=Dl*CA+D2*SA
ZY(NR+2)=-Dl*SA+D2*CA
DO 315 JJ=I,B
DI-Cl (NR+l, JJ)
D2=Cl (NR+2, JJ)
Cl(NR+l,JJ)=Dl*CA+D2*SA
315 Cl{NR+2,JJ)=-Dl*SA+D2*CA
DO 31B II=I, B
DI-Cl{II,NR+l)
D2 c Cl(II,NR+2)
Cl{II,NR+l)-Dl*CA+D2*SA
31B Cl{II,NR+2) --Dl*SA+D2*CA
320 DO 330 N=I,NU
DUI-O.O
IF(IAN .EQ. IAl DUl=BIVD( N)
NR=NR+l
\0
0\
LOADS ADDED IN
ZY{NR)=ZY{NR)+XX*DUI
IF{IIFLG(N)
.EQ. 0) GO TO 330
C
DISPLACEMENTS SPECIFIED
327
330
331
334
ZY{NR)=DUl*XX
Cl(NR,NR)=O . O
DO 327 M=l,B
ZY{M)=ZY{M)-Cl(M,NR)*DUl
Cl{M,NR)=O.O
Cl(NR,M)=O.O
CONTINUE
CONTINUE
CONTINUE
C
C
DO 345 N=l,NU
STFN0126
STFN0127
STFN012B
STFN0129
STFN0130
STFN0131
STFN0132
STFN0133
STFN0134
STFN0135
STFN0136
STFN0137
STFN013B
STFN0139
STfN0140
STfN014l
STfN0142
STFN0143
STfN0144
STFN0145
STfN0146
STfN0147
STfN014B
STFN0149
STfN0150
STFN0151
STfN0152
STFN0153
STfN0154
STFN0155
STfN0156
STfN0157
STFN015B
STFN0159
STFN0160
STFN0161
STFN0162
STFN0163
STFN0164
STfN0165
STFN0166
STFN0167
STFN016B
STfN0169
STFN0170
STFNOl71
STFNOl72
STFN0173
STFN0174
STFN0175
STFN0176
STfNOI77
STfN0178
STFN0179
STFNOIBO
STFN01Bl
STFN0182
STFN0183
STFN0184
STFNOIB5
STFN0186
STFN0187
STfN0188
STFN0189
STFN0190
STFN019l
STFN0192
STFN0193
STFN0194
STFN0195
STFN0196
STFN0197
. . . . . . . . STRSO'OOI
STRS0002
CIINDE-89 (C)ULVERT (IIN)ALYSIS lIND (DE)SIGN PROGRAM
STRS0003
VERSION 1.0, MARCH 1990
STRS0004
PUBLIC DOMAIN SOFTWARE CONTRIBUTED BY
STRS0005
THE FEDERAL HIGHWAY ADMINISTRATION
* * + * * ~ * * * * * * * * * * * * * * * * * + * * * * * * STRS0006
STRS0007
SUBROUTINE STRESS (BIV,MNO,NOD,NODB,NQ,ST,STPIPE,U,V,IA,NBPTC,
STRS0008
1
NELEM,NELEMT,NPMAT,NPPT,NPT,SKAVG,SMAVG)
STRS0009
STRSOOI0
Uncomment this statement in all program modules for double
STRSOOll
precision version. SCM 3-10-90
STRS0012
STRS0013
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
STRS0014
DIMENSION BIV(3,NBPTC) ,MNO(NELEM) ,NOD(4,NELEM) ,NODB(NBPTC) ,NQ(NPT) STRS0015
1
,ST(6,NELEM),STPIPE(2,NPPT ),U(NPT),V(NPT)
STRS0016
COMMON IELEMNTI AS(3),BS(3),C1(17,17),EST(4,3),RQ(4),RT(3),
STRS0017
1
STORE(17),Z4(12),ZQ(4),ZT(3),ZY{17),J1,RO
STRS0018
COMMON IMATERLI CP(3,3),DEN(10),E(10,10),GNU(10,10),H(10,10),
STRS0019
1
ITYPE(lO),NON(lO)
STRS0020
COMMON/SYSTEMiB(240),A(240,120)
STRS0021
COMMON IESTABLI ITRW(2B,2),NETCL(17,2),T(2B,2)
STRS0022
STRS0023
C
STRS0024
BOUNDARY POINTS TRANSFORMED TO X-Y COORDINATE SYSTEM
C
STRS0025
C
STRS0026
DO 600 K~l,NBPTC
STRS0027
KK-IABS(NOOB(K) )
STRS0028
NODB(K)=KK
STRS0029
lING - BIV(3,K)
STRS0030
IF(ANG .EQ. 0.0) GO TO 600
STRS0031
Kl=KK/lOOOO
STRS0032
JJ-NQ(K1) 1100
STRS0033
IF(JJ.EQ.NQ(Kl+1) 1100) GO TO 600
STRS0034
CT~COS(IING)
STRS0035
SA=SIN(IING)
STRS0036
D1 _ B(JJ)
STRS0037
02 - B(JJ+l)
STRS003B
B(JJ) = Dl CT -D2*SA
STRS0039
B(JJ+l) - Dl*SA +D2'CT
STRS0040
600 CONTINUE
STRS0041
C
STRS0042
FOR EACH ELEMENT FIND STRAINS AND STRESSES
C
STRS0043
C
STRS0044
SMAVG = 0.0
STRS0045
SKAVG = 0.0
STRS0046
SMKNEL : 0.0
STRS0047
REWIND 12
STRS0048
DO 726 III=l,NELEMT
STRS0049
C
STRS0050
RECALL ELEMENT STIFFNESS MATRIX
C
STRSOOS1
C
STRS0052
READ(12) (ZY(M), STORE (M), (Cl (M, N), N~l, 17) ,M=l, 17),
STRS0053
1
({CP(J,K),K=1,3)'J=1,3)
STRS0054
I=STORE(17)+0.1
NCCC=NCCC+1
NCN-NCN+l
IF (NCN.LT. 1) GO TO 344
A(NRM,NCN) = A(NRM,NCN) +C1(NRCC,NCCC)
344 CONTINUE
345 CONTINUE
350 B(NRM) ~ B(NRM) + ZY(NRCC)
RETURN
END
(I) /l000
lAC - MOD(MNO(I),lOOO)/lO
MNX ~ MNO(I)-lOOO*MN-lO*IAC
NODIl,I) = IABS(NOD(l, I))
MN~MNO
C
L~l
DO 610 J=1,4
K ~ NOD(J,I)
ND~NQ(K)/lOO
610
ZY(L) ~ B(ND)
ZYIL+l) = B(ND+l)
L- L+2
IF(MNX.GT.O) GO TO 615
IF (NOD(2,I) .NE. NOD(),I)) GO TO 621
ZY(6) ~ BIND+2)
CALL BEAMSTINOD,NQ,I,NELEM,NPT,MN)
RTIl)
RQ(4)
RT(2) ~ ZQ(4)
RT(3) = 0.0
GO TO 718
C
615
.....
\0
-...J
NDI = NOD(l,I)
ND2= NOD(2, I) .
ND3 = NOD(3,I)
NDFI = NQ(NDl)/lOO
NDF2 = NQ(ND2)/lOO
NDF) ~ NQ(ND3)/lOO
ROil)
B(NDn)
RQ(2) - B(NDF3+l)
RQ(3)
B(NDF3) - ST(3,I)
ZO(l)
B(NDF3+l) - ST(4,I)
ZQ(2)
B(NDF2)-B(NDFl) - ST(5, I)
ZQ(3)
BINDF2+l)-BINDFl+1) - ST(6,I)
RT(l)
0.0
RT(2) ~ 0.0
RT(3)
0.0
GO TO 718
621
JTRY~2
DO 622 J-9,17
622
ZY(J)~O.O
GO TO 658
625 DO 630 J=1,8
DO 630 K-9,17
630 ZY(K)~ZYIK)-Cl(K,J)*ZYIJ)
ZY(9)=ZY(9)/Cl(9,9)
DO 650 J~lO, 17
KA~J-l
645
650
65a
660
C
DO 645 K-9,KA
ZY(J)=ZY(J)-ZY(K)*Cl(J,K)
ZY(J)=ZY(J)/Cl(J,J)
DO 660 K-1, 4
RQ(K)
-0.0
STRS0055
STRS0056
STRS0057
STRS0058
STRS0059
STRS0060
STRS0061
STRS0062
STRS0063
STRS0064
STRS0065
STRS0066
STRS0067
STRS0068
STRS0069
STRS0070
STRS0071
STRS0072
STRS0073
STRS0074
STRS0075
STRS0076
STRS0077
STRS0078
STRS0079
STRS0060
STRS008l
STRS0082
STRS0083
STRS0084
STRS0085
STRS0066
STRS0067
STRS0088
STRS0089
STRS0090
STRS009l
STRS0092
STRS0093
STRS0094
STRS0095
STRS0096
STRS0097
STRS0098
STRS0099
STRSOIOO
STRSOl01
STRS0102
STRS0103
STRSOl04
STRSOl05
STRS0106
STRS0107
STRS0108
STRS0109
STRSOllO
STRS0111
STRS01l2
STRS01l3
STRS01l4
STRS01l5
STRS01l6
STRSOll1
C
C
C
C
C
C
C
C
C
C
STRS0118
STRS0119
STRS0120
DO 715 Jl=l,JTRY
STRS0121
DO 670 K=1,12
STRS0122
670 Z4 (K)=O.O
STRS0123
M=6*Jl-7
STRS0124
DO 675 K=I,3
STRS0125
M=M+2
STRS0126
RT (K)=STORE (M)
STRS0127
675 ZT(K)=STORE(M+l)
STRS0128
JIP=Jl
STRS0129
DU-0.5
STRS0130
IF (JTRY .EQ. 2)GO TO 677
STRS0131
DU=1.0
STRS0132
JIP-2
STRS0133
677 CALL GEOM(AA, 01, D2, D3)
STRS0134
DU=DU/AA
STRS0135
MP=1
STRS0136
DO 680 K=I,17
STRS0137
KA-NETCL (K, Jl)
STRS0138
00 680 MM~l, KA
STRS0139
M=-ITRW(MP,J1)
STRS0140
Z4(M)=Z4 (M)+ZYCK)*T(MP,Jl)
STRS0141
680 MP-MP+l
STRS0142
STRS0143
STRAINS CALCULATED FOR SUBELEMENTS
STRS0144
STRS0145
EX~O .
STRS014 6
EY=O.O
STRS0147
GAMXY=O.O
STRS0148
DO 701 K=1,3
STRS0149
Dl=AS(K)
STRS0150
D2=BS (K)
STRS0151
EX-EX+Z4(K)*D2
STRS0152
EY=EY+Z4 (K+3) *01
STRS0153
701 GAMXY-GAMXY+Z4(K)*Dl+Z4 (K+3)*D2
STRS0154
RQ(I)-EX*DU+RQ(I)
STRS0155
RQ(2)=EY*DU+RQ(2)
STRS0156
RQ(3)~GAMXY*DU+RQ(3)
STRS0157
DU-(1.0-DU*AA)*O.5/AA
STRS0158
IF(JI .EO. 2)GO TO 705
STRS0159
RO(I)=RQ(1)-DU*BS(1)*(Z4(7)-Z4(8)-Z4(9))
STRS0160
RQ(2)=RQ(2)-DU*AS(I)*(Z4(10)-Z4(11)-Z4(12))
STRS0161
RQ (3) ~RQ (3) -DU* (AS (1) * (Z4 (7) -Z4 (8) -Z4 (9)) +BS (1) * (Z4 (10) -Z4 (11)
STRS0162
1
-Z4(12)))
STRS0163
GO TO 715
STRS0164
705 RQ(I)=RQ(I)-DU *BS(3)*(Z4(9)-Z4(8)-Z4(7))
RQ(2)=RQ(2)-DU *AS(3)' (Z4 (12)-Z4 (11)-Z4 (10))
STRS0165
RQ(3)~RO(3)-DU
*(AS(3)*(Z4(9)-Z4(8)-Z4(7)) +BS(3)*(Z4(12)-Z4(11) STRS0166
STRS0167
1
-Z4(10)))
STRS0168
715 CONTINUE
STRS0169
STRS0170
INCREMENTAL STRESSES CALCULATED
STRSOl71
STRSOl72
DO 717 ~1, 3
STRS0173
DU=O.O
STRS0174
DO 716 J=1,3
STRS0175
716 DU=DU+RO(J)*CP(L,J)
STRS0176
717 ZQ(L)=DU
STRS0177
STRS0178
COMPUTE AVERAGE SOIL PROPERTIES FOR BUCKLING AND HINGING
STRS0179
STRS0180
RT(l)
0.0
CALCULATE SUB-ELEMENT EXPANSION COEFFICIENTS
STRS0181
STRS0182
STRS0183
C
STRS0184
SMAVG - SMAVG + CP(l,l)
STRS0185
SKAVG ~ SKAVG + CP(l,2)/CP(l,l)
STRS0186
SMKNEL ~ SMKNEL + 1 .
STRS0187
C
STRS0188
INCREMENTAL STRESSES AND STRAINS ADDED TO TOTAL VALUES
C
STRS0189
C
STRS0190
718 CONTINUE
STRS0191
DO 719 J=l. 3
STRS0192
ST(J+3,I) ~ ST(J+3,1) + ZQIJ)
STRS0193
719 STIJ,I) = ST(J,I) + RQ(J)
STRS0194
C
STRS0195
PIPE RESPONSES
C"
STRS0196
C
STRS0197
IF (NOD(2, I) .NE. NOD(3, I GO TO 726
STRS0198
IBEAM = MNO(I)/I000
STRS0199
STPIPEI1,IBEAM)
STPIPEI1,IBEAM) + RTI1)
STRS0200
STPIPE(Z,IBEAM) = STPIPE(Z,IBEAM) + RT(Z)
STRSOZ01
726 CONTINUE
STRSOZ02
C
STRS0203
IF (SMKNEL .EQ. 0.0) GO TO 750
STRS0204
SMAVG = SMAVG/SMKNEL
STRS0205
SKAVG = SKAVG/SMKNEL
STRS0206
750 CONTINUE
STRS0207
C
Co,
STRS0208
INCREMENTAL DISPLACEMENTS ARE ADDED
STRS0209
C
STRSOZ10
DO 785 I-1,NPT
STRS0211
IF IMOD(NQII),lOO) .EQ. O)GO TO 785
STRS0212
JJ=NQ(I) 1100
STRS0213
DU = B(JJ)
STRS0214
DV = BIJJ+l}
STRS0215
U(I)-U(I)+DU
STRS02l6
VII)=V(I)+DV
STRS0217
785 CONTINUE
STRSOZ18
REWIND 12
STRS0219
RETURN
STRS0220
END
.. ** .. * '" . . . . . + . . . . . . . ** ** .......... . XCANOOOI
XCAN0002
CANDE-89 IC)ULVERT IAN)ALYSIS AND IDE)SIGN PROGRAM
XCAN0003
VERSION 1.0, MARCH 1990
XCAN0004
PUBLIC DOMAIN SOFTWARE CONTRIBUTED BY
XCAN0005
THE FEDERAL HIGHWAY ADMINISTRATION
,..,.***** + " , * * * * * * I t * * * * . _ . 1 > * . * XCAN0006
XCAN0007
SUBROUTINE XCANILUREAD,IGO)
XCAN0008
C
XCAN0009
MODIFY CAN LUDATA TAPE FOR INTERFACE ELEMENTS AROUND PIPE.
C
XCAN0010
C
XCANOOll
Uncomment this statement in all program modules for double
XCAN001Z
precision version. SCM 3-10-90
XCAN0013
XCAN0014
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
XCAN0015
DIMENSION ISWAS(110,Z),TITLEI17),NPXI11),MODX(11),XCX(11),YCX(11)XCAN0016
1
,NBADD(4),INCC(11)
XCAN0017
DATA INCC 14*1,2,2,3,3,3*41
XCAN0018
DATA NADDB,NBADD I 4, 40, 70, 39, 69 I
XCAN0019
DATA IMORE,ILAST/1H ,lHLI
XCAN0020
XCAN0021
C
XCAN0022
LUREAD ~ 10
XCAN0023
IF(IGO.EQ.O) RETURN
RT(2)
RT(3)
.....
\0
00
0.0
0.0
XCANOOZ4
XCAN0025
XCAN0026
XCAN0027
C
XCAN0028
ESTABLISH IS-WAS LIST FOR NODES TO INCLUDE INTERFACE NODES.
C
XCAN0029
C
XCAN0030
ISWAS(l,l) - 1
XCAN0031
ISWAS (1, Z) = 0
XCAN0032
DO 50 N=Z, 110
XCAN0033
IZONE = 0
XCAN0034
IFIN.GE.38.AND.N.LE.4Z) IZONE =
XCAN0035
IF(N.EQ.49) IZONE = 1
XCAN0036
IF(N.GE . 56 . AND.N.LE.60) IZONE
XCAN0037
ISWAS(N,l) ~ ISWASIN-1,l) + 1 + Z*ISWAS(N-l,2)
XCAN0038
ISWAS(N,2) ~ IZONE
50
XCAN0039
C
XCAN0040
READ, MODIFY AND SAVE CONTROL INPUT
C
XCAN0041
C
READ (LUREAD,6105) PREP,TITLE,WORD2,NINC,MGENPR,NPUTCK,IPLOT,IWRT,XCAN0042
X NUMNP,NUMEL,NBPTC
XCAN0043
NUMNP - NUMNP + 22
XCAN0044
NUMEL = NUMEL + 11
XCAN0045
NBPTC ~ NBPTC + NADDB
XCAN0046
WRITE(LURITE,6105) PREP,TITLE,WORD2,NINC,MGENPR,NPUTCK,IPLOT,IWRT,XCAN0047
X NUMNP,NUMEL,NBPTC
XCANO.048
C
XCAN0049
C
READ, MODIFY AND SAVE NODAL GENERATION INPUT
XCAN0050
C
XCAN0051
N' 1
XCAN0052
100
READ(LUREAD, 6110) LIMIT,NNP,MODE,XCOORD,YCOORD, IZERO,SPACNG,FZERO XCAN0053
NX - ISWASINNP,l)
XCAN0054
C
XCAN0055
XCAN0056
C
CHANGE RELATIVELY ADDRESSED NODES
XCAN0057
C
XCAN0058
IF (MODE .LT. 100) GO TO 130
XCAN0059
KRELAD = MODE / lOO
XCAN0060
IF (KRELAD .NE . 1 .AND. KRELAD . NE. 3) GO TO 120
XCAN0061
XCAN0062
Revise intrinsic function to generiC form. SCM 3-10-90
XCAN0063
XCAN0064
NPP - INT(XCOORD)
XCAN0065
XCAN0066
XCOORD ~ FLOATIISWAS(NPP,l
XCAN0067
120 IF IKRELAD .NE. 2 .AND. KRELAD .NE. 3) GO TO 130
XCAN0068
XCAN0069
NPP - INT(YCOORD)
XCAN0070
XCAN0071
YCOORD = FLOATIISWAS(NPP,l)
XCAN0072
130 CONTINUE
XCAN0073
IF (ISWAS (NNP,2) .EQ.O) GO TO 150
XCAN0074
NPX(N) ~ NX
XCAN0075
MODX(N) ~ MODE
XCAN0076
XCXIN) ~ XCOORD
XCAN0077
YCXIN) ~ YCOORD
XCAN0078
N - N+l
150
WRITE(LURITE,6110) IMORE,NX,MODE,XCOORD,YCOORD,IZERO,SPACNG,FZERO XCAN0079
XCAN0080
IF(LIMIT.NE.ILAST) GO TO 100
XCAN0081
C
XCAN0082
IX ~ IMORE
XCAN0083
DO ZOO K~l,2
XCAN0084
DO 200 N=l,11
XCAN0085
IF(N . EQ.11 .AND . K.EQ.2) IX
ILAST
XCAN0086
NX = NPX(N) + K
LURITE = 11
REWIND LURITE
REWIND LUREAD
200
WRITE(LURITE,6110) IX,NX,MODX(N),XCX(N),YCX(N),IZERO,FZERO,FZERO
CONTINUE
C
C
300
INCRT
0
READ(LUREAD,6115) LIMIT,NEL,Nl,N2,N3,N4,NUMMAT,INCR,IZERO,IZERO,
X IZERO, IZERO
IF (NEL .EQ . 90 .AND. INCR . EQ. 1) INCRT ~ 1
IQUAD ~ 2
IF(NEL.LE.lO) IQUAD ~
NXI = ISWAS(Nl,l) + IQUAD*ISWAS(Nl,2)
IF(Nl.EQ.O) NXI =
NX2 ~ ISWAS(N2,l) + IQUAD*ISWAS(N2,2)
IF(N2.EQ.0) NX2 = 0
NX3 = ISWAS(N3,l) + IQUAD*ISWAS(N3,2)
IF(N3.EQ.0) NX3 ~ 0
NX4 - ISWAS(N4,l) + IQUAD*ISWAS(N4,2)
IF(N4.EQ.0) NX4 = 0
WRITE(LURITE,6115) IMORE,NEL,NXl,NX2,NX3,NX4,NUMMAT,INCR,IZERO,
X IZERO,IZERO,IZERO
IF(LIMIT.NE.lLAST) GO TO 300
.....
\0
\0
350
C
C
C
400
C
C
C
NEL
NUMEL-ll
IX = IMORE
lONE = 1
DO 350 N=l,l1
IF(N.EQ.ll) IX
lLAST
NEL = NEL +1
NXI = NPX(N)
NX2 ~ NXI + 2
NX3 = NXI + I
INCF = INCC (N)
IF (INCRT . EQ. 1) INCF ~ I
WRITE(LURITE,6115) IX,NEL,NXl,NX2,NX3,IZERO,N,INCF,IONE,IZERO,
X IZERO,IZERO
CONTINUE
READ, MODIFY AND SAVE BOUNDARY CONDION INPUT
READ(LUREAD,6120) LIMIT,NDl,ICX, FZERO, ICY, FZERO, FZERO, INC,ND2,
X NNPINC,PLOAD,PLOAD
NXI = ISWAS(NDl,l)
NX2 ~ 0
IF(ND2.GT.0) NX2= ISWAS(ND2,1)
WRITE(LURITE,6120) IMORE,NX1,ICX, FZERO, ICY, FZERO, FZERO, INC,NX2,
X NNPINC,PLOAD,PLOAD
IF(LIMIT.NE.lLAST} GO TO 400
IL = IMORE
DO 450 N = I, NADDB
IF (N .EQ. NADDB) IL = lLAST
NXI = NBADD (N)
ICX = lONE
ICY - IZERO
IF (N .GT. 2) ICX = IZERO
IF (N .GT. 21 ICY - lONE
450 WRITE(LURITE ,6120) IL,NX1,ICX,FZERO,ICY,FZERO,FZERO,IONE,
I
IZERO, IZERO, FZERO, FZERO
REDEFINE INPUT TAPE UNIT
REWIND LUREAD
XCAN0087
XCAN0088
XCAN0089
XCAN0090
XCAN0091
XCAN0092
XCAN0093
XCAN0094
XCAN0095
XCAN0096
XCAN0097
XCAN0098
XCAN0099
XCANOI00
XCANOlOI
XCANOl02
XCANOl03
XCANOl04
XCANOI05
XCANOI06
XCANOl07
XCANOl08
XCANOI09
XCANO 11 0
XCANOl11
XCAN0112
XCAN0113
XCAN0114
XCAN0115
XCAN0116
XCAN0117
XCAN0118
XCAN0119
XCAN0120
XCAN0121
XCAN0122
XCAN0123
XCAN0124
XCAN0125
XCAN0126
XCAN0127
XCAN0128
XCAN0129
XCAN0130
XCAN0131
XCAN0132
XCAN0133
XCAN0134
XCAN0135
XCAN0136
XCAN0137
XCAN0138
XCAN0139
XCAN0140
XCAN0141
XCAN0142
XCAN0143
XCAN0144
XCAN0145
XCAN0146
XCAN0147
XCAN0148
XCAN0149
XCANOl50
XCAN01S1
XCAN0152
XCAN0153
C
XCAN0154
C
FORMJ\.TS
XCAN0155
C
XCAN0156
6105 FORMJ\.T (A4,IX,17A4,3X,A4/815)
6110 FORMJ\.T (AI, 14, IS, 2FI0.3, IS, 5X,2FI0.3)
XCAN0157
6115 FORMJ\.T ( AI, 14, 1015)
XCAN01S8
6120 FORMJ\.T ( AI, 14, IS, F10.2, IS, 2FI0.2, 315, 2FlO.2)
XCANOl59
END
XCAN0160
XCN20001
CANDE-89 (C)ULVERT (AN)ALYSIS AND (DE)SIGN PROGRAM
XCN20002
VERSION 1.0, MARCH 1990
XCN20003
PUBLIC DOMAIN SOFTWARE CONTRIBUTED BY
XCN20004
THE FEDERAL HIGHWAY ADMINISTRATION
XCN2000S
XCN20006
SUBROUTINE XCAN2(LUREAD,IGO)
XCN20007
XCN20008
C
XCN20009
C
MODIFY CAN LUDATA TAPE FOR INTERFACE ELEMENTS ALONG TRENCH FACE
XCN20010
C
Uncomment this statement in all program modules for double
XCN20011
precision version. SCM 3-10-90
XCN20012
XCN20013
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
XCN20014
XCN20015
DIMENSION ISWAS{l10,2),TITLE(17),NPX{11),MODX{11),XCX{ll),YCX{ll)XCN20016
DIMENSION IADDN(7),INCC{7)
XCN20017
DIMENSION NELNX(8)
XCN20018
DATA NELNX /23,24,25,26,71,78,85,921
XCN20019
DATA IADDN 151,62,71,82,90,98,1061
XCN20020
DATA INCC 12,3,3,4,3*5/
XCN20021
DATA IMORE,ILAST/1H ,1HLI
XCN20022
XCN20023
C
LUREAn = 10
XCN20024
IF(IGO.EQ.O) RETURN
XCN20025
LURITE ~ 11
XCN20026
XCN20027
REWIND LURITE
XCN20028
REWIND LUREAD
XCN20029
C
ESTABLISH IS-WAS LIST FOR NODES TO INCLUDE INTERFACE NODES .
XCN20030
C
XCN20031
C
ISWAS{l,l) - 1
XCN20032
ISWAS{l,2) = 0
XCN20033
DO 50 N~2, 110
XCN20034
IZONE = 0
XCN20035
DO 20 K ~ 1, 7
XCN20036
20 IF (IADDN (K) . EQ . N) IZONE - 1
XCN20037
XCN20038
ISWAS{N,l) = ISWAS(N-1,1) + 1 + 2*ISWAS{N-l,2)
ISWAS{N,2) = IZONE
XCN20039
WRITE{6,6081) N,ISWAS(N,1),ISWAS{N,2),IZONE
XCN20040
6081 FORMAT (10X,6I10)
XCN20041
50 CONTINUE
XCN20042
XCN20043
C
READ, MODIFY AND SAVE CONTROL INPUT
XCN20044
C
XCN20045
C
READ (LUREAD,6105) PREP,TITLE,WORD2,NINC,MGENPR,NPUTCK,IPLOT,IWRT,XCN20046
XCN20047
X NUMNP,NUMEL,NBPTC
NUMNP = NUMNP + 14
XCN20048
NUMEL = NUMEL + 7
XCN20049
NBPTC = NBPTC + 2
XCN20050
WRITE{LURITE,6105) PREP,TITLE,WORD2,NINC,MGENPR,NPUTCK,IPLOT,IWRT,XCN20051
XCN200S2
X NUMNP,NUMEL,NBPTC
REWIND LURITE
LUREAD = 11
RETURN
XCN20053
XCN20054
XCN20055
C
XCN20056
N = 1
100
READ(LUREAD,6110) LIMIT,NNP,MODE,XCOCRD,YCOORD,IZERO,SPACNG,FZERO XCN20057
WRITE(6,6110) LIMIT,NNP,MODE,XCOCRD,YCOORD,IZERO,SPACNG,FZERO
XCNZ0058
WRITE(6,6081) ISWAS(NNP,l),ISWAS(NNP,Z)
XCNZ0059
NX - ISWAS(NNP,l)
XCNZ0060
C
XCN20061
C
CflANGE RELATIVELY ADDRESSED NODES
XCNZ006Z
C
XCN20063
IF (MODE .LT. 100) GO TO 130
XCNZ0064
XCNZ0065
KRELAD = MODE/100
XCNZ0066
IF (KRELAD .NE. 1 .AND. KRELAD .NE. 3) GO TO 1Z0
XCN20067
XCN20068
Revise intrinsic function to generic form.
XCN20069
XCNZ0070
NPP
INT(XCOORD)
XCNZOO71
XCN20072
XCOCRD = FLOAT(ISWAS(NPP,l))
XCN20013
120 IF (KRELAD .NE. 2 .AND. KRELAD .NE. 3) GO TO 130
XCNZ0074
XCNZ0075
NPP - INT(YCOORD)
XCN20076
XCN20077
YCOCRD = FLOAT(ISWAS(NPP,l))
XCN20078
13 0 CONTINUE
XCN20019
IF(ISWAS(NNP,2) .EQ.O) GO TO 150
XCN20080
NPX(N) = NX
XCN20081
MODX(N) = MODE
XCN20082
XCX(N) = XCOORD
XCNZ0083
YCX(N) = YCOORD
XCNZ0084
N = N+1
150
WRITE(LURITE,6110) IMORE,NX,MODE,XCOORD,YCOORD,IZERO,SPACNG,FZERO XCNZ0085
IF(LIMIT.NE.ILAST) GO TO 100
XCN20086
C
XCN20081
XCN20066
IX ~ IMORE
XCN20069
DO ZOO K=1,2
XCN20090
DO 200 N = I, 7
XCN20091
IF(N.EQ. 7 .AND. K.EQ.Z) IX
I LAST
XCNZ009Z
NN = IADDN(N)
XCNZ0093
NPX(N) = ISWAS(NN,l)
XCNZ0094
NX - NPX(N) + K
XCN20095
MODX(N) ~ 300
XCN20096
XCX(N) = FLOAT (NX-K)
XCN20097
YCX(N) = FLOAT (NX-K)
XCN20098
WRITE(6,6110) IX,NX,MODX(N) ,XCX(N) ,YCX(N)
WRITE(LURITE,6110) IX,NX,MODX(N) ,XCX{N) ,YCX(N) ,IZERO,f ZERO, FZERO XCN20099
XCNZ0100
200
CONTINUE
XCNZ0101
C
XCNZ010Z
C
READ, MODIFY AND SAVE ELEMENT GENERATION INPUT
XCNZ0103
C
XCNZ0104
INCRT = 0
READ(LUREAD,6115) LIMIT,NEL,N1,N2,N3,N4,NUMMAT,INCR,IZERO, IZERO, XCNZ0105
300
XCN20106
X IZERO,IZERO
XCNZ0107
IF (NEL .EQ. 90 .AND. INCR .EQ. 1) INCRT = 1
XCNZ0106
IQUAD = Z
XCNZOI09
IF(NEL.LE.IO) IQUAD =
XCNZOllO
DO 250 NK = 1, 6
XCNZ0111
If (NEL .EQ. NELNX(NK IQUAD=O
XCNZOllZ
250 CONTINUE
XCN20113
NX1 = ISWAS(N1,1) + IQUAD*ISWAS(N1,2)
XCN20114
IF(NI.EQ.O) NX1 =
XCN20115
NX2 = ISWAS(NZ,l) + IQUAD*ISWAS(N2,2)
C
C
tv
o
o
XCN20116
XCN20117
XCN2011B
XCN20119
XCNZOIZ0
XCN20121
XCN201Z2
XCN201Z3
XCN20124
C
XCN20125
NEL = NUMEL - 7
XCN20126
IX = IMORE
XCN20127
lONE = I
XCNZ0128
DO 350 N - 1, 7
XCNZ0129
If(N.EQ. 7) IX - ILAST
XCN20130
NEL
NEL +1
XCN20131
NX1
NPX(N)
XCN2013Z
NX2
NX1 + 2
XCN20133
NX3
NXI + 1
XCN20134
INCF = INCC(N)
XCN20135
IF (INCRT .EQ. 1) INCF = 1
XCN20136
WRITE(LURITE,6115) IX,NEL,NX1,NXZ,NX3,IZERO,N,INCF,IONE,IZERO,
XCN20137
X IZERO,IZERO
XCN2013B
350
CONTINUE
XCN20139
C
XCN2014 0
C
XCN20141
READ(LUREAD,61Z0) LIMIT,NDl,ICX,FZERO, ICY, FZERO, FZERO,INC,ND2,
400
XCNZ014 Z
X NNPINC,PLOAD,PLOAD
XCN20143
NXI = ISWAS(NDl,l)
XCNZ014 4
NX2 = 0
XCN20145
IF(N02.GT.0) NXZ= ISWAS(NDZ,l)
XCN2014 6
IF (LIMIT.EQ.lLAST) lMORE = ILAST
XCN20147
IF (NXI .EQ. 121 .AND. NXZ .EQ. 118) NX2 = lZ0
XCN2014B
WRITE(LURITE,61Z0) IMCRE,NXl,ICX,FZERO, ICY, FZERO, FZERO, INC,NX2,
XCN2014 9
X NNPINC,PLOAD,PLOAD
XCN20150
WRITE(6,61Z0) IMORE,NXl,ICX,FZERO, ICY, FZERO, FZERO, INC,
XCN20151
1
NX2,NNPINC,PLOAD,PLOAD
XCN2015Z
IF(LIMIT.NE.lLAST) GO TO 400
XCNZOl53
C
XCN20154
C
REDEFINE INPUT TAPE UNIT
XCN20155
C
XCNZOl56
REWIND LUREAD
XCN20157
REWIND LURITE
XCN20158
LUREAD = 11
XCN20159
RETURN
XCNZOl60
C
XCN20161
C
FORMATS
XCN20162
C
XCNZ0163
6105 FORMAT (A4,lX,17A4,3X,A4/8I5)
XCN20164
6110 FORMAT (AI, 14, IS, ZFlO.3, IS, 5X,2FlO.3)
XCNZ0165
6115 FORMAT ( AI, 14, 1015)
XCN20166
6120 FORMAT ( AI, 14, IS, FlO.2, IS, 2FI0.Z, 315, ZFlO.2)
XCNZ0167
END
* . * * * * . XFACOOOI
"'*"'** .... ~******
XFAC0002
CANDE-69 (C)ULVERT (AN)ALYSIS AND (DE)SIGN PROGRAM
XFAC0003
VERSION 1.0, MARCH 1990
XFAC0004
PUBLIC DOMAIN SOFTWARE CONTRIBUTED BY
XFAC0005
THE FEDERAL HIGHWAY ADMINISTRATION
* * * * * * * * * * * * * * * * * * * * XFAC0006
SUBROUTINE XFACES(MN,IAC,MNX,NEL,ICON,ITER,NELEM,NPT,MNO,NOD,ST, XFAC0007
XFAC0008
l~~W
XFAC0009
XFACOOIO
Uncomrnent this statement in all program modules for double
XFACOOll
precision version. SCM 3-10-90
IF(NZ.EQ.O) NX2 = 0
NX3 = ISWAS(N3,1) + IQUAD*ISWAS(N3,2)
IF(N3.EQ.0) NX3 ~ 0
NX4 = ISWAS(N4, 1) + IQUAD*ISWAS(N4,2)
IF(N4.EQ.0) NX4 ~ 0
WRITE(LURITE,6115) IMORE,NEL,NXI,NXZ,NX3,NX4,NUMMAT,INCR,IZERO,
X IZERO, IZERO, IZERO
IF(LIMIT.NE.ILAST) GO TO 300
XFAC0012
XFAC0013
XFAC0014
Expand array dimension statements from 30 to 99.
XFAC0015
SCM 5-22-89
XFACOOl6
XFAC0017
COMMONfXFACEfNXMAT,ANGLE(99) ,FCOEF(99) ,TENSIL(99) ,ITMAX
XFACOOl8
XFAC0019
COMMON fELEMNTf AS(3),BS(3),C1(17,17),EST(4,3),RQ(4),RT(3),
XFAC0020
1
STORE (17) ,Z4 (12), ZQ(4), ZT(3), Zy(17) , J1, RO
XFAC0021
XFAC0022
Add common statement for output control. SCM 3-18-89
XFAC0023
XFAC0024
COMMON fOUTPUTf IWRT,IPLOT,MAXIT,JCON
XFAC0025
XFACOOZ6
DIMENSION MNO(NELEM),NOD(4,NELEM),ST(6,NELEM),U(NPT),V(NPT)
XFAC0027
XFAC0028
Add dimension statement to force FREE-FREE state. SCM 10-18-89
XFAC0029
XFAC0030
DIMENSION XFFLAG(700)
XFAC0031
XFAC0032
DATA CONfO.0174533f
XFAC0033
XFAC0034
THE FOLLOWING VARIABLES ARE IDENTIFIED FOR AN INTERFACE ELEMENT
XFAC0035
COMPOSED OF NODES I AND J.
XFAC0036
XFAC0037
TOTAL NORMAL INTERFACE FORCE
ST (1, NEL)
XFAC0038
ST(2,NEL)
TOTAL SHEAR INTERFACE FORCE
XFAC0039
ST(3,NEL) = LATEST INCREMENT OF NORMAL FORCE
XFAC0040
ST(4,NEL)
XFAC0041
LATEST INCREMENT OF SHEAR FORCE
ST(5,NEL) = RELATIVE X-DISPLACEMENT INCREMENT, DU(J)-DU(I)XFAC0042
ST(6,NEL)
RELATIVE Y-DISPLACEMENT INCREMENT, DV(J)-DV(I)XFAC0043
XFAC0044
CURRENT STATE OF INTERFACE ELEMENT IS GIVEN By
XFAC0045
XFAC0046
I, IMPLIES NODES ARE FIXED IN BOTH NORMAL AND
MNX
XFACOO41
TANGENT DIRECTION.
XFAC0048
MNX
2, IMPLIES NODES FIXED IN NORMAL DIRECTION
XFAC0049
XFAC0050
TANGENT SLIPPING WITH RDUS .LT. 0.0
XFAC0051
MNX - 3, IMPLIES NODES FIXED IN NORMAL DIRECTION
TANGENT SLIPPING WITH RDUS .GT. 0.0
XFAC0052
MNX ~ 4, IMPLIES FREE IN NORMAL DIRECTION AND FREE
XFAC0053
IN TANGENT DIRECTION
XFAC0054
XFAC0055
TESTING PARAMETERS FOR CHANGING STATE ARE
XFAC0056
XFAC0057
XFAC005B
PN - TOTAL NORMAL FORCE
PS = TOTAL SHEAR FORCE
XFAC0059
RDUS - RELATIVE TANGENT DISPLACEMENT INC., DUS(J)-DUS(I) XFAC0060
SIGN - DIRECTION OF FRICTIONAL RESISTANCE ON NODE J
XFACOO61
XFAC0062
UN - TOTAL NORMAL DISPLACEMENT
XFAC0063
XFAC0064
Lines added to force a FREE-FREE state. SCM 10-18-B9
XFAC0065
XFAC0066
XFAC0067
IF(IA . EQ.l .OR. IA.EQ.O) lAXF - 0
IF((IA-IAXF) .NE.O) THEN
XfAC006B
XFAC0069
00 I,J=l,NELEM
XFAC0070
XFFLAG(J) = 0
XFACOO71
1
CONTINUE
END IF
XFACOO72
XFAC0073
IAXF - IA
XFACOO74
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
N
0
........
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
LKCHNG = 0
RADA = ANGLE(MN)*CON
C = COS (RADA)
5 = SIN (RADA)
ND1 - NOD(l,NEL)
ND2 = NOD(2,NEL)
PN = ST(I,NEL)
PS = ST(2,NEL)
PNPRE = ST(I,NEL)-ST(3,NEL)
PSPRE = ST(2,NEL)-ST(4,NEL)
RDUS = -S*ST(5,NEL) + C*ST(6,NEL)
UN = C*(U(ND2)-U(ND1)) + S*(V(ND2)-V(ND1))
BREAK = PN - TENSIL(MN)
RESIST ~ FCOEF(MN)*ABS(PN)
APS = ABS (PS)
C
C
C
SCM 10-1B-B9
C
C
XFAC0075
XFAC0076
XFAC0077
XFAC007B
XFAC0079
XFACOOBO
XFAC0081
XFAC0082
XFACOOB3
XFACOOB4
XFACOOB5
XFACOOB6
XFACOOB7
XFACOOBB
XFACOOB9
XFAC0090
XFAC0091
XFAC0092
XFAC0093
XFAC0094
XFAC0095
XFAC0096
XFAC0097
XFAC009B
XFAC0099
XFAC0100
XFACOI0l
XFAC0102
XFAC0103
XFACOI04
XFAC0105
XFAC0106
XFAC0107
XFACOI0B
XFACOI09
XFACO 11 0
XFAC0111
XFAC0112
XFAC0113
XFAC0114
XFACO 11 5
XFAC0116
XFAC0117
XFACO 11 8
XFAC0119
XFAC0120
XFAC0121
XFAC0122
XFAC0123
XFAC0124
XfAC0125
XFAC0126
XFACOI27
XFAC0128
XfAC0129
XFAC0130
XFAC0131
XFAC0132
XFAC0133
XFAC0134
XFAC0135
XFAC0136
XFAC0137
.0
! ;:.
10
IF(BREAK.LE.O.O) GO TO 11
LKCHNG = 1
RN = 0.0
RS = 0.0
PN2 = -PNPRE
PS2
-PSPRE
MNX~
SCM
10-18-89
XFFLAG(NEL)
CHECK = 0.0
GO TO 100
C
11
IF(APS.LE . RESIST) GO TO 12
LKCHNG ~ 1
RN = 1.0
RS = 0.0
SIGN - PS/APS
PN2 = 0.0
PS2 = SIGN' RESIST - PSPRE
Add relaxation function to enhance convergence. SCM 3-20-90
IF(ITER.GT.2) PS2
MNX = 2
IF(SIGN.GT.O.O) MNX
GO TO 100
0.S*PS2 + 0.S*ST(4,NEL)
12
C
C
C
20
RN = 1.0
RS = 1.0
PN2 ~ 0.0
PS2 = 0.0
GO TO 100
MNX =2 OR 3, FIX-FREE ON ENTRY, ANY STATE POSSIBLE ON EXIT
IF(BREAK.LE.O.O) GO TO 21
LKCHNG = 1
RN = 0.0
RS = 0.0
PN2 = -PNPRE
PS2 - -PSPRE
MNX = 4
Lines added to force a FREE-FREE state.
XFFLAG(NEL) = 1
CHECK = 0.0
GO TO 100
21
SIGN = 1.0
IF(MNX.EQ.2) SIGN = -1 . 0
IF(FCOEF(MN) .EQ.O.O) SIGN=O . O
IF(RDUS*SIGN.LT.O . O) GO TO 22
RN = 1.0
RS = 0.0
PN2
0.0
PS2 = SIGN' RESIST - PSPRE
SCM
10-18-89
XFAC0138
XFAC0139
XFAC014 0
XFAC0141
XFAC0142
XFAC0143
XFACOl44
XFAC014S
XFAC0146
XFAC0147
XFAC0148
XFAC0149
XFAC0150
XFAC0151
XFAC0152
XFAC01S3
XFACOlS4
XFAC01S5
XFACOlS6
XFACOlS7
XFAC01S8
XFACOlS9
XFAC0160
XFAC0161
XFAC0162
XFAC0163
XFAC0164
XFAC0165
XFAC0166
XFAC0167
XFAC0168
XFAC0169
XFAC0170
XFAC011l
XFACOl72
XFAC0173
XFAC0174
XFAC017S
XFAC0176
XFAC0177
XFAC0178
XFAC0119
XFAC0180
XFAC0181
XFAC0182
XFAC0183
XFAC0184
XFAC018S
XFAC0186
XFAC0187
XFAC0189
XFAC0189
XFAC0190
XFAC0191
XFAC0192
XFAC0193
XFAC0194
XFAC019S
XFAC0196
XFAC0197
XFAC0198
XFAC0199
XFAC0200
IF(ITER.GT.2) PS2
0.S*PS2 + 0.S*ST(4,NEL)
IF(PS2.EQ.0.0) GO TO 100
CHECK = ABSPS2-ST(4,NEL))/PS2)
IF(CHECK.GT.O.OS) LKCHNG = 1
GO TO 100
C
22
LKCHNG ~
RN = 1. 0
RS - 1. 0
PN2 = 0.0
PS2 = 0.0
MNX - 1.0
GO TO 100
MNX
30
31
LKCHNG =
RN = 1.0
RS = 1. 0
PN2 = 0.0
PS2 = 0.0
MNX = 1
100
150
CONTINUE
Cl(l,S) - -C*RN
Cl(1,6) = S*RS
C1(2,S)
-S'RN
C1(2,6)
-C*RS
C1(3,5)
C*RN
C1(3,6) = -S*RS
Cl(4,S)
S*RN
C1(4,6)
C*RS
DO 150 1=1,6
DO 150 J=1,6
C1(J,I) - C1(I,J)
175
IF(ITER.NE.1) GO TO 175
PN2 = 0.0
PS2 - 0.0
PX2 - C*PN2 - S'PS2
S*PN2 + C*PS2
PY2
PX2
ZY(l)
PY2
ZY(2)
-PX2
ZY(3)
ZY(4) - -PY2
ZY(S) - PN2*(1.-RN) + ABARN*RN
ZY(6) = PS2*(1.-RS) + ABARS*RS
XFAC0201
XFAC0202
XFAC02D3
XFACD204
XFAC020S
XFAC0206
XFAC0207
XFAC02D8
XFAC0209
XFAC021D
XFAC0211
XFAC0212
XFAC0213
XFAC02H
XFAC0215
XFAC0216
XFAC0217
XFAC0218
XFACD219
XFAC0220
XFAC0221
XFAC0222
XFAC0223
XFAC0224
XFACD225
XFAC0226
XFACD227
XFAC0228
XFAC0229
XFAC0230
XFAC0231
XFAC0232
XFAC0233
XFAC0234
XFAC023S
XFAC0236
XFAC0237
XFAC0238
XFAC0239
XFAC0240
XFAC0241
XFAC0242
XFAC0243
XFAC0244
XFAC0245
XFAC0246
XFAC0247
XFAC0248
XFAC0249
XFAC02S0
XFAC0251
XFAC0252
XFAC0253
XFAC0254
XFAC0255
XFAC0256
XFAC02S7
XFAC02S8
XFAC02S9
XFAC0260
XFAC0261
XFAC0262
XFAC0263
C
C
C
ITMl\XA~IABS
(ITMAX)
IF(ITMAXA.GT.MAXIT) MAXIT
ITMAXA
SCM 3-4-89
l.
IF (ITMAX.GT.O) GO TO 200
Revise unit number for XFACES trace output. SCM 1-9-89
Use IWRT for print control. SCM 3-4-89
IF (IA-IAP.NE.O) WRITE(6,6000) lA
IF(IWRT.LT.3) GO TO 200
IF (IA-IAP.NE.O) WRITE(17,6000) IA
IAP~IA
WRITE(6,6005)ITER,NEL,MNXP,MNX,ST(3,NEL),ST(4,NEL),RDUN,RDUS
WRITE(17,6005)ITER,NEL,MNXP,MNX,ST(3,NEL),ST(4,NEL),RDUN,RDUS,
X BREAK,APS,RESIST,CHECK
200
CONTINUE
SCM 3-11-89
RETURN
FORMATS
XFAC0264
XFAC0265
XFAC0266
XFAC0267
XFAC0268
XFAC0269
XFAC0270
XFAC0271
XFAC0272
XFAC0273
XFAC0274
XFAC0275
XFAC0276
XFAC0277
XFAC0278
XFAC0279
XFAC0280
XFAC0281
XFAC0282
XFAC0283
XFAC0284
XFAC0285
XFAC0286
XFAC0287
XFAC0288
XFAC0289
XFAC0290
XFAC0291
XFAC0292
XFAC0293
XFAC0294
XFAC0295
XFAC0296
XFAC0297
XFAC0298
XFAC0299
XFAC0300
XFAC0301
XFAC0302
XFAC0303
XFAC0304
XFAC0305
XFAC0306
XFAC0307
XFAC0308
XFAC0309
XFAC0310
XFAC0311