MultiPhysicsVault/.raw/FiniteElementProcedures/FiniteElementProcedures_102.md

<!-- source-page: 1011 -->

# V.2 Material/Section Property Lines (I5, 2F10.0)

NUMMAT lines are read in this section.

<table><tr><td>Note</td><td>Columns</td><td>Variable</td><td>Entry</td></tr><tr><td rowspan="3">(1)</td><td>1-5</td><td>N</td><td>Number of property set</td></tr><tr><td>6-15</td><td>E(N)</td><td>Young&#x27;s modulus</td></tr><tr><td>16-25</td><td>AREA(N)</td><td>Section area</td></tr></table>

# NOTES/

1. Property sets are input in ascending sequence beginning with 1 and ending with NUMMAT. The Young's modulus and section area of each TRUSS element input below are defined using one of the property sets input here.

# V.3 Element Data Lines (515)

NUME elements must be input and/or generated in this section in ascending sequence beginning with 1.

<table><tr><td>Note</td><td>Columns</td><td>Variable</td><td>Entry</td></tr><tr><td></td><td>1-5</td><td>M</td><td>TRUSS element number;GE.1 and LE.NUME</td></tr><tr><td></td><td>6-10</td><td>II</td><td>Node number at one end</td></tr><tr><td></td><td>11-15</td><td>JJ</td><td>Node number at other end;GE.1 and LE.NUMNP</td></tr><tr><td>(1)</td><td>16-20</td><td>MTYP</td><td>Material property set;GE.1 and LE.NUMMAT</td></tr><tr><td>(2)</td><td>21-25</td><td>KG</td><td>Node generation increment used to compute node numbers for missing elements;EQ.0, default set to 1</td></tr></table>

# NOTES/

1. The material/section property sets have been defined in Section V.2.   
2. Elements must be input in increasing element number order. If lines for elements $[M + 1, M + 2, \ldots, M + J]$ are omitted, these J missing elements are generated using MTYP of element M and by incrementing the node numbers of successive elements with the value KG; KG is taken from the first line of the element generation sequence (i.e., from the Mth element line). The last element (NUME) must always be input.

<!-- source-page: 1012 -->

12.4.2 Listing of Program STAP   
```csv
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .. STA00001
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .. STA100001
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .. STA100002
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... ... STA100003
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... ........ .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... ... STA00004
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... ..... STA00005
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... ...
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... ... STA00006
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... . STA00007
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .....
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .. STA00008
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... ...... STA00009
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... . STA10001
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .. STA10002
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .. STA10100
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... ....... STA10101
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .. STA10102
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .. STA00100
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .. STA00101
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .. STA00012
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .. STA01013
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .. STA10014
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... ..STA10015
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... ..STA10016
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .. SA10017
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .. STA10018
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... ..S TA10020
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... ..SA10021
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... ..-SA10022
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... ... STA11023
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... ... STA11024
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... ...STA11025
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... ...STA11026
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... ... SA11027
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... ... STA11028
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... ...S TA11030
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... ...SA11031
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... ...StA11032
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .........
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... ..STA00101
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... ..STA00102
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... ..STA00113
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... ..STA01114
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... ..ST11115
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... ..ST01126
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... ..ST21127
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... ..ST31128
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... ..ST4122
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... ..ST6123
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... ..S TA1124
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... ..S1125
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... ..S7126
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... ..S7127
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... ..S722
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... ...S723
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... ...S124
C .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... .... 
```

<!-- source-page: 1013 -->

