.. _~ __ ... I 

"- ' 

Nl\SI\ 

NatIOnal Aeronautics and 

Space Administration 

-

CR -174892 

NASA-CR-174892 

19860012461 , '-

BUR N E R LI N E R----'---------

THERMAL/STRUCTURAL 

LOAD MODELING 

By 

R. Maffeo 

General Electric Company 

Aircraft Engine Business Group 

Cincinnati, Ohio 45215 

Prepared For 

National Aeronautics and Space Administration 

Lewis Research Center 

21000 Brookpark Road LIBRARY r,«"?y Cleveland, Ohio 44135 

NASA-Lewis Research Center 

Contract NAS3-23272 

1111111111111 1111 11111 11111 11111 11111 1111 111\ 

NF01214 

MAY 2 8 1986 

).Ai .uLt, , -;,c " HER 

LlaAARY. NAS.-\ 

J:iAMPTON, VIRGINIA 
1. Report No. I 2. Government Accession No. 3. Recipient's Catalog No. 

CR-174892 

4. Title and Subtitle 

Burner Liner Thermal/Structural Load Modeling 

5. Report Date 

October 1984 

6. Performing Organization Code 

7. Author(s) 8. Performing Organization Report No. 

R. Maffeo 

9. Performing Organization Name and Address 

General Electric Company 

10. Work Unit No. 

Aircraft Engine Business Group 

Cincinnati, OH 45215 

11. Contract or Grant No. 

NAS3-23272 

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~11a~~~~port~dP~~dCovu~ 

12. Sponsoring Agency Name and Address 

National Aeronautics and Space Administration Final Report 

Lewis Research Center 14. Sponsoring Agency Code 

Cleveland, OH 44135 

15. Supplementary Notes 

Project Manager, Dr. R.L. Thompson 

Structures and Mechanical Technologies Division 

NASA Lewis Research Center, Cleveland, OH 44135 

16. Abstract 

The software package developed under this contract was called TRansfer Analysis 

Code to Interface Thermal/Structural Problems (TRANCITS). The-rRANCITS-code 

satisfies all of the objectives for transferring thermal data between heat 

transfer and structural models of combustor liners; in addition, it can be 

used as a generic thermal translator between heat transfer and stress models 

of any component, regardless of the geometry. TRANCITS can accurately and 

efficiently convert the temperature distributions predicted by the heat 

transfer programs to those required by the stress codes. It can be used for 

both linear and nonlinear structural codes and can produce nodal temperatures, 

elemental centroid temperatures, or elemental Gauss point temperatures. The 

thermal output of both the MARC and SINDA heat transfer codes can be interfaced directly with TRANCITS and it will automatically produce stress model 

codes formatted for NASTRAN and MARC. In addition to these codes, any 

thermal program and structural program can be interfaced by using the neutral 

input and output forms supported by TRANCITS. 

In summary, the TRANCITS code can be used to interface temperature data be 

tween thermal and structural analytical models. The use of this transfer 

module allows the heat transfer analyst to select the thermal mesh density 

and thermal analysis code best suited to solve the thermal problem 

and gives the same freedoms to the stress analyst, without the efficiency 

penalties associated with common meshes and the accuracy penalties associated 

with the manual transfer of thermal data. 

KEY WORDS 

Interface, Heat Transfer AnalYSiS, Structural Analysis, Finite Element, Isoparametric, Finite Difference, Transfer Module 

17. Key Words (Suggested by Author(s)) 

Heat Transfer 

Stress Analysis 

Computer-Aided Engineering 

19. Security Oassif. (of this report) 

Unclassified 

18. Distribution Statement 

20. Security Classif. (of this page) 

Unclassified 

21. No. of Pages 

203 

• For sale by the National Technical Information Service, Springfield. Virginia 22161 

NASA-C-168 (Rev. 10-75) 

22. Price" 
Section 

1.0 

2.0 

3.0 

4.0 

5.0 

6.0 

7.0 

8.0 

SUMMARY 

INTRODUCTION 

DESCRIPTION OF TASKS 

TABLE OF CONTENTS 

3.1 Task I - Current Status of Thermal Load Modeling 

3.2 Task II - Assessment of Thermal Load Modeling 

3.3 Task III - Development of Thermal Load Transfer Module 

3.4 Task IV - Verification and Documentation of Automated 

Automated Thermal Transfer Load Module 

TASK I 

4.1 Thermal Analysis Programs 

4.2 Structural Analysis Codes 

TASK II 

5.1 2D Titan Evaluation 

5.2 Merlin Evaluation 

5.3 Lomap Evaluation 

5.4 Evaluation of Transferring Criteria 

DEVELOPMENT AND DOCUMENTATION OF THE TRANSFER MODULE 

6.1 General Flow of Code 

6.2 Input and Output 

6.3 Finite Difference Consideration 

6.4 3D Search and Weighting Coefficient Routines 

6.5 Exterior Point Surfacing Routine 

VERIFICATION AND DOCUMENTATION OF THE TRANSFER MODULE 

7.1 Verification of the Transfer Module 

7.2 Documentation of the Transfer 

CONCLUSIONS 

APPENDIX A 

APPENDIX B 

APPENDIX C 

APPENDIX D 

REFERENCES 

iii 

1 

2 

5 

5 

5 

6 

6 

8 

8 

9 

11 

11 

12 

12 

13 

17 

17 

19 

21 

24 

31 

34 

34 

39 

51 

53 

66 

75 

180 

203 
1.0 SUMMARY 

The objective of this program was to develop a thermal load transfer 

module that would be capable of transferring thermal data from a three dimensional analytical model of a combustor liner to a corresponding three dimensional stress analysis model. The initial goal of the transfer module was the 

ability to handle different mesh densities for the heat transfer analysis and 

the stress analysis and the capability to utilize both finite difference and 

finite element heat transfer codes. The extended goals of the transfer module 

were to develop a general purpose tool that would effectively allow for the 

coupling of heat transfer analysis and stress analysis while maintaining the 

flexibility of independent analysis codes. 

The software package developed under this contract is called Transfer 

Analysis Code to Interface Thermal/Structural Problems or TRANCITS-.- The 

TRANCITS code satisfies all-of the objectives for transferring thermal data 

between heat transfer and structural models of combustor liners and, in addition, can be used as a generic thermal translator between heat transfer and 

stress models of any components regardless of the geometry. TRANCITS can 

accurately and efficiently convert the temperature distributions predicted by 

the heat transfer programs to those required by the stress codes. It can be 

used for both linear and non-linear structural codes and can produce nodal 

temperatures, elemental centroid temperatures or elemental gauss point temperatures. The thermal output of both the MARC and SINDA heat transfer codes can 

be interfaced directly with TRANCITS and it will automatically produce stress 

model temperatures formatted for NASTRAN and MARC. In addition to these codes, 

any thermal program and structural program can be interfaced by utilizing the 

neutral input and output forms supported by TRANCITS. 

In summary, the TRANCITS code can be used to interface temperature data 

between thermal and structural analytical models. The use of this transfer 

module allows the heat transfer analyst to select the thermal mesh density and 

thermal analysis code that is best suited to solve the thermal problem and 

gives the same freedoms to the stress analyst without the efficiency penalties 

associated with common meshes and the accuracy penalties associated with the 

manual transfer of thermal data. 

1 
2.0 INTRODUCTION 

The overall objective of this program was to develop a thermal data transfer computer program module for the Burner Liner Thermal-Structural Load Modeling Program. This was accomplished by (1) reviewing existing methodologies 

for thermal data transfer and selecting three heat transfer codes for application in this program, (2) evaluating the selected codes to develop criteria 

for developing a computer program module to transfer thermal data from the 

heat transfer codes to selected stress analysis codes, (3) developing the 

automated thermal load transfer module, and (4) verifying and documenting the 

module. 

In aircraft turbine engine hot section components, combustor liners, and 

turbine blades and vanes, cyclic thermal stresses are the most important damage 

mechanism. Consequently, accurate and reliable prediction of thermal loads is 

essential to improving durability. To achieve this goal, a considerable effort 

over the past 20 years has been devoted to the acquisition of engine temperature test data, as well as the development of accurate, reliable, and efficient computer codes for the prediction of steady-state and transient temperatures and for the calculation of elastic and inelastic cyclic stresses and 

strains in hot section components. There is a need for continued development 

of these codes, because the availability of more accurate analysis techniques 

for complex configurations has enabled engine designers to use more sophisticated designs to achieve higher cycle efficiency and reduce weight. 

It has become apparent in recent years that there is a serious problem of 

interfacing the output temperatures and temperature gradients from the heat 

transfer codes with the input to the stress analysis codes. In part, this is 

a penalty for success. When computers were slower and computer memory smaller, 

the size of problems that could be analyzed, in terms of heat transfer nodes 

and stress analysis finite elements, was limited. Manual transfer of the 

output temperatures from the heat transfer codes to the stress analysis input, 

with manual interpolation to accommodate the mismatch in the nodal meshes of 

the two programs, was not unduly burdensome. With the growth in computer capacity and speed and the development of input preprocessors and output postprocessors, the analysis of components using hundreds and even thousands of nodes 

in the heat transfer and stress models has become economical and routine. This 

has exacerbated the interfacing problem to where the engineering effort 

required is comparable to that required for the remainder of the analysis. 

Furthermore, a considerable amount of approximation has been introduced in an 

effort to accelerate the process. This tends to introduce errors into the 

temperature data which negates the improved accuracy in the temperature distribution achieved through use of a finer mesh. 

One solution to these interfacing problems is to force the heat transfer 

model and the stress model to be performed using the same analysis code and 

the exact same mesh densities. Although this technique may be acceptable for 

some applications, it has several disadvantages. In many models the areas of 

high stress gradient may be influenced by thermal loads but are predominantly 

2 
controlled by geometrical discontinuities such as fillets and holes. A structural mesh that was fine enough to represent the gradients due to these discontinuities would be in general much denser than necessary for the thermal 

problem. This "overkill" might be tolerated for 2D analysis but many times 

the additional cost associated with these extra nodes in 3D analysis cannot be 

afforded. It is sometimes argued that because of the reduced degrees of freedom for a thermal problem as compared to a structural problem (typically 1 dof 

for thermal and 2 to 6 dofs for structural) that this additional cost is minimized. This is true for steady-state analyses, but for transient problems, 

the number of thermal runs far exceeds the number of structural runs usually 

performed. 

Another example of the disadvantage of common meshes is the current trend 

in structural analysis toward adaptive mesh refinement. This technique will 

automatically refine the structural mesh in areas of high strain gradients. 

Unless the high strain gradient were caused by high thermal gradients there is 

certainly no need to refine the thermal mesh and redo the thermal analysis 

just because the structural mesh was made denser. All of these factors point 

toward the need for different thermal and structural mesh densities. 

A further drawback of common heat transfer and stress codes and meshes is 

the widespread use of the finite difference technique to solve the thermal problem as opposed to the use of finite element codes for the structural problem. 

Again this suggests the need for an external process to transfer the thermal 

data to an independent structural analysis. 

Therefore, the primary objective to this project is to develop, implement 

and demonstrate an interfacing module that will address the problems associated 

with the transfer of temperature data from thermal analyses to structural 

analyses. 

This interfacing module must be able to handle different thermal and 

structural meshes and must support both finite difference and finite element 

heat transfer codes. 

Conceptually, the overall program structure is shown in Figure 1. 

Direct inputs are temperature data, and the geometries associated with the 

thermal data and with the stress model. The particular heat transfer and 

stress analysis programs used affect the process inside the transfer module. 

Final output is the temperature data at the required locations in the stress 

model. 

3 
;+::. 

Analytical 

Temperatures 

Geometry 

--

... 

-

Heat Transfer Stress Analysis 

Program ,Program 

,~ H 

Thermal Load 

Transfer Module 

Figure 1. Overall Program Structure. 

-- Temperature at Stress Node 

Locations 
3.0 DESCRIPTION OF TASKS 

This project was addressed by completing four tasks. These tasks include 

a review of the current status of thermal load modeling, an assessment of the 

thermal load modeling procedures, development of a thermal load transfer module 

and verification and documentation of the transfer module. 

The four tasks are described below. 

3.1 TASK I - CURRENT STATUS OF THERMAL LOAD MODELING 

General Electric conducted a review of the current methods used to transfer thermal data from analytical sources to structural analysis programs in 

order to compute thermal stress and strain. The review included both in-house 

capabilities and papers in the open literature. The feasibility of the available methods were assessed and incorporated into the thermal load transfer 

module when applicable. In addition to reviewing the existing transfer techniques, General Electric also conducted a review of existing numerical temperature prediction codes including both in-house programs and those available in 

the open literature. This review was conducted with particular attention paid 

to the existing thermal load transfer methodologies and also included an examination of the temperature output format for each code reviewed. Based upon the 

results of this review, three computer codes were identified from among those 

available to the public to be used in the verification of the thermal load 

transfer module which was developed in Task III of this contract. 

A review was also made of structural analysis computer programs as the 

first step in the process of selecting those codes to be used in this program. 

Both in-house computer programs and those programs defined in the open literature were reviewed. The objective of this review was to produce an evaluation 

of each code's input-output formulation, particularly with respect to temperature information. For the greatest public utility, primary emphasis was placed 

on those codes which are both in the open literature and actively supported by 

the commercial computer houses. 

3.2 TASK II - ASSESSMENT OF THERMAL LOAD MODELING 

In Task II, the Aircraft Engine Business Group outlined the thermal data 

transfer procedures for each of the methodologies approved in Task I and 

identified, discussed, and assessed their limitations and deficiencies in 

order to clearly define and evaluate the problem areas associated with thermal 

load modeling. Particular emphasis was placed on the questions of compatibility, ease of implementation, and thermal data format in the discussion of 

the current deficiencies and limitations involved in the transfer of thermal 

data from heat transfer analysis to the various structural analysis codes. 

5 
Once the limitations and deficiencies were identified in this task, a 

consistent set of evaluation criteria was developed. These criteria included 

factors that address the accuracy and the efficiency of the transfer procedure. 

3.3 TASK III - DEVELOPMENT OF THERMAL LOAD TRANSFER MODULE 

Based on the results of Tasks I and II, General Electric developed a 

thermal data transfer module that efficiently and accurately interfaced 

thermal data into structural analysis codes. The thermal data may come from 

both finite difference and finite element heat transfer analysis programs. 

The transfer module is capable of interfacing 3-D steady-state and transient 

heat transfer data into linear and nonlinear structural analysis programs. 

State-of-the-art features in this module allow different mesh distribution for the heat transfer model, and the structural analysis model and slight 

differences in part geometry due to differences in component tolerances used 

in the models. Three-dimensional translation and rotation routines were 

incorporated into the module to account for possible mismatches between the 

origin of the structural model and the thermal model coordinate systems. 

As these techniques were developed, they were encoded into a modular 

software package that efficiently manages the thermal data. The temperature 

data from the selected heat transfer programs is read directly by the interfacing module and automatically converted into a usable form for the selected 

structural analysis codes. The output of the interfacing module is completely 

compatible with the requirements for all of the structural codes selected. In 

addition, the flexible format of the output allows it to be easily implemented 

into other structural codes. 

The techniques developed for the transfer module were designed to be 

flexible and have as much built-in generic capability as possible. The module 

provides options for compatible input with different existing heat transfer 

and structural computer codes. In conclusion, the transfer module provides an 

accurate streamline method of determining burner liner temperatures and gradients at specified locations compatible with the structural analysis input 

requirements. 

3.4 TASK IV - VERIFICATION AND DOCUMENTATION OF AUTOMATED THERMAL TRANSFER 

LOAD MODULE 

This Task is concerned with validating the data transfer module which was 

developed in Task III. Several test cases were run utilizing various combinations of heat transfer and structural analysis computer codes with temperature 

data flowing between the programs by means of the data transfer module. One 

of the test cases involved a 3D model of a combustor liner. Both finite 

difference and finite element heat transfer codes were used to produce the 

thermal results and these thermal loads were then interfaced to structural 

analysis codes using the transfer module. Cases were run using similar and 

dissimilar meshes for the heat transfer and stress analysis. Stress points 

that lie slightly outside the heat transfer model were interfaced using the 

6 
module. The accuracy of the transfer was evaluated by comparing the temperatures produced by the transfer module to those predicted by the actual heat 

transfer codes used. 

These demonstration test cases were documented as verification of the 

transfer code. 

The coding of the transfer module was made as hardware independent as 

possible. All computer system dependent routines were isolated into easy 

to modify subroutines. The final version of the transfer module is executable 

on NASA Lewis's IBM system. 

As a separate document a User's Manual for the data transfer module was 

provided. This manual includes a precise set of operating instructions for 

each of the software packages developed. Included is a description of all 

variables needed to execute the codes. 

As part of this documentation, a complete set of Fortran listings for 

each subroutine developed for the data transfer module along with a computer 

tape of this coding was delivered to NASA Lewis Research Center. 

7 
8 

4.0 TASK I 

Current status of thermal load modelling and a review of heat transfer 

and structural codes. 

4.1 THERMAL ANALYSIS PROGRAMS 

A review was conducted of the in-house and open literature concerning 

numerical temperature prediction codes. The primary purpose of this task was 

to select three codes to be used to verify the thermal load transfer module. 

The other criterion for the codes is that they must be available in the NASA 

Lewis computer system. 

A comprehensive summary of the capabilities of thirty-eight different 

codes is contained in the excellent survey article by A.R. Noor entitled "Survey of Computer Programs for Heat Transfer Analysis". (Reference 1) We studied 

this summary closely, paying particular attention to any already existing 

transfer modules between the thermal and structural analysis modules, as well 

as to the output form for the temperature results. 

As to the first question, none of the programs surveyed contained an 

automatic thermal interface. This statement is also applicable to all our 

in-house heat transfer programs as well. Most major finite element programs 

do, however, have the capability to pass thermal data directly to an identical 

mesh which can then be used for structural analysis. Such a capability may be 

extremely useful for certain applications, but for many applications it is 

very restrictive. It imposes mutual restrictions on the heat transfer analyst 

and on the structural analyst which neither of them really need to observe. 

It is also true that this one-to-one correspondence requires that the heat 

transfer program use a finite element technique. This fact is clearly not a 

generally desirable arrangement. 

The second area we focused on was how we could access the temperatures 

produced by the heat transfer code. Most of the major codes surveyed also 

carry a file of output temperatures, which are suitable for post-processing. 

The form of this file is, of course, program dependent, but we believe that it 

can become the basic input to the thermal loads interface module. A thermal 

output file is not absolutely necessary since all the thermal codes print out 

the temperature at the heat transfer elements in some readable form. This 

readable form, known as "hard-copy", can be scanned and the required thermal 

data can be obtained. 

Since all the programs considered possess both the special output file as 

well as the standard "hard copy" output, either form of the output could be 

utilized. One of the unknown questions is: Does the special output file 

contain all the information necessary for the thermal load interface? Frequently finite difference based programs, for example, do not carry a complete 

geometry definition as a part of the output. The complete geometry is essential to the interface module. It can, in most cases, be obtained from the 
input to the heat transfer program. Questions such as this one cannot be 

answered with confidence until the individual programs are actually tried. 

In general, all programs were found to be roughly equivalent as far as 

producing temperature data usable by a structural program. Many different 

features are available in these codes, for example, different treatments of 

radiation, better plotting capabilities, etc., but the main focus of this 

study is on transferring temperature data. On this basis, there are nine 

major programs which could be used: 

ANSYS 

HEATING 

MARC 

NASTRAN 

SINDA 

THTD 

AD I NAT 

SAHARA 

PAFEC 

Of these codes, only four are currently available on NASA Lewis computers and 

these are HEATING, MARC, NASTRAN, and SINDA. Further, the transfer module is 

demonstrated with the interface of both finite difference and finite element 

codes, namely the SINDA program for the finite difference program and MARC as 

the finite element program. Also demonstrated is the interface to NASTRAN, 

because of its wide popularity. For completeness, the portions of Noor's 

survey article which deal with these programs and others are listed in Appendix A. 

Other codes considered, but not available on NASA Lewis's computer, were 

ANSYS, AD I NAT , SAHARA and PAFEC. ANSYS and ADINAT are both widely used finite 

element codes. Both of these codes have a wide range of elements that can be 

used for heat transfer analysis, and ANSYS is frequently used for gas turbine 

design problems. It would be desirable to have the transfer module deal with 

these heat transfer codes directly. The SAHARA program developed at Sandia 

laboratories is another finite difference program that could be used to validate the transfer module. The survey indicates that SAHARA, like SINDA, has an 

output file that can be used for postprocessing. This output file would be 

very useful for the transfer module. Finally the PAFEC program was considered 

because it uses boundary integral techniques to perform the heat transfer 

analysis. Here again, the ability to transfer thermal data from such a program is beyond the requirements of this contract but nevertheless will be very 

desirable. It is felt, however, that because of the modular construction of 

the transfer module, future implementation of these codes or any other common 

code could be easily accomplished. 

4.2 STRUCTURAL ANALYSIS CODES 

A survey of stress analysis programs was also conducted. By virtue of 

the huge number of programs available (it is certainly in the hundreds), our 

survey cannot be considered comprehensive, but our conclusions are consistent 

9 
with the scope of this study. In particular, no structures program which was 

considered carries its own thermal interface transfer module. Temperature 

data are transferred by one of two methods. 

(a) Temperatures are obtained from an exactly equivalent heat transfer 

analysis, utilizing the identical mesh, 

or 

(b) temperatures are interpolated and/or extrapolated from a different 

mesh to discrete points: nodes, gauss points, element centroids, 

etc. 

Method (a) requires no interface module whatsoever, but it is not considered to be desirable for a general case. 

Method (b) is ideally suited for a thermal interface module in that it is 

quite general. The module which was developed in Task III produces the temperature at any point in space which is consistent with a specific stress analysis. Whether this point is an actual node or gauss point makes little difference. The actual details of which points are required for temperature input 

to a structural model are not critical. The module will accept any selection. 

Our survey of commercially available programs relied heavily on a recent 

review with R. Zirin of the General Electric Gas Turbine Division covering 

ANSYS, EASE2, MARC, NASTRAN, STARDYNE, and SUPERB. 

All of these finite element structural codes have a large library of 

different elements. The location within these elements to which the thermal 

data must be input varies. Some require nodal temperatures, some need elemental centroid temperatures, others need gauss point data. They all, however, 

need temperatures at some discrete point in the structural model. Once again, 

the transfer module will produce temperatures at any location. 

For the purposes of this contract, the transfer module is demonstrated on 

MARC and NASTRAN, the codes available at NASA Lewis. Again, for completeness, 

the information on MARC and NASTRAN is given in Appendix B. 

The thermal load interface module developed under this study is flexible 

enough to drive any structural program which needs temperatures for input. 

10 
5.0 TASK II 

Assessment of Thermal Load Modeling 

The objective of Task II was to evaluate the thermal transferring capabilities currently available in existing heat transfer codes. In addition, an 

attempt was made to identify any freestanding thermal data transfer modules 

that might be in use by industry. Once these capabilities were evaluated, a 

set of criteria was compiled that included these factors and several additional 

criteria that were important in the development of a successful transfer module. 

As stated in Section 4.1 no general capability for transferring 3D thermal 

data to structural codes was identified in the thermal codes surveyed. The 

most common mechanism for accomplishing this interfacing was through the use 

of similar mesh densities. One exception to this was the THTD program that did 

produce a thermal output file that could input temperatures directly into 

selected stress codes. The actual procedure of assigning the stress node temperatures, however, involved a manual correlation between the stress point and 

the heat transfer element chosen to be "closest" to the stress node. Not only 

was this time consuming, but it also did not provide for any interpolation 

between heat transfer elements. The proposed code would consider this shortcoming in its development. 

The investigation of external thermal load transfer modules identified 

three codes being used by various companies. These codes were 2D TITAN developed by General Electric (AEBG), MERLIN developed by Sandia Lab and LOMAP 

developed by Lockheed. The evaluation of each of these codes follows: 

5.1 2D TITAN EVALUATION 

The 2D TITAN transfer code was developed by GE to interface the thermal 

results of a heat transfer code called THTD to selected structural analysis 

codes. The THTD code is a finite difference formulation. The transfer code 

will interface temperatures into any 2D mesh including plane stress, plane 

strain, axisymmetric and shells of revolution. It has some heat transfer windowing capability both spatial and temporal. TITAN can interface stress points 

that lie slightly outside of the heat transfer model. It also has built in 2D 

coordinate transformations to align the thermal and structural models. The 

program has some internal accuracy checks used to flag areas of the thermal 

model where the interfacing could yield inaccurate results. Another related 

feature is the use of interpolating functions that are consistent with the 

assumption associated with the THTD heat transfer element. The actual interpolation is accomplished using the 2D planar isoparametric shape functions. 

The following limitations were identified: 

a. No 3D capability. 

b. Only interfaces with one heat transfer code. 

11 
c. No time interpolations between thermal solutions. 

d. No provision for scaling the thermal results based on variations in 

thermal boundary conditions. 

5.2 MERLIN EVALUATION 

The Sandia code (MERLIN) is very similar to the in-house GE program called 

TITAN. Investigation into MERLIN revealed the following limitations: 

a. Restricted to 2D problems. 

b. Interfaces only with finite element heat transfer codes. 

c. Does not interface with finite difference heat transfer codes. 

d. Only interfaces into a specific set of finite element stress codes. 

e. Meshes (both heat transfer and stress) must be generated using a 

specific mesh generator. 

f. Does not allow for coordinate transformation of meshes. 

g. Does not account for stress points "slightly" outside heat transfer 

mesh. 

h. Limits the number of elements in the heat transfer model. 

i. Limits the number of nodes in stress model. 

j. Uses the same temperature mapping function regardless of the type of 

heat transfer element. 

The interfacing technique used in MERLIN is a three-step process. Step one 

is the mesh search. This search locates which heat transfer element contains 

each stress pOint. The second step is called the element search. This process 

defines the local coordinates of the stress point with respect to the coordinates of the heat transfer element. The last step computes the temperature 

of each stress point based on the weighting coefficients derived from the 

local coordinates. This entire process is almost identical to the methods used 

in TITAN. 

5.3 LOMAP EVALUATION 

The Lockheed program LOMAP has very limited capabilities as a general 

transfer module. It will transfer temperatures from a 3D heat transfer mesh to 

a 3D stress mesh, however, the method used is very simplistic. The weighting 

coefficients used to interpolate temperatures are Proportional to the temperatures of the four closest heat transfer nodes. For a general transfer program 

12 
the four closest nodes may not be the correct nodes to use. In fact, the four 

geometrically closest heat transfer nodes may not even be in the same thermal 

region ·as the stress point. This technique places severe restriction on the 

types of meshes that can be interfaced properly. 

5.4 EVALUATION OF TRANSFERRING CRITERIA 

Based on the study of existing thermal transfer modules, GE internal 

needs, and GE previous experience with TITAN, three levels of criteria for the 

program development were proposed. 

Level I contains the general criteria which must be satisfied for a usable 

product. 

Level II contains specific criteria which must be satisfied to meet the 

requirements associated with gas turbine design problems. This list stems 

mainly from GE internal experience. 

Level III contains criteria which are desirable but not necessary. In most 

cases, items in this class can be achieved through a multi-step Process. Total 

automation might be desirable, but we do not believe this effort is warranted 

at this time. 

Level I: General Criteria For A Thermal Transfer Module 

IA. Independent Heat Transfer and Stress Geometry Meshes 

This criteria lies at the heart of our effort. Useful thermal transfer 

modules must address this feature. Automatically included in this is the 

ability to transfer from finite difference heat transfer mesh to a finite 

element stress analysis mesh. 

lB. Accurate Transfer of Data 

Simplistic approaches such as averaging the closest nodes do not always 

yield accurate results, and the utility of the transfer program is then questionable. This criteria was met by using all available temperature information 

to do the interpolation and by using different mappings to correspond with 

different heat transfer elements. 

IC. User Friendly 

Programs which do not meet this criteria tend to be used incorrectly or 

as a last resort. The plan was to construct the thermal transfer module to 

encourage the analyst to use it. Any errors encountered by the module are 

flagged and reported with a diagnostic message. 

13 
ID. Computationally Efficient 

The program was coded to achieve an efficient flow of data. GEls past 

experience with TITAN has led to several improvements over the original 

efforts, and these have resulted in similar gains in 3D transfer problems. 

This criteria covers both searches to find the proper heat transfer element 

for a stress node as well as the single element inverse mapping functions. 

IE. Flexible 

The thermal transfer module was constructed such that future modifications, or even different applications, for instance, pressure or boundary condition transfer, could be accomplished without a full rewrite. This criteria 

stems from past experience in having to improve or draw upon old techniques 

which could almost, but not quite, perform the required task. The transfer 

module not only transfers temperatures in a state-of-the-art manner, but it 

will also provide a vehicle for other 3D interpolation based problems. 

Level II - Specific Criteria Required For Gas Turbine Design Problem 

IIA. Coordinate Transforms 

Coordinate transformation that allow the heat transfer model to be aligned 

with the structural model. 

lIB. "Out-of-Box" Provision 

Provision to account for stress nodes that lie just outside the heat 

transfer model due to slight differences in the dimensions used in the heat 

transfer and stress analysis models, as a result of using different tolerances 

on the actual component dimensions. 

IIC. Windowing 

Capability to "window in" on a smaller portion of the heat transfer model. 

lID. Selected Time Steps 

Ability to select temperature distributions at specific time steps form a 

large transient thermal analysis. 

Level III - Desirable But Not Essential Features 

IlIA. Automatic Handling of Temperature Discontinuities 

In the module these will be treated in a two-step manner. Total automation is possible, but has not been implemented. 

14 
IIIB. Scaling of Temperatures Based on Variation In Engine Power 

Level Settings 

Scaling of the interpolated temperatures based on changes in the heat 

transfer boundary condition, such as engine power settings, various inlet conditions or different cooling flows requires specific knowledge of the heat 

transfer analysis and will not be done inside the transfer module, but could, 

if desired, be applied by another program to the original results from the 

transfer module. 

IIIe. "Altered" Stress Geometry 

Many times the stress analyst wants to alter the part geometry to reduce 

his stresses, but the deviations will not, in the judgement of the heat transfer analyst, affect the temperatures. In the past, "ad hoc" procedures to 

transfer temperatures to the new stress geometry have been used. This approach 

is not optimum and has not been included in the transfer module. 

Table I compares each of the external transfer codes evaluated against 

some of the criteria chosen. This table illustrates areas where significant 

effort was placed to develop an accurate and efficient thermal transfer module. 

15 
Table 1. 

TRANCITS 

Codes Proposed 

GE Transfer 

Criteria MERLIN LOMAP TITAN Module 

Independent Meshes Yes Yes Yes Yes 

2-D Capability Yes Yes Yes Yes 

3-D Capability No Yes No Yes 

Thermal Mapping 

a Function of Heat 

Transfer Elements 

Coordinate No No Yes Yes 

Transformations 

'Out-of-Box' No No Yes Yes 

Provision Yes No Yes Yes 

Isoparametric 

Mapping No No Yes Yes 

Geometrical/Temporal 

Windowing Capability No Yes No No 

For Time Interpolation 

16 
6.0 DEVELOPMENT AND DOCUMENTATION OF THE TRANSFER MODULE 

The objectives in this task were to develop an efficient and accurate 

software package that implemented all of the features discussed in Task I and 

Task II. The development was divided into several subtasks, each of which 

addressed important program features that were critical to a successful code. 

The subtasks were: 

1. General Flow of Code 

2. User Input 

3. General Heat Transfer Input 

4. Specific Heat Transfer Code Input 

5. General Stress Code Input 

6. General Output 

7. Specific Stress Code Output 

8. Finite Difference Heat Transfer Code Consideration 

9. Finite Element Heat Transfer Code Consideration 

10. General 3D Search Routines 

11. Weighting Coefficient Routines 

12. Exterior Surfacing Routines 

6.1 GENERAL FLOW OF CODE 

Several factors were considered in developing the general flow of the 

code. These factors included: 

a. Program modularity 

b. Program efficiency 

c. Input/output requirements 

d. Internal data flow 

e. Flexibility/portability 

f. User friendliness 

The basic program flow is illustrated by Figure 6-1. 

Each of the boxes in Figure 6-1 represent program modules that have been 

coded to minimize the system dependent features of the transfer program. In 

addition to this, these modules communicate with each other through an internal 

file structure that is hardware independent, easy to follow and easy to modifi. 

17 
IINITIALIZE INTERNAL VARIABLES I 

, 

1 READ/PROCESS USER CONTROL DATAl 

I CREATE INTERNAL FILE STRUCTURE I 

(READ/STORE HEAT TRANSFER INPUT DATAl 

I READ STRESS MODEL INPUT DATA I 

PROCESS GEOMETRICAL DATA 

(ELEMENT TRANSFORMATION, ELIMINATION, ERROR CHECKING) 

" I COMPUTE ADDITIONAL GEOMETRY FOR FINITE DIFFERENCE PROBLEMS I 

SEARCH FOR CONTAINING HEAT TRANSFER ELEMENT I 

COMPUTE EQUIVALENT SURFACE LOCATION FOR 

STRESS POINTS OUTSIDE HEAT TRANSFER MODEL 

COMPUTE CORNER TEMPERATURES FOR FINITE DIFFERENCE 

ELEMENT 

COMPUTE WEIGHTING COEFFICIENTS FOR ALL 

STRESS POINTS 

COMPUTE TEMPERATURES FOR ALL STRESS POINTS 

FOR ALL DESIRED TIMES 

I FORMAT OUTPUT TEMPERATURES I 

Figure 6-1. Overall Modular Flow of Code 

18 
These features not only make the code very portable but also allow the same 

basic structure to be used in the future to transfer other types of loading. 

Additional heat transfer elements can easily be added to this ~cheme. 

6.2 INPUT AND OUTPUT 

The input and output information can be grouped into three basic categories. They are geometrical, thermal and user control data. Figure 6-2 

illustrates how these data interact with the transfer module. 

The user control data are input to the transfer module with a namelist 

input file. This file contains all of the variables that can be input by the 

user to control the interfacing procedure and is described in detail in the 

TRANCITS Users manual (Reference 2). Options such as geometry and temporal 

windowing, coordinate transformations, time step tolerancing and information 

about the type of input and type of output desired are entered through this 

file and help provide for the user-friendliness of the code. 

The other two categories of input are associated with the geometrical data 

for both the heat transfer and stress models and the temperature data that is 

the output from a thermal code. The transfer module has been structured to 

accept output of the SINDA finite difference code and the thermal output of the 

MARC finite element program. In order to satisfy these requirements and at the 

same time produce a module that can be used with a variety of heat transfer 

codes, a neutral heat transfer input form was developed. This input form will 

support both finite difference and finite element thermal results and is the 

primary input to TRANCITS. Compatibility with SINDA and MARC is accomplished 

by internally converting the output of these codes to this neutral form. 

The heat transfer input file consists of six partitions of data. These 

data are described in detail in the users manual. It stores all the sizing, 

identification, qeometrical and thermal data associated with the heat transfer 

analysis. It is important to note that the geometrical data is an essential 

part of this input. The geometry (nodal coordinates .and element connectivity) 

is the only link between the heat transfer and stress models. Without geometrical data an accurate interface cannot be accomplished. The thermal data in 

this file varies depending on the type of heat transfer analysis. Nodal temperatures are stored if the thermal code is a finite element type and elemental 

temperatures are stored if the thermal code is a finite difference formulation. 

The automatic interface with SINDA and MARC makes use of output files 

created by these programs. The MARC program produces an output file known as 

the MARC cost file. This output contains all of the data required by the 

transfer module to perform the interface. The SINDA code also has the capability to produce an output file. However, since SINDA is a finite difference 

program, there is no geometry stored on the output file. Indeed, the SINDA 

code does not require geometry as input. Only volumes, areas and distances are 

needed to predict the thermal distributions. Therefore, the raw SINDA output 

19 
'-" o 

SINDA TEMPS/GEOM (T /G) 

r MARC I TEMPS/GEOM :> 

? I T/G 

T 

R 

A 

N 

C 

I 

T 

S 

I TEMPS ~ .. NAS;~AN 

I TEMPS ~ MARC I 

TEMPS ? 

Figure 6-2. TRANCITS Schematic. 
is not adequate for the transfer procedure. This file must be augmented by the 

SINDA geometry file. At first glance this seems to be a severe limitation of 

using TRANCITS in conjunction with any finite difference code. This is not the 

case because in practice large finite difference models are not created manually. Pre-processors automatically generate the volume and area data needed 

for the finite difference analysis. The input to these preprocessors is grid 

point coordinates and element connectivity. This input is exactly what is 

needed for the geometry portion of the TRANCITS input. 

The input associated with the stress model is much simpler than that of 

the heat transfer model. To interface nodal temperature for the stress model 

all that is required is a file containing the name and rectangular cartesian 

coordinates of the stress points to be interfaced. This information is contained in the stress model coordinate file. If elemental centroid or elemental gauss point temperatures are requested, such as required by MARC, an 

additional file containing the stress element connectivity is also required. 

The primary output of the transfer module is a neutral temperature output 

file. This file consists of the name of the stress node and its corresponding 

temperature for every transient time point requested. This file can easily be 

input into simple formatting routines and the stress point temperatures can be 

configured into any form required. In addition to this neutral output file, 

the program has the capability to automatically format the temperatures 

compatible with the NASTRAN or the MARC analysis codes. 

6.3 FINITE DIFFERENCE CONSIDERATION 

There are two primary differences between using a finite difference code 

versus a finite element code in conjunction with the transfer module. The 

first is the potential lack of geometry associated with the finite difference 

codes. This has been discussed in the previous section. The second is the 

elemental locations at which the thermal results are predicted. The basic output for a finite element heat transfer code is the temperature at the nodal 

points. This is ideally suited for the interfacing procedure, since these temperatures along with the assumptions associated with the thermal field inside 

the element can be used to accurately interpolate data within the element 

domain. On the other hand, finite difference codes produce temperatures at the 

element centroids and perhaps at the center of the element faces. Temperatures 

at these locations are much more difficult to use effectively and pose a problem. The approach taken in the transfer module is to convert these elemental 

temperatures into accurate temperatures at the elemental vertices. Once this 

has been accomplished, the interfacing technique proceeds in a manner similar 

to the one used for finite element heat transfer codes. This conversion of 

the elemental temperatures to nodal temperatures is performed in two steps . 

. The first step is to map on an element by element basis the centroidal and 

face center temperatures to the element vertices. This mapping must be done in 

a fashion that is consistent with the assumptions governing the thermal distribution within the element. For a 3D linear finite difference volume, the 

assumption is made that the temperat~res can vary linearly in all 3 directions 

21 
between the face centers and the centroid of the element. Given the temperatures at the 6 face centers and the centroid, the temperature, at the eight 

vertices of the element can be computed making use of the 3D tetrahedral isoparametric shape functions. The equations that must be solved are of the 

form: 

where 

where 

where 

-1 T = [1, x, y, z] [c] T 

T = temperature at vertice 

x 

y = coordinates of vertice 

z 

T = known temperatures at the centroid and the three adjacent face 

centers. 

1 XI YI 

~1 

[C]-l = 1 XJ YJ 

1 ~ YK 

1 XL YL 

X1JKL 

Y1JKL = coordinate of the tetrahedral 

ZIJKL 

Note that [C]-l is only a function of geometry and therefore must only be computed once regardless of the number of transient time steps. This inverse is 

computed in closed form in the transfer module and is therefore efficient and 

accurate. Figure 6-3 illustrates the finite difference volume and the corresponding tetrahedral. 

Note that during this initial stage the actual temperatures of the vertices are not directly computed, only the coefficients that relate the temperatures at the vertices to those at the known locations are computed. 

The second step in this process is to compute a unique temperature at each 

vertice. This is done by weighting all of the vertice coefficients by a scale 

22 
• Face Centers 

S Element Centroid 

II Corner Temperature' 

Location 

Figure 6-3. Finite Difference Volume and Corner Tetrahedral. 

23 
factor that is inversely proportional to the distance between the centroid of 

each element adjacent to the vertice and the vertice itself. This technique 

makes use. of all of the surrounding temperature information to eventually 

produce a unique temperature at the vertice of each heat transfer element. 

Note that if the finite difference results are only at the centroid, the transfer module assumes the entire element was at that temperature. The weighting 

process however will generate different vertice temperatures since the temperature of the vertice depend on the geometry and the number of elements associated with that vertice. 

6.4 3D SEARCH AND WEIGHTING COEFFICIENT ROUTINES 

Two of the criteria that must be met by any transfer module are that the 

interfacing procedure be efficient and accurate. In order to satisfy the 

efficiency requirements, techniques were developed that rapidly determine 

which heat transfer element contains the stress points of interest. The 

approach taken was to invoke a "multi-step filtering" process. This process 

was developed and implemented such that most of the element candidates were 

eliminated using a very simple algorithm. The elements that passed through 

the initial "coarse" filter were then subjected to a more sophisticated test 

(ilfine filter") that determined if the stress point was contained within the 

bounds of the element. This search technique, like the vertice coefficient 

routine is only a function of geometry and therefore must only be performed 

once regardless of the number of transient solutions interfaced. The simple 

coarse filter requires that the minimum and maximum values of the x, y, z 

coordinates be stored for each heat transfer element. This procedure is outlined below. 

The stress point is outside of the heat transfer element if any of the 

following conditions are met: 

X < X 

s min 

X > X 

s max 

y < y 

s min 

y > X 

s max 

Z < Z 

s min 

Z > Z 

s max 

where X , Y ,Z are the coordinates of the stress point. For most models 

this te~hni~ue ~rastically reduces the number of heat transfer elements that 

could possibly contain the stress point. Note that this procedure is valid 

for any order 3D heat transfer element as long as the maximum and minimum 

values are based on all of the nodes associated with the element. 

24 
The technique employed as the "fine filter" actually performs two tasks. 

First it determines if the stress point lies outside of the element, in which 

case the next element is considered. Second, if it is determined that the 

stress point is contained within the element, it automatically returns coefficients that relate the known temperatures of the vertices of the element to 

the desired temperature at the stress point location. This "fine filter" or 

weighting coefficient routine is based on the inversion of the isoparametric 

shape functions. The choice of these interpolating functions was based on many 

factors. These functions are widely used for many finite element heat transfer 

element formulations. They can be formed to represent a variety of temperature 

fields and therefore ~an be used to describe the variation within a finite 

difference volume. They are mathematically easy to manipulate and understand. 

The inversion process involves solving for the so-called local isoparametric 

coordinates (r, s, t) based on the global coordinates of the vertices of the 

element and coordinates of the stress point. Regardless of the order of the 

element the following equations can be written: 

11 

X = L ct. X. 

i=l l. l. 

11 

Y = L ct. Y. 

i=l l. l. 

11 

Z = L ct. Z. 

i=l l. l. 

11 

T = L ct. T. 

i=ll. l. 

where X, Y, Z 

T 

X. Y. Z. l. l. l. 

N 

ct, l. 

represents the geometry 

represents the normal field 

are the coordinates of the vertices of the heat 

transfer element 

is the number of vertices 

are the isoparametric shape functions 

6.4.2 

The problem is to solve for local coordinates (r, s, t) that correspond to the 

global coordinates of the stress point (Xp ' Y , Z). The relationships between 

p p 

25 
the shape functions and the local coordinates are well known once the order of 

the element has been fixed. Substitution of these relations into the above 

summation along with the equating of X to X Y to Y and Z to Z yields a set 

of non-linear equations with r, sand t as gnknowns~ The localPcoordinates 

become functions of each other, global vertice coordinates and the coordinates 

of the stress point. 

That is: 

r = fer , s p' t p' X. , Y. , z. , X , Y , Z ) P P 1 1 1. P P P 

s = fer , s t X. , Y. , Z. , X p' Y , Z ) 6.4.3 

0 p p' p' 1 1, 1 P P 

t = fer , s p' t p' X. , Y. , z. , X , Y , Z ) P P 1 1. 1. P P P 

These equations can now be solved numerically to yield values of r , s , 

t. Once the values of the local coordinates are known, a simple test Bete¥-

m~nes if the stress point is contained in the heat transfer element. The 

stress point is not contained in the element if any of the following conditions 

are met. 

-1 > r > 1 

P 

-1 > s > 1 

P 

-1 >t > 1 

P 

If the point is found to be contained with local coordinates can be substituted 

into the expressions for the shape functions and the thermal weighting coefficient can then be computed. 

This is an ideal method for this interfacing procedure, it finds the correct heat transfer element and at the same time produces accurate weighting 

coefficients. Figure 6-4 illustrates this mapping technique. 

For this study the 3D linear isoparametric formulation was chosen as the 

interpolating functions for the heat transfer elements. The set of non-linear 

equations described in Equation 6.4.3 were solved by using a fixed point iteration technique in conjunction with an "educated initial value" procedure. 

These initial values are computed as: 

26 
z 

y 

r---------------~~~~~---------a--x Global System 

* I 

I r 

J--

/' 

t 

Local System 

Figure 6-4. Isoparametric Mapping of Global Coordinates To Local 

Coordinates. 

27 
r . = p1 

s 0 = p1 

x - x . 

p m1n 

X - X . 

max m1n 

y - y . 

p m1n 

y - y . 

max m1n 

6.4.5 

These initial values correspond to the correct values of r , s ,t if the 

heat transfer element is a rectangular parallel piped. The ini£ialPgue~ses 

are used in conjunction with the righthand side of the non-linear equation to 

produce new values of the local coordinates. This iteration continues until 

convergence is achieved. The initial implementation of this technique showed 

it to be very efficient and fairly insensitive to element distortion. Several 

highly distorted 8-node 3D elements were tested. Figure 6-5 shows two of 

these elements. Convergence was achieved for all points attempted using these 

elements. Once this technique was installed into the transfer module and 

actual problems were interfaced, it was discovered that although the iterative 

procedure was not sensitive to the shape of the element, it was very sensitive 

to the orientation of the element with respect to the global axis system. It 

was found that for some configurations, the technique became unstable and 

either diverged or converged to an undesirable root of the equations. 

Logic was added to the transfer module to avoid these stability problems. 

First, a coordinate transformation was applied to the heat transfer element to 

align the direction defined by I and J joints of the element with the global X 

axis. The iterative technique is then used to solve for the local coordinates 

of the stress point. If it fails to converge to the correct root, the program 

reorients the element such that a new vertex of the element is now the I joint. 

The alignment transformation is then performed and the iterative solution is 

repeated. If it still fails to converge a new vertex is chosen for the I 

joint and the process is again repeated. If convergence is not achieved after 

all the vertices have been used, the stress point is not contained in this 

heat transfer element. 

A 400 element airfoil model, shown in Figure 6-6 was run using this version of the transfer module. The stress points used were the centroids of the 

elements and 8 additional points per element that were very near the corners 

of the element. There were a total of 3735 stress points. After the first 

transformation 3728 of the stress points converged. The other 7 stress points 

converged after the additional reorientation of the element was completed. 

28 
6 

\ x 

r 

Figure 6-5. Highly Distorted Elements Tested. 

29 
Figure 6-6. 400-3D Element Air Foil Model Used As Test Case. 

30 
These results show that the initial transformation is adequate for most of the 

stress points and that the additional computation required for the vertex 

reorientation is only necessary for a very small percentage of stress points. 

As stated earlier the existing transfer module inverts the 3D linear isoparametric shape function. The technique used, however, can be applied to any 

order element with only small impact on the coding of the transfer module. 

6.5 EXTERIOR POINT SURFACING ROUTINE 

In order for the transfer module to be a useful tool, it must deal with 

stress pOints that lie slightly outside of the heat transfer module. This 

situation occurs for many reasons in practice, the most common being part 

tolerances used to create the heat transfer model and the stress model. It is 

not the intention of the transfer module to produce temperatures for stress 

Points that are in areas outside of the domain of the thermal analysis and 

therefore no extrapolation of temperatures are performed. On the other hand, 

if a stress pOint exists that physically represents the surface of the part 

and that point because of slight tolerance mismatches is not contained in the 

heat transfer element on the surface, the transfer module should produce a 

temperature that is representative of the surface temperatures. This has been 

accomplished in TRANCITS by implementing an exterior surfacing routine. This 

technique also makes use of the local coordinates (r, s, t). If the stress 

point lies outside the element, one of the local coordinates will be greater 

than one. For example, 

r = .6 

s = -1.2 

t = -.8 

This point is not contained in a heat transfer element since 

s 1 

A point that lies on the surface near the stress point would have local 

coordinate values of 

r = .6 

s =-1 

t =.8 

The distance between (r, s, t) and (r , s , t ) can easily be computed in physical space and stored. The heat transfer element with the smallest distance 

can then be used as the closest element and the temperature of the surface 

point can be produced. This allows the transfer module to predict an approximate temperature for the stress points that lie outside the heat transfer 

model. The program flags all stress points that exhibit this behavior and 

also prints out the distance between the actual coordinates of the stress 

31 
point and the point on the surface for which the temperatures were computed. 

Users should pay close attention to these points and judge if the distance 

outside the model is acceptable for the analysis being performed. Figure 6-7 

illustrates this surfacing technique along with the options of built in transformation and isoparametric mapping techniques. 

32 
w 

w 

Exterior PoInt Method laoparametrtc Mapping 

)( Siren PoInt 

........ T .............. 

loc:aIon 

., 3 

~ -

• I 

• 

T ... '''''t Tit T,. T • ."..,...., 

'Bunt In'Tran.formetlonalWlndowfng 

.,,........ 

t:r.J:] I II~JJ:TA{;:'lh""iI 

xn.n...e / ....... 

z 1'hertMI z s ..... 

Figure 6-7. Enhanced Program Features. 

4 

-p 

'I. 

J 

2 

., 
7.0 VERIFICATION AND DOCUMENTATION OF THE TRANSFER MODULE 

Two objectives were met by the verification and documentation phase of 

this contract. The verification subtask provided the necessary test cases to 

ensure that all of the options implemented were producing accurate and efficient results. Indeed many efficiency improvements were identified and implemented in this phase. The purpose of the documentation subtasks was to provide information required to use the transfer module as well as the documents 

needed to understand and possibly alter the coding for specific problems. 

7.1 VERIFICATION OF THE TRANSFER MODULE 

Verification of the transfer code was performed in parallel with the 

development effort. Each of the modules in the code were tested to ensure 

that the input and output of those modules were consistent with all file structures. All user options were executed and thermal results from both SINDA and 

MARC were directly input and processed by the transfer code. Nodal temperatures for NASTRAN were produced as well as elemental centroid temperatures for 

MARC. 

Formal verification- of the mapped thermal results were conducted using 

three different 3D models. The primary objective of these test cases was to 

ensure that the thermal data produced by the heat transfer codes was not 

degraded in the mapping to the stress analysis models. The verification procedure involved comparing the results of the heat transfer code to the interpolated temperatures produced by TRANCITS. Comparisons were made using two 

different methods. The first method plotted the heat transfer results and the 

TRANCITS results against the model geometry for various regions of the 3D 

models. These plots were used to verify that the thermal gradients predicted 

by the heat transfer analysis were indeed mapped into the stress models. The 

second comparison method utilized the PATRAN Reference 3 postprocessing program. Colored isotherms were created for the stress model using the interpolated temperatures and then for the heat transfer model using the original 

heat transfer results. These two sets of isotherms were then compared for a 

qualitative check on the thermal gradients. 

The first test case was a simple model of a rectangular prism. The heat 

transfer mesh was composed of a 2x2xS grid, the stress mesh was much finer and 

had a mesh density of 4x4xl0. These models are shown in Figure 7-1. The 

boundary conditions applied to the heat transfer model give rise to a linear 

thermal gradient along the length of the prism. The transfer module was used 

to map these temperatures into the finer stress model and Figure 7-2 shows a 

plot of the heat transfer code temperatures and the TRANCITS temperatures 

versus the distance along the prism. The figure shows that for this simple 

case the interpolated values agree exactly with those predicted by the heat 

transfer code. Figure 7-3 and 7-4 show the isotherms for the heat transfer 

model and stress model respectively. Visual comparison of these isotherms 

again indicate the same thermal gradients in both models. 

34 
..I 

W 

Q 

o 

:IE 

f/) 

f/) 

w 

a: 

lf/) 

..I 

W 

Q 

o 

::E 

a: 

w 

LL 

f/) 

Z 

e( 

a:: 

lIe( 

W 

::z:: 

35 
VJ 

0) 

, 

I 

II 

II 

( 

• A 

, 

U 

, •

( 

, 

» 

..... I : 

...... 

a..e. 

, .... 

MI. 

... 

..... 

MI. 

. . o iHeat 'l'dansfer iCode. :'l'emper~ture Distribut.ion . ________ .~ 

I ••••.• __ ~ 0 __ • ___ ••. 8 

~ .••• _____ 0 ~._o_ •..•. • ~~.-.----~ 

4 __ ..•.•.. • 

~. __ . _____ a ~.G ••••••••• L. _______ .~ ••• _ ••• __ ~ ______ o_ . . . . . . . . .... . · . . . . . . . . . . · : 0 · :Transftlr · Module · 'l'emptrature:Distribution · · · · : : : · · · r • I • a I • • • I I • · . .. .... . · . .. ... . • • • \I •• •• • 

-···--·--~··-···--~·-···-···t·-··-·---~---······t···-····-t--·······t··----·--t·········t--------·t········-t--------- • I • • • • • • • • • • • • • I • • • ., • • · . . . . . · . . . · • . I . 

• • 

.. • I • • • • • • • • • • • --------......... • --..... • -----....... • --.-.... -~---- ea. .....••.. --....... -..... --.---...•. •.. ----.-~-• .... -. 

..... ~. -~---~---

• • • 0; • • • • • · . . . . . . . , • • I •• • • I • •• • • I • •• • 

-.... --~---.--.-. 

· · • • • • · .. . . · .. . . .. . . • • • G ..• • • • • • .--e--·-·t······---t------···t·····-··-~·--_o····t·····--.-t-_·······t.-_···_-

.e_.o .•. _L ________ ••• _ ••• __ ______ ._ 

• • • • • • • • • • • I • • 

.. 

• • • (j • • • .. . .. . .. . . •• • · • . • • • • & • • • 8 • f) • o _______ .~_o_ ... __ ~ __ . ____ .. ~o ... _____ ~_ .. _o .... ~ .. ____ -_ • • 0 • • • 9····.···O ______ ~.~ ••• O.O ...• _____ -_-.••..•••.• -~ ___ -_.--- • • • 0 • · . . . . • • e Q • • • • • • • • • & • • • • • • • • I • • • • I • • • • • • • • • • · . • e • • 

· · . . . • • • • • • • • • • • • • • I 

--.--.-.~o ... o·---t------···t···----- ---··-··t··-------~--··-·-·ot·-----··-t·········t--------·t--······-t·--· .. ··· · . · . . , . . . · . , . . . . . . · . · . . .. . • I 

I 

• • • • I • I I I •• • • • • • • I • • &. • _ •• _ •••••• I; _ •• ___ ... a __ .......... • __ • ____ • ~._ ••••••• • ~. ________ I ~o ••• o •••••• • ___ • __ •• • ~ •• __ ._. __ 6 ~ ________ _ 

I :. : I : : : : : 

: : I : : : : : : · . . . . . . · . . . . · ". . • 0' :!;: · " . .... I ... a ... I." .... »... a.M 4." 4.M 5." 5.M . ... .... 

_1& lin .... (1ft' 

Figure 7-2. Temperature Versus Axial Distance For Beam Test Case. 
Figure 7-3. Heat Transfer Model Isotherm. 

37 
Figure 7-4. Stress Model Isotherm 

38 
The model used for the second test case is shown in Figure 7-5. It is 

finite difference model of the tip of a turbine blade composed of approximately 450 heat transfer elements. For this case the stress model mesh density was identical to the heat transfer model. The transfer module was used 

to map the heat transfer temperature at the centroid of the elements and the 

face centers of the element sides to the vertices of the element. The boundary condition applied to the heat transfer model represent realistic conditions for a turbine blade and give rise to gradients in all directions. Figures 7-6 thru 7-11 show plots of the original heat transfer temperatures and the 

transferred corner temperatures against a local distance parameter. These plots 

are for 3 spanwis~ sections through the airfoil (Tip, Middle, Root Sections) 

for both the concave and convex sides of the blade. The local distance parameter is measured from the leading edge on the concave side and the trailing 

edge on the convex side. The first two curves on each plot represent the 

temperatures for a layer of heat transfer elements just above and just below 

the corner node temperatures. As the plots show, the corner temperature distribution not only has the same trends as the original heat transfer temperature distribution but the value of the temperature at each corner node falls 

in between the temperature above and below the corner as computed by the heat 

transfer code. 

These comparisons provide excellent verification of the accuracy of the 

transferring technique. 

Models representing the final test case are shown in Figure 7-12. These 

models represent a 3D sector of a combustor liner. The mesh density for the 

heat transfer model is finer than the stress model in some locations and 

coarser in others. The boundary conditions used in the heat transfer model 

once again represent typical engine conditions. Figures 7-13 and 7-1~ show 

isotherms for both heat transfer and stress grid respectively. These isotherms 

also verify that the gradients are essentially the same for both models. 

7.2 DOCUMENTATION OF THE TRANSFER 

The documentation of this code was divided into two segments. The first 

was the TRANCITS User's Manual. This manual describes in detail all of the 

input and output file contents for the options implemented in this version of 

the transfer module. It shows examples of these files and discusses how the 

code should be executed. It also has a complete description of all the user 

input variables and what defaults if any are used if these inputs are omitted. 

The manual specifies the current limitations of the code in regard to maximum 

size of problems that can be interfaced. The manual should provide all of the 

necessary information required to use the transfer modules. 

The second involved the documentation of the coding of the transfer module. Listings and prologs of each subroutine used and a flow diagram of the 

entire code have been included in this report in Appendices C and D. These 

prologs are part of the source code and they give a brief description of the 

purpose of the subroutine. They also describe all of the calling arguments 

and whether these arguments are inputs or outputs to the routine. All files 

used in the routines are specified as well as any routines that are called 

39 
-SAME MESHFINITE DIFFERENCE HIT 

FINITE ELEMENT STRESS 

Figure 7-5. Airfoil Test Case Model. 

40 
· • 

· -sa ! -1!l·l·i ......... i ......... i ......... ~ ........ i ........ -1-········1·······_-

:I: • · • . • • • • • 

· · . . · . £104 

· · · . - . 

. . . . . . ---...... ~ ......... ~ ......•.• ~ ... -..... ~ ........ ~ ....•.... ~ ......•. ~.--.... -. 

•• • • • • • • : : : : : : : 

: : : : : : : 

• • • • • • • • • • • • • • • • • • • • • _ •••••••• ~O ••••••• G~ ••••••••••••••••••• ~ ••• ••• ••• ••• ••................. _ ••••••• · . . . . . . · . . . . . . ..,,. 

· . . . . . . . . .,. ... ., .... . ·-_···--·i·········i········ ., 

•• 

······1·········1·········1·········1········· .... 

•••• ., 

.. 

•• .... 

... 

•••• . ..•.•...• ~ ...•••... ~ ..... 

· ............................ 4 .................. . · . . . · . . . · • • • • 

· • • • • 

· · . . . · • • • • • • • • • • • • • • 

• • • • • ••••••••• 4 ••••••••• ~ •••••••• ~ ••••••••• • • • • ··1·········1·········1·······_- • • • • • • • • • • • • • • • • : : : : · . . . _ •••••••• 4 

· ..................... . . •• •• ••••••••••• . · . . . · . . . · . . . · . . · . . • • • • • • • • • • • • ········-1·········1········-1c ••••••• 

t • • 

• • • • • • • • • · . · · . . ••••••••••••••••••• · 4 . •••••••••••• • · . . · . . : i i 

: : I • • • • • • ..... -i ........ e 1-········i········ 

: : I 

• • • · • . • . • · • . . • • 

· : ! : 

• • • 4 • • 

...................... · . · • . • • • • • • • : 

• • 1·········1-·--····· • • • • • • • • • • • • • • • • • .•.. --..... ~ .... -........... .. · . • . • • • • • i I 

• I • ··t·········i····· .. ··,· ... ··· .. : : I 

• • • • • • • • • • • • • • • • • • ·········t········-4····· ... ·t .... ·•·• ........ ~ 

· ••••••••• -c . . ••••••••• ~ •• 

i 

• • I I 

• • • • • • • • • 

i i 

... ..,c&...,ac ... ,. .. 

I I I I 

i 

I 

-· 

~ 

- J:: 

0 

'r-! 

I -I-J 

· C) 

- QJ 

CI.l 

p., 

'r-! • E-i 

· QJ - "'Cj 

'r-! 

CI.l 

I QJ 

· :> 

- Cd 

C) 

J:: 

0 

I u 

· C/) 

- -I-J 

0 

..-i 

P-< 

I J:: 

· 0 • 'r-! 

-I-J .,-.. 

Cd..-i 

C) 'r-! 

, 'r-! 0 4-1 4-1 -I 'r-! 1-1 

1-1 'r-! 

QJ< 

= ::>'-" 

.-- QJ..-i 

· 

1-1 QJ 

• ::l"'Cj 

-I-J 0 Cd~ 

1-1 

QJ QJ 

• p.,co 

· 

S 1-1 

• QJ Cd 

E-i....:l 

• \0 

• I • '" QJ 

1-1 

• ::l 

- co 

.- 'r-! 

~ 

41 
w:::. 

I.\j 

., 

I 

.. 

, 

• • ., 

.. 

I • 

"., :.. 

• : l!I ....... : : · 0";"" : : : .. ..-...". · . . ~ ... .....~ • • • • • • • • • • • •••••••• ~ ••••••••• ~ •••••••• ~ ••••••••• ~ ........ ~ ••••••••••••••••• o ••••• oo •••• ~..... ..~e •••••• _.~_ •••••••• • • • • • e • • • • • 

•• 

• • • II • 0 • • • • • 

.. .,. 

• I • 

. 

• 

•• ••• • • · . . . · • • 

... 

• • I) • • • 

·······~·········t········-t°····o···t········-t~······· ·t·········to········t····· ··t········-t········· 

• • • • • • • • • • • • • • • • • • • • • I • •• ••• · 

• • .. •• 

• .... • ................... e ••••••••••• • •• 

_.......... • .................... . • (\ 0 • 00 •• · . . . . • 0 • • • · : : : : • • • • · . . · . · . . ... • • 0 • e • •••• -t ••••••••• tg ••••••• -t..... ·····too •••••• ~.e.oo •••• • • ........ ~ ........ ~ ....... . • • • • e I • 

· " • & • 6 • • · . . • • • • 8 • • • 0 It • e & • 0 • 

........ __ ........ ~........... O ... G................... . .....•...... o.~ ........ o 

• • • (I e • • e 

, .. • • • e I • • • • • • • • • • • • • • • • · • • .. 

• • • . • . • 

•• · . •• . • • • • • • • • • ... ...~·········t·· ······t····· oe····t· .. ······t·········t·········t········~··· ... ··· • • • ~ a , • • • 

· · . 

. . . . . . . . . . . • • • • • • • I : : : : : I 

• • • • • • • IIII.~ dE •••• ~ ••••••••• ~ ••••••••• ~ ....... ~ ................. ~ ••••••••• ~ •••••••• ~ ••••••••• ~ •••• ~ •••• ~ •••••••• ~ ........ . 

t • • • • • • • • • • 

I · : : ' · · e I I I : .. : : : : : : . ., 

.. 

· . . " . . 

. .. . .. 

.. a •• ' : · " ; . : .. :: 

I. '.11 ••• .... •.• I." ••• a •• a •• a •• I •• I,. 

Figure 7-7. 

I • .,.. 

Temperature Verification Plots Convex Side Tip Section 

Large Model (Airfoil). 

I •• 
· • 

· -Jl ! .~~.Il.~ ...•• -... i ......... i ......... i-........ 1 ........ ·1-········1--······· 

• z fr • • • • • • • · · · • 

· ....... _.~ · ••••••••••••••••••••••••••••• . · . -. 

. ••••••••••••••• . ••• 4 . 

••••••••••••••••••• . · . . . . . . • • • • • • I I • • • • • • 

: : : : : : : 

: : : : : : : • I • • • • I 

-........ ~ • .•.•.••.. ~ • .........•....•.... • ~ • ..•.••..•........• • ~ • ........ , 

• .. -..... . · . . . . . . · . . . . . . · · . 

. .. .. .. " ., · .. .. " 

· · . . . . ... 

" . .•• -... -.°16 

I' 

........ -1····· ..... f· .•.. -1--·'· 

•••• 

..• -1- _ •...... i-'" ..• -·1-···· ..•. 

I' 

•• 

•• 

•••• 

••• •••• I 

•• I. 

••• I I I · . . . . . , .••...•.. ~~ .. -.--.. · · · · · 

............................. 4-••••••••••• __ ••••• 

.. 

. . . . . .. 

•• . • 

. ... . • ---...... ;;;;:::::==---~. •• . .. I • • :~.::-:-:~~!lt~' dr:l=' • ·········1·········1·········i·········1-····· ······1·········1········· 

• • •• •• : : :: • I 

· . .. I • I • • · · • . . 

• .. . • .. • . . ·········~·········~·········~·········~·········1-··· .... . ... :-.......• · . . .. . · . . .. . · . . .. . · . . .. . • • • •• • • • • • : : :.: : : : ·········1·········1---······1·········1·········1···· .•... ~. --i-----···· 

• • • •• • • • I •• • • • • I' • • I • •• • · . . .. . · . . .. . · . . .. . •••••••••••••••••••••••••••••• · . . o ................. .. ~ •••••••• . · . . . . · . . . . · . . . . • • I • • • • • • • : : : :: . : : :: : 1 -..... ···i-·· -.-... -t-••.. _ ••• t·· ••..... ~ ,- ..••.. ·-t··· ..... ~ ...... - • •• • · • I' 

.. .. 

••• . · ., .. . • • •• ••• 

·-·····-~···-·····1·········i········· · • .. . ······t·········i·····--_·t·· ... __ ·· __ · · . . . . . . · • .. •• .. I, I I •• • • • I 

• • • I : : 

i i i i i i .................... 

I 

-· 

• .. · ~ 

0 

• ..-1 

oI-l 

I c:.J 

<1J 

· .. Cf.l 

"0 

• ..-1 

• ::E: 

· 

<1J .. "0 

-..-I 

Cf.l 

I 

<1J 

~ 

-· c:.J 

~ 

0 

C,) 

I CJ) 

· oI-l .. 0 

,..., 

P-I 

I ~ 

0 

· ...-1 

• oI-l "...... co,..., 

c:.J • ..-1 ...-1 0 

~I 4-l4-l 

...-1 lo-l 

lo-l • ..-1 

<1J< 

:>--

- <1J,..., 

I • lo-l <1J 

::l"O • oI-l 0 co::E: 

lo-l 

<1J <1J 

0-.01) 

, S 1-4 

<1J co 

· E-it-:J • 00 

I I 

• r---

<1J 

lo-l 

::l 

• 0.0 

• ..-1 .. ~ • 

43 
~ 

~ 

, 

I 

" 

~ 

• 

, • 

I 

I 

II"~. . . 

... 

a_. 

I_I 

.... 

: I!J tnt ...." 

: e ..,c UWI 

: •• ft1IP • • • • • • • e • • • ......... ,•••••••• ~ ......... , •••••••• ~ ••••••••• ~ •••• o •••• ~ ••••••••• , •• o_ •••• ~ ••••••••• ~ •••• _ •••• ~ ••••••••• ~ ••• _ •• _ •• • • • • • • • 0 • • • · ...... . · 

• .., •• e 

• • ••• 

•• 

· 

• .. &. 

o. e •• • G •• e 

• ... ·-t.·.····~ .. ·· •• ··t···o·····t·····o···ta.e····.·t.··o.o···t··o_.e··_to········~--··----·:·········t··-··-··· • • • 0 • • • • • • • 

: • : • : : • • : Gr.' : · . • • • • ~._ • • • •••• ~ ........ ~ ••••••••• ~ •• o •••••• ~ •••• o •••• ~ •••••• oe~ ••••••••• ~ ••• 

• • • • • 81 • 

• • 

· . • • ....... ~ ........ ~ .... .. • • 

· · · • • • 

• D • •• • • • • •• • • • • •• • · • • • 

.,.. 

• . : : : 

'·······-t·········t···e • o· .... -t •••••••• ~ • ~ . .. .... • 

· . . 

-.•.....••.. ~ .. -..... . · . 

· • • • • 

· o · .• 

·····t·········t········· 

• • 

· ................................. ~ .••••• ~ ................... c .................................. . 

: • : • ., : '; :::.:: • 0 • • • • • • • 0 • 0 0 • • 

• 

• •• 

• • e ••••••• •• 0 • • .. 

• • •• e. ~ , • • 

• 

• • 

0 , 0 

• 

• 

t-

• • 

0 • 

• 

8 

t ••• • • • 

........ ~ •••••••• -t ......... ~ooeo •••• -t .... • •••• t ......... t •••••••.• t&·· ..... -t·o •• oo.~.~o····-···t···e •••• ~ ........ . • • • • t • II CI • • 

.. • f •• . . • 

•• • • • • J I • : ••• 8 •• : 

1~ - ~ .................................... , • • o .................. • • ~ • ••••••••••••• • o.a ... • ~ ••••••••• • ~ ••••••••• . • , •••••••• ~ • •• ___ •••• 

· I · · · · · · · · I I ....... . • • • • • • • • · . . . • • • .. • • • ... • • • . • 

· · . . .. ... . . . . . . . . aM.1 i ! I: i ! ! I 

't •••• I •• 

Figure 7-9. 

. ... .... . .... ••• I.M a •• I •• a •• 

II .... 

Temperature Verification Plots Convex Side Mid Section 

Large Model (Airfoil). 

I •• I •• 
· • 

· t 

t 

• • • • • • • • · • . 

• . t • • • • , . . . ········i····--···1--·······t·········~·········i··· .. •• .. 1-········1······· .. · · . . . . . . , . . . . . · • . . . . • • • • . • . • .. 

· . . ... ..... . . . 

. •.•... -.-~ · ... -.•... ~ 

. .. -...••• ~ . .....•... ! . . .•.... -.. ~ ......... ~ . . ........ ~ ........ . 

· • . • . • • • • • · . . , 

, . . . 

, . . • • • • • • • • • • t , • • · • . • • • • • • , . . , . •••••• _ •• 4 • ••• _ •••• G4 • ••••••••• ,.~ • ••••••• ~ • ••••••••••••••••••• • ~ • ••••••••• ~ • ••••••••• · . . . . . . • • • • 0 • • · . . . . . . · . . . . . . .. · • . • . • ... . • . • . . • • ., ... . . · . . . . . . -.. ······1·········1-···~~·1·········i·········t········-1-········t········· · ."., . . . . . , : • : : : : I , • • ..... • • • • • 

••••••••• 4. · : .~ . ••••••••••••••• . 

::::: 

. _ ••• 4._ . .......•.•.•..... . . 4-•••• ___ •••••. •••••• · . . . . · . . . . · . . . . · . . . . ~~~r.:~::::~it=:~:::::;~~;;;;~~· ........ "l·" · · , . . . •• · ••• . . . • •• · .. ······1·········1-········1·········. ········1-········1········· • 

· . 

• .. •• •• ! I • • • • • • • • : : :. I · · . . . . .. . . ••••••• 4 ••••••••• ~ •••••••• ~ •••••• ···.·····-············· •••••••••••••• · . . .. . · ., . . · . . . . · • . . . 

• • • . • · . . .- . • • • • • • • • • • • • • • • .. ·······i·········1·········i·········1-········1······ ... - • • • • • • : : : : '1 : 

· • . • •• . . . • 

· • ., 

•• • 

. ........ ~ 

· ...•..•.. ~ . ........••......... . ~ . •••.•••.•......... . ~ . .... -. 

· • . . • • . • . • . • 

iii · .. .:~;;J·~~I!~~ti~::~::::i~~~~~lr.:::: . : • •• • • • •• • ········i·········1·········t········· J .0 ••••••••• 1 ......... t ••••••.•• 

: :: . : 

• • •• ••• 

· • .. •• .. . • -'~. l' ., .. .. .. . . 1!~ .J ••••••••• J ••••••••• ,......... ····i·········1·········, .. •······ 

::! j I I I i 

i i i iii i .. w ........... .. 

I 

• · 

• • • ~ 

0 

-r-! 

I +.J 

CJ 

· 0) • CI.l 

+.J 

0 • 0 

· ~ 

• 0) 

"d 

-M .' CI.l 

· 

0) 

• i> 

~ 

CJ 

~ 

I 0 

u '. · CJ) 

+.J 

0 

...-I 

I ~ 

• ~ • 0 

-M 

+.J -. 

~...-I 

~I CJ -M 

-M 0 4-1 4-1 -r-! 1--4 

1--4 -r-! 

0)< 

- p. ......... 

I- 0)...-1 

• · 1--4 0) 

::l"d 

+.J 0 

~~ 

, 1--4 0) 0) 

· 

0..00 

• S 1--4 0) ctl 

E-t....:l 

• 0 

• · ...-I 

I 

I'-

0) 

• 1--4 • ::l 

• · 00 

'M 

~ 

45 
~ 

m 

, 

I 

II 

i 

, 

.-

I 

I 

., ... , . . 

... 

a •• 

... 

a_. 

••• 

: I!J ... ...." 

: e ~ a.M. : .... flIP 

• • • • • • • • • • • ••••••••• ~ •••••••• ~ ••••••••••• OG ••••• .4 ••••••••• , ••••••••• ~ •••••••••••••••••• ~ ••••••••• ~ ••••••••• ~ •••••••• _~ ••••••••• • 0 & • • • • e • • • • eo. • •• •• • • 0 • • " •• 

• • G • • •• •• • 

• • • • I • • • • •• •• •• •• 

• I • • · 

• • •• 

.. • e , • . 

• 

·········t········-t·········t··o······~·········t·········~·········t······o··t·········t·········t·········t·----.··· • • • I • • • • • • , 

· • • ..... • • • • • • • .. • • 

· . . • • • • • • • o • • • • ~.. • • • • • • • • • • • • • • • ._ •••••••• __ ••••••••••• o ...... ~ •••••• e •••••• o •••• _ •• _ ••••• O •••••••••• ~ ••••••••• ~... • .................... . 

• • e leo " j) • • • 

• • $ • • • , . • . • . • 

• • • • • • .. 

• . • . . a , 8 • • e • 

··t·o~o····-t···-·····t·······-~·········t······ .. ~·········t·· 

:~~~ ........ ~ ...... . a a • • • • • • 

· t • $I • 

o 0 e I} • 

........ ~ •••••••• ~ .... o.. • •••••• ~o •• _o •••• ~o •••••••• ~ •••••••• ~' ___ ~ 

.. •• .., 

0 8 • 

• I •• 

· · I • 

-····t········~···--···· 

• I · · · • • • ••• e ..................... · . · I . • 

:: • .... • ~ eo 1\ . 

• 

• •• I 

• • • ••• • • ....... ~········~· .... ····t···· ·········t····· ... -t°. • •• a···· .. ·t········~· ... o.e. 

: 

· 

o . • . • .. • •• 

. . · . . . . : : : : : 

: I : : : • • • • It • • • • • • 

................ ...-.................. ~ .................. ~ ............................. ~ .... -.... ~ .................. . I • e • • • • • • It 'I ' . . I · · · · · .. 

• • t. • ....... ....... .: • ••• I • • " . .. ... . •• ••• . 

• I· .. •• _.' ,. teo ••• I ; 0 n • 

I. I.'. I •• 

Figure 7-11. 

I •• I.. • .... I •• a •• a •• , .. .... IIIfMCI 

Temperature Verification Plots Convex Side Root Section 

Large Model (Airfoil). 

a •• t •• 
Lx . I I Lx 

HEAT TRANSFER MODEL STRESS MODEL 

H::-

'I 

Figure 7-12. Combustor Liner Test Case Models. 
48 
49 
from the subroutine. Commons that are used in the routine are also noted. If 

there are any special limitations or comments, these are described in the 

prolog. 

The flow diagram gives a concise picture of the program flow and provides 

a convenient reference for which subroutines are a part of each module. This 

and the program documentation should enable any user to understand and perhaps 

adapt this transfer module to their individual needs. 

50 
8.0 CONCLUSIONS 

The TRANCITS software package accurately and efficiently transfers thermal 

data from a 3D heat transfer study to a 3D stress analysis mesh of different 

elemental density. The heat transfer analysis can be performed using finite 

element or finite difference techniques. TRANCITS currently supports the 

output of the MARC and SINDA heat transfer codes directly and will format the 

thermal data compatible with the input requirements of NASTRAN and MARC. In 

addition, the neutral heat transfer input file and neutral temperature output 

file can be used to interface the results of any heat transfer code to any 

structural code. The transfer module has been written in a modular fashion 

. and is easy to implement and modify. The technology developed to transfer 

thermal data forms an excellent foundation for the transfer of other engineering parameters such as pressures, loads and displacements. 

51 
This Page Intentionally Left Blank 
APPENDIX A 

Survey of Computer Programs for Heat Transfer 

(A.K. Noor) 

The following tables and discussions were extracted from A.K. Noor's paper 

"Survey of Computer Programs for Heat Transfer Analysis." 

These tables illustrate the solution capabilities, the heat transfer elements supported, the pre and post-processing options, the type of boundary 

conditions supported and any interfacing options for six of the heat transfer 

codes considered. 

53 
\ 

~ 

) 

. :' 

" '::,. 

'; 

'I, 

i '".: 

.; 

.j 

l'i 

~ .1 

CJ1 

w:::. 

Table 1 

" 

,.,t I .. _1,Uc.1 C. ...... IUes of the I'r •• 

u ~ I en 

9 ~ >t ~ 

~~ en ~ ~ ;) en .... I 

10 GR1 of 'rotr. 5,,'a .. 

,-",r.l PMrpose • • • • • 

- . C .. rd.l • • • • 

les •• reh • • • • 

- Educ,tlonal • • • • 

Othen (see ,ro" •• ltstrKts' , 

2. MetW of Anal,s's I 

F .... It l1t11et1ts • • • - F._Itt .Ifferences . • • • - -------~. lou""." Integr.l Method • 

hrt .... - Uon technique -- Myw'd Anal,tlcal - "-erlc.l Tee ....... Isee ,.,,;.._ .bstracts' 

Othen (see ,rev-•• strlcts' • 

3. SpIce O'.ens'onat.t, 

three-Ot...ns ..... l 

• • • • • • 

f .. lI.nsl .... l 

--- -- • • • • • • J 

One-It'.",IGnll • • • • • • . J 

*Extract\!d forlft n~urvcy of Computer Pror.rnr.1!J for Ueat Analysis" By A.K. Moor • 
c:n 

c:n 

4. 

s. 

Soli., of Revolution 

---------.-----_._-- _. ---- ....... .., llMents 

-- _._---_._-----_ .. Stll.r lle111!nts 

. --------- ----------.. -- 'oint t:.tlCt UetIII!nts - Others bee progr_ IMtrattl) . ltange or ArtPi 'cat 10M .... ~ 

llnelr Steldy State 

-. ~l'n!.r St"'1 St.te 

- -- the .... l Frequencies .nd Itode Shapes - linear 'ran~lent Respons. . -- Nonlinear tralll.nt R.sponse 

-------.------ ---- Others (set p~ .. ahstr.ct~I 

fo,.. .. U ... 

II F ..... nlll UnlllONfts 

- tllllper.tures 

-

- .. _. 

'8IPtf'ltvres I_ Uti. 

- ["thaI 1'1 - - I Others (see ,rogr ... Mtr.cts, - f 

h' [1lMent.l Matrices J ---- Conduct 10ft f 

-.---1 

en 

9 t; u ~ ~ ~ ~~ .... 

en 

• • • 

• 

• • 

• • • 

• • • • • 

• • • • • 

• • • • • 

• • • • • 

• • • 

• 

• • • 

~ , 

• 

• 

• 

• 

! 

~

,

"i"

f I' 

r

l 

r

. 

r-

~ 

~ ~ 

. t 

F

f~ 

;'-.

. 

~ -

! 

.. . r 

~ 

:'.- 

I' 

f 
56 

. ............. _ ... ~-:.:..~~- ...... ......... _\ .... :. 

a.tHl • • • • • 

vaNIS • • • • • 

N\'1t.l 

-SVN ••••••• 

:n:IVl-\ • • • • • 

• 

SlSl\TV • • • • • • 

I I 

-III -.. -III -.. 

II 

J 

-u 

! 

I I 

-

j 

I 

" .. : .... ..;~ .......... :- ... ':.... ... /~ .... :~'. ' ...... ~ '. ,. 

• • • • • 

• • • • • • • • 

• • • • • • • 

• • • • • • • • 

• • • ••••• • 

• • • • • • • • • 

I I I ~ 
01 

""-l 

. 

1. 

I. 

. I _________ lItent ne.t and MIIse [Ita. tH«1I . ______ .. ___ .••• _. _____ .... .. _. ___ .-J. __ . ___ • _ ...... .,. ..... 

Mater'.' Added or 11811ftC1 Our"" Anal,ds . __ .. ------_ ..... ----.--.-..... 

-.----- .. -- -- _. -.. ---- _____________ 

User Supp1lM (see pro,.._ ... ___ ahstracts, 0 ________ 

. ..... _____ • ___ •••••• _. 

Others Is .. Pro9r .. abstracts' . Inlt'a' Cendltlons 

''-"Jeneous. 

--_._----- --.--~-----.---

'a..,t", ' ............ t the lIe9'" 

-------.-- .---~----.--. ---------_ .. Inltt •• tnthalp, (for Phlse Chlnge, ........... _-_ ...• _- --_._----.----.•. ------- ._-

User-Suppllecl 

----------- _.-_ .. _.--._-_._._. 

-----.-... Others hee pnMJr •• hstrlCh' 

....... .., Conditions and the .... 1 toads 

'resct'''' '.-per.tures ., Stead,. State ----------_._ .. _----_. h) liMe DflteftClettt -----.. --- _._--------------- t..,... rlul Input a' Ste.dy 

-.---.----_._--- b) ,.....,.,..t .... e .~"'t .--.. --_ .. ---.. -----.. _-----_. 

c) 11_ """IM) ------ .. ----- _. -------------- C .... Ktlon r ..... Surface a' Ste • ., St.te 

to Us Surround'. ..-----------------.---

h, 'I •• pe .... t 

en 0 

t; ~ 

~ ~a E ~ fil 

• • 

• 

• 

• 

• • • • 

• • • 

• 

• • • 

• • • • 

• • • • 

• • • • 

• • • 

• • • • 

• • • • 

• • • • 

<: 

~ .... 

en ~ • • 

• 

• 

• 

• • 

• 

• 

• • 

• 

• 

• • 

• 

• • 

---

I 

I 

i 

I 

i 
I:!' 

CJ1 

00 

COMKU. fr. Surro_ •• • J Steld, Stlte 

to • Surf.ee e ___ coo ... "._ ....... 0 __ ., ................. _ .... It, ". D.pendent ---_._------------ ---. -_ ..... _-. -- ----.-.... " .... _--- rorced tOMed 1011 

----._-.. -.-----.-.-.. -----r---.--.. ----.. -. -----_ .... __ .0 • I,."t,on fro. • SUrflce • , Ste.d, stlte . to Iti Surro_'ngs ------_._------_._-----_. h, fiR be~""t -------_._-------- -.-. ___ 0_ ........ .,..0 _____ 0". ___ , 

I •• U.UM r ... Surround'" ., Ste.dy Stlte . to I Surf'ce - - _________ . .0 __ ._.,. ________ • 

.---.-.--._---.---------___ . ___ • , 0_· fl. •. ______ 

Or~""t ._. ___ . _____ . 

••••• l 'on let ... " ".rrow Gaps 

----_._------- -_. ----.-.----.. 

--.... ---. 1 •••• l.Oft IrtN!eR I J User-Suppllecl R Surf .eet with YI .... hdon --.-.. 0 __ <>e .. _"" <> ........ _& 0 __ 00 __ • 0 __ 0 

.) Int' ...... l1' 

t.lculltecl .- IIew hctors ---------------.--., ... ---._-_ ...... _______ 0. ____ • 

'rescr'b@cf f.u'. Fl-. 

- -------___ -_0' • ___ • __ ._. ____ .• _ ..... 0 ___ 

Bound." lIrer tOMecUM 

h'_I~k~I;..=J?·,-a;. t1~!.~I--= 

h, Ott .. tne' 

- -----------.--

Gap (the ..... , Ites 'd.nce' 

:. ---.. ----_._----_.-..... -_ ...• --.. _---_ .. _-

Iounda,., tondlt 10ns/lOlclt Added or R«!M1wec1lJur'", AnI ," Is ----._--_ ••• _ ... ___ • __ ... _ .. ___ •• ___ 00.0';'0 ___ ••• ___ ... _____ • 

Othfrs (tee progr ••• hstrlcts, ~ 

tn t) 

~ < i u 

~~ ~ E tn 

~ ~ ~ 

Zf:-f tn 

• • • • • 

• • • • • • 

• • • • 

• • • • • 

• • • • • • 

• • • • • 

• • • • • • 

• • • • • 

• • • • • 

• 

• • • 

• • 

• • • • 

• • • • 

_. • • --- • 

• • • • 
CJ1 

to 

,. 

1O. 

SoI"Uon tecM'queS 

llftflr Ste.., Stlte " O'rect 

h' Iterltlve 

cJ Others (see IhstrlclI 1 

IDnllntlr St .. ., St.te • , '1IC1'ellenta I , 

., Ite,..ttwe 

cJ Others (see Ihstrlds' 

fr.IIS .... t I' lhe .. 1 ... $upel'1'MIUOII 

., D'rect I) bp1ldt l"tegr.tIOil 

II' • ..,lIeU User Spec I neel 

TI_ Step 

.,t_tlc fl_ 

Step SelectlUft 

II', taehl"" r.,I'e't, • .,llctt 

' .. c, '1"lte (I~ts I" the fl_ no..I. 

eI, MD.I", - ""ONa", erlels 

e' Others (see ........... ahstr.cls' 

other tapa •• IIUn 

The,..1 Stress AnlI,sls C.p.hUIl, I' One.,..lecI 

h' Coupl .. 

en g 

~ ~ 

~ ~ t~ ~ en 

~ ~ en 

• • • 

• • 

• 

• 

• • • • • • 

• 

• • 

• • • • • • . • • 'U 

1-
en 

o 

n. 

1.-per.ture Field PIt. 'r.n~tlted Dlrectl, f~ Helt 

trlnsfer ffndutes to lhe.,..' Stress ftoch,les 

----_. -----_._- tncloswre I.dllttun with 'lew flctor tl1eutAtion -------- ----------- 'If.t IftptltlOutput .t Constrllned IIoundIr'es 

---- . trcltc 5,...t,., 

- WKtructwlng .) lepe.ted U" of Idc!ntlcil Sttbdruc:tures 

.) "Id.., llnelr ..... IIonIIM.r Subdncture, 

-------.-

c) ",.Ing SbbstructttrH with Different 

types of Non'lnear't'es - ._--- lestlrt tlplb"lt, 

Others (see progr ... bstracts' 

Progra Oper.UIJIII1 On 

toe 

111M 

- U"'AC 

.---.. 

Hone,.-11 

Telef_en -- NIJAII. . SIMNS 

-_.-

Itt. 

- ! 

en 

~ 

en 

~ 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

-

~ ~ 

E E u 

~ ~a =z: 

t-4 

~ en t I 

• • • 

• 

• • • 

• I 

• I 

• I 

I 

I) • • • • I 

• 

• • • • • 

• • • • 

• · , • • • 

i 

• • '. 

j 

. ] --_ .. _-_.-
-'-"~'-""-'~;:' •• : ......... -~.~ .. "._; : ' ... e:.' •• "; 

CWLl 

- • • • • • 

YaNIS • • • • • 

NY! • • • -ISYN • • • • • 

jlM\ • • • • • • • • • 

S!)NI 

-.tvaE • • • 

• • • • SlSm • • . 

I 

I I , 

I 

-

-fit 

1- fit ., ., : tel 

: ., ., .I 

-

- J - I I • fit 

• II I ., I. I. • tel 

e [ e -£ I. · ., 

[ i .: - I .. ~ I - I ., fit 

I: 

- .; .. I I - • I. ! fit t tit - I I - - I. I -

i fit • fit .. I. -., • - ., .. ~ I fit e '! fit .. I: . - l. ., I - I ~ - t tit. ., t • ., - • - • 1 ., i ;11 tel 

t r c 

- • J ... 

- ! .- I 

- e c 

E ! ., 0 ... a .: • . ... -

61 
0) 

I.\j 

'.rt II ... 'ser I .. ferf.ce .M .... ,,'" C'plbn'Ues 

1. .... t fON .... Sequnce 

I) ,...,.t r ..... 

- ----- 'b .. r ... t 

'fee fON-Ust D'recle' fOl"lllt 

,",1_ o..Ie .. ted la ..... ~ 

Others (see progr ... bstr.cts, 

') I...,..t Sequence 

User "'rected 

s"te. D'rected 

- User Supplied SabrouUnes (see "",.._ ."'rltts, 

!. .... 1 Gener.uo ... nd thee"", 

I) AMta.at'c or SeaI-AMta.ltlc r~ ... t ... for: 

10 .. 1 'o ... t Coord .... tes 

'Ieleftt tonnect'.'tles -- - toMtr.I .. ts. SytIIII!t.., .... Ioundary ConeIltlltltS 

SuMtruet""' Connect'.'t, 

'.UUan of IdenUc.I ~ts 

OU,en Isee ,rep" .bstr.cts, 

fI) 

>t 

fI) 

~ 

• . 

• 

• 

• 

• 

.-

• 

u 

~ .~ . ~ ~ U 

~ ~a H 

en E-4 I 

• • • 

• • • 

• • 

• • 

• • • 

• • • 

• • • • 

• • • • 

• • • • 

• 

• • • 
~ 

VJ 

., Altt.,..Uc or SeIII.Aut_Uc ~ntOl· ~~ __ 

--."..OII1et1SIolII' (I~t, 

trl.ft9M'lr l'eaents 

q.tdrl,.ter.' l'~ts 

IocIy or .11 .f lle.ol"Uon U .... t, 

1hree-01_Mt .... ' So". (I~ts 

1 .. 01_MI .... ' Shel1 l1tll!ftts 

(vr¥IIInelr FInIte Difference r~tds 

Oth!rl Isee progr •• abstrlcts' 

- c) OIt. tIIec: ..... Facnltles 

- UM Printer 

Plotter 

Inter.ctl.e Crlphlcs 

Others bee , ........ bstracts, 

., Plots .... Craphlcs Ols,lI, of I'DdeI 

- t .... lete AIIII,.II letlon 

P.rt .f Anllysls I .. Ion 

-- ·"ow-',,· Opt Ion 

til I til 

>t 

til 

~ ~~ 

= 

• 

• 

- • 

• 

• 

• . 

• • 

- • • 

• 

• • 

• • 

• • 

~ ~a B 

Z til 

• • 

• • 

• • 

• 

• • 

• 

• • • 

• • • 

0 

• • 

• • 

• • 

e 

• 

• 

• 

• 

• 

• 

~ ... 

~f~-

...... r! 

~ . 

t~ . 

. 

i L: 

V", ! 

" , 

~ 

j, 

1; 

iI . 
C) 

~ 

1. 

"'dden L 'nes or St"",Ces - OrtftDgr.tth.c Itews 

P!rspecttYe ---and Isu.etrlc "ews 

SectIon 'I~ on Arb'tr.~ ".ne 

Others (s~ prograM .bstr.cts) 

.) Other r,c.ltttes 

D.,ltb!r Input 

AutOMatic Ren~rfng of lodes. [1~ts or [quatlons 

T,b1. lookup of Oal. 

--Others (see pragr ... bstrlcts' 

Relul is Olltput fo ... 

.) T.bular Output 

fbeef Set 

User Defined Set .net Sequences ...... _--....... - H.Jl'_ .nef M'n'_ QtllntlUes 

-- Ayerage .net 

.--...-.--

Hu I. 

.. fur Blods of tktdes -- ---. ............... - - fe.per.ture or Flux [,ceedanees 

OUM!rS hee pro!lr. Ibstrlct,' 

en .en 

>t 

«n 

~ ~~ :z:: 

• 

• 

• 

• 

• 

• 

• 

• 

• • 

• • 

• 

~a -< 

~ ~ H 

Z «n 

\ • • -- 1-.1. __ 

• •• 

• • 

• • 

• • 

• • • 

• • 

• 

E I 

• 

• 

• 

• 

• 

. 
0') 

CJ1 

4. 

. • , rUe Output for User ro't-rroc~n''''' .... "ottl .... - ------ c) Plots 

Isothe .. "ot, (e_loan) of ' ..... r.tures/n ... - Surf.ce func:tloM 

.-

Selective Output Ce.,., " (lNnts or 'et'OM' 

"Istorles (e.,., 'I.e nlst~' , 

Others hee progr_ ."'trlcts) 

I"ter.ellve ' .... t I'" Cont ... 1 

'I,.-eter Specletftcltlon (e.,., fl •• or 11 .. Steps' - St.,.lar't, theel -- rrror Correct ton/Recover, 

----

- User toRt ... 1 of "drb nee.....,'lth .. 

OtMrs (SN ,rogr_ IMtrlets) 

en 

>e 

en 

~ 

• 

---. • . 

• 

• 

- • 

• 

-

U 

z -< 

*a ~ ~ i u 

~ .... 

en 1-1 

• • • • 

• • • • I 

I 

• • 

• • • 

• • • • • 

• 

• 

• 

- -

- 
APPENDIX B 

Survey of Structural Analysis Codes 

The following tables were extracted from ~ survey performed by R. Zirin of 

General Electric Gas Turbine Division. 

These tables illustrate the solution capabilities, the element libraries, the 

types of loadings and the output features of the following structural codes: 

EASE2, STARDYNE, NASTRAN, ANSYS, MARC, SUPERB. 

66 
'ROGRAM 

lYPES OF ANALYSIS au 

.~ Z 

C e 

N c a: ." u C 

w c 

= 

t; C III 

~ C 

= ti c 

-

c 

MAL YTICAL CAPAIILITY ... Z a .-

MECHANICAL LOADS - • • • • • • 

UIEAR TEMPERATURE LOADS • • • • • • 

I'rAnCS . EULER IUCKUNG . • • 

INERTIA RELIEF • 

MODEIF REQUENCY • • • • • .J 

FREQUENCY RESPONSE • • • 

TRANSIENT RESPONSE • • • • • 

DYNAMICS 

SHOCK SPECTRA • • • 

RANDOM RESPONSE • • " 

NONLINEAR TRANSIENT • • • 

NONLINEAR BUCKLING • 

LARGE DISPLACEMENT • • 

NONLINEAR PLASTICITY • • • 

STATICS CREEP • • 

VISCOELASTICITY • • 

LARGE STRAINS • 

STEADY STATE • • • • 

HEAT TRANSFER 

TRANSIENT , • • • 

STATIC • • • 

SUBSTRUCTURES 

(SUPER- DYNAMIC • • • 

ELEMENTS) CYCLIC SYMMETRY • 

FRACTURE MECHANICS • • 

FLUIDS • • • 

ELECTRIC CIRCUITS • 

MISCELLANEOUS 

I OPTIMIZA TION • 

ACOUSTIC CAVITIES • 

FATIGUE DAMAGE • 

67 

,~., .". " ~ .•• ..,.. 'r .. _. ",," •.••..• , •. ,., 
. " 

STRUCTURAL ANALYSIS ... ELEMENT /MATRIX UBRARY z 

,., 

N C 

'" 

~ --c 

:; - E1.EMENT ... I -

I I I ~oc 

tEAM 0 • I • 

'G. I , 

TAPERED SEAM I 

LINE ELEMENTS 

I • I OPFSET SEAM ~. -,,1 

.. I 

PINNED ENC SEAM I • • , 

~ I i CURVED BEAM I 

, 

3 NOCE TRIANGLE ~ • I ·;f 

FLAT MEMBRANES' 

AND PLATO 

,. 

CURVED SHELLS 

68 

~ i 

6 NOOE TRIANGLE I I 

. 

I Si04IAR PANEL. , I:J ~ NOCE QUAO CJ • I • 

0 I I Nooe QUAD I 

3 NODE TRIANGLe t1 I 

• t 

e NOCE TRIANGU tl I 

• NOOE QUAD 0 I 

8 NOCE QUAD 0 I 

·REDUCED THICK SHELL <> 

NOTO; 

M 

I 

C 

MetnOtane 1II'td/0l 0' ... · IV.aft ...., (110 O •• tt beftdi"" 

IftCfu_ IUD·oar ...... cnc fOtfftl .Ieft ''''' ftOdn 

AltO iMfudft cuM itooItameulC tiemeftC Wleft cwo 

fftlClMe IIOCIn 

I 

! 

I 

I 

t 

I 

I 

I 

I 

PROGRAM 

~. CD a: .. u = 

= i '" a: 

= 

c c 

z 'a 

• I • I • I 

·1 • I · I · 

I j I . 

• I • 

• I • I I • . I 

I I 

I 

• I I t I I · 

I I • I I I 

I t I 

• I • I M ! 

MI. i 

I I M I -C 

I I I !t I 

I I I • I 

. • M • ! 

I s i I Mis. c 

i I • I , .

I I I I 

I C I , 

'1 I I · , . 

I · s. c 

.. -

I • I-':f 
~ - ••.• -.~ ._ •• _ •. 0 __ ' ___ k~._ .• _ •• __ .......... ____ ~ ' •. 

. . ..- ....................... " .. ,. '. ...... . . . ... --.~..:~..:.:~~ .:.:...:.~-:. .... ~ . ....::,~.~.~ ......... ~.~.:.: ... : •. ~.: ....... -;." : - _ ....... -'-",_!. ... ...: .... ' _~ t ... ", . 

STRUCTURAL ANALYSIS 

EJ.£MENT /MA TRIX UBRARY (continued) -

SHELLS 

AX1- TRIANGUlAR SYMMETRIC RINGS ELEMENTS 

QUAD 

RINGS 

TlTRAHEORON 

SOLID 

ELEMENTS WEDGES 

HEXA· 

HEDRONS 

PIPE ELEMENTS 

fill 

I: 

c 

ELEMENT ... 

. CONICAL "-

CURVED 1 

3 NOOE ~ 

8 NOOE II 

• NOOE D 

I NOOE 0 

• NOOE ~ 

8 NOOE , e • 

15 NOOE e 

8 NODE G:I • 

20 NOOE G;l 

STRAIGHT - • 

ELBOW l • 

TEE T 

NOTU; 

I 

C 

lMIudes IY"'lI'Mtric fonns with ...., nocMI 

AIIO iftdYCltl cubic isocNrlfftl1l"ic ...".,.. with. two 

,!,idaidl ..... 

D DettMr- -

... 

! 

a: 

til ~ 

• 

• 

• 

• 

• 

• 

.PROGRAM 

. 

I III a: ~ u a: i ... II a: 

= 

C 

Z C S 

• • D 

• • 

• • • D 

.' • D C 

• • • • 

S • s. C 

• • D 

• • D D 

. • e 

· I · • • 

S • I.e 

• • • 

• • 

69 
.' 

•. ~", ,t';. ,·0." . :._ ..... ~. .' ',~ •••.•• _.~ .,.,'. ~'_"",/".: •• '0·.... 0,' .~.,;. • '"'' ~' ......... :_' _" ...... : ... . 

STRUCTURAL ANAL YSJS 

ElEMENT/MATRIX UBRARY (continued) 

PROGRAM 

IIN£RAL 

mFFNUS • 

aLIMENTS 

SIRING ~ 1 ,. ,.. 

SCALAR S'RING • I 

Ixlor'2.'2MATR.X • I • I • I 

GENeRAL MATRIX Ii· i I 

• 

LUMPeD (DIAGONAL) Z I z , 2 I z I I ELm£~ ~----------------------~--~--~~--~~--~~ CONSISTENT I I z z f z , 

SCALAR (OOF) , I It , • I 

MASSIS NO... NCDAL • I • I \I t .. I I STRUCTURAL . I ~D-'S-TA-I-8u-n-D------------~'~--+-~1 ~t-.~I-~~--~'~ 

-------+------------------------+---+-~--~~----. GUVAN ReDuCTION F· i • f • I ~ 

GeNeRAL. MATRIX I • I "I ! 

SCALAR I ,. I I 

DASHPOT -0-

CAMPtNC 

DISCReTE VI,SCOUS (CI • -(KJ • ~(MI 

STRUCTURAL C1 • ig) [I<I 

• 

f • I 

MODAL VISCOUS 

GENeRAL MATRIX 

Tllf 

RIGID 

aTHER ELIMINTS 

ReSAR SOLID I I 

• I • EL.ASTIC FOUNCA TION 

I • I 

CRACK TI' I • f· ~ ~ 

·LAMINATeD SHELL • I • 

PLOT ONLY • I I 

NaTO; 

, See resnifta 

2 GeMtatMt from dtMity 

70 2 See COftIlr'8lfta 
. ~~OGRAM 

HEAT TRANSFER-CONDUCTING ElEMENTS III 

~ Z 

C 

, 

- N C a: 

III a: ~ i - ~ ~ I 

ELEMENT III Z C 

LINEAR / • • 

3 NODE TR~ANGLE ~ • • 

.. NODE QUAD 0 • • 

PlANAR 

I NODE QUAD 0 I 

TRANSVERse CONDUCTING 

SHELL t1 • 

TRIANGULAR RING ~ • • 

AXISYMMETRIC 4 NODE QUAD RING 0 • • 

8 NODE QUAD RING 0 I 

TETRAHEDRON 4> • • 

WeDGe ~ • • 

8 NODE IRICK G:I • • 

SOLID 

r:v 15 NODE WEDGe 

20 NODE IRICK G:l 

GENERAL MATRIX INPUT • 

NOTU: 

S Con,.,.. MpllrMtevic for,", wiltt few .. ftUrnber·of ftOCI.s 

It Alto ClDfttli,. "lDolc itocwll'MtYic tWftent with one midsidt Mde 

e Alto CDftUIiM cubic ilacwametric element wiltt two midlidl nod. 

e 0 ...... _ 

u • a: 

a: 1M 

a c a 

• • 

• p.e 

• • 

• I.e 

• p.e 

• • . 

• I.e 

D 

• • 

D e 

• I.e 

71 
'r • 

COORDINATE SYSTEMS PROGRAM 

AND MATERIAL PROPERTIES '" zz 

)It C CD 

fit = C CIt U C' ... C t- ,. 5 fit e fit CIt a: 

- CIt- e z < 

FUTURE ... .,. z,c,2 -

• I • • I • I • CARTUIAN • . • CYLINCRlCAL • I ·t • , • I IASIC - (GLOIAL) $PHE.UCAL I I • I • t I • 

GENERAL I t I i 1 I 

CtlORDINATi 

• I • • I • I • SYSTEMS CARTESIAN • 

CYUNCRICAL I·' · I • I I 

SKEWED • I • 

(LOCAL) SPHEr:UCAL I • I • I I • GENe~L. I I I I ,. , I 

MIXED • f • I • I • I - I • 

ISOTROPIC 

28 0 ORTHOTROPtC ·1·'·'-1·'- 1·1·1·1'1· 

3-0 ORTHOTIIOPIC I , I • I 1 I • 

MAilRIAL PROP£ilnES T!MPEi'ATURE OEPENCENT 

• t '-,-j-,- STRESS DEPENOENT I I • I - I I 

I • I 

TIM! DEPENDENT I i • I . p I • I 

NONL.INEAA ELASTlC , I I 

I f • I 

ISOTROPIC , I i • I • , I , 9 

KINEMATIC I I I i 

I • • i 

WORK COMBINec HARDENING I I I • • I 

OANL 10 CYCLE I , I • I • I 

GENERAL I I I I 1 I 

NOTES; 

72 
• 'If 

. .RDGRAM 

BOUNDARY CONDmONS w 

z z 

,. C IS 

- .. c c 

= 

u a:: 

.., e ... e loY 

~ 

= FUTURE loY 

I 

Z 

I 

c 2 

c a 

CONCENTRATED • • • • • • 

DISTRIBUTED CIEAM, • • • • • • 

.'LA TESISHELLS • • • • • • 

PRUSURE AXISYMMETRIC ELEMENTS • • • • 

SOLIDS • • • • • • 

STATIC TEMPERATURE • • • • • • 

ACCE LERATION , • • • • • • 

LOADING ROTATIONAL VELOCITY • • • • 1 • 

COMBINATION • • • • • 

• 

AXa. AXISYMMETRIC SHELLS • • 

SYMMETRIC AXISYMMETRIC lUNGS • 

TIME' DEPENDENT • • • • • 

FREQUENCY .. DEPENDENT • • • DVNAMIC 

PSD RANDOM • • p 

SHOCK SPECTRUM • • • 

51 NG LE POI NT- • • • • ~ • 

DISPLACEMENT MULTI POINT- Z • • 3 CDNSTRAINTS • 

SPECIFIED NONZERO DISPLACEMENT • • • • • • 

HEAT SOURCEISINK • • • • 

HEAT CONVENTION • • • • 

TRANSFER RADIATION • • • 

SPECIFIED TEMPERATURE • • • ., . . NOTES: -sen. .. point co ... Iift, a Iftfotclcl JWO nnsII'ionCII IIWII. routionCII In c:oordiNt.bl IIIOCiaItid with • ftOGe point 

Multi"$lOint COftIVIint • enforad an-- COM~ "".do,-"i..- becweeft ~(It IMI. rourionCIJ wftic:h fNY" 

aaoc:i.tIId wi'" diff.." nod. __ 

, Aool" 10 lOme """"'U 3 Dilotacemen' componena Wl lQuaI Oft diff""" ...... 

2 SoeciaiialCl forms of ritid and int"'" COUOIint • SLInd atone awotn'ft 

73 
PRE· AND POST ·PROCESSING 

- FUTURE - UNceFORMeo GEOMETRY 

NOCE LASeLS 

El.IMENT LABELS 

INPUT PROPERTY LAleLS 

2·0 seCTIONS 

BOUNDARY CONCIT10N LABELS 

HloeEN LINES REMOVEO 

'LOTTING 

DEFORMED GeOMETRY 

CONTOURS 20 STRUCTURE 

CONTOURS SOLIO STrtUCT'UREo 

OUTPUT TlME HISTORY 

~AeQUENC~ RESPONse 

POWER SPECTRAL CENSITY 

ARBITRARY. X "Is. Y 

NOeES 

DATA ELEMENTS 

GENERATION A ESTrtA'NTS 

LOACS 

BY LOAO CASES 

OUTPUT ay ELEMENT 

SORTING MAXIMIN SUMMARY 

SELECTED NODES ANDIOR ELEMe~TS 

IANOWIDTH MINIMIZAnON 

74 

'I Cenerac. AU NIl 1 :'dilNftlioft" 

2 G4IMtJc. Gila SIll 2 o'ClifMMlOftl'" 

2 a.n.m. Claca 8ft ~ "Clif'fteftllO"'O' 

" "lftC., Dlou 

• SrlftCl 110M ...... W W ___ Iroftt IOtutlOft 

'ROGRAM 0 

... !I . z 

>- e 

N Q 

~ a: ... a: .. )It w 

~ C '" 

= • = 

c c 

w Z c :I 

.. • • I • • I • 

., .. L· , • • • .. f • • • • 

I • I • I I • 

I I I I I • I - • I I 

• I I °1 

I I ! .' I • 

• I • I 

• I - , .. • . I 

I • I • I ., I • I • 

I I • i I • • 

, I . • - • • i 

I " I • •. ' I • I I 

i • •. ' I I I , 

I o I • I • 

1 I 1.2 1.2.l, iii 1.2 I 2.l . 1.% • I • 

1 i 1 1.2.3 i 1 J ! Z~ i 1 J 

1 I 1 1.2 i t I 1.3 I 1 

1 I 1 Z I 1,%.lI1 

, 

• I I I • I - - • 

- I I • I I 

I I 

- I I I - I - • i 

f • I - I - I - I , , 

- -I - w I-.W .lIf-
APPENDIX C 

Subroutine Prolog 

This appendix lists the prologs for all of the subroutines used in the 

transfer module. The prologs represent a standard description of the purpose 

of the routine, the calling arguments and their attributes, the routines that 

are called, any commons that are used and special comments about the subroutine. 

75 
**** •• *****.*************************************************************************************** 

*****************-********************************************************************************* 

  

.. 

** ** 

.. 

* 

**** 

* • 

**** 

. .. • 

. .. 

.. • 

" 

" .. 

••• 

- * * - .. • • 

***** 

• 

• 

• 

•• * 

..... • • . " 

_ .. 

• • 

* * *** 

  

.. .. .. .... ** ** 

*************************************************************************************************** 

********************************************w.********* ********************************************* 

76 

************************************************************************.*****_. 

DIRECTORY OF SUBROUTINES/FUNCTIONS - SORTED ALPHABETICALLY BY ROUTINE NAME * ••• ************ •• ************************************* **.**~ .** ****.**.***** 

FILE NAME 

GE/TRANCITS 

GE/TRANCITS 

GE/TRANCITS 

GE/TRANCITS 

GE/TRANCITS 

GE/TRANCITS 

GE/TRANCITS 

GE/TRANCITS 

GE/TRANCITS 

GE/TRANCITS 

GE/TRANCITS 

GE/TRANCITS 

GE/TRANCITS 

GE/TRANCITS 

GE/TRANCITS 

GE/TRANCITS 

GE/TRANCITS 

GE/TRANCITS 

GE/TRANCITS 

GE/TRANCITS 

GE/TRANCITS 

GE/TRANCITS 

GE/TRANCITS 

GE/TRANCITS 

GE/TRANCITS 

GE/TRANCITS 

GE/TRANCITS 

GE/TRANCITS 

GE/TRANCITS 

GE/TRANCITS 

GE/TRANCITS 

GE/TRANCITS 

GE/TRANCITS 

GE/TRANCITS 

GE/TRANCITS 

GE/TRANCITS 

GE/TRANCITS 

GE/TRANCITS 

GE/TRANCITS 

GE/TRANCITS 

GE/TRANCITS 

GE/TRANCITS 

GE/TRANCITS 

GE/TRANCITS 

GE/TRANCITS 

GE/TRANCITS 

GE/TRANCITS 

GE/TRANCITS 

GE/TRANCITS 

GE/TRANCITS 

GE/TRANCITS 

SUBROUTINE/ 

FUNCTION 

AREAD 

CALCRD 

CCNVEC 

CHKPT 

CHNODT 

CINV 

CKWIND 

CORNCC 

CTRAN 

CWCRNT 

DATI NT 

EINCOR 

ELTRAN 

EMINMX 

ERRPRT 

ETCORE 

FCRNTP 

FILREW 

FNDELM 

FNDJAC 

FTIME 

GENTMP 

GETCRD 

GETEWT 

GETMPE 

GETPD 

GETWND 

GNLSUR 

GPCOEF 

GPTEMP 

GTGAUS 

GTNUMT 

HTFIO 

HTFPAS 

HTICON 

13DSF 

INITCM 

JACBCK 

KNTSPF 

MARCRD 

MARCTO 

MAXTDF 

MKRGF 

MPERW 

NTCORE 

PARD 

PDOFSF 

PRCGEO 

PRCSOF 

PREPGM 

PRNTIM 

PAGE NO 

17 

12 

22 

92 

7 

37 

53 

21 

9 

31 

75 

49 

98 

40 

84 

64 

34 

48 

50 

94 

41 

61 

23 

77 

26 

13 

52 

46 

101 

102 

19 

78 

58 

67 

69 

87 

99 

96 

43 

70 

100 

35 

54 

27 

65 

16 

93 

79 

76 

8 

39 
GE/TRANCITS PROFAC 56 

GE/TRANCITS PUTWFI 24 

GE/TRANCITS RDCNTL 59 

GE/TRANCITS RDSPF 47 

GE/TRANCITS RDTEMP 30 

GE/TRANCITS RDTIP-1E 4 

GE/TRANCITS REAARY 89 

GE/TRANCITS REACRD 20 

GE/TRANCITS READR 71 

GE/TRANCITS REMELM 11 

GE/TRANCITS RFILCR 44 

GE/TRANCITS RWCCF 25 

GE/TRANCITS RWELMS 2 

GE/TRANCITS RWNODS 1 

GE/TRANCITS RWSPCF 97 

GE/TRANCITS SCTION 10 

GE/TRANCITS SETFLP 29 

GE/TRANCITS SFDIST 91 

GE/TRANCITS SHAPEF 15 

GE/TRANCITS SHAPFV 95 

GE/TRANCITS SINTIT 73 

GE/TRANCITS SKIP 57 

GE/TRANCITS SKPREC 72 

GE/TRANCITS SORT 68 

GE/TRANCITS SORT2 90 

GE/TRANCITS SSURCH 42 

GE/TRANCITS STSTMP 62 

GE/TRANCITS TEMFOR 85 

GEiTRANCITS TFLSET 60 

GE/TRANCITS TIMCK 6 

GE/TRANCITS TPNAST 86 

GE/TRANCITS UNPAKF 33 

GE/TRANCITS VOLM 14 

GE/TRANCITS WRCRNT 66 

GE/TRANCITS WRITMP 36 

GE/TRANCITS WRSTMP 63 

GE/TRANCITS WRTDIR 81 

GE/TRANCITS WRTEMP 83 

GE/TRANCITS WRTGEO 82 

GE/TRANCITS WRTNTF 80 

GE/TRANCITS ZERORF 45 

77 
78 

TITLE'" DATE =07/15/85 TIME 

2G20C===================s=======================z========= 

2640 SUBROUTINE RWNODS(IREC,NN,XYZ,IRW) 

2660C===================================================== 

2670CPR 

2680CPR 

2690CPR 

2700CPR 

2710CPR 

2720CPR 

2730CPR 

2740CPR 

2750CPR 

2760CPR 

2770CPR 

2780CPR 

2790CPR 

2800CPR 

2810CPR 

2820CPR 

2830CPR 

2840CPR 

2850CPR 

2860CPR 

2870CPR 

2880CPR 

2890CPR 

2900CPR 

2910CPR 

2920CPR 

2930CPR 

2940CPR 

2950CPR 

2960CPR 

2970CPR 

2980CPR 

2990CPR 

3000CPR 

3010CPR 

3020CPR 

3030CPR 

3040CPR 

3050CpR 

3060CPR 

3070CPR 

3080CPR 

3090CPR 

3100CPR 

3110CPR 

3120CPR 

3130CPR 

3140CPR 

3150CPR 

3160CPR 

3170CPR 

3180CPR 

3190CPR 

3200CPR 

3630 

ROUTINE-- RWNODS 

DATE/WRITTEN BY--

DATE/REVISED BY--

FUNCTION/PURPOSE--

8/04/82 RJ MAFFEO 

THIS I/O ROUTINE READS AND WRITES THE NODAL INFO 

TO THE INTERNAL DATA BASE FILES 

THIS FILE IS NOW IFL3 

IN THE WRITE MODE IT AUTOMATICALLY ZEROS THIS FILE 

FOQ NODES NAMES THAT ARE NOT USED 

THIS RANDOM FILE(IFL3) COULD EASILY BE REPLACED BY 

AN ARRAY IF ENOUGH CORE WAS AVAIALABEL 

CALLING SEQUENCE-- CALL RWNODS(IREC,NN,XYZ,IRW) 

CALLING ARGUMENTS--

NAME ATTRIBUTES 

IREC (I) 

NN (I/O) 

XYZ (I/O) (3X1) 

IRW (I ) 

FILES USED--

DEFINITION 

RECORD TO BE PROCESSED 

NODE NUMBER(NAME) 

ARRAY OF COORDINATES 

READ/WRITE SWITCH 

IRW-O---- READ 

IRW=1---- WRITE 

IFL3 --- RANDOM FILE TO STORE COORDINATES 

COMMONS USED--

AFI L --- FILE CODE COMMON 

FUNCTIONS/ROUTINES CALLED--

NONE 

LIBRARIES ACCESSED--

NONE 

LOCAL VARIABLES--

N/A 

SPECIAL COMMENTS ABOUT THIS ROUTINE 

NONE 

SPECIAL REMARKS/INSTRUCTIONS--

HOST = H6000 

********************************** 

END 

-- GE/TRANCITS -- RWNODS 

23 42 PAGE= 1 

PAGE= 
TITLE= DATE =07/15/85 TIME = 23 42 

3670 SUBROUTINE RWELMS(IREC,A,IRW,ICDDE) 

3700CPR 

3710CPR 

3720CPR 

3730CPR 

3740CPR 

3750CPR 

3760CPR 

3770CPR 

3780CPR 

3790CPR 

3800CPR 

3810CPR 

3820CPR 

3830CPR 

3840CPR 

3850CPR 

3860CPR 

3870CPR 

3880CPR 

3890CPR 

3900CPR 

3910CPR 

3920CPR 

3930CPR 

3940CPR 

3950CPR 

3960CPR 

3970CPR 

3980CPR 

3990CPR 

4000CPR 

4010CPR 

4020CPR 

4030CPR 

4040CPR 

4050CPR 

4060CPR 

40'70CPR 

4090CPR 

4100CPR 

4110CPR 

4120CPR 

4130CPR 

4140CPR 

41S0CPR 

4160CPR 

4170CPR 

4180CPR 

4190CPR 

4200CPR 

4210CPR 

4220CPR 

4230CPR 

4240CPR 

4!250CPR 

4260CPR 

4270CPR 

4280CPR 

4290CPR 

4300CPR 

4310CPR 

4320CPR 

4330CPR 

4340CPR 

ROUTINE-- RWELMS 

DATE/WRITTEN BY-- 8/04/82 

DATE/REVISED BY--

FUNCTION/PURPOSE--

RJ MAFFEO 

THIS ROUTINE IS AN I/O ROUTINE 

ITS PURPOSE IS TO READ/WRITE THE ELEMENT ATTRIBUTES TO THE 

INTERNAL DATA BASE FILE 

THIS DATA BASE FILE IS RANDOM FILE IFL4 

THE ATTRIBUTES ARE 

ELEMENT NAME 

COORDINATES OF ALL 15 POINTS IN THE ELM 

ELEMENT CONNECTIVITY OF THE 8 CORNERS 

THE PACKED THTD FACE NUMBER 

VOLUME OF ELEMENT 

THE ROUTINE CAN PROCESS DIFFERENT AMOUNTS OF THESE 

ATTRIBUTES BASED ON THE VALUE OF ICODE 

THE RANDOM FILE IS NOT INITIALIZED PRESENTLY WITH THIS 

ROUTINE 

CALLING SEOUENCE-- CALL RWELMS(IREC,A,IRW,ICOOE) 

CALLING ARGUMENTS--

NAME ATTRIBUTES 

IREC (I) 

A (I/O) (56X1) 

IRW (I ) 

ICODE (I) 

ICODE-O 

ICODE"1 

ICODE=2 

ICODE-4 

ICODE-S 

FILES USED--

SWITCH 

PROCESS 

PROCESS 

PROCESS 

PROCESS 

PROCESS 

DEFINITION 

RECORD NUMBER TO BE PROCESSED 

ARRAY OF ATTRIBUTES 

READ/WRITE SWITCH 

IRW·O---- READ 

IRW=1---- WRITE 

TO SET AMOUNT OF DATA TO PROCESS 

ALL DATA 

ELM NAME ONLY 

ELM NAME AND CORNER COORDINATES 

EVERYTHING EXCEPT VOLUME 

ALL DATA 

IFL4 -- RANDOM FILE TO STORE ELM ATTRIBUTES 

COMMONS USED--

AFIL -- COMMON TO DEFINE FILECODES 

FUNCTIONS/ROUTINES CALLED--

NONE 

LIBRARIES ACCESSED--

NONE 

LOCAL VARIABLES--

N/A 

SPECIAL COMMENTS ABOUT THIS ROUTINE 

NONE 

-- GE/TRANCITS -- RWELMS PAGE= 2 

PAGE= 2 

79 
TITLE= 

SPECIAL REMARKS/INSTRUCTIONS--

HOST = H6000 

DATE =07/15/85 

4350CPR 

4360CPR 

4370CPR 

4380CPR 

4390CPR 

4400CPR 

4850 

.*********************************** 

END 

80 -- GE/TRANCITS -- RWELMS 

TIME = 23 42 PAGE= 3 

PAGE= 3 
TITLE- DATE -07/15/85 TIME - 23 42 

4890 SUBROUTINE RDTIME 

4920C================a================-==================== 

4930CPR 

4940CPR 

4950CPR 

4960CPR 

4970CPR 

4980CPR 

4990CPR 

5000CPR 

5010CPR 

5020CPR 

5030CPR 

5040CPR 

5050CPR 

5060CPR 

5070CPR 

5080CPR 

5090CPR 

5100CPR 

5110CPR 

5120CPR 

5130CPR 

5140CPR 

5150CPR 

5160CPR 

5170CPR 

5180CPR 

5190CPR 

5200CPR 

5210CPR 

5220CPR 

5230CPR 

5240CPR 

5250CPR 

5260CPR 

5270CPR 

5280CPR 

5290CPR 

5300CPR 

5310CPR 

5320CPR 

5330CPR 

5340CPR 

5350CPR 

5360CPR 

5370CPR 

5380CPR 

5390CPR 

5400CPR 

5410CPR 

5420CPR 

5430CPR 

5440CPR 

5450CPR 

5460CPR 

5470CPR 

5480CPR 

5490CPR 

5500CPR 

5510CPR 

5520CPR 

5530CPR 

5540CPR 

5550CPR 

5560CPR 

ROUTINE-- RDTIME 

DATE/WRITTEN BY--

DATE/REVISED BY--

REASON 

8/18/82 RJ MAFFEO 

9/13/83 SR MARTIN 

CONVERT FROM F4BT FILES TO THE NEW 

HEAT XFER OUTPUT FILE FORM 

FUNCTION/PURPOSE--

THIS ROUTINE READS THE TIME VALUES FROM THE HEAT XFER OUTPUT FILE 

ANO DETERMINES IF THEY ARE DESIRED FOR THIS RUN IT 

AUTOMATICALLY ELIMINATES THE NON-STP TIME STEPS IT ALSO 

CALLS THE REQUIRED ROUTINE TO PERFORM INITIAL CHECKS ON 

TIMES AND ELM COUNTS 

THE HEAT TRANSFR OUTPUT FILE IS REWOUND BEFORE RETURNING 

FROM THIS ROUTINE 

CALLING SEQUENCE-- CALL RDTIME 

CALLING ARGUMENTS--

NAME ATTRIBUTES DEFINITION 

FILES USED--

INTITS 

IERF 

INOT6 

HEAT XFER OUTPUT FILE (TITAN INPUT) 

ERROR REMARK FILE 

HARD COPY FILE 

COMMONS USED--

AFIL 

SIZE 

CNTLTM 

-- FILE CODES -- PROBLEM SIZE PARAMETERS -- TIME/TEMPERATURE CONTROL PARAMETERS 

FUNCTIONS/ROUTINES CALLED--

TIMCK 

CHNODT 

LIBRARIES ACCESSED--

NONE 

LOCAL VARIABLES--

NSTPTM 

NCNTT 

NTMDO 

TIMT 

COUNT OF STP TIMES PROCESSED 

COUNT OF TOTAL TIMES PROCESSED 

USER SPECIFIED NUMBER OF STP TIMES TO DO 

ARRAY OF TIMES PROCESSED THIS ARRAY WILL 

BE USED AS A DIRECTORY TO POINT TO THE 

LOCATION ON THE HEAT XFER OUTPUT FILE FOR EACH TIME 

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS--

-- GE/TRANCITS -- RDTIME PAGE" 4 

PAGE- 4 

81 
TITLE= 

5570CPR 

5580CPR 

5590CPR 

6640 END 

82 -- GE/TRANCITS 

HOST = H6000 

*************************** 

DATE =07/15/85 TIME = 23 42 PAGE= 5 

-- RDTIME PAGE= 5 
TITLE- DATE =07/15/85 TIME" 23 42 

6660C=========zs====a=a===============================c=====:===== 

6680 SUBROUTINE TIMCK(TIME.ITIME) 

6710C==========-========================================_===z=::== 

6720CPR 

6730CPR 

6740CPR 

6750CPR 

6760CPR 

6770CPR 

6780CPR 

6790CPR 

6800CPR 

6810CPR 

6820CPR 

6830CPR 

6840CPR 

6850CPR 

6860CPR 

6870CPR 

6880CPR 

6890CPR 

6900CPR 

6910CPR 

6920CPR 

6930CPR 

6940CPR 

6950CPR 

6960CPR 

6970CPR 

6980CPR 

6990CPR 

7000CPR 

7010CPR 

7020CPR 

7030CPR 

7040CPR 

7050CPR 

7060CPR 

7070CPR 

7080CPR 

7090CPR 

7100CPR 

7110CPR 

7120CPR 

7130CPR 

7140CPR 

7150CPR 

7160CPR 

7170CPR 

7180CPR 

7190CPR 

7840 

ROUTINE-- TIMCK 

DATE/WRITTEN BY-- 8/18/82 

DATE/REVISED BY--

RJ MAFFEO 

FUNCTION/PURPOSE--

THIS ROUTINE CHECKS TO SEE IF THE PRESENT TIME VALUE 

IS ONE OF THE TIMES DESIRED 

CALLING SEQUENCE-- CALL TIMCK(TIME.ITIME) 

CALLING ARGUMENTS--

NAME ATTRIBUTES DEFINITION 

TIME 

ITIME 

(n 

(0) 

FILES USED-- NONE 

COMMONS U5ED--

PRESENT TIME VALUE OF TIME STEP 

DESIRED SWITCH 

ITIME=O »> NOT DESIRED 

ITIME=1 »> DESIRED 

CNTLTM --- TIME/TEMPERATURE CONTROL PARAMATERS 

FUNCTIONS/ROUTINES CALLED-- NONE 

LIBRARIES ACCESSED--

NONE 

LOCAL VARIABLES--

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS--

HOST .. H6000 

******.*****.*************.****** 

END 

-- GE/TRANCITS -- TIMCK PAGE: 6 

PAGE= 6 

83 
TITLE= DATE =07/15/85 

7860C=z~m==========z=====~===z=.====================== ==== 

7880 SUBROUTINE CHNODT 

7910C===================================================== 

7920CPR 

ROUTINE-- CHNODT 

DATE/WRITTEN BY--

DATE/REVISED BY--

FUNCTION/PURPOSE--

8/18/82 RJ MAFFEO 

THIS ROUTINE MAKES TWO BASIC CHECKS ON THE INPUT 

TIME 23 42 

7930CPR 

7940CPR 

7950CPR 

7960CPR 

7970CPR 

7980CPR 

7990CPR 

8000CPR 

8010CPR 

8020CPR 

8030CPR 

8040CPR 

8050CPR 

8060CPR 

8070CPR 

8080CPR 

8090CPR 

8100CPR 

8110CPR 

8120CPR 

8130CPR 

8140CPR 

IT CHECKS TO SEE THAT THE NUMBER OF ELEMENTS IN EACH TIMESTEP 

IS GREATER THAN OR EQUAL TO THE NUMBER OF GEOMETRY ELEMENTS 

IT ALSO CHECKS TO INSURE THAT ALL ELMS ON THE 

8150CPR 

8160CPR 

8170CPR 

8180CPR 

8190CPR 

8200CPR 

8210CPR 

8220CPR 

8230CPR 

8240CPR 

8250CPR 

8260CPR 

8270CPR 

8280CPR 

8290CPR 

8300CPR 

8310CPR 

8320CPR 

8330CPR 

8340CPR 

8350CPR 

8360CPR 

8370CPR 

8380CPR 

8390CPR 

8400CPR 

8410CPR 

8420CPR 

8430CPR 

8440CPR 

8450CPR 

8460CPR 

8470CPR 

8480CPR 

9510 

NEUTRAL ELM FILE HAVE TEMPERATURES ON THE THT 

OUTPUT FILE 

CALLING SEQUENCE-- CALL CHNODT 

CALLING ARGUMENTS--

NAME ATTRIBUTES 

FILES USED--

IFLO 

IERF -- THT OUTPUT FILE -- ERROR REMARK FILE 

COMMONS USED--

AFIL 

WORK 

SIZE 

ELMDAT 

CNTLFL 

FUNCTIONS/ROUTINES CALLED--

ROMANY 

RWELMS 

LIBRARIES ACCESSED--

NONE 

LOCAL VARIABLES--

DEFINITION 

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS--

HOST • H6000 

******************************* 

END 

84 -- GE/TRANCITS -- CHNODT PAGE- 7 

PAGE= 7 
TITLE= DATE =07/15/85 

9530C========================zc============a=====_====:s== 

9550 SUBROUTINE PREPGM 

9590CPR 

9600CPR 

9610CPR 

9620CPR 

9630CPR 

9640CPR 

965CCPR 

9660CPR 

9670CPR 

9680CPR 

9690CPR 

9700CPR 

9710CPR 

9720CPR 

9730CPR 

9740CPR 

9750CPR 

9760CPR 

9770CPR 

9780CPR 

9790CPR 

9800CPR 

9810CPR 

9820CPR 

9830CPR 

9840CPR 

9850CPR 

9860CPR 

9870CPR 

9880CPR 

9890CPR 

9900CPR 

9910CPR 

9920CPR 

9930CPR 

9940CPR 

9950CPR 

9960CPR 

9970CPR 

9980CPR 

9990CPR 

10000CPR 

10010CPR 

10020CPR 

10030CPR 

10040CPR 

10050CPR 

10060CPR 

10070CPR 

10080CPR 

10090CPR 

10100CPR 

10110CPR 

10120CPR 

10130CPR 

10750 

ROUTINE-- PREPGM 

DATE/WRITTEN BY-- 8/18/82 

DATE/REVISED BY--

FUNCTION/PURPOSE--

R..J MAFFEO 

THIS ROUTINE CALLS ALL ROUTINES NEEDED TO 

TRANSFORM,SECTION (WINDOW) AND/OR 

ELIMINATE UNWANTED ELMS FROM THE PROBLEM 

CALLING SEQUENCE-- CALL PREPGM 

CALLING ARGUMENTS-- NONE 

NAME ATTRIBUTES 

NONE NONE 

FILES USED-- NONE 

COMMONS USED--

SIZE 

ELMDAT 

CNTLGM 

FUNCTIONS/ROUTINES CALLED--

RWELMS 

CTRAN 

SECTION 

REMELM 

LIBRARIES ACCESSED--

NONE 

LOCAL VARIABLES--

..JSLC WINDOW SWITCH 

DEFINITION 

NONE 

..JSLCz 1 »> ELM IS IN WINDOW 

..JSLCa-1 »> ELM IS NOT IN WINDOW 

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS--

HOST .. H6000 

***** •• ************************** 

END 

-- GE/TRANCITS -- PREPGM 

TIME 23 42 PAGE= 8 

PAGE" 8 85 
TITLE= DATE =07/15/85 TIME = 23 42 

10770C==============·==================~============== ============= 

10790 SUBROUTINE CTRAN(XO,YO,ZO,C) 

10S20C============================================================ 

10830CPR 

10840CPR 

10850CPR 

10860CPR 

10870CPR 

10880CPR 

10890CPR 

10900CPR 

10910CPR 

10920CPR 

10930CPR 

10940CPR 

10950CPR 

10960CPR 

10970CPR 

10980CPR 

10990CPR 

11000CPR 

11010CPR 

11020CPR 

11030CPR 

11040CPR 

11050CPR 

11060CPR 

11070CPR 

110S0CPR 

11090CPR 

11100CPR 

11110CPR 

11120CPR 

11130CPR 

11140CPR 

11150CPR 

11160CPR 

11170CPR 

11180CPR 

11190CPR 

11200CPR 

11210CPR 

11220CPR 

11230CPR 

11240CPR 

11250CPR 

11260CPR 

11270CPR 

11440 

ROUTINE-- CTRAN 

DATE/WRITTEN BY--

DATE/REVISED BY--

FUNCTION/PURPOSE--

8/18/82 R,J MAFFEO 

THIS ROUTINE TRANSFORMS THE COORDINATES OF THE EIGHT 

CORNER POINTS OF EACH ELM 

TRANSFORMS ARE LIMITED TO TRANSLATIONS 

CALLING SEQUENCE-- CALL CTRAN(XO,YO,ZO.C) 

CALLING ARGUMENTS--

NAME ATTRIBUTES 

XO (I) 

YO (I) 

ZO (I) 

C (I/O) ARRAY 

FILES USED-- NONE 

COMMONS USEI)-- NONE 

FUNCTIONS/ROUTINES CALLED--

LIBRARIES ACCESSED--

NONE 

LOCAL VARIABLES--

DEFINITION 

X OFFSET 

Y OFFSET 

Z OFFSET 

COORDINATE 

NONE 

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS--

HOST • H6000 

END 

ARRAY 

86 -- GE/TRANCITS -- CTRAN PAGE= 9 

PAGE= 9 
TITLE= 

11480 

11520CPR 

11530CPR 

11540CPR 

11550CPR 

11560CPR 

11570CPR 

11580CPR 

11590CPR 

11600CPR 

11610CPR 

11620CPR 

11630CPR 

11640CPR 

11650CPR 

11660CPR 

11670CPR 

11680CPR 

11690CPR 

11700CPR 

11710CPR 

11720CPR 

11730CPR 

11740CPR 

11750CPR 

11760CPR 

11770CPR 

11780CPR 

11790CPR 

11800CPR 

11810CPR 

11820CPR 

11830C?R 

11840CPR 

11850CPR 

11860CPR 

11870CPR 

11880CPR 

11890CPR 

11900CPR 

11910CPR 

11920CPR 

11930CPR 

11940CPR 

11950CPR 

11960CPR 

11970CPR 

11980CPR 

11990CPR 

12000CPR 

12010CPR 

12020CPR 

12030CPR 

12040CPR 

12050CPR 

12360 

DATE =07/15/85 

SUBROUTINE SCTION(C,XMN,YMN,ZMN,XMX,YMX,ZMX,INOT) 

ROUTINE-- SCTION 

DATE/WRITTEN BY-- 8/18/82 

DATE/REVISED BY--

FUNCTION/PURPOSE--

RJ MAFFEO 

THIS ROUTINE CHECKS TO SEE IF ANY OF THE CORNER 

COORDINATES ARE OUTSIDE OF THE WINDOW SPECIFIED 

BY THE MIN AND MAX VALUES OF X,Y,Z 

TIME = 23 42 

NOTE IF ANY POINT OF AN ELM IS OUTSIDE THE WINOOW 

THE ELM IS CONSIDERED OUT OF THE WINDOW. 

CALLING ARGUMENTS--

NAME ATTRIBUTES DEFINITION 

C (1) COORDINATE ARRAY 

XMN > 

YMN » (ll MIN VALUE OF X,Y,Z 

ZMN > 

XMX > 

YMX » (1) MAX VALUE OF X,Y,Z 

ZMX > 

INOT (0) IN/OUT SWITCH 

INOT-1 » ELM IS IN THE 

INOTz-1 » ELM IS OUT OF 

FILES USEO-- NONE 

COMMONS USED-- NONE 

FUNCTIONS/ROUTINES CALLED-- NONE 

LIBRARIES ACCESSED--

NONE 

LOCAL VARIABLES--

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS--

HOST .. H6000 

*******************************.*. 

END 

FOR WINDOW 

FOR WINDOW 

WINDOW 

WINDOW 

-- GE/TRANCITS -- SCTION PAGE- 10 

PAGE=10 

87 
88 

TITLE= DATE =07/15/85 

12380C=~===a==========.============================= 

12400 SUBROUTINE REMELM 

12420C============ •• ==========================-=========a=== 12440CPR 

ROUTINE-- REMELM 

OATE/WRITTEN BY-- 09/13/82 

DATE/REVISED BY--

FUNCTION/PURPOSE--

R.J MAFFEO 

TIME 

12460CPR 

12470CPR 

12480CPR 

12490CPR 

12500CPR 

12510CPR 

12520CPR 

12530CPR 

12540CPR 

12550CPR 

12560CPR 

12570CPR 

12580CPR 

12590CPR 

12600CPR 

12610CPR 

12620CPR 

12630CPR 

12640CPR 

12650CPR 

12660CPR 

12670CPR 

12680CPR 

12690CPR 

12700CPR 

12710CPR 

12720CPR 

12730CPR 

12740CPR 

12750CPR 

12760CPR 

12770CPR 

12780CPR 

12790CPR 

12800CPR 

12810CPR 

12820CPR 

12830CPR 

12840CPR 

12850CPR 

12860CPR 

12870CPR 

12880CPR 

THIS SUB ELIMINATES UNDESIRED ELMS FROM THE RANDOM 

ELM GEOM FILE 

CALLING ARGUMENTS -- NAME ATTRIBUTES 

COMMONS USED 

ELMDAT 

CNTLGM 

FUNCTIONS/ROUTINES CALLED --

RWELMS 

FILES USED 

LIBRARIES ACCESSED -- NONE 

LOCAL VARIABLES --

DEFINITION 

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST .. H6000 

13470 END 

-- GE/TRANCITS -- REMELM 

23 42 PAGE=11 

PAGE: 11 
TITLE= 

13510 

13540CPR 

13550CPR 

13560CPR 

13570CPR 

13580CPR 

13590CPR 

13600CPR 

13610CPR 

13620CPR 

13630CPR 

13640CPR 

13650CPR 

13660CPR 

13670CPR 

13680CPR 

13690CPR 

13700CPR 

13710CPR 

13720CPR 

13730CPR 

13740CPR 

13750CPR 

13760CPR 

13770CPR 

13780CPR 

13790CPR 

13800CPR 

13810CPR 

13820CPR 

13830CPR 

13840CPR 

13850CPR 

13860CPR 

13870CPR 

13880CPR 

13890CPR 

13900CPR 

13910CPR 

13920CPR 

13930CPR 

13940CPR 

13950CPR 

13960CPR 

13970CPR 

13980CPR 

13990CPR 

14000CPR 

14010CPR 

14020CPR 

14030CPR 

14040CPR 

14050CPR 

14060CPR 

14070CPR 

14080CPR 

14090CPR 

14100CPR 

14110CPR 

14120CPR 

14130CPR 

15130 

SUBROUTINE CALCRD 

ROUTINE-- CALCRD 

DATE/WRITTEN BY-- 8/08/82 

DATE/REVISED BY--

FUNCTION/PURPOSE--

DATE =07/15/85 

RJ MAFFEO 

THE PURPOSE OF THIS ROUTINE IS TO CALL ALL 

TIME" 23 42 

REQUIRED ROUTINES TO COMPUTE THE COORDINATES OF THE 

CENTROID OF THE ELMS AND THE COORDINATES OF THE 

FACE CENTERS IT THEN CALLS THE ELM I/O ROUTINE TO STORE 

THIS INFO INTO THE INTERNAL DATA BASE 

CALLING SEQUENCE-- CALL CALCRD 

CALLING ARGUMENTS-- NONE 

NAME 

NONE 

FILES USED--

ATTRIBUTES 

NONE 

DEFINITION 

NONE 

IERF ERROR REMARK FILE 

COMMONS USED--

AFIL 

ELMDAT 

SIZE 

WORK 

CRNDEF 

FILE CODE COMMON -- ELM ATTRIBUTE COMMON -- PROBLEM SIZE COMMON -- SCRATCH WORK SPACE COMMON -- LOCAL COMMON TO COORD CALC ROUTINES 

FUNCTIONS/ROUTINES CALLED--

GETPD 

RWELMS 

VOLM 

AREAD 

REACRD 

LIBRARIES ACCESSED--

NONE 

LOCAL VARIABLES--

SPECIAL COMMENTS ABOUT THIS ROUTINE 

MANY OF THE ROUTINES CALLED BY CALCRD ARE ALSO USED 

IN SIGMA THTD DECK GENERATOR THEY CAN COMPUTE MUCH MORE THAN 

JUST COORDINATES(SUCH AS VOLUMES AREAS AND DELTA X). 

SPECIAL REMARKS/INSTRUCTIONS--

HOST • H6000 

***************************.**** 

END 

-- GE/TRANCITS -- CALCRO PAGe .. 12 

PAGE=12 

89 
TITLE= DATE =07/15/85 TIME = 23 42 

15150C============s====================================== 

15170 SUBROUTINE GETPD(P3D.P2D) 

15190C====================================================== 

15210CPR 

15220CPR=============================-=============z========= 

15230CPR 

15240CPR 

ROUTINE-- GETPD 

DATE/WRITTEN BY-- 09/13/82 

DATE/REVISED BY--

FUNCTION/PURPOSE--

RJ MAFFEO 

15250CPR 

15260CPR 

15270CPR 

15280CPR 

15290CPR 

15300CPR 

15310CPR 

15320CPR 

15330CPR 

15340CPR 

15350CPR 

THIS SUB COMPUTES AND STORES ALL OF THE PARTIAL DERIVATIVES 

OF THE SHAPE FUNCTIONS.BOTH 3D AND 20 

15360CPR 

15370CPR 

15380CPR 

15390CPR 

15400CPR 

15410CPR 

15420CPR 

15430CPR 

15440CPR 

15450CPR 

15460CPR 

15470CPR 

15480CPR 

15490CPR 

15500CPR 

15510CPR 

15520CPR 

15530CPR 

15540CPR 

15550CPR 

15560CPR 

15570CPR 

CALLING ARGUMENTS -- NAME ATTRIBUTES 

P30 

P20 

COMMONS USED 

CRNDEF 

(0) 

(0) 

SEE CALCRO 

FUNCTIONS/ROUTINES CALLED --

PARD 

GTGAUS 

FILES USED 

LIBRARIES ACCESSED -- NONE 

LOCAL VARIABLES --

DEFINITION 

30 PARTIAL DERIVATIVES 

20 PARTIAL DERIVATIVES 

15580CPR 

15590CPR 

15600CPR 

15610CPR 

15620CPR 

15630CPR 

15640CPR 

15650CPR 

15660CPR 

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST = H6000 

16020 END 

90 -- GE/TRANCITS -- GETPD PAGE- 13 

PAGE=13 
TITLE" 

16060 

16100CPR 

16120CPR 

16130CPR 

16140CPR 

16150CPR 

16160CPR 

16170CPR 

16180CPR 

16190CPR 

16200CPR 

16210CPR 

16220CPR 

16230CPR 

16240CPR 

16250CPR 

16260CPR 

16270CPR 

16280CPR 

16290CPR 

16300CPR 

16310CPR 

16320CPR 

16330CPR 

16340CPR 

16350CPR 

16360CPR 

16370CPR 

16380CPR 

16390CPR 

16400CPR 

16410CPR 

16420CPR 

16430CPR 

16440CPR 

16450CPR 

16460CPR 

16470CPR 

16480CPR 

16490CPR 

16500CPR 

16510CPR 

16520CPR 

16530CPR 

16540CPR 

16550CPR 

16560CPR 

16570CPR 

16580CPR 

16590CPR 

16600CPR 

16610CPR 

16620CPR 

16630CPR 

DATE "07/15/85 TIME 

SUBROUTINE VOLM(X.Y.Z.GP.P3D.VOL.XC.YC.ZC.Q.IVER) 

ROUTINE-- VDLM 

DATE/WRITTEN BY-- 09/13/82 

DATE/REVISED BY--

FUNCTION/PURPOSE--

Ru MAFFEO 

THIS SUB DOES NUMERICAL INTEGRATION FOR VOL.XC.YC.ZC 

IT COMPUTES DET'" AND THE JACOBIAN 

CALLING ARGUMENTS -- NAME ATTRIBUTES 

x 

Y 

Z 

GP 

P3D 

VOL 

XC 

YC 

ZC 

Q 

IVER 

COMMONS USED 

(I) 

(I) 

(1) 

(I) 

(I) 

(0) 

(0) 

(0) 

(0) 

(0) 

(0) 

FUNCTIONS/ROUTINES CALLED --

SHAPEF 

FILES USED 

LIBRARIES ACCESSED -- NONE 

LOCAL VARIABLES --

DEFINITION 

ARRAY OF X COORDS 

Y 

Z 

ARRAY OF GAUSS POINTS 

3D PARTIAL DERIVATIVES 

VOLUME 

X COORD OF CENTROID 

Y 

Z 

JACOBIAN 

IVER-1 > ZERO VOLliME ELM 

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST .. H6000 

17150 END 

-- GE/TRANCITS -- VOLM 

23 42 PAGE=14 

PAGE= 14 91 
TITLE= DATE =07/15/85 TIME 

17170C ••• z : ••• ====.a========== •• =a=====z========a====m=c======c= 

17190 SUBROUTINE SHAPEF(X,V,Z,TETA,VNETA,ZETA,XP,VP,ZP) 

17210C==============-====================-=================:==== 

17230CPR 

17250CPR 

17260CPR 

17270CPR 

17280CPR 

17290CPR 

17300CPR 

17310CPR 

17320CPR 

17330CPR 

17340CPR 

17350CPR 

17360CPR 

17370CPR 

17380CPR 

17390CPR 

17400CPR 

17410CPR 

17420CPR 

17430CPR 

17440CPR 

17450CPR 

17460CPR 

17470CPR 

17480CPR 

17490CPR 

17500CPR 

17510CPR 

17520CPR 

17530CPR 

17540CPR 

17550CPR 

17560CPR 

17570CPR 

17580CPR 

17590CPR 

17600CPR 

17610CPR 

17620CPR 

17630CPR 

17640CPR 

17650CPR 

17660CPR 

17670CPR 

17680CPR 

17690CPR 

17700CPR 

17710CPR 

17720CPR 

17730CPR 

17740CPR 

17750CPR 

ROUTINE-- SHAPEF 

DATE/WRITTEN BV-- 09/14/82 

DATE/REVISED BY--

FUNCTION/PURPOSE--

R,J MAFFEO 

THIS SUB COMPUTES THE VALUES OF X,V,Z AT THE GUASS POINTS 

BASED ON LINEAR 3D SHAPE FUNCTIONS 

CALLING ARGUMENTS -- NAME ATTRIBUTES 

X (I) > 

V (I) » 

Z (I) > 

TETA (I) > 

VNETA (I) » 

ZETA (I) > 

XP (0) > 

VP (0) » 

ZP (0) > 

COMMONS USED 

CRNDEF 

FUNCTIONS/ROUTINES CALLED --

FILES USED --

LIBRARIES ACCESSED 

NONE 

LOCAL VARIABLES --

DEFINITION 

ARRAVS OF COORDINATES 

LOCAL COORDINATES 

DESIRED GLOBAL COORDINATES 

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST • H6000 

17950 END 

23 42 

92 -- GE/TRANCITS -- SHAPEF PAGE= 15 

PAGE=15 
TITLE- DATE -07/15/85 TIME = 23 42 

17990 SUBROUTrNE PARD(TETA,YNETA,ZETA,IGP,IND,PD) 

18030CPR 

18040CPR======z====-======================_============: .. _=:= 

18050CPR 

18060CPR 

18070CPR 

18080CPR 

18090CPR 

18100CPR 

18110CPR 

18120CPR 

18130CPR 

18140CPR 

18150CPR 

18160CPR 

18170CPR 

18180CPR 

18190CPR 

18200CPR 

18210CPR 

18220CPR 

18230CPR 

18240CPR 

18250CPR 

18260CPR 

18270CPR 

18280CPR 

18290CPR 

18300CPR 

18310CPR 

18320CPR 

18330CPR 

18340CPR 

18350CPR 

18360CPR 

18370CPR 

18380CPR 

18390CPR 

18400CPR 

18410CPR 

18420CPR 

18430CPR 

18440CPR 

18450CPR 

18460CPR 

18470CPR 

18480CPR 

18490CPR 

18500CPR 

18510CPR 

18520CPR 

18530CPR 

18540CPR 

ROUTINE-- PARD 

DATE/WRITTEN BY-- 09/14/82 

DATE/REVISED BY--

FUNCTION/PURPOSE--

Ru MAFFEO 

THIS SUB COMPUTES THE DERIVATIVES OF THE 

SHAPE FUNCTIONS WRT THE LOCAL SYSTEM 

BOTH FOR VOLUMES(3D) AND AREAS(2D) 

CALLING ARGUMENTS -- NAME ATTRIBUTES 

TETA 

YNETA 

ZETA 

IGP 

I~D 

PD 

COMMONS USED 

CRNDEF 

(I) > 

(I) » 

(1) > 

(I) 

(I) 

(0) 

FUNCTIONS/ROUTINES CALLED --

FILES USED --

LIBRARIES ACCESSED -- NONE 

LOCAL VARIABLES --

DEFINITION 

LOCAL COORDINATES 

GAUSS 

20/30 

IND-O 

IND-1 

ARRAY 

POINT COUNTER 

INDICATOR 

» 30 

THRU 6 » 20 IND=FACE NUMBER 

OF DERIVATIVES 

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST : H6000 

1~950 END 

-- GE/TRANCITS -- PARD PAGE= 16 

PAGE=16 

93 
TITLE= DATE =07/15/85 TIME 

1a970C===========~============z====z========z========= ==== 

18990 SUBROUTINE AREAD(X.Y.Z.P2D.Q.ARA.DX2. 

19020C=============================================:====== 

19040CPR 

19050CPR=====:=============================================== 

19060CPR 

19070CPR 

19080CPR 

19090CPR 

19100CPR 

19110CPR 

19120CPR 

19130CPR 

19140CPR 

19150CPR 

19160CPR 

19170CPR 

19180CPR 

19190CPR 

19200CPR 

19210CP~ 

19220CPR 

19230CPR 

19240CPR 

19250CPR 

19260CPR 

19270CPR 

ROUTINE-- AREAD 

DATE/WRITTEN BY-- 09/14/82 

DATE/REVISED BY--

FUNCTION/PURPOSE--

RJ MAFFEO 

THIS SUB COMPUTES THE FACE AREAS AND DELTA X 

FOR 3D THT ELMS 

NOTE IT COMPUTES DELTA X TWO WAYS 

IDX=1 DX=DIST FROM ELM CENTROID TO FACE CENTROID 

IDX=2 . DX=PERPENDICULAR DIST FROM ELM CENT TO FACE 

IDX=3 SWITCH TO JUST CALC CENTROID OF FACE 5 

IT IS BEING USED HERE TO COMPUTE THE COORDINATES 

OF THE FACE CENTERS 

CALLING ARGUMENTS -- NAME ATTRIBUTES DEFINITION 

X 

\ ARRAY OF CORNER COORDS 

23 42 

(I) > 

(I) » 

(I) > 

(I) 

(0) 

DERIVATIVES OF SHAPE FUNCTIONS 

JACOBIAN 

(0) ARRAY OF FACE AREAS 

ARRAY OF FACE DELTA XS 

DELTA X COMPUTATION INDICATOR 

COORDS OF VOLUME CENTROID 

19280CPR 

19290CPR 

19300CPR 

19310CPR 

19320CPR 

19330CPR 

19340CPR 

19350CPR 

19360CPR 

19370CPR 

19380CPR 

19390CPR 

19400CPR 

19410CPR 

19420CPR 

19430CPR 

19440CPR 

19450CPR 

19460CPR 

19470CPR 

19480CPR 

19490CPR 

19500CPR 

19510CPR 

19520CPR 

19530CPR 

19540CPR 

19550CPR 

19560CPR 

19570CPR 

19580CPR 

19590CPR 

19600CPR 

19610CPR 

19620CPR 

19630CPR 

19640CPR 

19650CPR 

19660CPR 

19670CPR 

Z 

P2D 

Q 

ARA 

DX2 

IDX 

XC 

YC 

ZC 

XA 

YA 

ZA 

(0) 

(I) 

(I) > 

(I) » 

(I) > 

(0) > (0) » 

(0) > ARRAYS OF COORDS FOR FACE CENTERS 

COMMONS USED 

CRNDEF 

FUNCTIONS/ROUTINES CALLED --

GTGAUS 

SHAPEF 

FILES USED 

LIBRARIES ACCESSED -- NONE 

LOCAL VARIABLES --

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS --

-- GE/TRANCITS 94 -- AREAD PAGE= 17 

PAGE=17 
TITLE= 

19680CPR 

19690CPR 

19700CPR 

HOST 

DATE =07/15/85 

H6000 

19710~PR==ccz.=======.====================.=========== ====== 

20780 END 

-- GE/TRANCITS -- AREAD 

TIME 23 42 PAGE=18 

95 

PAGE= 18 
96 

TITLE= DATE =07/15/85 TIME 

208COC=========-==================c================== 

20820 SUBROUTINE GTGAUS(IND.I1.I2.I3.IP) 

20840C==============================_================ 

20860CPR 

20870CPR============================z=====z================== 

20880CPR 

20890CPR 

20900CPR 

20910CPR 

20920CPR 

20930CPR 

20940CPR 

20950CPR 

20960CPR 

20970CPR 

.20980CPR 

20990CPR 

21000CPR 

21010CPR 

21020CPR 

21030CPR 

21040CPR 

21050CPR 

21060CPR 

21070CPR 

21080CPR 

21090CPR 

21100CPR 

21110CPR 

21120CPR 

21130CPR 

21140CPR 

21150CPR 

21160CPR 

21170CPR 

211S0CPR 

21190CPR 

21200CPR 

21210CPR 

21220CPR 

21230CPR 

21240CPR 

21250CPR 

21260CPR 

21270CPR 

21280CPR 

21290CPR 

21300CPR 

21310CPR 

21320CPR 

21330CPR 

ROUTINE-- GTGAUS 

DATE/WRITTEN BY-- 09/14/82 

DATE/REVISED BY--

FUNCTION/PURPOSE--

RJ MAFFEO 

THIS SUB GETS APPROPRIATE GAUSS POINTS 

FOR EACH FACE OF THE 3D BRICK 

CALLING ARGUMENTS -- NAME ATTRIBUTES 

IND 

Ii 

12 

13 

IP 

COMMONS USED 

(I) 

(0) > 

(0) > 

(0) » 

(0) > 

FUNCTIONS/ROUTINES CALLED --

FILES USED --

LIBRARIES ACCESSED 

NONE 

LOCAL VARIABLES 

DEFINITION 

FACE INDICATOR 

GAUSS POINT COUNTERS 

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST .. H6000 

21450 END 

-- GE/TRANCITS -- GTGAUS 

23 42 PAGE=19 

PAGE= 19 
TITLE- DATE z07/15/85 TIME = 23 42 

21470C- cc -==== •• ==a======c_======_========= ••• ==========::= 

21490 SUBROUTINE REACRD(CRD,XC,YC,ZC,XA,YA,ZA) 

21510C==========================c=======c=================== 

21530CPR 

21550CPR 

21560CPR 

21570CPR 

21580CPR 

21590CPR 

21600CPR 

21610CPR 

21620CPR 

21630CPR 

21640CPR 

21650CPR 

21660CPR 

21670CPR 

21680CPR 

21690CPR 

21700CPR 

21710CPR 

21720CPR 

21730CPR 

21740CPR 

21750CPR 

21760CPR 

21770CPR 

21780CPR 

21790CPR 

21800CPR 

21810CPR 

21820CPR 

21830CPR 

21840CPR 

21850CPR 

21860CPR 

21870CPR 

21880CPR 

21890CPR 

21900CPR 

21910CPR 

21920CPR 

21930CPR 

21940CPR 

21950CPR 

21960CPR 

21970CPR 

21980CPR 

21990CPR 

22000CPR 

22010CPR 

22020CPR 

ROUTINE-- REACRD 

DATE/WRITTEN BY-- 09/15/82 

DATE/REVISED BY--

FUNCTION/PURPOSE--

RI.J MAFFEO 

THIS SUB REARRANGES THE FACE CENTER COORDINATE ARRAYS 

AND THE VOLUME CENTROIDS INTO THE CRD ARRAY 

CALLING ARGUMENTS -- NAME ATTRIBUTES 

CRD 

XC 

YC 

ZC 

XA 

YA 

ZA 

COMMONS USED 

(0) 

(I) > 

(I) » 

(I) > 

(I) > 

(I) » 

(I) > 

FUNCTIONS/ROUTINES CALLED --

FILES USED --

LIBRARIES ACCESSED -- NONE 

LOCAL VARIABLES --

DEFINITION 

BRICK COORD ARRAY 

VOLUME CENTROIDS 

FACE CENTER ARRAYS 

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST • H6000 

22240 END 

-- GE/TRANCITS -- REACRD PAGE= 20 

PAGE=20 

97 
TITLE= DATE =07/15/85 

22260C==========-========-=s=====c===================-= 

22280 SUBROUTINE CORNCC 

22300C====z============================================= 

22320CPR 

22340CPR 

22350CPR 

22360CPR 

22370CPR 

22380CPR 

22390CPR 

22400CPR 

22410CPR 

22420CPR 

22430CPR 

22440CPR 

22450CPR 

22460CPR 

22470CPR 

22480CPR 

22490CPR 

22500CPR 

22510CPR 

22520CPR 

22530CPR 

22540CPR 

22550CPR 

22560CPR 

2257CCPR 

22580CPR 

22590CPR 

22600CPR 

22610CPR 

22620CPR 

22630CPR 

22640CPR 

22650CPR 

22660CPR 

22670CPR 

22680CPR 

22690CPR 

22700CPR 

22710CPR 

22720CPR 

22730CPR 

22740CPR 

22750CPR 

22760CPR 

22770CPR 

22780CPR 

22790CPR 

22800CPR 

22810CPR 

22820CPR 

22830CPR 

22840CPR 

22850CPR 

22860CPR 

22870CPR 

ROUTINE-- CORNCC 

DATE/WRITTEN BY-- 11/10/82 

DATE/REVISED BY--

FUNCTION/PURPOSE--

RJ MAFFEO 

THIS SUB CALLS ALL ROUTINES NEEDED TO COMPUTE 

AND STORE THE INFORMATION ASSOCIATED WITH THE 

CORNER NODE WEIGHTING COEFFICIENTS 

CALLING ARGUMENTS -- NAME ATTRIBUTES 

NONE 

COMMONS USED 

AFIL 

ELMDAT 

SIZE 

WORK 

CNTLGM 

FUNCTIONS/ROUTINES CALLED --

RWELMS 

SORT 

CCNVEC 

GETCRD 

CINV 

PUTWFI 

RWCCF 

FILES USED 

IERF S 

LIBRARIES ACCESSED 

NONE 

LOCAL VARIABLES 

DEFINITION 

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST .. H6000 

24890 END 

-- GE/TRANCITS 

98 -- CORNCC 

TIME 23 42 PAGE=21 

PAGE'" 21 
TITLE= DATE =07/15/85 TIME z 23 42 

24910C====.====== •• =========.~====Z====.=2====a====.== c=._. 

24930 SUBROUTINE CCNVEC(NOD,IRW,NLOC.NUMA,MCON.MXNCON,NSIZW) 

24950C====== ••• ==== •• ===== ••• ==================== •• ==.s===== 

24970CPR 

24990CPR 

25000CPR 

25010CPR 

25020CPR 

25030CPR 

25040CPR 

25050CPR 

25060CPR 

25070CPR 

25080CPR 

25090CPR 

25100CPR 

25110CPR 

25120CPR 

25130CPR 

25140CPR 

25150CPR 

25160CPR 

25170CPR 

25180CPR 

25190CPR 

25200CPR 

25210CPR 

25220CPR 

25230CPR 

25240CPR 

25250CPR 

25260CPR 

'5270CPR 

25280CPR 

25290CPR 

25300CPR 

25310CPR 

25320CPR 

25330CPR 

25340CPR 

25350CPR 

25360CPR 

25370CPR 

25380CPR 

25390CPR 

25400CPR 

25410CPR 

25420CPR 

25430CPR 

25440CPR 

25450CPR 

25460CPR 

25470CPR 

25480CPR 

25490CPR 

25500CPR 

25510CPR 

25520CPR 

25530CPR 

25540CPR 

25550CPR 

ROUTINE-- CCNVEC 

DATE/WRITTEN BY-- 11/10/82 

DATE/REVISED BY--

FUNCTION/PURPOSE--

Ru MAFFEO 

THIS SUB WRITES TO (CREATES) AND READS FROM THE 

NODE -CONNECTION VECTOR (MCON) 

CALLING ARGUMENTS -- NAME ATTRIBUTES 

NOD 

IRW 

NLOC 

NUMA 

MCON 

MXNCON 

NSIZW 

COMMONS USED 

(I) 

(I) 

(I/O) 

(0) 

(I/O) 

(0) 

(I) 

AFIL 

FUNCTIONS/ROUTINES CALLED 

FILES USED 

IERF S 

LIBRARIES ACCESSED 

NONE 

LOCAL VARIABLES --

DEFINITION 

NODE NUMBER 

READ/WRITE SWITCH(O-READ,1-WRITE) 

CURRENT CONNECTION TO NODE 

MAX # CONNECTIONS TO NOOE 

PACKED CONNECTION ARRAY 

MAX # OF CONNECTIONS TO ANY NODE 

SIXE OF WORK ARRAY (MCON HERE) 

SPECIAL COMMENTS ABOUT THIS ROUTINE 

THE NODE-CONNECTION VECTOR (MCON) IS KEYED 

TO THE NODE NAME AND IS COMPOSED OF THE MAX 

CONNECTION TO THAT NODE AND THE CURRENT CONNECTION TO 

THAT NODE IN THE FORM 

MCON\NOO)-1000*MAX CONNECTION + CURRENT CONNECTION 

THE INITIAL CURRENT COUNT IS EQUAL TO THE MAX CONNECTION. 

AS THE CONNECTIONS ARE PROCESSED THE CURRENT COUNT IS 

REDUCED BY ONE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST - H6000 

25560CPR·············································· ..... . 26040 END 

-- GE/TRANCITS -- CCNVEC PAGE= 22 

PAGE=22 

99 
100 

TITLE" DATE =07/15/85 TIME 

26060C================================================== 

26080 SUBROUTINE GETCRD(NE.CRD.BRD.XCN.YCN.ZCN.JREC) 

26100C==============================-==================== 

26120CPR 

26130CPR===================================================== 

26140CPR 

26150CPR 

26160CPR 

26170CPR 

26180CPR 

26190CPR 

26200CPR 

26210CPR 

26220CPR 

26230CPR 

26240CPR 

26250CPR 

26260CPR 

26270CPR 

26280CPR 

26290CPR 

26300CPR 

26310CPR 

26320CPR 

26330CPR 

26340CPR 

26350CPR 

26360CPR 

26370CPR 

26380CPR 

26390CPR 

26400CPR 

26410CPR 

26420CPR 

26430CPR 

26440CPR 

26450CPR 

26460CPR 

26470CPR 

26480CPR 

26490CPR 

26500CPR 

26510CPR 

26520CPR 

26530CPR 

26540CPR 

26550CPR 

26560CPR 

26570CPR 

26580CPR 

26590CPR 

26600CPR 

26610CPR 

26620CPR 

26630CPR 

26640CPR 

26650CPR 

26660CPR 

26670CPR 

26680CPR 

26690CPR 

26700CPR 

26710CPR 

26720CPR 

ROUTINE-- GETCRD 

DATE/WRITTEN BY-- 11/11/82 

DATE/REVISED BY--

FUNCTION/PURPOSE--

RJ MAFFEO 

THIS SUB EXTRACTS THE APPROPRIATE SUBSET OF 

COORDINATES FOR EACH CORNER NODE FORM THE 

FULL SET OF CODRDS OF EACH ELM 

CALLING ARGUMENTS -- NAME ATTRIBUTES 

NE 

CRD 

BRD 

XCN 

YCN 

ZCN 

JREC 

COMMONS USED 

AFIL 

(I) 

(I) 

(0) 

(0) 

(0) 

(0) 

(I) 

»> 

»»»»> 

»> 

FUNCTIONS/ROUTINES CALLED --

FILES USED 

IERF S 

LIBRARIES ACCESSED 

NONE 

LOCAL VARIABLES --

DEFINITION 

ELMEMENT NAME 

FULL SET OF COORDS 

SUBSET OF COORDS 

COORDS OF CORNER 

CORNER LABEL 

SPECIAL COMMENTS ABOUT THIS ROUTINE 

THE ARRARY lOX IS USED TO DEFINE THE RELATIONSHIP 

BETWEEN THE CORNER POINT AND THE APPROPRIATE 3 FACES 

FOR EXAMPLE CORNER POINT 1 IS CONNECTED TO FACES 

1.4.5 

THEREFORE IDX(1.1)=1.IDX(1,2)-4,IDX(1,3)=5 

SPECIAL REMARKS/INSTRUCTIONS 

HOST .. H6000 

27340 END 

-- GE/TRANCITS -- GETCRD 

23 42 PAGE=23 

PAGE- 23 
TITLE" DATE "07/15/85 TIME 

27360C=·=a=.=====z=~===aE.==== •• === •• ===== •• =========== 

27380 SUBROUTINE PUTWFI(NOD.NE.NUMA.JREC.XSF.NPOS.ACWF) 27400C=·=========·=========== •• ====== •• c •••• ===== •• ===c __ c=_._c_= 

27420CPR 

27440CPR 

27450CPR 

27460CPR 

27470CPR 

27480CPR 

27490CPR 

27500CPR 

27510CPR 

27520CPR 

27530CPR 

27540CPR 

27550CPR 

27560CPR 

27570CPR 

27580CPR 

27590CPR 

RDUTINE-- PUTWFI 

DATE/WRITTEN BY-- 11/11/82 

DATE/REVISED BY--

FUNCTION/PURPOSE--

RJ MAFFEO 

THIS SUB POSITIONS THE WEIGHTING COEFF 

INFO INTO CORRECT LOCATIONS OF THE ACWF ARRAY 

CALLING ARGUMENTS -- NAME ATTRIBUTES DEFINITION 

NOD (1) CORNER NODE NUMBER 

NE (I) ELM NUMBER 

27600CPR 

27610CPR 

27620CPR 

27630CPR 

27640CPR 

27650CPR 

27660CPR 

27670CPR 

27680CPR 

27690CPR 

27700CPR 

27710CPR 

27720CPR 

27730CPR 

27740CPR 

27750C.PR 

27760CPR 

27770CPR 

NUMA (I) MAX NUMBER OF CONNECTIONS 

27780CPR 

27790CPR 

27800CPR 

27810CPR 

27820CPR 

27830CPR 

27840CPR 

27850CPR 

27860CPR 

27870CPR 

27880CPR 

27890CPR 

27900CPR 

27910CPR 

27920CPR 

27930CPR 

JREC (1) 

XSF (1) 

NPOS (1) 

ACWF (0) 

COMMONS USED 

AFIL 

FUNCTIONS/ROUTINES CALLED --

FILES USED --

LIBRARIES ACCESSED -- NONE 

LOCAL VARIABLES 

PACKED CORNER - FACE N 

WEIGHTING COEFFS 

STARTING POSITION FOR 

ARRAY CONTAINING INFO 

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST a H6000 

27940CPRs •• =.= •••• = •• ====z= •• =.= •• =~=.=.=.=== •• ==.== ••• = •••• 28260 END 

INFO 

23 42 

-- GE/TRANCITS -- PUTWFI PAGE= 24 

PAGE=24 

101 
102 

TITLE= DATE =07/15/85 TIME 

28280C=z~==================~=========================== 

28300 SUBROUTINE RWCCF(NOD,ACWF,NPOS,IRW) 

28320C================================================= 

28340CPR 

28350CPR=·=====a============~====================.==== ======= 

28360CPR 

28370CPR 

28380CPR 

28390CPR 

28400CPR 

28410CPR 

28420CPR 

28430CPR 

28440CPR 

28450CPR 

28460CPR 

28470CPR 

28480CPR 

28490CPR 

28500CPR 

ROUTINE-- RWCCF 

DATE/WRITTEN BY-- 11/11/82 

DATE/REVISED BY--

FUNCTION/PURPOSE--

Ru MAFFEO 

THIS ROUTINE READS ANO WRITES THE CORNER NODE 

COEFF INFO TO AND FROM THE DATA BASE 

CALLING ARGUMENTS -- NAME ATTRIBUTES DEFINITION 

NODE NAME (RECORD #) 

ARRAY OF INFO 

23 42 

28510CPR 

28520CPR 

28530CPR 

28540CPR 

28550CPR 

28560CPR 

28570CPR. 

28580CPR 

28590CPR 

28600CPR 

28610CPR 

28620CPR 

28630CPR 

28640CPR 

28650CPR 

28660CPR 

NOD 

ACWF 

NPOS 

IRW 

(I/O) 

(I/O) 

(1) 

(I) 

# OF TERMS TO BE READ/WRITTEN 

READ/WRITE SWITCH(0-READ,1-WRITE) 

28670CPR 

28680CPR 

28690CPR 

28700CPR 

28710CPR 

28720CPR 

28730CPR 

28740CPR 

28750CPR 

28760CPR 

28770CPR 

28780CPR 

28790CPR 

28800CPR 

28810CPR 

28820CPR 

28830CPR 

COMMONS USED 

AFIL 

FUNCTIONS/ROUTINES CALLEO --

FILES USED 

IRCCF R 

LIBRARIES ACCESSED 

NONE 

LOCAL VARIABLES --

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST • H6000 

29120 END 

GE/TRANCITS -- RWCCF PAGE= 25 

PAGE=25 
TITLE" 

29160 

29200CPR 

29220CPR 

29230CPR 

29240CPR 

29250CPR 

29260CPR 

29270CPR 

29280CPR 

29290CPR 

29300CPR 

29310CPR 

29320CPR 

29330CPR 

29340CPR 

29350CPR 

29360CPR 

29370CPR 

29380CPR 

29390CPR 

29400CPR 

29410CPR 

29420CPR 

29430CPR 

29440CPR 

29450CPR 

29460CPR 

29470CPR 

29480CPR 

29490CPR 

29500CPR 

29510CPR 

29520CPR 

29530CPR 

29540CPR 

29550CPR 

29560CPR 

29570CPR 

29580CPR 

29590CPR 

29600CPR 

29610CPR 

29620CPR 

29630CPR 

29640CPR 

29650CPR 

29660CPR 

29670CPR 

29680CPR 

29690CPR 

29700CPR 

29710CPR 

29720CPR 

29730CPR 

SUBROUTINE GETMPE(MP,NWDMPE) 

ROUTINE-- GETMPE 

DATE/WRITTEN BY-- 09/19/83 

DATE/REVISED BY--

FUNCTION/PURPOSE--

DATE =07/15/85 TIME 

R.J MAFFEO 

THIS ROUTINE READS THE FIRST TIME STEP TEMPERATURE 

SOLUTION AND EXTRACTS THE ELM NAME AND RELATIVE POSITION 

OF THIS ELM IN THE OUTPUT LIST.IT THEN CALLS MPERW TO 

STORE THIS INFO INTO THE MP ARRAY 

CALLING ARGUMENTS -- NAME ATTRIBUTES 

MP 

NWDMPE 

COMMONS USED 

AFIL 

SIZE 

CNTLFL 

(I/O) 

(1) 

FUNCTIONS/ROUTINES CALLED --

TFLSET 

HTFIO 

MPERW 

FILES USED 

LIBRARIES ACCESSED -- NONE 

LOCAL VARIABLES --

DEFINITION 

ELM MATRIX POSITION ARRAY 

# OF WORDS IN MP ARRAY 

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST • H6000 

29740CPR·· •••••••••••••••••••••••••••••••••••••••••••••••••• 

30240 END 

23 42 

-- GE/TRANCITS -- GETMPE PAGE= 26 

PAGE=26 

103 
< 

TITLE" DATE =07/15/85 TIME 

~0260C===·===·=====z=c================================ = •• ===== 

30280 SUBROUTINE MPERW(MP,NE,NPOS,IRW) 

30300C==x=========== •• =====================_=============a.=== 

30320CPR 

ROUTINE-- MPERW 

DATE/WRITTEN BY-- 10/08/83 

DATE/REVISED BY--

FUNCTION/PURPOSE--

RJ MAFFEO 

THIS ROUTINE PACKS AND UNPACKS THE INFO NEEDED TO RELATE 

THE ELEMENT NAME TO THE RELATIVE POSITION OF THE ELEMENT 

IN THE OUTPUT LIST 

CALLING ARGUMENTS -- NAME ATTRIBUTES DEFINITION 

MATRIX POSITION ARRAY 

ELM NAME 

23 42 

30340CPR 

30350CPR 

30360CPR 

30370CPR 

30380CPR 

30390CPR 

30400CPR 

30410CPR 

30420CPR 

30430CPR 

30440CPR 

30450CPR 

30460CPR 

30470CPR 

30480CPR 

30490CPR 

30500CPR 

30510CPR 

30520CPR 

30530CPR 

30540CPR 

30550CPR 

30560CPR 

30570CPR 

30580CPR 

30590CPR 

30600CPR 

30610CPR 

30620CPR 

30630CPR 

30640CPR 

30650CPR 

30E>60CPR 

30670CPR 

30680CPR 

30690CPR 

30700CPR 

30710CPR 

30720CPR 

30730CPR 

30740CPR 

30750CPR 

30760CPR 

30770CPR 

30780CPR 

30790CPR 

30800CPR 

30810CPR 

30820CPR 

30830CPR 

30840CPR 

30850CPR 

30860CPR 

30870CPR 

30880CPR 

30890CPR 

30900CPR 

30910CPR 

30920CPR 

30930CPR 

30940CPR 

30950CPR 

MP 

NE 

NPOS 

IRW 

(I/O) 

(I) 

(I/O) 

(I) 

RELATIVE POSITION IN OUTPUT 

SWITCH(0--READ,1--WRITE) 

COMMONS USED NONE 

FUNCTIONS/ROUTINES CALLED 

MOD (FORTRAN SUPPLIED) 

FILES USED 

06 S 

LIBRARIES ACCESSED 

NONE 

LOCAL VARIABLES --

SPECIAL COMMENTS ABOUT THIS ROUTINE 

THIS ROUTINE USES DECIMAL PACKING TO PACK 2 POSITIONS 

PER WORD OF THE MP ARRAY IT MAKES USE OF THE FORTRAN 

SUPPLIED 'MOD' FUNCTION 

THE POSITIONS ARE PACKED AS FOLLOWS -- POSITION 1 »> LEFT HAND SIDE OF WORD 

POSITION 2 »> RIGHT HAND SIDE OF WORD 

THE MAX POSITION THAT CAN BE PACKEO IS NPOS-9999 

THE ADVANTAGE OF THIS SCHEME IS THAT THE DIMENSION OF 

MP NEED ONLY BE 4000 TO STORE ELMS UP TO 8000 

FOR EXAMPLE 

IF THE POSITION OF ELM 1 IS 987 

AND THE POSITION OF ELM 2 IS 79 

THEN THE VALUE STOREO IN MP(1) IS 09870079 

NOTE THAT MP(1) CONTAINS THE POSITIONS OF BOTH 

ELMS 1 AND 2 

SPECIAL REMARKS/INSTRUCTIONS 

HOST - H6000 

104 -- GE/TRANCITS -- MPERW PAGE" 27 

PAGE=27 
TITLE= DATE =07/15/85 TIME = 23 42 PAGE=28 

30960CPR 

30970CPR=====E============~==a============= •• ========= SE=:== 

31620 END 

105 -- GE/TRANCITS -- MPERW PAGE= 28 
106 

TITLE= DATE "07/15/85 TIME 

31640Cc========================c==========c============== 

31660 SUBROUTINE SETFLP(NNEW,NOLD) 

31680C===c========================-====================== 

31700CPR 

31710CPR .. = .... ========= .. ======= .. ====== .. ===.=== .. === .. ============ 31720CPR 

31730CPR 

31740CPR 

31750CPR 

31760CPR 

31770CPR 

31780CPR 

31790CPR 

31800CPR 

31810CPR 

31820CPR 

31830CPR 

31840CPR 

31850CPR 

31860CPR 

31870CPR 

31880CPR 

31890CPR 

31900CPR 

31910CPR 

31920CPR 

31930CPR 

31940CPR 

31950CPR 

31960CPR 

31970CPR 

31980CPR 

31990CPR 

32000CPR 

32010CPR 

32020CPR 

32030CPR 

32040CPR 

32050CPR 

320GOCPR 

32070CPR 

32080CPR 

32090CPR 

32100CPR 

32110CPR 

32120CPR 

32130CPR 

32140CPR 

32150CPR 

321GOCPR 

32170CPR 

32180CPR 

32190CPR 

ROUTINE-- SETFLP 

DATE/WRITTEN BY-- 09/19/83 

DATE/REVISED BY--

FUNCTION/PURPOSE--

Ru MAFFEO 

THIS ROUTINE SETS THE H T INPUT FILE TO THE CORRECT 

POSITION TO READ THE SOLUTION DESIRED 

CALLING ARGUMENTS -- NAME ATTRIBUTES 

NNEW 

NOLD 

COMMONS USED 

AFIL 

(1) 

(1) 

FUNCTIONS/ROUTINES CALLED --

TFLSET 

HTFPAS 

FILES USED 

LIBRARIES ACCESSED -- NONE 

LOCAL VARIABLES --

DEFINITION 

FILE DESIRED 

CURRENT FILE COUNT 

OF THT OUTPUT FILE 

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST .. HGOOO 

32550 END 

GE/TRANCITS -- SETFLP 

23 42 PAGE=29 

PAGE= 29 
TITLE- DATE =07/15/85 TIME 

32570C================================================._= 

32590 SUBROUTINE RDTEMP(TEMP,NFLVAL) 

32610C======-===============_== •• ==_._==_.z==== ••• = ••• ==e 32630CPR 

32650CPR 

32660CPR 

32670CPR 

32680CPR 

32690CPR 

32700CPR 

32710CPR 

32720CPR 

32730CPR 

32740CPR 

32750CPR 

32760CPR 

32770CPR 

32780CPR 

32790CPR 

32800CPR 

32810CPR 

32820CPR 

32830CPR 

32840CPR 

32850CPR 

32860CPR 

32870CPR 

32880CPR 

32890CPR 

32900CPR 

32910CPR 

32920CPR 

32930CPR 

32940CPR 

32950CPR 

32960CPR 

32970CPR 

32980CPR 

32990CPR 

33000CPR 

33010CPR 

33020CPR 

33030CPR 

33040CPR 

33050CPR 

33060CPR 

33070CPR 

33080CPR 

33090CPR 

33100CPR 

33110CPR 

33120CPR 

33130CPR 

33140CPR 

ROUTINE-- RDTEMP 

DATE/WRITTEN BY-- 09/19/83 

DATE/REVISED BY--

FUNCTION/PURPOSE--

RoJ MAFFEO 

THIS ROUTINE READS THE TEMPERATURE INFO FOR THE DESIRED 

TIME STEP FROM THE THT OUTPUT FILE AND STORES IT IN 

THE TEMP ARRAY 

CALLING ARGUMENTS -- NAME ATTRIBUTES 

TEMP 

NFLVAL 

COMMONS USED 

AFIL 

SIZE 

CNTLFL 

(0) 

(I) 

FUNCTIONS/ROUTINES CALLED --

HTFIO 

FILES USED 

IERF S 

LIBRARIES ACCESSED 

NONE 

LOCAL VARIABLES --

DEFINITION 

TEMPER STORAGE ARRAY 

CURRENT FILE COUNT 

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST - H6000 

33670 END 

23 42 

-- GE/TRANCITS -- RDTEMP PAGE- 30 

PAGE=30 

107 
TITLE'" DATE =07/15/85 TIME = 23 42 

33710 SUBROUTINE CWCRNT(MP,TEMP,TIMVAL,NNODMX,NNODMN,TCRIT,MXNCDN) 

33730C===================a================================= 

33750CPR 

33760CPR===================== .. ================ .. ============== 33770CPR 

33780CPR 

33790CPR 

33800CPR 

33810CPR 

33820CPR 

33830CPR 

33840CPR 

33850CPR 

33860CPR 

33870CPR 

33880CPR 

33890CPR 

33900CPR 

33910CPR 

33920CPR 

33930CPR 

33940CPR 

33950CPR 

33960CPR 

33970CPR 

33980CPR 

33990CPR 

34000CPR 

34010CPR 

34020CPR 

34030CPR 

34040CPR 

34050CPR 

34060CPR 

34070CPR 

34080CPR 

34090CPR 

34100CPR 

34110CPR 

34120CPR 

34130CPR 

34140CPR 

34150CPR 

34160CPR 

34170CPR 

34180CPR 

34190CPP 

34200CPR 

34210CPR 

34220CPR 

34230CPR 

34240CPR 

34250CPR 

34260CPR 

34270CPR 

34280CPR 

34290CPR 

34300CPR 

34310CPR 

34320CPR 

34330CPR 

34340CPR 

34350CPR 

34360CPR 

34370CPR 

ROUTINE-- CWCRNT 

DATE/WRITTEN BY-- 09/19/83 

DATE/REVISED BY--

FUNCTION/PURPDSE--

RJ MAFFEO 

THIS ROUTINE COMPUTES A UNIQUE TEMPERATURE FOR EACH 

CORNER OF THE HEAT TRANSFER ELM BASED ON THE INDIVIDUAL 

TEMPERATURES FOR EACH ELM CONNECTION 

CALLING ARGUMENTS -- NAME ATTRIBUTES 

MP 

TEMP 

TIMVAL 

NNODMX 

NNODMN 

TCRIT 

MXNCON 

COMMONS USED 

AFIL 

(1) 

(I) 

(1) 

(1) 

(1) 

(I) 

(1) 

FUNCTIONS/ROUTINES CALLED --

RWCCF 

UNPAKF 

MPERW 

FCRNTP 

MAXTDF 

WRITMP 

FILREW 

FILES USED 

LIBRARIES ACCESSED -- NONE 

LOCAL VARIABLES --

DEFINITION 

ELM MATRIX POSITION ARRAY 

ELM TEMPERATURE ARRAY 

CURRENT VALUE OF TIME 

MAX NOOE NAME 

MIN NODE NAME 

TEMPERATURE USED IN MAXTDF TO 

DETERMINE IF CORNER TEMPERATURE 

DIFFERENCE SHOULD BE OUTPUT 

MAX NUMBER CONNECTIONS TO 

ANY NODE 

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST II H6000 

108-- GE/TRANCITS -- CWCRNT PAGE- 31 

PAGE=31 
TITLE= DATE =07/15/85 TIME = 23 42 PAGE=32 

35450 END 

109 -- GE/TRANCITS -- CWCRNT PAGE- 32 
110 

TITLE= DATE =07/15/85 TIME 

35470C·· r ===s===_:zz=s===========_=======_========_======== 

35490 SUBRDUTINE UNPAKF(NPACK,NAME,IFACE) 35510Cc===z==========z==============~zz=============== ===== 

35530CPR 

35540CPR-==============================================:===== 

35550CPR 

RDUTINE-- UNPAKF 

DATE/WRITTEN BY-- 11/29/82 

DATE/REVISED BY--

FUNCTIDN/PURPOSE--

RJ MAFFED 

23 42 

35560CPR 

35570CPR 

35580CPR 

35590CPR 

35600CPR 

35610CPR 

35620CPR 

35630CPR 

35640CPR 

35650CPR 

35660CPR 

35670CPR 

THIS ROUTINE UNPACKS THE CORNER-FACE NUMBER INTO AN CORNER 

NUMBER(NAME) AND THE FACE ARRAY(IFACE) 

35680CPR 

35690CPR 

35700CPR 

35710CPR 

35720CPR 

35730CPR 

35740CPR 

35750CPR 

35760CPR 

35770CPR 

35780CPR 

35790CPR 

35800CPR 

35810CPR 

35820CPR 

35830CPR 

35840CPR 

35850CPR 

35860CPR 

35870CPR 

35880CPR 

35890CPR 

35900CPR 

35910CPR 

35920CPR 

35930CPR 

35940CPR 

35950CPR 

35960CPR 

35970CPR 

35980CPR 

35990CPR 

36000CPR 

36010CPR 

36020CPR 

36030CPR 

36040CPR 

36050CPR 

36060CPR 

36070CPR 

36080CPR 

36090CPR 

CALLING ARGUMENTS -- NAME ATTRIBUTES 

NPACK 

NAME 

IFACE 

COMMONS USED 

AFIL 

(I) 

(0) 

(0) 

FUNCTIONS/ROUTINES CALLED --

FILES USED 

IERF S 

LIBRARIES ACCESSED 

NONE 

LOCAL VARIABLES --

DEFINITION 

PACKED CORNER-FACE # 

CORNER NAME 

FACE INFO ARRAY 

SPECIAL COMMENTS ABOUT THIS ROUTINE 

NOTE PACK CORNER-FACE # = CORNER NAME*1000000+IFACPC 

WHERE IFACPC IS A SINGLE INTEGER THAT CONTAINS ALL 

ALL THE FACE NUMBERS 

FOR EXAMPLE 

IF THE FACE NUMBERS WERE 6,5,4,3,2,1 

THEN IFACPC-654321 

SPECIAL REMARKS/INSTRUCTIONS 

HOST = H6000 

36480 END 

GE/TRANCITS -- UNPAKF PAGE" 33 

PAGE=33 
TITLE= 

36520 

36560CPR 

36580CPR 

36590CPR 

36600CPR 

36610CPR 

36620CPR 

36630CPR 

36640CPR 

36650CPR 

36660CPR 

36670CPR 

36680CPR 

36690CPR 

36700CPR 

36710CPR 

36720CPR 

36730CPR 

36740CPR 

36750CPR 

36760CPR 

36770CPR 

36780CPR 

36790CPR 

36800CPR 

36810CPR 

36820CPR 

36830CPR 

36840CPR 

36850CPR 

36860CPR 

36870CPR 

36880CPR 

36890CPR 

36900CPR 

36910CPR 

36920CPR 

36930CPR 

36940CPR 

36950CPR 

36960CPR 

36970CPR 

36980CPR 

36990CPR 

37000CPR 

37010CPR 

37020CPR 

37030CPR 

37040CPR 

37050CPR 

37060CPR 

37070CPR 

37080CPR 

37090CPR 

DATE =07/15/85 TIME 

SUBROUTINE FCRNTP(TEMP,MPOS,IFACE,NCORN,CTP,COF) 

ROUTINE-- FCRNTP 

DATE/WRITTEN BY-- 11/29/82 

DATE/REVISED BY--

FUNCTION/PURPOSE--

RJ MAFFEO 

THIS ROUTINE EXTRACTS THE 7 TEMPERATURES ASSC WITH A 

CONNECTING ELM IT THEN FINDS THE 4 TEMPS ASSC WITH 

THE CORNER OF INTEREST AND DOES THE MULTIPLICATION 

TO COMPUTE THE TEMPERATURE FOR THIS CORNER BASED ON 

THIS ELM CONNECTION 

CALLING ARGUMENTS -- NAME ATTRIBUTES 

TEMP 

MPOS 

IFACE 

NCORN 

CTP 

COF 

COMMONS USED 

AFIL 

(I) 

(I) 

(I) 

(I) 

(0) 

(I) 

FUNCTIONS/ROUTINES CALLED --

FILES USED --

LIBRARIES ACCESSED 

NONE 

LOCAL VARIABLES --

DEFINITION 

ELM TEMPER ARRAY 

MATRIX POS OF THE ELM 

ELM FACE ARRAY 

CORNER NUMBER 

CORNER TEMPERATURE 

CORNER COEFF ARRAY 

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST .. H6000 

37100CPR··············································· ..... 37970 END 

-- GE/TRANCITS -- FCRNTP 

23 42 PAGE=34 

PAGE- 34 III 
TITLE= DATE =07/15/85 TIME = 23 42 

37990C·C=====.=================.=====a==~============= ==== 

38010 SUBROUTINE MAXTDF(NEL.CRNT.NCON.NDONE.TIMVAL.TCRIT.IREC) 

38030C==================================================== 

38050CPR 

38060CPR===========================-:======================== 

38070CPR 

38080CPR 

38090CPR 

38100CPR 

38110CPR 

38120CPR 

38130CPR 

38140CPR 

38150CPR 

38160CPR 

38170CPR 

38180CPR 

38190CPR 

38200CPR 

38210CPR 

38220CPR 

38230CPR 

38240CPR 

38250CPR 

38260CPR 

38270CPR 

38280CPR 

38290CPR 

38300CPR 

38310CPR 

38320CPR 

38330CPR 

38340CPR 

38350CPR 

38360CPR 

38370CPR 

38380CPR 

38390CPR 

38400CPR 

38410CPR 

38420CPR 

38430CPR 

38440CPR 

38450CPR 

38460CPR 

38470CPR 

38480CPR 

38490CPR 

38500CPR 

38510CPR 

38520CPR 

38530CPR 

38540CPR 

38550CPR 

38560CPR 

38570CPR 

38580CPR 

38590CPR 

38600CPR 

38610CPR 

38620CPR 

ROUTINE-- MAXTDF 

DATE/WRITTEN BY-- 11/30/82 

DATE/REVISED BY--

FUNCTION/PURPOSE--

Ru MAFFEO 

THIS ROUTINE COMPUTES THE MAX DIFFERENCE BETWEEN 

ALL THE POSSIBLE CORNER TEMPERATURES AT A CORNEQ 

AND FLAGS IT IF IT IS GREATER THAN TCRIT 

CALLING ARGUMENTS -- NAME ATTRIBUTES 

NEL 

CRNT 

NCON 

NOONE 

(I) 

(I) 

(I) 

(I) 

DEFINITION 

ARRAY OF ELMS CONNECTED 

ARRAY OF TEMPS FOR THIS 

NUMBER OF ELM CONNECTED 

PAGE HEADER COUNTER 

TO THIS NODE 

NOD_E 

TO THIS NODE 

TIMVAL 

TCRIT 

(I) 

(I) 

(=0 WRITE HEADER. NOT = 0 DO NT WRITE) 

CURRENT VALUE OF TIME 

IREC (I) 

COMMONS USED 

AFIL 

CRITICAL TEMP FOR PRINTOUT 

IF MAX DIFF < TCRIT -- DONT WRITE 

IF MAX DIFF > TCRIT -- WRITE 

RECORD NUMBER(NODE NUMBER)OF CORNER 

FUNCTIONS/ROUTINES CALLED --

SORT 

FILES USED 

INOT6 S 

LIBRARIES ACCESSED 

NONE 

LOCAL VARIABLES --

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST = H6000 

39160 END 

112-- GE/TRANCITS -- MAXTDF PAGE: 35 

PAGE=35 
TITLE- DATE -07/15/85 TIME" 23 42 

39200 SUBROUTINE WRITMP(TBAR.TIMVAL.NOD.NDONE) 

39240CPR 

3925QCPR=···=··=========-========= ••• ================_D====:: 

39260CPR 

39270CPR 

39280CPR 

39290CPR 

39300CPR 

39310CPR 

39320CPR 

39330CPR 

39340CPR 

39350CPR 

39360CPR 

39370CPR 

39380CPR 

39390CPR 

39400CPR 

39410CPR 

39420CPR 

39430CPR 

39440CPR 

39450CPR 

39460CPR 

39470CPR 

39480CPR 

39490CPR 

39500CPR 

39510CPR 

39520CPR 

39530CPR 

39540CPR 

39550CPR 

39560CPR 

39570CPR 

39580CPR 

39590CPR 

39600CPR 

39610CPR 

39620CPR 

39630CPR 

39640CPR 

39650CPR 

39660CPR 

39670CPR 

39680CPR 

39690CPR 

39700CPR 

39710CPR 

39720CPR 

39730CPR 

39740CPR 

39750CPR 

39760CPR 

39770CPR 

ROUTINE-- WRITMP 

DATE/WRITTEN BY-- 11/30/82 

DATE/REVISED BY--

FUNCTION/PURPOSE--

Ru MAFFEO 

THIS ROUTINE WRITES THE VALUES OF THE TEMPERATURES AT THE 

STRESS POINTS TO HARD COpy AND TO THE OUTPUT FILE 

CALLING ARGUMENTS -- NAME ATTRIBUTES 

TBAR 

TIMVAL 

NOD 

NDONE 

COMMONS USED 

AFIL 

(1) 

(1) 

(I) 

(1) 

FUNCTIONS/ROUTINES CALLED --

FILES USED 

INOT6 S 

IOUTF S 

LIBRARIES ACCESSED 

NONE 

LOCAL VARIABLES --

DEFINITION 

TEMPERATURE AT THE STRESS POINT 

CURRENT VALUE OF TIME 

STRESS POINT NAME(NODE #) 

SWITCH 

-0 

NOT 0 

"-1 

WRITER PAGE HEADER 

DO NOT WRITE HEADER 

FLUSH BUFFERS 

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST = H6000 

39780CPR····· •••••••••••••••••••••••••••••••••••••••••• _ •••• 

40580 END 

-- GE/TRANCITS -- WRITMP PAGE= 36 

PAGE=36 

113 
TITLE= DATE =07/15/85 TIME 

40S00C==~==·=======·=====~===z.z=z====.=====~.========= === 

40620 SUBROUTINE CINV(CD,XSP,YSP,ZSP,XSF,NE,JCN) 

40640C=-===z============================================== 

40660CPR 

40670CPR==========================z=========================== 

40680CPR 

40690CPR 

40700CPR ROUTINE--

40710CPR 

CINV 

40720CPR DATE/WRITTEN BY-- 9/10/82 RJ MAFFEO 

40730CPR DATE/REVISED BY-- 01/12/83 RJ MAFFEO 

FUNCTION/PURPOSE--

THIS SUB FIND THE VALUES OF THE SHAPE FUNCTIONS FOR 

ANY POINT NEAR A TETRAHEDRAL ELEMENT THE SHAPE FUNCTIONS 

ARE BASED ON THE SIMPLEX TETRAHEDRA~ ELE~ENT 

23 42 

40740CPR 

40750CPR 

40760CPR 

40770CPR 

40780CPR 

40790CPR 

40800CPR 

40810CPR 

4C820CPR 

40830CPR 

40840CPR 

40850CPR 

40860CPR 

40870CPR 

40880CPR 

40890CPR 

40900CPR 

40910CPR 

40920CPR 

40930CPR 

40940CPR 

40950CPR 

40960CPR 

40970CPR 

40980CPR 

IT FIRST FINDS THE INVERSE OF THE COORDINATE MATRIX (-C-) 

IT THEN THENS MULTIPLIES-THIS INVERSE INTO THE COORD 

VECTOR (1 X Y Z) TO FIND THE SHAPE FUNCTIONS 

40990CPR 

THIS ROUTINE CAN BE USED TO COMPUTE THE WEIGHTING 

COEFF FOR THE CORNERS OF A THTD ELM BASED ON THE TEMPERATURES 

AT THE CENTER OF THE FACES AND THE CENTROID 

CALLING ARGUMENTS--

NAME ATTRIBUTES 

CD (I) 12X1 ARRAY 

XSP 

YSP 

ZSP 

XSF 

NE 

JCN 

(I) 

(I) 

(I) 

(0) 5X1 ARRAY 

(I) 

(I) 

DEFINITION 

COORDINATE ARRAY 

X,Y,Z COORDS OF CORNERS OF TETRA 

COORDS OF THE POINT FOR WHICH 

THE SHAPE FUNCTIONS ARE DESIRED 

VECTOR OF SHAPE FUNCTIONS 

ELMEMENT NAME 

CORNER NUMBER 

41000CPR FILES USED--

41010CPR AFIL 

41020CPR 

41030CPR COMMONS USED--

41040CPR NONE 

41050CPR 

41060CPR 

41070CPR ROUTINES CALLED -- 41080CPR NONE 

41090CPR 

41100CPR LIBRARIES ACCESSED--

41110CPR NONE 

41120CPR 

41130CPR LOCAL VARIABLES--

41140CPR INX 18X1 

41150CPR 

41160CPR 

41170CPR 

41180CPR 

41190CPR 

41200CPR 

CI 

C 

4X4 

5X4 

THIS VECTOR IS USED TO SELECT THE 

CORRECT INDICES OF THE C MATRIX FOR 

EACH ELEMENT OF THE C INVERSE MATRIX 

INVERSE OF THE COORD MATRIX(-C-) 

20 MATRIX CONTAINING CORRDS OF TETRA 

41210CPR SPECIAL COMMENTS ABOUT THIS ROUTINE -- 41220CPR 

41230CPR 

41240CPR 

41250CPR 

41260CPR 

41270CPR 

41280CPR 

41290CPR 

NOTE THAT THE COORD MATRIX(-C-) IS AUGMENTED WITH 

A ROW OF ONES THIS ROW OF ONES IS USEO IN THE COMPUTATION 

OF THE INVERSE 

NOTE XSF(5)a1/DIST 

DIST=DISTANCE FROM CENTROID TO CORNER 

114 -- GE/TRANCITS -- CINV PAGE" 37 

PAGE=37 
TITLE= 

41300CPR 

41310CPR 

41320CPR 

41330CPR 

41340CPR 

41350CPR 

41360CPR 

41370CPR 

41380CPR 

41390CPR 

DATE =07/15/85 TIME = 23 42 

NOTE A LOCAL COORD SYSTEM IS ESTABLISHED FOR EACH ELM 

THIS SYSTEM IS FORMED AS Q(I)-QC 

WHERE 0(1) IS THE COORDS OF THE VERTICES 

AND QC IS THE COORDS OF THE CENTROID OF THE ELM 

SPECIAL REMARKS/INSTRUCTIONS--

HOST .. H6000 

41400CPR********************************************************************* 

42720 END 

-- GE/TRANCITS -- CINV PAGE- 38 

PAGE=38 

115 
116 

TITLE= 

42760 

42930 

DATE =07/15/85 

SUBROUTINE PRNTIM(ISTOP,I1,TB,TE) 

END 

GE/TRANCITS -- PRNTIM 

TIME 23 42 PAGE=39 

PAGE"' 39 
TITLE= DATE =07/15/85 TIME 

42950C====-=======a ••• ======= •• =======za===============ec= 

42970 SUBROUTINE EMINMX(XC,YC,ZC,CADD,XYZV,NEMNMX,NE,NNPE) 42990C·====·======~===========.==.=a=.==.= •• ===.====== z=c= 

43010CPR 

ROUTINE-- EMINMX 

DATE/WRITTEN BY-- 04/05/83 

DATE/REVISED BY--

FUNCTION/PURPOSE--

R.J MAFFEO 

THIS ROUTINE FINDS THE MIN AND MAX XYZ COORDS 

OF THE HEAT TRANSFER ELEMENT AND STORES THIS INFO 

INTO THE XYZV ARRAY 

IT ALSO KEEPS TRACK OF THE ELMS WITH THE SMALLEST 

AND LARGEST XYZ COORDS AND STORES THEM IN THE 

NEMNMX ARRAY 

CALLING ARGUMENTS -- NAME ATTRIBUTES DEFINITION 

23 42 

43030CPR 

43040CPR 

43050CPR 

43060CPR 

43070CPR 

43080CPR 

43090CPR 

43100CPR 

43110CPR 

43120CPR 

43130CPR 

43140CPR 

43150CPR 

43160CPR 

43170CPR 

43180CPR 

43190CPR 

43200CPR 

43210CPR 

43220CPR 

43230CPR 

43240CPR 

43250CPR 

43260CPR 

43290CPR 

43300CPR 

43310CPR 

43320CPR 

43330CPR 

43340CPR 

43350CPR 

43360CPR 

43370CPR 

43380CPR 

43390CPR 

43400CPR 

43410CPR 

43420CPR 

43430CPR 

43440CPR 

43450CPR 

43460CPR 

43470CPR 

43480CPR 

43490CPR 

43500CPR 

43510CPR 

43520CPR 

43530CPR 

43540CPR 

xc 

YC 

ZC 

CADD 

NE 

NNPE 

(I) » 

(I) »» 

(I) » 

(I) 

COORD ARRAYS FOR HT ELM VERTICES 

(I) 

CONSTANT COORD ADDER 

CURRENT ELM NAME 

(I) # OF NODES PER ELM 

COMMONS USED 

FUNCTIONS/ROUTINES CALLED --

SORT 

FILES USED 

LIBRARIES ACCESSED -- NONE 

LOCAL VARIABLES 

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST • H6000 

43550CPR··· •••••• c ••••••••••••••••••••••••••• = •••••••••••••• 

43910 END 

-- GE/TRANCITS -- EMINMX PAGE- 40 117 
TITLE= DATE =07/15/85 TIME 

43930C======·a==c=======z==================~=.======== ==== 

43950 SUBROUTINE FTIME(A1) 

43970C===============c==================================== 

43990CPR 

44000CPR=·=·==~========================.=============== ====== 

44010CPR 

44020CPR 

44030CPR 

44040CPR 

44050CPR 

44060CPR 

44070CPR 

44080CPR 

44090CPR 

44100CPR 

44110CPR 

44120CPR 

44130CPR 

44140CPR 

44150CPR 

44160CPR 

44170CPR 

44180CPR 

44190CPR 

44200CPR 

44210CPR 

44220CPR 

44230CPR 

44240CPR 

44250CPR 

44260CPR 

44270CPR 

44280CPR 

44290CPR 

44300CPR 

44310CPR 

44320CPR 

44330CPR 

44340CPR 

44350CPR 

44360CPR 

44370CPR 

44380CPR 

44390CPR 

44400CPR 

44410CPR 

ROUTINE-- FTIME 

DATE/WRITTEN BY-- 04/05/83 

DATE/REVISED BY--

FUNCTION/PURPOSE--

RJ MAFFEO 

THIS ROUTINE CALLS THE APPROPRIATE SYSTEM ROUTINE 

TO MEASURE THE PROCESSOR TIME 

CALLING ARGUMENTS -- NAME ATTRIBUTES DEFINITION 

A1 (0) PROCESSOR TIME 

COMMONS USED NONE 

FUNCTIONS/ROUTINES CALLED --

PTIME HONEY WELL TIMER 

FILES USED 

LIBRARIES ACCESSED -- NONE 

LOCAL VARIABLES --

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST = H6000 

44470 END 

118 -- GE/TRANCITS -- FTIME 

23 42 PAGE=41 

PAGE- 41 
TITLE= 

44510 

44550CPR 

44570CPR 

44580CPR 

44590CPR 

44600CPR 

44610CPR 

44620CPR 

44630CPR 

44640CPR 

44650CPR 

44660CPR 

44670CPR 

44680CPR 

44690CPR 

44700CPR 

44710CPR 

44720CPR 

44730CPR 

44740CPR 

44750CPR 

44760CPR 

44770CPR 

44780CPR 

44790CPR 

44800CPR 

44810CPR 

44820CPR 

44830CPR 

44840CPR 

44850CPR 

44860CPR 

44870CPR 

44880CPR 

44890CPR 

44900CPR 

44910CPR 

44920CPR 

44930CPR 

44940CPR 

44950CPR 

44960CPR 

44970CPR 

44980CPR 

44990CPR 

45000CPR 

45010CPR 

45020CPR 

45030CPR 

45040CPR 

45050CPR 

45060CPR 

SUBROUTINE SSURCH 

ROUTINE-- SSURCH 

DATE/WRITTEN BY-- 04/05/83 

DATE/REVISED BY--

FUNCTION/PURPOSE--

DATE =07/15/85 TIME 

RJ MAFFEO 

THIS ROUTINE IS THE MINI-EXEC FOR THE STRESS POINT 

TO HEAT TRANSFER ELM SEARCH ROUTINES IT CALLS ALL 

REQUIRED ROUTINES TO FIND WHICH HT ELM CONTAINS 

EACH STRESS POINT AND THEN FINDS THE WEIGHTING COEFFS 

FOR THAT STRESS POINT 

CALLING ARGUMENTS -- NAME ATTRIBUTES 

COMMONS USED 

AFIL 

SIZE 

SPDAT 

FUNCTIONS/ROUTINES CALLED --

KNTSPF 

RFILCR 

ZERORF 

GNLSUR 

FILES USED 

LIBRARIES ACCESSED -- NONE 

LOCAL VARIABLES --

DEFINITION 

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST • H60Q0 

45600 END 

-- GE/TRANCITS -- SSURCH 

23 42 PAGE=42 

PAGE" 42 119 
TITLE" DATE =07/15/85 TIME = 23 42 

45620C===z=.-==================-==-======================= 

45640 SUBROUTINE KNTSPF(NUMSP,MXNSP) 

45660C==================================================:: 

45680CPR 

45690CPR=====================================a===_=====c===== 

45700CPR 

45710CPR 

45720CPR 

45730CPR 

45740CPR 

45750CPR 

45760CPR 

45770CPR 

45780CPR 

45790CPR 

45800CPR 

45810CPR 

45820CPR 

45830CPR 

45840CPR 

45850CPR 

45860CPR 

45870CPR 

45880CPR 

45890CPR 

45900CPR 

45910CPR 

45920CPR 

45930CPR 

45940CPR 

45950CPR 

45960CPR 

45970CPR 

45980CPR 

45990CPR 

46000C.PR 

46010CPR 

46020CPR 

46030CPR 

46040CPR 

46050CPR 

46060CPR 

46070CPR 

46080CPR 

46090CPR 

46100CPR 

46110CPR 

46120CPR 

46130CPR 

46140CPR 

46150CPR 

46160CPR 

ROUTINE-- KNTSPF 

DATE/WRITTEN BY-- 04/05/83 

DATE/REVISED BY--

FUNCTION/PURPOSE--

RJ MAFFEO 

THIS ROUTINE COUNTS THE NUMBER OF STRESS POINTS 

TO BE INTERFACED FROM THE STRESS NODE FILE AND 

ALSO FINDS TH~ LARGEST STRESS NODE NAME 

CALLING ARGUMENTS -- NAME ATTRIBUTES 

NUMSP 

MXNSP 

COMMONS USED 

AFIL 

(0) 

(0) 

FUNCTIONS/ROUTINES CALLED --

FILREW 

RDSPF 

FILES USED 

IERF S 

LIBRARIES ACCESSED 

NONE 

LOCAL VARIABLES --

DEFINITION 

# OF STRESS NODES 

LARGEST STRESS NODE NAME 

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST • H6000 

46560 END 

120"- GE/TRANCITS -- KNTSPF PAGE- 43 

PAGE=43 
TITLE= DATE =07/15/85 TIME 

46600 SUBROUTINE RFILCR 

46640CPR 

46650CPR======-:C===C=-===================_==a=============== 

46660CPR 

46670CPR 

46680CPR 

46690CPR 

46700CPR 

46710CPR 

46720CPR 

46730CPR 

46740CPR 

46750CPR 

46760CPR 

46770CPR 

46780CPR 

46790CPR 

46800CPR 

46810CPR 

46820CPR 

46830CPR 

46840CPR 

46850CPR 

46860CPR 

46870CPR 

46880CPR 

46890CPR 

46900CPR 

46910CPR 

46920CPR 

46930CPR 

46940CPR 

46950CPR 

46960CPR 

46970CPR 

46980CPR 

46990CPR 

47000CPR 

47010CPR 

47020CPR 

47030CPR 

47040CPR 

47050CPR 

47060CPR 

47070CPR 

47080CPR 

ROUTINE-- RFILCR 

DATE/WRITTEN BY-- 04/06/83 

DATE/REVISED BY--

FUNCTION/PURPOSE--

RJ MAFFEO 

THIS ROUTINE SIZES ALL THE RANDOM FILES 

IT CALLS THE APPROPRIATE SYSTEM ROUTINE TO DEFINE 

THE WIDTH OF THE FILE 

CALLING ARGUMENTS -- NAME ATTRIBUTES DEFINITION 

COMMONS USED --

FUNCTIONS/ROUTINES CALLED --

RANSIZ -- HONEYWELL ROUTINE TO SET WIDTH OF FILE 

DEFINE FILE -- IBM ROUTINE TO SET WIDTH 

FILES USED 

LIBRARIES ACCESSED -- NONE 

LOCAL VARIABLES --

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST • H6000 

47800 END 

-- GE/TRANCITS -- RFILCR 

23 42 PAGE=44 

PAGE= 44 121 
122 

TITLE'" DATE "'07/15/85 

47820C-===a=======2=====a== •• ============================= 

47840 SUBROUTINE ZERDRF(IFC,MXN,NWD,A) 

47860C a =============================-===================== 47880CPR 

47900CPR 

47910CPR 

47920CPR 

47930CPR 

47940CPR 

47950CPR 

47960CPR 

47970CPR 

47980CPR 

47990CPR 

48000CPR 

48010CPR 

48020CPR 

48030CPR 

48040CPR 

48050CPR 

48060CPR 

48070CPR 

48080CPR 

48090CPR 

48100CPR 

48110CPR 

48120CPR 

48130CPR 

48140CPR 

48150CPR 

48160CPR 

48170CPR 

48180CPR 

48190CPR 

48200CPR 

48210CPR 

48220CPR 

48230CPR 

48240CPR 

48250CPR 

48260CPR 

48270CPR 

48280CPR 

48290CPR 

48300CPR 

48310CPR 

48320CPR 

ROUTINE-- ZERORF 

DATE/WRITTEN BY-- 04/07/83 

DATE/REVISED BY--

FUNCTION/PURPOSE--

RJ MAFFEO 

THIS ROUTINE INITIALIZES RANDOM FILES 

CALLING ARGUMENTS -- NAME ATTRIBUTES DEFINITION 

IFC 

MXN 

NWD 

A 

COMMONS USED 

(I) 

(1) 

(I) 

(1) 

FILECODE 

MAX RECORD NUMBER # OF WORDS IN -A- ARRAY 

INITIALIZEING ARRAY 

FUNCTIONS/ROUTINES CALLED --

FILES USED 

IFC R 

LIBRARIES ACCESSEO 

NONE 

LOCAL VARIABLES --

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST .. H6000 

48390 END 

GE/TRANCITS -- ZERORF 

TIME = 23 42 PAGE=45 

PAGE= 45 
TITLE= DATE =07/15/85 TIME" 23 42 

48430 SUBROUTINE GNLSUR 

48450C====z=====az=======a===E======._========= •• ===== 

48470CPR 

48490CPR 

48500CPR 

48510CPR 

48520CPR 

48530CPR 

48540CPR 

48550CDR 

48560CPR 

48570CPR 

48580CPR 

48590CPR 

48600CPR 

48610CPR 

48620CPR 

48630CPR 

48640CPR 

48650CPR 

48660CPR 

48670CPR 

48680CPR 

48690CPR 

48700CPR 

48710CPR 

48720CPR 

48730CPR 

48740CPR 

48750CPR 

48760CPR 

48770CPR 

48780CPR 

48790CPR 

48800CPR 

48810CPR 

48820CPR 

48830CPR 

48840CPR 

48850CPR 

48860CPR 

48870CPR 

48880CPR 

48890CPR 

48900CPR 

48910CPR 

48920CPR 

48930CPR 

48940CPR 

48950CPR 

48960CPR 

ROUTINE-- GNLSUR 

DATE/WRITTEN BY-- 04/07/83 

DATE/REVISED BY--

FUNCTION/PURPOSE--

Ru MAFFEO 

THIS ROUTINE IS CALL BY THE SEARCH MINI-EXEC (SSURCH) 

IT INITIATES THE SEARCH THRU THE HEAT TRANSFER ELMS 

TO FIND WHICH ELM CONTAINS EACH STRESS POINT 

CALLING ARGUMENTS -- NAME ATTRIBUTES 

COMMONS USED 

AFIL 

SIZE 

WORK 

FUNCTIONS/ROUTINES CALLED --

EINCOR 

RDSPF 

FNDELM 

FILES USED 

INOT6 S 

LIBRARIES ACCESSED 

NONE 

LOCAL VARIABLES --

DEFINITION 

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST • H6000 

• 49580 END 

-- GE/TRANCITS -- GNLSUR PAGE- 46 

PAGE=46 

123 
124 

TITLE= DATE =07/15/85 TIME 

49600C=======zc==z===========s====_=====.======_========== 

49620 SUBROUTINE RDSPF(NN,X,Y,Z,IERC) 

49640C=z====s============================a================ 

49660CPR 

49670CPR============================= •• ====================== 49680CPR 

49690CPR 

49700CPR 

49710CPR 

49720CPR 

49730CPR 

49740CPR 

49750CPR 

49760CPR 

49770CPR 

49780CPR 

49790CPR 

49800CPR 

49810CPR 

49820CPR 

49830CPR 

49840CPR 

49850CPR 

49860CPR 

4987CCPR 

49880CPR 

49890CPR 

49900CPR 

49910CPR 

49920CPR 

49930CPR 

49940CPR 

49950CPR 

49960CPR 

49970CPR 

49980CPR 

49990CPR 

50000CPR 

50010CPR 

50020CPR 

50030CPR 

50040CPR 

50050CPR 

50060CPR 

50070CPR 

50080CPR 

50090CPR 

50100CPR 

50110CPR 

50120CPR 

50130CPR 

50140CPR 

50150CPR 

50160CPR 

50170CPR 

ROUTINE-- ROSPF 

DATE/WRITTEN BY-- 04/07/83 

DATE/REVISED BY--

FUNCTION/PURPOSE--

Ru MAFFEO 

THIS ROUTI~E READS THE STRESS POINT COORD INFO 

FROM THE STRESS POINT NODE FILE 

CALLING ARGUMENTS -- NAME ATTRIBUTES 

NN 

X 

Y 

Z 

IERC 

COMMONS USED 

AFIL 

(0) 

(0) 

(0) 

(0) 

(0) 

o 

1 

2 

DEFINITION 

NODE NAME 

X COORD 

Y COORD 

Z COORD 

ERROR CODES 

NO ERRORS 

ENO OF FILE 

READ ERROR 

FUNCTIONS/ROUTINES CALLED --

FILES USED 

ISPNF S 

LIBRARIES ACCESSED 

NONE 

LOCAL VARIABLES --

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST .. H6000 

50440 END 

GE/TRANCITS -- RDSPF 

23 42 PAGE=47 

PAGE" 47 
TITLE= DATE -07/15/85 TIME 

50~60C==============.====zz===c=============.========= =c== 

50480 SUBROUTINE FILREW(IFC) 

50500C==·=====-==-========================c=============== 

50520CPR 

50530CPR •• ===========.=====a===================== •• ====e=_=== 

50540CPR 

50550CPR 

50560CPR 

50570CPR 

50580CPR 

50590CPR 

50600CPR 

50610CPR 

50620CPR 

50630CPR 

50640CPR 

50650CPR 

50660CPR 

50670CPR 

50G80CPR 

50690CPR 

50700CPR 

50710CPR 

50720CPR 

50730CPR 

50740CPR 

50750CPR 

50760CPR 

50770CPR 

50780CPR 

50790CPR 

50800CPR 

50810CPR 

50820CPR 

ROUTINE-- FILREW 

DATE/WRITTEN BY-- 04/07/83 

DATE/REVISED BY--

FUNCTION/PURPOSE--

THIS ROUTINE REWINDS FILES 

CALLING ARGUMENTS -- NAME ATTRIBUTES 

IFC (I) 

COMMONS USED 

FUNCTIONS/ROUTINES CALLED --

FILES USEO --

LIBRARIES ACCESSED -- NONE 

LOCAL VARIABLES --

R.J MAFFEO 

DEFINITION 

FILE CODE 

50830CPR 

50840CPR 

50850CPR 

50860CPR 

50870CPR 

50880CPR 

50890CPR 

50900CPR 

50910CPR 

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST - H6000 

50960 END 

-- GE/TRANCITS -- FILREW 

23 42 PAGE=48 

PAGE- 48 125 
TITLE= DATE =07/15/85 TIME 

51000 SUBROUTINE EINCOR(ENX,NELMN,NELMX) 

51020C=-=====================c============================ 

51040CPR 

51060CPR 

51070CPR 

51080CPR 

51090CPR 

51100CPR 

51110CPR 

51120CPR 

51130CPR 

51140CPR 

51160CPR 

51170CPR 

51180CPR 

51190CPR 

51200CPR 

51210CPR 

51220CPR 

51230CPR 

51240CPR 

51250CPR 

51260CPR 

51270CPR 

51280CPR 

51290CPR 

51300CPR 

51310CPR 

51320CPR 

51330CPR 

5t340CPR 

51350CPR 

51360CPR 

51370CPR 

51380CPR 

51390CPR 

51400CPR 

51410CPR 

51420CPR 

51430CPR 

51440CPR 

51450CPR 

51460CPR 

51470CPR 

51480CPR 

51490CPR 

51500CPR 

51510CPR 

51520CPR 

51530CPR 

51540CPR 

51550CPR 

51560CPR 

51570CPR 

51580CPR 

ROUTINE-- EINCOR 

DATE/WRITTEN BY-- 04/07/83 

DATE/REVISED BY--

FUNCTION/PURPOSE--

Ru MAFFEO 

COORDS INTO CORE FROM THE RANOOM ELM FILE 

THE DATA STORED IN CeRE IS --

ELM NUMBER 

XMIN 

YMIN 

ZMIN 

XMAX 

YMAX 

ZMAX 

CALLING ARGUMENTS --

NAME ATTRIBUTES 

ENX 

NELMN 

NELMX 

COMMONS USED 

AFIL 

ELMDAT 

(0) 

(1) 

(!) 

DEFINITION 

ARRAY CONTAINING WINDOW INFO 

MIN ELM NAME 

MAX ELM NAME 

FUNCTIONS/ROUTINES CALLED --

RWELMS 

FILES USED 

LIBRARIES ACCESSED --

NONE 

LOCAL VARIABLES --

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST = H6000 

52000 END 

23 42 

126-- GE/TRANCITS -- EINCOR PAGE= 49 

PAGE=49 
TITLE= 

52040 

52080CPR 

52100CPR 

52110CPR 

52120CPR 

52130CPR 

52140CPR 

52150CPR 

52160CPR 

52170CPR 

52180CPR 

52190CPR 

52200CPR 

52210CPR 

52220CPR 

52230CPR 

52240CPR 

52250CPR 

52260CPR 

52270CPR 

52280CPR 

52290CPR 

52300CPR 

52310CPR 

52320CPR 

52330CPR 

52340C?R 

52350CPR 

52360CPR 

52370CPR 

52380CPR 

52390CPR 

52400CPR 

52410CPR 

52420CPR 

52430CPR 

52440CPR 

52450CPR 

52460CPR 

52470CPR 

52480CPR 

52490C?R 

52500CPR 

52510CPR 

52520CPR 

52530CPR 

52540CPR 

52550CPR 

52560CPR 

52570CPR 

52580CPR 

52590CPR 

52600CPR 

52610CPR 

52620CPR 

52630CPR 

52640CPR 

52650CPR 

52660CPR 

52670CPR 

52680CPR 

52690CPR 

52700CPR 

52710CPR 

DATE =07/15/85 

SUBROUTINE FNDELM(NSP,XP,YP,ZP,IFONo) 

ROUTINE-- FNoELM 

DATE/WRITTEN BY-- 04/07/83 

DATE/REVISED BY--

FUNCTION/PURPOSE--

Ru MAFFEO 

TIME" 23 42 

THIS ROUTINE DOES THE ACTUAL SEARCH THRU THE HEAT 

TRANSFER ELMS TO FINO WHICH ELM CONTAINS THE STRESS 

POINT 

IT CALLS THE REQUIRED ROUTINES TO GET THE ELM 

COORDINATES,CHECKS TO SEE IF THE STRESS POINT 

IS WITHIN THE ELM ANO IF IT IS COMPUTES 

ANO WRITES THE WEIGHTING COEFFS FOR THIS STRESS 

POINT WITH RESPECT TO THE VERTICES OF THE 

HEAT TRANSFER ELEMENT 

CALLING ARGUMENTS -- NAME ATTRIBUTES 

NSP 

XP 

YP 

ZP 

IFONO 

COMMONS USED 

AFIL 

ELMDAT 

SIZE 

SPDAT 

(I) 

(I) » 

(I, »» 

(I) » 

(0) 

OEFINITION 

STRESS NODE NAME 

STRESS POINT COORoS 

INOICATOR 

o DID NOT FIND CONTAINING ELM 

1 -- DID FIND CONTAINING ELM 

FUNCTIONS/ROUTINES CALLED --

CKWIND 

GETWND 

I3DSF 

RWSPCF 

FILES USED 

LIBRARIES ACCESSED -- NONE 

LOCAL VARIABLES --

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST .. H6000 

-- GE/TRANCITS -- FNDELM PAGE- 50 

PAGE=50 

127 
TITLE= DATE -07/15/85 TIME 23 42 PAGE=51 

52720CPR==================================================== 

54420 END 

128 -- GE/TRANCITS -- FNDELM PAGE- 51 
TITLE= DATE =07/15/85 TIME 

54440C- cs ====ca=_===_============ •• ====_========a.=====c== 

54460 SUBROUTINE GETWND(IDONE.IWHR) 

54480C================================================_=== 

54500CPR 

54520CPR 

54530CPR 

54540CPR 

54550CPR 

54560CPR 

54570CPR 

54580CPR 

54590CPR 

54600CPR 

54620CPR 

54630CPR 

54640CPR 

54650CPR 

54660CPR 

54670CPR 

54680CPR 

54690CPR 

54700CPR 

54710CPR 

54720CPR 

54730CPR 

54740CPR 

54750CPR 

54760CPR 

54770CPR 

54780CPR 

54790CPR 

54800CPR 

54810CPR 

54820CPR 

54830CPR 

54840CPR 

54850CPR 

54860CPR 

54870CPR 

54880CPR 

54890CPR 

54900CPR 

54910CPR 

54920CPR 

54930CPR 

54940CPR 

54950CPR 

54960CPR 

54970CPR 

54980CPR 

54990CPR 

55000CPR 

55010CPR 

55020CPR 

55030CPR 

55040CPR 

55050CPR 

ROUTINE-- GETWND 

DATE/WRITTEN BY-- 04/07/83 

DATE/REVISED BY--

FUNCTION/PURPOSE--

RJ MAFFEO 

OF THE HEAT TRANSFER ELMS AND THE COORDS OF THE 

CORNERS OF THE ELM 

IT CAN GET THIS INFO FROM FILE OR FROM CORE 

CALLING ARGUMENTS -- NAME ATTRIBUTES DEFINITION 

IDONE 

IWHR 

(I) 

(I) 

SEQUENTIAL POINTER TO HT ELM DATA 

INDICATOR 

COMMONS USED 

AFIL 

ELMDAT 

SIZE 

WORK 

1 GET ONLY WINDOW COORDS 

2 -- GET CORNER COORDS 

FUNCTIONS/ROUTINES CALLED --

RWELMS 

FILES USED 

LIBRARIES ACCESSED -- NONE 

LOCAL VARIABLES 

SPECIAL COMMENTS ABOUT THIS ROUTINE 

THE COORD DATA IS PASSED BACK TO THE ROUTINE -FNOELMVIA THE COMMON CALLED ELMDAT IN THE ARRAY AED 

SPECIAL REMARKS/INSTRUCTIONS 

HOST • H6000 

55730 END 

23 42 

-- GE/TRANCITS -- GETWND PAGE- 52 

PAGE=52 

129 
130 

TITLE= DATE =07/15/85 TIME 

55750C==================================================== 

55770 SUBROUTINE CKWIND(XP,YP,ZP,V,INOT) 

55790C========================a=a_======================== 

55810CPR 

55820CPR====================~============a============ =:=:=== 

55830CPR 

55840CPR 

55850CPR 

55860CPR 

55870CPR 

55880CPR 

55890CPR 

55900CPR 

55910CPR 

55920CPR 

55930CPR 

55940CPR 

55950CPR 

55960CPR 

55970CPR 

55980CPR 

55990CPR 

56000CPR 

56010CPR 

56020CPR 

56030CPR 

56050CPR 

56060CPR 

56070CPR 

56080CPR 

56090CPR 

56100CPR 

56110CPR 

56120CPR 

56130CPR 

56140CPR 

56150CPR 

56160CPR 

56170CPR 

56180CPR 

56190CPR 

56200CPR 

56210CPR 

56220CPR 

56'30CPR 

56240CPR 

56250CPR 

56260CPR 

56270CPR 

56280CPR 

56290CPR 

56300CPR 

56310CPR 

ROUTINE-- CKWIND 

DATE/WRITTEN BY-- 04/07/83 

DATE/REVISED BY--

FUNCTION/PURPOSE--

RJ MAFFEO 

THIS ROUTINE CHECKS TO SEE IF THE COORDS OF THE 

STRESS POINT ARE WITHIN THE WINDOW OF THE HEAT TRANSFER 

ELEMENT 

CALLING ARGUMENTS -- NAME ATTRIBUTES DEFINITION 

XP » 

YP »» 

ZP » 

INOT 

(I) 

(0) 

COMMONS USED --

COOROS OF STRESS POINT 

COORDS OF HEAT TRAN ELM 

IN - OUT INDICATOR 

o OUT OF WINDOW 

1 -- IN WINDOW 

FUNCTIONS/ROUTINES CALLED --

FILES USED --

LIBRARIES ACCESSED 

NONE 

LOCAL VARIABLES --

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST - H6000 

56610 END 

23 42 

GE/TRANCITS -- CKWINO PAGE- 53 

( 

PAGE=53 
TITLE: DATE =07/15/85 TIME = 23 42 

56620 SUBROUTINE MKRGF 

56640C====~======.z=.=a===============.====.=z======== =====a== 

56650CPR 

56660CPR 

56670CPR 

56680CPR 

56690CPR 

56700CPR 

56710CPR 

56720CPR 

56730CPR 

56740CPR 

56750CPR 

56760CPR 

56770CPR 

56780CPR 

56790CPR 

56800CPR 

56810CPR 

56820CPR 

56830CPR 

56840CPR 

56850CPR 

56860CPR 

56870CPR 

56880CPR 

56890CPR 

56900CPR 

56910CPR 

56920CPR 

56930CPR 

56940CPR 

56950CPR 

56960CPR 

56970CPR 

56980CPR 

56990CPR 

57000CPR 

57010CPR 

57020CPR 

57030CPR 

57040CPR 

57050CPR 

57060CPR 

57070CPR 

57080CPR 

57090CPR 

57100CPR 

57110CPR 

57120CPR 

57130CPR 

57140CPR 

57150CPR 

57160CPR 

57170CPR 

57180CPR 

57190CPR 

57200CPR 

57210CPR 

57220CPR 

57230CPR 

57240CPR 

57250CPR 

57260CPR 

57270CPR 

57280CPR 

57290CPR 

ROUTINE-- MKRGF 

DATE/WRITTEN BY-- 8/04/82 RJ MAFFEO 

DATE/REVISED BY-- 4/04/83 RJ MAFFEO 

REASON -- ADDED MIN MAX WINDOW LOGIC 

DATE/REVISED BY-- 8/30/83 SR MARTIN 

REASON -- CHANGED I/O TO READ NEW INPUT FILE FORM 

FUNCTION/PURPOSE--

THIS ROUTINE DOES THE PROCESSING OF THE NEUTRAL 

NODE AND ELEMENT FILES INTO THE INTERNAL DATA BASE FILES 

FOR THIS VERSION OF 3D TITS. 

IT CALLS RWNODS TO PROCESS THE NODAL INFO. 

IT CALLS RWELMS TO PROCESS THE ELM INFO 

IT CALLS PROFAC TO PROCESS THE FACE INFORMATION 

CALLING SEQUENCE-- CALL MKRGF 

CALLING ARGUMENTS-- NONE 

NAME ATTRIBUTES DEFINITION 

FILES USED--

IFL3 -- RANDOM FILE TO STORE THE NODAL COORDINATES 

IFL4 -- RANDOM FILE TO STORE THE ELM ATTRIBUTES 

INTITS -- HEAT TRANSFER OUTPUT FILE 

INOTG OUTPUT FILE FOR MESSAGES 

IERF -- ERROR REMARK FILE 

COMMONS 

AFIL 

ELMDAT 

SIZE 

CNTLFL 

USED--

FILECODE COMMON 

ELM ATTRIBUTE COMMON 

SIZE VARIABLES COMMON 

INFO WHICH DESCRIBES ALL 

FUNCTIONS/ROUTINES CALLED--

RWNODS 

HEADEL 

RWELMS 

READPS 

PROFAC 

EMINMX 

LIBRARIES ACCESSED--

NONE 

LOCAL VARIABLES--

NNODMX MAXIMUM NODE NAME 

NNODMN MINIMUM NODE NAME 

NUMNOD NUMBER OF NODES 

NELMX MAXIMUM ELM NAME 

NELMN MINIMUM ELM NAME 

NUME NUMBER OF ELEMENTS 

ELEMENTS 

CRD(45) ARRARY OF COORDINATES FOR THE 15 POINTS IN A ELM 

IFACPC PACKED THTD FACE NUMBERS 

IE(8) ARRAY OF CONNECTIVITY FOR ELM CORENER POINTS 

AED(56) ELM ATTRIBUTE ARRAY 

-- GE/TRANCITS -- MKRGF PAGE- 54 

PAGE=54 

131 
TITLE= 

57300CPR 

57310CPR 

57320CPR 

57330CPR 

57340CPR 

57350CPR 

57360CPR 

57370CPR 

57380CPR 

57390CPR 

57400CPR 

57410CPR 

57420CPR 

57430CPR 

57440CPR 

57450CPR 

58690 

NE 

VOL 

XYZ(3) 

DATE =07/15/85 

THIS ARRAY CONTAINS 

NE,CRO,IE,IFACPC,VOL 

ELM NAME 

VOLUME OF THE ELM 

COOROINATE ARRAY FOR EACH NODE 

SPECIAL COMMENTS ABOUT THIS ROUTINE 

NOTE THE 15 POINTS FOR EACH ELM ARE 

8 CORNERS , 6 MIDSIDES AND 1 CENTROID 

SPECIAL REMARKS/INSTRUCTIONS--

HOST • H6000 

******.**************************** 

END 

132 -- GE/TRANCITS -- MKRGF 

TIME 23 42 PAGE=55 

PAGE" 55 
TITLE" 

58700 

58730CPR 

58740CPR 

58750CPR 

58760CPR 

58770CPR 

58780CPR 

58790CPR 

58800CPR 

58810CPR 

58820CPR 

58830CPR 

58840CPR 

58850CPR 

58860CPR 

58870CPR 

58880CPR 

58890CPR 

58900CPR 

58910CPR 

58920CPR 

58930CPR 

58940CPR 

58950CPR 

58960CPR 

58970CPR 

58980CPR 

58990CPR 

59000CPR 

59010CPR 

59020CPR 

59030CPR 

59040CPR 

59050CPR 

59060CPR 

59070CPR 

59080CPR 

59090CPR 

59100CPR 

59110CPR 

59120CPR 

59130CPR 

59140CPR 

59150CPR 

59160CPR 

59170CPR 

59180CPR 

59190CPR 

59200CPR 

59210CPR 

59220CPR 

59230CPR 

59240CPR 

59250CPR 

59260CPR 

59270CPR 

59280CPR 

59290CPR 

59890 

SUBROUTINE PROFAC 

RDUTINE-- PROFAC 

DATE/WRITTEN BY-- 8/04/82 

DATE/REVISED BY--

FUNCTION/PURPOSE--

DATE "07/15/85 TIME" 23 42 

RJ MAFFEO 

THIS ROUTINE READS THE PACKED THTD FACE NUMBER FROM THE 

END OF THE NEUTRAL ELEMENT FILE AND STORES THEM ON 

THE INTERNAL DATA BASE FILE 

THIS DATA BASE FILE IS RANDOM FILE IFL4, 

THE ELEMENTAL ATTRIBUTE FILE 

NOTE THE PACKED FACE NUMBERS EXIST ON THE HEAT 

TRANSFER OUTPUT FILE 

IN RECORDS OF THE FORM- <ELMT N> <FACE INFO> 

CALLING SEQUENCE-- CALL PROFAC 

CALLING ARGUMENTS-- NONE 

NAME ATTRIBUTES DEFINITION 

FILES USED--

IFL4 -- RANDOM ELEMENT ATTRIBUTE FILE 

INTITS -- HEAT TRANSFER OUTPUT FILE (INPUT TO TITAN) 

IERF -- ERROR REMARK FILE 

COMMONS USED--

AFIL FILECODE COMMON 

ELMDAT ELEMENT ATTRIBUTE COMMON 

SIZE -- SIZE OF PROBLEM VARIABLES IN THIS COMMON 

FUNCTIONS/ROUTINES CALLED--

RWELMS 

LIBRARIES ACCESSED--

NONE 

LOCAL VARIABLES--

NRED --- NUMMBER OF NUMBERS READ FROM NEF FOR ONE SET OF 

ELEMENT FACE DEFINITIONS (LIMIT IS 200) 

IFACPC --- PACKED FACE NUMBER 

NCNT --- TOTAL NUMBER OF ELMS THAT HAVE FACES DEFINED 

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS--

HOST • H6000 

*.******************************* 

END 

-- GE/TRANCITS -- PROFAC PAGE" 56 

PAGE=56 

133 
TITLE= DATE =07/15/85 TIME 

59910C=======================================z============ 

59930 SUBROUTINE SKIP (IFC,ISETS) 

59950C==================================================== 

59960CPR 

59980CPR===================================================== 

59990CPR 

ROUTINE-- SKIP 

DATE/WRITTEN BY-- 08/31/83 

DATE/REVISED BY--

FUNCTION/PURPOSE--

SR MARTIN 

THIS ROUTINE ALLOWS THE CALLING ROUTINE TD SKIP PAST 

UNNEEDED TIMESTEP AND TEMPERATURE DATA 

CALLING ARGUMENTS -- NAME ATTRIBUTES DEFINITION 

FILE CODE 

23 42 

60000CPR 

60010CPR 

60020CPR 

GOO30CPR 

G0040CPR 

G0050CPR 

GOO60CPR 

60070CPR 

60080CPR 

G0090CPR 

G0100CPR 

G0110CPR 

G0120CPR 

G0130CPR 

G0140CPR 

G0150CPR 

G01GOCPR 

G0170CPR 

G0180CPR 

G0190CPR 

G0200CPR 

60210CPR 

G0220CPR 

60230CPR 

I FC 

ISETS 

INPUT, INTEGER 

INPUT, INTEGER NUMBER OF SETS TO SKIP OVER 

60240CPR 

G0250CPR 

60260CPR 

60270CPR 

60280CPR 

60290CPR 

60300CPR 

60310CPR 

COMMONS USED 

CNTLFL 

SIZE 

FUNCTIONS/ROUTINES CALLED --

FILES USED 

FC S 

LIBRARIES ACCESSED 

NONE 

60320CPR LOCAL VARIABLES -- 60330CPR 

60340CPR 

60350CPR 

60360CPR 

60370CPR 

60380CPR 

60390CPR 

60400CPR 

60410CPR 

60420CPR 

DUMMY (CHARACTER) USED TO DUMMY READ LINES IN THE FILE 

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST = H6000 

60630 END 

134-- GE/TRANCITS -- SKIP PAGE- 57 

PAGE=57 
TITLE= DATE -07/15/85 TIME 

60650C=====s=====ca~=========a=.===.================== ==== 

60670 SUBROUTINE HTFIO (IFC,DATA,ICNT,ISTAT) 

60G90C======-=======c===-==== •• =====a._== •• = ••• =a=======CD 

60710CPR=====================-===== •• ====c.===== •• ===== ••• =c= 60720CPR 

ROUTINE-- HTFIO 

OATE/WRITTEN BY-- 09/13/83 

DATE/REVISED BY--

FUNCTION/PURPOSE--

SR MARTIN 

23 42 

60730CPR 

60740CPR 

60750CPR 

60760CPR 

60770CPR 

60780CPR 

60790CPR 

60800CPR 

60810CPR 

60820CPR 

60830CPR 

60840CPR 

60850CPR 

60860CPR 

60870CPR 

60880CPR 

60890CPR 

60900CPR 

60910CPR 

60920CPR 

60930CPR 

60940CPR 

THIS ROUTINE REAOS INFO FROM THE HEAT TRANSFER INPUT FILE 

60950CPR 

60960CPR 

60970CPR 

60980CPR 

60990CPR 

61000CPR 

61010CPR 

61020CPR 

61030CPR 

61040CPR 

61050CPR 

61060CPR 

61070CPR 

61080CPR 

61090CPR 

61100CPR 

61110CPR 

CALLING ARGUMENTS --

IFC (INPUT/INTEGER) FILE CODE OF FILE TO READ FROM 

DATA (OUTPUT/REAL) ARRAY OF DATA PASSED BACK 

ICNT (INPUT/INTEGER) AMOUNT OF DATA IN 'DATA' ARRAY 

ISTAT (OUTPUT/INTEGER) RETURN STATUS, VALUES ARE--

O-OK, 1-END OF FILE, 2-READ ERROR 

COMMONS USED --

FUNCTIONS/ROUTINES CALLED --

FILES USED 

IFC S 

LIBRARIES ACCESSED 

NONE 

LOCAL VARIABLES --

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST - H6000 

61270 END 

-- GE/TRANCITS -- HTFIO PAGE- 58 

PAGE=58 

135 
TITLE= 

61280 

61290CPR 

SUBROUTINE RDCNTL 

DATE =07/15/85 TIME 

61300CPR==========-===================s===_==============e=== 

ROUTINE-- RDCNTL 

DATE/WRITTEN BY-- 09/13/83 

DATE/REVISED BY--

FUNCTION/PURPOSE--

SR MARTIN 

61310CPR 

61320CPR 

61330CPR. 

61340CPR 

61350CPR 

61360CPR 

61370CPR 

61380CPR 

61390CPR 

61400CPR 

61410CPR 

61420CPR 

61430CPR 

61440CPR 

61450CPR 

61460CPR 

61470CPR 

61480CPR 

61490CPR 

61500CPR 

61510CPR 

61520CPR 

61530CPR 

61540CPR 

61550CPR 

61560CPR 

61570CPR 

61580CPR 

61590CPR 

61600CPR 

61610CPR 

61620CPR 

61630CPR 

61640CPR 

61650CPR 

61660CPR 

61670CPR 

61680CPR 

61690CPR 

61700CPR 

61710CPR 

61.,2OCPR 

61730CPR 

61740CPR 

61750CPR 

61760CPR 

READ USER HEADER INFORMATION AND FILE COUNTERS 

CALLING ARGUMENTS -- NAME ATTRIBUTES 

COMMONS USED 

AFIL 

CNTLFL 

CNTLTM 

SIZE 

FUNCTIONS/ROUTINES CALLED --

HTFIO 

FILES USED 

INTITS S 

INOT6 S 

LIBRARIES ACCESSED 

NONE 

LOCAL VARIABLES --

DEFINITION 

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST • H6000 

62640 END 

136 -- GE/TRANCITS -- RDCNTL 

23 42 PAGE=59 

PAGE"' 59 
TITLE= 

62650 

62660CPR 

SUBROUTINE TFLSET 

DATE "07/15/85 TIME 

6267QCPR====c=======a========zz======= ••• =============== •• === 

ROUTINE-- TFLSET 

DATE/WRITTEN BY-- 09/14/83 

DATE/REVISED BY--

FUNCTION/PURPOSE--

SR MARTIN 

23 42 

62680CPR 

62690CPR 

62700CPR 

62710CPR 

62720CPR 

62730CPR 

62740CPR 

62750CPR 

62760CPR 

62770CPR 

62780CPR 

62790CPR 

62800CPR 

62810CPR 

62820CPR 

62830CPR 

62840CPR 

62850CPR 

62860CPR 

62870CPR 

62880CPR 

62890CPR 

62900CPR 

62910CPR 

62920CPR 

62930CPR 

62940CPR 

62950CPR 

62960CPR 

62970CPR 

62980CPR 

62990CPR 

63000CPR 

63010CPR 

63020CPR 

63030CPR 

63040CPR 

63050CPR 

63060CPR 

63070CPR 

63080CPR 

63090CPR 

63100CPR 

63110CPR 

THIS ROUTINE REWINDS THE HEAT TRANSFER FILE AND REPOSITIONS 

THE FILE POINTER TO THE FIRST RECORD OF THE TIME/TEMP 

INFORMATION 

CALLING ARGUMENTS -- NAME ATTRIBUTES 

COMMONS USED 

AFIL 

CNTLTM 

FUNCTIONS/ROUTINES CALLED --

FILES USED 

INTITS S 

LIBRARIES ACCESSED 

NONE 

LOCAL VARIABLES --

DEFINITION 

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST .. H6000 

63420 END 

-- GE/TRANCITS -- TFLSET PAGE" 60 

PAGE=60 

137 
TITLE" DATE =07/15/85 TIME" 23 42 

63460 SUBROUTINE GENTMP 63480C==~================================================= 

63500CPR 

63510CPR.~=.c=~.=sc======a=====c======a===.~========a= =ea==== 

63520CPR 

63530CPR 

63540CPR 

63550CPR 

63560CPR 

63570CPR 

63580CPR 

63590CPR 

63600CPR 

63610CPR 

63620CPR 

63630CPR 

63640CPR 

63650CPR 

63660CPR 

63670CPR 

63680CPR 

63690CPR 

63700CPR 

63710CPR 

63720CPR 

63730CPR 

63740CPR 

63750CPR 

63760CPR 

63770CPR 

63780CPR 

63790CPR 

63800CPR 

63810CPR 

63820CPR 

63830CPR 

63840CPR 

63850CPR 

63860CPR 

63870CPR 

63880CPR 

63890CPR 

63900CPR 

63910CPR 

63920CPR 

63930CPR 

63940CPR 

63950CPR 

63960CPR 

63970CPR 

63980CPR 

63990CPR 

64000CPR 

64010CPR 

64020CPR 

64030CPR 

64040CPR 

64050CPR 

64060CPR 

64070CPR 

64080CDR 

64090CPR 

64100CPR 

ROUTINE-- GENTMP 

DATE/WRITTEN BY-- 09/26/83 

DATE/REVISEO BY--

FUNCTION/PURPOSE--

R.J MAFFEO 

THIS ROUTINE IS THE MINI-EXEC US EO TO CALL ALL 

ROUTINES ASSOCIATED WITH COMPUTING THE FINAL VALUES 

OF TEMPERATURE FOR EACH STRESS NODE 

IT CAN DEAL WITH BOTH FINITE DIFFERENCE AND 

FINITE ELEMNT HEAT TRANSFER CODES 

IF THE HEAT TRANSFER CODE IS FINITE DIFFERENCE 

THE TEMPERATURES OF THE CORNERS OF THE HEAT TRANSFER 

ELEMENTS ARE FOUND VIA CALLS FROM THIS RUOTINE 

CALLING ARGUMENTS NONE 

COMMONS USED 

MAFCOM 

AFIL 

MAFCOM 

SIZE 

MAFCOM 

WORK 

MAFCOM 

CNTLTM 

CNTLFL 

FUNCTIONS/ROUTINES CALLED --

GETMPE 

SETFLP 

RDTEMP 

CWCRNT 

ETCORE 

NTCORE 

STSTMP 

FILES USED 

LIBRARIES ACCESSED -- NONE 

LOCAL VARIABLES --

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST • H6000 

65280 END 

138-- GE/TRANCITS -- GENTMP PAGE: 61 

PAGE=61 
TITLE- DATE =07/15/85 TIME = 23 42 

65320 SUBROUTINE STSTMP(TEMP,TIMVAL) 

65360CPR 

65370CPR=C ••• K===Z~ •• = ••• = •• ==.== •• = ••• =.===D.=====.=. ======= 

65380CPR 

65390CPR 

65400CPR 

65410CPR 

65420CPR 

65430CPR 

65440CPR 

65450CPR 

65460CPR 

65470CPR 

65480CPR 

65490CPR 

65500CPR 

65510CPR 

65520CPR 

65530CPR 

65540CPR 

65550CPR 

65560CPR 

65570CPR 

65580CPR 

65590CPR 

65600CPR 

65610CPR 

65620CPR 

65630CPR 

65640CPR 

65650CPR 

65660CPR 

65670CPR 

65680CPR 

65690CPR 

65700CPR 

65710CPR 

65720CPR 

65730CPR 

65740CPR 

65750CPR 

65760CPR 

65770CPR 

65780CPR 

65790CPR 

65800CPR 

65810CPR 

65820CPR 

65830CPR 

65840CPR 

65850CPR 

65860CPR 

65870CPR 

I' 

ROUTINE-- STSTMP 

DATE/WRITTEN BY-- 09/28/83 

DATE/REVISED BY--

FUNCTION/PURPOSE--

R..J MAFFEO 

THIS ROUTINE REAOS THE COEFF INFO FOR EACH STRESS POINT 

(VIA CALL RWSPCF) GETS THE CORNER TEMPS FROM THE TEMP ARRAY 

AND COMPUTES THE TEMPERATURE OF THE STRESS POINT BY 

SUMMING THE COEFFS TIMES THE CORNER TEMPS 

CALLING ARGUMENTS -- NAME ATTRIBUTES DEFINITION 

TEMP (I) 

(I) 

ARRAY CONTAINING TEMPS OF HEAT 

TRANSFER CORNERS 

TIMVAL 

COMMONS USED 

MAFCOM 

AFIL 

MAFCOM 

SIZE 

SPDAT 

TIME STEP VALUE 

FUNCTIONS/ROUTINES CALLED --

RWSPCF 

WRSTMP 

FILES USED 

LIBRARIES ACCESSED -- NONE 

LOCAL VARIABLES --

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST • H6000 

66460 END 

-- GE/TRANCITS -- STSTMP PAGE'" 62 

PAGE=62 

139 
140 

TITLE" DATE =07/15/85 TIME 

66480C=·===~==·=================.===================== ==== 

66500 SUBROUTINE WRSTMP(NAME.TEMP.TIMVAL.NDONE) 

66520C=====================================_============== 

66540CPR 

66550CPR===============================-===================== 

66560CPR 

66570CPR 

66580CPR 

66590CPR 

66600CPR 

66610CPR 

66620CPR 

66630CPR 

66640CPR 

66650CPR 

66660CPR 

66670CPR 

66680CPR 

6S690CPR 

66700CPR 

66710CPR 

66720CPR 

66730CPR 

66740CPR 

66750CPR 

66760CPR 

66770CPR 

66780CPR 

66790CPR 

66800CPR 

66810CPR 

66820CPR 

66830CPR 

66840CPR 

66850CPR 

66860CPR 

66870CPR 

66880CPR 

66890CPR 

66900CPR 

66910CPR 

66920CPR 

66930CPR 

66940CPR 

66950CPR 

66960CPR 

66970CPR 

66980CPR 

66990CPR 

67000CPR 

ROUTINE-- WRSTMP 

DATE/WRITTEN BY-- 09/28/83 

DATE/REVISED BY--

FUNCTION/PURPOSE--

RJ MAFFEO 

THIS ROUTINE WRITES THE STRESS POINT TEMPERATURES 

TO THE OUTPUT FILE (IN NEUTRAL TEMPERATURE FILE FORM) 

CALLING ARGUMENTS -- NAME ATTRIBUTES DEFINITION 

NAME 

TEMP 

TIMVAL 

NOONE 

COMMONS USED 

MAFCOM 

AFIL 

(I) 

(I) 

(1) 

(1) 

STRESS POINT LABEL 

TEMPERATURE OF STRESS POINT 

TIME VALUE OF STEP 

# OF NOOES WRITTEN 

FUNCTIONS/ROUTINES CALLED -- NONE 

FILES USED 

IOUTF S 

LIBRARIES ACCESSED 

NONE 

LOCAL VARIABLES --

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST • H6000 

67280 END 

GE/TRANCITS -- WRSTMP 

23 42 PAGE=63 

PAGE= 63 
TITLE= DATE "07/15/85 

67300C==-====-====a=====_=======-=_====c===============a== 

67320 SUBROUTINE ETCORE(ETMP) 

67340C======_·_·_===···==================_===_============ 

67360CPR 

ROUTINE-- ETCORE 

DATE/WRITTEN BY-- 09/29/83 

DATE/REVISED BY--

FUNCTION/PURPOSE--

Ru MAFFEO 

TIME = 23.42 

67380CPR 

67390CPR 

67400CPR 

67410CPR 

67420CPR 

67430CPR 

67440CPR 

67450CPR 

67460CPR 

67470CPR 

67480CPR 

67490CPR 

67500CPR 

67510CPR 

67520CPR 

67530CPR 

67540CPR 

67550CPR 

67560CPR 

67570CPR 

67580CPR 

67590CPR 

67600CPR 

67610CPR 

67G20CPR 

G7G30CPR 

67640CPR 

67650CPR 

67660CPR 

67G70CPR 

67680CPR 

67690CPR 

67700CPR 

67710CPR 

67720CPR 

67730CPR 

67740CPR 

67750CPR 

67760CPR 

67770CPR 

67780CPR 

67790CPR 

67800CPR 

67810CPR 

THIS ROUTINE TRANSFERS THE FINITE DIFFERENCE ELEMENTAL 

CORNER TEMPERATURES FROM SCRATCH FILE TO CORE 

CALLING ARGUMENTS -- NAME ATTRIBUTES 

ETMP 

COMMONS USED 

AFIL 

SIZE 

(0) 

FUNCTIONS/ROUTINES CALLED --

FILREW 

FILES USED 

ICRNTF S 

IERF S 

LIBRARIES ACCESSED 

NONE 

LOCAL VARIABLES --

DEFINITION 

ARRAY CONTAINING ELM CORNER TEMPS 

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST • H6000 

68230 ENO 

-- GE/TRANCITS -- ETCORE PAGE- 64 

PAGE=64 

141 
DATE =07/15/85 TIME 23 42 

68270 SUBROUTINE NTCORE(TEMP) 

68290C======z==============-==ca=====================-e=== 

S8310CPR 

68320CPR======================··============================= 

68330CPR 

68340CPR 

68350CPR 

68360CPR 

68370CPR 

68380CPR 

68390CPR 

68400CPR 

68410CPR 

68420CPR 

68430CPR 

68440CPR 

68450CPR 

68460CPR 

68470CPR 

68480CPR 

68490CPR 

68500CPR 

68510CPR 

68520CPR 

68530CPR 

68540CPR 

68550CPR 

68560CPR 

68570CPR 

68580CPR 

68590CPR 

68600CPR 

68610CPR 

68620CPR 

68630CPR 

68640CPR 

68650CPR 

68660CPR 

68670CPR 

68680CPR 

68690CPR 

68700CPR 

68710CPR 

68720CPR 

68730CPR 

68740CPR 

68750CPR 

68760CPR 

68770CPR 

68780CPR 

68790CPR 

68800CPR 

68810CPR 

68820CPR 

68830CPR 

68840CPR 

68850CPR 

68860CPR 

68870CPR 

68880CPR 

68890CPR 

68900CPR 

68910CPR 

ROUTINE-- MAIN 

DATE/WRITTEN BY-- 09/19/83 

DATE/REVISED BY--

FUNCTION/PURPOSE--

SR MARTIN 

THIS ROUTINE ASSUMES THE FILE POINTER IS POINTING AT THE 

FIRST NODE NUMBER, TEMPERATURE PAIR OF A 

TIMESTEP IT READS IN EACH PAIR AND STORES THE 

TEMPERATURE (FROM DATA(2» INTO THE 'TEMP' ARRAY 

IN POSITION <NODE NUMBER> (IE--DATA(1» 

THE RESULT BEING THAT, FOR SAY NODE 13, THE TEMPERATURE 

WOULD BE IN RECORD 13 OF THE 'TEMP' ARRAY 

UPON RETURN, THE FILE POINTER WILL POINT 

TO THE NEXT TIMESTEP VALUE 

CALLING ARGUMENTS -- NAME ATTRIBUTES 

TEMP REAL,OUTPUT 

COMMONS USED 

AFIL 

SIZE 

FUNCTIONS/ROUTINES CALLED --

HTFIO 

FILES USED 

LIBRARIES ACCESSED -- NONE 

LOCAL VARIABLES --

DEFINITION 

ARRAY WHICH WILL CONTAIN 

TEMPERATURE VALUES NOTE--

TEMP(I) WILL CONTAIN THE 

TEMPERATURE VALUE FOR NODE 

DATA (REAL,ARRAY) USED TO RETRIEVE THE NODE NUMBER, 

TEMPERATURE PAIR FORM THE INPUT FILE 

NODNUM (INTEGER) USED TO STORE THE NODE NUMBER 

AS AS INTEGER AFTER RETRIEVING IT VIA THE 

'DATA' ARRAY. 

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST • H6000 

'I' 

69200 END 

142-- GE/TRANCITS -- NTCORE PAGE= 65 

PAGE=65 
TITLE" 

69240 

69280CPR 

69300CPR 

69310CPR 

69320CPR 

69330CPR 

69340CPR 

69350CPR 

69360CPR 

69370CPR 

69380CPR 

69390CPR 

69400CPR 

69410CPR 

69420CPR 

69430CPR 

69440CPR 

69450CPR 

69460CPR 

69470CPR 

69480CPR 

69490CPR 

69500CPR 

69510CPR 

69520CPR 

69530CPR 

69540CPR 

69550CPR 

69560CPR 

69570CPR 

69580CPR 

69590CPR 

69600CPR 

69610CPR 

69620CPR 

69630CPR 

69640CPR 

69650CPR 

69660CPR 

69670CPR 

69680CPR 

69690CPR 

69700CPR 

69710CPR 

SUBROUTINE WRCRNT(TBAR.NODE) 

ROUTINE-- WRCRNT 

DATE/WRITTEN BY-- 09/29/83 

DATE/REVISED BY--

FUNCTION/PURPOSE--

DATE -07/15/85 

RJ MAFFEO 

THIS ROUTINE WRITES THE FINITE DIFFERENCE CORNER 

TEMPS TO THE SCRATCH FILE. 

CALLING ARGUMENTS -- NAME ATTRIBUTES DEFINITION 

TBAR 

NODE 

(I) 

(I) 

VALUE OF TEMPERATURE 

H T ELM CORNER NAME 

COMMONS USED 

AFIL 

FUNCTIONS/ROUTINES CALLED --

FILES USED 

ICRNTF S 

LIBRARIES ACCESSED 

NONE 

LOCAL VARIABLES --

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST - H6000 

69930 END 

-- GE/TRANCITS -- WRCRNT 

TIME" 23 42 PAGE=66 

PAGE'" 66 143 
144 

TITLE= 

69970 

70010CPR 

70030CPR 

70040CPR 

70050CPR 

70060CPR 

70070CPR 

70080CPR 

70090CPR 

70100CPR 

70110CPR 

70120CPR 

70130CPR 

70140CPR 

70150CPR 

70160CPR 

70170CPR 

70180CPR 

70190CPR 

70200CPR 

70210CPR 

70220CPR 

70230CPR 

70240CPR 

70250CPR 

70260CPR 

70270CPR 

70280CPR 

70290CPR 

70300CPR 

70310CPR 

70320CPR 

70330CPR 

70340CPR 

70350CPR 

70360CPR 

70370CPR 

70380CPR 

70390CPR 

70400CPR 

70410CPR 

70420CPR 

70430CPR 

70440CPR 

70450CPR 

70460CPR 

70470CPR 

70480CPR 

70490CPR 

DATE "07/15/85 

SUBROUTINE HTFPAS(IFC,NFP,IFILP) 

ROUTINE-- HTFPAS 

DATE/WRITTEN BY-- 09/29/83 

DATE/REVISED BY--

FUNCTION/PURPOSE--

RJ MAFFEO 

THIS ROUTINE SKIPS PAST PORTIONS OF THE 

HEAT TRANSFER INPUT FILE 

TIME 

IT CURRENTLY ONLY CAN SKIP PAST THE TIME-TEMPERATURE 

PORTION(IFILP-6) 

CALLING ARGUMENTS 

NAME ATTRIBUTES DEFINITION 

FILE CODE OF FILE TO BE SKIPED 

N OF PARTITIONS TO SKIP 

23 42 

IFC 

NFP 

IFILP 

(I) 

(I) 

(I) PORTION OF FILE(DATA TYPE)TO BE SKIPPED 

IFILP-1 THRU 5 NOT CURRENTLY USED 

IFIlP"6 SKIP TIME-TEMPERATURE RECORDS 

COMMONS USED 

SIZE 

FUNCTIONS/ROUTINES CALLED --

FILES USED 

IFC S 

LIBRARIES ACCESSED 

NONE 

LOCAL VARIABLES --

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST - H6000 

70840 END 

GE/TRANCITS -- HTFPAS PAGE= 67 

PAGE=67 
TITLE= DATE =07/15/85 

70860C=====E=======.D==C=C=.==D=~S=====.======.C====== ===s 

70880 SUBROUTINE SORT(SEEDS,LAX,NDUM,IKEY) 

70900C==-=====··=========== •• ========-.====_======a ••• ===_ 

70910CPR 

70930CPR 

70940CPR 

70950CPR 

70960CPR 

70970CPR 

70980CPR 

70990CPR 

71000CPR 

71010CPR 

71020CPR 

71030CPR 

71040CPR 

71050CPR 

71060CPR 

71070CPR 

71080CPR 

71090CPR 

71100CPR 

71110CPR 

71120CPR 

71130CPR 

71140CPR 

71150CPR 

71160CPR 

71170CPR 

71180CPR 

71190CPR 

71200CPR 

71210CPR 

71220CPR 

71230CPR 

71240CPR 

71250CPR 

71260CPR 

71270CPR 

71280CPR 

71290CPR 

ROUTINE-- SORT 

DATE/WRITTEN BY-- ???????? 

DATE/REVISED BY--

FUNCTION/PURPOSE--

GE SORT ROUTINE 

THIS ROUTINE SORTS DIMENSIONAL ARRAYS 

CALLING ARGUMENTS 

NAME ATTRIBUTES DEFINITION 

SEEDS 

LAX 

NDUM 

IKEY 

(I/O) 

(1) 

DUMMY 

DUMMY 

ARRAY TO BE SORTED 

NUMBER OF ITEMS IN ARRAY 

DUMMY 

DUMMY 

COMMONS USED -- NONE 

FUNCTIONS/ROUTINES CALLED -- NONE 

FILES USED -- NONE 

LIBRARIES ACCESSED 

NONE 

LOCAL VARIABLES --

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST • H6000 

71550 END 

-- GE/TRANCITS -- SORT 

TIME 23 42 PAGE"'68 

PAGE- 68 145 
TITLE" DATE =07/15/85 TIME = 23 42 

71570C=====-====-====C====2========================================= 

71590 SUBROUTINE HTICON(IHTIC) 

71610C=-=========================-================================== 

71630CPR 

71640CPR 

71650CPR 

71660CPR 

71670CPR 

71680CPR 

71690CPR 

71700CPR 

71710CPR 

71720CPR 

71730CPR 

71740CPR 

71750CPR 

71760CPR 

71770CPR 

71780CPR 

71790CPR 

71800CPR 

71810CPR 

71820CPR 

71830CPR 

71840CPR 

71850CPR 

71860CPR 

71870CPR 

71880CPR 

71890CPR 

71900CPR 

71910CPR 

71920CPR 

71930CPR 

71940CPR 

71950CPR 

71960CPR 

71970CPR 

71980CPR 

71990CPR 

72000CPR 

72010CPR 

72020CPR 

72030CPR 

72040CPR 

72050CPR 

72060CPR 

72070CPR 

72080CPR 

72090CPR 

72100CPR 

72110CPR 

72120CPR 

72130CPR 

72140CPR 

ROUTINE-- HTICON 

DATE/WRITTEN BY-- 01/14/84 

DATE/REVISED BY--

FUNCTION/PURPOSE--

RJ MAFFEO 

THIS ROUTINE CONVERTS FROM THE HEAT TRANSFER OUTPUT FORM 

TO THE INTERNAL 3D TITAN HEAT TRANSFER INPUT FORM 

VALID HEAT TRANSFER INPUT CODES ARE 

o INTERNAL 3D TITAN HEAT TRANSFER INPUT FORM 

1 SINDA HEAT TRANSFER INPUT FORM 

2 MARC HEAT TRANSFER INPUT FORM (FORMATTED) 

3 MARC HEAT TRANSFER INPUT FORM (SEQUENTIAL BINARY) 

4 THTD HEAT TRANSFER INPUT FORM 

CALLING ARGUMENTS -- NAME ATTRIBUTES DEFINITION 

IHTIC (I) HEAT TRANSFER INPUT CODE 

COMMONS USED 

AFIL 

FUNCTIONS/ROUTINES CALLED --

SINTIT 

MARCRD 

FILES USED 

IERF S 

LIBRARIES ACCESSED 

NONE 

LOCAL VARIABLES --

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST .. H6000 

72700 END 

146 -- GE/TRANCITS -- HTICON PAGE= 69 

s 

PAGE=69 
TITLE" 

72710 

72720CPR 

72740CPR 

72750CPR 

72760CPR 

72770CPR 

72780CPR 

72790CPR 

72800CPR 

72810CPR 

72820CPR 

72830CPR 

72840CPR 

72850CPR 

72860CPR 

72870CPR 

72880CPR 

72890CPR 

72900CPR 

72910CPR 

72920CPR 

72930CPR 

72940CPR 

72950CPR 

72960CPR 

.72970CPR 

72980CPR 

72990CPR 

73000CPR 

73010CPR 

73020CPR 

73030CPR 

73040CPR 

73050CPR 

73060CPR 

73070CPR 

73080CPR 

73090CPR 

73100CPR 

73110CPR 

73120CPR 

73130CPR 

73140CPR 

73150CPR 

73160CPR 

73170CPR 

73180CPR 

73190CPR 

DATE "07/15/85 

SUBRDUTINE MARCRD(IFTYP.NSTEPS) 

ROUTINE-- MARCRD 

DATE/WRITTEN BY-- 01/11/84 

DATE/REVISED BY--

FUNCTION/PURPOSE--

RD MCCLAIN 

READ MARC POST TAPE AND WRITE TRANSFER MODULE 

INPUT FILE 

CALLING ARGUMENTS -- NAME ATTRIBUTES DEFINITION 

TIME"' 23 42 

IFTYP 

NSTEPS 

INPUT 

INPUT 

FILE TYPE OF MARC POST TAPE 

O-FORMATTED. 1-SEQ BINARY 

NUMBER OF STEPS TO READ FROM 

MARC POST TAPE 

COMMONS USED 

AFIL -- FILE CODES 

FUNCTIONS/ROUTINES CALLED 

READR 

SKPREC 

FILES USED 

INTITS 

IHTIN 

READS DATA FROM POST TAPE 

SKIPS RECORDS ON POST TAPE 

S TRANSFER MODULE INPUT FILE 

S MARC INPUT FILE (SEQ BIN OR FORMATTED) 

LIBRARIES ACCESSED -- NONE 

LOCAL VARIABLES --

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST .. H6000 

74770 END 

-- GE/TRANCITS -- MARCRD PAGE.. 70 

PAGE"70 

147 
TITLE: 

74810 

74840CPR 

DATE =07/15/85 TIME = 23 42 

SUBROUTINE REAOR(LFN.DATA.NDATA.CHAR.NWRDS.tTYPE.IFTYP.IEND) 

74850CPR··===··================.==.==~==E.=========.== ======: 

74860CPR 

74870CPR 

74880CPR 

74890CPR 

74900CPR 

74910CPR 

74920CPR 

74930CPR 

74940CPR 

74950CPR 

74960CPR 

74970CPR 

74980CPR 

74990CPR 

75000CPR 

75010CPR 

75020CPR 

75030CPR 

75040CPR 

75050CPR 

75060CPR 

75070CPR 

75080CPR 

i5090CPR 

75100CPR 

75110CPR 

75120CPR 

75130CPR 

75140CPR 

75150CPR 

75160CPR 

75170CPR 

75180CPR 

75190CPR 

75200CPR 

75210CPR 

75220CPR 

75230CPR 

75240CPR 

75250CPR 

75260CPR 

75270CPR 

75280CPR 

75290CPR 

75300CPR 

75310CPR 

75320CPR 

75330CPR 

75340CPR 

75350CPR 

75360CPR 

75370CPR 

ROUTINE-- READR 

DATE/WRITTEN BY-- 01/11/84 

DATE/REVISED BY--

FUNCTION/PURPOSE--

RD MCCLAIN 

READ FLOATING POINT. INTEGER. OR CHARACTER DATA 

FROM MARC POST TAPE 

CALLING ARGUMENTS -- NAME ATTRIBUTES 

LFN INPUT 

DATA OUTPUT 

NDATA OUTPUT 

CHAR OUTPUT 

NWRDS INPUT 

ITYPE INPUT 

IFTYP INPUT 

COMMONS USED -- AFIL -- FILE CODES 

FUNCTIONS/ROUTINES CALLED 

FILES USED 

DEFINITION 

FILE CODE TO READ FROM 

FLOATING POINT ARRAY 

INTEGER ARRAY 

CHARACTER ARRAY 

NUMBER OF ITEMS TO READ 

TYPE OF DATA TO READ 

1-LOAD FP DATA INTO ARRAY DATA 

2-LOAD INTEGER DATA INTO ARRAY NDATA 

3-LOAD CHAR DATA INTO ARRAY CHAR 

FILE TYPE 

O-FORMATTED 

1=SEQUENTIAL BINARY 

LFN 

INOT6 

s 

S 

FILE CODE TO BE READ 

STANDARD OUTPUT FILE 

LIBRARIES ACCESSED 

NONE 

LOCAL VARIABLES --

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST - H6000 

75870 END 

148 -- GE/TRANCITS -- READR PAGE= 71 

PAGE=71 
TITLE= 

75900 

75930CPR 

75950CPR 

75960CPR 

75970CPR 

75980CPR 

75990CPR 

76oo0CPR 

76010CPR 

76020CPR 

76030CPR 

76040CPR 

76050CPR 

76060CPR 

76070CPR 

76080CPR 

76090CPR 

76100CPR 

76110CPR 

76120CPR 

76130CPR 

76140CPR 

76150CPR 

76160CPR 

76170CPR 

76180CPR 

76190CPR 

76200CPR 

76210CPR 

76220CPR 

76230CPR 

76240CPR 

76250CPR 

76260CPR 

76270CPR 

76280CPR 

76290CPR 

76300CPR 

76310CPR 

76320CPR 

76330CPR 

76340CPR 

76350CPR 

76360CPR 

DATE -07/15/85 

SUBROUTINE SKPREC(IFILE,NUMREC,IFTYP) 

TIME" 23 42 

ROUTINE-- SKPREC 

DATE/WRITTEN BY-- 01/11/84 

DATE/REVISED BY--

FUNCTION/PURPOSE--

RD MCCLAIN 

SKIP RECORDS ON A SEQUENTIAL FILE 

CALLING ARGUMENTS -- NAME ATTRIBUTES 

IFILE 

NUMREC 

IFTYP 

INPUT 

INPUT 

INPUT 

COMMONS USED NONE 

FUNCTIONS/ROUTINES CALLED --

FILES USED --

LIBRARIES ACCESSED 

NONE 

LOCAL VARIABLES --

DEFINITION 

FILE CODE TO SKIP RECORDS ON 

NUMBER OF RECORDS TO SKIP 

FILE TYPE OF MARC POST TAPE 

O-FORMATTED, 1-BINARY 

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST - H6000 

76690 END 

-- GE/TRANCITS -- SKPREC PAGE- 72 

PAGE=72 

149 
TITLE= DATE =07/15/85 TIME 23 42 

76710C==-========z=====================-===-============== 

76730 SUBROUTINE SINTIT 

76750C======-===============-===··==========-===========:= 

76770CPR 

76790CPR 

76800CPR 

76810CPR 

76820CPR 

76830CPR 

76840CPR 

76850CPR 

76860CPR 

76870CPR 

76880CPR 

76890CPR 

76900CPR 

76910CPR 

76920CPR 

76930CPR 

76940CPR 

76950CPR 

76960CPR 

76970CPR 

76980CPR 

76990CPR 

77000CPR 

77010CPR 

77020CPR 

77030CPR 

77040CPR 

77050CPR 

77060CPR 

77070CPR 

77080CPR 

77090CPR 

77100CPR 

77110CPR 

77120CPR 

77130CPR 

77140CPR 

77150CPR 

77160CPR 

77170CPR 

77180CPR 

77190CPR 

77200CPR 

77210CPR 

77220CPR 

77230CPR 

77240CPR 

77250CPR 

77260CPR 

77270CPR 

77280CPR 

77290CPR 

77300r.PR 

77320CPR 

77340CPR 

77350CPR 

77360CPR 

77370CPR 

77380CPR 

77390CPR 

77400CPR 

77410CPR 

77420CPR 

ROUTINE-- SINTIT 

DATE/WRITTEN BY-- 01/09/84 

DATE/REVISED BY--

FUNCTION/PURPOSE--

RN PITTMAN 

MAIN EXECUTIVE ROUTINE FOR CREATION OF SINDA-TO-3DTITAN 

INTERFACE FILE 

CALLING ARGUMENTS 

NAME ATTRIBUTES DEFINITION 

-----NONE-----

COMMONS USED 

WORK - STORES INTERNAL ARRAY DATA 

TEMP ARRAY OF ELEMENTAL TEMPERATURES 

CORRESPONDING TO 'ITELM' 

IPKFAC ARRAY OF PACKED FACE NUMBERS 

CORRESPONDING TO 'IGELM' 

IGELM ARRA~ OF ELEMENTS WITH GEOMETRY 

ITELM ARRAY OF ELEMENTS WITH TEMPERATURES 

AFIL - FILE CODES 

ELEMENTS 

IHTIN 

ISINGF 

INTITS 

IERF 

KNTOAT - COUNTER DATA 

ELEMENTS 

NUMNOD 

NUMEWG 

NUMTIM 

NNPE 

ECOOE 

ACODE 

NUMEWT 

NUMSKP 

NUMFUL 

NUMREM 

FUNCTIONS/ROUTINES CALLED 

DATINT 

PRCSOF 

PRCGEO 

WRTNTF 

FILES USED 

NONE 

DEFINITION 

SINDA TEMPERATURE OUTPUT FILE (INPUT) 

SINDA GEOMETRY FILE (INPUT) 

INTERFACE FILE (OUTPUT) 

HARDCOPY FILE (OUTPUT) 

DEFINITION 

NUMBER OF NODES (CORNER POINTS) 

IN MODEL 

NUMBER OF ELEMENTS WITH GEOMETRY 

NUMBER OF SOLUTION TIMES 

NUMBER OF NODES PER ELEMENT 

ELEMENT CODE 

-1 - 20 MODEL (NNPE-4) 

-11 - 3D MODEL (NNPE-8) 

ANALYSIS CODE 

-1 - FINITE DIFFERENCE ANALYSIS 

NUMBER OF ELEMENTS WITH TEMPERATURES 

NUMBER OF RECORDS TO SKIP ON 'IHTIN' 

PRIOR TO BEGINNING OF TEMPERATURE DATA 

NUMBER OF FULL RECORDS OF DATA 

NUMBER OF WORDS ON FINAL RECORD 

150-- GE/TRANCITS -- SINTIT PAGE- 73 

PAGE=73 
TITLE= 

77430CPR 

77440CPR 

77450CPR 

77460CPR 

77470CPR 

77480CPR 

77490CPR 

77500CPR 

77510CPR 

77520CPR 

77530CPR 

77540CPR 

77550CPR 

77560CPR 

77570CPR 

77580CPR 

LIBRARIES ACCESSED 

NONE 

LOCAL VARIABLES 

NONE 

DATE =07/15/85 

SPECIAL COMMENTS ABOUT THIS ROUTINE --

TIME 23 42 

PROGRAM IS CURRENTLY DIMENSIONED TO PERMIT A MAXIMUM OF 

5000 ELEMENTS WITH GEOMETRY AND 5000 ELEMENTS WITH 

TEMPERATURES 

SPECIAL REMARKS/INSTRUCTIONS 

HOST = HIS 

78060 END 

-- GE/TRANCITS -- SINTIT PAGE- 74 

PAGE=74 

151 
TITLE= 

78100 

78140CPR 

SUBROUTTNE DATINT 

DATE =07/15/85 TIME" 23 42 

78150CPR===aa=========~===========.===============.=== ======= 

781GOCPR 

78170CPR 

78180CPR 

78190CPR 

78200CPR 

78210CPR 

78220CPR 

78230CPR 

78240CPR 

78250CPR 

782GOCPR 

78270CPR 

78280CPR 

78290CPR 

78300CPR 

78310CPR 

78320CPR 

78330CPR 

78340CPR 

78350CPR 

78360CPR 

78370CPR 

78380CPR 

78390CPR 

78400CPR 

78410CPR 

78420CPR 

78430CPR 

78440CPR 

78450CPR 

784GOCPR 

78470CPR 

78480CPR 

78490CPR 

78500CPR 

78510CPR 

78520CPR 

78530CPR 

79020C 

79050 

ROUTINE-- DATINT 

DATE/WRITTEN BY-- 01/11/84 

DATE/REVISEO BY--

FUNCTION/PURPOSE--

RN PITTMAN 

THIS ROUTINE INITIALIZES ALL OF THE GLOBAL COMMON VARIABLES 

CALLING ARGUMENTS -- NAME ATTRIBUTES DEFINITION 

-----NONE-----

COMMONS USED -- WORK -- STORES INTERNAL ARRAY DATA 

AFIL -- FILE CODES (MAIN) 

KNTDAT -- COUNTER DATA (MAIN) 

FUNCTIONS/ROUTINES CALLED -- NONE 

FILES USED -- NONE 

LIBRARIES ACCESSED 

NONE 

LOCAL VARIABLES 

NONE 

SPECIAL COMMENTS ABOUT THIS ROUTINE 

NONE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST .. HGOOO 

END OF SUBROUTINE 'DATINT' 

END 

152 -- GE/TRANCITS -- DATINT PAGE- 75 

PAGE=75 
TITLE" 

79090 

79130CPR 

79150CPR 

79160CPR 

79170CPR 

79180CPR 

79190CPR 

79200CPR 

79210CPR 

79220CPR 

79230CPR 

79240CPR 

79250CPR 

79260CPR 

79270CPR 

79280CPR 

79290CPR 

79300CPR 

79310CPR 

79320CPR 

79330CPR 

79340CPR 

79350CPR 

79360CPR 

79370CPR 

79380CPR 

79390CPR 

79400CPR 

79410CPR 

79420CPR 

79430CPR 

79440CPR 

79450CPR 

79460CPR 

79470CPR 

79480CPR 

79490CPR 

79500CPR 

79510CPR 

79520CPR 

79530CPR 

SUBRDUTINE PRCSOF 

ROUTINE-- PRCSOF 

DATE/WRITTEN BY-- 01/11/84 

DATE/REVISED BY--

FUNCTION/PURPOSE--

DATE =07/15/85 TIME" 23 42 

RN PITTMAN 

THIS ROUTINE CONTROLS THE INITIAL PROCESSING OF THE 

'SINDA OUTPUT FILE' (THE FILE WHICH CONTAINS THE 

RESULTS OF THE SINDA ANALYSIS) 

CALLING ARGUMENTS -- NAME ATTRIBUTES DEFINITION 

-----NONE-----

COMMONS USED -- AFIL -- FILE CODES (MAIN) 

FUNCTIONS/ROUTINES CALLED -- GETEWT 

GTNUMT 

FILES USED 

NONE 

LIBRARIES ACCESSED 

NONE 

LOCAL VARIABLES 

NONE 

SPECIAL COMMENTS ABOUT THIS ROUTINE 

NONE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST - H600Q 

79540CPR· ••••••••••••••••• c •••••••••••••••• c •••••• ~ ••••• : ••• 

79770C 

79800 

END OF SUBROUTINE 'PRCSOF' 

END 

-- GE/TRANCITS -- PRCSOF PAGE- 76 

PAGE=76 

153 
TITLE= 

79840 

79880CPR 

79900CPR 

79910CPR 

79920CPR 

79930CPR 

79940CPR 

79950CPR 

799GOCPR 

79970CPR 

79980CPR 

79990CPR 

80000CPR 

80010CPR 

80020CPR 

80030CPR 

80040CPR 

80050CPR 

800GOCPR 

80070CPR 

80080CPR 

80090CPR 

80100CPR 

80110CPR 

80120CPR 

80130CPR 

80140CPR 

80150CPR 

80160CPR 

80170CPR 

80180CPR 

80190CPR 

80200CPR 

80210CPR 

80220CPR 

80230CPR 

80240CPR 

80250CPR 

802GOCPR 

80270CPR 

80280CPR 

80290CPR 

80300CPR 

80310CPR 

80320CPR 

80330CPR 

80340CPR 

80350CPR 

803GOCPR 

80370CPR 

80380CPR 

80390CPR 

80400CPR 

81210C 

81240 

SUBROUTINE GETEWT 

ROUTINE-- GETEWT 

DATE/WRITTEN BY-- 01/11/84 

DATE/REVISED BY--

FUNCTION/PURPOSE--

DATE =07/15/85 TIME = 23 42 

RN PITTMAN 

1 READS THE SINDA ELEMENT NUMBERS FROM 'IHTIN' INTO 'ITELM' 

2 READS FROM 'IHTIN' THE TOTAL NUMBER OF SINDA ELEMENTS 

WITH TEMPERATURES INTO 'NUMEWT' 

3 COUNTS THE NUMBER OF RECORDS PRECEEDING THE FIRST TEMPERATURE SOLUTION ON 'IHTIN' AND STORES THIS VALUE IN 

'NUMSKP' . 

CALLING ARGUMENTS -- NAME ATTRIBUTES DEFINITION 

-----NONE-----

COMMONS USED -- WORK --STORES INTERNAL ARRAY DATA 

AFIl -- FILE CODES (MAIN) 

KNTDAT -- COUNTER DATA (MAIN) 

FUNCTIONS/ROUTINES CALLED -- ERRPRT 

FILES USED -- IHTIN (S) 

LIBRARIES ACCESSED 

NONE 

LOCAL VARIABLES 

SINDA OUTPUT FILE (INPUT TO THIS ROUTINE) 

IPOS POSITION OF THE BEGINNING OF EACH GROUP OF 10 

ELEMENT NUMBERS IN THE 'ITELM' ARRAY 

***NOTE*** 

IN THIS ROUTINE, THE GLOBAL VARIABLES 'NUMFUL' AND NUMREM' 

ARE REDEFINED AS FOLLOWSNUMFUL - NUMBER OF 'FULL' 10-WORD RECORDS OF SINDA 

ELEMENT NUMBERS CONTAINED ON 'IHTIN' 

NUMREM - NUMBER OF ELEMENT NUMBERS REMAINING ON FINAL 

RECORD OF ELEMENT NUMBERS 

SPECIAL COMMENTS ABOUT THIS ROUTINE 

NONE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST • HGOOO 

END OF SUBROUTINE 'GETEWT' 

END 

154 -- GE/TRANCITS -- GETEWT PAGE- 77 

PAGE=77 
TITLE"' 

81280 

81320CPR 

81340CPR 

81350CPR 

81360CPR 

81370CPR 

81380CPR 

81390CPR 

81400CPR 

81410CPR 

81420CPR 

81430CPR 

81440CPR 

81450CPR 

81460CPR 

81470CPR 

81480CPR 

81490CPR 

81500CPR 

81510CPR 

81520CPR 

81530CPR 

81540CPR 

81550CPR 

81560CPR 

81570CPR 

81580CPR 

81590CPR 

81600CPR 

81610CPR 

81620CPR 

81630CPR 

81640CPR 

81650CPR 

81660CPR 

81670CPR 

81680CPR 

81690CPR 

81700CPR 

81710CPR 

81720CPR 

81730CPR 

81740CPR 

81750CPR 

81760CPR 

81770CPR 

81780CPR 

81790CPR 

81800CPR 

81810CPR 

81820CPR 

81830CPR 

81840CPR 

81850CPR 

81860CPR 

81870CPR 

SUBROUTINE GTNUMT 

ROUTINE-- GTNUMT 

DATE/WRITTEN BY-- 01/11/84 

DATE/REVISED BY--

FUNCTION/PURPOSE--

DATE =07/15/85 TIME = 23 42 

RN PITTMAN 

THIS ROUTINE COUNTS THE TOTAL NUMBER OF SOLUTION BLOCKS 

CONTAINED IN THE 'SINDA OUTPUT FILE' AND STORES THIS VALUE 

IN THE GLOBAL VARIABLE 'NUMTIM' 

CALLING ARGUMENTS -- NAME ATTRIBUTES DEFINITION 

-----NONE-----

COMMONS USED -- WORK --STORES INTERNAL ARRAY DATA 

AFIL -- FILE CODES (MAIN) 

KNTDAT -- COUNTER DATA (MAIN) 

FUNCTIONS/ROUTINES CALLED -- ERRPRT 

FILES USED -- IHTIN (S) 

LIBRARIES ACCESSED 

NONE 

LOCAL VARIABLES 

SINDA OUTPUT FILE (INPUT TO THIS PROGRAM) 

DUMMY - VARIABLE USED IN DUMMY READS TO PASS THROUGH EACH 

SOLUTION BLOCK TO THE NEXT 

KNT CURRENT COUNT OF THE NUMBER OF SOLUTION BLOCKS 

ENCOUNTERED ON 'IHTIN' 

***NOTE*** 

IN THIS ROUTINE, THE GLOBAL VARIABLES 'NUMFUL' AND 'NUMREM' 

ARE REDEFINED AS FOLLOWSNUMFUL - NUMBER OF 'FULL' 6-WORD RECORDS OF TEMPERATURE 

DATA IN EACH SOLUTION BLOCK ON 'IHTIN' 

NUMREM - NUMBER OF TEMPERATURES ON FINAL RECORD OF EACH 

SOLUTION BLOCK 

THESE DEFINITIONS ARE NOT ALTERED FURTHER IN THIS PROGRAM 

SPECIAL COMMENTS ABOUT THIS ROUTINE -- EACH TEMPERATURE SOLUTION BLOCK ON 'IHTIN' IS PASSED THROUGH 

WITH DUMMY READS UNTIL THE END OF FILE IS ENCOUNTERED 

THE SOLUTION COUNTER, 'KNT', IS INCREMENTED BY ONE AT THE 

BEGINNING OF EACH BLOCK 

SPECIAL REMARKS/INSTRUCTIONS 

HOST .. H6000 

81880CPR·.···············.···························· ..... . 82550C 

82580 

END OF SUBROUTINE 'GTNUMT' 

END 

-- GE/TRANCITS -- GTNUMT PAGE- 78 

PAGE=78 

155 
TITLE" 

82620 

826GOCPR 

82680CPR 

82690CPR 

82700CPR 

82710CPR 

82720CPR 

82730CPR 

82740CPR 

82750CPR 

82760CPR 

82770CPR 

82780CPR 

82790CPR 

82800CPR 

82810CPR 

82820CPR 

82830CPR 

82840CPR 

82850CPR 

82860CPR 

82870CPR 

82880CPR 

82890CPR 

82900CPR 

82910CPR 

82920CPR 

82930CPR 

82940CPR 

82950CPR 

82960CPR 

82970CPR 

82980CPR 

82990CPR 

83000CPR 

83010CPR 

83020CPR 

83030CPR 

83040CPR 

83050CPR 

83060CPR 

83070CPR 

83080CPR 

83560C 

83590 

SUBROUTINE PRCGEO 

ROUTINE-- PRCGEO 

DATE/WRITTEN BY-- 01/11/84 

DATE/REVISED BY--

FUNCTION/PURPOSE--

DATE =07/15/85 TIME" 23 42 

RN PITTMAN 

1 READS THE VALUES CONTAINED IN THE 'DIRECTORY' RECORD OF 

THE 'SINDA GEOMETRY FILE' INTO THE GLOBAL COMMON VALUES 

'NUMNOD'. 'NUMEWG', AND 'NNPE' 

2 SETS THE VALUE FOR 'ECODE' BASED UPON THE VALUE OF 'NNPE' 

CALLING ARGUMENTS -- NAME ATTRIBUTES DEFINITION 

-----NONE-----

COMMONS USED -- AFIL -- FILE CODES (MAIN] 

KNTDAT -- CCOUNTER DATA (MAIN) 

FUNCTIONS/ROUTINES CALLED -- ERRPRT 

FILES USED -- ISINGF (S) 

LIBRARIES ACCESSED 

NONE 

LOCAL VARIABLES 

SINDA GEOMETRY FILE (INPUT) 

TITLE - CHARACTER ARRAY INTO WHICH THE 'ISINGF' TITLE RECORD 

IS READ 

SPECIAL COMMENTS ABOUT THIS ROUTINE 

NONE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST • H6000 

END OF SUBROUTINE 'PRCGEO' 

END 

-- GE/TRANCITS -- PRCGEO PAGE- 79 

PAGE=79 

156 
TITLE= 

83630 

83670CPR 

83690CPR 

83700CPR 

83710CPR 

83720CPR 

83730CPR 

83740CPR 

83750CPR 

83760CPR 

83770CPR 

83780CPR 

83790CPR 

83800CPR 

83810CPR 

83820CPR 

83830CPR 

83840CPR 

83850CPR 

83860CPR 

83870CPR 

83880CPR 

83890CPR 

83900CPR 

83910CPR 

83920CPR 

83930CPR 

83940CPR 

83950CPR 

83960CPR 

83970CPR 

83980CPR 

83990CPR 

84000CPR 

84010CPR 

84020CPR 

84030CPR 

84040CPR 

84050CPR 

84060CPR 

84070CPR 

84080CPR 

84090CPR 

84100CPR 

84110CPR 

84120CPR 

84130CPR 

84850C 

84880 

SUBROUTINE WRTNTF 

ROUTINE-- WRTNTF 

DATE/WRITTEN BY-- 01/11/84 

DATE/REVISED BY--

FUNCTION/PURPOSE--

DATE "07/15/85 TIME 23 42 

RN PITTMAN 

THIS ROUTINE CONTROLS THE WRITING OF THE 'INTERFACE FILE'. 

CALLING ARGUMENTS -- NAME ATTRIBUTES DEFINITION 

-----NONE-----

COMMONS USED --

WORKS --STORES INTERNAL ARRAY DATA 

AFIL -- FILE CODES (MAIN) 

KNTDAT -- COUNTER DATA (MAIN) 

FUNCTIONS/ROUTINES CALLED -- WRTDIR 

WRTGEO 

WRTEMP 

ERRPRT 

FILES USED 

INTITS 

ISINGF 

IHTIN 

(S) 

(S) 

(S) 

LIBRARIES ACCESSED 

NONE 

LOCAL VARIABLES 

INTERFACE FILE (OUTPUT) 

SINDA GEOMETRY FILE (INPUT) 

SINDA OUTPUT FILE (INPUT) 

DUMMY VARIABLE USED IN 'DUMMY' READS TO SKIP OVER ALL 

DATA ON 'IHTIN' PRECEEDING THE TEMPERATURE 

SOLUTION BLOCKS 

SPECIAL COMMENTS ABOUT THIS ROUTINE 

NONE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST - H6000 

END OF SUBROUTINE 'WRTNTF' 

END 

-- GE/TRANCITS -- WRTNTF PAGE- 80 

PAGE=80 

157 
TITLE= 

84920 

849GOCPR 

SUBROUTINE WRTDIR 

DATE "'07/15/85 TIME 23 42 

84970CPR·=z============~=========z===z=========_============= 

84980CPR 

84990CPR 

85000CPR 

85010CPR 

85020CPR 

85030CPR 

85040CPR 

85050CPR 

850GOCPR 

85070CPR 

85080CPR 

85090CPR 

85100CPR 

85110CPR 

85120CPR 

85130CPR 

85140CPR 

85150CPR 

851GOCPR 

85170CPR 

85180CPR 

85190CPR 

85200CPR 

85210CPR 

85220CPR 

85230CPR 

85240CPR 

85250CPR 

852GOCPR 

85270CPR 

85280CPR 

85290CPR 

85300CPR 

85310CPR 

85320CPR 

85330CPR 

85340CPR 

85350CPR 

853GOCPR 

85370CPR 

85380CPR 

85390CPR 

85400CPR 

8G090C 

8G120 

ROUTINE-- WRTDIR 

DATE/WRITTEN BY-- 01/11/84 

DATE/REVISED BY--

FUNCTION/PURPOSE--

RN PITTMAN 

THIS ROUTINE WRITES THE TITLE (RECORDS 1-4) AND DIRECTORY 

(RECORD 5) RECOROS OF THE 'INTERFACE FILE' 

CALLING ARGUMENTS -- NAME ATTRIBUTES DEFINITION 

-----NONE-----

COMMONS USED -- WORK --STORES INTERNAL ARRAY DATA 

AFIL -- FILE CODES (MAIN) 

KNTDAT -- COUNTER DATA (MAIN) 

FUNCTIONS/ROUTINES CALLED -- ERRPRT 

FILES USED 

INTITS 

ISINGF 

(S) 

(S) 

LIBRARIES ACCESSED 

NONE 

LOCAL VARIABLES 

INTERFACE FILE (OUTPUT) 

SINDA GEOMETRY FILE (INPUT) 

TITLE 80-CHARACTER TITLE CONTAINED ON RECORD 1 OF 'ISINGF' 

AND WRITTEN ON RECORD 4 OF 'INTITS' 

USRTTL - SO-CHARACTER ARRAY USED TO 'DUMMY-OUT' RECORDS 

1-3 OF 'INTITS' 

SPECIAL COMMENTS ABOUT THIS ROUTINE 

NONE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST '" HGOOO 

END OF SUBROUTINE 'WRTDIR' 

END 

158 -- GE/TRANCITS -- WRTDIR PAGE- 81 

PAGE=81 
TITLE" 

86160 

86200CPR 

SUBROUTINE WRTGEO 

DATE "07/15/85 TIME 23 42 

86210CPR==================-=============-=============E====:= 

86220CPR 

86230CPR 

86240CPR 

86250CPR 

86260CPR 

86270CPR 

86280CPR 

86290CPR 

86300CPR 

86310CPR 

86320CPR 

86330CPR 

86340CPR 

86350CPR 

86360CPR 

86370CPR 

86380CPR 

86390CPR 

86400CPR 

86410CPR 

86420CPR 

86430CPR 

86440CPR 

86450CPR 

86460CPR 

86470CPR 

86480CPR 

86490CPR 

86500CPR 

86510CPR 

86520CPR 

86530CPR 

86540CPR 

86550CPR 

86560CPR 

86570CPR 

86580CPR 

86590CPR 

866'OOCPR 

86610CPR 

86620CPR 

86630CPR 

86640CPR 

86650CPR 

86660CPR 

86670CPR 

86680CPR 

87490C 

87520 

ROUTINE-- WRTGEO 

DATE/WRITTEN BY-- 01/11/84 

DATE/REVISED BY--

FUNCTION/PURPOSE--

RN PITTMAN 

THIS ROUTINE WRITES THE GEOMETRICAL DATA (COORDINATE. 

CONNECTIVITY. AND FACES) ON THE INTERFACE FILE 

CALLING ARGUMENTS -- NAME ATTRIBUTES DEFINITION 

-----NONE-----

COMMONS USED -- WORK --STORES INTERNAL ARRAY DATA 

AFIL -- FILE COOES (MAIN) 

KNTDAT -- COUNTER DATA (MAIN) 

FUNCTIONS/ROUTINES CALLED -- ERRPRT 

FILES USED 

ISINGF 

INTITS 

(S) 

(S) 

SINDA GEOMETRY FILE (INPUT) 

INTERFACE FILE (OUTPUT) 

LIBRARIES ACCESSED 

NONE 

LOCAL VARIABLES 

DUMMY USED IN 'DUMMY READ' TO POSITION 'ISINGF' AT 

N 

NODE 

X 

Y 

Z 

BEGINNING OF COORDINATE DATA 

ARRAY OF NODE NUMBERS DEFINING CONNECTIVITY 

OF'IGELM(I)' 

CURRENT NODE (CORNER POINT) NUMBER 

X-COORDINATE OF 'NODE' 

Y-COORDINATE OF 'NODE' 

Z-COORDINATE OF 'NODE' 

SPECIAL COMMENTS ABOUT THIS ROUTINE 

NONE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST .. H6000 

END OF SUBROUTINE 'WRTGEO' 

END 

-- GE/TRANCITS -- WRTGEO PAGE" 82 

PAGE=82 

159 
TITLE= 

87560 

87600CPR 

SUBROUTINE WRTEMP 

DATE =07/15/85 TIME 23 42 

87610CPR==========S=======C====C====================2======== 

87620CPR 

87630CPR 

87640CPR 

87650CPR 

87660CPR 

87670CPR 

87680CPR 

87690CPR 

87700CPR 

87710CPR 

87720CPR 

87730CPR 

87740CPR 

87750CPR 

87760CPR 

87770CPR 

87780CPR 

87790CPR 

87800CPR 

87810CPR 

87820CPR 

87830CPR 

87840CPR 

87850CPR 

87860CPR 

87870CPR 

87880CPR 

87890CPR 

87900CPR 

87910CPR 

87920CPR 

87930CPR 

87940CPR 

87950CPR 

87960CPR 

87970CPR 

87980CPR 

87990CPR 

88000CPR 

88010CPR 

88020CPR 

88030CPR 

88040CPR 

88840C 

88870 

ROUTINE-- WRTEMP 

DATE/WRITTEN BY-- 01/11/84 

DATE/REVISED BY--

FUNCTION/PURPOSE--

RN PITTMAN 

THIS ROUTINE WRITES THE TIME AND TEMPERATURE DATA ON THE 

'INTERFACE FILE' 

CALLING ARGUMENTS -- NAME ATTRIBUTES DEFINITION 

-----NONE-----

COMMONS USED -- WORK --STORES INTERNAL ARRAY DATA 

AFIL -- FILE CODES (MAIN) 

KNTDAT -- COUNTER OATA (MAIN) 

FUNCTIONS/ROUTINES CALLED -- ERRPRT 

FILES USED 

IHTIN 

INTITS 

(S) SINDA OUTPUT FILE (INPUT) 

(S) INTERFACE FILE (OUTPUT) 

LIBRARIES ACCESSED 

NONE 

LOCAL VARIABLES 

KNT - POSITION IN THE 'TEMP' ARRAY OF THE NEXT GROUP OF 

SIX TEMPERATURES TO BE WRITTEN TO 'INTITS' 

TIME - CURRENT VALUE OF TIME READ FROM 'IHTIN' FOR THIS 

TEMPERATURE BLOCK 

SPECIAL COMMENTS ABOUT THIS ROUTINE 

NONE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST • H6000 

END OF SUBROUTINE 'WRTEMP' 

END 

160 -- GE/TRANCITS -- WRTEMP PAGE" 83 

PAGE=83 
TITLE= 

88910 

88950CPR 

88970CPR 

88980CPR 

88990CPR 

89000CPR 

89010CPR 

89020CPR 

89030CPR 

89040CPR 

89050CPR 

890GOCPR 

89070CPR 

89080CPR 

89090CPR 

89100CPR 

89110CPR 

89120CPR 

89130CPR 

89140CPR 

89150CPR 

891GOCPR 

89170CPR 

89180CPR 

89190CPR 

69200CPR 

89210CPR 

89220CPR 

89230CPR 

89240CPR 

89250CPR 

892GOCPR 

89270CPR 

89280CPR 

89290CPR 

89300CPR 

89310CPR 

89320CPR 

89330CPR 

89340CPR 

89350CPR 

893GOCPR 

SUBROUTINE ERRPRT (IROUTr 

ROUTINE-- ERR?RT 

DATE/WRITTEN BY-- 01/12/84 

DATE/REVISED BY--

FUNCTION/PURPOSE--

DATE =07/15/85 TIME 

RN PITTMAN 

THIS ROUTINE PROCESSES ALL FATAL ERROR CONDITIONS BY 

PRINTING AN EXPLANATION OF THE ERROR ON THE HARDCOPY 

OUTPUT FILE AND TERMINATING PROGRAM EXECUTION 

CALLING ARGUMENTS -- NAME ATTRIBUTES DEFINITION 

23 42 

IROUT INTEGER/INPUT ROUTING VARIABLE FOR APPROPRIATE 

ERROR MESSAGE 

COMMONS USED 

AFIL -- FILE CODES (MAIN) 

FUNCTIONS/ROUTINES CALLED -- NONE 

FILES USED -- IERF (S) 

LIBRARIES ACCESSED 

NONE 

LOCAL VARIABLES 

NONE 

HARDCOPY FILE (OUTPUT) 

SPECIAL COMMENTS ABOUT THIS ROUTINE 

NONE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST • H6000 

91950 END 

-- GE/TRANCITS -- ERRPRT PAGE- 84 

PAGE"84 

161 
TITLE= DATE =07/15/85 

91970Cc==a~z=======.====~=============.====.=====z==== ==== 

91990 SUBROUTINE TEMFOR(ISPOC) 

92010C===================================-================ 

92030CPR 

ROUTINE-- TEMFOR 

DATE/WRITTEN BY-- 01/14/84 

DATE/REVISED BY--

FUNCTION/PURPOSE--

RoJ MAFFEO 

TIME 23 42 

92050CPR 

92060CPR 

92070CPR 

92080CPR 

92090CPR 

92100CPR 

92110CPR 

92120CPR 

92130CPR 

92140CPR 

92150CPR 

92160CPR 

92170CPR 

92180CPR 

92190CPR 

92200CPR 

92210CPR 

92220CPR 

92230CPR 

92240CPR 

92250CPR 

92260CPR 

92270CPR 

92280CPR 

92290CPR 

92300CPR 

92310CPR 

92320CPR 

92330CPR 

92340CPR 

92350CPR 

92360CPR 

92370CPR 

92380CPR 

92390CPR 

92400CPR 

92410CPR 

92420CPR 

92430CPR 

92440CPR 

92450CPR 

92460CPR 

92470CPR 

92480CPR 

92490CPR 

92500CPR 

92510CPR 

92520CPR 

THIS ROUTINE CALLS ALL THE REQUIRED ROUTINES TO FORMAT THE 

OUTPUT TEMPERATURES INTO FORMEO NEEDED FOR THE STRESS ANALYSIS 

PROGRAM 

VALID CODES ARE 

o NEUTRAL 

1 --- NASTRAN 

2.3 --- MARC 

CALLING ARGUMENTS --

TEMPERATURE OUTPUT FILE ONLY 

FORMATTED TEMPERATURES 

FORMATTED TEMPERATURES 

NAME ATTRIBUTES DEFINITION 

ISPOC (I) STRESS PROGRAM OUTPUT CODE 

COMMONS USED 

AFIL 

SIZE 

FUNCTIONS/ROUTINES CALLED --

TPNAST 

MARCTO 

FILES USED 

IERF S 

LIBRARIES ACCESSED 

NONE 

LOCAL VARIABLES --

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST .. H6000 

93110 END 

162 -- GE/TRANCITS -- TEMFOR PAGE- 85 

PAGE=85 
TITLE= 

93140 

93170CPR 

DATE =07/15/85 

SUBROUTINE TPNAST(NUMNOD,NUMTMP) 

ROUTINE-- TPNAST 

DATE/WRITTEN BY-- 01/14/84 

DATE/REVISED BY--

FUNCTION/PURPOSE--

RD MCCLAIN 

WRITE NASTRAN BULK DATA TEMPERATURE CARDS 

CALLING ARGUMENTS 

NAME ATTRIBUTES DEFINITION 

TIME 23 42 

93190CPR 

93200CPR 

93210CPR 

93220CPR 

93230CPR 

93240CPR 

93250CPR 

93260CPR 

93270CPR 

93280CPR 

93290CPR 

93300CPR 

93310CPR 

93320CPR 

93330CPR 

93340CPR 

93350CPR 

93360CPR 

93370CPR 

93380CPR 

93390CPR 

93400CPR 

93410CPR 

93420CPR 

93430CPR 

93440CPR 

93450CPR 

93460CPR 

93470CPR 

93480CPR 

93490CPR 

93500CPR 

93510CPR 

93520CPR 

93530CPR 

93540CPR 

93550CPR 

93560CPR 

93570CPR 

93580CPR 

93590CPR 

93600CPR 

93610CPR 

NUMNOD 

NUMTMP 

INPUT 

INPUT 

NUMBER OF NODES ON NEUT TEMP FILE 

NUMBER OF TEMPERATURE SETS 

COMMONS USED 

AFIL FILE CODES 

FUNCTIONS/ROUTINES CALLED 

FILES USED 

IOUTF 

ITEMP 

S 

S 

NEUTRAL OUTPUT FILE 

NASTRAN BULK DATA FILE 

LIBRARIES ACCESSED -- NONE 

LOCAL VARIABLES --

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST • H6000 

93910 END 

-- GE/TRANCITS -- TPNAST PAGE- 86 

PAGE=86 

163 
TITLE= 

93950 

93970CPR 

93990CPR 

9400QCPR 

94010CPR 

94020CPR 

94030CPR 

94040CPR 

94050CPR 

940GOCPR 

94070CPR 

940S0CPR 

94090CPR 

94100CPR 

94110CPR 

94120CPR 

94130CPR 

94140CPR 

94150CPR 

941GOCPR 

94170CPR 

94180CPR 

94190CPR 

94200CPR 

94210CPR 

94220CPR 

94230CPR 

94240CPR 

94250CPR 

942GOCPR 

94270CPR 

94280CPR 

94290CPR 

94300CPR 

94310CPR 

94320CPR 

94330CPR 

94340CPR 

94350CPR 

943GOCPR 

94370CPR 

94380CPR 

94390CPR 

94400CPR 

94410CPR 

94420CPR 

94430CPR 

94440CPR 

94450CPR 

944GOCPR 

94470CPR 

94480CPR 

94490CPR 

94500CPR 

94510CPR 

94520CPR 

94530CPR 

94540CPR 

94550CPR 

945GOCPR 

94570CPR 

94580CPR 

94590CPR 

94GOOCPR 

94G10CPR 

DATE =07/15/85 

SUBROUTINE I3DSF(CMN~X,CRD,XP,YP,ZP,NSP, 

ROUTINE-- I3DSF 

DATE/WRITTEN BY-- 11/28/83 

DATE/REVISED BY--

FUNCTION/PURPOSE--

R J MAFFEO 

TIME 23 42 

THIS ROUTINE COMPUTES THE VALUES OF THE LOCAL COORDINATES 

OF A STRESS POINT WRT THE VERTICES OF THE 8-NOOED HEAT 

TRANSFER ELEMENT.IF THE STRESS POINT LIES IN THE ELM 

IT COMPUTES THE 8 WEIGHTING COEFFICIENTS FOR THIS POINT 

IF THE POINT LIES OUTSIDE THE ELM IT COMPUTES THE SURFACE 

COORDINATES OF THE POINT PROJECTED IN THE LOCAL COORD SYSTEM 

AND COMPUTES THE WEIGHTING COEFFS BASED ON THESE SURFACE 

COORDINATES IT ALSO COMPUTES THE DISTANCE THE POINT IS AWAY 

FROM THE SURFACE 

CALLING ARGUMENTS -- NAME ATTRIBUTES 

CMNMX 

CRD 

XP 

YP 

ZP 

NSP 

XLOC 

YLOC 

ZLOC 

SF 

ICONV 

IPAS 

DIST 

XSUR 

YSUR 

ZSUR 

COMMONS USED 

AFIL 

(I) 

(I) 

(I) » 

(I) »» 

( I ) » 

(I) 

(0) » 

(0) »» 

(0) » 

(0) 

(0) 

(I) 

(0) 

(0) » 

(0) »» 

(0) » 

DEFINITION 

ARRAY WITH MIN AND MAX 

ARRAY WITH ELM VERTICE 

STRESS POINT COOROS 

STRESS POINT NAME 

LOCAL COORDS OF STRESS 

WEIGHTING COEFFICIENTS 

CONVERGENCE PARAMETER 

o --- 010 NOT CONVERGE 

WINDOW COORDS 

COORDS 

POINT 

1 --- CONVERGED TO POINT IN THE ELM 

2 --- CONVERGED TO POINT OUT OF ELM 

SEARCH TYPE PARAMETER 

-1 NO REARRANGE,NO ROTATION 

NO SURFACING 

o NO REARRANGE , ROTATE 

NO SURFACING 

1 --- REAARANGE,ROTATE 

PERFORM SURFACING 

DISTANCE FORM OUTSIDE POINT TO SURFACE 

SURFACE COORDINATES 

FUNCTIONS/ROUTINES CALLED --

REAARY 

SHAPFV 

CHKPT 

\lACBCK 

SFDIST 

FILES USED 

LIBRARIES ACCESSED --

164-- GE/TRANCITS -- I3DSF PAGE- 87 

PAGE=S7 
TITLE= 

94620CPR 

94630CPR 

94640CPR 

94650CPR 

94660CPR 

94670CPR 

94680CPR 

94690CPR 

94700CPR 

94710CPR 

94720CPR 

94730CPR 

94740CPR 

94750CPR 

94760CPR 

94770CPR 

94780CPR 

94790CPR 

DATE =07/15/85 TIME = 23 42 

NONE 

LOCAL VARJABLES -- IPOINT --- ACCURACY INDICATOR 

o -- STRESS POINT NOT RECALCULATED ACCURATELY 

1 -- STRESS POINT RECALCULATED ACCURATELY 

IJACB --- JACOBIAN CHECK PARAMETER 

o -- JACOBIAN NOT POSITIVE 

1 -- JACOBIAN IS POSITIVE 

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST .. H6000 

94800CPR==···· •••• == •••••••••• = •••• : ••• = ••••• = •••• == ••• = •••• 

97960 END 

-- GE/TRANCITS -- I3DSF PAGE- 88 

PAGE=88 

165 
TITLE= DATE =07/15/85 TIME = 23 42 

97980C==================================================== 

98000 SuBROUTINE REAARY(X.Y.Z.XP.YP.ZP.SF.ICLOS.ITRYC.DTOCN.XL.YL.ZL 98020CPR 

98030CPR=-============================sac==_================= 

98040CPR 

98050CPR 

98060CPR 

98070CPR 

98080CPR 

98090CPR 

98100CPR 

98110CPR 

98120CPR 

98130CPR 

98140CPR 

98150CPR 

98160CPR 

98170CPR 

98180CPR 

9B190CPR 

98200CPR 

98210CPR 

98220CPR 

98230CPR 

98240CPR 

98250CPR 

98260CPR 

98270CPR 

98280CPR 

98290CPR 

98300CPR 

98310CPR 

98320CPR 

98330CPR 

98340CPR 

98350CPR 

98360CPR 

98370CPR 

98380CPR 

98390CPR 

98400CPR 

98410CPR 

98420CPR 

98430CPR 

98440CPR 

98450CPR 

98460CPR 

98470CPR 

98480CPR 

98490CPR 

98500CPR 

98510CPR 

98520CPR 

98530CPR 

98540CPR 

98550CPR 

98560CPR 

98570CPR 

98580CPR 

98590CPR 

98600CPR 

98610CPR 

99530 

ROUTINE-- REAARY 

DATE/WRITTEN BY-- 11/28/83 

DATE/REVISED BY--

R V MAFFEO 

FUNCTION/PURPOSE--

THIS ROUTINE REARRANGES THE CONNECTIVITY COORDS AND 

THE SHAPE FUNCTION ARRAYS IN AN ATTEMPT TO GET AN 

ORDER THAT WILL ENHANCE CONVERGENCE OF THE INVERSE 

SHAPE FUNCTION ROUTINE(I3DSF) IT ALSO COMPUTES THE 

DISTANCE FROM THE STRESS POINT TO THE NEAREST ELM 

CORNER OPTIDNALY IT WILL ·UN-REARRANGE" THE 

SHAPE FUNCTION ARRAY AND THE LOCAL COORDS 

CALLING ARGUMENTS -- NAME ATTRIBUTES 

x 

Y 

2 

XP 

YP 

2P 

SF 

ICLOS 

ITRYC 

DTOCN 

XL 

(I/O) » 

(I/O) »» 

(I/O) » 

(I) » 

( I ) »» 

(I) » 

(I/O) 

(I/O) 

(I) 

»> 

DEFINITION 

CONNECTIVITY COORD ARRAYS 

COORDS OF STRESS POINTS 

SHAPE FUNCTION ARRAY 

VALUE OF NEW I vOINT 

CONTROL ARGUMENT 

-1 REARRANGE SHAPE FUNCTION ARRAY 

o -- PICK I vOINT AS vOINT NEAREST TO 

STRESS POINT 

N>O -- USE VALUE OF N AS I vOINT 

DISTANCE TO NEAREST CORNER 

YL 

ZL 

(0) 

(I/O) 

(I/O) 

(I/O) 

»»» VALUES OF LOCAL COORDINATES 

»> 

COMMONS USED --

FUNCTIONS/ROUTINES CALLED --

SORT2 

FILES USED 

LIBRARIES ACCESSED -- NONE 

LOCAL VARIABLES --

SPECIAL COMMENTS ABOUT THIS ROUTINE 

NOTE THE Iv ARRAY IS USED TO RELATE THE REARRANGED 

CONNECTIVITY ARRAY TO THE vOINT PICKED AS THE I vOINT 

END 

166-- GE/TRANCITS -- REAARY PAGE= 89 

PAGE=89 
TITLE= 

99570 

99610CPR 

99620CPR 

99630CPR 

99640CPR 

99650CPR 

99660CPR 

99670CPR 

99680CPR 

99690CPR 

99700CPR 

99710CPR 

99720CPR 

99730CPR 

99740CPR 

99750CPR 

99760CPR 

99770CPR 

99780CPR 

99790CPR 

99800CPR 

99810CPR 

99820CPR 

99830CPR 

99840CPR 

99850CPR 

99860CPR 

99870CPR 

99880CPR 

99890CPR 

99900CPR 

99910CPR 

99920CPR 

99930CPR 

99940CPR 

DATE =07/15/85 

SUBROUTINE SORT2(SEEDS,FDLLO,LAX) 

ROUTINE-- SORT2 

DATE/WRITTEN BY-- 77?7?777? 

DATE/REVISED BY--

FUNCTION/PURPOSE--

GE DOUBLE SORT 

THIS ROUTINE SORTS TWO 1 DIMENSIONAL ARRAYS 

CALLING ARGUMENTS -- NAME ATTRIBUTES DEFINITION 

PRIMARY ARRAY TO BE SORTED 

TIME 23 42 

SEEDS 

FOLLO 

LAX 

(I/O) 

(I/O) 

(I) 

ARRAY TO BE SORTED LIKE THE PRIMARY 

NUMBER OF ITEMS IN ARRAYS 

COMMONS USED -- NONE 

FUNCTIONS/ROUTINES CALLED -- NONE 

FILES USED -- NONE 

LIBRARIES ACCESSED 

NONE 

LOCAL VARIABLES --

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST .. H6000 

100260 END 

-- GE/TRANCITS -- SORT2 PAGE- 90 

PAGE=90 

167 
TITLE= DATE "07/15/85 TIME = 23 42 

100280C&c •• =z==.z==.: ••• s ••• ===.= •• ====.= •••••••••••••• -=_. 

100300 SUBROUTINE SFDIST(SF.DIST.XNC.YNC.ZNC.XSUR.YSUR.ZSUR.XP.YP.ZP. 

100330C===============a======-============================= 

100340CPR 

ROUTINE-- SFDIST 

DATE/WRITTEN BY-- 11/15/83 

DATE/REVISED BY--

FUNCTION/PURPOSE--

Rv MAFFEO 

THIS ROUTINE COMPUTES THE DISTANCE FROM STRESS 

POINTS THAT ARE OUTSIDE A HEAT TRANSFER ELM TO THE 

SURFACE OF THE HEAT TRAN ELM IT ALSO COMPUTES THE 

SURFACE COORDIANTES THIS SURFACE POINT IS FOUND BY 

'TRUNCATING' THE LOCAL COORDINATES TO 1 OR -1 

CALLING ARGUMENTS -- NAME ATTRIBUTES DEFINITION 

SF (I) SHAPE FUNCTION ARRAY 

DIST (0) COMPUTED DISTANCE 

XNC (I) »> 

YNC (I) »»»»> LOCAL VALUES OF STRESS 

ZNC (I) »> 

XSUR (0) »> 

YSUR (0) »»»»> COORDS OF SURFACE POINT 

ZSUR (0) »> 

XP (I) »> 

YP (I) »»»»> COORDS OF STRESS POINT 

ZP (I) »> 

NNPE (I) NUMBER OF NODES PER ELM 

POINT 

100360CPR 

100370CPR 

100380CPR 

100390CPR 

100400CPR 

100410CPR 

100420CPR 

100430CPR 

100440CPR 

100450CPR 

100460CPR 

100470CPR 

100480CPR 

100490CPR 

100500CPR 

100510CPR 

100520CPR 

100530CPR 

100540CPR 

100550CPR 

100560CPR 

100570CPR 

100580CPR 

100590CPR 

100600CPR 

100610CPR 

100620CPR 

100630CPR 

100640CPR 

100650CPR 

100660CPR 

100670CPR 

100680CPR 

100690CPR 

100700CPR 

100710CPR 

100720CPR 

100730CPR 

100740CPR 

100750CPR 

100760CPR 

100770CPR 

100780CPR 

100790CPR 

100800CPR 

100810CPR 

100820CPR 

100830CPR 

100840CPR 

100850CPR 

100860CPR 

100870CPR 

100880CPR 

100890CPR 

100900CPR 

100910CPR 

100920CPR 

CRD (I) COORDS OF VERTICES OF ELM 

COMMONS USED 

FUNCTIONS/ROUTINES CALLED --

SHAPFV 

FILES USED 

LIBRARIES ACCESSED -- NONE 

LOCAL VARIABLES --

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST • H6000 

101290 END 

168-- GE/TRANCITS -- SFDIST PAGE: 91 

PAGE=91 
TITLE= DATE =07/15/85 TIME" 23 42 

101310Cca===D=====D==.=~==Z==.=====.==K.C=========.=== a==== 

101330 SUBROUTINE CHKPT(SF,X,Y,Z,XS,YS,ZS,IPOINT) 

101340CPR 

101350CPR=-======= •• =====_c= •• ==== ••• =======================_= 

101360CPR 

101370CPR 

ROUTINE-- CHKPT 

DATE/WRITTEN BY-- 11/28/83 

DATE/REVISED BY--

FUNCTION/PURPOSE--

R u. MAFFEO 

101380CPR 

101390CPR 

101400CPR 

101410CPR 

101420CPR 

101430CPR 

101440CPR 

101450CPR 

101460CPR 

101470CPR 

101480CPR 

101490CPR 

101500CPR 

101510CPR 

101520CPR 

101530CPR 

101540CPR 

101550CPR 

101560CPR 

101570CPR 

101580CPR 

101530CPR 

101600CPR 

101610CPR 

101620CPR 

101630CPR 

101640CPR 

101650CPR 

101660CPR 

101670CPR 

101680CPR 

101690CPR 

101700CPR 

THIS ROUTINE RECOMPUTES THE STRESS POINT COORDS 

ON THE VALUES OF THE LOCAL COORDINATES TO CHECK 

ACCURACY 

BASED 

FOR 

CALLING ARGUMENTS 

NAME ATTRIBUTES DEFINITION 

SF (I) ARRAY OF 

X (1) » 

Y (I) »» ARRAY OF 

Z (1) » 

XS (I) » 

YS (1) »» ORIGINAL 

ZS (I) » 

IPOINT (0) ACCURACY 

0 DID 

1 -- DID 

COMMONS USED --

FUNCTIONS/ROUTINES CALLED --

FILES USED --

LIBRARIES ACCESSED 

NONE 

LOCAL VARIABLES --

SHAPE FUNCTIONS 

ELM CORNER COORDS 

STRESS POINT COORDS 

INDCATOR 

NOT REPRODUCE COORD 

REPRODUCE COORD 

101710CPR 

101720CPR 

101730CPR 

101740CPR 

101750CPR 

101760CPR 

101770CPR 

101780CPR 

101790CPR 

101800CPR 

101810CPR 

101820CPR 

101830CPR 

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST .. H6000 

101840CPR···· ••••••••••••••••••••••••••••••• = •••• = •••••••• c=. 101S70C······· •••••••••••••••••••••••••••••• = ••• = •••••••••• 

102110 END 

-- GE/TRANCITS -- CHKPT PAGE- 92 

PAGE=92 

169 
TITLE= DATE =07/15/85 TIME = 23 42 

102130C========cc==============c==_==========z=============== 

102150 SUBROUTINE POOFSF(TETA,YNETA,ZETA,IGP,IND,PD) 

102170C========a==============================_========c===== 

102190CPR 

102200CPR===================================================== 

102210CPR 

ROUTINE-- PDOFSF 

DATE/WRITTEN BY-- 09/14/82 

DATE/REVISED BY--

FUNCTION/PURPOSE--

Ru MAFFEO 

THIS SUB COMPUTES THE DERIVATIVES OF THE 

SHAPE FUNCTIONS WRT THE LOCAL SYSTEM 

CALLING ARGUMENTS -- NAME ATTRIBUTES 

TETA 

YNETA 

ZETA 

IGP 

IND 

(I) > 

(I) » 

(I) > 

(I) 

(I) 

DEFINITION 

LOCAL COORDINATES 

POINT COUNTER 

INDICATOR 

» 3D 

102220CPR 

102230CPR 

102240CPR 

102250CPR 

102260CPR 

102270CPR 

102280CPR 

102290CPR 

102300CPR 

102310CPR 

102320CPR 

102330CPR 

102340CPR 

102350CPR 

102360CPR 

102370CPR 

102380CPR 

102390CPR 

102400CPR 

102410CPR 

102420CPR 

102430CPR 

102440CPR 

102450CPR 

102460CPR 

102470CPR 

102480CPR 

102490CPR 

10250CCPR 

102510CPR 

102520CPR 

102530CPR 

102540CPR 

102550CPR 

102560CPR 

102570CPR 

102580CPR 

102590CPR 

102600CPR 

102610CPR 

102620CPR 

102630CPR 

102640CPR 

102650CPR 

102660CPR 

102670CPR 

PO (0) 

GAUSS 

20/30 

IND-O 

IND=1 

ARRAY 

THRU 6 » 20 IND-FACE NUMBER 

OF DERIVATIVES 

COMMONS USED 

CORNDEF 

FUNCTIONS/ROUTINES CALLED --

FILES USED --

LIBRARIES ACCESSED 

NONE 

LOCAL VARIABLES --

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST .. H6000 

103040 END 

170-- GE/TRANCITS -- POOFSF PAGE- 93 

PAGE=93 
TITLE" DATE -07/15/85 TIME" 23 42 

103060Cc===========a== ••• =c.=====~==.==.===.==.=&====. a:== •••• _====== 

103080 SUBROUTINE FNDJAC(X,Y,Z,P3D,XJAC) 

103090CPR 

103110CPR 

103120CPR 

103130CPR 

103140CPR 

103150CPR 

103160CPR 

103170CPR 

103180CPR 

103190CPR 

103200CPR 

103210CPR 

103220CPR 

103230CPR 

103240CPR 

103250CPR 

103260CPR 

103270CPR 

103280CPR 

103290CPR 

103300CPR 

103310CPR 

103320CPR 

103330CPR 

103340CPR 

103350CPR 

103360CPR 

103370CPR 

103380CPR 

103390CPR 

103400CPR 

103410CPR 

103420CPR 

103430CPR 

103440CPR 

103450CPR 

103460CPR 

103470CPR 

103480CPR 

103490CPR 

103500CPR 

103510CPR 

103520CPR 

103530CPR 

ROUTINE-- FNDJAC 

DATE/WRITTEN BY-- 11/28/83 

DATE/REVISED BY--

FUNCTION/PURPOSE--

R.J MAFFEO 

THIS ROUTINE COMPUTES THE VALUE OF THE DETERMINANT OF 

THE JACOBIAN EVALUATED AT THE STRESS POINT 

CALLING ARGUMENTS -- NAME ATTRIBUTES DEFINITION 

x (1) » 

Y (I) »» ARRAY OF ELM CORNER COORDS 

Z (1) » 

P3D (I) ARRAY WITH PARTIAL DERIVATIVES OF 

LOCAL COORD WRT THE GLOBAL COORD 

XJAC (0) VALUE OF DETERMINANT OF JACOBIAN 

COMMONS USED --

FUNCTIONS/ROUTINES CALLED --

FILES USED --

LIBRARIES ACCESSED 

NONE 

LOCAL VARIABLES 

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST • H6000 

103540CPR······· •••••• === •••••••••••••••••••••• c.= •••• == •••• = 

103570C······ ••••••••••••••••••••••••••••• = ••••••••••• _a_.c ......... . 103810 END 

-- GE/TRANCITS -- FNDJAC PAGE" 94 171 
TITLE= DATE =07/15/85 TIME = 23 42 

103830C==-====z=================================================== 

103850 SUBROUTINE SHAPFV(SF,XNC,YNC,ZNC) 

103860CPR 

103870CPR====-=====-===============-==================-==-==== 

103880CPR 

103890CPR 

103900CPR 

103910CPR 

103920CPR 

103930CPR 

103940CPR 

103950CPR 

103960CPR 

103970CPR 

103980CPR 

103990CPR 

104000CPR 

104010CPR 

104020CPR 

104030CPR 

104040CPR 

104050CPR 

104060CPR 

104070CPR 

104080CPR 

104090CPR 

104100CPR 

104110CPR 

104120CPR 

1"4130CPR 

104140CPR 

104150CPR 

104160CPR 

104170CPR 

104180CPR 

104190CPR 

104200CPR 

104210CPR 

104220CPR 

104230CPR 

104240CPR 

104250CPR 

104260CPR 

104270CPR 

104280CPR 

104290CPR 

ROUTINE-- SHAPFV 

DATE/WRITTEN BY-- 11/28/83 

DATE/REVISED BY--

FUNCTION/PURPOSE--

THIS ROUTINE FINDS THE VALUES 

FOR THE 8-NODED ISOPARAMETRIC 

OF THE LOCAL COORDINATES 

CALLING ARGUMENTS -- NAME ATTRIBUTES 

R u MAFFEO 

OF THE SHAPE FUNCTIONS 

ELM BASED ON THE VALUES 

DEFINITION 

SF (0) ARRAY WITH SHAPE FUNCTIONS 

XNC 

YNC 

ZNC 

(I) » 

(I) »» LOCAL COORDS 

(I) » 

COMMONS USED --

FUNCTIONS/ROUTINES CALLED --

FILES USED --

LIBRARIES ACCESSED 

NONE 

LOCAL VARIABLES --

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST • H6000 

104300CPR········· •••••••••••••••• == •• == •• = •••••••••••••••••• 

104330C=&·········· •••••••• a ••••••••••••••••• == ••• == •••••••••••••• 

104490 END 

172 -- GE/TRANCITS -- SHAPFV PAGE- 95 

PAGE=95 
TITLE" DATE -07/15/85 TIME = 23 42 

104510C===========s.=====-z_====== •• =======.=======z=_====z======== 

104530 SUBROUTINE JACBCK(XL.YL.ZL.X.Y.Z.XJAC.IJACB) 104540CPR 

104550CPRs==========-=========_.=_===== •• =e •••• _========e== ••• 104560CPR 

104570CPR 

104580CPR 

104590CPR 

104600CPR 

104610CPR 

104620CPR 

104630CPR 

104640CPR 

104650CPR 

104660CPR 

104670CPR 

104680CPR 

104690CPR 

104700CPR 

104710CPR 

104720CPR 

104730CPR 

104740CPR 

104750CPR 

104760CPR 

104770CPR 

104780CPR 

104790CPR 

104800CPR 

104810CPR 

104820CPR 

104830CPR 

104840CPR 

104850CPR 

104860CPR 

104870CPR 

104880CPR 

104890CPR 

104900CPR 

104910CPR 

104920CPR 

104930CPR 

104940CPR 

104950CPR 

104960CPR 

104970CPR 

104980CPR 

104990CPR 

105000CPR 

105010CPR 

105020CPR 

105030CPR 

105040CPR 

105050CPR 

ROUTINE-- JACBCK 

DATE/WRITTEN BY-- 11/28/83 

DATE/REVISED BY--

FUNCTION/PURPOSE--

R.J MAFFEO 

THIS ROUTINE CALLS THE REQUIRED ROUTINES TO CHECK THE 

VALUE OF THE DETERMINANT OF THE JACOBIAN AT THE STRESS 

POINT 

CALLING ARGUMENTS -- NAME ATTRIBUTES DEFINITION 

XL 

YL 

ZL 

X 

Y 

Z 

XJAC 

IJACB 

(I) » 

(I) »» 

(I) » 

(I) » 

(I) »» 

(I) » 

(0) 

(0) 

COMMONS USED --

LOCAL COORDS 

ARRAY OF ELM CORNER COORDS 

VALUE OF DETERMINANT OF JACOBIAN 

INTERGER VARIABLE 

o JACOBIAN NOT POSITIVE 

1 -- JACOBIAN IS POSITIVE 

FUNCTIONS/ROUTINES CALLED --

PDOFSF 

FNDJAC 

FILES USED 

LIBRARIES ACCESSED -- NONE 

LOCAL VARIABLES 

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST .. H6000 

105060CPR········· •••• == ••••• = ••••••• == •••• == ••••••• = •••••••• 

105090C······· ••••••••••••••••••••• == •••••••••••••••••• = ••••••••••• 

105250 END 

-- GE/TRANCITS -- JACBCK PAGE- 96 

PAGE=96 

173 
TITLE= DATE =07/15/85 TIME 

105270C==================================================== 

105290 SUBROUTINE RWSPCF(IREC.B.IRW) 

105310C===================================a================ 

105330CPR 

105340CPR=================s============================zz==:== 

105350CPR 

105360CPR 

105370CPR 

105380CPR 

105390CPR 

105400CPR 

105410CPR 

105420CPR 

105430CPR 

105440CPR 

105450CPR 

105460CPR 

105470CPR 

105480CPR 

105490CPR 

105500CPR 

105510CPR 

105520CPR 

105530CPR 

105540CPR 

105550CPR 

105560CPR 

105570CPR 

105580CPR 

105590CPR 

105600CPR 

105610CPR 

105620CPR 

105630CPR 

105640CPR 

105650CPR 

105660CPR 

105670CPR 

105680CPR 

105690CPR 

105700CPR 

105710CPR 

105720CPR 

105730CPR 

105740CPR 

105750CPR 

105760CPR 

105770CPR 

105780CPR 

105790CPR 

105800CPR 

105810CPR 

105820CPR 

105830CPR 

105840CPR 

105850CPR 

ROUTINE-- RWSPCF 

DATE/WRITTEN BY-- 04/07/83 

DATE/REVISED BY--

FUNCTION/PURPOSE--

R..J MAFFEO 

THIS ROUTINE READS AND WRITES DATA TO 

THE RANDOM STRESS POINT COEFF FILE 

THIS FILE CONTAINS THE FOLLOWING INFO 

THE 

PER RECORD 

STRESS NODE NAME (1) 

HEAT TRAN ELM CONTAINING 

CONNECTIVITY OF THE HEAT 

WEIGHTING COEFF FOR THIS 

THIS STRESS POINT 

TRAN ELM (8) 

STRESS NODE (8) 

CALLING ARGUMENTS -- NAME ATTRIBUTES 

IREC 

B 

IRW 

COMMONS USED 

AFIL 

(1) 

(I/O) 

(I) 

FUNCTIONS/ROUTINES CALLED --

FILES USED 

IRSPCF R 

LIBRARIES ACCESSED 

NONE 

LOCAL V~RIABLES --

DEFINITION 

FILE RECORD NUMBER 

DATA ARRAY 

READ/WRITE OPTION 

(O-READ i-WRITE) 

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST = H6000 

105860CPR •••••••••••••••••••••••••• c •••• ==== •••••• == •••• a: ••• 

106170 END 

174 -- GE/TRANCITS -- RWSPCF 

(1) 

23 42 PAGE=97 

PAGE= 97 
TITLE" 

106210 

106250CPR 

106270CPR 

106280CPR 

106290CPR 

106300CPR 

106310CPR 

106320CPR 

106330CPR 

106340CPR 

106350CPR 

106360CPR 

106370CPR 

106380CPR 

106390CPR 

106400CPR 

106410CPR 

106420CPR 

106430CPR 

106440CPR 

106450CPR 

106460CPR 

106470CPR 

106480CPR 

106490CPR 

106500CPR 

106510CPR 

106520CPR 

106530CPR 

106540CPR 

106550CPR 

106560CPR 

106570CPR 

106580CPR 

106590CPR 

106600CPR 

106610CPR 

106620CPR 

106630CPR 

106640CPR 

106650CPR 

106660CPR 

106670CPR 

106680CPR 

106690CPR 

106700CPR 

106710CPR 

SUBROUTINE ELTRAN 

ROUTINE-- ELTRAN 

DATE/WRITTEN BY-- 01/27/84 

DATE/REVISED BY--

FUNCTION/PURPOSE--

DATE -07/15/85 TIME 23 42 

R.J MAFFEO 

Validate the values Input for IECODE and IACODE then assign 

the values to NNPE and NTPE depending on the values of 

IECODE and IACODE 

CALLING ARGUMENTS -- NAME ATTRIBUTES 

COMMONS USED 

AFIL 

CNTLFL 

FUNCTIONS/ROUTINES CALLED --

FILES USED 

IERF S 

LIBRARIES ACCESSED 

NONE 

LOCAL VARIABLES --

DEFINITION 

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST - H6000 

107330 END 

-- GE/TRANCITS -- ELTRAN PAGE= 98 

PAGE=98 

175 
TITLE" DATE "07/15/85 TIME 

107350C=================z=================a=_============== 

107370 SUBROUTINE INITCM 

107390C========-============-==========================:=== 

107410CPR 

107420CPR= ••• ======c========================-=========_.=e==e= 

107430CPR 

ROUTINE-- INITCM 

DATE/WRITTEN BY-- 01/31/84 

DATE/REVISED BY--

FUNCTION/PURPOSE--

R\J MAFFEO 

107440CPR 

107450CPR 

107460CPR 

107470CPR 

107480CPR 

107490CPR 

107500CPR 

107510CPR 

107520CPR 

107530CPR 

107540CPR 

107550CPR 

107560CPR 

107570CPR 

107580CPR 

107590CPR 

107600CPR 

107610CPR 

107620CPR 

107630CPR 

107640CPR 

107650CPR 

107660CPR 

107670CPR 

107680CPR 

107690CPR 

107700CPR 

107710CPR 

107720CPR 

107730CPR 

107740CPR 

107750CPR 

107760CPR 

107770CPR 

107780CPR 

107790CPR 

107800CPR 

107810CPR 

THIS ROUTINE INITIALIZES THE CRNDEF COMMON 

THIS COMMON IS USED IN CALCRD AND I3DSF ROUTINES 

CALLING ARGUMENTS -- NAME ATTRIBUTES 

COMMONS USED 

CRNDEF 

FUNCTIONS/ROUTINES CALLED --

FILES USED --

LIBRARIES ACCESSED 

NONE 

LOCAL VARIABLES 

DEFINITION 

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST = H6000 

107820CPR············.·.=====· •• ====.=====.==.===.==.= ••••• == 

108390 END 

176 -- GE/TRANCITS INITCM 

23 42 PAGE=99 

PAGE- 99 
TITLE= 

108430 

108470CPR 

108490CPR 

108500CPR 

108510CPR 

108520CPR 

108530CPR 

108540CPR 

108550CPR 

108560CPR 

108570CPR 

108580CPR 

108590CPR 

108600CPR 

108610CPR 

108620CPR 

108630CPR 

108640CPR 

108650CPR 

108660CPR 

108670CPR 

108680CPR 

108690CPR 

108700CPR 

108710CPR 

108720CPR 

108730CPR 

108740CPR 

108750CPR 

108760CPR 

108770CPR 

108780CPR 

108790CPR 

108800CPR 

108810CPR 

108820CPR 

108830CPR 

108840CPR 

108850CPR 

108860CPR 

108870CPR 

108880CPR 

108890CPR 

108900CPR 

108910CPR 

108920CPR 

108930CPR 

108940CPR 

108950CPR 

108960CPR 

108970CPR 

108980CPR 

108990CPR 

109000CPR 

DATE "07/15/85 

SUBROUTINE MARCTD(ISPOC,NUMSP,NUMSOL) 

ROUTINE-- MARCTO 

DATE/WRITTEN BY-- 03/08/84 

DATE/REVISED BY--

FUNCTION/PURPOSE--

RJ MAFFEO 

TIME - 23 42 

THIS ROUTINE CALLS ALL REQUIRED ROUTINES TO COMPUTE 

THE MARC 8-NODED ELM GAUSS POINT TEMPERATURES(OR THE 

ELM CENTROIDAL TEMPERATURE) 

CALLING ARGUMENTS -- NAME ATTRIBUTES DEFINITION 

ISPOC (I) OESIRED ELM LOCATION 

NUMSP 

NUMSOL 

COMMONS USED 

AFIL 

WORK 

(I) 

(I) 

ISPOC-2 --- CENTROIDAL TEMPERATURE 

ISPOC-3 --- 2X2X2 GAUSS POINT TEMPERATURES 

NUMBER OF STRESS MODEL NODAL POINTS 

NUMBER OF TRANSIENT SOLUTIONS 

FUNCTIONS/ROUTINES CALLED --

GPCOEF 

GPTEMP 

FILES USED 

ISNEF S 

IOUTF S 

ITEMP S 

IERF S 

LIBRARIES ACCESSED 

NONE 

LOCAL VARIABLES --

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST - H6000 

109010CPR·······················.·······c •••.•••••••••••••••• 

109950 END 

-- GE/TRANCITS -- MARCTO PAGE=l00 

PAGE"·· 

177 
TITLE= DATE =07/15/85 TIME = 23 42 

109970C·====z===cc===c==_==cc==c========================ec=c=::====== 

109990 SUBROUTINE GPCOEF(GPF) 

110010C=======c=-===a==================================_c============ 

110030CPR 

110050CPR 

110060CPR 

110070CPR 

110080CPR 

110090CPR 

110100CPR 

110110CPR 

110120CPR 

110130CPR 

110140CPR 

110150CPR 

110160CPR 

110170CPR 

110180CPR 

110190CPR 

110200CPR 

110210CPR 

110220CPR 

110230CPR 

110240CPR 

110250CPR 

110260CPR 

110270CPR 

110280CPR 

110290CPR 

110300CPR 

110310CPR 

110320CPR 

110330CPR 

110340CPR 

110350CPR 

110360CPR 

110370CPR 

110380CPR 

110390CPR 

110400CPR 

110410CPR 

110420CPR 

110430CPR 

110440CPR 

110450CPR 

110460CPR 

ROUTINE-- GPCOEF 

DATE/WRITTEN BY-- 03/07/84 

DATE/REVISED BY--

FUNCTION/PURPOSE--

R..J MAFFEO 

THIS ROUTINE COMPUTES AND STORES THE WEIGHTING 

COEFFS ASSOCIATED WITH THE 2X2X2 G4USS POINTS 

USED FOR THE MARC SOLID ELM(ELM TYPE 43) 

CALLING ARGUMENTS -- NAME ATTRIBUTES DEFINITION 

GPF (0) ARRAY WITH GAUSS PT COEFF 

COMMONS USED --

FUNCTIONS/ROUTINES CALLED --

FILES USED --

LIBRARIES ACCESSED 

NONE 

LOCAL VARIABLES --

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST .. H6000 

110710 ENO 

178-- GE/TRANCITS -- GPCOEF PAGE=101 

PAGE=** 
TITLE= DATE =07/15/85 TIME .. 23 42 

11 0730C== = === as = = === cc = == = == c =.= = = ==. = =:z = •• :z = c== = = = = = = = II: e=:I:= = == == 

110750 SUBROUTINE GPTEMP(TA,IE,GPF,ISPOC,TV) 

110770C====c=========== ••• ===============-=-=-============c:==== 

110790CPR 

110810CPR 

110820CPR 

110830CPR 

110840CPR 

110850CPR 

110860CPR 

110870CPR 

110880CPR 

110890CPR 

110900CPR 

110910CPR 

110920CPR 

110930CPR 

110940CPR 

110950CPR 

110960CPR 

110970CPR 

110980CPR 

110990CPR 

111000CPR 

111010CPR 

111020CPR 

111030CPR 

111040CPR 

111050CPR 

111060CPR 

111070CPR 

111080CPR 

111090CPR 

111100CPR 

111110CPR 

111120CPR 

111130CPR 

111140CPR 

111150CPR 

111160CPR 

111170CPR 

111180CPR 

111190CPR 

111200CPR 

111210CPR 

111220CPR 

111230CPR 

111240CPR 

111250CPR 

111260CPR 

111270CPR 

111280CPR 

111290CPR 

ROUTINE-- GPTEMP 

DATE/WRITTEN BY-- 03/17/84 

DATE/REVISED BY--

R.J MAFFEO 

FUNCTION/PURPOSE--

THIS ROUTINE COMPUTES THE VALUE OF THE ELM TEMPERATURE 

FOR THE 8-NODED 3D MARC STRESS ELM IT WILL COMPUTE 

TEMPS AT THE 8 2X2X2 GAUSS POINTS OR AT THE ELM 

CENTROID 

CALLING ARGUMENTS -- NAME ATTRIBUTES DEFINITION 

TA 

IE 

GPF 

ISPOC 

TV 

(1) 

(1) 

(1) 

(1) 

(0) 

COMMONS USED --

NODAL TEMPERATURE ARRAY 

ELM CONNECTIVITY ARRAY 

GAUSS PT COEFF ARRAY 

TEMPERATURE LOCATION PARAMETER 

ELEMENTAL TEMPERATURE ARRAY 

NOTE IF ISPOC-2 

TV(1)·CENTROIDAL TEMPERATURE 

FUNCTIONS/ROUTINES CALLED --

FILES USED 

LIBRARIES ACCESSED -- NONE 

LOCAL VARIABLES --

SPECIAL COMMENTS ABOUT THIS ROUTINE 

SPECIAL REMARKS/INSTRUCTIONS 

HOST • H6000 

111590 END 

PAGE=** 

-- GE/TRANCITS -- GPTEMP PAGE=102 LAST 

179 
APPENDIX D 

Transfer Module Flow Diagram 

This appendix contains a program flow diagram of the transfer module. 

This diagram shows the general flow of the code and which subroutines are 

subordinate to each other. 

180 
TITLE= 

.:ac_= •• s: •• 

MAIN 

.a:.c ••• =.s 

\ 

\ 

\ * ••• ** ••• * 

\ \ \·INITCM • \ ********** 

\ 

\ 

\ 

001 

\ ********** 

\\\·RFILCR • \ ***** •• **. 

\ 002 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ ********** 

\\\\\\\\*RANSIZ * \ .****.*.** 

\ L003 

\ 

\ 

\ ********** 

\\\\\\\\·ZERORF • 

\ 

\ 

\ **-******* 

\ \ \·FTIME .. \ ********** 

\ 

\ 

\ 

005 

\ ......... . \\\·HTICON .. \ ********** 

\ 

\ 

\ 006 

\ 

\ \ 

.*.* •• **** 

004 

\ \ ......... . \ \\\\\\\\·SINTIT· \ \ ......... . 

-- GE/Z19 

OATE =07/15/85 TIME I: 23 58 PAGE= 1 

*********************** 

• * * THE SAVAM STACKER * 

* .. *********************** 

THIS IS CALLING STACK STARTING FROM $$$ MAl 

PAGE"' 181 
TITLE= DATE =07/15/85 TIME 23 58 PAGE= 2 

, , , 007 

, , , 

, , , 

, , , ********** 

, , ""'" '*DATINT * 

, , , ********** 

, 

, , , 008 

, , 

, , , 

, , , *****If"**** 

, , """"*PRCSOF * . , , , ********** 

, , , , 009 

, , , , 

, , , , 

, , , , ********** 

, , , """"*GETEWT .. , , , , ********** 

, 

, , , , , 010 

, , , , 

, , , , , 

, , , , , ********** 

, , , , 

, , , , """"*ERRPRT * 

********** 

\ , , , 

, , , 

011 

, 

, , , , 

, , , , *********- , , , 

, , , """"*GTNUMT * 

********** 

, 

, , 

, , , 012 

, , 

, , , , , , , , •• ====-c==_ 

, , , 

, , , """""ERRPRT 

_==_====za 

, , , 

, , , 

R011 

, 

\ 

, 

\ \ 

\ ********** 

\ , 

, , \"""\*PRCGEO * 

\ ********** 

\ \ , , 013 

\ \ , , 

\ \ \ , 

, , , \ =_= ••• =:I.a: 

, \ \ \\\\\\""ERRPRT \ \ \ •• =_a:z •• =. 

, , , R011 

\ , \ 

, , 

, , \ 

, ********** 

\ , 

, , \"'\"\*WRTNTF * 

***.****** 

\ , , 014 

, , \ \ , 

, , \ 

, ********** 

, \ '\""'\*WRTDIR * 

\ , \ ********** 

182 -- GE/Z19 PAGE- 2 
TITLE= DATE =07/15/85 TIME" 23 58 

\ \ \ \ 015 

\ \ \ \ 

\ \ \ \ 

\ \ \ \ == ••• ===== 

\ \ \ \\ \\ \\ \\-ERRPRT \ \ \ eKe_==.SIIC 

\ \ \ R011 

\ \ \ \ \ \ \ \ \ ***.****** 

\ \ \\\\\\\\*WRTGED .. \ \ \ ********** 

\ \ \ \ 016 

\ \ \ \ 

\ \ \ \ \ \ \ \ =caaea= •• = 

\ \ \ \\\\\\\\-ERRPRT \ \ \ ••• 1: •••••• 

\ \ \ R011 \ \ \ 

\ \ \ 

\ \ \ ********** 

\ \ \\\\\\\\*WRTEMP " \ \ \ ********** 

\ \ \ \ 017 

\ \ \ \ \ \ \ \ \ \ \ \ ....... allac 

\ \ \ \\\\\\\\"ERRPRT \ \ \ •• c •• c_ce: 

\ \ \ R011 \ \ \ 

\ \ \ 

\ \ \ '::.8ca===== 

\ \ \\\\\\\\-ERRPRT \ \ a •••• = •• c_ - \ \ R011 

\ \ 

\ \ 

\ \ ***.****** 

\ \\\\\\\\"MARCRD " \ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ ********** 

\\ \ "RDCNTL " 

\ ********** 

-- GE/Z19 

**-*** •••• 

\ 018 

\ 

\ 

\ ********** 

\\\\\\\\"READR " 

\ .********* 

\ 019 

\ 

\ 

\ ********** 

\\\\\\\\*SKPREC " 

********** 

020 

PAGE" 3 

PAGE= 3 

183 
184 

TITLE= 

\ 021 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ ********** 

\\\\\\\\*HTFIO * 

\ *********. 

\ 022 

\ 

\ 

\ ********** 

\\\\\\\\*ELTRAN * 

\ ********** 

\\\*MKRGF * 

\ ********** 

\ \ 024 

\ \ 

\ \ 

********** 

023 

\ \ ********** 

\ \\\\\\\\*RWNODS * 

\ \ ********** 

\ \ 025 

\ \ 

\ \ 

\ \ ********** 

\ \\\\\\\\*EMINMX * 

\ \ ********** 

\ \ \ 026 

\ \ \ 

\ \ \ 

\ \ \ ********** 

\ \ \\\\\\\\*SORT * 

\ \ ********** 

\ \ 027 

\ \ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ ********** 

\\\\\\\\*RWELMS * 

\ ********** 

\ 028 

\ 

\ 

\ ********** 

\\\\\\\\*PROFAC * 

********** 

\ 029 

\ 

\ \ \ ••••••••• s 

\ 

\ 

\ 

\ 

\ 

\ ••••• ***** 

\\ \·PRNTIM * 

\ •••• ** ••• * 

GE/Z19 

\\\\\\\\-RWELMS • ••••••••• m 

R028 

DATE =07/15/85 TIME 23 58 PAGE= 4 

PAGE- 4 
TITLE= 

\ 

\ 

\ 

030 

\ ****.***** 

\\\*RDTH-1E * 

\ ********** 

\ \ 031 

\ \ 

\ \ 

\ \ ..•....... 

\ \\\\\\\\-HTFIO- \ \ .•...•.... 

\ \ R~2 

\ \ 

\ \ 

\ \ ********** 

\ \\\\\\\\*SKIP * 

\ \ ********** 

\ \ 032 

\ \ 

\ \ 

\ \ ********** 

\ \\\\\\\\*TIMCK * 

\ \ ********** 

\ \ 033 

\ \ 

\ \ 

\ \ * •••• ***** 

\ \\\\\\\\*CHNODT * 

\ 

\ 

\ 

•••• *****. 

\ 034 

\ 

\ \ \ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ ••• a •••••• 

\\\\\\\\-HTFIO 

\ ....•..... 

\ R022 

\ 

\ 

\ ••••••••• = 

\\\\\\\\-RWELMS ..•.•..... 

R028 

\ ********** 

\\\*PREPGM * 

\ ********** 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

-- GE/Z19 

\ 035 

\ 

\ \ ......... . \\\\\\\\-RWELMS • \ ......... . \ R028 

\ 

\ 

\ ********.* 

\\\\\\\\*CTRAN * \ ********** 

DATE -07/15/85 TIME" 23 58 PAGE= 5 

185 

PAGE" 5 
186 

TITLE= 

, 

, 

, 

, 

, 

, 

, 

, 

, 

, 

, 

, 

, 

, 

, 

, 

, 

, 

, 

, 

, 

, 

, 

, 

036 

\ *********. 

""""*SCTION * 

\ .*.******* 

, 037 

, 

, 

\ .***** •• ** 

""""*REMELM * 

*.******** 

, 038 

, 

, 

\ ===== •• = •• 

""""=RWELMS ••••••••• = 

R028 

\ * ••••• * .... 

"'*CALCRO * 

\ ****._  

, , 039 

, , 

, , 

, , ** ******** 

, 

, """"*GETPD * 

, ***.****** 

, , , 040 

, 

\ 

, 

\ \ 

, 

\ , , ********** 

, , 

, , , 

""""*PARD * 

******.*** 

, , , 041 

, , , 

, , , 

, , , .********* 

, , 

, , """"*GTGAUS * -_._*_ .... , , 

, , 

042 

, , 

, , ~ ......... , 

, , 

"""""RWELMS .= ....•..• 

, , R028 

, , 

, , 

, , ********** 

, 

, , 

""""*VOLM * 

, , ---.... , --- , 

043 

, , 

, , , 

, 

, , , ********** 

, 

, , """"*SHAPEF * 

***.****** 

-- GE/Z19 

c 

DATE =07/15/85 TIME 23 58 PAGE= 6 

PAGE= 6 
TITLE= 

\ \ 044 

\ \ 

\ \ 

\ \ ***.****** 

\ \\ \\ \\ \\*AREAD • 

\ \ .********* 

\ \ \ 045 

\ \ \ \ \ \ \ \ \ .•..•.••.. 

\ \ \\\\\\\\·GTGAUS .. \ \ \ ••••••••• = 

\ \ \ R042 

\ \ \ 

\ \ \ 

\ \ \ •••••••• =1: 

\ \ \\\\\\\\·SHAPEF 

\ \ 

\ \ \ \ 

\ \ 

\ 

\ 

\ 

\ 

\ 

\ 

\ ********** 

\\\\\\\\*REACRD .. ********** 

046 

\ ******.*.* 

\\\*SSURCH * 

\ ********** 

\ \ 047 

\ \ 

\ \ 

\ \ ********** 

\ \\\\\\\\*KNTSPF * 

\ \ ********** 

\ \ \ 048 

\ \ \ 

\ \ \ 

...... c.~. 

R044 

\ \ \ ********** 

\ \ \\\\\\\\*FILREW * 

\ \ \ ********** 

\ \ \ 049 

\ \ \ 

\ \ \ 

\ \ \ ********** 

\ \ \\ \\ \\ \\*RDSPF * 

\ \ •• ******** 

\ \ 050 

\ \ 

\ \ 

\ \ ********** 

\ \\\\\\\\*GNLSUR * 

\ ********** 

\ \ 051 

\ \ 

\ \ 

\ \ ********** 

\ \\\\\\\\*EINCOR * 

\ \ ********** 

-- GE/Z19 

DATE -07/15/85 TIME 23 58 PAGE= 7 

187 

PAGE· 7 
188 

TITLE= 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

-- GE/Z19 

DATE =07/15/85 TIME 23 58 PAGE= 8 

\ \ 052 

\ \ 

\ \ 

\ \ ===.::.:===== 

\ \\\\\\\\=RWELMS 

\ ==-=-===== 

\ R028 

\ 

\ 

\ •••••• :a== 

\\\\\\\\"RDSPF 

\ ••••• a==a= 

\ R050 

\ 

\ 

\ .*****-*** 

\\\\\\\\*FNDELM * 

********** 

\ 053 

\ 

\ 

\ ********** 

\\\\\\\\*GETWND * 

\ ********** 

\ \ 054 

\ \ 

\ \ 

\ \ ._=== ••• =- \ \\\\\\\\sRWELMS 

\ ••••••••• = 

\ R028 

\ 

\ 

\ ********** 

\\\\\\\\*CKWIND * 

\ ********** 

\ 055 

\ 

\ 

\ ********** 

\\\\\\\\*I3DSF * 

\ ********** 

\ \ 056 

\ \ \ \ 

\ \ ********.* 

\ \\\\\\\\*REAARY * 

\ \ *******.** 

\ \ \ 057 

\ \ \ 

\ \ \ 

\ \ \ ********** 

\ \ \\\\\\\\*SORT2 • \ \ ********** 

\ \ 058 

\ \ 

\ \ 

\ \ ********** 

\ \\\\\\\\*SHAPFV • \ \ *.******** 

PAGE= 8 
TITLE= 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ \ ......... . \\\·CORNCC • \ ********** 

\ \ 066 

\ \ 

\ \ \ \ .a ....••.. 

\ \\\\\\\\-RWELMS· \ \ •••....•.. 

-- GE/Z19 

DATE =07/15/85 TIME = 23 58 PAGE= 9 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 059 

\ 

\ 

\ ********** 

\\\\\\\\·CHKPT • 

\ ********** 

\ 060 

\ 

\ 

\ ********** 

\\\\\\\\·JACBCK • \ ********** 

\ \ 061 

\ \ 

\ \ 

\ \ •••• * ••• ** 

\ \\\\\\\\*PDOFSF * 

\ \ **.***** •• \ \ 062 

\ \ 

\ \ 

\ \ .** •• * •••• 

\ \\\\\\\\·FNDJAC • \ **.*.***** 

\ 063 

\ 

\ 

\  .** *** 

\\\\\\\\·SFDIST * 

.********* 

\ 064 

\ 

\ \ ......... . \\\\\\\\-SHAPFV •....•••.. 

ROS9 

\ ......... . \\ \\ \\ \\-RWELMS \ .•••....•. 

\ R028 

\ 

\ 

\ ***.*.*.** 

\\\\\\\\·RWSPCF • ********** 

065 

PAGE- 9 

189 
190 

TITLE= 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

R028 

•••• s.=::= \ 

\\\\\\\\=SORT 

\ _===ac=_== 

\ R027 

\ 

\ 

\  -** *** 

\\\\\\\\*CCNVEC * 

\ ********** 

\ 067 

\ 

\ 

\ ********** 

\\\\\\\\*GETCRD * 

\ *********. 

\ 068 

\ 

\ 

\ ********** 

\\\\\\\\*CINV * 

\ ********** 

\ 069 

\ 

\ 

\ ********** 

\\\\\\\\*RWCCF * 

\ ********** 

\ 070 

\ 

\ 

\ ********** 

\\\\\\\\*PUTWFI * 

********** 

071 

\ ********** 

\\\*GENTMP * 

\ -.******** 

\ \ 072 

\ \ 

\ \ 

\ \ ********** 

\ \\\\\\\\*TFLSET * 

\ \ ********** 

\ \ \ 073 

\ \ \ 

\ \ \ 

\ \ \ ••• =-" ••• = 

\ \ \\\\\\\\.SKIP a 

\ \ .a •••• cc_= 

\ \ R032 

\ \ 

GE/Z19 

DATE =07/15/85 TIME = 23 58 PAGE=10 

PAGE: 10 
TITLE= 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

-- GE/Z19 

\ 

\ ********** 

\\\\\\\\*GETMPE * 

\ ********** 

\ \ 074 

\ \ 

\ \ \ \ :r.= ••••••• 

\ \\\\\\\\=HTFIO 

\ \ •• C:Z.CS2:C= 

\ \ R022 

\ \ \ \ 

\ \ *********. 

\ \\\\\\\\*MPERW * 

\ ********** 

\ 075 

\ 

\ 

\ ********.* 

\\\\\\\\*SETFLP * 

\ ********** 

\ \ 076 

\ \ 

\ \ 

\ \ •••....... 

\ \\\\\\\\-TFLSET 

\ \ .c •••• c •• s 

\ \ R073 

\ \ 

\ \ 

\ \ *********. 

\ \\\\\\\\*HTFPAS * 

\ ********** 

\ 077 

\ 

\ 

\ ********** 

\\\\\\\\*RDTEMP * 

\ ********** 

\ \ 078 

\ \ 

\ \ 

\ \ •••.....•. 

\ \\ \\ \\ \\-HTFIO \ .......... \ R022 

\ 

\ 

\ ********** 

\\\\\\\\*CWCRNT * 

\ 

\ 

\ 

\ 

\ 

\ 

***IfIC****** 

\ 079 

\ 

\ 

\ c ••••••••• 

\\\\\\\\-FILREW 

DATE =07/15/85 TIME = 23 58 PAGE=11 

191 

PAGE- 11 
TITLE= DATE =07/15/85 TIME 23 58 PAGE=12 

\ \ \ ====:1===== 

\ \ \ R049 

\ \ \ 

\ \ \ 

\ \ \ ===-====== \ \ \\ \\ \\ \\=RWCCF \ \ \ ===-===-== \ \ \ R070 

\ \ \ \ \ \ 

\ \ \ ********** 

\ \ \\\\\\\\*UNPAKF * 

\ \ \ ********** 

\ \ \ 080 

\ \ \ 

\ \ \ \ \ \ ====_===z:. 

\ \ \\\\\\\\-MPERW 

\ \ \ -==-=== ••• \ \ \ R075 

\ \ \ \ \ \ 

\ \ \  ._** ** 

\ \ \\\\\\\\*FCRNTP * 

\ \ \ ********** 

\ \ \ 081 

\ \ \ \ \ \ \ \ \ --********* 

\ \ \\\\\\\\*MAXTDF * 

\ \ \ *.****.*.* 

\ \ \ \ 082 

\ \ \ \ 

\ \ \ \ 

\ \ \ \ ===-==.==== \ \ \ \\\\\\\\-SORT = \ \ \ zc ••••••• = 

\ \ \ R027 

\ \ \ \ \ \ \ \ \ .*.*****.* 

\ \ \\\\\\\\*WRCRNT * 

\ \ ********** 

\ \ 083 

\ \ \ \ 

\ \ *********. 

\ \\\\\\\\*ETCORE * 

\ \ *.*.****** 

\ \ \ 084 

\ \ \ 

\ \ \ \ \ \ •••...•... 

\ \ \\\\\\\\-FILREW \ \ ••••••• = •• 

\ \ R049 

\ \ 

\ \ 

\ \ ********** 

\ \\\\\\\\*NTCORE * 

192 -- GE/Z19 PAGE- 12 
TITLE= 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

****.* •••• 

\ 085 

\ 

\ 

\ ~=cac= ••• = 

\\\\\\\\*HTFID ••• == •••• IZ 

R022 

\ * ••• ****** 

\\\\\\\\*STSTMP * 

****.***** 

\ 086 

\ 

\ \ ..•....... 

\\\\\\\\*RWSPCF 

\ ••••••••• c 

\ ROG5 

\ 

\ 

\ **.***** •• 

\\\\\\\\*WRSTMP * 

** •• ****** 

087 

\ .*.******* 

\\*TEMFDR * 

***** •• *.* 

-- GE/Z19 

\ 088 

\ 

\ 

\ *.**.*.*.* 

\\\\\\\\*TPNAST * 

\ *********. 

\ 089 

\ 

\ 

\ *.*.****** 

\\\\\\\\*MARCTD * 

*.* ••••• ** 

\ 090 

\ 

\ 

\ ********** 

\\\\\\\\*GPCDEF * 

\ •••••• **.* 

\ 091 

\ 

\ 

\ *****.**** 

\\\\\\\\*GPTEMP * 

* ••• ****** 

092 

DATE =07/15/85 TIME"' 23 58 PAGE-13 

193 

PAGE- 13 
TITLE= DATE "07/15/85 TIME = 23 58 PAGE= 1 

MAIN SU 1 MAIN NEWSRC 100001 

MAIN CO 3 MAFCOM M NEWSRC 100001 

MAIN CO 3 AFIL C NEWSRC 100001 

MAIN CO 3 MAFCOM M NEWSRC 100001 

MAIN CO 3 ELMDAT C NEWSRC 100001 

MAIN CO 3 MAFCOM M NEWSRC 100001 

MAIN CO 3 SIZE C NEWSRC 100001 

MAIN CO 3 MAFCOM M NEWSRC 100001 

MAIN CO 3 WORK C NEWSRC 100001 

MAIN CO 3 MAFCOM M NEWSRC 100001 

MAIN CO 3 CNTLGM C NEWSRC 100001 

MAIN CO 3 MAFCOM M NEWSRC 100001 

MAIN CO 3 CNTLTM C NEWSRC 100001 

MAIN CO 3 MAFCOM M NEWSRC 100001 

MAIN CO 3 SPDAT C NEWSRC 100001 

MAIN CO 3 CNTLFL C NEWSRC 100001 

MAIN CO 3 MAFCOM M NEWSRC 100001 

MAIN CO 3 CRNDEF C NEWSRC 100001 

MAIN SU 5 101 INITCM NEWSRC 100001 

MAIN SU 5 102 RFILCR NEWSRC 100001 

MAIN SU 5 103 FTIME NEWSRC 100001 

MAIN SU 5 104 HTICON NEWSRC 100001 

MAIN SU 5 105 RDCNTL NEWSRC 100001 

MAIN SU 5 106 MKRGF NEWSRC 100001 

MAIN SU 5 108 PRNTIM NEWSRC 100001 

MAIN SU 5 109 RDTIME NEWSRC 100001 

MAIN SU 5 112 PREPGM NEWSRC 100001 

MAIN SU 5 115 CALCRD NEWSRC 100001 

MAIN SU 5 118 SSURCH NEWSRC 100001 

MAIN SU 5 121 CORNCC NEWSRC 100001 

MAIN SU 5 124 GENTMP NEWSRC 100001 

MAIN SU 5 127 TEMFOR NEWSRC 100001 

MAIN RD 7 YES NEWSRC 100001 

MAIN WR 8 YES NEWSRC 100001 

RWNODS SU 1 RWNODS NEWSRC 100002 

RWNODS CO 3 MAFCOM M NEWSRC 100002 

RWNODS CO 3 AFIL C NEWSRC 100002 

RWNODS RD 7 YES NEWSRC 100002 

RWNODS WR 8 YES NEWSRC 100002 

RWELMS SU 1 RWELMS NEWSRC 100003 

RWELMS CO 3 MAFCOM M NEWSRC 100003 

RWELMS CO 3 AFIL C NEWSRC 100003 

RWELMS RD 7 YES NEWSRC 100003 

RWELMS WR 8 YES NEWSRC 100003 

RDTIME SU 1 RDTIME NEWSRC 100004 

RDTIME CO 3 MAFCOM M NEWSRC 100004 

RDTIME CO 3 AFIL C NEWSRC 100004 

RDTIME CO 3 MAFCOM M NEWSRC 100004 

RDTIME CO 3 SIZE C NEWSRC 100004 

RDTIME CO 3 MAFCOM M NEWSRC 100004 

ROTIME CO 3 CNTLTM C NEWSRC 100004 

ROTIf .. E CO 3 CNTLFL C NEWSRC 100004 

RDTIME SU 5 101 HTFIO NEWSRC 100004 

RDTIME SU 5 102 SKIP NEWSRC 100004 

RDTIME SU 5 104 TIMCK NEWSRC • 100004 

RDTIME SU 5 105 CHNODT NEWSRC 100004 

ROTIME WR 8 YES NEWSRC 100004 

TIMCK SU 1 TIMCK NEWSRC 100005 

TIMCK CO 3 MAFCOM M NEWSRC 100005 

TIMCK CO 3 CNTLTM C NEWSRC 100005 

CHNODT SU 1 CHNODT NEWSRC 100006 

CHNODT CO 3 MAFCOM M NEWSRC l0000G 

CHNODT CO 3 AFIL C NEWSRC 100006 

CHNODT CO 3 CNTLFL C NEWSRC 100006 

CHNODT CO 3 MAFCOM M NEWSRC 100006 

CHNODT CO 3 ELMDAT C NEWSRC 100006 

CHNODT CO 3 MAFCOM M NEWSRC 100006 

GE/Z09 PAGE194 
TITLE= DATE =07/15/85 TIME = 23 58 PAGE= 2 

CHNODT CO 3 SIZE C NEWSRC 100006 

CHNOOT CO 3 MAFCOM M NEWSRC 100006 

CHNOOT CO 3 WORK C NEWSRC 100006 

CHNOOT SU 5 101 HTFIO NEWSRC 100006 

CHNOOT SU 5 102 RWELMS NEWSRC 100006 

CHNOOT WR 8 YES NEWSRC 100006 

PREPGM SU 1 PREPGM NEWSRC 100007 

PREPGM CO 3 MAFCOM M NEWSRC 100007 

PREPGM CO 3 ELMOAT C NEWSRC 100007 

PREPGM CO 3 MAFCOM M NEWSRC 100007 

PREPGM CO 3 SIZE C .NEWSRC 100007 

PREPGM CO 3 MAFCOM M NEWSRC 100007 

PREPGM CO 3 CNTLGM C NEWSRC 100007 

PREPGM SU 5 101 RWELMS NEWSRC 100007 

PREPGM SU 5 102 CTRAN NEWSRC 100007 

PREPGM SU 5 103 SCTION NEWSRC 100007 

PREPGM SU 5 105 REMELM NEWSRC 100007 

CTRAN SU 1 CTRAN NEWSRC 100008 

SCTION SU 1 SCTION NEWSRC 100009 

REMELM SU 1 REMELM NEWSRC 100010 

REMELM CO 3 MAFCOM M NEWSRC 100010 

REMELM CO 3 ELMOAT C NEWSRC 100010 

REMELM CO 3 MAFCOM M NEWSRC 100010 

REMELM CO 3 CNTLGM C NEWSRC 100010 

REMELM SU 5 101 RWEL.MS NEWSRC 100010 

CAL.CRO SU 1 CAL.CRO NEWSRC 100011 

CAL.CRO CO 3 MAFCOM M NEWSRC 100011 

CALCRO CO 3 AFIL. C NEWSRC 100011 

CAL.CRO CO 3 MAFCOM M NEWSRC 100011 

CAL.CRO CO 3 ELMOAT C NEWSRC 100011 

CAL.CRD CO 3 MAFCOM M NEWSRC 100011 

CAL.CRO CO 3 SIZE C NEWSRC 100011 

CAL.CRO CO 3 MAFCOM M NEWSRC 100011 

CALCRO CO 3 WORK C NEWSRC 100011 

CALCRO CO 3 CRNOEF C NEWSRC 100011 

CAL.CRO SU 5 101 GETPO NEWSRC 100011 

CAL.CRO SU 5 102 RWEL.MS NEWSRC 100011 

CAL.CRO SU 5 103 VOL.M NEWSRC 100011 

CAL.CRD SU 5 104 AREAO NEWSRC 100011 

CAL.CRO SU 5 105 REACRO NEWSRC 100011 

CALCRO WR 8 YES NEWSRC 100011 

GETPO SU 1 GETPO NEWSRC 100012 

GETPD CO 3 CRNDEF C NEWSRC 100012 

GETPO SU 5 101 PARD NEWSRC 100012 

GETPD SU 5 102 GTGAUS NEWSRC 100012 

VOL.M SU 1 VOL.M NEWSRC 100013 

VOL.M SU 5 101 SHAPEF NEWSRC 100013 

SHAPEF SU 1 SHAPEF NEWSRC 100014 

SHAPEF CO 3 CRNOEF C NEWSRC 100014 

PARD SU 1 PARD NEWSRC 100015 

PARD CO 3 CRNOEF C NEWSRC 100015 

AREAO SU 1 AREAO NEWSRC 100016 

AREAO CO 3 CRNDEF C NEWSRC 100016 

AREAD SU 5 101 GTGAUS NEWSRC 100016 

AREAD SU 5 102 SHAPEF NEWSRC 100016 

GTGAUS SU 1 GTGAUS NEWSRC 100017 

REACRD su 1 REACRD NEWSRC 100018 

CORNCC SU 1 CORNCC NEWSRC 100019 

CORNCC CO 3 MAFCDM ,M NEWSRC 100019 

CORNCC CO 3 AFIL. C NEWSRC 100019 

CORNCC CO 3 MAFCOM M NEWSRC 100019 

CORNCC CO 3 EL.MOAT C NEWSRC 100019 

CORNCC CO 3 MAFCOM M NEWSRC 100019 

CORNCC CO 3 SIZE C NEWSRC 100019 

CORNCC CO 3 MAFCOM M NEWSRC 100019 

CORNCC CO 3 WORK C NEWSRC 100019 

CORNCC CO 3 MAFCOM M NEWSRC 100019 

195 -- GE/Z09 PAGE- 2 

, 
TITLE= DATE =07/15/85 TIME = 23 58 PAGE= 3 

CORNCC CO 3 CNTLGM C NEWSRC 100019 

CORNCC SU 5 101 RWELMS NEWSRC 100019 

CORNCC SU 5 102 SORT NEWSRC 100019 

CORNCC SU 5 103 CCNVEC NEWSRC 100019 

CORNCC SU 5 105 GETCRD NEWSRC 100019 

CORNCC SU 5 106 CINV NEWSRC 100019 

CORNCC SU 5 108 RWCCF NEWSRC 100019 

CORNCC SU 5 109 PUTWFI NEWSRC 100019 

CORNCC WR 8 YES NEWSRC 100019 

CCNVEC SU 1 CCNVEC NEWSRC 100020 

CCNVEC CO 3 MAFCOM M NEWSRC 100020 

CCNVEC CO 3 AFIL C NEWSRC 100020 

CCNVEC WR 8 YES NEWSRC 100020 

GETCRD SU 1 GETCRD NEWSRC 100021 

GETCRD CO 3 MAFCOM M NEWSRC 100021 

GETCRD CO 3 AFIL C NEWSRC 100021 

GETCRD WR 8 YES NEWSRC 100021 

PUTWFI SU 1 PUTWFI NEWSRC 100022 

PUTWFI CO 3 MAFCOM M NEWSRC 100022 

PUTWFI CO 3 AFIL C NEWSRC 100022 

RWCCF SU 1 RWCCF NEWSRC 100023 

RWCCF CO 3 MAFCOM M NEWSRC 100023 

RWCCF CO 3 AFIL C NEWSRC 100023 

RWCCF RD 7 YES NEWSRC 100023 

RWCCF WR 8 YES NEWSRC 100023 

GETMPE SU 1 GETMPE NEWSRC 100024 

GETMPE CO 3 MAFCOM M NEWSRC 100024 

GETMPE CO 3 AFIL C NEWSRC 100024 

GETMPE CO 3 CNTLFL C NEWSRC 100024 

GETMPE CO 3 MAFCOM M NEWSRC 100024 

GETMPE CO 3 SIZE C NEWSRC 100024 

GETMPE SU 5 101 HTFIO NEWSRC 100024 

GETMPE SU 5 103 MPERW NEWSRC 100024 

MPERW SU 1 MPERW NEWSRC 100025 

MPERW WR 8 YES NEWSRC 100025 

SETFLP SU 1 SETFLP NEWSRC 100026 

SETFLP CO 3 MAFCOM M NEWSRC 100026 

SETFLP CO 3 AFIL C NEWSRC 100026 

SETFLP SU 5 101 TFLSET NEWSRC 100026 

SETFLP SU 5 102 HTFPAS NEWSRC 100026 

RDTEMP SU 1 ROTEMP NEWSRC 100027 

RDTEMP CO 3 MAFCOM M NEWSRC 100027 

RDTEMP CO 3 AFIL C NEWSRC 100027 

RDTEMP CO 3 MAFCOM M NEWSRC 100027 

RDTEMP CO 3 SIZE C NEWSRC 100027 

RDTEMP CO 3 MAFCOM Pol NEWSRC 100027 

RDTEMP CO 3 CNTLFL C NEWSRC 100027 

RDTEMP SU 5 101 HTFIO NEWSRC 100027 

RDTEMP WR 8 YES NEWSRC 100027 

CWCRNT SU 1 CWCRNT NEWSRC 100028 

CWCRNT CO 3 MAFCOM M NEWSRC 100028 

CWCRNT CO 3 AFIL C NEWSRC 100028 

CWCRNT SU 5 101 FILREW NEWSRC 100028 

CWCRNT SU 5 102 RWCCF NEWSRC 100028 

CWCRNT SU 5 103 UNPAKF NEWSRC 100028 

CWCRNT SU 5 104 MPERW NEWSRC 100028 

CWCRNT SU 5 105 FCRNTP NEWSRC 100028 

CWCRNT SU 5 106 MAXTDF NEWSRC 100028 

CWCRNT SU 5 107 -WRCRNT NEWSRC 100028 

UNPAKF SU 1 UNPAKF NEWSRC 100029 

UNPAKF CO 3 MAFCOM M NEWSRC 100029 

UNPAKF CO 3 AFIL C NEWSRC 100029 

UNPAKF WR 8 YES NEWSRC 100029 

FCRNTP SU 1 FCRNTP NEWSRC 100030 

FCRNTP CO 3 MAFCOM M NEWSRC 100030 

FCRNTP CO 3 AFIL C NEWSRC 100030 

MAXTDF SU 1 MAXTDF NEWSRC 100031 

196 -- GE/Z09 PAGE"' 3 
TITLE= DATE =07/15/85 TIME "' 23 58 PAGE= 4 

MAXTDF CO 3 MAFCOM M NEWSRC 100031 

MAXTDF CO 3 AFIL C NEWSRC 100031 

MAXTDF SU 5 101 SORT NEWSRC 100031 

MAXTDF WR 8 YES NEWSRC 100031 

WRITMP SU 1 WRITMP NEWSRC 100032 

WRITMP CO 3 MAFCOM M NEWSRC 100032 

WRITMP CO 3 AFIL C NEWSRC 100032 

WRITMP WR 8 YES NEWSRC 100032 

CINV SU 1 CINV NEWSRC 100033 

CINV CO 3 MAFCOM M NEWSRC 100033 

CINV CO 3 AFIL C NEWSRC 100033 

CINV WR 8 YES NEWSRC 100033 

PRNTIM SU 1 PRNTIM NEWSRC 100034 

PRNTIM CO 3 MAFCOM M NEWSRC 100034 

PRNTIM CO 3 AFIL C NEWSRC 100034 

PRNTIM WR 8 YES NEWSRC 100034 

EMINMX SU 1 EMINMX NEWSRC 100035 

EMINMX SU 5 101 SORT NEWSRC 100035 

FTIME SU 1 FTIME NEWSRC 100036 

SSURCH SU 1 SSURCH NEWSRC 100037 

SSURCH CO 3 MAFCOM M NEWSRC 100037 

SSURCH CO 3 AFJL C NEWSRC 100037 

SSURCH CO 3 MAFCOM M NEWSRC 100037 

SSURCH CO 3 SIZE C NEWSRC 100037 

SSURCH CO 3 MAFCOM M NEWSRC 100037 

SSURCH CO 3 SPDAT C NEWSRC 100037 

SSURC.., SU 5 101 KNTSPF NEWSRC 100037 

SSURCH SU 5 102 GNLSUR NEWSRC 100037 

KNTSPF SU 1 KNTSPF NEWSRC 100038 

KNTSPF CO 3 MAFCOM M NEWSRC 100038 

KNTSPF CO 3 AFIL C NEWSRC 100038 

KNTSPF SU 5 101 FILREW NEWSRC 100038 

KNTSPF SU 5 102 ROSPF NEWSRC 100038 

KNTSPF WR 8 YES NEWSRC 100038 

RFILCR SU 1 RFILCR NEWSRC 100039 

RFILCR CO 3 MAFCOM M NEWSRC 100039 

RFILCR CO 3 ELMDAT C NEWSRC 100039 

RFILCR SU 5 101 RANSIZ NEWSRC 100039 

RFILCR SU 5 102 ZERORF NEWSRC 100039 

ZERORF SU 1 ZERORF NEWSRC 100040 

ZERORF WR 8 YES NEWSRC 100040 

GNLSUR SU 1 GNLSUR NEWSRC 100041 

GNLSUR CO 3 MAFCOM M NEWSRC 100041 

GNLSUR CO 3 AFIL C NEWSRC 100041 

GNLSUR CO 3 MAFCOM M NEWSRC 100041 

GNLSUR CO 3 SIZE C NEWSRC 100041 

GNLSUR CO 3 MAFCOM M NEWSRC 100041 

GNLSUR CO 3 WORK C NEWSRC 100041 

GNLSUR SU 5 101 EJNCOR NEWSRC 100041 

GNLSUR SU 5 102 RDSPF NEWSRC 100041 

GNLSUR SU 5 103 FNDELM NEWSRC 100041 

GNLSUR WR 8 YES NEWSRC 100041 

RDSPF SU 1 RDSPF NEWSRC 100042 

RDSPF CO 3 MAFCOM M NEWSRC 100042 

RDSPF CO 3 AFIL C NEWSRC 100042 

RDSPF RD 7 YES NEWSRC 100042 

FILREW SU 1 FILREW NEWSRC 100043 

EINCOR SU 1 EINCOR NEWSRC 100044 

EINCOR CO 3 MAFCOM M NEWSRC 100044 

EINCOR CO 3 AFIL C NEWSRC 100044 

EINCOR CO 3 MAFCOM M NEWSRC 100044 

EINCOR CO 3 ELMDAT C NEWSRC 100044 

EINCOR SU 5 101 RWELMS NEWSRC 100044 

FNDELM SU 1 FNDELM NEWSRC 100045 

FNDELM CO 3 MAFCOM M NEWSRC 100045 

FNDELM CO 3 AFIL C NEWSRC 100045 

FNDELM CO 3 MAFCOM M NEWSRC 100045 

197 

-- GE/Z09 PAGE" 4 
TITLE= DATE =07/15/85 TIME = 23 58 PAGE= 5 

FNDELM CO 3 ELMOAT C NEWSRC 100045 

FNOELM CO 3 MAFCOM M NEWSRC 100045 

FNOELM CO 3 SIZE C NEWSRC 100045 

FNDELM CO 3 MAFCOM M NEWSRC 100045 

FNDELM CO 3 SPDAT C NEWSRC 100045 

FNDELM SU 5 101 GETWND NEWSRC 100045 

FNDELM SU 5 102 CKWIND NEWSRC 100045 

FNDELM SU 5 104 13DSF NEWSRC 100045 

FNDELM SU 5 105 RWELMS NEWSRC 100045 

FNDELM SU 5 109 RWSPCF NEWSRC 100045 

FNDELM WR 8 YES NEWSRC 100045 

GETWND SU 1 GETWND NEWSRC 100046 

GETWND CO 3 MAFCOM M NEWSRC 100046 

GETWND CO 3 AFIL C NEWSRC 100046 

GETWND CO 3 MAFCOM M NEWSRC 100046 

GETWND CO 3 ELMDAT C NEWSRC 100046 

GETWND CO 3 MAFCOM M NEWSRC 100046 

GETWND CO 3 SIZE C NEWSRC 100046 

GETWND CO 3 MAFCOM M NEWSRC 100046 

GETWND CO 3 WORK C NEWSRC 100046 

GETWNO SU 5 101 RIIIELMS NEWSRC 100046 

CKWIND SU 1 CKWIND NEWSRC 100047 

MKRGF SU 1 MKRGF NEWSRC 100048 

MKRGF CO 3 MAFCOM M NEWSRC 100048 

MKRGF CO 3 AFIL C NEWSRC 100048 

MKRGF CO 3 MAFCOM M NEWSRC 10Q048 

MKRGF CO 3 ELMDAT C NEWSRC 100048 

MKRGF CO 3 MAFCOM M NEWSRC 100048 

MKRGF CO 3 SIZE C NEWSRC 100048 

MKRGF CO 3 MAFCOM M NEWSRC 100048 

MKRGF CO 3 CNTLFL C NEWSRC 100048 

MKRGF SU 5 101 RWNOOS NEWSRC 100048 

MKRGF SU 5 103 EMINMX NEWSRC 100048 

MKRGF SU 5 104 RWELMS NEWSRC 100048 

MKRGF SU 5 105 PROFAC NEWSRC 100048 

MKRGF RD 7 YES NEWSRC 100048 

MKRGF WR 8 YES NEWSRC 100048 

PROFAC SU 1 PROFAC NEWSRC 100049 

PROFAC CO 3 MAFCOM M NEWSRC 100049 

PROFAC CO 3 AFIL C NEWSRC 100049 

PROFAC CO 3 MAFCOM M NEWSRC 100049 

PROFAC CO 3 ELMDAT C NEWSRC 100049 

PROFAC CO 3 MAFCOM M NEWSRC 100049 

PROFAC CO 3 SIZE C NEWSRC 100049 

PROFAC SU 5 101 RWELMS NEWSRC 100049 

PROFAC RD 7 YES NEWSRC 100049 

PROFAC WR 8 YES NEWSRC 100049 

SKIP SU 1 SKIP NEWSRC 100050 

SKIP CO 3 MAFCOM M NEWSRC 100050 

SKIP CO 3 SIZE C NEWSRC 100050 

SKIP RD 7 YES NEWSRC 100050 

HTFIO SU 1 HTFIO NEWSRC 100051 

HTFIO RD 7 YES NEWSRC 100051 

RDCNTL SU 1 ROCNTL NEWSRC 100052 

RDCNTL CO 3 MAFCOM M NEWSRC 100052 

RDCNTL CO 3 AFIL C NEWSRC 100052 

RDCNTL CO 3 MAFCOM M NEWSRC 100052 

RDCNTL CO 3 CNTLFL C NEWSRC 100052 

RDCNTL CO 3 MAFCOM M NEWSRC 100052 

RDCNTL CO 3 CNTLTM C NEWSRC 100052 

RDCNTL CO 3 MAFCOM M NEWSRC 100052 

RDCNTL CO 3 SIZE C NEWSRC 100052 

RDCNTL SU 5 101 HTFIO NEWSRC 100052 

RDCNTL SU 5 102 ELTRAN NEWSRC 100052 

RDCNTL RD 7 YES NEWSRC 100052 

RDCNTL WR 8 YES NEWSRC 100052 

TFLSET SU 1 TFLSET NEWSRC 100053 

198 -- GE/Z09 PAGE= 5 
TITLE= DATE =07/15/85 TIME .. 23 58 PAGE= 6 

TFLSET CO 3 MAFCOM M NEWSRC 100053 

TFLSET CO 3 AFIL C NEWSRC 100053 

TFLSET CO 3 MAFCOM M NEWSRC 100053 

TFLSET CO 3 CNTLTM C NEWSRC 100053 

TFLSET SU 5 101 SKIP NEWSRC 100053 

TFLSET RO 7 YES NEWSRC 100053 

GENTMP SU 1 GENTMP NEWSRC 100054 

GENTMP CO 3 MAFCOM M NEWSRC 100054 

GENTMP CO 3 MAFCOM M NEWSRC 100054 

GENTMP CO 3 AFIL C NEWSRC 100054 

GENTMP CO 3 MAFCOM M NEWSRC 100054 

GENTMP CO 3 SIZE C NEWSRC 100054 

GENTMP CO 3 MAFCOM M NEWSRC 100054 

GENTMP CO 3 WORK C NEWSRC 100054 

GENTMP CO 3 MAFCOM M NEWSRC 100054 

GENTMP CO 3 CNTLTM C NEWSRC 100054 

GENTMP CO 3 CNTLFL C NEWSRC 100054 

GENTMP SU 5 101 TFLSET NEWSRC 100054 

GENTMP SU 5 102 GETMPE NEWSRC 100054 

GENTMP SU 5 103 SETFLP NEWSRC 100054 

GENTMP SU 5 104 ROTEMP NEWSRC 100054 

GENTMP SU 5 105 CWCRNT NEWSRC 100054 

GENTMP SU 5 106 ETCORE NEWSRC 100054 

GENTMP SU 5 107 NTCORE NEWSRC 100054 

GENTMP SU 5 108 STSTMP NEWSRC 100054 

STSTMP SU 1 STSTMP NEWSRC 100055 

STSTMP CO 3 MAFCOM M NEWSRC 100055 

STSTMP CO 3 MAFCOM M NEWSRC 100055 

STSTMP CO 3 AFIL C NEWSRC 100055 

STSTMP CO 3 MAFCOM M NEWSRC 100055 

STSTMP CO 3 SIZE C NEWSRC 100055 

STSTMP CO 3 SPOAT C NEWSRC 100055 

STSTMP SU 5 101 RWSPCF NEWSRC 100055 

STSTMP SU 5 102 WRSTMP NEWSRC 100055 

WRSTMP SU 1 WRSTMP NEWSRC 100056 

WRSTMP CO 3 MAFCOM M NEWSRC 100056 

WRSTMP CO 3 MAFCOM M NEWSRC 100056 

WRSTMP CO 3 AFIL C NEWSRC 100056 

WRSTMP WR 8 YES NEWSRC 100056 

ETCORE SU 1 ETCORE NEWSRC 100057 

ETCORE CO 3 MAFCOM M NEWSRC 100057 

ETCORE CO 3 MAFCOM M NEWSRC 100057 

ETCORE CO 3 AFIL C NEWSRC 100057 

ETCORE CO 3 MAFCOM M NEWSRC 100057 

ETCORE CO 3 SIZE C NEWSRC 100057 

ETCORE SU 5 101 FILREW NEWSRC 100057 

ETCORE RD 7 YES NEWSRC 100057 

NTCORE SU 1 NTCORE NEWSRC 100058 

NTCORE CO 3 MAFCOM M NEWSRC 100058 

NTCORE CO 3 MAFCOM M NEWSRC 100058 

NTCORE CO 3 AFIL C NEWSRC 100058 

NTCORE CO 3 MAFCOM M NEWSRC 100058 

NTCORE CO 3 SIZE C NEWSRC 100058 

NTCORE SU 5 101 HTFIO NEWSRC 100058 

WRCRNT SU 1 WRCRNT NEWSRC 100059 

WRCRNT CO 3 MAFCOM M NEWSRC 100059 

WRCRNT co 3 MAFCOM M NEWSRC 100059 

WRCRNT CO 3 AFIL C NEWSRC 100059 

WRCRNT WR 8 YES NEWSRC 100059 

HTFPAS SU 1 HTFPAS NEWSRC 100060 

HTFPAS CO 3 MAFCOM M NEWSRC 100060 

HTFPAS CO 3 SIZE C NEWSRC 100060 

HTFPAS RD 7 YES NEWSRC 100060 

SORT SU 1 SORT NEWSRC 100061 

HTICON SU 1 HTICON NEWSRC 100062 

HTICON CO 3 AFIL C NEWSRC 100062 

HTICON SU 5 101 SINTIT NEWSRC 100062 

199 -- GE/Z09 PAGE" 6 
TITLE= DATE =07/15/85 TIME "' 23 58 PAGE" 7 

HTICON SU 5 102 MARCRD NEWSRC 100062 

HTICON WR 8 YES NEWSRC 100062 

MARCRD SU 1 MARCRD NEWSRC 100063 

MARCRD CO 3 AFIL C NEWSRC 100063 

MARCRD SU 5 101 READR NEWSRC 100063 

MARCRD SU 5 103 SKPREC NEWSRC 100063 

MARCRD WR 8 YES NEWSRC 100063 

READR SU 1 READR NEWSRC 100064 

READR CO 3 AFIL C NEWSRC 100064 

READR RD 7 YES NEWSRC 100064 

READR WR 8 YES NEWSRC 100064 

SKPREC SU 1 SKPREC NEWSRC 100065 

SKPREC CO 3 AFIL C NEWSRC 100065 

SKPREC RD 7 YES NEWSRC 100065 

SKPREC WR 8 YES NEWSRC 100065 

SINTIT SU 1 SINTIT NEWSRC 100066 

SINTIT CO 3 MAFCOM M NEWSRC 100066 

SINTIT CO 3 WORK C NEWSRC 100066 

SINTIT CO 3 MAFCOM M NEWSRC 100066 

SINTIT CO 3 AFIL C NEWSRC 100066 

SINTIT CO 3 KNTDAT C NEWSRC 100066 

SINTIT SU 5 101 DATINT NEWSRC 100066 

SINTIT SU 5 102 PRCSOF NEWSRC 100066 

SINTIT SU 5 103 PRCGEO NEWSRC 100066 

SINTIT SU 5 104 WRTNTF NEWSRC 100066 

DATINT SU 1 DATI NT NEWSRC 100067 

DATI NT CO 3 MAFCOM M NEWSRC 100067 

DATINT CO 3 WORK C NEWSRC 100067 

DATI NT CO 3 MAFCOM M NEWSRC 100067 

DATINT CO 3 AFIL C NEWSRC 100067 

DATI NT CO 3 KNTDAT C NEWSRC 100067 

PRCSOF SU 1 PRCSOF NEWSRC 100068 

PRCSOF CO 3 MAFCOM M NEWSRC 100068 

PRCSOF CO 3 AFIL C NEWSRC 100068 

PRCSOF SU 5 101 GETEWT NEWSRC 100068 

PRCSOF SU 5 102 GTNUMT NEWSRC 100068 

GETEWT SU 1 GETEWT NEWSRC 100069 

GETEWT CO 3 MAFCOM M NEWSRC 100069 

GETEWT co 3 WORK C NEWSRC 100069 

GETEWT CO 3 MAFCOM M NEWSRC 100069 

GETEWT CO 3 AFIL C NEWSRC 100069 

GETEWT CO 3 KNTDAT C NEWSRC 100069 

GETEWT SU 5 101 ERRPRT NEWSRC 100069 

GETEWT RO 7 YES NEWSRC 100069 

GTNUMT SU 1 GTNUMT NEWSRC 100070 

GTNUMT CO 3 MAFCOM M NEWSRC 100070 

GTNUMT CO 3 WORK C NEWSRC 100070 

GTNUMT CO 3 MAFCOM M NEWSRC 100070 

GTNUMT CO 3 AFIL C NEWSRC 100070 

GTNUMT CO 3 KNTDAT C NEWSRC 100070 

GTNUMT SU 5 101 ERRPRT NEWSRC 100070 

GTNUMT RD 7 YES NEWSRC 100070 

PRCGEO SU 1 PRCGEO NEWSRC 100071 

PRCGEO CO 3 MAFCOM M NEWSRC 100071 

PRCGEO CO 3 AFIL C NEWSRC 100071 

PRCGEO CO 3 KNTDAT C NEWSRC 100071 

PRCGEO SU 5 101 ERRPRT NEWSRC 100071 

PRCGEO RD 7 YES NEWSRC 100071 

WRTNTF SU 1 WRTNTF NEWSRC 100072 

WRTNTF CO 3 MAFCOM M NEWSRC 100072 

WRTNTF CO 3 WORK C NEWSRC 100072 

WRTNTF CO 3 MAFCOM M NEWSRC 100072 

WRTNTF CO 3 AFIL C NEWSRC 100072 

WRTNTF CO 3 KNTDAT C NEWSRC 100072 

WRTNTF SU 5 101 WRTDIR NEWSRC 100072 

WRTNTF SU 5 102 WRTGEO NEWSRC 100072 

WRTNTF SU 5 103 WRTEMP NEWSRC 100072 

200 -- GE/Z09 PAGE= 7 
TITLE= DATE =07/15/85 TIME = 23 58 PAGE= 8 

WRTNTF SU 5 104 ERRPRT NEWSRC 100072 

WRTNTF RD 7 YES NEWSRC 100072 

WRTDIR SU 1 WRTDIR NEWSRC 100073 

WRTDIR CO 3 MAFCOM M NEWSRC 100073 

WRTDIR CO 3 WORK C NEWSRC 100073 

WRTDIR CO 3 MAFCOM M NEWSRC 100073 

WRTDIR CO 3 AFIL C NEWSRC 100073 

WRTDIR CO 3 KNTDAT C NEWSRC 100073 

WRTDIR SU 5 101 ERRPRT NEWSRC 100073 

WRTDIR RD 7 YES NEWSRC 100073 

WRTDIR WR 8 YES NEWSRC 100073 

WRTGEO SU 1 WRTGEO NEWSRC 100074 

WRTGEO CO 3 MAFCOM M NEWSRC 100074 

WRTGEO CO 3 WORK C NEWSRC 100074 

WRTGEO CO 3 MAFCOM M NEWSRC 100074 

WRTGEO CO 3 AFIL C NEWSRC 100074 

WRTGEO CO 3 KNTDAT C NEWSRC 100074 

WRTGEO SU 5 101 ERRPRT NEWSRC 100074 

WRTGEO RD 7 YES NEWSRC 100074 

WRTGEO WR 8 YES NEWSRC 100074 

WRTEMP SU 1 WRTEMP NEWSRC 100075 

WRTEMP CO 3 MAFCOM M NEWSRC 100075 

WRTEMP CO 3 WORK C NEWSRC 100075 

WRTEMP CO 3 MAFCOM M NEWSRC 100075 

WRTEMP CO 3 AFIL C NEWSRC 100075 

WRTEMP CO 3 KNTDAT C NEWSRC 100075 

WRTEMP SU 5 101 ERRPRT NEWSRC 100075 

WRTEMP RD 7 YES NEWSRC 100075 

WRTEMP WR 8 YES NEWSRC 100075 

ERRPRT SU 1 ERRPRT NEWSRC 100076 

ERRPRT CO 3 MAFCOM M NEWSRC 100076 

ERRPRT CO 3 AFIL C NEWSRC 100076 

ERRPRT WR 8 YES NEWSRC 100076 

TEMFOR SU 1 TEMFOR NEWSRC 100077 

TEMFOR CO 3 MAFCOM M NEWSRC 100077 

TEMFOR CO 3 AFIL C NEWSRC 100077 

TEMFOR CO 3 MAFCOM M NEWSRC 100077 

TEMFOR CO 3 SIZE C NEWSRC 100077 

TEMFOR SU 5 101 TPNAST NEWSRC 100077 

TEMFOR SU 5 102 MARCTO NEWSRC 100077 

TEMFOR WR 8 YES NEWSRC 100077 

TPNAST SU 1 TPNAST NEWSRC 100078 

TPNAST CO 3 AFIL C NEWSRC 100078 

TPNAST RD 7 YES NEWSRC 100078 

TPNAST WR 8 YES NEWSRC 100078 

I3DSF SU 1 I3DSF NEWSRC 100079 

I3DSF CO 3 MAFCOM M NEWSRC 100079 

I30SF CO 3 AFIL C NEWSRC 100079 

I3DSF SU 5 101 REAARY NEWSRC 100079 

I30SF SU 5 102 SHAPFV NEWSRC 100079 

I3DSF SU 5 103 CHKPT NEWSRC 100079 

I3DSF SU 5 104 JACBCK NEWSRC 100079 

I3DSF SU 5 106 SFDIST NEWSRC 100079 ~EAARY SU 1 REAARY NEWSRC 100080 

REAARY SU 5 101 SORT2 NEWSRC 100080 

SORT2 SU 1 SORT2 NEWSRC 100081 

SFDIST SU 1 SFDIST NEWSRC 100082 

SFDIST SU 5 101 SHAPFV NEWSRC 100082 

CHKPT SU 1 CHKPT NEWSRC 100083 

PDOFSF SU 1 POOFSF NEWSRC 100084 

PDOFSF CO 3 CRNOEF C NEWSRC 100084 

FNDJAC SU 1 FNDJAC NEWSRC 100085 

SHAPFV SU 1 SHAPFV NEWSRC 100086 

JACBCK SU 1 JACBCK NEWSRC 100087 

JACBCK SU 5 101 PDOFSF NEWSRC 100087 

JACBCK SU 5 102 FNDJAC NEWSRC 100087 

RWSPCF SU 1 RWSPCF NEWSRC 100088 

201 

-- GE/Z09 PAGE- 8 
TITLE= DATE =07/15/85 TIME = 23 58 PAGE= 9 

RWSPCF CD 3 MAFCOM M NEWSRC 100088 RWSPCF CO 3 AFIL C NEWSRC 100088 RWSPCF RD 7 YES NEWSRC 100088 RWSPCF WR 8 YES NEWSRC 100088 ELTRAN SU 1 ELTRAN NEWSRC 100089 ELTRAN CO 3 MAFCOM M NEWSRC 100089 ELTRAN CO 3 AFIL C NEWSRC 100089 ELTRAN CO 3 MAFCOM M NEWSRC 100089 ELTRAN CO 3 CNTLFL C NEWSRC 100089 ELTRAN WR 8 YES NEWSRC 100089 INITCM SU 1 INITCM NEWSRC 100090 INITCM CO 3 CRNDEF C NEWSRC 100090 MARCTO SU 1 MARCTO NEWSRC 100091 MARCTO CO 3 MAFCOM M NEWSRC 100091 MARCTO CO 3 AFIL C NEWSRC 100091 MARCTO CO 3 MAFCOM M NEWSRC 100091 MARCTO CO 3 WORK C NEWSRC 100091 MARCTO SU 5 101 GPCOEF NEWSRC 100091 MARCTO SU 5 102 GPTEMP NEWSRC 100091 MARCTO RD 7 YES NEWSRC 100091 MARCTO WR 8 YES NEWSRC 100091 GPCOEF SU 1 GPCOEF NEWSRC 100092 GPTEMP SU 1 GPTEMP NEWSRC 100093 

202 GE/Z09 PAGE= 9 LAST 
REFERENCES 

1. "Survey of Computer Programs For Heat Transfer Analysis" 

A.R. Noor 

2. 3D TITAN Userl s f4anua1 

R.J. Maffeo 

3. PATRAN 

PDA Engineering 

Software Products Division 

1560 Brookho11ow Drive 

Santa Ana, California 92705-5475 

203 
End of Document