```csv
N2=N1 + 3*NUMNP
N2=(N2/2)*2 + 1
N3=N2 + NUMNP*ITWO
N4=N3 + NUMNP*ITWO
N5=N4 + NUMNP*ITWO
IF (N5.GT.MTOT) CALL ERROR (N5-MTOT,1)
CALL INPUT (A(N1),A(N2),A(N3),A(N4),NUMNP,NEQ)
NEQ1=NEQ + 1
CALCULATE AND STORE LOAD VECTORS
N6=N5 + NEQ*ITWO
WRITE (IOUT,2005)
REWIND ILOAD
DO 300 L=1,NLCASE
READ (IIN,1010) LL,NLOAD
WRITE (IOUT,2010) LL,NLOAD
IF (LL.EQ.L) GO TO 310
WRITE (IOUT,2020)
GO TO 800
310 CONTINUE
N7=N6 + NLOAD
N8=N7 + NLOAD
N9=N8 + NLOAD*ITWO
IF (N9.GT.MTOT) CALL ERROR (N9-MTOT,2)
CALL LOADS (A(N5),A(N6),A(N7),A(N8),A(N1),NLOAD,NEQ)
300 CONTINUE
READ, GENERATE AND STORE
ELEMENT DATA
CLEAR STORAGE
N6=N5 + NEQ
N6=(N6/2)*2 + 1
DO 10 I=N5,N6
10 IA(I)=0
IND=1
CALL ELCAL
CALL SECOND (TIM(2))
* * * * * * * * * * * * * * * * *
* * * SOLUTION PHASE * *
* * * * * * * * * * * * * * *
ASSEMBLE STIFFNESS MATRIX
CALL ADDRES (A(N2),A(N5))
MM=NWK/NEQ
N3=N2 + NEQ + 1
N3=(N3/2)*2 + 1
N4=N3 + NWK*ITWO
STA00067
STA00068
STA00069
STA00070
STA00071
STA00072
STA00073
STA00074
STA00075
STA00076
STA00077
STA00078
STA00079
STA00080
STA00081
STA00082
STA00083
STA00084
STA00085
STA00086
STA00087
STA00088
STA00089
STA00090
STA00091
STA00092
STA00093
STA00094
STA00095
STA00096
STA00097
STA00098
STA00099
STA00100
STA00101
STA00102
STA00103
STA00104
STA00105
STA00106
STA00107
STA00108
STA00109
STA00110
STA00111
STA00112
STA00113
STA00114
STA00115
STA00116
STA00117
STA00118
STA00119
STA00120
STA00121
STA00122
STA00123
STA00124
STA00125
STA00126
STA00127
STA00128
STA00129
STA00130
STA00131
STA00132
STA00133
STA00134
STA00135
STA00136 
```

<!-- source-page: 1014 -->

```csv
N5=N4 + NEQ*ITWO STA00137
N6=N5 + MAXEST STA00138
IF (N6.GT.MTOT) CALL ERROR (N6-MTOT,4) STA00139
WRITE TOTAL SYSTEM DATA STA00140
WRITE (IOUT,2025) NEQ,NWK,MK,MM STA00141
WRITE (IOUT,2025) NEQ,NWK,MK,MM STA00142
WRITE (IOUT,2025) NEQ,NWK,MK,MM STA00143
IN DATA CHECK ONLY MODE WE SKIP ALL FURTHER CALCULATIONS STA00144
STA00145
STA00146
IF (MODEX.GT.0) GO TO 100 STA00147
CALL SECOND (TIM(3)) STA00148
CALL SECOND (TIM(4)) STA00149
CALL SECOND (TIM(5)) STA00150
GO TO 120 STA00151
CLEAR STORAGE STA00152
STA00153 
```

```csv
100 NNL=NWK + NEQ
CALL CLEAR (A(N3),NNL)
IND=2
CALL ASSEM (A(N5))
CALL SECOND (TIM(3))
TRIANGULARIZE STIFFNESS MATRIX
KTR=1
CALL COLSOL (A(N3),A(N4),A(N2),NEQ,NWK,NEQ1,KTR)
STA00154
STA00155
STA00156
STA00157
STA00158
STA00159
STA00160
STA00161
STA00162
STA00163
STA00164
STA00165
STA00166
STA00167
STA00168
STA00169 
```

```csv
35 CALL SECOND (TIM(4))
KTR=2
IND=3
REWIND ILOAD
DO 400 L=1,NLCASE
CALL LOADV (A(N4),NEQ)
CALCULATION OF DISPLACEMENTS
CALL COLSOL (A(N3),A(N4),A(N2),NEQ,NWK,NEQ1,KTR)
WRITE (IOUT,2015) L
CALL WRITED (A(N4),A(N1),NEQ,NUMNP)
CALCULATION OF STRESSES
CALL STRESS (A(N5))
STA00170
STA00171
STA00172
STA00173
STA00174
STA00175
STA00176
STA00177
STA00178
STA00179
STA00180
STA00181
STA00182
STA00183
STA00184
STA00185
STA00186
STA00187
STA00188
STA00189
STA00190
STA00191
STA00192
STA00193
STA00194 
```

```python
400 CONTINUE
    CALL SECOND (TIM(5))
    PRINT SOLUTION TIMES
120 TT=0.
    DO 500 I=1,4
    TIM(I)=TIM(I+1) - TIM(I)
500 TT=TT + TIM(I)
    WRITE (IOUT,2030) HED,(TIM(I),I=1,4),TT 
```

<!-- source-page: 1015 -->

```csv
C
C READ NEXT ANALYSIS CASE
C
GO TO 200
C
800 STOP
C
1000 FORMAT (20A4,/,415)
1010 FORMAT (215)
C
2000 FORMAT (///,' ',20A4,///,
1 ' C O N T R O L I N F O R M A T I O N',///,
2 ' NUMBER OF NODAL POINTS',10(' .'),'(NUMNP) = ',I5,///,
3 ' NUMBER OF ELEMENT GROUPS',9(' .'),'(NUMEG) = ',I5,///,
4 ' NUMBER OF LOAD CASES',11(' .'),'(NLCASE) = ',I5,///,
5 ' SOLUTION MODE ',14(' .'),'(MODEX) = ',I5,///,
6 ' EQ.0, DATA CHECK',/,
7 ' EQ.1, EXECUTION')
2005 FORMAT (///,' L O A D C A S E D A T A')
2010 FORMAT (///,' LOAD CASE NUMBER',7(' .'),' = ',I5,///,
1 ' NUMBER OF CONCENTRATED LOADS . = ',I5)
2015 FORMAT (///,' LOAD CASE ',I3)
2020 FORMAT (' *** ERROR *** LOAD CASES ARE NOT IN ORDER')
2025 FORMAT (///,' TOTAL SYSTEM DATA',///,
1 ' NUMBER OF EQUATIONS',14(' .'),'(NEQ) = ',I5,///,
2 ' NUMBER OF MATRIX ELEMENTS',11(' .'),'(NWK) = ',I5,///,
3 ' MAXIMUM HALF BANDWIDTH ',12(' .'),'(MK) = ',I5,///,
4 ' MEAN HALF BANDWIDTH',14(' .'),'(MM) = ',I5)
2030 FORMAT (///,' S O L U T I O N T I M E L O G I N S E C',///,
1 ' FOR PROBLEM',///,' ',20A4,///,
2 ' TIME FOR INPUT PHASE ',14(' .'),' = ',F12.2,///,
3 ' TIME FOR CALCULATION OF STIFFNESS MATRIX . . . . = ',F12.2,
4 //,
5 ' TIME FOR FACTORIZATION OF STIFFNESS MATRIX . . . = ',F12.2,
6 //,
7 ' TIME FOR LOAD CASE SOLUTIONS ',10(' .'),' = ',F12.2,///,
8 ' T O T A L S O L U T I O N T I M E . . . . . = ',F12.2)
C
END
SUBROUTINE ERROR (N,I)
C . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
C . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
3 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . C
COMMON /TAPES/ IELMNT,ILOAD,IIN,IOUT
C
GO TO (1,2,3,4),I
C
1 WRITE (IOUT,2000)
GO TO 6
2 WRITE (IOUT,2010)
GO TO 6
3 WRITE (IOUT,2020)
GO TO 6
4 WRITE (IOUT,2030)
C
6 WRITE (IOUT,2050) N
STOP
C
2000 FORMAT (///,' NOT ENOUGH STORAGE FOR ID ARRAY AND NODAL POINT ',1 'COORDINATES')
2010 FORMAT (///,' NOT ENOUGH STORAGE FOR DEFINITION OF LOAD VECTORS')
2020 FORMAT (///,' NOT ENOUGH STORAGE FOR ELEMENT DATA INPUT')
2030 FORMAT (///,' NOT ENOUGH STORAGE FOR ASSEMBLAGE OF GLOBAL ',1'STRUCTURE STIFFNESS, AND DISPLACEMENT AND STRESS SOLUTION PHASE')
2050 FORMAT (///,' *** ERROR *** STORAGE EXCEEDED BY ',I9)
C
END
STA00207
STA00208
STA00209
STA00210
STA00211
STA00212
STA00213
STA00214
STA00215
STA00216
STA00217
STA00218
STA00219
STA00220
STA00221
STA00222
STA00223
STA00224
STA00225
STA00226
STA00227
STA00228
STA00229
STA00230
STA00231
STA00232
STA00233
STA00234
STA00235
STA00236
STA00237
STA00238
STA00239
STA00240
STA00241
STA00242
STA00243
STA00244
STA00245
STA00246
STA00247
STA00248
STA00249
STA00250
STA00251
STA00252
STA00253
STA00254
STA00255
STA00256
STA00257
STA00258
STA00259
STA00260
STA00261
STA00262
STA00263
STA00264
STA00265
STA00266
STA00267
STA00268
STA00269
STA00270
STA00271
STA00272
STA00273
STA00274
STA00275
STA00276 
```

<!-- source-page: 1016 -->

```csv
SUBROUTINE INPUT (ID,X,Y,Z,NUMNP,NEQ) STA00277
C . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . STA00278
C .
C . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . STA 00279
C . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . STA0280
C . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
C . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
N=ELEMENT NUMBER STA00284
C . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 
ID=BOUNDARY CONDITION CODES (0=FREE,1=DELETED) STA00285
C . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . X,Y,Z= COORDINATES STA00286
C . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . KN= GENERATION CODE STA00287
C . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . I.E. INCREMENT ON NODAL POINT NUMBER STA00288
C . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . IMPLICIT DOUBLE PRECISION (A-H,O-Z) STA00290
C . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . THE PROGRAM STAP IS USED IN SINGLE PRECISION ARITHMETIC ON CRAY STA00292
C . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . EQUIPMENT AND DOUBLE PRECISION ARITHMETIC ON IBM MACHINES, STA00293
C . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ENGINEERING WORKSTATIONS AND PCS. DEACTIVATE ABOVE LINE (ALSO STA00294
C . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . OCCURRING IN OTHER SUBROUTINES) FOR SINGLE PRECISION ARITHMETIC STA00295
C . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..COMMON /TAPES/ IELMNT, ILOAD, IIN, IOUT STA00296
C . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . DIMENSION X(1), Y(1), Z(1), ID(3, NUMNP) STA00297
C . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . READ AND GENERATE NODAL POINT DATA STA00298
C . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
C . .
WRITE (IOUT,2000) STA00300
WRITE (IOUT,2010) STA00301
WRITE (IOUT,2020) STA00302
WRITE (IOUT,2030) STA00303
WRITE (IOUT,2040) STA00304
WRITE (IOUT,2050) STA00305
WRITE (IOUT,2060) STA00306
WRITE (IOUT,2070) STA00307
WRITE (IOUT,2080) STA00308
WRITE (IOUT,2090) STA00309
WRITE (IOUT,2100) STA00310
WRITE (IOUT,2110) STA00311
WRITE (IOUT,2120) STA00312
WRITE (IOUT,2130) STA00313
WRITE (IOUT,2140) STA00314
WRITE (IOUT,2150) STA00315
WRITE (IOUT,2160) STA00316
WRITE (IOUT,2170) STA00317
WRITE (IOUT,2180) STA00318
WRITE (IOUT,2190) STA00319
WRITE (IOUT,2200) STA00320
WRITE (IOUT,2210) STA00321
WRITE (IOUT,2220) STA00322
WRITE (IOUT,2230) STA00323
WRITE (IOUT,2240) STA00324
WRITE (IOUT,2250) STA00325
WRITE (IOUT,2260) STA00326
WRITE (IOUT,2270) STA00327
WRITE (IOUT,2280) STA00328
WRITE (IOUT,2290) STA00329
WRITE (IOUT,2300) STA00330
WRITE (IOUT,2310) STA00331
WRITE (IOUT,2320) STA00332
WRITE (IOUT,2330) STA00333
WRITE (IOUT,2340) STA00334
WRITE (IOUT,2350) STA00335
WRITE (IOUT,2360) STA00336
WRITE (IOUT,2370) STA00337
WRITE (IOUT,2380) STA00338
WRITE (IOUT,2390) STA00339
WRITE (IOUT,2400) STA00340
WRITE (IOUT,2410) STA00341
WRITE (IOUT,2420) STA00342
WRITE (IOUT,2430) STA00343
WRITE (IOUT,2440) STA00344
WRITE (IOUT,2450) STA00345
WRITE (IOUT,2460) STA00346
WRITE (IOUT,2470) STA00347
WRITE (IOUT,2480) STA00348
WRITE (IOUT,2490) STA00349
WRITE (IOUT,2500) STA00350
WRITE (IOUT,2510) STA00351
WRITE (IOUT,2520) STA00352
WRITE (IOUT,2530) STA00353
WRITE (IOUT,2540) STA00354
WRITE (IOUT,2550) STA00355
WRITE (IOUT,2560) STA00356
WRITE (IOUT,2570) STA00357
WRITE (IOUT,2580) STA00358
WRITE (IOUT,2590) STA00359
WRITE (IOUT,2600) STA00360
WRITE (IOUT,2610) STA00361
WRITE (IOUT,2620) STA00362
WRITE (IOUT,2630) STA00363
WRITE (IOUT,2640) STA00364
WRITE (IOUT,2650) STA00365
WRITE (IOUT,2660) STA00366
WRITE (IOUT,2670) STA00367
WRITE (IOUT,2680) STA00368
WRITE (IOUT,2690) STA00369
WRITE (IOUT,2700) STA00370
WRITE (IOUT,2710) STA00371
WRITE (IOUT,2720) STA00372
WRITE (IOUT,2730) STA00373
WRITE (IOUT,2740) STA00374
WRITE (IOUT,2750) STA00375
WRITE (IOUT,2760) STA00376
WRITE (IOUT,2770) STA00377
WRITE (IOUT,2780) STA00378
WRITE (IOUT,2790) STA00379
WRITE (IOUT,2800) STA00380
WRITE (IOUT,2810) STA00381
WRITE (IOUT,2820) STA00382
WRITE (IOUT,2830) STA00383
WRITE (IOUT,2840) STA00384
WRITE (IOUT,2850) STA00385
WRITE (IOUT,2860) STA00386
WRITE (IOUT,2870) STA00387
WRITE (IOUT,2880) STA00388
WRITE (IOUT,2890) STA00389
WRITE (IOUT,2900) STA00390
WRITE (IOUT,2910) STA00391
WRITE (IOUT,2920) STA00392
WRITE (IOUT,2930) STA00393
WRITE (IOUT,2940) STA00394
WRITE (IOUT,2950) STA00395
WRITE (IOUT,2960) STA00396
WRITE (IOUT,2970) STA00397
WRITE (IOUT,2980) STA00398
WRITE (IOUT,2990) STA00399
WRITE (IOUT,3000) STA00400
WRITE (IOUT,3010) STA00401
WRITE (IOUT,3020) STA00402
WRITE (IOUT,3030) STA00403
WRITE (IOUT,3040) STA00404
WRITE (IOUT,3050) STA00405
WRITE (IOUT,3060) STA00406
WRITE (IOUT,3070) STA00407
WRITE (IOUT,3080) STA00408
WRITE (IOUT,3090) STA00409
WRITE (IOUT,3100) STA00410
WRITE (IOUT,3110) STA00411
WRITE (IOUT,3120) STA00412
WRITE (IOUT,3130) STA00413
WRITE (IOUT,3140) STA00414
WRITE (IOUT,3150) STA00415
WRITE (IOUT,3160) STA00416
WRITE (IOUT,3170) STA00417
WRITE (IOUT,3180) STA00418
WRITE (IOUT,3190) STA00419
WRITE (IOUT,3200) STA00420
WRITE (IOUT,3210) STA00421
WRITE (IOUT,3220) STA00422
WRITE (IOUT,3230) STA00423
WRITE (IOUT,3240) STA00424
WRITE (IOUT,3250) STA00425
WRITE (IOUT,3260) STA00426
WRITE (IOUT,3270) STA00427
WRITE (IOUT,3280) STA00428
WRITE (IOUT,3290) STA00429
WRITE (IOUT,3300) STA00430
WRITE (IOUT,3310) STA00431
WRITE (IOUT,3320) STA00432
WRITE (IOUT,3330) STA00433
WRITE (IOUT,3340) STA00434
WRITE (IOUT,3350) STA00435
WRITE (IOUT,3360) STA00436
WRITE (IOUT,3370) STA00437
WRITE (IOUT,3380) STA00438
WRITE (IOUT,3390) STA00439
WRITE (IOUT,3400) STA00440
WRITE (IOUT,3410) STA00441
WRITE (IOUT,3420) STA00442
WRITE (IOUT,3430) STA00443
WRITE (IOUT,3440) STA00444
WRITE (IOUT,3450) STA00445
WRITE (IOUT,3460) STA00446
WRITE (IOUT,3470) STA00447
WRITE (IOUT,3480) STA00448
WRITE (IOUT,3490) STA00449
WRITE (IOUT,3500) STA00450
WRITE (IOUT,3510) STA00451
WRITE (IOUT,3520) STA00452
WRITE (IOUT,3530) STA00453
WRITE (IOUT,3540) STA00454
WRITE (IOUT,3550) STA00455
WRITE (IOUT,3560) STA00456
WRITE (IOUT,3570) STA00457
WRITE (IOUT,3580) STA00458
WRITE (IOUT,3590) STA00459
WRITE (IOUT,3600) STA00460
WRITE (IOUT,3610) STA00461
WRITE (IOUT,3620) STA00462
WRITE (IOUT,3630) STA00463
WRITE (IOUT,3640) STA00464
WRITE (IOUT,3650) STA00465
WRITE (IOUT,3660) STA00466
WRITE (IOUT,3670) STA00467
WRITE (IOUT,3680) STA00468
WRITE (IOUT,3690) STA00469
WRITE (IOUT,3700) STA00470
WRITE (IOUT,3710) STA00471
WRITE (IOUT,3720) STA00472
WRITE (IOUT,3730) STA00473
WRITE (IOUT,3740) STA00474
WRITE (IOUT,3750) STA00475
WRITE (IOUT,3760) STA00476
WRITE (IOUT,3770) STA00477
WRITE (IOUT,3780) STA00478
WRITE (IOUT,3790) STA00479
WRITE (IOUT,3800) STA00480
WRITE (IOUT,3810) STA00481
WRITE (IOUT,3820) STA00482
WRITE (IOUT,3830) STA00483
WRITE (IOUT,3840) STA00484
WRITE (IOUT,3850) STA00485
WRITE (IOUT,3860) STA00486
WRITE (IOUT,3870) STA00487
WRITE (IOUT,3880) STA00488
WRITE (IOUT,3890) STA00489
WRITE (IOUT,3900) STA00490
WRITE (IOUT,3910) STA00491
WRITE (IOUT,3920) STA00492
WRITE (IOUT,3930) STA00493
WRITE (IOUT,3940) STA00494
WRITE (IOUT,3950) STA00495
WRITE (IOUT,3960) STA00496
WRITE (IOUT,3970) STA00497
WRITE (IOUT,3980) STA00498
WRITE (IOUT,3990) STA00499
WRITE (IOUT,4000) STA00400
WRITE (IOUT,4010) STA00401
WRITE (IOUT,4020) STA00402
WRITE (IOUT,4030) STA00403
WRITE (IOUT,4040) STA00404
WRITE (IOUT,4050) STA00405
WRITE (IOUT,4060) STA00406
WRITE (IOUT,4070) STA00407
WRITE (IOUT,4080) STA00408
WRITE (IOUT,4090) STA00409
WRITE (IOUT,4100) STA00410
WRITE (IOUT,4110) STA00411
WRITE (IOUT,4120) STA00412
WRITE (IOUT,4130) STA00413
WRITE (IOUT,4140) STA00414
WRITE (IOUT,4150) STA00415
WRITE (IOUT,4160) STA00416
WRITE (IOUT,4170) STA00417
WRITE (IOUT,4180) STA00418
WRITE (IOUT,4190) STA00419
WRITE (IOUT,4200) STA00420
WRITE (IOUT,4210) STA00421
WRITE (IOUT,4220) STA00422
WRITE (IOUT,4230) STA00423
WRITE (IOUT,4240) STA00424
WRITE (IOUT,4250) STA00425
WRITE (IOUT,4260) STA00426
WRITE (IOUT,4270) STA00427
WRITE (IOUT,4280) STA00428
WRITE (IOUT,4290) STA00429
WRITE (IOUT,4300) STA00430
WRITE (IOUT,4310) STA00431
WRITE (IOUT,4320) STA00432
WRITE (IOUT,4330) STA00433
WRITE (IOUT,4340) STA00434
WRITE (IOUT,4350) STA00435
WRITE (IOUT,4360) STA00436
WRITE (IOUT,4370) STA00437
WRITE (IOUT,4380) STA00438
WRITE (IOUT,4390) STA00439
WRITE (IOUT,4400) STA00440
WRITE (IOUT,4410) STA00441
WRITE (IOUT,4420) STA00442
WRITE (IOUT,4430) STA00443
WRITE (IOUT 
```

<!-- source-page: 1017 -->

```csv
120 NEQ=NEQ + 1
ID(I,N)=NEQ
GO TO 100
110 ID(I,N)=0
100 CONTINUE
C
C WRITE EQUATION NUMBERS
C
C WRITE (IOUT,2040) (N,(ID(I,N),I=1,3),N=1,NUMNP)
C
C RETURN
C
1000 FORMAT (4I5,3F10.0,I5)
2000 FORMAT(//,'N O D A L P O I N T D A T A',/)
2010 FORMAT('INPUT NODAL DATA',//)
2015 FORMAT(//,'GENERATED NODAL DATA',//)
2020 FORMAT('NODE',10X,'BOUNDARY',25X,'NODAL POINT',17X,'MESH',/, 1' NUMBER CONDITION CODES',21X,'COORDINATES',14X,'GENERATING', STA00364
2/,77X,'CODE',/, 315X,'X Y Z',15X,'X',12X,'Y',12X,'Z',10X,'KN')
2030 FORMAT (I5,6X,3I5,6X,3F13.3,3X,I6)
2040 FORMAT(//,'EQUATION NUMBERS',//,' NODE',9X,
1 'DEGREES OF FREEDOM',//,' NUMBER',//,
2 ' N',13X,'X Y Z',/(1X,I5,9X,3I5))
C
C
END
SUBROUTINE LOADS (R,NOD,IDIRN,FLOAD,ID,NLOAD,NEQ)
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
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C 
```

<!-- source-page: 1018 -->

```csv
SUBROUTINE ELCAL STA00417
C . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
C . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
P R O G R A M STA00420
C . TO LOOP OVER ALL ELEMENT GROUPS FOR READING, STA00421
C . GENERATING AND STORING THE ELEMENT DATA STA00422
C . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
COMMON /SOL/ NUMNP,NEQ,NWK,NUMEST,MIDEST,MAXEST,MK STA00425
COMMON /EL/ IND,NPAR(10),NUMEG,MTOT,NFIRST,NLAST,ITWO STA00426
COMMON /TAPES/ IELMNT,ILOAD,IIN,IOUT STA00427
COMMON A(1) STA00428
C . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . C
REWIND IELMNT STA00430
WRITE (IOUT,2000) STA00431
C . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 
LOOP OVER ALL ELEMENT GROUPS STA00433
C . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 100 OVER ALL ELEMENT GROUPS STA00434
DO 100 N=1,NUMEG STA00435
IF (N.NE.1) WRITE (IOUT,2010) STA00436
C . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .C
READ (IIN,1000) NPAR STA00438
C . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
CALL ELEMENT STA00440
C . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . IF (MIDEST.GT.MAXEST) MAXEST=MIDEST STA00441
C . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . WRITE (IELMNT) MIDEST,NPAR,(A(I),I=NFIRST,NLAST) STA00444
C . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .100 CONTINUE STA00446
C . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
RETURN STA00447
C . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 1010 FORMAT (1015) STA00448
2000 FORMAT (//,'E ELEMENT GROUP DATA',//) STA00450
2010 FORMAT (‘') STA00451
C . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
END STA00453
SUBROUTINE ELEMENT STA00454
C . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 2010 FORMAT (‘') STA00452
C . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
COMMON /EL/ IND,NPAR(10),NUMEG,MTOT,NFIRST,NLAST,ITWO STA00456
NPAR1=NPAR(1) STA00463
GO TO (1,2,3),NPAR1 STA00464
C . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
1 CALL TRUSS STA00467
GO TO 900 STA00468
C . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 300 RETURN STA00470
END STA00471
SUBROUTINE COLHT (MHT,ND,LM) STA00472
C . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 900 RETURN STA00472
END STA00473
SUBROUTINE COLHT (MHT,ND,LM) STA00473
C . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 400 RETURN STA00474
END STA00475
SUBROUTINE COLHT (MHT,ND,LM) STA00475
C . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 
```

<!-- source-page: 1019 -->

```csv
COMMON /SOL/ NUMNP,NEQ,NWK,NUMEST,MIDEST,MAXEST,MK
DIMENSION LM(1),MHT(1)
LS=100000
DO 100 I=1,ND
IF (LM(I)) 110,100,110
IF (LM(I)-LS) 120,100,100
LS=LM(I)
CONTINUE
DO 200 I=1,ND
II=LM(I)
IF (II.EQ.0) GO TO 200
ME=II - LS
IF (ME.GT.MHT(II)) MHT(II)=ME
CONTINUE
RETURN
END
SUBROUTINE ADDRES (MAXA,MHT)
P R O G R A M
TO CALCULATE ADDRESSES OF DIAGONAL ELEMENTS IN BANDED
MATRIX WHOSE COLUMN HEIGHTS ARE KNOWN
MHT = ACTIVE COLUMN HEIGHTS
MAXA = ADDRESSES OF DIAGONAL ELEMENTS
COMMON /SOL/ NUMNP,NEQ,NWK,NUMEST,MIDEST,MAXEST,MK
DIMENSION MAXA(*),MHT(*)
CLEAR ARRAY MAXA
NN=NEQ + 1
DO 20 I=1,NN
MAXA(I)=0.0
MAXA(1)=1
MAXA(2)=2
MK=0
IF (NEQ.EQ.1) GO TO 100
DO 10 I=2,NEQ
IF (MHT(I).GT.MK) MK=MHT(I)
MAXA(I+1)=MAXA(I) + MHT(I) + 1
MK=MK + 1
NWK=MAXA(NEQ+1) - MAXA(1)
RETURN
END
SUBROUTINE CLEAR (A,N)
P R O G R A M
TO CLEAR ARRAY A
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
DIMENSION A(1)
DO 10 I=1,N
A(I)=0.
RETURN
END
SUBROUTINE ASSEM (AA)
P R O G R A M
TO CALL ELEMENT SUBROUTINES FOR ASSEMBLAGE OF THE
STRUCTURE STIFFNESS MATRIX
STA00487
STA00488
STA00489
STA00490
STA00491
STA00492
STA00493
STA00494
STA00495
STA00496
STA00497
STA00498
STA00499
STA00500
STA00501
STA00502
STA00503
STA00504
STA00505
STA00506
STA00507
STA00508
STA00509
STA00510
STA00511
STA00512
STA00513
STA00514
STA00515
STA00516
STA00517
STA00518
STA00519
STA00520
STA00521
STA00522
STA00523
STA00524
STA00525
STA00526
STA00527
STA00528
STA00529
STA00530
STA00531
STA00532
STA00533
STA00534
STA00535
STA00536
STA00537
STA00538
STA00539
STA00540
STA00541
STA00542
STA00543
STA00544
STA00545
STA00546
STA00547
STA00548
STA00549
STA00550
STA00551
STA00552
STA00553
STA00554
STA00555
STA00556 
```

<!-- source-page: 1020 -->

```csv
C : STA00557
C : STA00558
COMMON /EL/ IND, NPAR(10), NUMEG, MTOT, NFIRST, NLAST, ITWO STA00559
COMMON /TAPES/ IELMNT, ILOAD, IIN, IOUT STA00560
DIMENSION AA(1) STA00561
C
REWIND IELMNT STA00562
C
DO 200 N=1, NUMEG STA00563
READ (IELMNT) NUMEST, NPAR, (AA(I), I=1, NUMEST) STA00564
C
CALL ELEMENT STA00565
C
200 CONTINUE STA00566
C
RETURN STA00567
END STA00568
SUBROUTINE ADDBAN (A, MAXA, S, LM, ND) STA00569
C : STA00570
C : STA00571
C : STA00572
END STA00573
C : STA00574
C : STA00575
C : STA00576
C : STA00577
C : STA00578
C : STA00579
C : STA00580
C : STA00581
C : STA00582
C : STA00583
C : STA00584
C : STA00585
C : STA00586
C : STA00587
C : STA00588
C : STA00589
C : STA00590
C : STA00591
C : STA00592
C : STA00593
C : STA00594
C : STA00595
C : STA00596
C : STA00597
C : STA00598
C : STA00599
C : STA00600
C : STA00601
C : STA00602
C : STA00603
C : STA00604
C : STA00605
C : STA00606
C : STA00607
C : STA00608
C : STA00609
C : STA00610
C : STA00611
C : STA00612
C : STA00613
C : STA00614
C : STA00615
C : STA00616
C : STA00617
C : STA00618
C : STA00619
C : STA00620
C : STA00621
C : STA00622
C : STA00623
C : STA00624
C : STA00625
C : STA00626
C : STA00627
C : STA00628
C : STA00629
C : STA00630
C : STA00631
C : STA00632
C : STA00633
C : STA00634
C : STA00635
C : STA00636
C : STA00637
C : STA00638
C : STA00639
C : STA00640
C : STA00641
C : STA00642
C : STA00643
C : STA00644
C : STA00645
C : STA00646
C : STA00647
C : STA00648
C : STA00649
C : STA00650
C : STA00651
C : STA00652
C : STA00653
C : STA00654
C : STA00655
C : STA00656
C : STA00657
C : STA00658
C : STA00659
C : STA00660
C : STA00661
C : STA00662
C : STA00663
C : STA00664
C : STA00665
C : STA00666
C : STA00667
C : STA00668
C : STA00669
C : STA00670
C : STA00671
C : STA00672
C : STA00673
C : STA00674
C : STA00675
C : STA00676
C : STA00677
C : STA00678
C : STA00679
C : STA00680
C : STA00681
C : STA00682
C : STA00683
C : STA00684
C : STA00685
C : STA00686
C : STA00687
C : STA00688
C : STA00689
C : STA00690
C : STA00691
C : STA00692
C : STA00693
C : STA00694
C : STA00695
C : STA00696
C : STA00697
C : STA00698
C : STA00699
C : STA00600
C : STA00601
C : STA00602
C : STA00603
C : STA00604
C : STA00605
C : STA00606
C : STA00607
C : STA00608
C : STA00609
C : STA00600
C : STA00601
C : STA00602
C : STA00603
C : STA00604
C : STA00605
C : STA00606
C : STA00607
C : STA00608
C : STA00609
C : STA00611
C : STA00612
C : STA00613
C : STA00614
C : STA00615
C : STA00616
C : STA00617
C : STA00618
C : STA00619
C : STA00620
C : STA00621 
```