mm_ : .'," _ NASA Contraator Report 172214 _, * L

f

= MINIVER UPGRADE FOR THE

_" AVID SYSTEM ,'

-':' VOLUME II1: EXITS USER'S

;_ AND INPUT GUIDE i

-5

_i

BDI

.-..._,

John E. Pond ,_

-'-, Gral9 P Sehmltz '"

_ REMTEGH, Inc.

_ Huntsville, At, 38805 ,_

Contract NA$1-16983

August 1983

q

.,

(IUI-,CB- 172+ t+) a1B.li;fgil UJPGa&DRt01t 2Hi llOq-! 17'73 "

-.. ., AViD S_S28m, VOLUH 3: _XZ_S U_a_'S AJO .*

't £_" Zllloota UU2 wGOZ J..Ll08e,, Jk.la.) fLaal _Sepol: 06 ptliT:(hlteels, AIO/_I_ A.OI Inc., Unc.].as * i._i

_ (:SCI, 12& G3/6 1 q2.193 _ ,_,

Nat_or,aAl eronauticsand ,,

SpaceAdmm_strahon

LdnOleyR6searoflCenter _.

Hemp*on V_rg,n_23a 665 ,_..

_j

r,

1.0 I_OD_C'rION . . . . . . . . . . . . . . . . . . . . • . 1

_: 2 _(_N_ DXS_OSSXON .0 . _ . . . . . . . . . . . . • , t • 4

L_,

_ 2.1 SLABMODEL.. ... , , . . . . , , . . . . . . . . Jl

'_. :_.2 COKI,,h_IS(_ WI ANALYTICAL_)LUTION . . . . . . . . $

• 2.4 ,.Lx.n ............... - @

?.

,: S.0 DESCRIPTION OF THE I_08P._!, . . . . . . . • • . • • . . 20

' 4.0 D]_S_tXPrlON OF SUBROUTINES, , , . , . , , , . .., . . , 2_I

4.1 MAIN. . , . . . , . . . . . . . . . . . . . . 25

4.2 I_OP ..... , . . . . , . . . . . . . 26

i' 4._ S_BROUT_BIN_' . . . , . , , • , , • • • • • ..• _

_'" 4,4 _UBROUTINBDATA_, , , , , , , , , , , , , , , , , 27

4,$ SUBROUTD_MPCC , , , . , , , , , , , , , , , , :_9

4,6 S_BROUT:I_ESTR0_, , , , , , , , , , , . , . , , 31

4.f $_)_ROI_E LOAD . . . . . . . . . . . . . . . . . 31

4,8 _m_o_r_s_ Sl . . . . . . • • • • • • • • • • •

4,9 _BRO_EDATA_ . . . . . . . . . , • • • • . . . S3

4.10 STI_OOT]:HRPIOZI;R . . . . . . . . . ...... . 34

_ 4.11 SUBROUTD_ G)MTMP . . . . . . . . . . • . . . • • SJ

4,12 SI_BROUTINBNODE , , , , , , , , , , • • , • • • , 36

_: 4.13 _,UBROI_2qE BEATN, . . . . . . . . . . . . . • • • 37

i 4.14 SUBROU_II_VFAC . . . . . . . . , . . . . . . . . $7

i_:, 4,15 _BRO_XI_ DIST 38

_ O • • • 6 • @ • • • @ • , @ • • • 4.1(; S_tolYr]_ _I'_ . . . . . . . , . , . . . . . . $9

ti_ 4,1'/ SUBRO_ INI_EO . . , , . , , , , , . . . , , 40

4.18 SUBRO_'rXNIgSUBPR.............. • • • 41

4.1J, S'OBRO_I'I_IE5RXF$' . . . . . . . . . . . . • . • • • 42

4.20 SUBROUT]_Y_(_)R8 ................. 4S

4.21 _UBROU'I'IHERONB1_, . . . . . . . . . . . . . . . . 47

4O 22 _U_o_DII_ _ke O O O • • • • • • • • . • • 6 • • S_ _

4._3 SOBItOUTI_STAND. . , . . . . . . . . . . . . . . SS

4, 24 SOBI_OUTI_79]_S • , • • • • @ • • • • • • • • • • 5_ / .*

5.0 INPUT. . . . . . . . . . . . . . . . . . . . . . . . . . _1

' 3.1 IANMIN OgNI_LA1"FJ)_._IItONM_T FILB . . . . . . . . . 82 '

:. S,2 MA, TEIIIAL_OPI_T_S_ILE . . , , , , . , , , , , , e4

_.s SI_U__IL_ _._, __.,_ _, . , . , , 81

. sxn, z-suon) ,,,, , as

css mONno,

COId_0AT_) , @ @ @ @ @ @ @ @ @ • _2 ;
T_JLEO_COI_._L'S(¢ontinuod)

_m

Seotion PaSe

Ir _.o OUTleT... , . . . . , . • • • , , • • . , . • , • . • J8

7.0 CONCLUSIONS_ID RECOMMEI_ATION$ . . . . o . _ . . . . , 146

8.0 REFEREN('_S. . . . . . . • • • . • • • , • • • . • • . • 148

A- _' _PENDIZ (EXIT8 LISTIN0) . , . .* . . , , , , . . . . , ._ 1--A"54

w

o

....

: , q !

i , 1

|.. ,

i',

, . ttt .,.

F-_ ,
/, "

hotiol 1.0

IODtJZON

i aq-,._

The E_Lt_ sods deso_ibed in this doounont is t thermal _ulysis tool vhiolt

" y

allows the use: to tepidly prediot thermal proteotion system perfomenoo foe |d-

_; _aneed space transportation vehicle reentry. Desian end welahts optimization

:_ sin be a_cempltshed by rep0ated analysis within the oonstraint8 and 8uidelines ,q.

of system petfot'manee.

EXFFS is desisned to run interaotively on i small o: mainframe _Oml,_ting

._._ system in eonJ_otlon vith the L_M]34 sods. LANM]Iq,as desextbed in Volume Z and

q.

;_i ZZ Ls rmi, given a trsje_toty_ geometry, heatin8 rate methods, ate., to provide

,o

...' an input file oontati_in8 the thermal enviro,wAent information _eeded for t_e body

_..

;_. points speoifted. Information flow for this passaic is depleted i_ Fiit_te 1.1.

,_ The uses then sells _t_ in an tnteraetive mode and sets certain input

patmetets, start time, end time, paint ttmeb eta. and defines the TPS 8t_uetILte

_ by molesting struotu:e types _:om a menu presented to him. In its present fern,

_ the mean oOntstn8 seven dt_tezent 8truotuze types, tnel_ding an ablatot, slab,

ii'! tSdiatio_ aSP, eta. By 8taehin| those stt_©t_e8, the entire TI_ is defined and

a nodal mesh is automatically Senetated. EXITS th_s ues the LANM_N 8enerated '_

input file and Oil©_lites the temperature history of cash node thro_sh the

,I

stt_ct_t6. '_

I

_utin8 the oalo_lttion, all o_ the heats a_e ttitoaratod and printed ont.

, i

i | _hese include the so.coted, retadiated, sensible heat, ablated heat, i_d ad- !

:_ ;, v6eted heat. A total energy balance t8 made to detei_tno the method's eon_et_a- '

I,

,,. _]_ ttSii lt_ explicit (Railer) iuteitation of tile onotay equation as/n0 i

oq/li_ileut radiltion eondUetotdl _here intet_tl st tetidittiofl crests. An abletien routine has boon luulQdod usLnS a simp.t__ebleto_-sQbltme_ model vhL_h _n---

eludes the latent host end host _duited _ot the movies tntorfsoo (advedted).

r_ l_or mJtetisl8 vith hiSh the_ell oonduetivltF (eltminumj #oppot, eta. ), J thee-

=ally ' wthln't st_Qdt_Lte has been included to avoid the time step ptoblons ozY

pll©ft hotbeds have vith those materials. Deteils Of these noshed| axe dosotibed in the Teohniosl Dlse_ssion_ _Joetton XI.

The prosteu, ottuetuze, fJow obsess, ere. see Siren in Seotion III. DesotJp.-

tion of _osttm, I_aoh s11brol_ttnois dese_ibed in Sootiou _V,

Input end Output date io dosoribed in Sootioui Y and VI tospeetively,

I_iu1117, oo_eZ_Jie_e end zeooume_dAtiO_sa_e presented ta Sootton VII. A listins of the code is presented in the Appendix,

I

-+

I

"'" 3
This seotion desatibes the methods used in oagoQlstin8 the thermal response

of the TI_ ettuotuze, A basio eneziy balauoe performed st etoh node dutinS the

time marohin8 uoin8 an explioit Sulet inteitation foams the basis of the oode.

Speolal metliodl ate used to deeoribe the zesponse of the abletot-lubliner a_d

J

ther_ally thin struotu_es. Rowevet, when _omplioated structure| ate _used, the

_. p_oB_am labia branohee off and oonetruots equivalent thettnal networks, end from

_r Solutions of these networks, equivalent thermal _onductanoe is _onputed end

placed into the I_rinary the_al network.

i!_' Presently, RXITB oontain8 the oapabitity to analyse seven different Ittue-

_i tu_e types. These a_e listed below as follows:

I;I!' ~-

STRUCTU_TYPE - - - NUMBER :'

• SLAB 1

RADIATION GAP 2

i .ocoJs s

COI_GATI_ 4 ....

z STa_OPP S

TJlN S[IN 6

,Od3LATOS_R.WLD_ 7

The methods used fat analysis o£ the slab, thin akin, and ablatoz-enbl£ner are

oontatned in thtl seotton. The methods fat the _adtatton BaP_ honeycomb, oor_u- i

i

Bated, and Z-itsfldoff ett_otu_re ate sotuslly the sims as the slab so therefore | .,;

the loBt_ _eed to _oml_ute the equivalent eondnotivity is not presented here but i

Is Siren in Section 1_, Deaottptton of S_lbro_tinlt. _

' .1

!!,

: _
0 Te

oT 1

0 TO

i , i I ,, l , ,,,

FqnqteDifference TemperatureDqstrtbutton

_zpandiai shout point 0 ueln8 Tailor's series _ot the tempe:atlure st 2

sx o 21 axs o

• l

In e like ni_¢, elpi_diA8 about 0 Sot the tim_e_et_e_ _t 1

_ aT _x_ S T

"" TI " To " AxI-'-J +-'-' "-'is" O (6xa) + .,.

_ ax o 21 ax_

.t

!
:i _e'

ORI_NAL PAGE _5'

OF POOR QUALITY

If ve take • fotwJrd diffe:enoo apptotiMetion foe the time derivative as show_

below

Trt_1, Trl

80 _e

; end substitute into the heat conduction equation _e find

4 pC _ ) = "" + -" :

: 2 2 AxI _x= ,

'_ I_ the thermal oapao/tanee is defined a8

.i

(;t"PCV'I "PC , 2

lind the eondueto== lie

k

[t_1" --'- 8

Axt,1

t

"_i Wehitve, upon eubilttt_ttofl aAd aoae lileebtt f_

* 6

ct I *_;
..q

ORJGIJNPO[v_,L_i_I;Q

, OFPOORQUALITY

ThAi _zpeosJio_ is the bl_is of t_a thereat bsll_oo at eauh _do t_ the eOndua-"

tiO_ Utlotk. HoWo_st, Jot d_odoledJseont to i _idiltion 8_P of sttuetQro ta

wh|eh the helle ttenilfet mesh|Siam 16 not b_ puee e_nduotion_ we asB foam

e_ui_elent oond_Otozs.

Tko maxim_ stable tame Jtep_ A®, whioh esn be taken _Jn be found b_ tesz-

_. cellini our finite diffete_ee sljo:itha so followS

J

_:' ,n+| 11 n

_,, J Ct _] Kt_j T,1 .

.,,_..

..:. sad not/hi that the snaffLe/eat of T_ mule remain positive to, eli A_J. A I_eiz"

_ ti_e eoeffielent would _eaA that the Sreate_ the temperature at time step n, the

_,,,. lesl tlie tespertture at time step n + 1 vhieh _o_ld not mike sense. We now hege

'-°

;.,,, ot

This ozite._is it used tot oil eases ezespt the thetmall_ thitz eeetio_s. To in-

-_ s_e stability aepeeiel|y _he_ the Eijs ate _o_liAea, t_diative oonduetot8, the

_.. tilde step JJ divided b_ the input parameter STAB.

ii

rli.

' (

1
Tptcal Thermal£1ement

Half of the thermal mass of an element is alslsned to sash node. The thermal

elements ate then stmekod to define th_ oomplete thermal ptoteetiofi system. The .

slab and ablstor materials are divided into several elementl by the ptolrsm.

All other 8truotu_o types oonsist of a simile thermal eZe=ent ghioh ate stacked

upon eaeh othe, shatin8 their eomnon node points.

¢onstruetin8 the _twork in this nan_er iutroduees tliiht et#sze there "

lttuetutes of vicTimS ospsoitsnee ate adJa_et_tto One shothe_ e_d ilia it the _

Suttees node. In these oases, the node Is not plsoed in the otter eentet of the

thermal mess, howe_ot, e_ersy is conserved.

2.2 O0X:SOlq WFrUALrrz, soz.zotq tl

i At a cheek on the aoo_rao_y o_ the nuf_erioai alaorit_, the to!_tion was

eo_plted to an anlI_tioal solution, Eel. t, of the partial differential equation. The oonveotiVe hearth8 of a plato of tbioknels 26 i fish both lidos te an-

, aloious to heitin| o_ s slab of thtolnoes 6 i from one side glth a_ adiibstio
OF POOR QUALt_

baokwJll bouiidlul7 _ot_ditl_n, Xf tliJ oanviotivo lloat triililor ooott,lolont, ll_ ti _

titld oonitilit then tht tollowtnl bOQlidley oo_dltto_i itil ilPll_ ih!ee T - t-if.

l "T t att'O

aT

l@ _ ,Oatx-O (centeorf slab)

ax

aT h

T- • -- T at x • + t i (lurface). ax k

e*

I

i I

t

J'
b.-.x ,

TAnMn ,_

Nu 2,

"_ Or'

TanMn -

Np ,.".L

•

Hn Z :.:;,I

,!

• Ftg. 2.1 Inf_ntte Slab Heeted FromBothStde$ -

Wtth eraphqcal Solution FopMn ....,,

J .,_Ii

e

1

i

I
A dijit#l a_=putet ProSrm wss vtitton to find the t6ots Mn end evtlutte

• th# 8nslTtlesl selutlen, Vstiou8 n_bers of tlr, ms veto tlkon Im the infinite

JetieJ to oheok for aonvotSenoe, A tstttfsototy S_lution was £ound sttez' SO

torso _eto used,

J' The test os8_ consisted Of d lsyet of ootk one inoh thiek vith Ja edisb|tto

bI_kildo mode| _Jin8 tlx nodes thtoujh the thtoJulel_, ,k oomj_atison ot this oitle

vith the sz_tlytt_J! solutto_ is presented i_ Fi|l, 2.2. ASteon6nt sppeers to 'oe

quite lood.

mid

4.

•-:-i, •

._ .

?:

?.

3 _

' i

, 4

i

i

1

, I

I

E 
NOTES:

t Slab __-_J'_ ,t,, 1. 6 NOdeModel, Cork Slab _t

_-_._ _4Jt'.."% ; 2. Znsulated Backstde

_.,_a_or]',_"_,.el 3. Adabat_cWall Temp • lO,41e.6°R

4. Ftlm Coefficient • .001278 Btu/ft2-aR

o

i PROPERT! ES

Oenslty 10 lbm/ft s

Sp. Heat .04 Btu/lbm-6R

COnductivity 6,9 x 10"s Btu/lbm-ft-°R

12000 .................... , , ; • , • , , ,

Analytical $olutton

ThermostructuresCOde

10000

i, eooo ",

j 6000 i:_

I! 100 sec.

,[

4000 ,

J

IJ 5 sec.

Ii

2000 t , 1I

I

0 sec.I i

0.0 11 ; '

0.0 .2 .4 .6 .8 1.0 "; I

Depth |n. : I

Ftg. 2.2 Comparisonof ThePmostructuresCodewtth Analytlcal $olutlon :_ i
ORIGINAL PAGE ;_

OF POOR QUALITY

2.S _ZN SKXNIIOD_

1_o_ t JXab tFPe ottUotu_o whioh is msdo of J mitettsI whioh ha! | hijll

Iqe

thermal _Sttduettvlty, the tempotst_o 8radiant thtoush the material esn be ozpeered to be mall tot relJtively thin sections and the host fXQzes ensoantoted

duriq reentry. If this 8radiant is to be modeled usinf the slib option, ve see

that the time step requited to resOlVe this 8rsdient viii be very moil sines in

"-_ *a sill be latje. The small sonars|, AOl , shore one st more of the Eij

_J

time step gill result iu los| Zun times gith very little isotease in eeeutsoy of

the analysis.

_.., Xf, however, we assume that the temperature 8tadlent throush the thin skln

.: type sttue_ure is zero while still allOwiS8 heat to be stored in the structure,

#e san circumvent this time step restriction sines we hate effeotively taken the

oonduetots in the hijh the_al eonduotivtty _tetisl out of the network. The

,_ resultinj slab of mAtezial nov becomes thetmall_ **thin'_. i.e. no temperature

jtadient and lone run ttmbs sin be avoided. !.

Considez the jene_slized slab Ot material end nodal network in Fisuze 2.3

)1

: l The_al ly Thtn

: Structure ,

'i

' !

,I

• O

, Ftg. 2.3 Typlcal Themally Tht_ Structur_ _:

;" I

If we w_tte the equations tot a heat bsl_soe at time step n + I at nodes _ _s_ '

9, _e hl_Te I

" CaT_+s • 1,n

i

........... _..-_:,.......... :x,,,.:..:._._: " .........................._......._....... " _ _"2"_. '.-"_"_. ..................../2'i"i 22"_"/."_.%'_ ; 2.... 2 ii_%%_,-/2 _ . . " ',, '_ 2222.21._2_" il......... : "i;.... _ 2. 122Z
OmCUNAPLAG_E|_

aad O_e POOR QUALITY

rl

csT"s Tscs+(T2K2T+K - 1'8K_. TsKs)_e.

No_ if we |li_e there il f_O tompefmt_o jradient between node 2 and S find add

:' th.e tWO equstionl tosether to find the tot81 enerflF atoned tt the end of time

step n + 1, we have

$Olv/nli foe the tempocatuce ot the thin section, T__j, we attire at the alSoz_-

ttIun tot the thin skin section temperetute below

- + (T Kl - T K1 + T - T

Lookinj st this ezpteesion, we note that the OOnduotO¢ Ira has been eliminated

and will _ lOnse_ oause the _all time step pcoblem.

Con_Ide_inl the seeond law and flnd/n8 a stable.time step etltetla can be

aeeomplished as follows. PaOtoting T_s_. we have

( _ K 4_ _II' I ' illlTJ K qp ,,_

2 s s C2 _ C2 _.i 

The first tet_ in bza_kets must remain positive fez an_ stable tame step so it

tel IOwa that

AS

, (K_+ Ks) ,_1

C_ + C_ e !

w

L

C2 + C_ ,,

', A_ < - ' - •

• -- KI 9 ._

14

5

...... :........................ _,._,=_._._.._,;..:._;_,L_'_-:_ _--_;_-_7:_: _:- x°_.:,e-_,,,

i ORIGINAL PA_. [_

OF POOR QUALIFY

.: Consldegi_8 the f_u_ /lode network Jhown in Pij_re 2.4, n see that the aa_-

: tSoe hSs

: TA.W. "

s

_' J_ 2 3 4

ii .

' TSINK TSUB. ,--.---

.j

i /

O 2.0 4.0 6.0 _:

DISTANCE ':

Ffg. 2.4 Nodal MeshAnd TempePatureDistribution

For Ablator-Sublfmer, _ 

tea_hed the sublLl_atlo_ tem_e_at_e. Addltlo_1 heat added to the s-Jtaoe whloh

Is not zadltted or oonducted away II heat wbl_h subllnes the suttaoe naterial

and td_anoee the s_taoe into the cooler netetlel.

We first _ompute an azGeee lumou_t ot heat _hlch was used to ta_e the sue- .,

taoe uode temJ_e_atu_e eve: the subl/_atlon teaJ_e:atu:e with the _Ollpwin| ez- _"

t

: 1_ession

I

;.: Aq. C_(T_- TSUB) ,

.,_

' 1

l_d th*n _et _,s,

_." TS = TSUB' ,'!

, S

16 ' ':,
,q

As the 8u_rfaoe reseeds, the melt liu0 must also reoede, so we move the boundary

betveen node I and 2, This tumults in the mess in node 2 st temperature Ts

bolus b_ou_ht to the sublimation tempetat_e fsub, Thus, the enersy added tO9

the system must he te]_en into tooo_t.

If we look at Fi$ute 2.J below where the temperst_L_e throuSh the ebletot is

shown and

I

T I

i '

t I

I I , , , , , ,

X

Ftg. 2.5 NodeMovementFoPAblator-Subllmer '_

_ one time Jte_ il AS, we see that if the node boundas'y between 1 end 2 i8 mo_ed

_r _

":_ 2/9 &S e_d node 2 i8 moved 1/9 &S, the _eterial la node 1 t_d node 2 will be

_ _ oofo_letely el/_uted a_tet a |/_eu humber of_ ste_s, flowever, before tee _om-

' _getel_ elJ_t_at6 erode 1 6_d 2, tee stop teheu a prescribed emot_t o_ metetial is

_"" left iS _/ode :[ end _eile its tempe_eture to TSUB. Node $ ,_ote @eeoee8 erode !

17 :. t
.... ORII_IAt. PA{_ _,'i_

OF POOR QUALITY"

nmlber 2, el_dt_e lramsini_j n_des 8:e renulnheted, _he 9r_aemJ flow oo_tinue8

_til node 2 is elLe_ifu_ted aaai#.

/

It tee now oonsidet the otiainal numberinS sOheme, _ee see that tits node _

boundary between node 1 and node 2 is a movin8 boundazy or lookinj at it tn i

another vaF_ node 1 ie fized i_ dpnoe (Eolorien) and nodes 2 and greater are _ ,I

fised (LaO:ftnSian) to a _ovi_j material. Xn this sense, _e see that ene_j_ Is

¢odvOoted st salvo©ted i_to node 1 and this enorSy tenet be supplied by the aerOdynamic heatin| enviro_ent. Referr|n8 to l_iS. 2,S, we sen see that this

amounts to

2A$

es

0Cp 3 (Tsun T2)"

_._ _inoe this ener$y must be supplied by the aerodyna_iO heattn8 and is only re- :

•_. q_i_ed _hen ablatlon oeou_e, 1_e adjust the latent heat of snblhnatlon to ae©ou_t ,.

,,! "fo_ thiS. We then compute an effective latent heat ox ablation f_om the follo_ " t

P inlt ezp_easion

.L" " (L+ )). "

i;;I .

i:

i In the ezpreeesion ahove_ L is the set.t1 heat of ablation Lnef _ te the of_ee-

_-, ti_e heat of ablatio_ f_ox_ the last step and y n is the vol_6 of node 1 at the

last tl_e atop.

Zn appl_in8 this method, heat conducted from nodo I to node 2 and 2 to $

,_ ore. le _oeounted _ot in the aa_benl_fme_ as th_ slab described l_ _eetio_ _.1.

_ _ .

i' An elknp16 of this ptoo_duaee is shc_wn in FiS_re _.6 _or a hypothetieal ab- -

later. ReSults are co#pared to a steady state analytieal solution t'tOl_ _Lef. 2. " i

, _,

'j I_,' ' 1
i,

OFPOORQUALITY !

e

,_ q• 300Bt_

m* e 'l

_. , _00Ibm./fmt

iF ,,, C_ .3oStullbm-. °R

, S _; K-1,oxlo" Btu/_t...c. -

, ,jy. L- 1276Btu/l_. .

!_-,; _-_, " • S460OR "" _lt
S60tlo_ 9.0

An effort wli Made throu_out the development of the EY,IT8 node to keep the

stru©t_o of thO code aS modular is polStblo end to define specific functions

which would he broken off into subroutines, By la late6, this has been sceospltshede And as e result, the program ospebility can be ezp_nded without eztenlive teproat a_*.nin8.

The method of defininj thermal structure tTpee, I. e. slab, hot_eyeomb, cottu|sted eta, feeilitetee the otjanizntion of the proSrsm since sash structure

tTpe, with the exception of the slab and the sbletot, consists of a eonduetor

Oonneottn8 two nodes located at the ends of the structure and oapseitenee, one

half of which is assisned to eaeh node. The slab and _blatot are iimilarily defined wiUt the 6zeeption beinl severe| nodes are plac6d ,ithin th6 structure.

_.?

The main dtive_ eontsins 08118 to the primary functions ot primiry subroutines. These primary functions in tun wall secondary routines which supply

required ilLformatiOn. The structuze of the I_XIT9 code is shown in Ta_._e .q.1.

_ The routines ate arrans6d Jo thit the MAlE controls the ptoJta,., flow, cellt

input routines, contains the time msrohinll iteretive loop and creates the outl_ut

file.

,4 mote detailed flow chart and atreni_ent o_ the subroutines is ehown Is_ i"

l_iitu_e 9.1. _eh 8_broutitie's oallini structure i8 shown in Table 9.2. A full :_

dese:iption of each subroutine is i_ive_ in the next s_©tion.

No blank cotton is used, only _d co,on arid it's lo_ation is shove in

Tible 9.$, b

; 20 '_

.i

_t
i I II IIilllII I I -

MA_ X X X X XXX X X X X X

PP.OP X

INTP

DATA1

COMPCC x x xx X x x

LO_

kSilUB x x

DATA2

PlC'I'OR

, COI_M[:'

" NOI)_ x

iVI_AC X

_DIST

:. TMsTEP ,,

' 1N_EO x X

SUSlqt

._' SRIPP

CO_ X X X

HOI_Y X

PGAP , x

STAND X X X

TBINS X

:. TABI_ $,2 Subroutine Callin8 Structure

i i

4

' I

_,._ "'. _:!':I

,1

, I

°;
'i

OFpoo_QUALI_

-; EI',_VI"R X X X

GAP X X X X X XXXXX ',

INIT X X X X X X X X

TAX x X x x

TIME x x x x x x x ,

_ _ x X xx Xx x

-.'_ LD x xxxx x xX x xx

_ NODRS X x x x x x

i et_ x x

CAc x x x

FIC'I' x x x x x

StIBIJ! x x x .,,

TITLE X X X X X X X ,_

t_Jl_,g,S x x x x x xx xxx .

SAVE X X

_-- DTA x x

CSUB x x .

=' TITL2 X X I '_

FACT X X X X t _', SF x xx z I

Sub_outlne PROPCo_talns No CommonStatement.

I,

'i

TABLI_S._ Named CogwOnStatements And Sub_outttse Looatlon= ,_

/, !i

/' I:

k

: l

• t

:i

_ r |lt

iw"_"' + 24 " I

!' " i
emotion 4.0

DI_SCRIPTIONOF SUBIIOUTDqBS

'e

This section desaribe8 the 1sis driver and the twenty three 8ubroutifiae

Y

that oompeise the BZIT_ oode. The description presented tJ aft eve:all deJe:tption vhieh may inolnde the subroutine function, method and pr0itan losie,

4.1 MAIN

The main driver of the I_YTS node oonttola the major funotions of the pro-

_ |ram and also eontains the output malls. Loli¢ for eallin8 the major su-

_ broutine8 is found in this part of the prosta=. Constants and 00ntrol flees and

Z

it_ittal Values of tntesrated heat lOadS are first Jet tO their pteeeribed

values. The interaetive input routine L_I_]_0 ie ealled. Then initial temperaturns ate eat and subroutines DATA1and DATA2a_e ©alled to obtain the material

7

- prope:t_ and e_viron_eflt data. A oall tO subroutine NODEsate up the thermal

net_to:k of nodes, eapaeitora and conductors for each body point. A ull to PIGTUR mends a depiction of the structure and node location to the line printer.

-_ The temperature inteitation starts with the time loop after further initialinatton. Output and units eon_ereion take plane within the time loop which

is eontroled by the print flaB NM. The adiabatte wall enthalpy, film eoeffieient and pteeslu_e iS found from a call to HI_ATN. If an ablator-seblimer is

utedo the ablator _ropettiee ate found from two calls to SUBPR. Valnea for the 1

oonduetota and eapacttota ere ooenputed from COMPCC.The time _tep DTSM i8 eel- i

culated free arability o:itetta and the user supplied psrameter STAB. . I

J

!

f Tenperat_es for all nodes in the structure are oomputed at the end o_ the tifne

r

step by subroutine COMTMP. If an ablator is called for, the secession and

renu_berin8 of the node and oondu©tor seqr_enee is done in ABSUI). Finally, st

' !

: L

25 _
4,3 StYBROUT_I_IYlTP •_-- I

Thls sub_outlne Ilnea_ly Intetpolste_ in _Ithat two or th_e di_en_ion_l

a_raya _ot naterla! p¢ol_ortles a_ a fun©alan of tem_erattt_e o_ as a _unetl_._ of

temperature and pressure. The stimulants X, P, N_ Y, are _aspeottvely, te_pa_atu_e, pressure, table _unber and the _etu_ned property. The subrou;ino interpolates in both nOnova_iate _nd bivatt_te table8. Ablatot-snbllmer properties,

enblhnation temperature a_d hut of _ublimatton, a_e not found by XNTP but are ./

found by' _UBPR. Data fat tht properties are stored in the array CCIN.3") fo_ the ..

monova_tate a_tays and CCIN.$) and BSVIN, TT._t,) arrays for the _ivattste tables.

The _r:aflaement of data in the at_a_s fat the t_o t_pe8 of tables _:e sho#_ In

tlte follo_inf etampleJ. Data fo_ the aohovarlsto tables are 8hov_ in Table 4.1. .

l "

t,

(
_- ORIGINAL. _r,,_i_I'Z_

OFPOORQUALITY

C(:(N2)-------0.0 , 1.39R-S--- CC(1%3)

CC(N,4).-."-460.0 1.$_E"S-'---CC(N, S)

(S(;O.O 1.J)4R-J *

ll _10.0 2.JOE-J I!

CC(N, 10).,-.1000.0 2.50E-5----CC(N,. 11)

TABL_ 4.1 Attsellement of DBts FOr MOfloveriste Properties

Data t_t the biva_isto table ate shown in Table 4,:2.

Iui_ially a shank is made O= the ei;n of CC(N,2) to determine if the data

tot table N iS monovatiate or bivariate. It the siin is positive, the data _s

seatohed to find the two temperst_es to interpolate between and a sttatsht line

inte_polstion is used.

It the siam on the variable CC(N,2) is neaative, then a bivariate table is

assumed and the independent _ariabl© assay, pressure stored in CC(N, 9) to

CC(N,(-CC(N,2) searched to find the in0tement in the presses direction,  ̈

The temperatures ate then snatched to find the ave temperatures between which

the iute:]_olation is to be peats:mad end the _ressure amazement applied.

Fi_II_, with two inte:_olated values found in the l_ressute direction, the temperatuxe in©resent is all,lied and the final value is oonputed and returned

through Y in the et$_ent.

4.4 SUB_OUTINSDAT_.1

Subroutine DATA1 finds the matezisl ptopert7 date tot the material8 8ivan,

tee,tuberS the restarts1 identifiers, J_TS(I, LT, IM), and stores the material pro-

, pett_ data i_ a_taye to be used later in tho thermal analysis. This routine

" first reads thtoujh the data and picks out the data tro_ the materiels used in "

: the model Material identifioation nubers are then chanjed to the order in

• hi_h they appear to minimize the stotaje requirement in the CC(_,7) tied.

B$1_(:t. J') arrays.
OFpOORqU_l.l_

_ =.=._._ . . . . ._._._._

• ,_®__

• • * • 6 e • 0

ql, 6 • • • "

:;.,i ,%

'_',.i z zz_ g
Wheh a mltotiSl is found Or matched to the matsrtll spe0ified_

MAT(IjLT, ZM), this ro_tine _eado the title ottd and next let of ditl cards 86-

* oordinj to the number Ipeeified. The next three seal a_o then.tend for a total

of fo_ tables. If the fttst entr7 in the independent at_ay of any table is

no|naive, the table is aiiumed to be bivatiite and a different set o_ lento is

u_ed to stets the date, Data for the memorialise tables ate stores in an arrays

CC(N,3), the_e N i8 the table nuaber. If the data Is found to be biva_iate,

then the independent variables a_e stored in CC(N,_) arts7 end the dependent

variables a_e stored in the arta_ BSV(N,_,[)_ Table 4.6. Bach materiel ptopett7

set in the propetty file must appear in the prescribed order, density, specific :

i heat, conductivity, and emissivitT. Units fez these properties must be entered

1

i in BT_'e, feet, seconds, pounds mass, pounds force, and deAtees Raakine.

t,

Fez ablatoz-subltaet material, the material property number of the fifth

1

i and sizth property is entered on the title eard. When the same materiel /den,-

l

_ airier number is _oond, the tempsrat_e of subl£mation and the heat of sublime- ,

!

_ tion aa a function of pressure is 8ires ae the fifth and sixth property and

stored in the azray C(_(I,J).

' 4.S SUBROUTSCOMPCC

i_i: _ubrontt_ COMPCCcomputes the values of the conductors a_d oapaeitora for

ti_'_ the network. The oapaoitot C(I) and eonduotor CD(I) values to_ the slab and abI

,,

later St_¢tt_e types ate computed directly in COMPCC, Capaoitot and oond_otot

t

values for the other sttaotute| are found f_om routines sailed face COJ4PCC. !

Values for the oonduototi between the nodes tot the slab and the ablator are

tend b_v eal©_latin| the distance between the nodes Stein the node position I

_tay, at(I), and then findi_8 the oonductivit_ free the aveta|e temperature J

i J

beteeeft the _odee. Condhctot values ire _ound fro_ the etpteesion I

29
ORIGINAL PAG-'I_IS

OF POOR qUALITY

Zn the SdmOloop that the ©onduotots are computed, the ospeoitots are

found. The Uses of the material botgeea the /redes is oomputed and m_Itipliod by

the Ipeeifte beet. Siuoo on half the mass iJ e|soolated with etoh node, the _'

oaptoftanoe value is divided by two end half of it is seamed at ea©b node.

Cspaoitanoe value for eeoh node is found from

pjvcps

CI

2.0

J=x

• where the s_nmation on j is On the t_e_nal mass adJaeent to the node i. At this

, time, the mess of the 8truot_e is also oomputed end stored i_ _K_.

POt sttu0tu_e othe_ then slab type, SN = i, or ablator, JN = 7, COMPCC

_.

_ _ b_enohes off to the followln| tontines, Table 4.$.

i° ..... iI

: ' _truet'_e

i,. ;rN Type Subroutine

2 _xDIATIONGAP Rf_AP

S HON_MB ItON_ :

4 q_OltltUOATI_) CO_

5 Z-ST_OFF STAND

6 _'I_IN' ' SXIN TH/:NS ._

s

TABLE4.$ Routines Fo_ Cofbpotln8 Effeetive ConductanCe

Before bran_htni Off hewers,, subroutine LOADis eelled. This routine takes Information, (i.e. jeometry, materials ete.) from steed common, LD, and loads it

Into the erased eommon, 0AP, The subroutines _alled _ben _N = 2 thtou|h 6 oomputs the 6ffeotiv_ theist oonduotenoe, X_, m_es ZN, and ea_acitanee values (_P1 i

and C._ end returns these values throuih the na_ed oommo_ LI_. Subroutine

,i {_OMlSCCthe_ sums the _apeoitor val_ee in the C(I)s end the mass XMAS. The con- i

' duster is thee defined in CD(I).

30 ii
4.6 _BRO_B STeUCT

Sub_outino STRUC'_is the routine thee htndle8 the .sttuot_re filet.

" 8TRUCFopo_s _ho sttuotu_e file and either toeateJ 8 spootfio ettuttu_e

that alresd_ esiJtJ in the file o4 odds an additional struature to the file.

P J_ge_ etrutt_e hail 8 oor_espondinJ iltru_tu_e number, and a two line desottptio_, alone gith the sttuetu=e _sriables.

4.7 S_BKO_ _

Thit _outine tokes date from the t_med oo_on LD which desottbes the Seonet_7 and materials of the tollowin8 stru_t_e types ii

RADIATION_AP

:_-STANDOI_F

Ta_ SEIN

and loads it into the ned eo_on GAP. In _ddition, the temperature of the

upper and lower surfaces are let _or the material p_ope_ty lookupt and the radiation eondn0tJnoe, The material tdentifie_ nunbers MATS(MP_I_,I) i_.e loade_ !

into the M(I) array and the siz 8eomet_io psr_etets, XPIMP,IS,;), are loaded :

into the _111 array,

!'

4.8 SUnO_TI_ AB_UB

t

Subroutine ABSUBprovides the folio to ptedtot ablatot-sublhner teoeililton, 1

,,

the _ods fpa_in8 and rite effeetLve hett of ablation. This routine is eel led by }

t_si,', after th_ snblts_tlon temperetu:e t8 retched, lblStot variables are jpilsed

throne11 the n_med oonmoft _JUBLM_here the followtnj vartsbleJ are stitntfiotnt.

I

I

;

I
it"

I,

!,: ta_ - SublieAtion re=peter.to ORJGJP_PL/_I_ _ I

r!" _ - LntSAt heat 0£ |tlblimotlon OF POOR QUALITY

[,: ]11,)1 -£fteOtlve host of sublbnotlon

P EXCI]T - I_xeeilJ host over time step

iii RICI]SV - l_xeeis beet free lOSt time step

,. _d)V9 - AdVooted _ost from previous time step ,- ,,

l, TKSY -" Time it gest itezation

I'

Ii the foliowi ,FirSt,n8 thiexpression s eoutino computes the diets_ee of tbo surfioe teeession, AS, by _

ito_ad uetnj the followidj wit|able PJmo!

. i] i .

1

T_aS 1_t (IC} i

_. CO_XCmNT acl (zc) /

ADX_ATX¢W_L_PY SAw,(XC)/

,,_ssuns .... _xEsl (zc_i

i

T_o lstSeet number of entries in those tables te dimensioned by the oommon _nriable NMENand outrentXy eat ¢o $0. I_ I s_aroh of the file does not reveal a

matsh of the body point nuabet_ a messeje is l_riuted, CAHHOTFZND BODY POINT,

4.10 SUBROUTINEPICTUR

Gubtoutine PICTOR displays S des_ription of the structure for A Spe_ifiO

._"i Body Point in the fo_m of a pietute. PICT01t is aelled i_ the E_tlT8 ptoItJm in

two ways. The first way is from I]_I_]EO, rlsht after the stgu©ture oj_ a Body

i Point tS defined. This is a qutek look pioture, that al_Peare On the interaettve

|

'.I de_t_e, and is used foa_ detetsninin8 if the Ittueture defined ie zeslly the _.

,i

;_ structure deslted. If not, a_ opportunity la allowed to _edefine the sttu©tn_e

fat the Body Point oOrreotly.

The other way t_ " PICTUR is called Is from MAIN after the node _truct_t_

has been defined. Thtl picture ie written to the Output file a_d oottespond8 to

the specific body _otnt that te beth8 executed at that time.

If an ablator-eublJ_e_ st_uctt_re is _hoeen, then addttto_l emile of PICTUR

_tll O_eSLt eaoh time S node i_ d_opl_ed f_om th_ structure. For each ,,ode that

ia dro_ped, a ptott_e _ill be written to the Output file that desetibee the

atru_to_e of the body _ot_t after d_o_pin_ the node. An el_m_le of a ptetndre

"; made by PICT_R ie lhown in 1_i8, 4o2, It tneludee • J_ictu_e representation of

" ".' the Itroctt_re of e_eh layer et_©hed to,ether and also ln_o_matio_ ttke the *_- '_ :i'

,_'_ tertale used, the. structure type and some of the dtmenslonl,

..... ;,. ,_/__--- _ ............................................................. _ .......... ___._ _.
-® ®,+

-._ + , +_

•III +_I OF_lql_tn+r'l=l_ll;NFF+lqtLl+lH_l_gNlSllllllF++IMl+BN+l+l+llllll+lilllNlll ..... ...r_..._.;. ..... , •

0,010000 |_, AL,PO?_)'T+ Z

V V +- •

:, _ V VV VV VV !

V V V V V V V AL,_07_-I'(_ CO_]_II_AI'ED O,_,_OO00]hi

++--+' -V V V V V V V ................ _ ....

., V v v v i

................. ;;;; .................... +,

, !

• ; IIII _1, O++l_lllml_mlSBllmlllmlnlllmlllS,l_,lll_lUll_nml++mlQlllllll.illll ..,_._._

i ++

!,+

:+_..'i Ftg, 4.2 Line print, el, Representation Of Sample Structure "

ti' PrOmSubPouttne PICTUR

i TIZ) Satubthe routinened COof M_M the Pitlimethesteptubt|iout| vanm_the .ewhOicldh ©tenIlpoeul_lattesu:e8 the TO( neIw)_ tonopelploretLtont_oeo

_:i C(]_), i_d oondu_to:s CD(I] uslnll the heIt balance, _leetto+=2.0, It ea(=h of the

li ntures. odes I. The the fiIttlttu_tup_ie. tt of Twothe type subsrouoti+ne1oilioit dereveotedusedto to8ettLeon8mputoup thethe heat tempehi1- rs- ')+

+i_i shoes sad the bout_dilty eondtt/ons for the thin skim struet=te t_pe if I thin '

_+;+ thin section _, tdJJoent to the node in question. The ,emend ps,t pet.foams holt i

_i bslsmOOl tot Ill Other tttuet_tll tppo8.

• &t the belinnlu8 of the routine i cheek on the fill ISBI_ is made to deteP- +

+

+i' +

mine if thin ihLo lo|to ti to be ulod In_ _ithtn the strmot_xte, if not, the

10810 flo_ sees diteotly to the ottntstl heat bllamoo for etoh nolo, TO dote ri

' mime If i node is edJ_oent to I thin slim elomento I oheok ti made on the con- !

,, I

du_torl sf_ eithe= side off the ttod_. If a oonduoto_ value is Ii_estet thin 10',

then the thitt etlm holt bttinoe tl to be used. (A oonduotot valse of 10 xe 18 I

let in s,brontine 1111N$1.

l'

Losto is tnoludOd to determine if the nede Is above or belo_ the thin stin 1

I

1

i
i,

t

i

i

, JeGtlon ot if Che thin skin soot/ell lien o_I the suffice o¢ is the iJet sttuotll_-

el t_po a_d eoq_tel the idlmba¢io baunds_y oondltlon.

Tile etladstd he|t bslenoo, l_ootio_ 2.0, Is used for 111 modes other thei_

'I

fledge SdJloont to the thttl ekLn settler, s. A Oheoh is Udo to see i_ the _odo in

_ueotlo_ tl f luf_eoo node oe if it to tile lllt node. I_inelly, the temperature 'd

of the smeteee nbde is chocked to moo If it his exceeded the sublimation tomp&rltute foe it sb|eto_-sBbllmor steuetute. If thle Is the osse_ the eteoee beet

to calculated.

ExcHT(TIll. . Tsu ).c,,

the fli_ NAB set equal to one and the surface te:petatu_e set to TSUB.

4.11 SUBROI_ZNRNODS

' Stsbzoutine NODE is called from MAIN to set up the node1 _etwotk d_nd to initialize te_peret_eee. ._

The losle etatt8 by t_kln_ on_ structure type at a tame be_innin8 at the

du:feee end wo_kln| does. A check is made on the sttuettLee type, IST, to 8ec if

it let elJb ot abletor-sublJ_net. If a slab o_ eblatoe-subllme_ is _o,nd, '.t is

divided i_tO 1myers end nodes assiSfsed as follows. The leye_ thickness is _On'-

trolled by the input pe_amete_ DT_M ghich divides the tota_ thickness into

layers tO |ire 8 stible velum o_ DTIM shown below

./D'rZ i

q

Cp

' i

i I

,,. The _ber of la_e_e, conductors, ate _o_tsd _om

NX-.--I- l

DX ' i

!

1'(
t

eheee II te the thioheJJ of _he ela_ o_ i_letor_lubl_e_, I_i_ll_, tl_e le_Itl_

of eioh e_nduotoe in the alab il found tram

f

H

?K.-- .

HX

k'

At eltoh oonductoe, the erodenumber at the upper and lower end of _ho ooltd_otor

ka stoned in the L(ICj3) ateaT, the initial teepotatutos T dad TO are Jet and

the node positions XX(IC) ace eJeleued, lethally, at the and of this eubeootiM,

the network issformetion is ,eitten out which slam8 node spaniarD, |ttuetue tyro,

material type_ ¢ond_otor nutiborj and node n_mb_r8,

4.14 SImROI)TX_qIVF_AC

8ub_outiu VI_ACcomputes the jeometri_ view feoto_ of NN two dimensional

s_rfaoee aetna the oilseed eteilied method. The named eolsmou 81_ oontain8 the

. area, AR(X). e_iesivity. EPP(I), view fanfare P(I,_), a_d ares vies teeter produ_ts kSle(/.$), of up to ten sUetaoee vhtoh _ey see eeoh other _ithin an amainawe. Coordit_ttt bf tht end poiett of straight |ins s_fteea area contained in #

the _ slid Y_ atra_8 in the _med memnonFACT. T_o nested DO tool, s, I end _.

cycle throt_fl_ each surface. The area of suntans Its to_f_d from the 8ub_o(ttttse
OF POOR QLIALrCV

DXS_which fines the di_telioe botwee_ t_o o_d p_inii 8nJliinl that the i_tta¢6

tis sttliJht line eurt_eo.

: Tile vitw fasts: usin8 the crosses streets method i¢ lhown below, lieS, 5. ,

Given two lurfioes shown L_ _i8, 4.$.

IX, -3

L2 °

Fig. 4.3 Crossed Strings Nomenclature

J 2 At

In Otlle/ words, the View fsotO/ from surface I to 3 re equal to the ienlthe

of the cioieed etrinis sinus the _mcrossed et:inie divided by twi_e the ires of ': I

I

s_tfece I

Snbtoutin_ iilli is ©ailed to find the lengths of the o/Oiled and elicit.lied i

sttinis, The variable SUMilil the lul st the view factors Of ot_ 8uiZaoe _o ill

other su:fe_ei lhioh should equal I but te not now printed ollt. .

il

;

l

!

4,1S ttUBR#)UTZNEDIeT . ,,

Subiouttne DIST finds the distenoe between tie points alvin their two dimeilsiOtll cootdi_ites. The nitied cotmon IIACTeontaiiie the eooidinetee of the " i.

" i

end points of the line salients which make u_ the tedietion enoloture. The > I

ooordioite8 8ib eonteliled in the viii,i) led ti(I,i) trials llhele the I isle-

" eetllt in the intfice nmbe: arid I is eqiil to I st I depondinl upon _lhteh end i I

I

Of the 8u:lece t| cot;sideled. The distsnoe totiull l

D- Xi Xl + (vt- I

l

36
OF POOR QUALIT_

_ • 4.16 SUBii_T_B TNS_P

Thlm sabto_tlno detatultw8 ths-st|blo tiros |tep for the ozpllolt tSme i=-

_., toStation of the InotST balinoe it esoh nots. J_ot the 8¢nerl! Olio the ns_tmum

stlble tif_e stop for t11o nodnl _etwo_k sho_ 1_ Fllure 44 is

p

_ A_ <...-CO (,,I)'c• (x) CO' (J.:i) 1MIN,

• i

i

i

I+!

if'

I

! Ftg, 4.4 NomenclatureFor Slab TfmeStep Calculation

. _::

_ 1_o_ the _Ist vho_e t_e _ode lies o_ th6 _t_ttoe. tt_e ¢ond_to_ CD(_-_) t8 tei'

.j_ _I&ood b_ CO_V + CRAD, the _u_ Of tlle ¢o_veltlve and tadlJti_l oollduotofs. For

_i'i ' the .diabatiO b..L_,ll. ,h, .ondueto. CD($, i, .st to,,,o.

.. 39

.i!

'!i "
OF POOR QIJttkl°i'_'

Tho t_In uki= |tsbility _eqt_teementfo: the ©ofd_ij_ItiOn shOWnii_ Ftjuee

4.S

KP1

Ftg. 4,6 NomenclatureFopThtn SktnTtmeStepCalculatto.

iS found 1_ iino:inJ the ve_ hish oonduetot value of the thin skin seotion. In

8enetal, the stabilit_ requitemeft to: lode N1 o_ N2 is +=

,+

. C(N1)+, c (NZ) [ i

Ae-< CD 1) + CD (KP1) ,] MIN "-**)

,._

For = thin skiff surface node, the oonveetion a=d sediation cofdUeto=| are ineluded in CI)(i_M1). l_or the adiabatic baek_a11 CD(I_P1)= O. :,

Afte: the minis= Aeis fot_fd, the :esultin8 time ste_ tk divided by the

l_ut pa=ametet STABto ifsuze stability.

I

4.1't SUBROUTJNBINPOJ_)

t

_ub_outlne _iP_l_O Is the iftertotlVa routlu that let8 up the isttlal oozt-

. i

ditions and defies the structure for each Body Point to be rue, a0ke for the " i

' I

._ FILB NAMEof the file that contains the LANMIN (MINIVEr) data tot each body I

_ot_t. and atk8 to: the FILE NAMEof the file that contains all prevloully de- " ,

t

fi_ed structures, (NOT_= One of this tile is oj_ttoUl) Thtt subroutine also

• i

.I

t

+ !

1

._J_._-+_ +, ° +++:.....o+.c-.;.+++++_".,:++

. . ',..'_..+-..,..+.+.'.:+_+(;y'+++ ,o.,+ "+..++0. ...... .., ••++...... _+o_ ,,:_.

%........... :_........ + .+,_.,+_+++ ,+.++.o,o,_ _-._.o+_°. •:_._ +:.+.+_ ....... ++ +

+..+,++".,+.++.

,';_........ ,.... +++.__. ¢...°.+ '+_.'.\H. +...... ,+. +. .+ ....... , __.+ ,++.°+++,+.?++,_

,
a#k| foe the PgLl_ NA_ of the file thJt is t_ eo_tlin the IglITS o_tput,

_e idittdl, fttu_l and deltLtlmes f_t thJ outpl_t, i):l_t see sgto set hate.

#

The oouttol pa_zmOtetJ may aide be ehsstged at this point if tha QJez dositel,

Othe_iJe, default v_lue| _te need.

The number of body 1_oint8 to be ro_ iJ then defined and the conditions fat

each body point are defined. FOr each body point, aft initial and sink temperatt=t ie defined as well as the 8truetute of that body point, The strnettsre for

a body point may be chosen fto_ the sttnetute file by sttnotntt number or by

ereatin$ a new strnettste definition.

'. Crest/aS a new ettneture is done by layers usi.- structure types, material

number|, and dimensions, b_tet the structure Of a body point ie defined, a elmpl6 pictuze of that Structure is displayed and the etruetute of the next body

point is defined. After the structure tad inital eondition for all the body

points are defined, D4PGSOreturns to MAIN.

i

!

4.18 aUB_tO_T_I_ ffOBPR

Subroutine SUBPR interpolates in an array of data to find the temperature

and latent heat of sublimation aS a function o5 surface Static pressure as suppiled by LANMZN. These propertiet ate stored its the CC$ (N, NMBP) array found

in the named _oe_on CgUB. The data i8 sto_ed in the follotinj matures

CC$ (N,1) - N_ber of Z-Y pairs in stray

CC_ (N,2) -1_irst independent variable (Presents)

CC$ (N,_J) '. l_irst dependent variable P

CC_ IN.4) - Sseo'nd independent variable

_: CCS6to. (1%$) - Aeoond dependent ,ariable

I

,t

The ro_ttne _ttst cheek8 to see if the vJlus of the aejument, I, It out of ranis

J,

', 41
OFPOORQUALi'u'_"

O_ th6 independent varijbles in the table, and if so, ssliB_s the correct lubscripts to ezttsp61ate off the end of the table. If the value is not out of

ranije, s search is conducted to fl_d the two independent v|elsbles which, bound *

the value and a simple s_tsiSht line i_tetpoistion is performed.

(

Subroutine BRIPI_ finds the radiation intetchsnse fsetor,_, is sn enelOA

sture $iven the eteas, emLsslvlties a_d the 8eefnettie view ferrets found i_ VJ_AC.

The :u_med _ommon SI_ contslns the i_otmatlon in AR(I) (areas), SPP(1) (emi_slvl- "

ty), and F(I_) (geometrle view factors). The product of the area and zedleflt

k

Inter©hesse fetter is Stored in A$I_(I,$).

_ The method used in flRIPI_ is a network method which is solved by an tte_a-

;_ tire technique for the radiostty between each of the surfaces. If we conside_

the network in l_isute 4.6 tot an enclosure with three surface,

:..

, I!-

|_ . p

,: A_

" il

_: _ / \ *3 ;

' _I 03 '

_ A3r3.1 , t

_ ' Ft{I. 4.6 Networkfor Typtca] ThreeSurfaceEnclOsure ;

--J" * I

_._ we see that

_!-_"' qNET,1 mk_m I F,1kA'1(Jk" J,J) f

! _.'_ f

• !

_ .._

::: - : ,., :..,. ...., ,:, - ,'., ,. o • ¢. ....... :",,".,*""," T'-'O "','.,, .,, ":°.. ' ,.., ,, " " ,: . ::(,. ' -,:,:k,,' • . . '*-e",:,.:-'.: . :'. .:i%J':':.,';;.:L:!.
;. o, OF,Poor Qu^ul'Y

_,,1A.'I

J qN[T"_" _ (Od" [bl) "

'1

E_uatin8 those two exl_eelsions and by us6 of some alaebtaw we see that

t

" dk Ftk

:" "1"I " _ Eb'1+ I " Pl F,I,1 kCJ

" is the ftJu_! express/On fo_ the zadtoslty at =ode J. Ostnj the followi=8 tteratire relazsttOn procedure

" "111+t ,,I - 11- B)o + _ol,

k

:;: where the telsuttos _atametet, j3, is ty9tca11:_ ,J_ eonverse*,ce,

+,

I

_; n jn-I 'J,i" ,'I i _ , < .001

"_ GREATE - ST

_ is found within ten Itetatlons for the structures desctlbsd in this code. Afte_

the .tadlosltles are found, the tadlsnt InterChange area factors ate found from

i'

I

(Ebl " Ebj)

whet6 the black body emi,sive power Eb is essiEned arbitrarily.

4.20 S_O_T]_ _3_

i.." This to_tltle dete_i_es the e_fe©tlve thermal oonduotlvlty, thermll _ipsel-

: ' ty end ,,ass of a oorruasted _anel section constd_ttn_ heat transfer by ©otld_ttton and radiation throu81_ the _snel. We first consider 6 mall sectto/t ot the

!_. _ort=asted panel shown in Ftaure 4.7 ,

_ 43

L.

:

' 1
_ I 1 F POOR QUAUy_,'

m,

d

Ftg. 4.7 corrugated Panel Conflguratlon

and ehOose t_6 _lanes of sTmmet:y end sssisn the thzee nodes 1, 2, a_d 3. The

lleometti_ a_d material parsnetees ate oontsined is the _amed eommon OAP. The

.!

th_ree material thielu_esaes ate 1_1, ?B2, THe, while materiel identifietJ Are

COntained in N1, iil2_M,S. OVetJll hei|ht is _ aztd the pitoh is P. Temperatures

at 1 and 2 Are S/Yen as _ and T2. ?hess pa_smeteti ate aelisned thei_ teepeetL_e variable names in subroutine LOADwhieh Ls celled im_ediately before ¢OR0

i8 ealled. The temperature At S is unknown_ but jiven the temperatures At i end

2, jeometrte and thetmophysioal properties, the tef_erat_e At $ oan be solved

H

by iteration. The equivalent netwot]t _or this tystee oonsistt of i oond_otton

_eth _:on node 1 to node 2 passin8 throuth node 9. In addition, there is :adiatime heat ttantfe: tt_ node 1 to 3 A_d fe:adiative heat transfer _fo_ 3 to 1.

,i

The eadiAtive enelosu_e _o_ the upper, lower, and eofruSated st_.uot_te it

modeled usin_ three planes shown below

I

f;

"_ I_tg. 4.8 R_dte_4o_Enclosurefo_ CorrugetedPens1 *

'_ 44 :
OF POORQUALI°iY

Pleae _ i| s pJ.t_o 6f aymmetty tm Whial". the omi_Itvity is ze_ J.d mll lx_oident

tJd|ltion tJ tofleeted beok i_to th_e #_olotut6 whioh is the emitted mnd tefleOt-"

' od rldiJtton from the roflootod onolosure 1', J', 2, The ooordiutet of the +i

pllnlm 1, _. J ate lot e.*d ltOred in the ZX (I.3) lud 1_ (I,_) IttlyS whe:e I ll i

t

'the pleno nunbet end _ t8 1 ot _ toprosenttnj the e.*d points. The subroutines i

t

VItAe 8.*d SRIPI_ see o,lled to define 8eoneteio view fietots end sres-redittive

: i.*tetohsqe fAoto_e, A$1_ (I,7), letom those re,tot _di|tiOfl ©end,©tot| tee !,I

J

formed ftm the followinS expression

I

i

e i

Ku - At_tj o (T_ (Tt _ :_ 

• , , , ,..

,I

; I

i shete 0 " St_fan Boltznen Coaetlnt '1

"I I

.t

The equivalent n_two_k fo_ the total beet transfer f_on sutfaoe 1 to _ is show,*

_.., Ln l?i$_e 4,9.

!.

l,

Kt _

1__1 2KR_

I(' KR_ i

, Ftg. 4.9 CorrugatedPanel Equlvalent Network I

i. The three eoflduoto_8 JLnseries Es Its |j 6nd Es J[s re,reselL the _ethe .

t

4S

!.

.,..-o_,:,,_._.....,......... -o.o_o...-.......... . ._.o.-_,.,..',_;:_._.,_ .... . -,-.,%,...... . ..... .,,,.. o_....__. ;........ _ -,_,......... _,...,,__.,_,.._,_
II I"-,'C4I_ !'C_

OF POORQUALIW'

thtoUllh tbo u_por a_d lowo_ ,urtloo_ a oontJot _onduotiioe whloh tot tho

p_o|a_t timO lJ met ¢o 10' timoa tho a_aa_ Ind tho oo_duotio_ _ath throujh tho

Oo_eQllltod IOotlou. Th_ o1_Oeslon fo,t thu thtoo oonduotofs i_ sotios II Uled * "

to tara tho oonduotOrJ ttom nodo 1 to J and 2 to 9 as Jhown balow

]

KIK2 + KIKs + K_.K_I

and
i_. ORI_+_',___':_/_i_ .!.,:ii_'

OF PQOR(JUAL|'I_,

When the t¢_pofit_¢ T= le sut_od tO_ the totll belt tr=nstef pet u=tt see| of

_, pi_tll ill (_oeputed

' , iT_- Tel. (ct + C4)

; , q I L ,ll el __]

P2

' s=d the eq=i_=lemt eonduetivitT i8 found f_om

:, Q

r XK"

i T1 " T=

: h example etse for llt elu=intu ooreujated panel aud the equivateut the=mat oonduotinee is showu iu l_ilu=e 4.10.

,I The the¢nal capaotteaoe is computed from the hess ot the ettuoture and

i split in two equal parts a¢¢iined to CAP1 and CAP2. Total =a¢8 ie round end

'_. scored in ]Bf.

o,

i

4.21 9UBRO_IZ_EBOkl_i

.!

i

_ubfoutiue HONEYdetermines the e_te©tive thernal eonduetivity, oapaeity i

a/sd =aSl of a honeycomb oote ea_d_tehed betweea two layers. The ieomettio de- :

flnition Ittd =ate_lil ide_tltiet8 are oontelsied .in the ua=ed co=sell GAP.

Temperatures of the outer layers TI a_d T2 are also foo_d in GAP. Cell dime_-

elone ere liven by T_, the overall hei|ht, arid H the dietatiee from one flat side

L,; tO the Other fo: a hezajon_l oell. The dietanoe D is the piteh distance shown

li i/= 4.11.

_is_e

,! J...., /

!!_!_ Ftg. 4.1i Honeyco_nbCell Dimensions

t
p_ IZ_M "1"I_:C::I-.IIf",q_-,.

ORIQINAL _A_t.: If;,

OF POOR QUALIT_ I

t

.1

3"--i"" 1 ,

CORRUGATESTANDOF D F

10-t ,_ ................,

" _ ! t : :

• i t ! ., " '

OM ................ T_C_) . i : " : _!

.-.......... '." I! ..... i....... _: ........."-.......... ; " I :................... "_0"..............

60_ '

, lO-S •. j glut l _ . n , n ] m ,

0 400 800 1_00 Z600 tO00 2400

'r1- 're¢°R1

!

;", t

Ftg, 4,10 Corrugated Structure EfCect_ve Thermal Co_ctuctance

4e
OFPOOR_JUALI'iY

The numboe st sells _ u_tt et6m, the nmubee of ooll walls, end the volume of

the msteeisl makis _p th_ Attastuea 6re ©omputed.

Holt ttS_Jfe¢ thtoujh the h0My0omb is ¢sJ_od to be bF oonduotloa tlteoujh

,d

the sots sad eidistibn vltbin s|oh oeli, _soh sell is assumed to have six sqael

_ vs118 whLeh t8 shown in l_ljueo 4.12.

i

_J

,i I III

• _t _u_ 9 O

! 0 I

i_; ENTER 3 0 i

!._ C£LL"_

, , i II i --

. _ 0 ....

' / Fig, 4.12 HoneycoCell mb Hodel

,w.

_ _ Tem_etatuzej st 1 aad 2, I"1 tnd I2 :es_ectlvely° ate Jlten. Tenperatuare It 9

is solved b_ teltxstton. Radiztiof_ from _odes 1 to 2_ 1 to $ Slid $ to 2 iS I_Oltt-

_ _putld by sssuml_$ _ _le_ _s_tor st .I t:o_ Su_tll6 1 to 2 lud .9 £tOn I to $. ".

i:i ' This iS done in lieu of usin8 the Crossed st_ln8 method (sub:outiue VI_IC) sl_eo

;_' i: this ie s three dimensions! _onftju_ation. Chauses t_ the vteu tl_etOts _au be

side ees41y to retleet _ell size and honeyeomb thieknes8. Typical vte_ ts_to:s ,

aS e fU_t_ttOn o_ sell size s_d honeycomb thiekness a_e p:ovtded in Table 4.4.

! 1

i .

i •

.i
I.!_

i:_ OFIPoO_QU_I.ITY, I

,I

Az

, . !,

V_ FACCOIZ_

A31 g"'("'"'°

z-J (gaoe To Bides)

;!

;:t

_! .2 .I ,4 .5 .6 ,8 1.0

• d _ i

" "'l h " j

I i i f

,2J .1_10 ,2_10 ,SO0 ._180 .480 .J40 ,610

_._ .................. .870 .'t70 ...... .700 .6:_0 . .SSO .4SO .....SgO

.....JO .0_1_1 .07S .:Z_I .Z7_1 .220 ,SO0 ._180

.g6_ ,92S .8'tS .e_S .780" .'tOO ,620

.... I I t I I' m IIIII I I IIlII

1.0 .025 ,03S ,040 .060 .OTS .12S .170

L ,,

I I I .

.0 .01_. .0=0 .O2S .osO .o_is .040 .0_0

. ,_88 ._8o ,9_S ,_70 ,_qS ._0 ._4o

II • Ill J I I it i II Ill

.0 .008 .010 .Oz't .02S .0:17 .0_ .o_10

_,#_ ._#0 , ,#e_.... .#'IS .#7_ ,#'f_, .#'tO U I i i i I

4.0 .00_ ,012 .01_ .020 .021 .02S ,_2S

._94 .908 .984 ._80 ._79 .977 .OTS

Table 4.4 View J_eotozt i_zun Top kud JiaeJ To Bottoa Of

Boz_eyeonzbCell For Use l_ztSubroutine ItON_.Z

. i

!

I

I

SO ,:

!

t

• t

I
oi, I_uORQIJALITY

!

Tl_ee_#IVlllnl allQl/101l _Itlo/Ik II ,h_It_ Ill _lllnea 4,1_I

6

_ CONK 1

i

Ftg. 4.13 Equtv81entNetwoPkFoPHoneycomb i

Th£8 aetuoek dese_tbo, the heat traasfee path between the upper end lower

s_f!aoea. _lufvelent eonductori to: the conduction paths ere detetni.Md f_tm

C1 * CONK° C3 !

XCl III ......... ,......

C1 • CONK+C3 ' CONK+C1 . C3

*

s_d

C2 • CONK. C3

- - , ......., _ '

C2 • CONK+ C3 • CONK.I, CH• C3 {

, _hert CON[t8 the oont|ot eohdUotanee bet, een the ooee alid the oatee autteee,, i

• I

; cut¢ently let to 100 ]FFO/J_tS-Seo-*l_. RI. R2. led 115ire ©onp_ted u.ltt_8 the

: I

, three tenpetat_te| ifid the vte_ _letoel, J_t_tll:_, the temperature at _Jtl _ouftd I

h_ telluttof_ ullnl th6 formula I

Ts - (1- ¢1 T +1_

_' XCl + R1 + All I 

I

. t
"_'; ORIGINAL i_/_e_ _

OF POOR QUALITY,

_9Tn+l - T_ ,TOL" .001 .

TnS 

k

Total hsa_ transfer is oOeputed _ron the _ondu0tot _alue8 and three known tempsratuzes. Equivalent eondu©tanoe ii then round by dividin8 by the temperature

diffe_enoe Ts-Ts, An example ease is shown in Plju:e 4.14 for an all mluminum

]_oneyoomb 8ttUOt_LtS, Cel_eoita_oe CAPI and CAP2 is found in addition to the mass

of the at_uotu_e and stored in XM.

4,2 _. SUBROUTD_I_AP

Sub:outtne RGAP©oml_ute8 the equivalent oonductor value thtouah a radiation

laP. This model also includes the thermal oonduotan_e of the up_oe and lower

i_faoes. The thermal fnodel of the radiation Sap used is shown in l_igure 4.1_. ;.

J_i

i' Ftg. 4.16 Network For Radiation Gap Calculation

.... • . . .-
, OF PO(;_tC;_UALFi_

4,

i°}_";11_,. ' i "-"'_q_

_, .01°I._',: ' _ !i ? :,t .ILl .,\1 ,d , , _v

/ \ _,,! ,__ 3- I

-i- 4', , HI_XAGONAL CELLHOI_EC0Y_[3

I

• . • -o - , - . _ '.. _.,"._H._--_ ....._"

3. -:"::--'--; :__::=- "_

,,. _ T.:._-".- :;, ".-.-";'T_:.. '_'":.z;z._--.X_-"_:. ..................... "_._.-'-_.#._"_-°'.-[

• .i • I-. :- i -i .',:I...: , _: ....I....-*-:--'l

q -.-;-- ::::Ic::--;:::.. ---;::_...---_. --.I. ..-:_ _...-..i --::-::-:-- x_::------I--: --_q::I

_0"_-- -" : ....._ ......"...._ :." ; ,- :: '_: _: ---_-7-1

_-I o 4o0 _oo _eoo _80o 2o_ 2400

3 T_-_('ee)

S.

j .

,t

,, Fig. 4.14 Hohe3combEffecttve ThermalConductance

_ 53

" ' - • "....... -.;__:_.,L_.k_k-_ " "" " -"
' ORIGINAL P/_O_ F,_!

OFPOORQUALI_W.

; _¢ teepetst_/_es at A end B Ue oomputed fron the kaown tompetmt_¢| it 1 end 2.

_, All loom/tile and mate¢ial y_ltwoto_i Ire paloed to R(IAPth¢ouih the _amed eelmole 0AP. The tJdilnt l_tetehl_je taoto¢ betweo_ the two ¢utf¢oei i¢ 88J_Io4 to

i be thtt ot two infl_ite plltes 8_d iI found from the ozptetslou below

_r le n , lure •

• k"_

! !

. + !

: ¢1 ¢2

_' A_ it6zatlon procedure li used to find the tempeeetutee at A tud B jiven the

t

{' tem_e_at_es it I end 2. T1 and T2 respeotlvely. The _o_duoto_s I_i and Y[2 ate

i, found from the ©o_duotlvlty an4 the TH1 end 1112. I_[$ is t _adi/tlon

thto_esses

L oond_ato¢ found teem the follo_Ini ezpeesslon:

' The eelazatios illotithm uled tO fi_d TA and TB I¢ e¢ _ollo_e

T1 • YKI • YK3n

TAn+1• (I -_,) TAn + i_.....

+ YK3

)

and

T£ ' YK2+ TAn • YK3"

TBn+l . (! -_) TBn + ¢ ........ .

YK2 + YK3

i Co_'e¢Sen_e te round if tot

,1 TAn+_ . TAn TBn+t . TBn

' _A _ -- AND ........ TBn < _ .001
4

OFPO0_(_IJ_,_SJY

i R_utvale=t £hotm81 eosd_etivity is Sound ones TA And Tfl A_o solVAd by

YKI • YKg • YK3

. XK_. -.

YK2 YK! . YK2 + YK| + YK3 .,YI_I

_ example ease is shown ta Pljute 4.16.

Plully the mass, IN_ end oapa_ltAnee, CAP1 And CAP2. ate oemputed.

4.2+ SUBIIOUT31_HSTAND

This subroutine eomputee the equivalent thermal eonduetsnoe, oapeeitanoe

and mass Of A sttuetu_e aonsiJtin8 of s standoff seotion and two oute_ In, floes.

Heat transfer As ass_ed to be by eonduetion and radiation thtouah the panel.

Consider the tuill laotian of the Z-standoff panel shown is l_ifu_e 4.17.

O
ORIR{I_L P/_'C:-t'._ I:",'

OF POORQUALkT_'

I ..__::_..__,.t__7._.?__.:E: ,._:-:L__--p-_ :-.=._:-_,_.::...........=

-..--_.:.: i.:_-.::.'7.-_'__4-. ::g__ .................. ,..... __...... , , k._..'+-+---'..._. " . ' -- ....... " ' ' ..... '" *

- ...... _,......._.... --'r.....-__-.---:-J.-:-_--=-++.......i-..... i......-'1........ -'-'-_ _-_ .....:+...... _i-'--' .... _......___...._.... _......... ----I" ,'-'=......... _'+_

:" ,I' .... "................... _ ............-_'_" _................... '_ "_ --'_--'"] .....-----T-----773----'-......... I"I' _"_ _'-_' _--"'"-"

:. : -+.-::._.41.%'{g_.rZ+ .:.",7}._..-:".g__ . I _':.:=+:.

- _=----4 - :; .0:_0 1 _---4

-:_ ,-_---- 77, : _ .,, L, F +'- _

- Io-,, ....+ + -f7"_ -_:7: .... + C _.+-r: ++_"

-: 4 + _oo __,+oo ":_+0o i+ooo' ' i+:,o "

-, t_.l,e (*_.)

-i Ftg. 4.16 Radiation GepEffectlve The_el CoMuctance ., ,_

_:f
[

:: OFPOOR QU_LIF¢

i"

i, lJ H, TOt0pOtlt_WO| lit I Iftd 2 It_ TI I_d T2, ThoJo plil_6mltltJ Jlro |li_jned

I

_ their tliipo_ttvli 9lirllible nsmoli ta iub_outiu LO_:)vhiah is olillol immodiatelF

: ' bef0re 8TA_) is aslled. Tomperatute at 9 is un_ovn, but Siren tho tomperstmros

Iq

lit 1 snd 2_ jeOnettio 8nd property dntli_ the tem_etstu_e st 9 alin be liolvod tot

by t_t_ition. The helit ttlinsfet peths ere oonduotton ffrom the upper t_d 1ovo_

li_fsoe8 throu6h esoh 6f the Itlindo_fl, linoe the node1 is llyEmet£t@ll tbOut S

mtdplliae_ aad ttdl|ttoa from _de 1 to 2, snd _rom I to t tO 2. The rlidisttve

enolosu_e tot tho u_per lower sutfs_es_ aad 8ts_dot_e _o_s£st8 of tout pla_es

shorn in FtSute 4.18.

i

_ N

I

"1

i

Ftg. 4,18 ladtattoh EnclosureModelFOrZ-Standoff

l

The oootdt_stee of the pleue8 msltn8 up the enoloiu_e sre oomputed sud stored t_ ;

i th_ ttr(l,_) (J/td _(l,:ri ertliys _he_e I is the plase s_unbet s_d :r is 1 o_ 2 •

reptese_tl_8 the e_d _otets. The 8ttb_outifle$ _AC t_d SI[ZPI_ ate ulilled to de- ,

fine jeomlittt_ vte_ _,tozs snd lite_-t_te_,h_alje ttotot8 _J;l_lI._r). i

l_tom theJe _l(_to£1_ rsdtatto_ oo/tdtlltotli sto fotf_ld from the £ollogtn8 or-

' i

!

_ Ktl - A_ _ 1_ + T ) (Tt + 1"11

c.. i!

i'
The equivalent Mtwotk tot the total host teansfmt tram surface I to 2 iJ shown

in ltiSote ,t.1_.

C1A 1 C3A

C3B

¢iB

S//_ Kg" "_%%N

C_C _ C4C

C2A 2 C4A

Ftg. 4.19 EquivalentNetworkFor Z-Standoff

Equiva.lent series conductors a_e formed, C1, (:2, C$ And CA which include a contact conductance a_d the conductance of the plata And standoffs. Radietio_ con- i

clutters RI, IL_, R3, R4, And B_ complete the network. The elptcsstca to; the

equivalent conductor C1 is _ ;,

ClA. ClB • ClC .

Cl - . ,

C1A. C1B+ ClB ' C1C+ CIA • C1C

SJ_tist expteesione era used tot C_o CS and C4. The tenpetet_re at 3 is found

by tellxatlon us/n8 the followln8 expression :

l

:._., _ (TI (RI _" R2 '_' CI _' C3)' T2 (C' _ R3.. _" C4 _" R4) I _"

t - 11- t",,

RI+ R2+ R3+ R4+ C1+ C2+ C3_ C4

i

. |

S8
vhere is the input petsnotet TOLset to e default value of 00010

The total heat transfer pe_ unit of panel Is then found from

(T1- T2)• RS+ (T1- T3). (CZ, C4 

Q • l m,

P

em the equivalent thermal oondu_tauoe i8 found f_c,u

• XK

,- TI- T_

i An ezample Of the eqelvslent th.qtnal ¢ondUetanoe oalenletion 18 shown in Ftiute

i 4.20. _

-; The thernal oepa_itanoe is fou_d and =to_el t_ CAP1 snd CAP2. Total mass

/

is found end sto_ed in _.

;" 4024 IgUBROITT]_RTENS "

i

i Subroutine ZEI_S _om_utee the ©ape_itanoe aud mass of a materiel with t_- ,i

'_ ftntte thermal oonduet_ee. CAP1 and CAP2 eeoh _ontal_ o_e half the total Shell

all oapaottanoe of the plate and _ ¢ontli_i the iitasll. The elutvtle_t thermal

oonduet&noe tl set to 10 s°, ghtle _eve_ used t_ _onputtu| temperatures, it ta

1 used us a flti to tudtoste pteieuoe of Infinitely oouduottu8 plate.

")

b

t t

il Sect£on J.O

+t I

,+

'+_ 'i ,t

++,

++ +

!! Duel requite d fez operation of ILU_ eom_s from mayoral sow©el, l}sts for

i' W

i} the partiooltt ease, oontrol parameters, 8oonotty eta. oomel from the let•riotire toput. Material properties ItS on e property file •nd identified with I

nat•rill number. The envitooment oomes from a file ore•ted by LANMIN whioh is

oompstible with the i_L_ input format. If the sttuotut•l ¢onfi|utation has

been modeled previously and saved on the structure file+, the user sen sttp the

sttuotutsl modalise questions dutinf_ the intetaottve input, a_d ©all in datl

from the ettuot_e file to desotibe the detail of the thamal proteotton system

beinll investtsated, A user may _ish to study the aft•eta of oh•using Oettttn

tr•jaeto_y parmmetats, in such ease he would of•ate sevet•l LANM/N input files. "

,i

lle <rould them tun the limITS coda •t each bodp pot/it bets8 ilivesttsated 8avtn8 1

the sttuotuze by lsslanln| it • structure number •rid style| it On a 6truotu_e

file. The input tot the eubseque_t t_aJeotozy oases would be Ilteatly eimJ_lified

• thee the 8eometry and materials have been defined and stored on a structural

file. Several of these sttuott_es files may be crested, eaoh file clef thin8 the

thetsal protection system at selected body point locations on • partioulet vehiale. With these data defies•rib one oan easily oompata fat thermal p:otaetion

8_stem8 candidate vehieles'. ',

+. t

The followinl disanssLon presents ezat0plee and deae_iptione of the input

• d_lta required fat Input in the I_T_ eels. Plait we have the date daftni_| the i

6_i_onment loll•feted and stated by LANML_h Next the utettal p_opotttee £tlo, 1

whioh p_elently oontstn8 some tteflt_ el|ht +mat•tills iliad oan be added to Ot i

* I

edited iS the ulet ohooses_ II presented. Thirdly, eli example at the file Sen- I

leafed by _T_ tlhioh ssvel the the_al ptoteotloti Iystem ttruet_al and 8eome- }!

i

+ _1 I

1

'®2

..++:.:i:. ",-+++, :,-,.+.--.-............. ":.,.+: .:+..,--:...,., r:" +,.'-:'"',... ....'+-, --'--. :+,:: ' ----+--+:+--.: +.--":.Z '--'---'".'":-:+':::" ..+'--':': ',L.''+"--+"'----.--
trio d_finitton s_d is called the structures file.

Two esanploa of the i_teraotlve input vhioh demonstrates u_o of all of the

optiafis and the seven struOtt_to typ_s n_I evailabld in BXITS ere presented, k

dcsotiptioti of the output fez thcJe oases is Siren In Boction VI.

S.l I,ANM OIEaATeD, ENV OZ,,I+..NIILBT

The envtrolont for the body point under iuvosttsction td ionetatcd by the

LA_XN code and stored as e data file. The EXITS code _esdd this data fton Unit

7 in subroutine DATA2 and stores it in strays, A body point description and

body point nmbe_ is teed from this file by the followin8 statement

I 1

_ (?, 700, EHD-,1000)D,ES(:MP,XBP

700 I_OILMAT(A72IS) ,

until the body point specified in the interactive input is found. The environ7

meat is then _ead iJunediately followin| this record by the _ead statement shown

below

Ill i II r [ I | i _ n i..

R2AD(7,701)TM.1 lie) ,IIC1 (IC), IIA1V1 lie), PtLPS,1 lie) I

701 I_OlY,.MATI2XIeO. , 1,,_t_)XILI.0.3 , ,,9.X, E10.S,$O't,_EIO.$).]

'I

An example of the LANMINinput file is shown in Table J.1. As nan be seen, ._

onAy the tame, 6nthtlpy based heat transfer ,oeffioient, adiabatic wall enthal-

;t

py, and pressure As _eed. Data may be teed in eithe_ the EnJltsh nnita ot

, Metric units shown in Table 5.3. Trajectory point8 are _eed u_tll a nejstiee

tame point iS encountered.

62
I+,1,, a I= I_ G tl II _ +" _ ,,,++,,,J,,.+,_+,J

( e e • o o e • • e • e e e • e o e e e • ee e •

_ ,J • • _ • • e _ e • • I, eeo • ,. gl,_, , _t.9 e o le e e • • e e _e e e = e _ • I o e • e e o o =_ ,

"'' _ 0 • t411 • • O0 _ 0 • • e • O • • • 6 • e • • •

a

,_ I • • • • • • • • • • 6 I • 0 • 6 0 v_ 0 • • • 4_

-', l=+=4 _III_nl_=qal 4U__ al --,=al+_all_I lq._+I+

_::1_,,, ' I.,% ,l+eeee # e4* e,_4 _ • 4lee 4 • • 4+ • 4 •

_i! .,_,.I,,,,I,.__-_ ,,,_===,4d, _ =,l_,,.,O'i"4 =II_C_II_.It,_O=11a,,,,0

e • • @ • • o • • • • 41 • • • • • o o e _ • • •

_°_, =I

II I I_ | $ l $IP I I I I I I I t t i 8 I It|

e • • • • • • • • • • • • • • • • • • • • • • •

. = _= _,.., _ ,+o, <,o,

im

• ,_,+ O; • • • • • • • • • • • 41_I _ "

i+_++_ =..+.+ ...--+++.+..•.++.-+., .-..... ++..+ --_.. ... +++._+. ., .°++.+

+

• .=..,...._ ++. ., ,++.+ ++,+,m++,+ +_+.+,++ +_

++

+

+++, N+ l_ _-s l,= _,_ + _J.,,+_+"l ,.,,+l'_,.'_ ,,l,,+ m+~_" ,'=_ l_l..s ? + +•

.! "+,

ii

•, _ , . ._ +. ,. _,,-.;+. .., _,_*. • + -, 5=-____=,+-_.++_-+,_o,*+--_+-,ji+=-,-+_+2+} _

, , ,: .......... _......... _+,_& +,, + ,_.+m+_._, Z__+_- - -., - -----_- + ++ • _ t.'r+r+_+*+-+.,,+.'++*+_-+' ' +.... '............................ I

_7_.._',';'',*,u:++::._.;:.++++.,,:+ :_+:.... ;,_,:++=,

OF POoR

QUALi'I_

4 'i ,P MATERIALLI_T isis J 1, Aluminum 707J-T6 _. Co_k

S, LP_I CoatiaS

4. IIRSIColtiai

S.!.I-900 (Blvariato)

6. nSI Coatin8

7.FRSI NomezPelt (Blva_late)

8. SIPRTV S60

1

:: Titani Costedm

Columbium

11, Copper

12. Be_ylli_

15. Zl_eonia

14.Molybdenum lS. _LI_E41 16. Micro Quxttf

Pelt Iutulation

17.]_ICON_I,617

18._CC

lS}. Q-_elt 108 (BiVatlate)

20. Tanttlum

21. _Betee

22.I_CO_LX 7SO

25.L 605 Cobalt

24. BAIg_II32S5

2S.M_-[1301

26. LI 2200 (Bivatiate) :,

27. NylonPhenolio (ABLATOR)

28. B-Stase Cork (ABLATOR)

29. IIISA-1 (ABLATOR)

eHIit

TJblo S.3 Material Idet_tifiet Hueibers";I|t

•),

;t1

i
!l

0,017S.

, I0000, _, 0,0 ,1

70''

310,0 .t70 OF POORQUALi_-_'t+

_,0 .1_

660,0 ,;it0

|_,0 ,170

6AL,70?F.T6 COl_¢tlVX_+

0.01._-_

t60.0 i.400(-2

A60.O LO0_-I

760.0 2,80(X-2

86O,O2,700H

2 N..7075'.T6I_ZSSIVITY

0.0.1;I tO000. .12

2_ ¢0_ OENSXTY8_0.0

0.0 tO.

10000, lO. 2 COItK SPECIFIF.AT IC 0,0 ,Oq 10000. .04 2 COR_ _CTIVITY

• 0.0 6,90E-6

lO0oO. 6.9_.-6

O.O.B

'_32 U_I (:OAT0_I_ t660.0

: 0.0 i04.0:

10000.104.0

9 LJ19CO! AgTveCtFHtCEAT

0.0.l_

_10.0._

2JO.O .|7

460.0 .19

I

780.0 .lit

960.0 .;NO'!

14/,0.0.195 2460.0 ._4S

.

_0.0._0 i

0,0i.l_iE-4i

_10,0 I.IOIE-4";

4_.0 1.2_tE4;'t

{ 710.0 |,_1[-4 i

l_sO.o 1.9S;:-4f

;_0.(; |.At_-4

Table 5.4 The_oph_,stcal Hatert81 Properties Ftle+I

;, 66t!I
| 1.1_61¢0_'1+ _I_IVIT¥ ....

+t

0,0,60OI+_I6;_N_._P,., _._l+.,:.+,., ._._:t

t0000,,80OFPOORQUALI"i"Y'

4t 111131 COAl01_181_ 2760,0

0.0 |04,0

I0000.I(M.0

,9 14q_l¢_fBs'EClFICHEJqT

•0,0 ,(_

_I0.0.|5

:,0,0 47

4+0.0.l_

.'710.0,XlIS

+ib0.0.t40

1460.0,B_

_D0.0.24g

:i_0.0._'90

+ 141ml COdCOI<IXI T CTIVtt_ 0.0 l,lgl[-4

_110.01,t81[-,+

•210,0 I,_tSOE-4

,+_0.01.2mS'4

'_'?10,0 l.tiE4

.. 9+,0,01.6/E..4

:+_.j,-', 14+o.0l,q_E4

+;+'+ _s0.02,4_E-4

',,_. +4

24+0.0 3.27fE-4

++2 14qt_lC_T _ImIVITY

0,0 .m

:_tO000. ,1_

,=+,S;1LX400 I_ItV27+0.0

0.0_.0

+tO000. '_.0

_,_10LI-_O IPECIFICHEAT

*+_.+ 0.0.070

210.0.I05

;_,. 4+0.0 .i_O

_,710.0.;+sO

.:. i 14_,0._18 ,.

+=, 1960,0 ,200

::'+_i0.0,.:103 ++ m.o .m

+, +

13+

+,

i'

:{i : _ i _

+

I,

+ _;

+_. Table 5.4 (Coint<nued) ' t

"+¢

,+_ .........+.+..+.:..++.:.._...,++_...:+/.t+i+.+++_+:.++:++_,_++ : ._.__,_,.,,m,.a._+ +_:: ++.+.+_.,_.++ +__,'z.•.,,,+• ++.:._.,,+.+_+#_.+;.++._++.,++
Table 5.4 (Contlnued)

;,

J ii
-7,0 _.0 ,Ui ._12 3,116. |t,t6 31|,6 |116,0 OF POOR QUALI'I_

0,0 f,OOE-6 t,g0K-6 1._4_-6 LF_'6 LSSE-6 |,8:_ 3,08_-6

46_,0 _,7_,.6 _,_..6 LqSS-6:J,mS,-64,_K_-69,SKE-6S,'_-6

, 'J60,G t,_N£-6 _t,_88_-63,_E-6 4,6ttE-6 9,694£..66,6tt£-6 6,944£-6

660,0 2,6_8E"6|,6_E-6 _,O:_E-69,:JNE..66,666£-67,6:18£-6e,05K-6 ,1

7_,0 |,8_o6 _,0_-6 4,$0K-6 6,fIR-& 7,6_8E..68,944_-6 _,06tE-6

0_0,0 :J,0_E-6 $,0_-6 4,7_..6 6,9448-6 ih777_..6t.0F/I_.._1,061E-_

,_ 1060.0 _,61tE..6:J,6ilE..69o7_.-6 0,_..6 i.t_-9 t,_Jtg£..9h2NH

t260.0 4.I66E-6 4.t661_-66.9441[-6i,0_9_-9 I._E-9 t.6OE-tJ t,7_-_

1460.0 4.061E-64,061E..6O,_E..6 i.i_JE-_ 1.7NE-_ |,t_',_-_ _l,l_lt-_

_t i_qQl_D'ESE_IS_IVITY

0,0 t,O

t0000. 1.0

0 | OIP4TV960_I_ 960.0

0.O N.0

10000. 80.0

9 OIP..FI_960EP_,IFI_IF.AT

0.0 .F_

:160.0 ,;tTO

4tO.O ._0

_.0 ._0_

660.0 .:lO0

060.0 .:_0

' 1000.0 .S40

? _1F.tllt,560COI_X_TIVIT_

0.0 _.47_-_5

46O.O 6.80K.4

06O,O 4._E-'_

q,0.0 4.0_.-_

0,0 t.0

10000. +.0

9 | TIT_IUIq DEIq_IT'Y I;I_0,,0

0.0 Slt,O

lO000. _l_,0

t

Table 5.4 (Cohttnued) '+ '
6 "tl

THill_lI_ClFIClf:kT

0,0 ,0_

I_0,0 ,096

4_0.0 .IU **

e_.o.t_o_IQ;N,_PLAQfierr

st0000. _,o .J._6oOFPOOR(;"JAUTY

DTIYMI_ CO_JCYIVIYY

0.0 t.20oe-:_

_0.0 t,900_-:l"

_.0 t.mmt:-3

t_.O2,_o_-_

10000,_.80_-_

0,0 .t|

tO000. .t2

l0_ ¢I_,CQI.HI)NITY_960.0

0.0_,0

10000._LO

6 CTI).COLUSP_ECIFHEICkT

0.0 .Ogq

4_.0 .0'_

_,0.0 .0_!

_"1060.0 .065

14_.0 .069

.. 10000. .069

::_6 CT_,COLLCON_ DUCTIVITY

_- 0.0 4.40E-3 ._ 930.0 4.40E-_ • _0.0 6.10E-3 1460.0 _._E-3

+_

:_.0 8.00£-3

100_0. O.OOE-:I,

4C_.COLL__I_IVITY

_ 0.0.tq

_i60.0 .t9 4060.0 ._4

toooo.._4_:

_ It_ COel_ I)eN_II'V1560.0

•; 0.0 _15_.0 ., iO000. 5_.0

0.0 .000!

60.0 .0400

460.0,ON

+9_.0 .SO0+

"++il_,O.O .itO+:

,++1_0.0 .1_+;

_160.0 .Ira ++

:tO000. .t30"

,+

:,#.

Tsble fL4 (COt_ttnued),,

_t

:_ 70'
e

col_l_C(M_TIVZW

0,0 ,070 ORIG|P':a'_'.._,;L, :*+- +..,, '+"+,.:.!"

b0,0 .0/0OFPOORQUALITY

460,0 ,0_

W.O.06t

14_.o0.0Z

tg+O,O ,Otl_

' D4+O.0.0_1

iO000. .091,

fl COPPER_I_][VlYY

0.0._

, iO000. .7|

O.O |ib.O

lO0oO. 116.0

tO ItYI.LIU_II4[CIFIt4PC.kT

0.0 .000

1_.0.001

360_0 ,2O

4_0.0 .31

_0.0,_

JW.0.bS

1_60.0 ,75

_'460.0.IPi

fl_.O,t1+

9II_YI.LIWCONIXRTIVITY

o.0_.tm[-:)

w_.o_._£-_

1460.0 19.001t-2

l_&.O |4.00(-2

_60.0tLOOE-:3

II_YI.LI__IIIgIVlTY

0.0.l_

1o000..1_ i t_l | IIR00NIA IJ!NSIll 3'3(A,0

0.0_49.4

10000._4_.4

6Zl_Ik _I_CIFIC_qY

0.0.119

,1+0.0 ,ItS/

ve,o.o.l_

14_o.o.1411

• _,0.0.i, ++:

lZtlt(:OldlkCOM_TI+IP4

0.0_.2_E"4 ':

4+0.0_._4

+"

, 9+0.0 |.9_e-4'+

1410.0 L7_1_-4

_J_).O2.4_£'4':

_0,0 S.6tS-4:+i

Table 5.4(Conl:tnued),+

i.i1

i+:_,i+,.,-_;2,....._ .+_:.u+......................................
+

'-)

+:0.0 ._0

t0O00, ._0

t42IO._D_'UONII_ _+0.0+

+ 0,0 +LA0.0ORIGINALPAG_EI_+

i0O00. M0.0OFPOORQUALITY

m_,mmmcmc_T

io.o .o.

.0.0mr

_.0.0+0

_,0.too

49+0.0.It0

+,7_,0.1t0

7 _Xq_ ¢Ol_CTtVt_

0.0,02_

mm.o.0_44

m.o,mat+

14+0.0 .o'loo

;+49+0,0,Ot+O

_.74,t,0:0 .0119

:!I'IOL_qlfZ)EI_U;IVII'Y

0.0.20

100O0.,10

+L+t_ ;! IIBE41_qgI_2060.0

+ 0.o 51_,0

100+0. 5ID.0

5 I_1 41_ECIFIC1£4T

0.0.0_9

ii

4+60.o0

+.0_

'+° ++

S_41COND_TIVITY

0.0 .0014

_,0.®i4

I!iq+0.0.00_

t4+0.0.00_

maa.o.om2

_ 0.0._0

+++ I0000.._

1:

++'L 0.0 :LS

++ tO000.2._I

+:q l+t_0mitt_CIFICHOT,

0.o.I_+

s3_.0.tl_

?M),0._172

++ mo,o.ram

i_0,0._70+

ml+O.O._0

_'_' tetble 5.4 (Conttnued)

7Z
lp I'II(:A0ill'r| _I_IXICTIVI'I'Y

0,0 7,"_It-6

_1_,0 7,_1£-6 ORIGINALPAG_15r

760,0 7,+_1[-6 OFPOORQUALITY

_.0 q,0E-6

W,0 +,_lmE-6

t_,O l,+St[-+

, l_.0 t,77Je.,+

1460,0 l,_l[,,_ '+

2 I+I01t0_Z _iBIVITY

0,0 .0S

* t0000, .D

19 _1 ll_Olg.. 617_ItV _q60,0

0,0 _1.86

lg000, _1.86

|| I_01L619_I_'IF[CIf,AT

0.0 .I00

m.o ,too

M,O,0 .101i

l_.0 .If!

i060.0 .117

141+0.0 .t+i

le+0.0 .137

lW,0 ,tA4

;10ltl0.0 .leo

_60+0 .t57_

_0,0. .l_

tO000, .t_

1| _ 617CIN_TIVlTY

0.0 :!,17_,.9.

S.'._,0 _e.lgE-2 "

660,0 II.3'3[_.2

860.0 II,61_-_1

10+,0_,0;I.6qlt-_l

IW.0 2,44_-g

ltWJ0.O2.TP/E-:)

tltl_.o 4.00N-:I

_0.0 4.mmlt-_

ml_o.o 4._lm-tl

.0 4.1_1E-2

tO000. 4._J

;t lllC01l. 617I+II_IA/I"I'Y ,i

0.0 .ltl

1(3000, ,il

t8 _ _C IlmllY :)000,0

0,0 102.7

10000. tO_,7

.

,9

:+ i

f

__+ Table 5.4 (Continued) +_, t

+++ 73 i t

+, : i

_::._++-_- --"r++": :..... "+".:+.:+_++ ':.--+-,-+:_.... ' -.._'+"--', ..... : +_+"',':'_-._+.-"++++++"-+++_-_.-,-+-'-+" -'-.'++._--''::+' -"._' - ---._--+,:'-_++--"_+--+_...-'--++-_-+..... -+'-",.--"_.'+,'-+--,",'--+.'---_-?_;Zi*;- _+'_227
! Si I_

C I_ClFICHE_T

0,0 .OM

160,0,OeO

94#0_.0.0

,.1_704m OFPOO_QUALIFY

19_,0,_M

+ _60.0 ,:_0 + :_,O.O .4_0 •. 10000, ,420

ii.1! ice¢01_TIVXTY

0.0 l,OtE..4

_i 160,01,0tE-4

,0 It,reE- ly,4

860,0 O,lO_-4

: 1060,0 O,TqPMi4

/,. 1460,0 9,2_-4

2t60,0 9,7m_'-4

_+ ;Iwo.0, 9,7_[.4

;; :DK).0 9,49|E-4

+,10000. 9,491[-4

i"0 IKC D4lgSlVITY 0.0 .O

I Im_O.O,e+

+17+0.0 ,M

l_+bO.O,i_ ++

:I_.0 ,08 .0 .04

10000. .O4

19_ O-I:B.T]08IX_ISlI"/ 1160.0

0.0J.O

i000o. 6.0

+i 10e-F'B.'r10e_PliCIFI¢tf.4t

0,0,®

6+0.0 .;tO

qM.O._

1t60.0._

14+0.0,_7

IM0.0._

113.06O,_

;1060,0 .:10

10000.._0

+,

;, ++

+,

" '+ If

+TableS,4 (COhtt,ued) It(
®:

r _ 10 O'4_Tt08 _t)q_TI¥ITY

-2,0 ill,1_ itll6,O

: ibO,O _I,7M-66,0111-6 ,

: 7_,0 4,60_,.46,_-6 OF.POOR(_U/_LiF'i'

: 960,0 6,?dK..69,0E..6

lj60,6 9,P_01_,"1,1 6 _"9

' (W,O tJ0t:-ll I,S?_I

1660,0 1,4_M-I1,8511l-It ,

IW,O I,TIZ-I l, tlLq[-11

li0_,0 1,71Z"9 J,40_}

10O00, I.IIM-9 |,40_

6 I-ti1,1tMtTII_IViTY

0,0 ,Be

660,0 .811

1160,0 ,70

IW.0 .69

lMO,0 ,_

l(,,k)00, .60

20 _ Tlei_T_l.UOl_INTT 4460.0

r o.o l_.e

|0000. 10_,8

6 T_UN _IiClFI14_ ¢ t

0.0 .0_

i _+0.0 .08_

++ 460,0 ,(Kit

, 1460,0 .0_

_+ 2460,0 ,041.0

• 10000. .0410

, t0 TMtTALUIqCIIII_TIVI_Y

0.0 8.1mlt-_

mo.o e.7_-_

_ tlXlO.O t.02_-|

1440.0 t.06_-_l

2mlO.o iJl01t-!

.0 l._It-|

2tO0.0 t.+_-_

.0 t.;_-_

100m. i.m_-_l

= TMIT_ _I_SIVITY

0.0 ._

10000. ,_

_tl _ _ I_IW 44+O.0

O.O _._104,4

t00o0, t104,4

_t'. " II I_NIITfM _II!'I_ I_AI' 0.0 ,_

, 7460.0 ,O47O

10o00. .0¢_0

ii::. TableS.4 (Contlnued)

7S

_+..;..m_::+-+: .+,.- + "' . ..... _,'_+.::'. ' ----"+-;?'+.--:_T'"" ":::'_'"_'_'_'_,.-+._-_:+:+_+_:_:_.._%_:_+_-_.-'_-_-_:_::-_:'_:P_-_'_,_-+`_=-+:_T_+_*_*_ - -.'_"e.-"-'=_ +--'z-E-L'++-_L.-_.-_++_++.+_ ..+...-._+..+_...._...__.,_._
I

7 'IXlII_IDCIOIiW_TIVlTV

i_,0 t,l_-: OP,I+_

2460,0 |,IM-_ OF pOORQUAL|'T_

4_I0,0 9,10l-_i

4_0,0 +,Hli-il

IOMO.V,l_-2,,, | _ ImZltlVlTV 0,0 ,066

lmO0..OWl

Ii ll I1t(:0,1.1(KI7tlIt0TY lll_.O

0.0 t_l.l

tO000,NI.2

6 II_OM,,.X+lTllllIOIFICIf,AT

0,0,OM

160,0,OgO

460.0.0_t

1460.0 .1_

14_.0 .t70

10000,+iYO

6ltI_M.ItPJOCOM_TIVITY+

0.0l.q;QOlt-_

tS30.O IJPOO(-$

9aO.O2.600E3

146o,0_.400E-_ ' _0.0 4,1100£-_ lOOOO,4.900f':1 4 IML"(_I7_O_IIB|VITY

0.0._0

1010.0.60_•

IOOM. .71

-_. I1 I! 1.601t ¢OIt.tIiMtIT_ lllAO,O

O.O_.0

tO000,_,0

4 LAOC_OLtT_¢t_'I¢H[_T

o.0,0+6_

:16O.O .H_

_M).O ,1+40

1o000. .1640

6LM_COlT¢III_TIVITY

0.0l.lOt-S

120.0 1._-3

9+o.01.301t-3

I_lo.O 3.1M-3 14+0.0 4,91f-3

,. 10_0. 4.ml2 i L_+ lIT t_1f_I¥

1'1_

+ 0.0 .Ii0

°iIO000..llO I; m t mmmII

m)lxn_.o+,+

++0,0 S70.O,;'

,+

..../i0000.170.0 ++

+

.+

....+ Table 5.4 (Comtlnue+)

7+
I

+ SI I'MYI6n IPEClPIII_CT O_'I_IP!/"+.'`+,+. '.... _+':+'

' 0.0 .I+ OP P OO_I-+q(LIhLI+I'Y

+ I0000. +ill

0 I'_IM_I+ CBIYUCI'IVITY

' o.0 1,1+

+ W,0 i,H+

1460,0 +,TM'_

' _,0,0 +,If+'|

10M0, +,+m.+

sl l,lm[+n mlmlVl'l'V

0.0 ,N

,, I0000. .N

| Plth 1301UMIIW I_M),0

0,0 U,0

10000. e0.0

+ l film 1301_¢IIPICI.EKr

0_,0 ,till

IOM0, ,+t_l

+ IIIH tMi ClMI_'IIVI'I'f

0,0 E.6E-6

_;, Ira.0 4,g,',','E,.,6 W.0 4._IE,.6

+ t060.0 S.tl3tl['-l_

-'+" 1_0.0 It.7'17t+

",' + I0000, 6,210[,.+

+. 2 llll+"It1301BI|_tWITY 0,0 .+'J

++"' 100M, ,q

++_+ _ | LI'ZM0 D_ISI'I'Y f_Y+O,O

o.o m,.o

+ 10000. _.0

LI-gZ)O 8P_lIrlC tiler

0.0 .IS

" 100<30, .30

+ fil Ll-liPO0 COI_CTI_IPY

_. -6.0 0,0 .|1 |.1| _!t.t6 _111.6 _1116. 0.0 LIE-,+ :I.E.-+ 4.4M-6 7._.-6 tl,2M..6 II.OM-+

_110,0 3.MIt-_ 3.ME,,+ 4.44E-6 7._-60.3M_ LOM..+

'+ _t0,0 6oMit..++,M_..6O,MIt-6 l,ll[o$ l,t)_-5 t,Nl_-5

I|I0.0 O,OM-60.0M",6 1.0E,._ l._It-_ I.Y7E-_ |.ll&'_ -_ i

+-,, 14_0.0+ +,_.-6 _),_ i.lVE-tl I,IM:-_ _l.l_-tl _I.4_-S

_--,X+-_ 1710,0 I.IM"_ I.IM"-_ I._IW-_ l.il+l[_ |,_IM-_ |.ME-5

iVM).0 I._-.'5 l.Mlt+ 1.63_.,_ l._It-tl |,#I,[-_I :I,5M,-'5

. + _II0.0 I,i_E-$ I,,W:-6 I,,+Wt-S_._E-5 3.4tlt-S _J.l_-6

_ _ _,60.0 I._E_5 i._E+5 +I.:IM..'5ll.'/'/t.-5 _,'+_-tl 4.4411_-S +

+, MP_.0 |,_E+ |.t_+ $.IM-_ 2.'/M.+-5 e_.l_-_ S,l_+ ,,++ _tI_0,0 :I.ZE-_ 3,_E-tl 2.7_-5 4._-+ 6.00[-5 6,_-tt

_ _ 3_,0 3._il[-ti 3./,lt:.+_4._1_-_1S._:-S 6,Mt-S 1.77t-S

++

+ ++++

. i+

+++,+ Table 5.4 (Continued)

; :,' 77 ,

"'+........ ++ ,+.._._++-. .+-.... .-+._r.,,._+.'_+__--,_...-_-.__..._.--+-+++ +- .2_2__++_ ++_-.+:+,+_2__- 2_+'i+2_-++;+'_-+_+,_+
2

L|"_O0 _I_I91TY

0,0 .90

17 100i 00_6.__ImlTV bllO,O1 I0000. 94,0 OFPOORQUALITY l _ P_ ii_ClFICXEM' i

0,0,lO

bO,O ,lll

_t0,0.H"

iil_,O,Itll

10000, ,1_,

9 Iffl.CilPXD_IINDUC'IIVI'I'V

0,0 |,_-!

_0,0 I,til.ll

66O,O I.V*[-S

iio,o iI,Ki,.il

i0000, l,MEab

I! Ii'4LOIsIHBI I EItIttlIII/IYY

0.0,8_

tO000,,_

SIFUJNmt/ILl,. TI_

o,aS670_0

If,t6_70,0

t11.6SM0.0

tit6.6210,0

_. 11160,061110,0

,275_ Pig IfJT-_J_TION

f 0.0 It000,0: ' il.ll llO00.O

i' ili.ll ilO0.O

lilt,, ilOIl,O

llll0,_0O,0

m l H_.CMIqMt_II'V iil0.O

o,031.0

lO000. :ti,

1 t-_O_ClI[(;ttrlC14/. !

0.0 ,4ti

,t

ti IOOiiO..li*

•4 I-IIIt.COItKCllll_&ilVlii""

0.01,11E4:

MO.O i.ii1.-9

13t0.0 3._1l[..it

t0000.o_,Z3[.-_

I!|-ll'O,_ltlllllllllill_l '

0.0 .8

.ooo..e i 19 il |.-m'll,CO_llt.TI_P lII l i

Table 5.4 (Conttnu(=d) ._I

there

! ED - Material Identifier Numbeg

71) = N_bot of entrto| In Table (down the pass)

TI_S_ - Metotial NMo

_S_2 - Propott7 (Donstty, spoeifie hoit_ eta,)

TMPM_ - Maximumallowable temperature for material.

(Read on density header said)

The next SD reseeds ate theft read to load the property into arrays ustu8 the

follogin| read s(etenent sad format.

i li • it l fl

_(8,7o2) (kPJ)(n),n-l,8)

702 I_01LMAT($8_.10.0). X.

m ii i

_or t monovariate table, the independent _ariable is ARD(1) sad the de_eedent

variable ie AgJ)(2). l_ot e bivariite table, AILD(1) is the nelative of tlte -.mubet

of pressure entries, 8aim8 a=rose the page. The ptees_e value| ate eto_ed in

A_)(2) th:OnSh A][1D(8).,

The next 3D te_o_ds ,re read by the same read statement. AIID(1) yell t_en ,

be the temperature vhile ARD(2) thtoush AJtD(8) ate the properties

i. e, oonduotlvlty ot epeolfle heat. "

All JptOperty _ables mist be attinsed in s paetienlae order. The first prob, '

petty must be density followed by speolfi© heat, eondUoti_Ity and emlssl_Ity,

Fat a ablltot-sublimer material, sublimation tenpe:at_re, and heat of ablation ','_.

i

ire added ae the tilth and sixth pto/_ertie8. To tits t material Ms beige in :blater 8_bliner, the celestial ldentiftoation number is i_luded on the header

8O
OJrd tot the eubl_atfon to_r#t_o f_lo, Units tot tl_o VJfious ptopertiel

eto Siren L_ Tiblo S,S and ire S_wJJ_§ |lfJe_ rejardl_ja Of the OSitS SOt Qsod An

. the input.

It II I+ i _ __ I ii

lqO_RTY UNITs

L_ n i • i •

D_I_ LBM./PT.j

#I_CX_XCII_T 9TU/LSM.-R

!_i _ CONDUCTlYITY BTU/Ft-BBC- R

_lSsI_rf_ Dx_sxom.sss

' ' el

_' T_LE E;.f; Matertal Property Units

_.. S._ S_0CTU_S lqLR

_, The I_tTS pto_mm will e:eate a file which eaves the eeon_t:ic and material

g. , defitiition Of the the£_al J_tOteetton system _ein8 analyzed. The use_ asstsns '

_ : this definition a 8ttu_t_re number which is used to identity the 8ttuetu_te for '

!_.. late_ use. BY doin8 thil, the hie: oan _eeval_te the cue the:thai ptoteetio_

i+_:" Jyltem _def di_fefent envifoument conditions wi_h a _.uoh seduced Interactive

input. The t_me Of the ett_etu_e file is input du_in$ the i_te:aotive pottio_

!_J_ of the input. _t:netute8 a_o added to the tile st the bottom ot below any

_;.._•, Structure _hieh already etiat i_ the file, if any ot the ezistiu| str_etute8

i have the lt_uoture numbe_ th_ user i_ usin| to identity the new str_ct_te_ a

+ message _ill ah_ea_ du_i_t| the inke:a©tive inpot aski_| fo_ t new identifieation

;,,, n_be_. Therefore, eaeh 8tzuetu:e in the tile will have a distinot structure

+

i * ide_tifioJtion number.

+li"., An etl_j_|e of I mt:uetu:e definition is &even tn Table $._ to= the deson_- +

• _",_

_,, 8! +

: I '

+++ ++

+.-+_I. .... i i ....... :........................... --.-.....+++ .............+:++--+-.---=_-.............. +-+-- -_--_
OF PO

ORQUALITY I _. 82
,TJ

ORIGINALP_G_;_

OF POORQLIAI,,ITY

|,4-/_XA_I,E _SB ONE(AflhA_OR_, IATION OAP,THXNBt_XN_, TANDOI_)
As shogn l= FiBwe S,lm s= ablltot 1,0 inoh thiok is p_aoed on top of a

_olmbium sheet .12_ i_ohes in thiskneee. Next we hs_e an al_lnua plate .4

tnoheJ thieJ: plaoed ovot an XnooMI 611 lheet .14 i_ohes thiok. An sl_t=_

Z-standoff mttaotu_e sopa_etee the Xnoonel d17 sheet from s ool_bium bsekfaoo

sheet o18 tnaheJ _hiok. We see that the .4 inoh aluminum plate is divided at a

depth of ,1 inohes from the top e_faoe. This to requi_ed to define the radiation lip model sines | lower eu_faeo plate ts needed. The thermal tasiitanee in

the .1 inch slminun is inoluded in the radiation Sap node! and does not effect

the time step. The ae=othetsody_am_e envl:o_ument is looated on the tile

._ M_IY_R,DAT and identified by body point n_bet $. The st_uetute was saved on

the ettuotu_e file STRUCI_ItE.I_ILwhioh is shown in Table 5,6. Also incltlded in

:._- this example is the input required to _etun this ease uein| the structural de-

_-.. finition saved on _TRUCI1_E._IL, The intetaOtive inl_ut i8 shown in Table _,7.

•"- l_ot the ease where this _xample is _etun usin8 the saved struott_e, the interaetire input ie 8ho_ in Table _.8.

'i

i

OF POOR QUP,LI"_f :

!

,i

=

8

1

I

!

q

t

:." 84 I

i.2i,.

,_:_ .... :_ ..... _ _;__=, _;i_: :. __=a#._J 41_i_; _ ' _r_'_ _f_:_;_°_;!__ ........._/'_._ _°_....... . _-_ _, _:;_-_. 

il '

.._ !

" ' POOR QUALITY I

._I _ __ _:

i



5,5 RXAP4__lii_ ONRP_UN _O_I S_UCrI_I_S_ZLR

Beta We hays roron the ease previou_ly doJotibod asinB the data stozed Qa

the ettQotured file whioh daflnes the thermal protest/on symtem, Tibia 5.0

Shots the !np_t fo_ this ease. As ea_ be soS:, the lSLtotlo(i_6 input l_Ze bee_

6

8:ostly simplified. The dosettl_tion of lines one to thittosn has been previousIT _lve_,. At lizte 14, (he response is Y (yes) sines we have already dosettbed

the Jttuotu_e. Line 15 asks fat the atruotu_o identifier Au_be_ whtols was aseiSned p_evtously. If the an_wo_ at line 1_ 18 Y (yes) theft oonttol II returned

tO line 7, if N (no) we liars oompleted the inte_sotive input end I_XIT_8sea into

exeoution.

90
' j

! HIi IilI ... LHi N! i i

_! _ ,,.___ - _ _
( ORI_NAL,PAQEI_ 

OFPOORQUALITY

S.6 BXAMPt, lZ(_I_Ri_0 (St,_, St._, I]O_iOo_ _ CO_tleAZ"61_)

il i_li elillll iht l_t_t Iollliomenti for t_t lomliliil l_oO ltilloi_toJ

fi

(Silb_ Ilotlei¢_ilt, Coilliiattd) tie del_onitiltod, Aiilli, tlltl oill ts not

lolit!Intitlll of I thoill I protlOllOIl s¥itiil but iolVgl io tIIQmilIIt llio illput ,,

ii /elultomotitl §or tllO iilliliini thleo iI¢_tlie|o l_ie oonilllitilloa lot t_ii el-

,,<

_" ullo Ollt IS Sb_n in lililte S.|,

F4g, 5.2 Conftgurattohfor Test CaseNumberT_

t

g2

i

i
+

Am nh0!_n in Ptjot_ _,3 m LI-W0O ineuiatlo_ ,_ IAoh thi0k with m ,I0 Inah

oo+'f,lnll of iillB! oomtlmll mml:+,IPia,1,le be+kid 'o_. bp m h_mmyOolab sttuatofs .7|

I

ifl,#b#il f,bLok slid II _loes"iOl#t, ed .t_eoo, tato. Dt{t#fOllt nteteP,illJ el_e tilled IB ,the ,

h{iaolcomb and ootfndgtcd |iy++a +o lilUlttete their input. _Pho lt+Othe_modpnllnI

lo eovitonment is detiuod on the file M_ZVI_A.I}ATa_d identified 5F t}odF point

: |, _ile itfuottlte +re| Jived o11 the st+t_ot,o file 9TRUL'FUIt_.I+I3la+d Is tltotQdod t

in she eumple 6hovn in Table t.6. The lstotaoeivo input foe thll o11o ll

proeontl}d tu Tlble t,l}.
1

O_L PAQ_tS

OF POORQUALITY

; m!

r:

j.

i '

° i

j ,

i '

J

i

2,

i

ii!!ii li o - 1

I

oFPoo_.Q el'y'

a i i iI .....:

" .

/


tiou telnpe+ttwo and holt of lblttlon are lli_ten,

O+otion C presents the LANMIN8eel+steal e.vito_neot _ot, the body poi+t

spo0L+tod, Values iPol film oOeftlete_t, reoo17+r3P 6_thll+y, l.(i pleSl+le lee

+ So+atom D +hoes the _ode po+iti+n+ and nabs+tel +el+once, s_,tuet+te type+

,: marsala! a_d oonduotot number of the notvork. ]tnl+lll temperature+ sink temperature and the view facto: to the li_k t8 ellS shown.

Section E depicts e Iltaphio representation of the model inelndtn8 the node t

+; epaotn8 end materials. A double horizontal t_ashed line separates the Itzuetute

.:.+ typos. Node looation8 are +el_reaented by an +'O_* o_ the left hand side. ,

_. Section F presents the temperature end load histories of the structure be-

_?: Sluut_8 at Initial ttme. At es_h output, the total number off time steps _nd the

"'! value of the last time step taken ate shown. Nezt+ the tnteatate_ heat loads

+i'.+ and heat ratll ate passe,ted 11o_| wtth the uet heat t_t_ arid o_t of the sttuo- .

t

:+st' t_e. g_Plee recession l_td +eoesslon +Item Ate lhown, 2_e tempe+atu_ee at eaah :+++

+_} _bde withtA the let.etude lad the sxode looatlon, ]tJL- 0o0 belnll the llLttltl s_-

faOe. ll liven.

+' Seotion G is presented eaoh time a node is d_opped +ram the network Is the +'

++- e_faoe _ecedee. _Phe Jane t_o_natto_x 18 oontatned he_a a8 in Seetto_ E.

+- _e_tton It lives the utt nits of the _'_ and a _,eSeall4_ it I temperature has

i at_eeded a material limit Is epeettted t_ the matert_l property tlblee.

+i

; + O_tp_t tot the 8eoond etlnple is presented i+ Table _.2. JLdesotiption ot +

"i

]i i'. thil o11o il not neoelsa_ date to its stmllaritp to the first ennpXt. +

++--

I

'[ • ¶

°i :,

:' e

"3

,+

__ + _ = .+ , . • .........
O.OOdO£_0,7000 O _4

!_ 0,_i:'_ 0,?0001t+'04

:,,, Table 6.1 Output For ExampleCaseOne (?able S.7) ':

_;+ loo :1

+! I

• _:

+.:+,.++++ ............. .++ .............. +,:=...........++r.+,.+!++?+++'+.++' ++++++.++:'%=+yL+++,'...'--' ' +'+" ,

1_. I_CIFICHEkT ORIQINALPAGEIg

: (m F! (Ii_/I,_B P) OFPOORQUALITY

•', 0,4000_+000,|_1_

O,_O0+tt_ O,SI_+O0•

• 0,_ 0,_1_,,_

0 |00_+04 0 lltl0E+00

0 +14K_ 0 |9M[+00

+

!

.+. -0.4_4_! Ot,4ooE-o!

i 0 1_+03 0 idl_+l

+ 0 4000t+00 0 _XXE0i

+, o.2004[_)20 eD00101

++ 0 4_+01 O,a/OOf_'Ot

+ me. emmxvx'r<

+

o+mt+m o_+oo

0 _I_+_4 0 i_+00

(++

+ t

_, ll_lt _t7 - I_t NOf7. i

_lCttlL,ltTt+leelLA'l'Ot+_lgO_,40I)EI+F

(_ n (_,/cu.n) ++

o4mm o.m_m

++ o+_m om+m

++

++ _e. _lqtllqCIIPAt

+ t_ n (I_ILIiti-DEF)Cl _+

04tI_+03 0 I000E+00 + 0 _[+0_ o I00_0

+,+ ommm o_+oo O.+OOAt+O: O.|l ltOe+

0.60041[,o, Otl O.IITOE_

0 1000_+040 12101t+00

0.14001;:+.00.1,I440[+00

O.lgOOt+O4O.tt_+O0

0_4ot+04 o t_0t+oo

+++ Table6.1 (Continued)

•; lOZ

:I 'i
ORIGINALp_Q__

OF'POORQUALITY

(m F) (rI_/F14-BF)

O,;lO04E_ 0,1_1_

0,4004E_ 0,_61_,.0|

0,6tX_ 0,n+_..0l

' 0.101XE_4 0._

0.W01_+OI0._Pt_.._

0,140aE+<M6,400,_.._!

0,t0001t_ 0,49601_-0t

0.i00_ 0,JS, E..0|

• '41j. BIIUiVlIY

(NOF) (l_lll_ImI.L_)

-0.459_03 O.t_5001++00

0._+401_ 0.tm01t+00

+,
_. ' _t'_Ir7

t

ll01)ye01N1_' • II Imlel.I+l_lellvl_llfu1'T_Lil

I'11111 FII_P&M+. I_¢l_ItKeY. I_iIIILIIE (_)

(_CI (LI_/_.F+-_C) (liTIJtLIM) (LSF./_I,PTI

0.001_+00 0._XtI-PJ 0,ttlt_+0S 0.1IlIiZ-01

0.{_(IE+01i 0.i_IE-(M 0.Illl/IEe0+J 0.IM4_..0!

0.t00Olt+0_ 0.mZ-¢l 0.|iZIE+_ 0.llW0e+00

0.IIPJOE+<I_0.31_t111-04 0.1t;_+0ll 0.19Y_+I)0

0,|l)0(_+0:l (I.I)_-M 0.|ll_H)li 0.:77_+00 UI_IQINI;.LPA:L+iI+B+._

0,IPM(+0_I 0,1_0q[-04 0,tl;t_+0ti 0,_l12E_0 OF POORQUALII_e

0.ll00011+0_ 0.lll0::l[.<l{l 0.I111_+09 0.l_i0t+_l

0.;l'_+0ll 0.1799E..03 0.11_/_+_S 0._0E+_i

0.171_+0:I 0.P+;li-02 0.III_+0_ O,7"/4_,_1

0'.2000E+0ll 0.201M1-03 0.II0_+0'_ 0.111M_II

0.3S0<I+<_ 0.3711iI._I 0.t0_+011 0.IP/_[+0_

0.400_+03 0._lT_..0"a 0.1060E+0l) 0.i0011l+_,9

0.4ll00E._ 0.4101E-IP+ 0.t0_i 0.+tlltt+0_

0._X)0(+0+I 0.4_l+E-0_ 0.99664[+04 0.1_14_+0_

0._W_(+o2 0.440_-0_ 0._P/t+o4 0,2470t+0_

': 0.I+_0_+0:I 0.4lilMI-<_ 0._0;:+04 0.IP_+0ll

o.6iOOt+03 o.4+61[-o_ o,lw6_+Oi O.2iO+t+O_

+'+ 0.l_ll0e+0:l 0.W+_-03 0.1_101t_ 0._t_4t+011

0._I00E+02 0.?i_E-0_ 0._i:+04 0.210_I!+011

0.7_E+02 O,IO12E-O_ O.lllO+e'+O+0.24_K+0_

O.71W_lt+_ 0.1j4_E-(i 0.79M_+04 0.21Mill!+(19

0;_M0_+_I 0.129111t-0;l 0._'li!+04 0.2PJI_+0_

. 0.e0_+_l 0.t_e41!-<= 0.7610£+04 0.411_II_Ii

O.Ot_it_:31 O._I_IE._ 0.714Y_¢¢4 0.49'J1_1

0.II1110(+0:i 0.I161_I!-0;I 0.6T/_+(M 0.$_IE+011

0.90M)t+O_ 0.;IP_-0;I 0.6.18_+04 0.11_l!_.l '+

0.10041:+04 0.71_Ii-0;I 0.4000E+04 0.I14_+0_

0,10_+04 0.44_t1_-0+1O.tt_E+04 O._llMt+O_

0.10_;_ 0.44_-0_ 0.:I'_!:+04 0.9'JOte+_i

0.iIOE¢'O_ 0.14_/I!-_ 0.211F..'YO_O.tr_O_!

0.111_+_I 0.4_57E-GI O.J_2t+04 0._

0.114411+04 0.13_llt-_ 0._496_+04 0.9407_4_1

O.i lT_['l'Oi 0.5t22E-0_. 0.|1_1_.104 O._P_6_,,_I

O.l;gOl_+ , 04 0._It-0;l 0.t;P_It+04 0._._t+09

0.17_,01 O._ill_._ O.lO_It+04 O.O_ll++OI

+ 0.12ME+01 0.1_10tll-02 0.69_+02 0.1_f_+Pa +_

++ 0.1410_+04 0,MI44[..0;i 0.4M_,_. 0.7MI,_'j

i

i.

'+-:+ ':; !

"+,_ Table 6,1 (conttnued) _

104

•-- _... ,_,"' -' t+ _,+ - , , +', +m_ ' -._ _,+ ,[ , • ....... =++,., :,+;;

o;-:,++r ',+,,'++,+::::++t+; +,,::",+++,,+, .:`:::+"J+:i+?:+?+::`++'--+-+`-+'`''`,"`m'+``+`a`k+ + --..
1 tt_gCTL_OI_INITIOH OF POOR QU/_Lr_

TIItIT_ lO0,OlE0OF' 1'81=_' d,O00EBf_ FIJ t t,O00 t_i

611_fU1_ • ? AI.AT(UL1 t_

I_IEllI*I.1• HYII,_K

. It _ • II ol_rK[_ _I_A_• 0,416_?E,,,OIN, I

IlINl_• 3 DI_I'N¢[_ 8Ul_k_• ,£ 0,4161!16IN, _"01

iI_tt_ _ • ? Ml._'rOlt ULttlil

HOK_ • 3 DIg?Ale[ _ ItIAIle=A(_O,t : _ Olill,

NUleD• 3 OZeT,_FIr,EIOtBPILIilI•I=AC0.0333 I_ _OE|[H, (Ol_¢lnlqtUllX• 3

tll_A_ltt__" • ? AHAT_ltItL[_

• 1_.IdLt • | dfO,_lll(

HI:E_ " 4 DIIrI'AIFItO CE9UIIFA Pl =_ (I,13OOOIN, 0[_O

gt_ OOl_• 4 OIKP_RtO [ L__tFA•C¢ O.t_XlO¢_O0 llq,

¢Olll_?lIlU_iUI = 4

t111_1iT_[_ • ? NII.AT65DL ll INHt

HA_IN. t =|-tKO,_OI_

' _ _ • _ bl_l'_ RtOtlHdtr_CE, 0.t6666_[*001#,

,i,

¢OlX_?ltlJt _l_• S

:I 611_UCTURE 1"_ " ? AIILA?OI gUOILIHBt

flA_IALt • 1HItO.CO_

NiOl u 6 DIIlTAIC_ E_jll_Al_1 0.i_010 _ll,

I_ IMOOI= 6 DItlI'AI¢I _ _ S_AC¢. 0.I003_,_)0Ill,

6?l_TglI'__ ,= ? ADLA11IMI_LINgt

ml_ZALt • tHIrd,¢Ol_

HOENUNltUI. ? OIBtAPRtI_O6HLA_'AC_0.,_00 IH,

f

ttfl_llXW_ • ? _llATdIlllUllLllta

m?_lll_Ll • |-diO,cOmq

Ht_gi• d tlll_ _ IlIJ_r_• O.Irtl_O let.

'leble 6.1 (Continued) _f

lOS
IeJ_U, q 01_k_tIql_MP_ _ 0,:123:1ZIN, _

fllt_fLqllI_P[ E• ? _'1'01tMLItI_t

IIq_IALt • |'+frO,CORK

MtlOEI41.NJtl • l tO gl$?Al_O[ flSURF•+[ 0,378000E*00 IM,

IIJ_HUI, 10 DltlYANC_110EIH_URFAC • O,37 E _X_O_+O0 IN.

_NXX:?nOII l#_l+•ll 10

_CNA[ 1_[ • ? ABL_?MLI S agt

m_IAL S• lt..O?O,_K

_ • II DI_T#I_IE_ll(:ll8LqI_VA¢[ _ 0,416tPW_+<IM)0,

cmmtmmmm..

_ • t3 DIQ?M_OC[HNIFk¢[• 0.4N333£+00 ltd.

!', trUEIINII_I• ID DIgTANC[ _ 8Ufll+A(m_l[0,490333it'14IN,)0

i,, _III_T_M_ • I;+

gtltVl:TL_ ltlt • 7 AIILA?SIOIt AILIltI_

i! t_ttltI_ l • lJ"gTO,COIIX

ilAfDIU• t t3 OISTAI_I:flUPI ,£ 6IAIFAC[ • 0,_<1000_+0IM,0

,+[ _ HUHD:_ 13 D1BTAPkFII_UHSLI_Fk•_E O.500tX)IX_+, IN,O0

i',L

d'mUl:Ttt"#_lt[ • 7 MLA_Ul.lngt

MllgtlALt *|"9?O.CttK

Ht.iHil_• 14 OIGI'At+_C[ OH6UqFA•C[ O,_|M?i[+O0IN,

:_ _ _ • 14 OI81'_J4FICEII:81J IH ItFk•¢£ 0._41_4,00 lM.

¢O'.'IXX:TO _ It• 14

elatx:'hJit _ • ? Ak.Al'8OI1IdlLltgl

M?tI_IALI mD"5'?O.CORK

n09__lgt • 19 I)lSTAI4iHtr,g_Sl'ltMAC[ • O,N3S331t+4_O I1t, ' ,

IIOO_E • It) Dll;"rklIFLIIO'E 8UH il_+q,,..C[ O.tlO3333E+O0 IN.

CI:II(X_liIIIf A, 'ID•_q ltl

81111,A:TUI'YIII+IE[• 7 AJk.AT3I11:IIDLINItll "

IIAlltliIALI. II,.SIO.CI:IAK

NtI_MUI_II_I E • 16 0lSTKEFIt0IUI 14l_iP•..It O.It_"JOOO(, O0IM, ,e,

[,

T_ble 6.1 (COl_ttnUed)

106

L++:._._ ++_....... _.._- . ............................ ; ..... . ..... --_ _/ll_)

+ .
EITtlI M_'_L£r_t

I[+_• ll_0,P.,llm • 7 _tOIt MI.IIB OF POORQUALITY

_ • 17 N_,[ _ IUIFMC[ • 0,_+00 IN,

411

+, _ MI.IIR_,, 17 01_AI_:ERI014SURI+_• [ 0+/_W_,_+00IN,

+ 4_IXIDlkll".ll_Tl]gll• IY

IIllM:'l_ l'_t . ? NLAT_MLIe

• _l& l • I14'I'0,¢01tI(

_ u 18 DIIPrkI_FE111314 NIFAC•lt 0,?063241t+00 IN,

+,,

,

,+

i+ MOO_I_, t , 18 I)I_I[ _ tlW_C[• 0,70e_l_l<[.1111 ,)0 .

i. _ _ " I ALATIgUt IILIlI_

IO_t_, 19 NIPt_I¢[_ SURF_I• [ 0,_+¢0 Ill,

li_ _ • 19 DX_ANFCROM It _UIAFAC_O,_ , lOO_,_I)NO.

EI'RUCI_IRE =, 7 _.A'rI)RMLIHr:R

_t_ • ;tO OIS'I'_NtI:II_t[]9L11II_'_= O.?9IM_+_0IN.

i

t+ M01E_, ;tO OII;I'_JG_ I_IJIF_== 0./91_+00 Ill.

i

slm_tum_s • 7 4m._t IMILINet

tlA1UtlALt • |-S_1.¢!I ,,

_ " |i Dlgl'_¢E_ 9Jl_K[• O.IK:K_I:HINIt+<. )0 '

_, ,_l i)IStAe¢[_ SURFA• CE0._+00 IN.

CI)IIIUCVOR m • ;t|

g'IltUCYIJI _ [ • 1 AIM..AUI.Ilt I'OI+tt

glACIALl • FfnO,COltl(

I1_ IlJ_l m _ D|_r_J_Fill]+IIUI_R•It O.fl'JlX_+O0IN.

¢0110Ul:MI, 'tI01l '011_., ;I;I

lll11_Itl_it _ • 7 NM.4'UtLII41_ 011

. II_I'I_I_ ! • il-l;'10.Oi_K

ll.l+t_• m 01_1'//__m _C_ - 0._1+.+,6_,o< IN. )0

_ • Z) OlSTAIq_Ct tltlN_A•Clt O,+lM_67t+O0 IN.

COI4DUM¢_UPiB_• 23

9'11_'1_1tlt _ • 7 NILATOMLl It PQ

IIA_XALl • it-t;tO.Cl:lttt

tie _ m _ DIStAI¢[FROMSI_¢[ , 0.91J_124[.IN. ,00 i

l

,' |

Table 6.1 (Conttf_ued) + t

107 '! I
COOaHm_CTU _ • R

S'IAU_'TYI'Un[ PE• 6 'tHIN_IV*

IqA_LAlL• AL,70?_T6

t_ I_tlt . _ Dl_lt FIt_SI_AC-_ O.tSOOOOIllS.+O!

i

• !

Table 6.1 (Cob'c_u1 ed) i

lOB
-_ tTHItBe _ _l_IOmA'rJON _t JN_PT. S

': amI, O_' -...... ' = _---_- --_-:=.... ---' ' --'-" OF POORQUALIFY

_,0 L

:t,O !

4.0 I

, S,O l

6.0 I

7. 0 l "

g,d t

':+ q.O I

: , " tO.0 I

" ll.O |

:"'"' 13. 0 I

_:_:" 13, 0 II-_'O,COIIKkJil,3q'l_ULIE 1.000000IN.

14, 0 |

IS. 0 1

;:_ 16.0 !

:+_ 17, 0 l

_i , tO+0 I

'-_ + 19. 0 I

.r 21.0 I

! ,

_, 0 I .

. _.0 l

......... -fro Iq i-- • " -" I ...... 'm25.1_ i ,I .... _ ----..

0.1_.'+0IN. 00C_.COt.N I

_t... '.............. |

...., IIAOIATIONOAP I,SO0000XH.

+'!i

]

0.t0(3000iN. _.?079,..T6 !

LTOPh,.I'6114111 _llll 0,2130000IN.

--37, _"....... _:..................... ' :- --

0,140000IM. INCONL617 I

_J + IZZZZZ ZZmZ X

_.-t";. Z Z l ;

+--j+,.

+-i++ ' ' I_L.+'+ ' +tlJ_ '.00_ ".

Z Z I

" ZZIZIZ ZZZIIZ l

_+++.. , O.tllO000IM,¢_0.¢I1.tJ1_ l

,-++ m_8. C- -"- ............ '? -- +it. , t

+.!I! 1'able 6.1 (Cont'Inued)

!::Ii zo,
p

i_.

!r !

ii: _* 711•6 O.O_OO?lit I_ • 0.000130NO_° 8t_ • 0

_: lh_Afg)fIAT HEATnA_

I'

' WI,I_11_ 0,0 _e,/eC_l) .0.0 ORIGti_i.I.'_+ _lL ,,_(,,,,,_., :+ ,

WIA11_ 0.0 ekDIATI$ 0.0 OF POOR QUALrrY

i; _ LOkO 0,0 it"rLO_ 0,0

/. gTOI_O 0.0 IJ_ltl_ 0.0

IL t_t.lflm 0,0 ULIIg_) 0o0

,;':. AM(:I_I 0.0 _DP[C11_ 0,0

:'_ 1_ II1 0.0 11__ 0.0

ir

i] DI_Tk_ 0.00000IN. I_CEgSlORATE I 0.00000Ill/tO

:" ?IDellAll_11F_e[

!! ?| 1), t00.000 T( _l. 100.000 T(:1). lO0,OClO T( 4)+ lO0,O00 ?( t)_ 100.000

L_ T(6) w100.000 1"( ?)- t00.000 T(0). 100.000 T( 9t, iO0.O00 ?{ 10), iO0.O+X)

!i. 1(Ill,100,000 T(I|1,lO0.O00 Tli3)ilO0,O00 T(141.lO0.OOO I(19)a1_0.000

T(i_),I00,000 T(17)'*I00.000 IIID),100.000 TI19),I00.000 T(_0),iO0.O00

!_;- T( _l)_ 100.000 T( 22),+tO0.O00 'r( _}_ 1oo.ooo TI 14), 100.000 TI _), iO0.OOO

_: Tt _), 100.000 11_7). iO0.O00 1l _), lO0.O00

' lull I)' 0.000 IX( ll)* 0.04| lit $)" O.O_ll IX! 4)* O.IIS lXl S), 0.167

• IX( 61. O.iO_ IlL 71, O.llO Xlt lit, 0._ lit(q), O.fJ_l l{XtSOl. 0.3'/l

lit ltl),_ 0.417 IX(|$11,, 0.4_1 U{ t3l,, O.MO IX(141,, 0.949 IX(it),_ O;_l

.- IX( lb}_ O.glS XI(IT), 0.667 Ill iO|+_0.7_ IX( 191, O.P_O |X( iO|i O._Srl

_( ttl- O._ll xl(_), O.IP/I lilt 131, O._t? x_( lt4_, 0._ Ix( III, l.O00

111_}' 2.MO XX(i'll,, t.eO0 XI{ _),, 4.800

1'111. I00,00000 t_ _1_ = i.04:lOV NO.OrSlgq - _e

II_I_ITI) I_? HEA_TT_I m,++.,.,c

++, ,,., mmm o.+

1t,3 inlEl) 0.1

f_.tl_ 0.0 ULIII_ 0.0

MVEC11_ 0.0 kl_ClU) 0.0

• _ 1t"1' 11,3 'I_NLr'I ' 0.|

Sm_ n[Cl_lm

' llltltkl_:l: 0.00000Ill. llltlll_lOMflkl_ 0.00000IM/_I_

1111 _l 11,, , 1i01__.400 ._ 11:1, T(1), |74.10 103.1149 ?l 71 $11111 1, I_. t01.4?, IA_ 71t( _)*l, ItOO.&1] _.S_I Tit(|o), ( $l, itt0o. l.M4_

ill ?1liP+iO0.Og6 TI liD, 100.0_4 1_ iS), iO0.Oli 1i 14), IM.O0_ 11 Ill++100.001

11 16|, tO0.O_O '_t |7|, |00.000 I'I 181, |M.O00 T{t_;)• |00.0_ 11 _|, |00.0_0

T(|i), iM.O(X) 11 _J}, lO0.O00 tl _), I00.000 T(IH),I_.{_ 1( _1, IO0.MO

: Table 6.1 (Coflttnued)

;tO

•...+. .. _ ++.:.._+++_ ..... _- ._.++._.._+?.__"-_ •, - - r+ • .'.."*_+ - " '+'_:-%-_%_;+_':-"+." :+" ,'-,'+ ,L.L7-/I_ _." '+
t_ FOSITIONttlCtES

IX(J), O,OOO iX( JJ. 0,042 XI( 31., 0.083 Xl¢ 4), #.in IXC_), 0.167

iX(A), 0.g0e Ix(7). 0.ZiO xl¢ t), o.m IX( q)s 0._ n( tO), 0.37t

IX(L|), ().4L? Xl( illll, 0.4M IX(llll, O.MO Ill( L41, O.llltl IX( 151, O.m

|i( i61, 0.6mS IX( |?l, 0.617 KX(_8), 0.TM IX(i_J, 0.?'d0 IX(g0), 0._

Ill lit, 0.Mli lilt Ill* tt.lS ill Ill, O,il? ni 11), 0.1M Ill Dim l.m

.. 111Ill. II.M# IX(17t, 1.tti! II( III, il.1011

tIK • _.0_00 TIff _ • 0.4?696 NO.OFgTE_.. N

ORt_AL PA_i_ _

• INIIBARliHBtT 1141IA111B OF POORQUALITY

IIQ/M,FI IIIIlIIlI,PI-tB

WIAII_O 34.0 flADIAIill 0.6

tit Lil ii.i lit i.011 0_i

0110 _.tl Itlllil 0.7

tM,INE_ 0,0 M.lnf_ 0,0

AI)WC_ 0.0 AOVEC_ 0.0

1111lit S6.i 11tilk 0.7

lUlIF_ llflBllZ011

Dill 0.I IN, E_ll _I 0,I lie

T( |tJ69t.163 ?( |)* 413.014 T( 3)1307.611 T( 4),tli.010 ?( tla,llli.lit

li 6), 1119,ii77 1( IIi lilt.lilt II Of itbJtl_ Ti ill, 109,504 t( lltii II.M

T(lli* 101.tl_ ?( tti" 101.1_ T(Ill" 100.939 ?(t4)" 100.410 T(llti, 100.111

II t6i, 100.i01 l( Ill' 100.0411 II lip 10¢.011t ?i 19i,lt_o00t 1_1ill, 100.004

?i lli" 100.0el li Ill- tl0.O01 li It1_ ll.0M T(t41,L100.Ol0 li 15P,ll.01b

T(lt)'_ 1®,_ T(tl), II._ II Ii1), l®.Ol

MI?lali Xi¢lllli

II( lit 0,004) illl( |ll (I,041l U( _|" 0,41_3 It( 41i liotilll IX( Ita 0.167

Iit ii, 0.1011 ill li- 0.1tl lli Ill 0.191 lli 911 0.333 IX(lPll 0.31_.

IX(liil 0.4t7 II( itl, 0.41 Xlli Ill, O.f_i0 IX( tli, 0.tl Ill 19i, 0.t

lit lip 0.11_ ill 111, 0.1iT Ill lli_ 0.706 Ill 11tl, 0.1M Ill t)i, O.ltli

lli( ttl, 0.IW iX(llti,_ 0.111i if( ill,, 0.9t7 III(lil_ 0.1t_l Ill l_l_ l.il0

I11(lltl- I,MO IX(l_i* 1,1_ Ill llll_. 4.tM

TIIIE• 1_1,_I1_ Till: _ • 1.42916 M),(Fft11!I•)1 ti

lli11!lAl"dHEAT l HUTtAltll

IYUIIt.rl IIUIIII.IHt¢

iiSl_Tfl 310,4 1111t.11 3.l

'IAIIIA'I_D 1#1,4 IIAIIIAllHll thlt

I lii IAIII 1106,0 Nt?Uli 3.4

t11Wdt 103,0 IlUli!il 0,4

.; Klll_ lOl,3 6ULIJI_) l.O

,- llllf_lli 0,_ AO_C_II 0.0

_1 IEI 106,0 TIigPIE? 1.4

Table (;. i (Contll_usd)

ll!
i_ ORIGINALPA_.,_I;_

t DIeI_,0[ O,OOt_Z,N, _¢L_lC)IMIE 0.000_I,/E

• 11 t), 7_)._00 T_. ), _/.61_ Y(:l), W.t_t T( 4)__r/B.4eo T(_), _.101

1'( 6l, |_._1 T( 7l. JIo0._S f(8), Ib_._ll T( 9)_lll.m T( 10l*1_8.0_1

111|10117.4_4 Yll|)e 110._1) T( 1_1_1_._1_ T( 14Ira|O*3_ff/ T( l_tleI_.[q4

T(t61,g0l.tgt4 y( |/)z 100.?0S T(I|lt 100._1_ Y(lqPlu101l_|12 f( _l* g00.1||

:: 1(||), I00.0_ T( JJ)*1_.0_10 T(_1), 100.01§ _l |4)* 100.006 Y(_), 100.001

: _| P_)*100._ _(IP), 1®._ T( J_)' 100.000

•.+ NODIEI_(IITIOlllllCH[lll

IX( 1)_ 0.006 XX¢D)' 0,044 XI( _)_ O,Oe:t XX(4)" 0.l_ IX( _t)_ 0.169

XX( 6)" 0,100 IX( 7)*' 0._0 XX( 8)" 0,_! IX( 9)* O,:il_ XX(|0)* 0,_/_

IlK( ill, 0.417' If( l_l, 0.4_ IX( l_l, 0°900 ILl( 141, O.M| IX( I_AI, 0.d_83

I(l( 161, 0.6,_ IX( lTl. 0.667 Xl(18), 0.700 IX( 191, 0.710 ](X(_1. 0,79_

IX(|11, O.g_l XX(_), 0.8_ XI(_ll, O.dPl? IX(|4t,, O.'PSO IX(:Ill- 1.000

Ill _), _._00 XX¢Q'/)* _.eO0 XXl118),,4.tl00

TIRE* 400,00000 TIFE_., 1.03_1 NO.OF_ * l_

II_'tlAI_D_tAT It.AT_AI_S

C0_Cl_I) e_o._ 01)1_1:11_ 4.1

:.J . l_!l)lkl_ l_,l I_ki)lkl'El) 0,_

_ lOAD _0_,1 eLrLl'OAD _,_

:-.. 9TOItl_ 1_,? _ 0._

'.-- kl_cl'_ _.6 kJ)VE¢11$ 0.0 _,.

_'_ gW:_ KCI3Sl_

. IJIBTAICE 0.0_0_$ IN. _C[gSIOId_TE O._OOISINI_L'¢

T_P_ATU__ F

•: T( ll.. 760.400 T( ;t)..6G.6_0 Y(3), S39._94 T(4), 441_.tqA1 T( $)- 9'R.Z_ _.

i-_. 1( 6)- _lO._t_ T( 7)1;_t8.019 T| |),t 2_.4_ T( 9),, 19_.107 T, 10).:l_7.lO_ ,.

_- T( 11)_141._5 T(t_), 1:_.713 T( 15)*,1_,1_ T( 14)a114,'/00 T( _),* |0%_'YJ

1'(161e10_,|_ 1'(l/Irat03.841 I'(18), 10_.:J/l T(tgl_101,44Jl "((_0t,100.SM

i, 1(|1)_100Jld8 1( _)* t00._1 1( _)_ 100.160 T(J4)*100.0_ 1( _)_ 100.0_0

i_ T( _l- 100.000 T( _)- i00.000 T(_01,i00.000

'-:" _ POStTll)lt£HES I

IX( tl, 0.0114 IX( _= O,04e XI( _ll_t O.O_l tl(( 41,, 4.1_1 IX( tl* 0.167

.... U(6) m 0,_ )IX(7) = 0._) XI( 8)= 0._19_ IX( 9ltz O,_J_ IX( |0)8 0,_)

_' IX( 11)* 0,411 XX(j|)= 0.4N XX(|_)v, 0._00 ZI( t4)t O.M iX( IS),, O,_

_. IX(161, 0._ XX(t/)_ O.M9 IX(Ill, O.?O_ lit 191, 0._0 IX(_), 0.7_P_

_:_ lit( |lie 0.till IX(_). 0.1_ It( _)= O._l/ It( Q41- 0._P_ IflL(_), 1.4100 ,

XX(E). QJiO0 I_t(_1, _.eO0 lit( _)- 4.1_

__'_ Table 6, 1 (Contlhued) .
,+

*i ovPoor

lml_A_ Ot _T nM1HI

'+_' il_e,Pf JIWmi,Irt-m[¢

,.l' _I_E_ 1i00,6 ¢l)lV[¢Tlg) 4,t

': _IMitl) t69,8 It_IMll[D 0.II ',

[!, l['f I._ eSO.e _ LO_ a.a

_,i++_ Staid tda,q I11'0_ O.d I

+,+ OWlira, M:.I eUm.la_ S.o +1

,.++ AoveC+_ a.e AOw.C_ o.0

i_ SUR_£ItEr.l_SI_

_! DIll?AlICE 0.0367| IN. R£C_IOHdA11t 0.00016IH/_C

"+' ItN_ttJt[ K0f"

": 14 1), _0.400 71 |)* _.040 TI :))"699.048 T( 41m_)|.:_2 T( S)* 4J9.|13

?( 61, 370.S?! ?(7), 319.t2t T( 81, t74.774 T( 91, 337._4Jt T( lOlu_MhO+?

T( ill, 160,dd_l ?( i21, 1_0.3_1 ?( 131,144.4_ Y{14), 13_+.173 T{l_), 133.q'_4

T(16), |l_.0_J ?1l?),, 111.009 ?( i|_,' i0?._ ?( 19)* 10t),0_ ?l _),, I_.:iP/

t( |11, lOJ.131 ?( _)" IOI._N ?( _l" 100.800 1'(J4),'100.4_ ?( _)e 100.i44

T(_). IOO.{XX) T(_/). iO0.O00 T( JO)*iO0.O00

XX(1), 0.037 XXl_1), O.OM XI( 8), 0._03 XXl4)+, O.glS XXlS), 0.167

XX¢6), 0.M XX(7), 0._0 XI(ii), 0._ IX(9), 0.333 IX(10), 0.32S

IX( ii)m 0.411 ItX(i|.)+ 0.4_11 XX(131_ 0.900 IX( 14)" 0._| IX( 19)t O._D

XX(i61, 0.1_ Xlt(J?), O.&k'/ ltXllO)* 0.700 ItXl19), O.?SO IXt _1" 0._

'.' ilt(|l) s 0,l_t El((_1/ 0,1_ |X( :1_|_ 0,4_|7 I_( ;M)i 0,_ IX(_)' |,000

"_ XX_l ), |.900 Xt(3?), |.000 XX(N)- 4.1100

Tltl_• 600,00000 ?IHE81_P• O.14T/'/ 140,OF_ • 4_11

ii e/ao.rt-c

! P.01_11_ i_lOq.$ 011_/E01'_ 4.t

' P.A_IATED 3_.4 tAI)IA'II_ O.|

i IT LOAf) IIM.9 lSTLIMO _I,_

,+, m.tm _,a _Ltm +.o

ki)_l_l) 4.4 MQE¢11_ 0.0

ll)ltlTAl_ 0.0_13 IN, RIt_IOMP.A11_ 0,000i?IN/IE_

1Bel_1_ Oeale

1( it, 760.400 T(3), 734.kla 1( 31, _|._1 71 41, _)SO.040 1't 9), 473.1Jl

' ?( 61, 4iI.IPPJ T( 11,OMA)og_ ?( Ot, 31_.170 ?( 9)+,d?_.M4 f( |Ot, ;t41.4.9} ' '

:+ ?l 111,|I|.M+ 11t|), iM,q8 ?l 13)0tMI.M_O ?( 141,l_|.O0? Y( l_l, 13_.6"/0 '.+

?( |61, 1t_,_'/ T( 111,ltl._ll ?1181,119.708 ?(19), lll.l_l"3 ?1301,|Ol._l

'1'¢|1), 10_,4_ ?t _), 103.641 1(_1), |_1.366 ?( 1t41,101.2611 1( _|, IO0,S'/'J

_o 1'(361,lO0.O00 1'(|?l, lO0.O00 71_l, I00.000 i

"_ Table 6.1 (Cofltf,ued) '

i13 +*+

.. i!

..,:_, _1
C;)

Ui_ l,OtiI+lO+11_41 ( it_

ix( 11. 0.0+| IX(;I). 0,0S9 Ell 31+ 0,0[I Ill 41, 0,I_ IX( 01. O,li?

IXI 61. O,;iOS XXl?). O,2'_JO El( 8),, O,m 111 9), 0,3011 IX(tO)m O,3'fi)

Ill I11, 0,417 XX(l|l. O,4B El(13), O,NO 1X(|l}, O,Hf IX(IDla, O,W

111161, 0,_5 Xk(1?I. O,MT XE(191. O,7Oe Ell ig). O.7'JO 1X(_01, 0,791

111+i),,, O,m Iltnl, 0,6?5 Ill m},, 0,917 111|4). O?P'JU 1X|_),, 1,000

IX(_1, +,tO0 n(;17), LO00 IX(a). 4,000

1

+I

It OIIOPP[ _ Dt_Jl.llq_-_Lk1_NOI)[L OHI(_II"J_L;"l_+++:.,i i ,",_;,

OF POORQUALI'CY

11141Ig9TiltI_¢IOURATFOIOMilBODPTY, 3 +

ml |. O,+_n_mmm--'__ .=mmlmms,._.,--_-i .-----

1.0 1

2,0 I

4. 0 I

5.0 I

6.0 1

1.0 ! '

0.0 i

9, 0 I

I0. 0 !

tl. 0 I

t|. 0 1

i$. 0 5 ,ITO.COIINK_..ATtI_I_LtI_ 0.949_)I_N.

L4.0 1

I_).0 I

Ii. ll I '.

17.0 I '+

10.0 t i

lq. 0 X

m).o 1

|t. 0 I

;m.o 1

ml.O i

O.17JIXIM. X)C_,COLLqll 1

L Jll I ilnl I I _: : + .... :?_ ,_ X

I

RADIATO_ION 1.Ii0000IN0 .

I +

.................. "- " t 4

O.lO000IN, 0 AL.?O,_Ttt l

' _.70_'Tt+ 1141H_tM 0.300000IN. i

"-_6._- ::: _....................... -- '

0.1_0(XI)N. IlIPO,lI.6t7 I

++ IIZZZI Z]tZZZZ I

_. Z Z 1

1 Z M.,?OI_,T6Ztl?Al_ ;LO0000IN,0

Z Z 1

ZZZZZZ Z/ZZZZ 1

O.IlkXXlitX,)Cfl).CIUHa 1

table S.1 (Co_t41_ued)

114
ORIGINALPA_E . ;3

OF POORQUALITY

TI_ ' 700,00000 TIHI_! EP• 0,46010 NO,OF_ • g4:l

IMYI_t_ liar IlEAtllATE6

IllJllt0,_ I_#B0,F1-tIF.C It

OOP_eOTEI) l_Te,a coNvEc_ o,e

, AADIATIOI 4_.1 iI_IATI_) 0.0

lit LOAD 1542,7 _ i.OAI) 9.0

gLLIII_I) I_W,4 Mt,Xm 4,1

_C_ S.O A_)W.CRO 0.0

:r _ IT 11_i.7 Tiqlit i.O

gllW_ I_MIOM

DIgYAIG 0,0_19IN, IIit_gl_10HItA_ 0°00020ltl/_0

: T( 1),'160._}0 T( |)= ti_._'_ T( _1)*'//8.'Jll T(4), Ib14.$10 1'( It1,449.0_

;" T( 61._J'b.lt_l 1'( 7}=M0.169 T( II)" _10_._4 T( _)',/e/_,41_ T( 10)'114;i.100

u' T( 1112,,1S.4111 T(t|P, IN.M7 1'{l_)= "1_.M,! T( 14),,IS7.1t7'J' 1'(lille 144._14

Y(16)=1_4.967 Y(|_)=l_._q7 T( I8)t 11_).6_4 '_(19)*114.S= T(_0)"ltO._7

T(2l)s 107.441 Y(_18 1_.07_ t{ _Jl, iO_.llO T(_1. 101.547 T(_), t00.000

, T(_), 100,000 T( _)- IO0,MO

_. _ leI_ITIOMlil_g

_i ll( 11= 0.07_ lit |1= 0.0_ Ill _11. O.t_J Ill 41" 0,167 IX( Sic 0.;I(I

_.+ IX( _)t O.J_O IX(7). 0._ IX( O)= 0._133 IX(9), 0._"_ IX(10)= 0.41'7"

--_ iX( Ilia, 0.4_ It( t_l)= 0._(} IX{|3)e 0._4_ XX1( 4}= O._i_ IX(15)= 0.(_

=' -_, IX( 16)= 0.667 XX(J7)- 0.708 IX(18)= 0.750 IX(|9), 0._ IX(_)80.8_J

-_'"- ILl((|t|" O.l_J X_((_)= 0.91_ Xt( _11" 0,_I XI( _4)n 1,000 IX(_)" J.SO0

_" _ IXIOPt_D_ tMI.II_-AIlI.A,11t

_._"

._

._.,

4

.j.

-j" :

l'

a

•_ '['able 6.1 (Contlhued)

" i15
, v P'I

|, 0 I ORIGIN;_L It++-J_x._' C,_

_I,0 I OF POOR qUALITf

4.0 II

0,0 I '

6, 0 I '

1,0 l

e,0 I

q,O 1 .

tO,0 l

It, 0 +. '

It, 0 11..6TU,(_IIklKll.k'l_IJSLlm 0.91019IN, 1

13,0 I

14,O i

IS,0 l '

16.0 l

IT.0 l

10,0 1 ,

19.0 I

_.0 1

_.0 3t

amZl o _- '+ "+--_..... " '-+----'-- _ ?+'+'i ..... _+:_.... ++_' --

O.l_JO00IM.¢I'D.COLOI_A [

I

RADIATIO_ N I.M_O_X) IN.

I

O.iO000IlL0M..7o75-'r6 I

AL.707_-T6_IN tKIM O,MO00IN. 0

;'+ O,14000IN0, lllCOM61.7 I

Jl i jjii _ _ --+ _ I

ZZZZZZ IZIZZI t

Z Z X

I Z _,10_Y6 ZlJT+qlIO_ 3.000000IN.

_: Z Z l

' ZZZZZ| ZZZZZZ I '

_,,i _ •........... - l

_,,_i O.tllO0(IOIN. I:TI).COI._I I

" ""_' 0"+-+'_+_+.............. " _ -+ "- - -'- i

I!,i +

i! Table 6.1 (Continued) I

ti; + I

'i

elm _e 0_=------- ..._.+.. .....w:..._:__.._: .._.__,L........_,.._.m.

_1,0 I

3, 0 I

4, 0 I

9, 0 l

6. 0 1

7, 0 1

lhO I

+, 0 I

lo.0 l

lh 0 1

t2, 0 B-tti'O,COflKMI..4TM_ LIHOt 0,96+149IN,

13, 0 1

t4. 0 I

IS. 0 I

lib,0 l

l?. 0 1

tO,0 I

i_. 0 I

_. 0 l

_t, 0 I

---_. O+ .......... - ..... - :::+,_,+,. __ I+

O,t_la_O0Ill, Cro.r.Ol.Ul,le l t

I I nllt IIII I ............. tm .t , tit tq II II I I I

l

IL4DIAT_IOH 1,9000tIN, 10

!

u i Ill II ............... T +-+::::: _ t

O,I(XXXIN, _ AL,?OT_T6 |

AL,70'PS...T?H6IM_lM 0,30000IN0 ,

"-"24,0.: .................. -: - : ............ ;+ - , , --

o.lmt,. m, z

:.,.z + mz............ . + ......... l| +:

Z Z I +

•+ Z Z AL,?O?_T6ZII'I'MIH_ 2,000000IN, +!

Z Z I

IZI2ZI MZZII l , +i

[ _1 III I I I I IIII l| ........ ii I_ t

' 0,iii0000IN,CI'O,¢OLLIID I

MOOIXIt_ FllallmAH.Ittlt.._L,TnOOIt_ i I

I'

,- Table 8.1 (Cont41_ued) +t:

118

,++

•,,. {

• o

: :+..,...+......:.:.. .+;!.::.'++.+++++++++,.+.,.+,+.,.o! +..::+:...:+:, .., ++0.+.:. :++.+..+,,,,.+.. :.+.,,.++°°+.+:.+..°+.:..+,.;,+,,: .... ++.++,:,..+,

MOPI_OeoUIiLIIalRHi.l,AaL l. ATIIR

Table 6.1 (Continued)

llIO
e

,,7):+

ITHI6I_tY_ Wd_IOI.AUI'_rlOIOP N tP?o 3

3. |' O0 I1 OF POOR QUALITy :

4, 0 1

* O,0 !

6, 0 l *,

7. 0 I

8,0 1

. #. 0 l

10.0 I

It, 0 II-flI'0,C01IMK_TOI_ULII'BI 0,711_6NIN,

lJ. 0 I

tL 0 I

14. 0 I

IS.0 l

16. 0 i

t7. 0 I

18.0 I

;+ iV.0 I

+ iit_0* _- ..................... :: "..... _+_+I----

O.i;_O0 IN. C?D,COLUMB I

ii i ii ,m iii i | ii I

i 1

I_l_l+qtlOONN+ I,M(X)O0IN.

I

m i i i ii iii i i i _

• O.tO0000IN. N..IO?)-T8 !

AL.707_-Y6THIM_lM 0.300000lid.

m_o _,." ............ i'l t I I .......... IT.

0.140000IM.IMP'Ill.6t7 I ;++

i llll IIIII m .... . d m ..... i _

IZZZZI ZZZIZZ I

Z Z 1

| ! N..707_T6 Z_AMIO'F |.0000_ IN.

Z Z t

lZZZZI ZZZZZI I

.... ' + --.-_ i - I

0.100000IN.CTI).W.IIID I

mZj, _-_ ........................... ,u,u_ --

41

_m FD _I_a-MLA_ _L

!

i Table 6,1 (Conttflul+d) ,;/+

I 121 +
'+

IIHIII III '11'I[llflIIJIIATI[III_ DY Pf, | ORIGIP_IALP_,e_ [;[_

OF POOR QUALITY

am |_ Osmmummmm,,,.,...,i.,,_....,.,..-._zmmmmmmsmmammmn .-.--

l.a I

3.0 I

,.O I

l.O I

6,0 I ',

1. O I

II.O l

q.O I

10.0 I-9?O.¢ORlkqiLk_ltMLIte 0,?4l_PlIN.

1l, 0 I

13.0 I

|_10. i

14,0 I

11t.0 I

16, 6 1

17,0 i

xe,o l

O.12tlO00IN. C_.COUA'III l+

I

PJ_IATI_O@ 1,800000IN.

I

0.10000(IN. } L?O?t_T6 1

N.,70/Ft6 THIN_III 0.300¢_ IN,

O.ilO000IN. I_ 617 l

ZZZI|! Z|ZZZ! I

Z I I

l | AL.707II'.T6Z9?kNI)IIT 3,00000I0N,

t Z l

ZIZIZI ZZZZZZ I

+ ; i i • ii i | m, . - ..... _

0.180000IN.(:T0.C0LINt l

mi2_ . 0uT_+_:" L_ ,T * _i ,,_+ +_'___+=_-±:_u+?+: ; _m -.--- 

Tlllt• lO00.OOO00TIMS1E0 • 0.0+II_ NO.IF_+ • 1041

1_t1_ tlPd' It,ATAAlt9

II'llJ/tllorr rllJ/lll.l:-gl_( l :

Cl)_cl_ 61|Ih4 C(II(I_._'tl_D 17.6

I_IATEO _,2 ItADIA_ O.g

_ 14_.It Itl LIW) 16.1 '_

at(lifO Sl'l,! StClII_ O,l

61JILIPlEO 101P/,I l_.llll 16._

_/ec_f) _.4 _c_ o.t

lET I1_.1 1_ lET 16.7

Teble 6.1 (Cpf)f.'Inued)

, 122

• "% V

_=._ - -_ ........._.:... ,,::-.=":.__: :::_:,_:;=:+T:_:=.++..... = :_;:!i._-.-,.*+",=.:-*;._'_+_+ =_-?.;._"=+:£:.,+_%_;. _ +.:*++.,.:_ ....._:,++,'.++,_',- '++o
¢lK/t_ I1[¢E181_ OF.POOR(JLIAI,.I'_Pi

1_TURE B F

t( it* 1_.44_ 1( ||, 644.6H T( 3)_6t_.m 1( 4t*4_.e01 1( S|*B,_t

: 11 6), _lO,m! 11 7). Ir/_,O_ 1'ca),,1,_t,60_ T( 9)f |IT,SlO 1'¢lO),196.701

. 1(ilS,i_._IZi T(t_l),tM.$ii T(t3),t5|.1|0 _'(i4), i4t.6$S T(iSl,lIB.il4a

I( 16)*J|llS,_ I(11),IIg.IIA T(1O),11|o76t Y(i9),i0_.169 y( _)i 100.016

tuITION1N¢_[8

".- II( |)t O,NI 11_(I!)" 0,_ 1[1( _i)* 0,_ IX(4)" _,_'/_ IX( i)_" 0,41_

" |1( 6)" 0.4_i |l( ?)" 0.S00 If( O)* 0.M| XI( 9|" 0.N_ |X( |0)_ 0,6_lS

: X][(iltm 0._? IX( l|J" 0.?06 I1( 13)* 0.7'_) IX( i4)" 0,_ IX( IS),, 0.t_l_

IX( 16)*, 0,1_t IX( 17)- 0,_i/ Xl( 18)* 0.gN X_(19), t._)0 IX( _)_ _.N0

IX(_i), l_,e00 It( _)* 4.800

Table 6.1 (Continued) ,'_

123
{:

11141IS91'__IflOUI_AY_O_ I_ ,tOPT. DY 1 ORIGINAl.PA_I_,t:_

.. OF POORQUALIFY

m i. Of, "_ ...... -: == -:=_ ,_L.....

:+ ll, O

3.0 I

4. 0 ! ,

,. 0. 0 l

6,0 I

7.0 l

'_ e,O

9.0 I

10.0 il-_l'd,COHKADLATOII ULIHU_ O.6_P#lOiN.

li. 0

12,0 I

13. 0 I

_4. 0 1

!

IS. 0 l

16. 0 I i

17. 0 I

_lB. _- " ':.:........ .. .............................. --.

0.129000fM,(_?'O.COU.tgJ, I

!

RADIA?OAP ION 1,500000IN.

• i

L

- l

O.gOOO(X} IN.,AL./OTOP?6 I

AL.7079-T6THIN9tlN 0.300000IN,

_" '==20C-+ . _-'":'-:_;-= ":-"..... =""_' " ' _=.... __l ..-.--

0.140000IN. IK'ONL617 I

i i i me i

ZZZZZI ZllZZZ ' I

t )

Z Z l

Z Z AL,?07'5,-?Z91'AN _ IX:I_ _.00_0OIN,

! Z I

" ZZZZZZ ZZZZZZ I ;

i i i i

_" O,iO0000_, Cl'O,COUA_ I

,=_1, 0.__- o,"....... _....._-

----- Immmmab

I

i

,+;. SClUlea-LImlOlln. i

t+ I

, I

+

l

tl

Table 6.1 (Continued) ;

!

124 t

1

• !
I?HXIn0TIEOI)IfXUAT_IONInl01PI)y'. :1

3. 0 l ORIGINALPAC__E;'_, , ,:

_I,4, 00 i! OF.POORQUALITy ,'

g.U l

" 6,0 I +

?.0 ! :_

II,O I i_

+,0 H111,_11.AU1'OUl.Xa li 0.._10"XN, +

• 10,0 1

11,O i i.

12.0 t

i_. 0 I

14. 0 i

IS.0 I ,

t6, 0 l _

o.lm)ooill. cl'O.¢lx.tm i

__ LnL I _ I Jet I I ,n UlnL 1

t

WlATll)IgAP 1,t00000IN,

I

J i : : - i n i i L inlu _

0.1000II100.AL.701S.,,'r_ l :_

AL.7OgS,-'lHXl'b Nem 0._000O0IH..,,',_

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

,,n. °,, ,

[ In I [ In L • II . |i i i i i _ .

/2ZZZZ I'/ZZZZ i

z z x

z ! &,/o/z-1'6Z$?AIIFt' :t.000000m. .'_,

Z Z I '_:

IIZlll lllZIZ I

• '_ ......... I !,

0.1000(30 111¢?, D.CU'_ i

•._.g':'_: ..........-:: .....:._:-::-.:_- -:-: :_: ....... -- +

I

i

. 'rlE , 1100,00000'1'__ - 0,2400+ tl0,OF_ • ID0 .i

IIIrI_oIiAIEIEADT ll_A?_?1_ _

r,

WlA'I_D 76_.! I_IA1_ O.II t

_. El' IOAD _P_.O I11t,OAl) t_l.0

IUN.W 61_.9 llKlalZO II.S

Aig_'I_I 14.1 P_C_D O.l

I_qi_ 6_.0 11q_ l_.O

?abl_ (_.l (Contlnued) :I

125

t o

_._- _...-.-.;.;.--.:-;.:,,:-.::;: - -::)-:- -;:.,: ?=T:_--_:'-2T___._._:: _ .:._922_':'_':" .... T_.'TTT_I

.... :*"::'E":_ o" _.,. '_ : '_,'- .. _ ." ..._" _. " . .:'._" " _.._'; • _:r,'._'_",L"}r ''''_' . _'_,:_,r_.7_'=_-_=, "_,,_r_*;_.,._'_;£_._'_-_, _m_;_;_i_,'_.___:"' _ _: _'_" _,_7;_¢_
1891_[ K0F

Y_ S),760°400 Y( l)J 6_.il:l T¢ _)i NSom T4 4)m4|0.41:1 1+(t})J:i44.q00

Tt 6), ff4.m Y(7), ;_.m T¢ 8), flh0_19 T(_), _1.9_0 T(10), llG,m

Y(ll)1d66,7_I0T(l|)w1_.619 I'flll d 14J|.6ki _ 14Iltm._ll6 T(fll)li__.?_

t( t0t. 1t9.|_ T(t?lm||S,4_ 1+(tSl. t00,0_ T| 19l, 100,0_l T(_0|. i00,000

IX( lid 0,361 Ill |Is 0._ IX( ||t_ 0,417 |I( 4}. 0,4N if( t)e 0ol00 "

It( 61, 0.S_I |1_(71* 0+Sl_ IUi(8|*. 0._ 1_((9P' 0.667 III1(101" 0.700

IX(111, 0.7"_0 H(l_), 0.7_ IX(1_),, 0,_ XXl14),, 0,_?'_ IX4IS). 0,giY

IX(t61. 0oq_ XI(i71. 1,000 XI_t(|l,, |,_0 IX(iV1. L_00 IX(_0I, 4,000 '

9. 0 I OF.PO_R QUALI'_ ,

4, 0 |

..¢

_. 6.0 i

: 7, 0 I

+, 8.0 l

_. 0 |.-_.COA_ ki_J.AT_LIi OR_ O._ttO.IeaN.

tO,0 l

" tt. 0 t

:: 1L0 I

t_. 0 I

14.0 I

1_,0 I

O.lZ_OIM,¢, _0._ I

'++ - ..... + I

I

I_qi)I_qt_l_ 1,900000IN,

I

iiii • _. lml I |1 iql _ I • II jl

0+I0000101i._1,.70_5-_1_ !

--17. G_......... - .................... ----

_..YO/"_'l'_114111 _lll O.:lO00I00N.

0,140000IN,,IM_L61_ I

_ tl ii u ii i i i + i i i ii ii t

IZIZZZ IIZI_Z t

Z Z i ,:

Z Z L_'/_..'r6 Z_ LO00000IM.

'i Z Z 1 "!+.

. IZIZII ZZtIZI l "-

O.lO0000IM.C_.Ctlt.U_ 1

'":+ ml_. _- ....... ' ...................... ----

,.j !,

;: Table 6.1 (Corot<hoed) +

_:_'.:+_:.-..... -:,/: .-,, ::.-:+++.-::+__;__: ................ _++++..,+.,+..m+++_,,++,+,+++_m++_.++-.;:-_++._-+;_ _+,0 .... +....
IF_ o- • ,_.. qq

ii:

,; Ot?fgfPTNP;/_:._;*. r,*_. 7 ;

[ OF POOR QUALI'oY !I,

YIE• IgO0.O0iX)0 TIME_, 0.16g|l _}. OF_. l_J04

•'J : INTF.I_ATI if_T IF.ATIIATIi]

_,,. rlI)/N,FT IIYUIN.FT-gEC

. _NV£_ 8141,6 {ONVE¢?E_7,0

._. llAI}IAltD N,9 tlADIA?ED 0,!

,..._ octLOAD 7m.O _ LOAI) 7.0

_. " _Onl_D _.? _ 0.4

i," ULIm 7446.0 tILaW.IIE_0 6.6 ADdeD _.9 _¢ttD 0.0

....' _ Lr1' 7e_.O _ NET 7.0

.:, _AF_PA_IO Q H

DI_AI¢It 0.4110;IiN, U_IOPl _ 0.00090IN/EC .

_

._. 1ENPEEATU_ ItF_

_,, Y( 11,760.400 1'( 2)* 600,4_ 1'( 3)- .S.ll:_ff T( 4)= 4_,t19 1'( S)" _lO0.O_

,_/.. T(6), _t3.1_ T(?), _.6u")' 1(8), 241.413 11 q))._l|.?eO T(10)-tl_._O_

_=._. T( ill* i7i,_ T( 121=iM._/ T( i$l, iN,$i8 T(14), 134.4_J T(t_), 1_0_7

.;_ 1(i_)" 118,71_ T(IT)a,tOO.OaA T( tO}=100,054 T( tg)t iO0.O0_

i eat _XTXgtOq , UeS

_. _( llJ 0.41t IX( |1* 0,426 IX( 3it 0.490 IX( 4)= 0.000 _( S)" 0._

' IX( 6)= 0._03 IX( 7je 0.6_ IX( 8)= 0.667 _( 9}s 0,708 XX(tO)* O.)_JO

" IrK(ii)= 0./_! IX( t_}" 0._ it( 13}" O.l_ XX(/4It 0,917 IX( i_)* 0.9tll ,._

. IX( 16),t t.O00 IX(17)" _.500 IX( tO)a, _,000 IX(19)" 4,000 ,,_

DI_PI_ED _ U_.IIg-ADA1'C L, m

"

ii "

!.'/

II' '

/!

e J

_t

n_.

r A

,;,! Table 6.1 (Contt,ued)

!;_, 127

" _ _J
|'IHI8I0 tHECONIPIU^I'iFOR _ BODY, Pt. 3

|. _+, _+____- --___...,..+,+.,._ -, _ OKI_INI_L | /+++'+t,, _.,r;

|. 0 1 OF POOR (,llJALI'I_+

tl, 0 I

4,0 I

0, 0 I

6, 0 I ' ,,

7.0 1

O, 0 i.'91'0,P_K MI.AT_9tNLIm 0,5746/6IN,

9, 0 I :

tO,O_ I •

it, 0 I :

Ill,0 I

I_, 0 1

14, 0 I

0,IIIIIQ0IM0 ,C_,¢0LH 'I

llt_ _ II I I m ,ii t l l l - . i 1

i

E4DIkTIO_N i.gO00OOIN.

I

0.I00000IN. LtOtl+-t6 I

14mJ_+ 0_ _ " +_ ,'" ,,_'*" "-:_ _+_"; ........i _

&.tO'P+-YT6I4I_Itl N 0.300000IN. :+

0.140000114.I_0MI.617 I

IZZtZ! tutti l

! Z I

I l t

llt|tt ltt|7.! I

0.180000IM. ¢1'OOL, .P, _B l

TIlE• IMO.O000O Tilt II_ • O,TtlPlll I£. OF_ • lll_

ltll_llmlV.OHEAT HUT_tt_

C4_II_+_1_ 9'-_,0 C011_'lltl) 4.t

I_IAI_ V3l._ I_t,lltZ 0,11 !

117I.(N) O_i.0 _ 1.1_) 3.|

_40,t• 9tO_ 0,:I

+_/_ctl_ 4i.e MMt(:ttO 0.0 '+

M_t IWi,'+ _I_IEt 2.| +.

+

P

Tsble 6.1 (Co_tt,ued)

128

" _- ....................................................................................................... + _ +J_ILZZ_-

,+++:;+:........... • ,, .+,+ . .+ . : =+........ ;, .+ ..... +,++ :, ..+,+:.++...++.,.j+,,. + ,+++++++ . .+.,... , ,++.+ ++..... .T"+...........
ORIGINALPA(_CC_

WIll'ACER|¢mlIM OF POORQUALITY

DI_t/_IK 0,4_4_IN, IIE_l_l_tItI/_ 0,(1_i2I6N/fEe

_t_BF

t( l}, 7/_400 tl lllub_m tl 0}, Mi)lZl tl 4), 457,768 1( 0}vMIIM

II 61"_t,t0/, ?( ?Ism.|J4 Yt |l* 84516 T( 9}em i?l TI lO),l_m9

•:_ t( l|l. tit 7t6 1'(till. 1600M t( LII_t4t 0r/ Y{141.t_474 t(i_l), t_I7

• Yi i61'I00_16 t( Itl" 10OM ti 10l' 100004

#081tllilIK

• ill! If" 04117 Ill( |l" 0_I ill( :llw 0M0 tl( 4l_ 0_| llX( Sin 0,580

Ill 6)*i 0_/_ H( 71. 0,667 IX(0). 0,tM Ill( lit 0,I'M IXC101. 0o'N_

, I{1IIll,, ( 0.Ell H{ tl). 0.St_ H( isle o,gtt 111_|41,, ( 0.fib U( 191' t,0O0

1111{61' 11.900 Eli I?1" 1.900 Ill( I01" 4.000

tlt(, t4OO.00O00tilt 811_• 0._t(ll NO_. _ • 1676

l_t[D _t If.ATI_11_I

I_IIIII Irt t_t_li,_-ttC

= I_|ATED 1013,9 _@I/_'1_ 0,0

" I£t LOgO _66,6 _ LOAD 04

::.-;, _I_ _I ft01_ 0,!

•i illtAl_ 0.4_ IN I_II_/I_A_ O,0(_ I_SEC

t( I)* 1_400 T( ;J),#)llW ti _li-_ _117 t( 41_s0q_/_i t_ _i_MI_

_ 1'( 61, :_._4 T( "I)=33/o9M t( 0l- _6.0_3 I'4 91, _0.0_ 1'( 10l=P.4_13 "

T(lilt _ 61_I 1'(l;_)=1819_ ti 13),l_l_ _ T(14). I_ ;EI_ T(lS). IZ091

T(t6i.lO0.l_i T(It)-100.131 T(till.tO0.OlO

_" HI 11= 0.446 HI 2)* 0.46S HI 3}= 0._0 IX( 4)= 0.M| IX( $1= 0._

IX(6), 0,6_ XXi?)- 0.667 II( 81,, 0.?_ H(9), 0.7_ Hi 10), 0.M "

; Ill li)J O._l IX(_). 0.0/S ill iS},' 0.91? II(14), 0._ IX(16),, t.000

IX(16), |.M0 ill 171, _.M0 IX(lO)= 4.M0

•INITIN14_ t _O.RE'_ (LI_N.Irt.) @

. !

2_

i

_,, Table 6.1 (Concluded)

, , , , ............ . . = .
_+

• ®

..- I_ • t _X? ' 20 NSTP• 3000 tl_] * ! i

i

1 TStIII, t, It

tltgl ¢_t - mT140,4

TOiI, OIUEI?Y _-

(m F) (LOflI(:U,FT) ORIGINAL,PP_,";,_;i:l

OF POORQUGLr(_

' -0.ASv6tt+0tlO.tO_4_

O.9_,OE_ O.I(MOE+03

i,

I'B_, GPECIFICHF.A?

-0.|4_M_+¢_1O,tSOOIt+O0

-0.l_qPoE+0_0.tgtXXt+¢0

0.4000_+000.l+00t+00

0._104_+_i O._lKIt+C0

++ 0.k10_9 O._+O01t+O0

' O.tOOelt+04O.W'_t+O0

!. 00J._!000£+04O._l 0.aSSoOl 01tb0+O00

T_. COitX_tlVlll

(Dt3F) (011#lrt-_-lF)_

"0.4"_+¢_ OI,IOIE"09

-.OJt496E+OOttoltBt[,-O{I

::i" -0J49_+03 0,IL_J(X_'03

:_i! 0.40O0_+0O0,taktt-0tl

:,. 0.tlk_4E_ 0.ig[-03

i'i 0.S_04[_19 O.t_?a[-03

0.lg00_ 0.t_-Oa

0,11000[+040,:1+I_-0_

" 0.200_t+04 0,_-0a

t_, ItXtBtVlW

(01KF'lt ¢iit_mtllUSOl

++; -_.45_ O.dSO0_O

+

;': Table 6,2 Output For ExampleCa_;eT_o (Table 5.g) +

............ ;+r ...... ;+ + ; ++.........+.......... +_---=+_+;: : +
'II_P, DI_II_II'Y ORlEil!'"!;+tIL _J+''_"_,;I 1

(13iFt)l tLINICU,F?I OF P{_ll QIJAI.,IrI+'.+ P

.,, 0._+.04 0.90001_,',01

fl

lW, PE_IPIHCEAT

(MOFI ti111/LIIt-MF!

-0.4_+03 O,70<_-OI

-O.l_t+Mt+_O._OIE-OI

-0.i4_1_'3 0.10_+00

0,I00_ O,I_OE+O0

O.P+O_I O.|tO0(_O

O._X341E_O.P,_

O.tO00(_ O.fmt+O0

O.iSO0(+040.200_+00

0.17_+04 0,:!0_+00

0,:100_+,04O.aO_,_'+O

tl_. PllltIRlt (LIIIN,I_t)

llmlI_) 0.00 0.Ill l.ill It.t6 _it._0 1116.00

-0.4_+_:10.t_ 0.I_ 0._ 0.41_lt-O'O.I_ _ 0._

_,_ 0.I_ O,t_ 0._ 0.4t_ 0,_ O._S : "

o._ o._ O.I+9 0,_ 0._+_ 0.+_ O.?_S

0._ O._S_+S 0._ 0,3_-_ 0,_ 0.0_ O.q_+l

0,_ O,_f_ 0._ 0,_-_ 0.7_ O,iiiiE_ 0.110311-04

0._ 0.4t_tE-OSO,_+c,_ 0._ 0._ O,l_ 0.14B3_-04

O.l_ O.H_ O.MX,,_ 0.7_ O.t_ O.iM_ O.l_

0.1_+04 0.1_5_-0_ O.t_b_-<r_0._7_f£-050.1:H+£-04O.aOi4E-040._17_-04

0.i900_+04 0,11_(-04 0.1i9,_-04 O,tlt_..04 0.I?14_..04 0._q,_t.-04 0,_616£-04

0.I?_t 0.lSTOE-040.1_7_..04 0,16_-04 0._130_..04 0.i4_141t..040.3131Ht..04

0.3o0¢t+040.t0_.,04 0.10_..04 o._lPat-o4o._6t6H4 o,aa_t.o4 o.a??'_.o4

0._ 0._ O.I_ O,I-_ 0._ 0._ 0.4_t_4

: 0.PJ00£+04 0.32113t-04 0.3_lt-M 0,341M_..040,38611!.41400497_..04 0._it,_l

0._ 0._ O._P_I[-040,,4_ 0,,._ 0.6UIE-04 0.6731_-04

0,a000t_4 0._t?'_-040,_-04 0.a4441t-004,60e2t.04o.Ttr_.04 o.oos_.o+

.' +, _, mt_llVltt

(m FI (Otll_tOl_)

0.+')4lt+<M0,100l_+0l

AL,707t_-t6t_T141,l

i. TABLE6.2 (Continued) +

;': 131
oRIGINALPA_ I_

TE_, I)ENSXTY' OFPOORQUALi'_II'

_'_ O.l'Ve_

O,,/S_ O,l'V_,m

1_P. CIIND0_TIVlW

(1_F) (IT_/F'1-S-F)_I)

-O._S_E_qAo.14ooe.,ol

O._OOE_OO._OE-O!

0._0o_ O._OE-OI

o._ O._OOe-Ol

O._(X_E_ O.:_E-O1

(le0I_) (l)llf_101_.)

I_Zl_ _AI_ IB00,40K0F

11_. DNI'P/

, TI_P. QPE¢IIqHEAT C

(K__) ¢111J/LJHF)_

-0.4._ 0.100_00

Table 0.2 (Continued)

TI_, Qf_l_tlVltV

OP,POORqu^WTY

o,t_ 0,l_o_-_

0,_)_ O,|MO(-O'J

0,1000_ 0,Bo0e_

0,9_ 0,_

tl_. _iGIIIVltY

(NI:IF) (DIIEnlI]tW)

-0,4_e_ 0,j200e_

0,9_0_ 0,l_

Table 6.2 (Continued)

__ 134

1 mTtuCVUl_ lll_XNllI¢ll

|O0Ve0Xl_ :i

1XlIIT• I00.00B Ie 'l'eI_, 0.00E0F el,/ ,. 1.0O0

®

CIIO_TIII++LIIII_• |

8"+I'FIU__+fl1JItE _,, 1 tiLAe

m1_IkLI • mI ¢0kT

_, 2 Dlltt4'¢[_ NtFkC•lt_ 0.10000+E+IN.00

IlOIXt _ • t OISTAIIteltO¢[OUle el F•A_£O.tOOO_+IllO0.

O00¢TImI_D • ;!

mm_E TYPE• l SLAJ

IIA_XALi • LI-900

ORIGINALPP,._+,_YL:"_'

tIX _ ,J $ 0I_N¢[ R_ SUItFA•CE 0.16,_dJ_4_IN0. OF POOR QUALt°i+_'

¢N)UClitmsB• :3

S11_1_1_ • t U.ld)

_ • 4 OX_k_FR¢lttil9Ll I1F_- 0.:_+,000eIN+<. )0 C01OJCT0 M+qql 1t• _q 4

JTItUC'rlxee lJ+e+, t 8L_

• I'GVII.l • LI..+00

M0_MI E,K_I_I .+ _ Dt91#l(IL_IOSNP.q;_•FAI0:J9750 _ ¢£'IM+_.0

MOIMU)[ I_• S IDI_r#¢[FD SI_O¢•I_ O.WPJOOill[.+<)O 1:(N_111t lU_ • el

SmU_tt1i__ • l SL_

_A_LALt - LI-900

IO_MJe¢•l_ 6 Dl_rMlFCti_ IPJRFKt lt0.:+_0000itIN. ¢0

¢_¢UCRMRumm• 6

muclmt n1_ • l ¢_

MTI_IIN.I • LI-900

llJl_8_• 7 I)lg'rN¢[_ 9UItFk_._E 0.41_+00 IN, t

RIXt_ • ? l_Iftt/CltFROI;JRFRE M • 0.41PAOE_0IN. i

muc1_ tYPE. 1 _ ' i

+ MI_EIIIN!." L1"400 +

a[ mat • e oxsr_ctrO su_M:It• o.4/',o0o_+0_.0 t

' 1

Table _._ (Cor_tlnued) !

!

136

t.

!

t
I_ I_gt • tl I)Xgl',_IFIKI,I CE _UI_:£- 0,47_E,0'0 III. OF POOR QUi._LI"i'_ :

IIMIl_X_|.• Ll.,900

ICE_ • 9 DIQI'_Rtl_9UI_V•_:EO._I_SO_IO0ll,

_IeUC_Ite_ • q

' lmU:lllE_ • ! IL_

mlWltALi • LX..900

_ ,, 10 I)ISTN_tE MF#_E• 0.600000£+IM00.

_ " tO DlSl'_IL_ltROgJI4_RE• O.600000E_]IN.O0

_11_1_L1• _I.,/O/'J'T6

It_VDl,q_. " #L.?OT_T_

Ike.lE_,, it DII;'I'_flt01Q_'l ItFACE.O.i_)OE_IOll.t

I_IDI_. 1• it_1( 617

_11_tIAL3• Tl'r_Itl,I

Table 6.;_ (Continued) "

• 1_7 _'

i

@
i

UNi_ih_iAL, _sB_ C'J_ _ .

|_16 |g 'i'_GOWIUATION F'_801)fPT. _I OF POORQUALITY

I

COAT9._ O.lO00OOIN, (_

I

J,O i

4.0 i

O.O

6. 0 LI-_)O _ 0._000 IN,

7.0 l

O.O !

9.0 I

0.120000IN.N.,707FT6 t

i ii i iin i _

! ! ! ! ! I

l I I I ! I

I ! ! I ! _.70_'T6 tOEYCOI_ 0.750000IN.

I ! ! I I l

I l l I I I

ml ........ _

0.110000It. _.7075"T6 I

I'll. _ .......... +'+"_......... " .,,:.......; ....... , ............, --

0.090000IN. INCONL 617 I

ii ii i ___

V V V V I

V VV VV VV I

,. V V V V V V V TIT_IUIt COI_ATEO 1.O(_OOIN.

Vv VV VV V l i

v v v v t +i

..... - ......... ---- t_,_ t

0.090000It. INCO6i7 M. |

'*"12 C-............. ,......,.

1

TIlE- 0.00000 Tl_ _i1_- 0.000_0 NO.OF_ , 0 (_

_lt_l_i) 0,0 CO_C_ 0.0

ll_lk_ 0,0 IlkOlkTl_ 0.0

It'TLO_ 0,0 It"TLOAD 0.0 ':

_112_ 0,0 S101_ 0.0

SUILINE_ 0.0 MLItED 0,0 ' ,

)J_Ecl_ 0.0 _'eCTE_ 0.0

1 _ _ 0.o I_SIt"T 0.0

., +.+ .

Table 6.2 (COntinued)

!

138

w_`we-_`+_+_(_+_`_`_++;_-_++_+`_`_*_;_`_`_;_-*_,_:+_+_:_=_;_--_ ': .-"_::_';_":::_ _: ..................... "°1"".... I Jill I II iiiilr .......... _1.......

-".:_.::+"._.'_:_',..°°_.-'_. "i' _, , . .......'' ,_ ,,..._._._;_,",,...I_,_+;,.Z,7,'7_ _o+::_,".. . "°:.:. ':--- _.,_,. ,_.._..._ ,,,;,_'_-"_ .................... +,_._,,'_':"'_"_: _.+,;:._._,:",...
IU_gl[IIECE_tlII ORIGINALPI_G_I_:'!_

DiliTAMCE0.00000IN. IRCEBSIlOIAN11_ 0.00_0IN/tEC OF POORqUALITY

tmem,_E E F

t¢ 1),iO0.O00 T( 2l, IO0,O00 1'( 31.i_,O00 1( il. 100.000 tl _1.100,0_

1'( 61.iOQ,O00 t(1). 100,000 1'( |lJ,tO0,O40 T(9). |OO,O_ t( tOf tOO,NO

T(|l), |O0,OOO T( lJ),, |00,000

111E• lO0,O0000TIE _ • 0.98808 NOO, F_ ,, 41

• IMtl:Imkil'l_l k1)' _t _TD

ImllN,IPt t_t_.rt_El:

ltO_(;t[l) 1_.:I ClWitCtI_ 0,:1

E@IAP_:O _I,0 III_IATI_ 0,,,0

IC I&_ t_._ LetLOAD 0.=

Ul.llg 0.0 Ut.lt_ 0,0

_/¢.t II[O_IOM

l)l_+_:It 0.00_ III. II[¢I_II)Il_tlt 0.0_)0IM/tl[¢

tlmPlml+_t_lmt F

t¢ if=I_._M_ T(|), I_._S T( $)1132.831 Y( 4|* 116._8 T( 91. 10_.0_7

r_ T( 6), 10_.7]1 t(7). |Oi._l_ tl 0), 100.668 t(9), lO0._i: T(10)-lO0.O0!

T( 11),,100.000 1'(I:H. iO0,O00

tiie ,,, _O0.OOOO0YI_ ST[P. l.Oil4tt Ill. OF_" -+ I_

. IXtml_'l[OXl_t NexI_t 'Am

III_I,'I_,IPT l_/_,e't,-IEC

Cl]M_CT_I) Oi.O CO_qtC'_ t._

m)tkTi[_ i2.9 il_tk'l'_ 0.2

ILrrLOAD 67,+ lETLOAI_ l,l

67,2 6TmEI) l.l

9_11_ 0.0 ll_.lllt_ 0.0

+t_[C'ID 0.0 klMtC_ 0.0

iet <,7,_ TI_.142t 1.1

+ llUlltktll.E['!:e:l_tOil

I)l_+qlP,_ O.O0000IM. _CI[_ION_ 0.00000IMl['_

:+ l'lN_ll,q£ B f

t( II, 4Nt.PJS T( 2)- 423.S1| t( 31._._!4 T( 4It |ll._0 T( Ill* I_.?SI

i * T( _)- 1_.'/9/ 1'17)=119.560 1'18). 110.070 'r| _}..104._._ 1'110)-100.(_

: T(ill. lO0,O_O tl I_)=lO0,O_l

"t

; 4

I

_ Table 6,2 (Continued) '

1
ORIGINALPA_ I_

TIE • :100.000....001'11__ ,, 0,1_rJ NO_. _ • 1_t4 OF POOR(_UALITY

Im'ltOilk_OIf._T H_'r_J;

aON_TEI) 91|.4 ¢ONVEGI'_ _1,|

WZA_ 105.4 It_tA_ 1.9

' I1 LO_ _07,0 I1 UI_ 1,4

filMS) QOT,0 titomm t.4

Ul.lm 0,0 UI.IIE0 0,0

M)_t¢_D 0.0 A0_.Cl_ O+0

Ie_Met mP.O 1_ _C 1,4

n%trl'Al, lClt 0.o00IN00, IIt_gXOM_tE 0.00000 INIE¢

IEi$1_IAII_I W I_ E

1( I)+,IOtQ.YM T(Q), 9_6.5..q8 T( _1, 71_.617 T( 4)- bOQ.946 T( 5)t 4_I._130

t 11 6)t 3:1_.3_ T( 7)*,P,_._'_/9 Tt 1_)iM. " 31_I T( 9)" i3_.1_ T(i0), i00,_i

+ 1(it). i0¢._1 T(I_), iO0,O_

.,+ t_ * ¢0.00000 T_I£_1"0', 0.4_+4 NOO. F_l_ • i_

l_ 14tAt IEATIIA_

ll1+J/_.F"r II_I_,FT.-91tC .?

; (_Ie,'EC/I_ _.i ¢_11_C11_ 4.0

MI)XAI_ _1_._ IP_IA11_ 3.9

++ lit LO_ _09.Q I£I"LOAD 0.6

'_ _t_ _0_,Q _ 0.6

._ _lil.tl_ 0,0 tl_tl_O 0.0

AMCIlm 0.0 kMC_ 0.0

'1_MET 303._ Tt$lit 0.6

it_U_MitE:_Cmtmtm

n_I_I_IA__ UIrnE

11 i)-IQ_.S79 11 +),I_?.M9 'Y¢:_),+110_._91 tt 4),, 9_.001 11 _),+|IQ.6MJ

T( 61,_,_7 T( ?),,_4._i T( 81. _.9_ 1( ,_)t247.868 1'(tO|,,t0_.293

T(ii), iO_.l_i6 1(iQ), iO0.2_Q

+ Table 6.2 (Continued)

•' 140 ,
Table 6.2 (Continued) '

141
I;

lillE., ?00,M000 TI_ _ • 0,99474 H0,OF_ • 396 ORIGIHALP/_'_; _:_'''

OF pOORQU/_LI'F'_'

'+ IMmOIm'i_ HUf WTnATeO

iI'rUIN._ tiYV_,_-fWC

!_3Ke,o'rl_ l_._ _M,_¢l'ltO D,7 : "

AADIAt_ IBm.6 WIAI'EO 4.9

le?LOAD E_'MI M[?LOAI) 0.(I

_ _ 4t?.S el'l_nO o,0

MLIm O.O lP.afl.lMO 0.0

kl_c'r_ 0,0 _II_CI'I_ 0.0

8UI_A¢IIE_¢[SgION

DIB'I'AN_0.00000IN. ItECEBGION Rk'flK 0.00000IH/EC

T[N_AAI't,m[ O_F'

ii T( 1),1407.9M ?l 3)'1304.39'/ ?( $)mlPJ6.iq6 T( 4),,11_3.1_J ?! 9), IN9,4i9

. T( 6},MI.IH 1'17)t t_Y.l_| 71 II), O_i._I T( 9)" 3_9.20_ T( I0)=l_3.m

?_i_l, 112,360 i't 13}-109.3'/'/

TIlE• OOO.O0000TINtet_ -' O.tMg_t NOO. F_ • 40i

"!

Ik'TI_ATEO if.AT I.KA_T1_9

?i

P,AOfAi'd_ |iOO._} AA_MfT_D _.6 :+

LOAD the.'1.0 lit LO_ _.i '

8TONG) s6a.e S'ftm_ LI

UI.Ilt_ 0.0 MI.ItED 0.O"

_t+Ct_) 0.0 kM:Cl_ 0.0 +

11qnFf M3.O 1_ NST _t.t _:

;,

U_'AC(AECI_IIOM. !i DIe, ICE O.OOMOIn. _e_lOa AA_ 0.00000lW_C ,_

mef_ omF

T( 11,,1750._3! TI |)*IT00._P_ Tt 31.J_W.36_ T( 41.1966.F/6 ?( _}.ilgl.idr/

t( 61.100_,413 ?( 7)=8t8.0T/ ?( 81=614.490 T( 9l. 3_/.930 T(SOl.130.607 '+

1(It), Siq.7"J7 1'¢1_), Ill.103

5

i

Table 0.2 (Conl:tt_ued)

1

142 I
i

TIM . _ c-+,-, r. • qM,MO00 tie StEP• 0,6gt35 NO,OF6?_B,, 600 ORIGONf_IP_. ,,.;..[,. ,t _.

OF POORQUALIT'I'

IMU_A__A? If.AtRAI_O

I_ILM OtU_O.F?-6_

i

tt_lA_ 3M3,0 RADIA_D l_,O

it LOAD tit.O _ LOAD 0,9

•, . li0nfi m,e Ooq

dUeLINg) O,O eUliLIm 0,0

i_¢_ 0.0 ililO'lii 0,0

lit Ill? ?il.t iliait O.it

OUItA{tlIll!tt9ll

Olt?l 0.00000IN, IIOH RAI 0.00000i_t¢

_, 11gen_AMoelaF

tl ll,10ll.l@ li l),lt03.td_ l¢ l),llill.il ti l),i711.fti9 t( Si,ISII.IIIS

' ?( 61.1347,t65 ?l tl-ll_,OlO ?( II. 6M,I73 ?( II. 13,tl t( tot, t43,943

• 'f( lt}, III.IH T( lilt+ 1111.699

i,

' Ill • IMO,OOOO0TiMllil t • O.lil i. OFl • 74t

m_A_O HEAt EAT_

lilWlll.ll illlltt.fl-dec

ClCl _it.3 COmPel 8_,4

I_IA_I) 9ttO.t AAOIA_I) 19.7 i

O_tIOAD 7_.7 MtI.OAO O.t :

gtOl_D _.7 _tOl_O 0,7

IUHLIIO 0,0 _i_ 0,0

Ai_EC_I) 0,0 k1_¢11_ 0,0

Pit flit,7 _ lit 0.7

:+ Ollltll_ 0.00000IN. _IUN lille O.OOllO0 IW_

: T( tl_1011.!l_i ?1 t).10t3.lltl T( 3i.it!7.971 t( 4),1?411.4M ?( SI.i_tl.306

tl _l.Iilot.Pr_l It ti,+til_,4m'# tili. i'al.l_s tiii. Idll.B ti 10i.t+0.1_

II lti. tt,0li li ill. llii.ill

TIM• ilI.MMO TIH£S_P• O.OiJili7 NOO. F6T_ ,i l +_

if

+,

( i

i ,

Table e.2 (Continued) '.+

14+ ::i

,+

t,L,. ' D

,,o,> +<.+,,+; . :<>?;-,o?--+.:.:.+,.-...:..;.-o..+%. :+'+/..',y,<,+?,o-' .,.,,., o.+;. ,,+,,,.++:.,o. ., .+,., ;...;+.,'..,.,,O,,;.o+.//.,',>-L,> ":"-.,:.. .o;:;. . o<+ ,.+o+:,,W:;..,+,;7o;;7.-;;;;........... ::/'?,i,,;',+!'+-y
," ORI-Glli'.lhL'""

_!i" OF POOR QUALri'_,

, OOH',K{_I) ?m,4 {O_C_ 11,6

+r IIk0ik_0 611_l,t WIAT'_O |11.0

_.. [r LOkD moll t? LDAO -0°4

_ O?011_ eoe,tt 6lOn_ -0.4 +

qj_p. o.o o.o

+_ _ilW_ 0,0 +tlMCID 0,0

-_, ll,e[1'. m,s 1_ _ ,.0.4

_ Stl_AcatEctmsloM

t+*. 0181'_[ 0.0_00fM, _Cmlllt IIA_ 0.0el_ IM/iE

++ 11mPl_ATUa[ NOF

-' ?( t1,1874.701} T( {I),11_,0?4 T( JI,I?/I.4M T( 4),,t6_3.M} T( l_}*lSl|+_Je

:9:: l¢ 6)0131}|.N0 ?! 7).111_.I_1 ?i |). _0.004 T(g), I_I}.531 ?( 10}-I??.?N

],e T( Ill. t?_,&37 ?( RI. t37.4_

._,_

-r,

_r: i l_ " Ut¢O'O0000 ?I_ _ • 0.0/_'J HO.OF_ • lOlO

INI'EUiIA_If.AT O HUTHATEd

011_I_.FT a11#SII.FT-aEC

?

_C11_ 8_,0 ¢tl_cr_ 6,8

UOIATI_ 7521.9 II_IAT_ 7,4

i ff IJ3AI} 773,1 tf LOAO -0.6

77S.t _ ..O,b

_.+ _l.tl_ 0.0 MI,II_ 0.0

+ _tl)_C'll$ 0.0 _ll_ltO 0.0

lt__ rgJ.i ll_ 14tY "_.6

,+ WIFALItl'(t_gSI0_

Hgl'AIG 0.00O0Iit0. meCtBSliAT lOli t 0.0000IM0 /_+

, T( I)*I_t_6.33_ ?{ |),,1610+_10 T( 3).II_.443 1'1 4},14_.1_4 T{ _)=t,_lt.00'J,

_'+ 1( 6l-lldtl.IM_ .?( 7).gYT.00Y 1'¢ 0}-?0"/,057 t¢ 91. _?._tl, T( !01,_10h5t4

i: 1+(11)=189,900 ?( 1|)= 149.606

%>

=_!} ?tl_, l:100.00000?ill _ • 0.00_2+ 140O. F_, ttt_

+_,t. i_l_.l_ 011#BQ.F'f-H_

b

_ i_It41tC1_ 8_t.6 P,l_l'd) 3.:t

P.AI)IA11_ 0071.3 I_Al)lA11d) 3.9

. El' LOAD 714.3 lit LOAD -0.6

8111_' 714.3 _ ,,.0.6

++t:,*

i

_ :

• _ Table6.2 (Continued)

i44
ORIGINAL '_"

UF_,EIIECSII_ OF..POORQUALITY

_¿_CI_ 0,_ I,, Irf_l_RAT[ O,00000iM/UC

_AfUK B r

're IIfl_(I,0,HI I'1 ll.lW,qP6l Yi _11.1149,4111t'ri 4jtll?ih469 11 _,ltl0?q),_

fl All9M,_ T( 71'm,_l YI Of"149,906 t( q)*41_,_6 YIIll. lt00,m I

'I{ Ill. lff,dt_9 1'(Ill. 16h?01

e

TIN[• S400+_O0TPE_ • 0,t_9 NOOF, 6TEP• B 11q4

..., I_tN,rr lJ_/N,ry-_

,: ClWIOC'RO _11M,6 _16'f.C'11_ 0,9

, ItAItlAlt) IlS4+.O IIAI)IA11_) 1.7

u_r_ _2.8 N_L0_ -0.8

_4_.0 81m[0 ,.0.8 i mum, o.o u.,,. o.o

),,, o.o o.o

mm .+.n ms -o.a

ml'MCl[ 0.ll000Oll,. II[l:li_XmIIA'Ili 0.0q)0Il_i0/ft[¢

11 II. _4_1_6 1'1 |1* 990.1148 11 _ll,961.200 I'1 41"91:h690 T( SItItl47.t1_

T( 618 ?_+097 1+(7) s 658.0_| T(O) s _J_.607 T(9) • _J8_.91_ T( lOl= J06._J06 !

T(ltl. F_.lil _ T( 1_t1.17_.649

I_ITIAL_ • _t._707 (LIh_N.t_.)

®

!

MIIIUqT"m,_'f_ OFN..?0'/_16[XCI:I:I_AT_ I0

l_tl_ Tltll_i11Jl[I_ _I..707S,-FT..XC i EATOI_II_ i0

I_II+UI+_11JI_ OF_.707S",T6_ AT_ I!

IMIIlUlI'I_HPI_qAIi'IeIJ[ _,,'_FT6 UW[I_I)AT_ II

_!':: Table 6.2 (Concluded)

+, .,, l

+_+ '+ i

...+, :.,., .:.,. .+ ., ;+..:<+,i.o ,, o.,+.,o..: +...,+,:.++++..,+,.o.+ ,. +o.::.:,+..:. 0: ...... ,,+. , c ..... ,, .......
hotion _.0 OF POOR QUALI'I_. I

,;NI_LUSlONS ANDU/X)M_NDATIONS

TILl gilTS sods is an lntezsotive ass dtmoaStoul thermal snalysis tool

which hal the capability to nodal s iatie variety of seroJpaoo thotmostruotur¢|

with t minimum mount of of tort on the part of the aMlyst. The oode t8 u'sad in

eo_unotion with the LkNM_ code which ptoduoes the e_iroR,nents and Is linked

tO the l_,I'I_8 code nslnl an OutpUt file, The ability tO state data desctlbln8

the strnetuzs and the ability to a0ees¢ a_y number of s_lto_nent files, allows

the user to make parumet_to studies usint ration| ttajsetosies and TP_ struotu_e

tFpes, t_adint thermal porte,manse and weijht.

The p_esent pressure's eapabilities allow the analyst _o investigate matq_ of

the ou_rent and envisioned TI_ st_uotnres, llowevet, limitations do exist as

_, every oaudldste structure type oould not be asitlolpated. In vlsg of this, in

effo_t was made to allow ohaslies, modifioations, and additions to be Jtade with it _ i

• |

minimum Of repr0itmmim8 effo_t. AddittoM1 oapabtlit7 san be added to live the

user a mo:ee versatile tool b_ inootporatin8 the tollowini teeo_endlttons.

l, Add the otpabtli_7 to inolnde addttioM1 typos of bOUndary oor_itiotL8

on the biokwall, l_esently an adiabatio boundarF il issued, gnown

temperature and kslown heat flux should be added.

2. Loiio should _e added to automatioally ohanie a slab st_otu_re type tO

a thin tT_e i_ the oomputed time step is too smile,. P_esently, iha

USer •_uSt make this ohanie.

9. Add 1o8io that would allow heat flux on the 8u_ftoe to be oompoted

liven the temperature history of a the_mooouple placed qtthin the

SttUet_e,

i

i 4, Inol_de I T_ stains tontine to autouatloally optimise the struoture

l 8ivesl tempe_at_e, weight and east oonlttaillt8.

i: S. Add additional touti_8 fat oosputl_¢ equivalent thetatl oouduotanoe, • .

: capioitanoe, and wetiht for additlo_l structure types e. i, hot seetiou sttiuier-pin61 ate.

_. Add loii_ _hioh sill allow all ablation material to be removed ' '_

Presently the s_faoe node must remain in the ablation _atatial,

_...._v;l_,_;_:___,_., .... _ ._,,_*,"_,_,_;t'¢_,_:_1_._?--_'T_;¢___,_._,_ | ...... '........ _ ............. 1
• AddLt|oul etudies n_e _e©osmo_dedto lend oonfidenoo to the soooeio_ Of

the effeotivo Chotmel eondQots_ee olloolitioni of the vatioui it_otufe ty_et, ,,

. Compselio_ gith ezpo_Lmo_tel or test d|ti vou|d be _ut_e useful in detotmfaini

the do_endo_oe of t_e _cneQotinoe no i funotion o_ tenpetitute level, tempoeJt_ro differenoe, Joint oz oonta4t eonduotsnoe 4nd material properties,

3'J_ ¢ "

_:! 147 "

l

it.

"-_.
_' , oel_r_ALPAQEB

s,otto. B.O OFPOORQ!,JALITY,

D

,!

!

--._: r
APP_IX

(I_XI_ Ltstinl)
ORIQINALPAQE

PROGRAMAIN OF POOR QUALITY C EXITS CODE

0 EXPLICII' INTERACTIVETHERMALSTRUCTUf.E$CODE

C

" O REMTECHINO. 1963

C BY J, POND

C C, SCHMITZ

O PH. 20F-536-8581

" C

PARAMETER(NMB1"208 NMB2=6_NMB3=3NMB4= , 8NI , VBS..4ONMB6=I , O,NMBI O"1003

C NMB1 - MAXNUMBERBODYPOINTS

C NMB2 - MAXNUMBERLAYERS/BODYPOINT

C NMB3 - MAXNUMBERMATERIALS/LAYER

C NMB4 - MAXNUMBERDIMENSIONS/LAYER

C NMB_ - MAXNUMBERCONDUCTORS/NODES

O NMB6 - MAXNUMBERMATERIALSUSED

O NMB7 - LAR(_ESTMATERIALNUMBER

C NMB8 - MAXNUMBERMATERIALPROPERTYTABLESSTORED

C ((4_NMB6)+1.)

0 NMB9 - SIZE OF MONOVARIATEMATERIALPROPERTYTABLESARRAY

C ((MAX TABLEENTRIES)_2+I)

C NMBIO- MAXNUMBERTIMES FORMINIVER ENVIRONMENTTABLE

'.i C NMB11- SIZE OF BIVAI:I:IATEMATERIALPROPERTYTABLEARRAY(21_DIM) )

C (MAXNUMBEROF TEMPERATURES)

i.. C NMB12- SIZE OF BIVARIATEMATERIALPROPERTYTABLEARRAY(3RODIM)

C ((MAX HUMBEROF PRESSURES) 8÷

: COMMON/ENVIR/TM1(NMB1O)DHC1(NMB1O),HAW1(NMB10),PRESl(NMB1O) _

COMMON/GAP/T1T2,_, TH1, TH2,TH3,TH,P,H,_M1,M2,M3,TOL,BET,SIG,XM, "

$ CAP/,CAP2,XK

COMMONN/IT/TST/_J_T,STOPT_IMPT,DTIMeNBPeNEXTMETR j I0,

..

. $$ ME MBTRP(NMB IK, ME)IeTRIIXIN,, NSTP I IN2 pIPFLAG_TINI(NMBI)_SINKT(NMB)I_XFIJ (NMBI)_

COMMON/TAXTK/ (NMB2),XX(NMB_;)

t_ ! COMMON1ME /T /NNbSCONV , CRAD , ST, AB,ISBFG_NODS

COMMON/ARA(NMB /T S),TO(NMBS),0(NMB5),OD(NMB_)_I,G'C)(NMB_L),(NMBS,2)

r _ COMiONILD/LS(NMB,NMB2) 1 ,XP(NMBI,NMB2_NMB4)_MATS(NMB1 ,NMB2,NMB3)_

!: " $ NS(NMB1)

i i COMMON/ NOOES/NNI ,'IT, TINIT_TSINKDFI J, TMPMAX(NMB6)

COMMON/CTMP/TDTSM _,

COMMON/OAO/NEXFG NIT_,XMA$

i COMI_N/PI CT/NNI S(NMB1,NMB2)

_. i COMMONSUBL /' WTSUBXL_ _XLP,EXCHT,NAB,ISTAR,NDIV, I AB,EXCHSVbQADV

$ OADVs,v, lUoP

i . OOI_40NITITLEIGHAR2,OHARI ,FNAMJ,FNAM3

_}._; ' COMMON/PRESS/PRES

[I' :* OOIVlI_)N/SAV EIXENDI pXEND2XTSTt , ,XTST2,XLTS,XMIN

_: _. DIMENSION TTT(NMBS,)ZXX(NMBS,)FLGG(NMBSeNMB3,2)

I|_, CHARACTER_1CHAR1 3 (NMB6)

_. : " CHARAOTER_20FNAMI,FNAM_

H :' CHARACTER*IOCHAR2(NI_6)

II_HI: ITN_(_5ERIIN FLG(NMBS)

if' IIN2"5

lt:_' CF_=.24

. ._:=:'-._.................................. _=_ = - ............... --____.A22_:_ _=im.=" -:- S-:-:-!-.......... ."2 -i..... 2. i i./1-2_................... 2
! Sl

e-•1"/14E-.B/3600.O

11"1000,0

C DETERMINI_INITIAl. (X)NDITION$AND$_UCTUREFORALL BOI:LYPOINTS

CALL INPGEO

iVRITEt_9,720)TSTARTTeSTOPT,IMPT

WRITE19,722)DTIM,ST/e_TOL,BET, _!

NRITE(9_?2_)_P, NEXT_NSTP,IPFLAB

DO8000 I-lmNBP I/_'0

NDIV-4. ISTAR=O OHI(_

II_PLLP/_E_

TINIT=TINI'(I)

TSINKmSINKT(I) OFPOOR QUALITY

FIJ=XFIJ(I)

CFIND PROPERTIESOF MATERIALS

CALLDATA1

C FIND MINIVER ENVIRON_NTFORBODYPOINT

CALL DATA2(MBP(I ))

NN=NS(I)

xx(1)-o.o

_, XMAS=O.O

O bETERMINENODALNETI_ORK

CALL NODE

MP=I

_"C DRAWPIC'tlJRE(INCLUDIN(_NODES)I_OROUTPUTFILE

CALL PICTUR(9,I)

ISSF(3*O

•. DO43fi IK=I,NN IF(LS(I _IK) ,EQo6)

ISBFG'I

455 CONTINUE TIM=TSTART

D?-O.O

NCTRL'O

-- NIT=O

NPR=O

NPFG=I

ISV*I

DTSM=O.O

NEXFG,,O

DO 140 K=IpNNDS

C(K)-O.O

FLG(K)-(1H)

140 CONTINUE

DO 141 K-lpNCDS

CD(K)..O.O

141 CONI'INUE

WRITE(g_749)

QCONV"O.O

QRAD-O.O

QNETmO.O

• QSTOR'O.0

QSUB-O.O

EXCHSV-O.O

EXCHT=O.O

-: QTOT-O.O

A-2

$

v IN.V_T51jtRECESSION RATEt,Flt.5,1 IN/SECt)

ZZt=XX(t )'12,0*2.54 OF POOR QUALI'|'V

ZZ2=RECR*J2,0_2.54

IF(METRIK.EQ.1)WRITE(g,605) ZZl ,ZZ2

605 FORI_T(lXutSURFACEREOESSlONtw/v_ DISTANOEteFtl,5,

$_ CM.t,T_RE_S$10NRATEtjFll_wt CM/SEOI)' ,,

DO2000 INC3"lwNCD$

N1"L(INC3w1)

N2"L(INC3p2)'

F(METRIK.E_.O)TI"r(N1)=T(NI )-459.6

F(METRIK.EQ,O)TTT(N2)-T(N2)-45g.6

F(NETRIK.EQ.1)TTT(N1)-T(N1)/1.8

F(METRIKoEOo1)TTT(N2),,T(N2)/1°8

F(LS(I,ICO(INC:_)).EQ°7)GO TO 2000

F(MATS(IpICD(INC])_I)oEQ°O)GOTO 11

C FLAGSFGRMAXIMIMTEMPERATUREOF MATERIALS

IF(T(N1)oGT°TMPMAX(MATS(IpICO(INC]),1) ))FLGG(NI_1_1)=1

IF(T(N1). GT.TMPMAX(MATS(I• ICD(INC]),i)) }FLG(N1)=IH_*

11 IF(MATS(I, ICD(INC])_])°EQ.O)GO TO 12

IF(T (N1)°GT.TMPMA(XMATS(I•ICD(INC]),])) )FLGG(N1_,1)=1

;F(T',N1) .GT,TMPMAX(MATS(I_ICD(INC.__] ))))FLG(N1)=IH_*

12IF(MAT$(I,ICD(INC])_2).EQ.O)GO TO 15

*.IF(T(N2).GT.TMPMA(MATS X ( I, ICD(INC])p2)) )FLGG(N2,2_1)-1

IF(T(N2).GT,TMPMAX(MATS(IpICD(I NC]_),2}) )FLG(N2)=IH*

15 IP(HATS(I_ICD(INC]),]),EQ.O)GO TO 14

IF(T(N2).GT.TMPMAX(MATS(I,I CD(I NC])p])) )FLGG(N2_],2)=1

IF(T(N2).GT.TMPMAX(MATS(I_ ICD(INC3),3)))FLG(N2)=1H_

14 CONTINUE

2000 CONTINUE

IF(METRIK.EQ.O)WRITE(9,?14)

IF(METRIK.EO.1)WRtTE(9,715)

714 FORMAT(1XITEHPERATURE , DEGFt)

715 FORMAT(1XV,TEMPERATUREDGKv)

WRITE(9,711) (JJ,TTr(J J)•FLG(JJ),JJ=l, NND$)

IF(LS(I,1).NE,7)GO TO 499

DO2020I R1=1, NNDS

IF(METRIK°EQ.O)ZXX( IR1)-XX( IRI)_12,0

IF(METRIK.EO,1)ZXX(IR1)-XX (IR1),12°0_2._4

2020 CONTINUE I F(METRIK.EQ.O)WRITE(9

,716)

I F(METRIK.EO.1)WRITE(g,717)

716 FORMAT(lX_VNODEPOSITION INCHESt)

111 FORNAT(1X_tNODEPOSITIONCMt)

WRITE(9_726) (JJ, ZXX(JJ),JJ=t, NkC)S) i 49g CONTINUE

IF(IPFLAG.EQ.1)GO TO500

DO2021 IRt'I_NCDS

IF (METRIK. EQ.O)ZXX(I R1)=CO(I R1)

IF(METRIK.EQ.1)ZXX(IR1)=CD(IR1)_1899.0

2021 CONTINUE

IF(METRIK.EQ.O)WRITE(9_'/18)

I F(METRIK.EQ.1)WRITE(9_719)

"/18 FORMAT(IX_CONDUCTORSBTU/SEC-DEGF_)

_ "/19 FORMAT(IX_tCONDUCTORS WATTS/DEGK*) i WRITE(9,71]) (JJ_ZXX(JJ)_JJ=l _NCDS) A4
DO2022 IR1=I,NNDS

IF(METRIK. EQ.O)ZXX(I R1)-C( IR1)

IF(METRIK.EQ.1)ZXX(IR1)-_( IR1)_1899.0 ORIG;t_/_, I/_L. d_:'_

2022 CONTINUE OF POOR QUALI'I_f

' IF(METRIK.EQ.O)WRITE(ge727)

I F(METRI K.EO.1)WRITE(g_728)

727 FORMAT(IX,oOAPACITORB$TU/DEGFt )

728 FORMAT(IX_CAPA¢ITORS , JOULES/DEGKe)

- WRITE(9,712) (JJ,ZXX(JJ), JJ,,1,NNDS)

P00 CONTINUE

NPR-NPR+I

NPFG-O

501 CONTINUE

MATkMAT(SI, 1,1 )

CALLHEATN(TIM_HCHA, W_PRESISV) ,

CALL PROP(TO( 1) pPRESMA, TjRO,CP_XK,EP)

CRAD=SIGJEP*FIJ * (TO( 1)¢ *2+TSI NK**2)* (TO(1)+TSINK)

IF(LS(I_I).NE.?)GO TO P02

C IF ABLATORSUBLIMERTHENDETERMINETEMPERATUREOF SUBLIMATIONAND

C HEATOF SU_LIIVd_TION

CALLSUBPR(PRES1i_T,SUB)

CALL SUBPR(PRES,2_XL)

: IF(TIM.LE, O,O)XLP=XL

P02 CONTINUE

' TNV=HNV/CR_

CONV=CR_q.lC

:_' IF(NEXT_(NIT/NEXT)6EQ,N_IT) NEXFG=|

IF(NEXFG,NE.1)_ TO 466

C FIND CAPAC!TORANbCONDUCTORVALUES

CALLCOMPOC

466 CONTINUE

C DETERMINETIME STEP

: CALL TMSTEP(DTSM, I)

TMPTt=TIM-TSTART

TTEMP-TMPTt+DTSM

PTIM=FLOAT(NPR)_TI MPT

IF(TTEMP=LToPTIM)GOTO :36.=

DTSM!PTI_-TMPT1

NEXFG=I

NPF_.I

365 CONTINUE

C COMPUTETEMPERATURES

CALLOOMTMP

JJ=ICO(1)

JN-LS(leJJ)

' IF(JN.NE.7)O0 TO 366

TMSV,,TIM

C FIND RECESSIONDISTANCE

CALLABSUB1()

_- , IF(IDROP.EQ.O)GOTO 3659

DO36PB JIL-14,NMB5

3658 FLG(JIL),,0o0

3659 CONTINUE

NEXFG=I

366 CONTINUE 

A-S
:5

; "_ C Ilmm_=Bl=_mol_lmllluwf_lBImD_m_mmn_m_D_m_m_wDm_m_t_m_lwmw_m_mW_ j

'-.'_ C INTEGRATEHEATLOADS

' Qpo.o

•., QAD_QAD+QADV

QCONV=OCONV_DT(TS_-MTO* (1) )*CONV

QRAD=QRAD+DT(TSMO*( 1)-T$ INK)_CRAD

QCOR=(T/_-TO(I ) )*CONV ORIGINAL P_C_ E_: QR/_=(TO(1)-TS INK]*CRAb

_': ONER=OCOR-QRhR OF POOR QUALITY

:_ , DO492 JJ=1_NNDS

QO=QO+(T(JJ]-TO(JJ))_tC(JJ)

TO(JJ]=T(JJ)

!: 492 CONTINUE

QNETmOCONV-QRAD

OSTOR=OSTOR*O0

OSUB=OSUB+EX_T-QADV

: OTOT=OSTOR+OSUB+QAD

:%, C

i_ C TIME STEP

i_, TIM=T!_rI-DTSN

;_ C...............................................................

C FIND HEATRATES

_t QADR=QADV/DTSM

., QSTR=OO/DTSM

, QSUR=EXCHT/DTSM-QADR

i QTOR=QSTR+QSUR+QADR

RECI_(XX := ( I )-XXSV)/ (T IM-TMPSV)

NIT=NIT+t

_ IF(NIT.GE.NSTP)GOTO 8000

IF (METRIK.EQ,O)WRITE(9_7P2)XHAS

!,_.., 760 _FORMAT( IF(METRIK. RITE(9,'/60) _IEQ. o) 1)_RITE(9,7,3)XMAS2

.-_ DO_000 NDSJ=I,NODS

NDI=L(NDSJ,1 )

:_' ND2=L(NDS1_2)

i_ IF(MATS(I, ICO(NDS1),1 ) .EQ.O)C_ TO 770

ii_ IF(FLGG(NDI_1,1 ) .EQ.1)_RITE(9,761)CHAR2(MATS(I, ICD(ND51) _1) ),NDJ

• "170 IF(MATS(I_ICD(NDS1)_).EQ.O)GO TO 771

IF(FLGG(NDI_._1).EQ.J )_RITE (9_761)CHAR2(MATS(I_ ICD(NDS1),_))_ND1

::; "/71 IF(NATS(I,ICO(NDS1)_.2).EQ.O)GO TO 772

i _ IF (FLG(_(ND2,21_] .EQ.1 )WRITE(g_761)CHAR2(MATS(I_ ICD(NDS1)_2] ),NO2

I F(FLGG(ND2__2).EQ.1 )WRITE19,761]CHAR2(NATS(I_ ICD(NDS11_._)),NO2

761 FORNAT(/,lXeONAXIMUMTEMPERATUREOF eeAlO, ° EXCEEDEDAT NODEo, $ I:_) ,,

773 CONTINUE

:_000 CONTINUE

8000 CONTINUE

!!.":i "/11 FORHAT((5(3HT(_ 13, 2H)=,FO.3,2X, At,4X_=)))

A-6

O

R i ",

/'1/ '"'

IG;gN,_,lL, _,_,,,!:

OFPOOR QU/_Li'w/

SI/BROUTINE_$UB(II)

O SUBROUTINETO COMRJTE RECESSIONRATE OF ABLATORANDALSO

CTHE HEAT REQUIREDTO CAUSE"file MELTLINE TO REC_OE.

PARA_TER(NNB1-20_NMB2-6,NMB}m:SNMwB4-(twNI_Pm40)NHB6"IO)

COMIC)NN/IIT/TST_Tt TSTOPTpIMPT,DTIM,_PeNEXTMETE , IC,

$MI:TRIK, METEIX_NSTP,IPFLAB,TINI(N_t)pSlNKT(NMB1) ,XFIJ(MVB1),

$ IvBP(NMB1) _IIN,IIN2

COMMON/SUBLM/TSXL_pXLPpEXCHI,NAB,ISTAR,NDIV,IABtEXCHSV_QADV,

${)ADVSTMS , VpID_OP

COMMONI/MET/NIaCIn'J CONV 4,wCRADBT__,I SBFONeCDS

COMMON/ARA(N/TMB)5eTO(NMB5)_C(NMB)5, OD(NMB)5,IOD(N_)jL(NMB_2i,,)

COMMON/LDS/L(NMB1,NMB2)oXP(NIV81jNMB2oNMB4)pMATS(NMB1eN_2jN_3)

$ NS(NMBJ)

COMMON/TAX/TK(NMB2)_XX(NMB_)

COMMON/NODES/NI,NpTTwTINIT, TSINK_FIJbTMPMAX(NMB5)

COMMON1CT /P /NNIS(NMB1_NMB2)

COMMON/PRESS/PRES

COMMON/SEA/VXEND1,XEND2XTST1 ,,XTST2_XLT$,XMIN

COMMONITLE /T/CHAR2CH_ ARt,FNAM1_FNAM_

CHARACTER*I 0 CHAR2(NMB6)

CHARACTER*I.CHAR1 _ (NMB6)

CHARACTER*20FNAM1,FNAM}

DIMENSIONZXX(NMBS)

IF(NAB.EQ.O) O0 TO 1000

JJ=IOD(I I) I IPI=I I+1

JJPI=IOD(I IPi)

DIVmFLOAT(NDIV)

JN%S(I_JJ)

NlmL(I1,1)

N2=L(I I_2)

NS=L(I IP1,2)

MA=MATS( I _JJ_1)

C COMPUTERECESSION 01STANCE

OAOvs=o v

CALLPROP(TTPRE$ __HA_RO,CP,XK_EP)

DS=EXCHT/(XLP*RO)

EXCHSV=EXCHT

I_0_0 IF(ISTAR.NE.O)O0 TO

_5_

ISTAR=1

C COMPUTENODEBOUNDARIES

XENDlm(XX(N2)+XX(N1))/2.0

XEND2"(XX(I_5)+XX(N2))/2.0

XMIN'XEND1/DIV

P5P CONTINUE C MOVENODELOCATIONS

XX(N1)=XX(N1)+DS ,,.

XX(N2)=XX(N2)+OS/3.0

XP(I_Jd_1)=XP(I_JJ_1)"DS

XTST1mXENI"XDX(N4)

XTST2-2.O*DS/5o0

XLTS"XX(N2)-XX(N1)

IF(XLTS.GT°XMIN)GOTO 560

XTST2=XEND2-XEND1

; A.8 i

',

_:_J_,_:_.;,:"?:_;,_-_-_;:_ ,.,__;_,_.,,,._._,_..,"_'_'___"c',._,.-,._e_,._._-_:_:.-_-....._..!,,_::c ......__'_ .....?'. "2, ;'_.,_ _",=:i _,o/
. ) i'

v

• t I t

IORO_I ORIGINAL Pt_CU _.'_

560 CONTINUE OF POOR QUALITY

XENOI-XENDI+XTgT2

O COMPUTEEFFECTIVEHEATOF ABLATION

, _IMEL=ROa(XLP_XTgT+XL 1 tXT_IT2+P.,PwXTSi T(TS2 UB-TO(N2)) )

XLP=QMEL/(ROe(XTST1+XTST2) ) ._

O COMPUTE_VE_ED HEAT

_tAbV,,RO_P_XTST2(T* SUB-TO.(N2))

IF(IDROP,EQ,I)GO TO 520

' GOTO 1000

•", _20 CONTINUE

: C RENU_ERNODESIF NODEDROPPED

NND$,,N_S-1

NCD$-NOD$-I

DO 52i KK-I_)NND$

IF(KK,EQ,1) GOTO 521

J ' KKPI"KK+I

_' ;' XX(KK)'XX(KKP1)

_. C(KK)=C(KKP1)

__: TO(KK)'TO(KKP1)

:I T(KK}=T(KKP1)

_-:

. 521 CONTINUE XEND2=(XX(N3) 

DO522 KK=IpNCDS

IF(KK,EQ,1) GOTO 522 ' KKP1-KK+I

_'. Cb(KK) CD(KKP1)

11

:. 522 CONTINUE

WRITE(gb?O0')

- _ NNIS(I_JJ)=NNIS(I)JJ.)-I

i C PRINTcALLPICTUREPICTUR( NEWI ) CONFIGURATION 9)OF I F(NCDSE_. ),I )GOTO 2000

=_ IF(JJ,NE, JJP1)GOTO 2000

• 1000 OONTINUE

i 700 FORMAT(1H_//)v NODEI_OPPEDFROMSUBLIIVER--/_J_LATOMORDEL°)//)

,, GO TO 3000

= 2000 CONTINUE

_ WRITE( I I N2,200]))FNAM1

2003 FORMATI//jiX_tRUN STOPPEDDUETO INSUFFICIENT/_SLATIVEMATERIALt)

$ t LEFT_)//pIX_IOUTPUT FILE = tpA20) :

_ STOP

_,, ._000OONTINUE 1

II

END i

tl

!

• _

_,. ,,°-_ ' ..... _. :, _:_:_,_=,'_'_:,_:,'_, :,: '-_" 't_ 'o ,r) _L._"_' "_'S_,:--o_. 0" ,_. °, __" r_o,%'.,, ,;_° _'o'*_:.,,,_, _,,
_

(,,lttlGII_iALl-_i:l,3,i,r' v.

OF POOR QUALITYt

_ SUBROUTINCOEt,_

CSUBROUTINTEO._OMPUTEVALUESOF THERMALCAPACITORSAND_NDUCTORS

PARA_'IvER(N_I =20_NMB2-SINNB3-3pNt_4,,6_N_,=40tN_,_8-1 O)

COMMON/OAO/NEXN_IT_ G_XMA$

¢OMMON/BAP/T1eT2jTH1pTH21TH:e5THw_,H, M1,M2)M_I_TOL,BET_SIGwXMw

$CAP1,CAP2pXK'"

OOMMON/TM/TK(N_2), XX(NMB_}I

COMMONI/_T/NNDS, CONVCRAD e S,T_eISBFGNeODS

COMMON/ARA(NMBS) /T _TO(NMB5)_C(N_J), _D(NMB5),ICD(NMB5]pL(N_e2)

COMMON/LDS/L(NMB1, NMB2)_XP(Nl_d1wNMB2NMB4 , ) wMATS(NMB1, NMB2,NMB)3

$ N$(NMB1)

COMMO/NODES/NNeIeTTpTINtTgTSINK,FIJwTN_(NMB6)

COMMON/PRESS/PRE$

NEXFG=O

DO 176 K=I, NNDS

C(K)=O.O

176 CONTINUE

,r

.i DO

1"/7K=I, NODS

t, CD(K)=O.O

t., 177 PONTINUE

DO226 I I=1jNODS

JJ=ICD(I I]

JN=LS(IjJJ)

.: NI=L(I I_1)

N2=L(I1,2)

MA=MAT(SI, JJ_1)

;,, IF(JN.E_)o6) GOTO 227

I- IF(JN.EQ.1) GOTO 2251

IF(JN.EQ.7) GOTO 225 -t GOTO 227

2_'5 CONTINUE

C COMPUTECAPA(_ITANCEANDCONDUCTANCEOFSLABANDABLATORNODES i

1"I"=(TO(N1)+TO(N2))/2,0

CALLPROP(TT, PRES,MA_RO,CP,XK,EP)

DI=XX(N2)-XX(N1):.

CTM=DI*ROCCP/2.0 i

CMAS=ID_0 ' I F(NIT. NE.O)CMAS=O,O

XMAS=XMAS+CMAS

C(N1)=O(N1)+CTM

C(N2)=C(N2)+CTM

CD(II)=XK/DI

GOTO 226

227 CONTINUE C LOADGEO_TRYAN

D_ATERIALNUMBERSINTOCOMMON- GAP

,I: CALLLOAD(I

_JJ_Nt_N2)

ITST=JN..1

C COMPUTEQUIVALENTCONDUCTIVITYANDCAPACITANCEOF ALL_

C OTHERSTRUCTURES

GOTO (I,2_3_4_5),ITST

1 CONTINUE CALLRGAP

GO I"_,7

2 CONTINUE CALL HONEY

"A-tO
r_To7 ,,++ 3 C:ONTNU¢" I ORIGINAL ! ,,,_+.,,_,. +

CALL001_ OF POOR Ql.lAi.+_'a_;'

GOTO7

4 OONTINUE

" CALLSTAND

GOTO 7 "

OONTINUE

CALLTHINS

® 7 CONTINUE

C(N1)=C(N1)+CAP1

C(N2) =C(N2)+CAP2

IF(NIT.NE.O)XM_'O+O

C SUMMASSOF STRUCTURE

XMAS-XMA$+XM

CO(I I )=XK

228 OONTINUE

RETURN

END

•": A-1I
ORIGINAL PAG_ I_;-_

OF POOR QUALITY

S_ROUTiNE*(_OMTMP

C THIS SUBROUTINEOOMPUTESTHE TEMPERATURES

PARAMETER(NMBI=20,NMB2-6,N_'3,NI_I_4"6,NMBS=40,NMBG"IO)

COMMON/LDS/L( Nr431t NMB2w9XP(NMB1, N_2 eNMB|4, MATS(NMB1wN_ 2_N_:_)

$ NS(N_I )

COMMON/NOOES/NN! e11# ",TINI ToT$INKwFIJ_TMPM/L(N__G)

COMMON/CTMP/T_eDTSM

COMMONI/MET /NNDSeCONYCR_ADpSTY, I SBFGN()D9 _

OOMMON/ARA(.NMBS) /T wTO(N_5) jC(NMB5) _OD(NMBS) _ICO(N_S), L(NMBS,2)

COMMON/SUBLM/TSXLUB_XLP , pEXOHToN_p I STARoNDIVj IABeEXCHSVlQAOV,

$ QADVSwT_VIDt j _OP

N/_-O

DO456 JJ'I,NNDS

C CHECKTO SEE IF THIN SKIN SECTIONSEXIST ANYI_/HERINE STRUCTURE

tF(ISBFG.EgoO)GOTO 615

C THIN SKIN LAYER

JM2=JJ-2

JP2"JJ+2

.. JPI=JJ+I

' JM1=JJ-1

.. _ IF(JJoEQ°NNDS)GOTO 509

- _ IF(CD(JJ)._T,I,0Eg)GO TO 601

i IF(JJ.Eg.I)GO TO 61_ 

599 CONTINUE

: IF(CD(JM1).GT.1,0E9)GO TO G10

GOTO G1_

• , 601 CONTINUE

,,- C NODE/E_OVETHIN SECTION ;, CO=CJJ( )/(C (JP1)+C( JJ) )

IF(JJ.EQ°I)GO TO 602

;-_ IT=NNDS-1

AI=TO(JM1)*CD(JM| )

/_3=TO(JJ)*_CD(JMt)

I F(JJ,Eg. IT)GO TO 605

' A2=TO(JP2)_CD(JP1)

A4=TO(JJ)*CD(JP1)

GOTO 461

6_ CONTINUE

k2-0.0

A4=O.O

GOTO 461

602 CONTINUE

C THIN SKIN ON SURFACE,NODE/_OVE THIN SECTION

A1=T_ %'ONV+TSINK_AD

K_-TO(JJ) _CONV+TO(JJ)*CRAD

_ IF(NNDS.EQ,2)GOTO 604

_=!, A4=TO(JJ)*CD(JP1)

.. i A2-TO(JP2)_t_D(JPI)

:_ GOTO 4G1

_ G04 CONTINUE "

:"_ A4=O.0 ii'

_2"0.0

'=',_ GOTO 461

i'_. 610 CONTINUE

" A IS "

' _ ......... _ ................................ _ .................. ,............. _-'_._-" : .: ,:.._; " _-:_. ::-_._L,,,_
C NOOEBELO

WTHINSECTIONORIGINALPAGEIB

C(_(_(JJ|/(C(JM] )+C(JJ)) OFPOOR QUALITY IF(J'JoEQ,2)_ TO 612

"A1-TO(JM2)*(_D(JM2)

:'/13inTO(JJ)eOD(JM2)

I.F(J'J.L_Q,NNDS)GOTO 613

A2-TO(JPI)_D(JJ)

: A4-TO(JJ)_D(JJ)

* 90 TO 461

;4 613 CONTINUE

A,?.-O.O

: k4-O.O

60 TO 461

612 CONTINUE

C THIN SKIN ON SURFACE,NODEBELOWTHINSECTION

A1-T_aCONV+TSINK*_RAD

_-TO (JJ)*CONV+TO(JJ)*CftAO

3i IF(NND

S.E_).2)GOTO 614

A2"TO(JP1)_CD(JJ)

-_: A4-TO(JJ)*OD(JJ)

_ GOTO461

614 CONTINUE A4-0.O

A2=O,O

461 CONTINUE.

FI=(AI+A2)*CC

F2=(_+A4) *CO.

ooTo46o :

l}615 CONTINUE C STANDARDHEATBALANCE

IF(JJ.NE,1)GO TO 457

CSURFACENODE

•F1,,TSINK%"_AD+TAW*CONV+TO(2) *CD(1)

" F2=TO(1)* (CRAD+CONV+CD ( 1) ) ., GOTO 460 4P7 CONTINUE _ IF(JJ.NE.NNDS)GOTO 4PB ._, C LASTNODE

JMI.,JJ-1

,FI=TO(JM1)*CD(JM1)

__', F2=TO(NNbS)'o_CD(JM1)

GoTO4eo

-_. 458 CONTINUE

__,,C GENERALNODE

,J.l-JJ-

JPI-J J+l F1-TO(JM1)*CD(JM1)+TO(JP1)*CD(J J)

!i., F2"TO(JJ)* (CD(JM1)+CD(JJ))

460 CONTINUE C COMPUTF_MPERATURE .

S

._ T(JJ) -TO(JJ)+(F1-F2)*(DTSM/C(J J))

_i_C CHECKTO SEE IF SUBLIMERTEMPERATUREHASBEEN EXCEEDED

_ IF(JJ.NE.1) GOTO 456

.:_i IF(LS(I_I).NE.7) GOTO456
EXOHT"O,O

, IF(T(JJ).LE,TSUS) GOTO4_}6

: N_"f

EXCHT"(1'(JJ)"TSUB|eC(JJ}

T(J J)"TSUB

456 CONTINUE

RETURN

END

OI_IGIINALPAG_ i_,5'

OF POORQUALIT_

|
OEPOORQUALn_t

S_R_TINE _

C SUBROUTINECOM_TE_ EF'FECrlVE_I,IERH_ CON_C_q'IVIT_,CAPACI',I_t

C ANDMASSOF A C_RRUGATEDSTRUGTURE

_t, ff_N/GAP/T1_T2_1 _TH2_TH_Hj PpHpM_1I_jMSpTOLmBETSle_ p

$ XM_CAP1_CA_XK

COMMON/FACT/(XX1042, ) j,YY( '10_2)

COMMON/SF/AR(10) ,EPP(10) _F( 10_1,O)_ASF(10,1O)

OOHMON/ffRESSIPRES

. _0" (TI+T2) 12.0

:_:. _"I30

;

_" CONK-1.0EB

li:, AKC"CONK'I_0'2_"'TH_'

P2-P/2.0

TTI ,,T1

TT2,,T2

T'I3,,(T1 

B1-P2/2.0

B2,,TH/2.0

B:_',_OI_(Bt T **2+9,2**2)

A1-P2

VOL'TH1+1142+(2.0 _B3)*THS/P2

C STARTITERATIONFORMIDPOINTTEMPERATURES

DO100 1"1,100

CALLPROP(TTI,PRES,M1,I_H01,GP1,XK1,EPP(1) )

CALLPROP(TT2_PREM2 S, ,1qHO2,CP2,XK2,EPP(2))

CALLPI_OP(TT3,PRES_M3,_O3,CP_,XK3,EPP(:_))

IF(I.ME.1)GO TO 101

C SETO00RDINATESFOR ENDSOF EACHOF I"HREESURFACESFOR

C RADIATIONENCLOSURE

DO 102 I1"1,:_

EPP(2)-1.0

DO 103 JJ"l,2

XT'O.O

YT=TH

IF( I I. EQ.2.AND.JJ.EQ.1)YT=O.O

IF( I I. EQ°3.AND.JJ.EQ.1)YT-O,O

IF( I I.EQ. 1.AND.JJ.EQ_2)XT,,P2

IF(II EQ.3.AND,JJ.EQ,2)XT'P2

XX(I I_ JJI"XT

YY(I I, JJ)-YT

10:5 CONTINUE

102 CONTINUE

C FINb GEOMETRICVIEW FACTORSANDRADIANTINTERCHANGEFACTORS

CALLVFAO(3)

, CALLSR/PF(3)

A2F2_-ASP(1_3)

AIF13-ASF(1,_)

101 CONTINUE

AK1"XK1*TH1/B1

AK2-XK2*TH2/B1

AK_"XK]_TH3/B_

C COMPUTEEQUIVALENTOONDUCTOR

C1-AK1*AKCLAK3/(AK1*AKC+AK1*AK._+AKC*AK) 5

c2-AK2*AKC*AK3/(AK2_AKC_AK2_AK3+AKC*AK3)

A-15
ORIGINAL P/_GI__

C OOM_TERADIATIONCONDUCTOR OF' POOR QUALITV

C4-A1F13t$ IG*(TI _.2+13 _'2) _CT1+13)

CS,,A2F23"SIG*(T2e.2+13..2) e(T2+T_)

C ITERATEON_

'13N_(T1_ 1+1'2_02+T1*04+T2*D5)/ (C1+02+C,4+C5)

T3-BET*T_N+( 1.O-BET)_1"_

TEST-_S(_-130)/T_

I F(TEST.LT,TOL)GOTO 200

130,,13

1O000NTINUE

GOTO 300

200 CONTINUE

T12,,ABS(T1-T2)

T13-ABS¢Ti,-T3)

C COMPUTETOTALHEATTRANSFER

Q,.T13*(CI+CA)/P2

XK-Q/TI 2

C COMPUTEQUIVALENTCONDUCTIVITY

XM,.TH1*RH01+TH2*RH02+( 2,0 _B3)*TH3*RHO3/P2

'; C COMPUTECAPACITORS

CAP1,,(VOL/2.O)*RH01*CP1

CAP2,,(VOL/2.0)*RHO2*CP2

300 CONTINUE

RETURN

i ENO

A-lfl

' ...................... ""'-_:"_"_"_": ....'''=*'"'" '_ "--" .......................... nnnnnnn9 TSFO3
i.;_! ORICdNALPAG_ I_'

_ OF POOR QUALITY

i_ SUBROUTINEDATA1

i_: C SUBROUTINETO READANDSTORETHERMOPHYSICALPROPERTYDATA PARAMETE(RNMB1=20pNMB2"6_NI_3=3t NMB4"6)

PARAMETE(NMBB=41 R wNMBg=4f,N_6.10, NMB11=20_NMB12r8)

COMMON/DTA/(NIVI OO __8NMB9)t BSV(N_B _NMB11, NM8| 2)

COMMON/OSUB/CO(2,SNI_9)

COMMDN/LD/LS(N_•NMB2) I pXI_(NMB1•NMB2wN_4)_MATS(N_I •N_2_ NMB_•)

i'i $ NS(NMB1]

il " OOMMONITL/T E/CHAR2CHAR1 , ,FNAM1,FNAM3

COMMO/NODES/NN_I,I"I',TtN IT•TS INK•F; JpTNPIvlAX(NMB6]

_ COMMONN/IIT/TSTARTeTSTOP,TIMPT_DTIM,NBP,NEXTMETR , IC_

!_' $ METRIKeMETRIX_NSTPIPFL• AJ3•TINI(NHB1] _SINKT(NMB1)wXFIJ(NMB1),

_4_':ki $ MBP(NI_I)• I IN, l iN2 CHARACTER_IOCHAR(NMB6) 2 _TEST1

!?, CHA_ACTERe13 CHAR1(NMB6) •TEST2

LJ

_ CHARACTERWFNAM1 20 ,FNAM_

_i DIMENSIONMTST(NVB6)_BB(6),A_D(8) _ARDS(8] '

!Ii:I OPEN W (UN1T't8_NAIVE=t INP1. DATt• TYPEr I OLO_•RECOI_)$IZE"1_2) RITE(g,703)

DO471 JJrI, NMBG

i MTST(JJ)=O

471 CONTINUE

10"0

NLA=NSI()

C LOOP1 TO NUMBE_OFt LAYERS

DO400 LT'I _NLA

C LOOP1 TO NUMBEROF MATERIALSPERLAYER(MAX)

DO500 IM=,1, NMB_

MA,,MAT(SI _LT_IM)

IF(MA.EQ.O]GOTO 500

100 OONTINUE

READ(8/#Ol)KD

701 FORMAT(13_2XI.•%4X_AIO,lX_Al_,ElO,O)

707 FORMAT(_Xt,_•4X, AlO,1X_A13)

IF(KD.LT.O)C-,OTO 300

C CHECKTO SEE IF MATERIALNUMBERMATCHES

IF(KD_NE.MA)COTO J00

_ BACKSPACE(UNITr8)

!i_ READ(B•701)KD,JD,TEST1,TEST2,TMPMXA

!_:_,, IX) 351 KSrl ,NMB6

_t KSVmK5

C CHECKTO SEE IF R_TERIALHASBEENUSED

i!ii, IF(MA.EQ.MI"ST(K._))GOTO 3_2

351 CONTINUE

10-10+1

' l_frST(iC)rMA

RENUMBERNATERIAL INDENT1FIERS

MA. TS(I _LT_IN)rIO

TMPMAX( IC)=TMPMXA

_" O0 TO 353

352 CONTINUE

MATS(I_LT• IH)mKSV i

REWIND(UNIT-a) _

GOTO 500

_,_i' 3_3 CONTINUE

A-17
0 STOR

ETII"LESOF.POOR QUALrW

CHAR(2.I C),,TEST1

CH_1 (I C),,TEST2

DO250 IB'le4

IF(IB.EQ.1)GO TO2_I

O READT_LE TITLE FORTABLE2,),AND4

_EAD(8_'/07)JO,TEST1,TEST2

251 CONTINUE C STORENUI_BEROFENTRIE

S

IT-( 10-1)W4+lB

CO(IT,1)-FLOAT(JD)

DO200 ITT=I,JD

READ(8,702) (ARD(MR),MR=1,8)

IF(ARD(f).LT, O)GOTO G00

IF(ITT.GT.1)GO TO 210 ! C STOREMAXIMUMTEMPERATURFOR E PRINTING IN

DESIREDUNITS

IF(METRIK.EQ.0)TEMMAX=TMPMA( I0X)-45 g.

IF(METRIK.EQ.1)TEMMAX=TMPMAX ( IC)/1.8

IF( lB. EQ.i.AND,METRIK.EQ,0)WRITE(9, BOO)TEST1K,D,TEMrC_XTEST2 ,

800 FORNAT(//_8X,AIO,t- MATNO.tel2,//ef MAXIMUMTEMPERATUREt_llX,

$ F7.2,tDEGFt,//,Sx, tTEMP,t,gX_A15_/_4X,t (DEOF)t,BX,b

$t{LBM/CU.FT)**/)

IF( IB.EQ.1.AND.METRIK.EQ.1)WRITE(9j801)TEST1jKO,TEMMAXTEST2 ,

801 FORMAT(//,BX,AIO_O- MATNO, tel2p//,tMAXIMUMTEMPERATUREO,11Xp

$ F7.2_t DEGKt,//eSXe tTEMP,t,gX_A13,/p4X,t (DEGK) t,6X,

$' (KGM/CU.M.)t,/)

IF( IB,EQ.2,AND.METRIK.EQ.O)WRITE(9,802)TEST2

802 FORMAT(//,SX,t TEMP,t,7X,A13_/,4X_t(DEGF) i,_Xp I (BTU/LBM-DEGF)t,/)

I F( lB. EQ.2.AND.METRIK. EQ.1)WRITE(9,803)TEST2

803 FORMAT(//_,))XtTEMP _,,t_7X,AI_/,4X_t (DEGK)_,4X_ I $ t(JOULES/KGM-DEGK)te/)

IF(lB. EQ.3.AND.METRIK_EQoO)WRITE(9_804)TEST2"

804 FORMAT(//_SX,_TEMPto,7X_A13_/_4X_t (DEGF)t_4Xe i $ t(BTU/FT-S-DEG F)t_/) _ I F(IB.EQ.3oAND,METRIK.EQoI )WRITE(9,805)TEST2

80._ FORMAT(//_X_ iTEMP,t_TX_AI_;_/,4X_t(DEGK)t_4X_*(WATTS/MDEGK)I,/}

IF( IB, EQ.4.ANDoMETRIK. EQ,O)WRITE(g,8OG)T_$T2

80G FORMAT(//_SX_tTEMP,e_8X_AI_;_/,4X,t (DEGF)ee4X,t (DI MENSIONLESSt),/)

IF( lB. EQ.4.AND.METRIK.EQ.1)WRITE(9,807)TEST2

807 FOI_MAT(//,SXeTEMP,e,SX_A15,/e4X,t (DEOK)te4X,t (DI_NSIONLES$)re/)

210 CONTINUE A=ARD(1)

B'ARD(2) IF(METRIK.EQ.

0)AAA=A-459.6

IF(METRIK.EQ.1)AAA=A/1.8

BBB=B I F(METRIK.EQ.

1.AND.IB. EQ,1)BBEb'B_IG.0180G7°

IF(METRIK.EQ.1.AND.lB. EQ.2)BBB=B¢4187.6

IF(METRIK.EQ.1.AND. IB. EQ,3)BBB=B"6228._43

WRITE(9e?05)AAA_BBB

705 FORMAT(1X_E12.4_3X_E12.4)

K1=ITT_2

K2"KI +t

C STOREINDEPENDENTANDDEPENDENTARRAYS

CC(IT_K, 1)=A

"' A-18:,
LF&I '

CC(IT, K2)=B OF POOR QU/_Li'W

200 CONTINUE

GOTO 250

600 CONTINUE

C BIV_tAT T_LE

' IARDS=IFIX(-ARD(t) )

IF(METRIK.EQ,f)GO TO 605

WRITE(ggSO8)(ARD(MR),,MR,,2pI ARDS+I)

B08 FOR_I".(I/,3_X,ICONDUC_.IT¥V l,/.3:jx_ i (BTU/FT-S-DEGF) t,

i " $ I/_PX, OT_.MP, I_ESSURE(_/S(_.FT}oe/,4X, e(DEGF) o,

$ ?(4X_F?o2_2X))

GOTO 610

605 CONTINUE

DO608 MR1-2_I/_DS+I

606 N_DS(MR|)"ARDCMR1)*47.88

iVRITE(9, 809) (ARD5(MR),MR=2,IARDS+i )

80g FORMA'I"(//_3.J;XoCpONDUCTIVIW e,/,33X, e(iVATTS/M.DEGK) t,

$ //,SX, OTEMP, PRESSURE(N/SQ.M)°o/_4X_I(DEG K) O,

$ 7(3X, Fg.2,1X))

610 CONTINUE

iVRtTE(9_8i0}

810 FORMAT(13X,eo)

C STORENUHBEROFPRESSURES

.... : CO(IT, 2) =ARD( 1)

N_-ARD ( 1)+2 

C STOREPRESSURES .

IX) 601 IKS=3,N/_O

IMI=IK$-I '

CC(IT, IKS)_,N_D( IM1)

601 CONTINUE

NSll_.NARD+l

N$S,,NARD-2

C READRESTOF BIVARIAT T_LE

,::. DO602 16-1eJD

READ(8p702) (ARD(MR),MR"I, IARDS_)I

DO620 MKR=I,IARDS+I

I F(METRIK.EQ.O)ARDS( 1),,/tRD(1)-459.6

I F(METRIKoEQ.1)AROS(1)',/_RD(1)/1,8

/roDS(MKR)-/mD(MKR)

I F(METRIK. EQ,1)ARDS(MKR),_ARD(MKR)*6231.I

620 CONTINUE

WRITE(9p811) (ARDS(MKR),Mi<R1=6lARDS+|)

811 FORMAT(8(2X_11o4))

C SAVETEMPERATURES

CC(ITBNSTR)=AR_(1)

NSTR,,NSTR_I

'_i_, ' DO60.1 I?'1 ,NSS

171,,17+1

!_ C SAVEDEPENDENTVARI/_LE

BSV( IT, 16, I7)=ARD( 111)

' ' 603 CONTINUE

602 CONTINUE

,, 250 CONTINUE

READ(8_701_END"1000)KDS_JD_'I'EST_1TEST2_TMPt¢(_

IF(KDS.NE°KD)GOTO 1000

: A-19

.... :7: '_........... .._.._=_,-..,. -.-:.-_---_._-_,_.-_'_-:.:.'__.C--.".... o._ -,,=_:_--.__..,.-.-._,_-_.'_Z,_-_-'_'--_
C

STORETWO_LATOR PROPERTII_$OF POOR(_JALfi'_

" DO1100 IN2-1,2

COS(It42,1)-FLOM(JD)

IF(IM2,i_0.1..AND.METRIK.I_O.O)WRITE(g,850)TESiT2.

850 FORMAT(//,4X,t PRESSURE,p*X, A15,/,5X,v(LB/_. FT)ie6X,

$f(DE@F)t_/),,

IF(IN2.EO.|. ANb.METRIK. EO.1)WRITE(_3e651)TEST2"

:851 FORNAT(//,4XmI PRESSUREeStX_A15,/t4Xe! (N/SO,M)Ij?X,

$ t(DEGK_V_/)

I1_(IM2.EOo2. AND.METRI K.,EQ.O)WRITE(gj852)TEST2,

8;32 FORMAT(//,4X,'PRESSURE'pSX,A13,/_SX_t (I..B/SO.FT)I,SXw

"' ,I, '(BTU/I.,BM)'.I)

IF(I M2.EOo2.AND.METR[K.EOo1)WRITE(g_o35)TEST2

855 FORMAT(//_,4X'PRESSURE p t,_x_A15_/,4x_,'(N/SO,M)',PX,

$' (JOULES/KGM)!e/)

DO 1101 ITT-I.JD

READ(8_,702)A_B

F(METRIK.EO°0)AA1"A

•"F(METRIK,EO,1)AA1=Ae4?o88

:-"F(IM2.EQ.1.AND.METRIK.EQ,O)BB1=B,.-459.6

. F(I K2.EQ.1.AND,METRIK.EQ.1)BBI=B/1.8

:_F(IM2•EO.2. AND.METII_K,EO,O)BB1-B

_'. F(IM2.EQ.2,AND,METRIK.EQ°1)BB1=B'2.326°4

-WRITE(gj?OS)AA1,BB1

' K1=ITT*2

L_-. K2=Kl+I

,_

;;,C_(IM2,,K1)=A

;_::" CCS(IM2,K2)=B

-.!_' 1101 CONTINUE

r-'J. _,.. REAb(8

,701)KDwJDpTEST1_TEST2_TMPMXA

b,_ 11O0 CONTINUE

1000 CONTINUE

_ REWIND(UNIT=8)

_ GOTO 500 500 CONTINUE z_'," ;_, WRITE(g,7OS)MA ;:- 708 FORMAT(IH_'MATERIALNUMBER'

p3X1p5,SX, ICANNOTBE FOUND,.t)

,:-REWIND(UNIT=8)

60 TO 500

.-500 CONTINUE

i_ 400 CON'rlNUE

i__:'.REWIND(UNIT=8)..

,:_' 702 FORMAT(SX,SEIO.O)

;: 703 FORMAT(1Ht_10X_t1HTABLE S)

:: CLOSE(UNIT=8, STATUS'KEEP = t) ':". ' RETURN i END "*_" '

_t i ;_ A-20
, SUBROUTINDAT E A,?, (LBP)

': C SUBROUTINETO READANDSTOREENVIRONHENTFROMLANHINFILE (UNIT 7)

PARAMETER(NMBlO_,lOONMBl,, , 20)

; ¢OHMONINt IT/TST-ART_TgTOPTIeMPT,DTIM,NBP,NEXTMETR , ICe

. $ METRIK,METRIXN, STP#IPFLAGoTINI(NHB1),SINKT(N_I ),XFI J(NMBI),

i $ _P(NMB1)_ I IN_I IN2

' COHMON/ENVIR/TM1(NMB1O)pilot (NMB10)jH_I (N_I 0), PRE$1(NMB1O)

CHN:tACTER*72{::)E$CRP

WRITE(9_666)

i 666 FORMAT(IH1)

100 CONTINUE

'-' I0"0

! READ(7,700, END"1O00)OESORPIBP,

i ?00 FORMAT(AT2I_,)

C CHECKFOI_CORRECTBODYPOINTNUMBER

IF(IBP.EQ.LBP)GO TO 900

_: 50 CONTINUE

READ(?j701)D1, D2,D3,D4

i 701 FORMAT(2X,F6,1,39XjE10.3_2X,ElO._j56X, ElOJ)

],. IF(D1.LT.O,o)Go TO 100

':, _TOPO

900 CONTINUE

I F(ME'I'RIC. EQ.O)WRITE(9_?_0) IBP,DESORP

!_' 7.50 FORMAT(IH,IBODY POINT NUMBER"eeI_e_X, A72,//p10X, ITIMEIjgX,

! $tFILM COEF.e_X, tREC ENTHALPYe,_Xj ePRESSUREt ,/,10X, t (SEC)Ie

$6X,' (L_M/S_. FT-$EO)t,4X, ! (BTU/L.BM)', 6X, ' (LBF/SQ.FT) ' ,/)

:.:. I F(METRIO.EQ,1)WRITE(g_BSO)IBP,DE$ORP

r..' 8.$0 FORMAT(1Hjt_OY POINT NUMBER= t, I.SeSXA72 , ,1/,10X_,TIMEt,OX:,

I: $tF'lLM OOEF.t_SXl,_REC:ENTHALPY__6X_i PRESSUREt _/,10X, t (SEC)I, $7X, t (KOM/$QM.-SEG) ',4X, t (JOULES/KGM) o_SXet(_,M) o,/)

; 901 CONTINUE

'_, IC=10+1

_, C READLANMINDATA

READ(7_701)TM1( IC),HCI ( IC)_HAY/(JIC),PRES1(ICY

IF(1'M1( IC),GE,0.0) WRITE(9_,7_'1)TM1( IC),HC1( I C),

_":, $HA_I(I C)_,PRES(IC) 1

I IF(METRIC,EQ.O)GOTO .500

i HCI( IC)=HCJ( 10)14.B824

,_ HAW1( IC)=HA_I( I C)/2,_2456_

:: PRES1( IC)_PRESl( I C)/4?',BB

5"/00_}1 CFORMA ONTINUE T(IH_4(EX_EIO.4))

_; I F(TM!(IC)._E.O.O)GO TO 901

I REWIND(UNIT=?)

GOTO 1001

, 1000 OONTINUE

_RITE(9,7]52) LBP

7P2 FORMAT(IN,OCANNOTFIND BODYPOINT 1,15)

1001 CONTINUE

RETURN

END

:)

:!i

A-21
i

SUBI_OUT INI£DIST(IlI, Jf, 12eJ2_D)

C SUBROUTINE[ TOOOMPUTDIESTANCE31E'i_EENTWOPOINTSGIVEN

O OOORDINATES XX(I_J)_YY(I,J)

C I = SURFA_NO

C J - 1 OR2 I ENDPOINTS

O

O

OOMMONAG/F'T/XX(10_2},YY(10p2}

XI,XX(I 1,Jl }

YI-YY(I | jJ1 )

X2,,XX(12J2_ )

V2"YY( 12wd2)

D,,_RT( (XI-X2) _t2+(Y1"Y2}_'2)

RETURN

E[ND OrtGt_P_ p/_l". _,!,

OF pOOR QUALt'Cv
_ ORIGINALP,_C;:F,:,_

OF POORQUALFIY

SUBROUTINEHEATN(TII_EtHO,HAW_PRE$ ISV)_

O 1"HISROUTINEDETERMINESFILM OOEFFICI£NT , _ADI_ATICWALLENTHALPYt

O ANDPRESSUREASA FUNOTIONOFTIME

. PARA_T.ER(N_I 0-100)

COMMON/ENV IR/TM1(NMBO) 1 eriC1(NI_B1O),HAW1(NMBO) 1 ePREs1(NMBO) 1

II-lSV

100 CONTINUE

" 12-11 IP(TM1(12).OT.TIME)O0TOPO

I1,,11+1

TO100

50 I3ONTINUE '_

ISV-II

DT"TM1( 12)-TM1( 11)

DINC,(T, IME-TM1( I1 ) )/DT

HC-HC1( 11)+(HC1( 12)-HC1( 11) )eDINC

HNV-HAW1( 11) ( 12)-HNVl ( 11) )eDI NC 

PRES-PRES1( 11)+.(PRE$1( 12),,PRE$(111) )*DINO

RETURN

•. END "

0

_ A-23 ,':" ,,o

j
S

UBROUTINEHONEY

C SUBROUTINETOOOMPUTEQUIVALENTTHERMALCONDUCTIVITY_CAPAOiTY,

C ANDMASSOF HEXAGONALHONEYCO_STRUCTURE

COMMON/GAPI/,TT2, TH1, TH2, TH3,TH,P=H,M1,M2,M3eTOLjBET,SIG,

$ XM!CAP1_CAP2,XK

COMHON/PRESS/PRES

F12=°1

F1.',-.9

CSETGEOMETRICPARAMETERS

DRH*._,.O/(2.O*$QRT(3.O))

CPFT2=2,0ISQRT(5o0)/ (H**2*_t.0)

WPFT2=CPFT2*5,O

OWAL-O*2.0/3.0 ORI_NALPi:_&_ IL

VOL=(TH1+TH2)+WPFT2*(TH*TH3_q)WAL) OF POOR(_UALiT'V,

A1=(D/_.O'WH/2.0)/2,0

A2=A1

_=DW_*TH

T3=(Tl

CON=IfOE8

CONK=CON*DWAL*TH3

130=13

DO100 I-1,100

CALLPROP(T1,PRES,M1,RH01,CP1_XK1,I_P1)

CALLPROP(T2,PRESH2, , RH02_CP2_XK2EP2) ,

CALLPROP(13, PRES_M3,1_-10_3CP3,XK_,EP3)

C COMPUTERADIANTINTERCHANGEFACTORS

FI=(1.O/A1 )*(1°O/EP1-1.0)

F2=(1,O/A5)*( 1.0/EP._-i .0)

F3=1,O/(A1 *FI_)

A1F1._=1,0/(Fl+F2+F3)

F2=( 1,0/A2)*(1,O/EP2-1,0)

F3=1.0/(A1*F12)

A1F12=1.0/(Fl+F2+FS)

C SET CONDUCTORS

CI=4,0*TH1*5.O*DWAL*XK1/H

C2=C1*XK2/XK1

C3=2•O*XK3*TH3*DWAL/TH

XC1=C1*CONK_3_,/(C1*CONK+C1*C.'_+CONK_)C]

XC2=C2*CONK*C3/(C2*CONK+C2*C.'_+NCCO]NK)

R1=2, O'A1F13"SI6' (T1*'2+13"2)* (T1+i_)

R2=2,O'A1F13"SIG*(T2"'2+13"2)* (T1+13)

R3=2,O'A1F12*SIG*(T1*'2+T2"'2)* (T1+1"2)

C ITERATEONCELLWALLTEMPERATURE- 13

13N=(T1* (XCI+R1)+T2*(XC2+R2))/ (XC1+R1+XC2+R2)

1.3=(1,O-BET)*TS+BET*T]N

TEST=ABS(13-130)/r]t i IF(TEST.LT.TOL)C'_)T

O 200

130=13 T13=13

1DO CONTINUE

GOTO._00

_ 200 CONTINUE i

T12=_S (T1"T2)

Tl_=ABS(T1-13)

C COMPUTETOTALHEATTRANSFER i A-24
Q.(T12_.I.T13*(R2,+X02])_PFT2 OP POORQUALITY

C OOMPUTECONDUOTI l'r'Y, V MASSA,NDCAPAOITANOE

XK_Q/T12

XM_,TH1*RHOJ+11"12'RH02+1t_'PF10_'I'2tTH*TH:_3 AL

, OAP|=(VOL/2.0)_RHOI._CPI ,,

CAP2"(VOL/2.0)*RHOZ*CP2

300 CONTINUE

RETURN

. END

A-25
+4t.'Ib.+I _+_IP'}:"

!

OHIGtt_I/tLI+A_J;.7, ['_

OF POOR QUALITY

SUBROUTINE' INR3EO

C SUBROUTINEFOR INTERACTIVEINPUTOF DATAFOREXITS OODE

C INCLUDESINTERACTIVEINPUTOF S,TRUCTURE8

PARAMETER(NVE_mI20_NN_2=(+_NMB]_3eNIV_4_e5NI_6,=1O,NI_+?_100)

COMMON/GAP/T,i2pTH1+TH21TH_,TH+PwHwM1j M2+M],TOL_BETwSt(_pXM,

$ OAP11CAP2_XK

COMMONN/IT/TSTARTwTSTOPT_ IMPTDTI IM_NBP_NEX'I"_METRI(_e

$ METRIK,METRIXtNSl'PwIPFLAG_TINI(NMB1)pSlNKT(NM_I),XFIJ (N_I)w

$ MBP(NMB)1_I IN4,I IN2

OOMMONI/NTE/NNDSpCONVpC'RD,eST/_eISBFQNC, D$

OOMMON/LDS/L(NIV1BsNMB2),XP(NIVB1NMB2 , t NIV_4), MATS(NMB1,NMB2Nl , VS_),

$ NS(NMB1)

COMMONl/CTP /NNI5(NMB1wNHB2)

¢OMMONIT/ L2/ CHAR3

COMMONI/TLT E/OHAR2_OHAR1wleNAN1pFNAIVB

CHARACTER_20CHAR('/)_FNAM1,FNAM2,FNAM_

CHARACTER+tCHAR3 10 (NMB7)_CHAR2(NIVB6)

CHARACTER*1CHAR1 3 (NMB6)

: INTEGER ANS1, AN82wANS4_AN85pANS6,AN$7,ANS8,AN89_ANS10_8TRFLG

DATA CHAR/

1 _SL/E_ o

2 _RADIATIONGAP _

._ _HONEYCOI/_

'+ 4 _CORRUGATED I

5 _Z STANDOFF _,

6 'THIN SKIN ',

7 _ABLATORSUBLIM_R _/

:._ g WRITE(IIN2,10_

10 FORMAT(1H_WHAT IS THE MINIVER INPUTDATAFILE NAME_B)

READ(I IN, 2D,END=I2_4) FNAM2

20 FORMAT(A20)

OPEN(UNIT=7, NAI_.=FNAH2_TYPE=_OLD=, ERR=g+REOORDSIZE=80)

22 K'RITE(I IN2,2])

ii 23 FORMAT(1H,_WHATIS THE STRUCTUREFILE NAME?_)

._ READ(I IN,20,END=I2_4) FNAM]

WRITE(IIN2,_O)

]O FORMAT(iN,_WHAT18 THE NAMEOF THE OUTPUTFILE ?')

READ(I IN,20,END=12_4)FNAM1

OPEN(UNIT=9, NANE=FNAM1 ,TYPE=INEW_, ERR=22,REOORDIZES =I]_2)

C DEFAULTVALUESFOROONTROLPARAMF.TER_

DTIN=I0.0

: STAB=2,0

TOL=,001

BET=O.P

NEXT-20

NSTP=_O00 ,.

IPFLAG=I

', METRIC=O

"'., METRIK=O

1 METRIX-O ,..

:! C SET INITIAL_FINAL_ANDDELTAPRINT TIMES

40 WRITE(IIN2,SO) _

50 FORP_T(1H_WHAT IS THE INITIAL TIME(SEC) 1_)

' A-26
RE

AD(IINw%ERR_40,END_2]I4)TSTART

60WRITE(II N2,?O)

70FORMAT(IN,tWNAT 16 THEFINALTIME(SEC)?I) ORIGINALP/_,{"IE|_

READ(IINe%ERR_fiO_END"2I:34}TSTOP OFPOOR QUALI_

OOWRITE(IIN2,gO)

' 90 FORMAT(-1,tWHA HT IS THE TIME(SIlO)RCTWEENPRINTOUTS?t) .,

RI_AD(I INj %ERR"OOeEND"2_I 4)T.IMPT

100WRITE(tIN21110)

110 FORHAT(IH_eDOYOUWANTTORESETCONTROlP,ARAMETERS?_)

" REAl)(I INp120,ERR"100e_;ND1"214)AN$1

120FORMAT(A1)

1_0 FORMAT(E20.O) 1

140 FORMAT( t1O)

IF(ANS1.NE.IHY)GOTO190

C RESETCONTROPARAMETERS L

160WRITE(IIN2,110)DTIM

170 FORMAT(1H,tRESOLUTION=DEFAULT"t,F4.1,1NEWVALUE" l)_,

R£AD(I IN1130,ERR'160,END=1234)A1

IF_kt.GT,. 00001)DTI M'A1

180 W_ITE(IIN2,190)STAB

1¢J0 FORMATtlH,tST_ILITYI DEFAULT" I,F:_.I,1 NEWVALUE=t)

READ(I IN, 150,ERR"180bEND=1234)A2 IF(A2.GT..00001) STAB=A2

200WRITE(IIN2,210)TOL

210 FORMAT(IH_f ITERATIONTOLERENCEtDEFAULT= 11,F4.3,1 NEWVALUE"t)

READ(IINj130, ERR"200,END=12._4)A.3

IF(A].GT.. 00001)TOL=_

'_ 220

WRITE(.IIN2"_250)BET

230FORMAT(1H_,tRELAXATIONFACTORsDEFAULT"e,FSol,eNEWY/CUE" I)

READ(I IN,l_O_,ERR_220END= _ 12_4)A4

IF(A4.GT..0000t )BET=A4

_" 240WRITE(IIN2,250)NEXT

250 FORMAT(1H,eNUMBEROF STEPSBETWEENPARNVlETERCAI.C_=DEFAULT= e_.I2_

$! NEW VALUE" 'i)

READ(IIN,140,ERR=Z40,END=12:_4)K1

IF(K1oGT.0)NEXT'K1

" 260 _RITE(IIN2_270)NSTP

_'' 270 FORMAT(1H,tMAXIMUMNUMBEROF ITERATIONStDEFAULT=_14,

:_,-$t NEW VALUE"_)

READ(IIN, 140,ERR'260_END1234 =)K2

,,_ IF(K2.GT.O)NSTP,,K2

WRITE(IIN2,278) i' 278 FORMAT(/, $ 16X,_ENGLISH(DEFAUL

T_,P)X, !METRICee//,

$tX,ITEMPERATUREe,4X, IDEGFe,16X,tDEG Kt_/,

•$ IX, tLENGTH_,9X_INCHESt,lPX_ICM_,/,

lX, ! ENERGY! _9X,_BTU_, 18X,_JOULES! _/,

_lX,_MASSt,I1X,_LBMt_lSX,_KGM_,///)

27P WRITE(IIN2,277)FNN_42 i:!" .-_ 277 FORMAT(1H_ARE THEU

NITS OFt,A20_tINENGLISHORMETRIC?t) I READ(I

IN,

12O, END=I2:_4)ANS8 ERR-27P,

IF(ANS8°EQ°1HM)METRIC1= I' 281 WRITE(IIN2,Z82)

282 FORMAT(IH,_DO YOUWANTOUTPUTDATAIN ENGLISHOR_TRIC ?t)

A-27
ORIGINAL

Pi_._'_6_I_

READ(IIN,120,ERR,',281,END*,12_t4)AN$8 OF POOR QUALI'I'Y I F(AN_ ,EQ.1HM)METRIK-1

28_WRITE(IIN2,284)

264 FORMAT(1H,¢DOYOUWANTINPUTDATAIN ENGLISHORMETRIC?')

READ(I IN, 120pERR=_283, END_12_4)ANS8 IF(ANS8.EQ.1HM)METRI X.,1

280WRITE(IIN2,290)

290 FORMAT(1H,tOO YOUWANTADDITIONALPRINTOUT?¢)

READI( IN, 120,ERR=280,END=1234)AN$7

IF(ANS7.EO.IHY) IPFLAG=O _.

C ENOOF CONTROLPARAMETERLOOP 'C m Qm_DmmJm _mmlDINHNmDO _m_mlmm t_m _m_mm _m._ m_ _m_m m_mm_ _m._mmm_mm

150 CONTINUE 500 CONTINUE

510WRITE(fIN2,520)

]20 FORHAT(1H,'WHATIS THE TOTALNUMBEROF BODYPOINTS?0)

READ(IIN,**ERR"3109END=I2._4)I_BP

_, I F(NBP.GT.NMB1)WRITI_(I IN2,550)

530FORMAT( lX,*ERROR---NUMBEROF BODYI°TS. EXCEEDSDIMENS{ONINGt)

IP(NBP.GT,NMBt)GOTO500

DO 1000 IB=I,NBP

C DEFINESTRUCTUREAND INITIAL CONDITIONSFORTHECURRENTBoDYPOINT

540 CONTINUE

r_. IF(I!_,EO.1)WRITE(I IN2,350)

t IF( IB.NE.1)WRITE(IIN2,360)

560 FORMAT(1H,IWHATIS THE NEXTBODYPT. NUMBER?*)

350 FORMAT(1H_'WHAT IS THEBODYPOINTNUMBER?t)

.tREAl3(I IN,*_ERR=_40END=12 ,34)MBP(IB)

IF(IB°EQ.1)GO TO_70

C IF STRUCTURESALVEASFOR PREVIOUSBoP, USESAMEDATA

390 WRITE(IIN2,380)MBP(IB),MBP(IB'l)

f

380FORNU_T(1H_ODOES._ODYPT.°,lS,t HAVETIlESAMEDATA¢,

$t REQU,._:EMENTS ASBODYPT.t,15,°?l) ' READ(I IN, 120,ERR=It90END , =1234)ANS5

IF(ANSS.EQ,1HY)GOTO 890

310 CONTINUE

C RESETTIME ORCONTROLPARAMETERS?

C YES(Y)= RESETTIMING PARAMETERS

C TIME(T)" RESETTIMING PARAMETERS

C CONTROL(C)m RESETCONTROLPARAMETERS

410WRITE(IIN2,420)

420 FORMAT(1H,tDO YOUWANTTORESETTHETIME ORCONTROLo

$'PARAMETERS?=)

"_, READ(I IN, 120,ERR=41O,END=1234)ANS6

; IF(ANSG,EQ.1HY)GOTO 40 t

=, IF(ANSG.EQ.1HT)GOTO 40

IF(ANSG.EQ.1HC)GOTO160.

C DEFINE INITIAL TEMPERATUREDATAFORBODYI:_)INT

450WRITE(IIN2,4OO)MBP(IB)

400 FORMAT(1H_tWHATIS THE INITIAL TEMPERATUREOF BODYPT, t,

$15,' ?t)

READ(I IN,%ERR=4)OpEND=1214)T INI (IB)

IF(METRIX°EQ°O)TINI(IB)=TINI( IB)+459°6 ';

IF(METRIX.EQ.1)TINI (IB)=TINI (IB)*I.B !

'.' 440WRITE(IIN2,450)MBP(IB) I A-28

,

_-"

.. ."..,,_-'--_ .±_......._': ...._ ___.,• ---,:,--,.-,'.-_ _.: -.Z_-'- ..... __ 
OF POOR

QUALIIW'

.150 FORMAT(tHwtWHATIS THE SINK TEMPERATUREOF BODYPT._,

READ(I IN,_l,ERfl=440,END"1234)SINKT(tB)

'IF(METRIX.Eg.1)SINKT(IB)"SINKT(IB)e1.0

460WRITE(I IN2w470)MBP(IB)

470 FORMAT(1H,it'/HATIS THE VIEW FACTORFORBODYPT. I,l_,° ?t)

READ(I IN, _pERR"460,END"I2.34)XFIJ(IB)

' STRFLO=O

C DEFINE STRUCTURE

4"/2 WRITE(IIN2,4?3)MBP(IB)

4"/] FORMAT(1H,_DOESTHE STRUCTUREFORBODYPT.t,15,

$t EXIST IN 'tHE STRUCTUREFILE1_)

READ(I IN, 120,ERR'.472, END=1234)ANSg

C OBTAINSTRUCTURDATA E FROMS'fRUCTUREFILE

IF(ANSg.I_O,IHY)CALLSTRUCT(1,IB)

IF(ANSCJ.Eg,IHY)GO TO8._0

474WRITE(I IN2,4"/5)VaP(IB)

475FORMAT(1H_t_ YOUWANTTO ADDTHE STRUCTUREFORBODYP%t,

$ 15,t TOTHESTRUCTUREFILE ?t)

READ(IINj 120,ERR=474E,ND=1234)ANSl0

IF(ANS10,EO,1HY)STRFLG(=

480 CONTINUE

C DEFINENUMBEROF LAYERS

4gOWRITE(IIN2,5OO)MBP(IB)

_iO0 FORMAT(ill_tHOWMANYLAYERSAT BODYPT.i,15j i to)

READ(IINj _, ERR=490END ,=i234)NS(IB)

IF (NS(IB).GT. NMB2)WITER(I IN2,51O)

.510 FORMAT(lXwtERROR---NUMBEOFRLAYERSEXCEEDSARRAYDIMENSIONINGt )

IF(NS(IB).OToNMB2)GOTO 480

C LOOP1- NUMBEROF LAYERS

IX) 2000 KK=I,NS(IB)

C DEFINESTRUCTURETYPEANDDIIVEN$1ONSFOREACHLAYER

._20WRITE(IIN2,550)J

530 FORMAT(////,t STRUCTURETYPE--- NUMBERt,//,_

SwSLAB1 I,/,

$tRADIATIONGAP2t,/,

$t HONEYCOMB_t_/._,=

$tZ STANbOFF5

$!I'HIN SKIN6f,/.,_

$t ABLATORSUBLIMER7t,///)

540 WRITE(IIN2,550)KKpMBP(IB)

550 FORMAT(1H_tWHATIS 1HE STRUCTURETYPENUMBERtp $ tFORLAYERt,12_t OF BODYFT. t_lS_t ?_)

* READ(I IN,_,ERR"540_END=1234)LS(IB_.KK)

GOTO(560_5?O,SeO_590,600,610_E20)_LS(IB_,KK);

560 WRITE(IIN2_,6]O)KKMBP( , IB),*

READ(IIN_t_ERR"560,END't2_4)MATS(IB,KK_1) ,XP(IB,KK_1) il

." GOTO 640

570CONTINUE

DO]5000 LLU,1,2

650WRITE(IIN2_660)LLL_KK_MBP(IB)

READ(1IN,t, ERR=650END,, j, 1234)MATS( IB_KK,LLL)_XP(IB_KK,LLL)

]_000 CONTINUE_

A29
ORIG|

NALPP.(iiE[',_.i

OF POORQUALITY

670 WRITE(IIN2w660)KKeMBP(IB)

680 FORMAT(1H,tWHAT I$ THE STRUCTUREHEIGHTFORLAYERt,

$ 12_t OF BODYPT. t,15pt?_]

READ(1IN, wwERR_8?O,ENDnJ234_XP(IB, KK,4)

GOTO 640

980 CONTINUE

DO4000 LLL'I,_

690WRITE(IIN2,OOO)LLL,KK,MBP(IB]

READ(IIN,_'_ERR=B90E.ND=12_4)MATS(IB,KKjLLL]tXP(IBpKK,LLL)

4000 CONTINUE

700 WRITE(IIN2,7tO)KK,MBP(IB]

READ(IIN, *wERR=700,END=1234)XP(IB, KK,4)jXP(IB, KK_6)

GOTOe4o

990 CONTINUE

DO4_00 LLL=Ij]_

720I_tRITE(IIN2p650)LLL_KK_MBP(IB]

READ(IIN_#,ERR=720,END=1234)MATS( IB_KK,LLL),XP( IB, KK_LLL)

. 4500 CONTINUE 730 WRITE(IIN2

,740)KK_MBP(IB)

READ(I IN,% ERR=730END ,=1214)XP(IB, KK,4),XP( IB, KK,5)

GOTO 640

600 CONTINUE

DO5000 LLL=I,3

"/50WRITE(IIN2,660)LLL, KK,MBP(IB) i _EAD(I IN_%ERR=750,END=1234)MA

TS(IBwKKLLL) j ,XP( 19_KK,LLL)

5000 CONTINUE

_ 760WRITE(IIN2_770)KKwNBP'IB]

READ(IINj%ERR=76O_ENb=1234] (XP(IBpKK_LLL+3), LLL=t w3)

GOTO 640

610 CONTINUE'_

780WRITE(I IN2pB]_O)KKMBP(IB] ,

READ(I IN,** ERR=780_END"1234)MATS(IB_KKp1]_XP(IBpKK_4)

GOTO 640

620 CONTINUE

?goWRITE(IIN2,630)KK,MBP(IB)

READ(1IN, _,ERR=790,END=1234)MATS(IB,KK,1],XP( IB,KK,1)

GOTO 640

6._0 FORMAT(1H,*WHAT IS THE MAT. IDENTIFIERANDTHE MAT.e,

$_ THICKNESS_J,_ FORLAYERt_12_t OF BObYPT, _,15,_ 't 1)

660 FORNAT(eWHATIS THE MAT. IDENTIFIER ANbTHICKNESSOF M_'F. ¢,

$ 12,/,_ FORLAYER_,12,_ OF BODYFT._,15,_t I)

:710 FORNAT(1H**WHATIS THE STRUCTURHEIGHT E ANDCELL DIMENSIONS_, i $ e OF LAYERl_12,1 OF BODYFT. _,1_, _ ?t)

740 FORMAT(_H,eWHATIS THE :>TRUCTUREHEIGHTANDPITCH FORLAYER_,

$ 12,t OFBODYPT.t,lPll?t)

770 FORMAT(1H,IWHAT IS THE STRUCTUREHEIGHT_PITCH,ANDFLANGEr,

$_ WIDTHFORLAYER_,12__ OF BODYFT.t,15,_ ?t)

640 CONTINUE

800_RITE(I IN2_665)KK,MBP(IB)

665 FORMAT(1H,*ARE THEREANYCORRECTIONFOR S LAYERl,

$ 12__ OF BODYPOINT _,15,t ?_)

READ(IIN,81O,ERR=800END , =1234)ANS2

810 FORMAT(A1)

IF(ANS2oEQ1HY) . GOTO520

2000 CONTINUE/_ CONTINUEWITH NEXTLAYER

' !

A-30
:' ORIGINAL PF_E ;31

OF POOR QUALITY'

830 CONTINUE

IF(I_.GT,1)GO TO 85_,

C

: _ C O_TAIN MATERIALNA_S TO NATCHMATERIALNUI_ERS(USEDI_Y PICTURE)

;, OPEN(UNIT"B_NAME!=INP1.DATt _TYPE=IOLDt, RECORDSIZE=132]

:_ 6000 CONTINU/3

• READ(B,B40)MNU_

IF(MNUMB.EQ,O)GOTO 6000

' IF(MNUMB.LT.O)GOTO 850

BACKSPACE(UNIT=8)

READ(8_840)MNUMBCHAR3 _ (NNU_)

840 FORMAT(13,11X,AlO] GOTO6000

850 CONTINU_

REWIND(UNIT=B)

._ CLOSE(UNIT=8, STATUSt=KEEPt )

"" C

=-- C

=.f

:; IF(ANSg.EQ.1HY)GOTO 911

855 CONTINUE

= DOg10 INCI=I,NMB2

_. DOI F(METR g10 INC2 IX,EQ,O)XP( =l,N_/34IB, INC1, INC2)=XP(IB, INC1,INC2]/12,

2. IF (METRIX.EO, 1)XP( IB, INCI_ INC2)=XP(IB, INCJpINC2)/2._4/12,

_, 910 CONTINUE 911 CONTINUE

l C DISPLAYPICTUREOF COMPLETEsTRUCTURE SCREEN ON

,_"" CALL PIC_R(5, IB] :.

_ . 860 WRITE(IIN2,870)MBP(IB) -- 870 FORMAT(///,1H ;tARE THEREANYCORRECTIONSFORBODYPT. I,l_,. t ?l]

" READ( I I N,81O,ERR=B60EN, D=1234)AN$4

, cA.S4.EO.T1o.Y)o

-, c ^oDsucTu.EToSU I"U,LEE

GOTO820

-_. C890IF CON STRUCTURE TINUE FORBODYPOINTMATCHESSTRUCTURFOR E PREVIOUS

._ii C BODYPOINTI_IEN USESAMESTRUCTUREDATA

_"_ T INI ( IB)=TINI (IB-1)

_i,. SINKT(IB]=SlNKT(IB-1 )

.-_ XFIJ( IB_=XP , IJ( IB-1 )

NS(IB),,NS(IB-1 )

" DO7000 KKKK=_Nt S(IB-1 )

-"' LS(IB_KKKK)"LS(IB'1 _KKKK)

r. ,

_i:_. B DOXP(8000 IB,KKKK LLLLLLL) ,L=I,6 =XP( IB'1, KKKKLL, LL)

_" 8000 CONTIN:'E

: DO9000 _1 ,,3 MATS(IB,KKKKMMMM e )=MATS( IB'1 ,KKKK,MMMM]

_i '_ 9000 ' CONTINUE

__'P 7000 CONTINUE

,,. IF(ANSS.EQ.1HY)GOTO 911

:_i_;_ coTO8,o ]

_'_. 820 CONTINUE

i"-: 1000 CONTINUE /_ CONTINUE_ITH NEXTBODYPOINT

_i._: ___-_-_ -_

O0000002-TSGO'
WRITE(II.N2_,880)

BBO FORMAT(/I,1X,_ MODELCOMPLET-E- - - - - GONETOEXECUTI_ t) RETURN

1234 OONTINUE

STOP

END

OII_NAL p.C_,C__S

DE POOR(_UA_.IT'v

A-32

)
_

,.I_4b,__

OF.POOR QUALITY

SUBROUTINEINTP(XpPeNpY)

0C

SUBROUTINE.TOINTERPOLATEMONOANDBIVARIATETABLESFORPROPERTIE6

PARAI_TER(N_B=41, NMBg=4jNMBi 1 1,20j_:MB12-8)

COI_ON/DT_CC(NMBS,NMBg)j1_9V(NMB8)NVB11_N(_12)

CC:H£OKTO SEE IF T_L_-IS_IV_IATE

IF(CO(NI,2),LToO,O)O0 TO 2000

O NONOVARIATEIN_RPOLATIDN" DATASTOREDIN OO(N,J)

. J'OO(N1,)

JlmJ*2

XLST=CC(N,2)

Xl4ST=CO(NJ1,)

IF(X.E_.XLST)GO TO 700

IF(X.LT,XLST)GOTO I00

IF(X,GT,XHST)_TO200

JT-4

;_00 CONTINUE

:.IF(CC(N, JT),,X)_500_600w400

300 CONTINUE JT,IJT+2 GOTO5oo

' 400CONTINUE

;., NI=JT-2

:' N2"Nl+I i "! N3"JT

,. N4=f_+l

_:: GOTO 90C' !'.i 600 CONTINUE

NT-JT#t ,, i i, Y=CCIN_NT) i. GOTO 1000 I 7130 CONTINUE Y"OC(N,3)

GOTO 1000

100 CONTINUE

N1,,2

N2'-3

_,,4

N4"5..

GOTO900

200 CONTI,',IUE

N1"2'J'2

N2"Nl+l

N3-2*J

N4=N_+I

e 900CONTINUE

C COMPUTEPRO_RTY

SL=(OC(N,N4)'CC(N, N2))/(CC (N,N_)5"CO(N,NJ))

Y'CC(N,N2)+SL_(X-CC(N,N1))

z 1000 OONTINU_

GO10 3000

2000 CONTINUE C BIVARIATET_LE$ C INDEPENDENTVARI

ABLESIN CC(N,J)

CDEPENDENTVARIABLESIN BSV(N_JT,IL) A-33
N

g='OC(N,2)+2,0., ,,

N6-4OHIGINALp}_GE£_

490 CONTINUE OF pOOR QUALITY IF(CO(N,I_)-P 3351,3_2,353

351 CONTINUE

IF(NS,GE:,Ng)GO1"0 375

NS-NS+l

GOTO4_0

392 CONTINUE

GOTO 315

353 OONTINUI_

N7=NS-1

GO TO_560_

37S CONTINUE

N7,,N8

• PFAG-OoO

GOTO 561

560 OONTINUE

0 FIND INOREMENTIN PRESSUREDIRECTION

PFAO=(P-OC(N_N7))/ (OC(N_N8)-CC(N_N7))

561 CONTINUE

LS='CC(N,2) +4°0

L9"-CC(Nw2) +2, O+CC(N,1)

__950 CONTINUE

""' IF (CC(NjLB)'X)791,792,753

791 CONTINUE

IFtLS.GE.Lg)G0 TO 775

='_ LB=L8+1

GOTO 590

792 OONTINUE

., GOTO775

_:7_3 CONTINUE

L7=L8-1=

GO TO 760 i 775 CONTINUE

-i L7=L8

TFAC=O0.

, ! GoTO761

760 CONTINUE C FIND INCREVENTIN TEMPERATUREDIRECTION

!! TFAO=(X-OC(NpL7))/(CC(N,LB)'CC(NeLT))

761 CONTINUE

IR=NB-2,

IL-NT-2

JT"L7-Ng

JB=LB-Ng

F1"BSV(N,JT_IL)+PFAC_(BSV(N_JTwIR)-BSV(N_JT_II,))

F2-BSV(N, JB_IL)+PFAC*(BSV(N_JBpIR)-BSV(N_JBwIL)) :'

C FIND PROPERTY

Y'F1+TFAC*(F2-FI)

3000 CONTINUE,.

RETURN

END;:

A-34 i.
• i*-,_:_ _'i

OF POORQUALITY'

p!

.. SUBROUTINLOAE D(MPt5,#11'1,1't'2)

_' C $_ROUTINE1'0 LOADGEOrf.1,, RICANDMATERIALIDENTIFICA1,10N

C INTOCOMMONGAP

PARAMETE(NI R_E1-201NMB2,,6N_3, ,,3_.NMB4,,6N_jB_,,4O) .

* COMMON/GAP,T2/T1,X(0) ,M(S),1'OL,BET,SI0_XM_CAP11CAP2 j XK

COMMON/LD(NMB1 /LS INMB2) ,XP(NMB1_N_2pN_4 ) _MAT(NMB1 S ,N_2p N_31p

$ N_;(NMB1 )

COMMON/ARA(N/_1'5) jTO(N_5) ,C(N_5) pCD(N_5)j ICD(NMBS) pL(NMBS,2)

'_ DT'25.0

L 1'1.TO( IT1)+DT

T2-1.0( IT2)-OT

'; C LOADMATERIN.S

: DO100 1"1,3

M(I)"MATS(MPISj _I )

.i 100 CONTINUE

'/- C LOADGEOMETRY

i IX)200 J.1,6 X(J)"XP(MP,IS,J)

i!: 200 CONTINUE

RETURN

i' END

r

i .

f

,t

A-35
ORIGI

t_I_L'_'""""

SUBROUTINENODEOF POOR QUALI'iY

g THIS SUBROUTINESETSUP THE NODALNETWORK

PARAMETER(..NMB1._201NMB2-6N_,]=_t NMB4-6=N_=40_ NMB6.101

OOMMON/ NODE$/NNI_, TT,T1N11',TSINKIFIJ_TMPMA(XN_6)

COMMON/GAP/,T2 T|)THI.,TH2,TH_,THt,P,H,MI,_,M3,TOL, BET,SlG,XM,, ' S CAPJ,OAP2,XK

OOM_N/INIT/T$1'_TeTSTOPuTINPT_DTIM_P,NEXT=_TRIOf

$ METRII%METRIX_NItTP_1PFLAG,T.IIN(NVBt]j,$INKT(N_I)_XFI,J(NWB1)

S MBP(N_(]_I IN,I IN2 i OOMMONITAXTIK(NIVB2wXX )

(NNBS) i COMMONI/MT E/NNDSODN _ VORI ADST, _

I5BFG,NCD$

: ODMMON/ARA(NMB5 /T ) _TO(NIV_)jC(N_5), OD(NMB5),ICb(N_)_L(NMg_2) i COMMON/LD/LS(NMBt NMB2) , eXP(NMI_eINMB2NMB , 4_)MATS(NMB1eNMB2,NMB_I)

,

,':S NS(NMB1]

COMMONI/CTP /NNIS(NI_'__'_31 NMB2)

COMMONI/TLTE/CHAR2_CH/_J_FNI,AM1FN,AI_B

COMMON/PRESS/PRES

OHARACTER*4UNITt(2)

CHARACTER*6UNIT2(2)

, OHARACTER*1OH3 AR1(NMB6) ' CHARACTER0_ICHAR2(NMB6)

OHARAOTER_20OHAR(7]_FNAM1,FNAM3

DIMENSIONXXX(NNB_)

DATAUNITI/_ IN._,t CM._/

DATAUNIT2/_ DEGF_,_DEGK_/

DATACHAR/

'_1_SLAB_,

2_RADI.ATtONGAP_

3_HONEYCOI_B_

4_CORRUGATEDI

5 _Z STANDOFF _, 6 _THIN SKIN _, 7 _ABLATORSUBLIMER _1 IC=O

METRC=METRIK+I

DO70gOJ=1, NN.

I ST=LS(I,J)

IF(ISToEQ, 1) GOTO 140

!i, GOIF(IST.EQ.7) TO 120GOTO 140 

140 CONTINUE

C DIVIDE SLABORABLATORINtO NX-1LAYERS

THKNS=XP( I_J_1)

MA=MATS(I,J,t)

CALLPROP(TTPRES ,,MA,RO_OP,XK,EP)

DX=SQRT(DTIM_2.0_XK/(RO_CP)],

NXIF(NX+I.GE.N =THKNS/DXMBS)GOTOggg

NNIS(I_J)-NX

TK(d]=THKNS/FLOAT(19)()

C ASSIGNNODENUMBERSANDINITIAL TEMPERATURESNO,DENUMBERSFOR..

C EACHCONDUCTORNODE , POSITIONSFOR SLABANDABLATOR'..

DO130 K.,I_NX

IC,,IO+J,,,

ICD(IC)=J '. A-36 i
qll

--

lU"IC

IL=_C+1ORl_t:,f./1LF",,._,r,;Ff?,_

L(tC,1 ),IU OFPOOR £!IJAL|Ty L( IC,2),,IL

' TO(IU)"TINIT

TO(IL)'TtNI.T

T( 1U)=TO(IU)

T( IL)"TO(IL)

, XX(II.)=XX(I U)+TK(J)

1:_0OONlINUE ' GO TO 700

0

120 CONTINUE

CASSIGNNODENUMBERSINITIA ,L TEMPERATURE_NONUMBERS bE FOREACH

COONbUCTORNOOE , POSITIONSFORALL OTHERSTRUCTURETYPES

10,10+I ' ICD(IC)"J

IU'IC

.. IL=IO+I

•: L(ICll)=lU

L(ICb2)=IL

- TO(IU)=TINiT

-,. TO(IL)=TINIT

T(IU)=TO(IU)

T(IL)=TO(IL)

XX(IL)=XX(IU)+XP(I,ap4)

;._ 7000 CONTINUE NND$=IL

NCD_=IC WRITE(9

p769)

WRITE(¢J_768)IVE_IP)(

IF(METRIK.EQ.O)ATINIT=TIN IT'459.6

IF(METRIK°EQ.1)ATIN IT=TINIT/1.8

IF(METRIK.EQ,0)ATSINK=T$INK'459o6

IF(MET_IK.EQ*1)ATSINK=TSINK/1.8

WRITE(9p'/21)ATINIT, UNIT2(METRC),ATSINKwUNIT2(METRC)eFIJ

DO137 KK=J,NCDS

NO_)1=L(KK1,)

IF(METRIK.EQ.0)XXX(NOD1]=XX(NOD1)'12.

IF(METRIK.EQ.1)XXX(NOD1)=XX(NOD1)*12**2,.54

WRITE(9,770] NOOt,XXX(NO01],UNIT1 (METRC)

WRITE(9,771)KK

JST=ICO(KK]

KST=LS(IsJST)

WRITE(9_772)KST,CHAR(KST)

C WRITEOUTDESCRIPTIONOFNE'_ORK

t, DO429 LL*I,3

MA=MATS( I, JST,LL)

IF(MA.EQ.O)COTO 429

WRITE(9,773) LL,CHAR2(MA)"

t 429 CONTINUE

77_1 FORIV_T(1H_20XpOMATERIAL1,12pt= o,AtO)

NOO2=(KK L,2)

IF(METRIKoEO°0)XXX(NOD2)=XX(NOD2)* 12°

IF(METRIK°EQ,1)XXX(NOD2)=XX(NOD2)*12.'2.54

WRITE(9,774) NOO2,XXX(NOD2,UNITt )(METRC)

A,.37

® 
1

• i ' t1fI

i' I -lil• ,¢ !l
,'v I

51JBROUTINE PICTUR(I IN_d]MP, ) OF PO0_;:IjU/_Li i _._

0 SUBROUTINETHAT_PRINTSA PtOTIJREOF THE STRUCTUREAT A I_ODYPOINT

PARAMETER(N_1.20o NMB2*6_N_lm], N1_4_6_NMB6_,IO,NI_EtT. 100)

= COMMON/LDS/L(NMB1wN_2) ,XP(N_ 1, N_2, NMB4),MATS(N_ 1, N_2 ohl_E3_),

$ NS(NMB|)

COMMONN/IIT/TST_T, TSTOPT_1MPTO_TIM__Pw NEXT_METRIOu

$ ME?RIK,MEI'I1IX, NSTPsI PFLk_jTINI (N_I), $INKT(N_I ),XFIJ (N_I),

, $ MBP(N_I)elINw I IN2

OOMMONI/OPT/NNI $(N_1 ,N_2)

COMMONITL /T E/OHAR2MCH_ AR1F, NAMtt FNAM_

COMMONI/TTL2/OH

_MAOTER©4 UNIT(2)

OHARAOTER*20OHAR(7) j FNAM1FN, AM]

¢HARAOI'ER_IOOHAR(2N_? }j CH/_L(N_ _ '/) _OHAR2M(N_6)

CHARA_ER=I_OHAR1(NMB6)

DIMENSIONZXP(NMB1,NMB2,NMB4)

INTEGERANS1,ANS2_ANS4_ANS_

DATAUNIT/t tN, t, _ CM,I/

0 NAMEOF EACHSTRUCTURETYPE

DATACHAR/

1 _SL_ =_

2 _RADIATIONGAP _,

It _HONEYCOMI_ t,

4 !OORRUGATED B,

P BZ STANOOFF t,

6 _THIN SKIN _,

7 _kBLATORSUBLIMER _/

C CONVERTUNITS OF.MATDIMENSIONSFORPICTURE '.

DO]_00 INCI"I,N_2

DO_00 INC2.,1,NV£=4

IF (METRIKoEQo0)ZV=(MP,I NC1,INC2)mXP(MPINC1 , , INC2)'12°

IF (METRIK.EQ.1)ZX_'(MP,INCJ, INC2)=XP(MP,INC1,INC2)e12.e2o54

300 CONTINUE

MEIFr,TRC,,M I IN3°EEQTRI,K9)GOTO ],

C IF PICTUREDISPLAYEDTO SCREEN(NODESNOT INCLUDED)

DO2 1KJ"1, NMB7

CHA_2(IKJ)=CHAR_(IKJ)

2 CONTINUE

GOT01

CONTINUE ',

C IF PICTUREPRINTEDTO OUTPUTFILE(NODESINCLUDED)

, DO4 IKJ=I_NMB6 i

OHAR2( I KJ)-OHAR2M(IKJ)

i * 4 CONTINUE I

,t 1 CONT[NUE !

i C CREATETHE PICTURE I

!

IJKml

.f WRITE(IINS_619)MBP(MP) i

C TOPLAYERBOUNDARY

IF( I IN3,EQ,5)WRITE(I IN]_620) f

:' IF( I IN._.EQ.g)WRITEI( IN_'/20) IJK

!i_ :' IJK"IJK+I i

i'*, : C LOOPI - NUMBEROF LAYERSFORTHIS BODYPOINT t

, C J - LAYERNUMBER Ii

A-39 I

t
(J MP - BODYPOINT NUNI_ER OFPOORQUALITY

0 I IN_ . 5 DI,S_AY TO SCREEN (NODESAVAILN_LE)

C I IN3 " 9 PRINT TO OUTPUTFILE (NODE5NOTAVAILN_LE)

DO700 J"lwN_(MP)

o SLAB

IF(LS(MP_J) .EO.1.AND,I IN_.I_Q.,5)tfRITE( I IN, p621)CH_2 (MATS(MPfJ_1) )e

$ ¢It_(L$(MP, J) ),_P(MPp d_1),UNIT(MF.TRC)

IF(LS(MP, J).L_O.1,ANI3.I IN3.£Q,g)O0 TO IOD

C ABLATORS_LI_R

IF(L$(MPpJ) .EQ.7 .AND.I IN_.EQ,_ )WRIT(_(I IN3j521 )CH_2 (MATS(MP_J_t ) )_

$ _AR(LS(MPwJ)) eZXP(MPJwi 1)IUNIT(METRC)

IF(LS(MP_J).EQ.7,ANO. I IN3.EQ.9)O0 TO 100

C RADIATIONGAP

IF(LS(MP_J) .EQ.2) WRIT(;( I IN3w622)ZXP(MPeJ_1), UNIT(M£TRO)p

$CHAR2(MATS(MPeJp1) )eCHAR(LS(MPJe) )i ZXP(MPeJe4)eUNIT(METRC)e

SZXP(MPeJe2) eUNIT(NETRC)e_2 (MATS(MPeJe2) )

C HONEY_t_

I F(LS(MPeJ).EQ.3)WRITE( I IN3_623)ZXP(MP,J_1) _UNIT(METRCe)

$CHAR(MATS 2 (MP,J, _1) ) eCHAR(MATS 2 (MP_J,3 ) )_CHAR(L$(MPJ)_ )

SZXP(MPJ__4), U_,_T(METRC) I _ZXP(MP_J_2) _UNIT(MEI'RC_)

$ CHAR2(MATS(MP_Je2) )

C CORRUGATED

IF(LS(MP,J) °EQ.4)WRITE(I IN3,624)ZXP(MP,J_1) pUNIT(METRC)

$CH_2(MATS(MPJ, _1) ), CHAR2(MATS(MPJ_,]t))_CHAR(LS(MPJ)e),

SZXP(MP,Je4), UNIT(METI_C)eZXP(MPJ=_2) _UNIT(METRC)_

$ CHAR2(MAT_(MP,J_2) )

C Z STANDOFF

1F(LS(MPeJ) .EQ.5)WRITE(I IN3_62_,)ZXP(MP,Je1) _UNIT(METRO)

$CHAR2(MATS(MP_J,_1, ) ), _2 (MATS(MP_J,3) ),_AR( L$(MP,J) ),

SZXP(MPJ,_4) =UNIT(METRC)_ZXP(MP , _J_2) _UNIT(METRO)_

$ CHAR2(MATS(MP_J_2) )

C THIN SKIN

I F(LS(MP,,J).EQ.6)WRITE(I IN3_626)CHAR2(MATS(MPJ__l ) )_

$ CHAR(LS(MPJ), ), ZXP(MP_J_4), UNIT(METRO)

200 CONTINUE

C BOTTOMLAYERBOUNDARY

I F( I IN3.EQ._)WRITE(I I N3_620)

I F(I IN3.EQ.9)WRITE(I IN3_720)IJK

IJK=I JK+I

GOTO 700

1O0 CONTINUE

C SLAB/ ABLATOR$UBLIMER(CONTINUED)

NX=NNIS(MP_J)- 1

IF(NX,LE.O)GO TO 11

NXO2=NX/2+I ,_

DO 10 K=I_NX

IF(KoEQ.1.AND°K°LT.NXO2)WRITE(I INJ_BO0)IJR

I F(K.GT. 1.AND.K°LT.NX02)WRiTE( I IN3,801) I JK

I F(K.EQ.NXO2)WRITE(I IN3_B02)IJK_CHAR2(MATS(MPJ,_1) )_.

_ $ CHAR(LS(MP,J) ) _ZXP(MPJ, , J), UNIT(METRO)

IF(K.GT.NX02.AND.K. LT.NX)WRITE( I IN3,801 ) I JK

IF(K,GT.NXO2.AND.K.EQ.NX)WRITE(I IN_B03) IJK ,,

I JK"I JK+I i

10 CONTINUE '_

11 CONTINUE

A-40 ,,

SUBROUTINEPROP(T1,P,MAT,RHOCP, pXK,EP) ORIIitlNAL P/:,_?_i_f.:t

G UNITS AREB'I'U,FT,SEC,OR_LBM OF, IK}OR QUALI'(Y

C TALES A_E DENSlTYwSP, HT._C."NDU_IVITYjEMISSlVITY

" IN THATORDERANDREPEATED

(_ IP i I

C T1 ,,TEMP_

¢ MAT-MATERIALNUMBER

C RHORDENITYS

: _ OP ,,SPECIFICHEAT

• , C XC -OONDUOTIVITY

, C EP =EMISSIVITY

i ¢

' I MDEN=(MAT-1)'4+1

• ! MSCP_,MDEN+I

MOON,,M$CP+I

' MEF'=_OON+I

; CALl. INTP(T1,P, MDEN,R-IO)

'_ CALL INTP(T1,PjMSCP,CP)

i CALL INTP(Tt ,P, MCON,,XK)

CALL INTP(T1_P_MEPwEP) •

_ RETURN

I,!

Ip

°

'|,

-_ ', A-42 ' :

i '_l_= . _ -_" . . --_...._T,_ ........... _.-.E._,,-_ ,.-_- :'"" ........... Y .. _ " _ ......... ._ ".L='_,_,_.,'._,.._'.,g_..-.'Zx" r_';_: ",_ :'_.-'':':'}"
r

"_ OFPOORqUALr_

SUBROUTINERGAP

•. C SUBROUTINCOE MRJ'rEsEQUIVN.ENTTHERMAL_NO(JCT_CE I'HROU_H

C R_IADION GAP

COMMON/GAP1i/T2T , TH1,TH2,TH_ITH, Pi,H,MJ,M2,H5jTOL,BET,$ IG,

$ XMIOAPI , ,CAP2_XK

P..,OHMON/PRES$/PRES

l"TI=T1

TT2=T2

: ?AO=TI I

1'90=T2

DO 100 1=1_100

C FIND PROPERTIESOF UPPERANDLOWERSURFACES

CALLPROP(TT1,PRES,M1_1_'101,OPI ,XK1,¢'P1)

CALL PROP(TT2,PRES,M2,I_'I02,CP2,XK2,EP2)

F1=1,0/EP1

: F2=1,0/EP2

SF.,1.0/ (F1+F2-1, O)

YKI"XK1/THI

YK2"XK2/TH2 .!

_: YK3=$IG%F*(TAO**2+'I'BO**2)* (TAO+'rBo)

C COMPUTEINTERIORSURFACETEMPERATUROFE UPPERANDLOWERSURFACE ..

• ._, TA'( (TI *YKI+TE_O_YK3)/(YK1+YK3) )'mBET(+1.O-BET)¢'T,';,O I

_. I"6- ( (T2*YK2+TAO*YK)_/ (YK2+YK3)_F..T+( I .O-BET)*TBO

TESTI"ABS((TA-TAO)/I"AO)

" TEST2-AB$((TB...'rBo)/'1"8o)

: C CHECKFORCONVERGENCE

IF(I'ESTJ,LT.TOL,/_,_D,TE$'I'2LT. ,TOL)GOTO 200

": TT1=(T1+TA)/2.0

TT2=(T2+_)/2.0

:_ TAO-TA

•:" "rBo-1'B " ,i

1O0 CONTINUE

,:. GOTO300 _ "

200 CONTINUE i

C COHPUTEQUIVALENTCONDUCTANCE i L

• XK=YK1*YKZ'mYK:3/(Y'K1mYK2+YK1_YK3+YK2'mYK3 ] _i i

XM=RH01*TH1+RH02*TH2 _ :

CAPt-RH01*TH1*CP1 , !i

CAP2=RHO2*TH2*CP2 _ ,

300 CONTINUE

RETURN "

END i

_' e I

f

• ; t

; / :,, ;

.t A 43 ': 1

t
oFPOORQ

UALm' ! SUBROUTINE_RIPF(NN)

0 SUBROUTINETO FIND RADIATIONIN_EROHANGEFACTORS

C GIVENEMISSlVITIESeGEOMETRIO VIEW FACTORSA,_EAS UNING THE

C NLPI_/ORKMETH_ i COMMON/SF/AR( 10)

, EPP(10),P(1O,109, ASF(1O,1D)"

DIMENSIONm (10)pXJ(10)_XJN(10)wlq_lO(10)

TOL-.O01

BETA-.5 ' EMPOW1000.0 =

,N-NN

.'., DO 100 I=I,N

'" RI=FLOAT(I)

EB(I )'EMPOWERI

RHO(I)=1.0"EPP(I)

XJ(I)'EB(I)

1O0 CONTINUE C ITERATE ON RADIO

SITY, XJ

DO500 _I,50

TESTM-1.0E-8

DO200 J=I,N

SUMJF=O.O

Ft,,EPP(J)/(I.O-RHO(J)*F(J, J))_EB(J)

F2-'RHO(J)/(1.0-FHO(J)*P (J, J))

DO 300 K,,I_N

IF(J,EQ.K)GO TO 300

_,,SUMJl_=SUMJF+XJ(K)*F(JpK)

300 CONTINUE

Xj N(j)=(1.0.BETA)_Xj(j)+BETAM(F I+F2_SUMJF)_,

TESTmABS(XJ(J)-XJ N(J))/XJ(J) i IF(TEST. GT°TESTM)TESTI_'TEST

XJ(J)=XJN(J)

200 CONTINUE I F(TESTM.LT.TOL)GC) TO

600

500 CONTINUE

600 CONTINUE

C OOMPUTENET EXCHANGEBY RADIOSITY DIFFEI_t"qOE

CCOMF:'UTARE EA*SCRIPT"F" BY DIVISION BY BLACKBODYEMI$SIVE PO_ER

DO 8001"1,N

DO 900 J'lpN

ASF(IwJ)=O.o,

IF(I.E_).JPGO TO 900

ASF(I, J)-AR(I)*F (I, J)*(XJ(I )-XJ (J))/(EB(I )-EB(J)),

900 CONTINUE _.

800 CONTINUE I

RETURN i

END IItIP ' i • i

A-44' It
ORIGINAL PA_i;{_r,_i

OF POOR QUALITY

SUBROUTINE STAND

C SUBROUTINTEO COMPUTEEQUIVALENTCONDUCTANCEMA,SSC, APACITANCE

C OF Z ._;TANI:)OSTFFRUCTURE

COMNON/GAP/Tt, T2, THI, TH2,,TI'.I3,TH,P,H, N1,N2,M3,TOL,BET,SIG,

: t $ XM.,OAP1,0AP2,XK

P.,OHMON/FAOI'(1D/XX_2! jyY(IOm2)

OOMMON/$F/AR( 1O)wEPP( 1O), F_10,1O), ASF( 1O,10)

_" OOM_N/P_ESS/Pf<ES

i; , H2-_H/2.0

:. P2-P/2,0

:, CONK"I.OEB

: T3"(TI+T2)/2,0

L_ VOL-TH1+11.12+(2. O_+TH)*I'H3/P

C SET(:X)ORI_INATEOFS INTERIORTO COMPUTEVIEWFACTORS

i DO 100 1"1,4

_f XT'O,O

:_.. YT=O.O

DO200 J"1,2

) ,,

iI:_._ IF((II..sEQQ,11..,AND AND.,J.J.EE, QQ. .2)XT 1YT"PTH,

i IF( I. EQ.2.AND.J. EQ.2)XT'P

,i IF(I E_h.3.AND,J.EQ,1)XTIP

!_i IF1F(

(

I

I.:EEQQ,3,4,.AND, AND.J. J,EEOQ.,2)YT*TH 2) YT"TH

_ YYII,JI=YI"

; 200 CONTINUE

1O0 CONTINUE

C COMPUTEINTERIORVIEWFACTORS

CALLVFAO(4) :.

DO1000 I-1,100

130,,_

CALL PROP(T1,PRES,M1,1_.10,CP1 1 ,XKt ,EPP(1) )

CALLPROP(T2,PRESM2, ,RHO2,CP2,XK2,EPP(2)

CALLPROP(I'3,PRESM, .3,1_'IO3,CP3,XK:_,EPP(3) ) "

EPP(4)"EPP(3)

IF(I,NE.J)GO TO 1001

C GETRADIATIONINTERCHANGEFACTORS

CALL SRIPF(4)

1001 CONTINUE

C COMPUTECONDUCTIONPATHVALUE

ClA,*XK1*THJ/P2

ClB_,CONK*TH3/2.0

ClC,,XK3*TH3/(2.0_2)

Cl-C1A_CJB_IC/(CIA_IBeC1A_IC+O1B*C1C)

t DI S-P2-(H+TH3)/2.0

C3A-XKI*TH1/DI $

C3E_,,CONK* (H+TH3/2.0) "

C3C"XK3*TH_I(2. Ottt2 ) :,

' C3-C3A_3B_3C/(O:SA*C3B+C3A*C3C+C3B*O3C) ""

02(>'C30

C2BJC3B

C2AmClAQXK2/XK1 -_ C2.-C2A_C2B_2C/(C2A*C2B+C2A_2C+C2B*C2C)

C4A=C1A*XK2/XK1

A,.45 ,

k

I"
@ @

C.,41PClB OF POOR QUALITY

C4(>,CLC

O =fVl_TER_I ATION PATH VE UI_S

el =ASF( 1,4 )IS IG_'(T|¢t2+13 w*2)_(Tl +T'_)

R2=ASF( 1,3 )*$ IG_(T1_,2+'1_t a2) t(T1 +T3)

R3•ASP(4,2) WSIG¢(T_"2+T2 _'_2)* (T._+T2)

R4=ASP(_,2) *$ IG*('13' 12+T2"2 )'_¢T:+T2 5 )

R_"ASF(1,2) *$ IO*(T14v*2+T2**2) t (T1+T2)

O FI ND NEWSTANDOFF' TF.MPERATURE J'

"13_ (T1*(R1+R2+CI+C_)+T2_'(C2+R3+O4+R4)/)

$ (R1+R2+R.3+R4+CI+C2+C3+CA)

TS=( t .O-BET)*T3+BET'eTN'J

TEST=/_$B{T3-'r'._0)/T5

IF(TEST.LT.TOL)GOTO 2000

130,,T:S

1000 CONTINUE

2000 CONTINUE

C FIND MASSO, APACITORS, ANDEQUIVALENTCONDUCTIVITY

XM,,TH1'_RHOt+TH2*RHO2+RH0._• (2.0 q'l+TH)*THZ,/P

CAP1,,XM/2.0*CP1

CAP2=XM/2.0*CP2

T12=_S (T1-'1"2)

TI3,._S(T1-T3)

_' (T12'_R._+T13"(C2+C4+P,.+R4 3 ) )/P

XK=Q/T12

RETURN

ENb

A-46
.:, OF POOR QUALII'y

SUBROUINET STRUCT¢M,N)

0 SUBROUTINETHATHANDL£_STRUCTURFILE E

C EITHERADI_INGN_ STRUCTUREORS COPYINGOk.DSTRUCTURE

PARAMETER,_Nr, B1,20,NMB2"6,NI_3-3_NMB4,,6jNMB6-10I

; COMMON/1ITN/TST.ART_I"STOPwTI.MWI'OT, IM,NBp,NEXT)METRIC_ .

$ ME1'RIK,METRIX_NSTi_,IPFLAI_TINI (NMB.1j)SINKT(NIMBI)_XFiJ(NMB1)w

_: $ MBP(NMB1),IIN_I IN2

'. O01VHONI.ITLE/CHAR2CHA , _Ii _'NAMtjFNA_

;: '* 00MMONLDt /LS(NMB1dNMB , 2o)XP(NMBt, NIvB_2NMB4) oMAT_(NMB1, NMB2N6MB).3

:;_ $ NS(NMB1)

: *, CHARAOTER_IOCHAR2(NMB6)

CHARAOTER_I)CHAR1(NMB6)

OHARACTER_2FNAM1 0 pFNAIC5

:'.. CHARACTER*SOLABEL1,L_EL2

.,.=_ I FLAG"9999

!: OPEN(UNIT"t O_NAIV_["FtV4N .o3TYPE"tOLDl, RECORDIZSE"132)

:._ , IF(M,EQ.Z)GO TO 500

_ 0 LOOKUPOLDSTRUCTURFROM E STRUCTUREFILE

!1 10 WRITE(I IN2,20)MBP(N)

_. 20 FORMAT(Ill**WHATIS THE STRUCTURENUMBERFORBODYPT. t,15ot t O)

_ " -C LOCATE REASTRUC D(IIN, _T,URE ERR.IO BY STR_END-12 UCTURE 34)NUMBER ND

35 READ( 10,40, END"gO*0)NA

i- 40 FORMAT(15) IF(NA.EO.ND)GOTO 150

IF(NA.EQ. IFLAO)C-,OTO 9000

GOTO :_S

: 900i FORMAT(1H_UN_LE TO FIND STRUCTURNUMBER E _1_)

C REACHEDENDOF FILE _ITHOUTLOCATINGSTRUCTURENUMBER

9000 WRITE(IIN2,gO01)ND

"_ REWIND(UNIT.1O, •

C,OTO 10

• 1_0 CONTINUE

BACKSPACE(UNIT-IO)

; C OBTAINSTRUCTUREDATAFORDESIREDSTRUCTURNUE MBER

READ(10,5_)NA,NS(N), N.,'1N4,

;i 5_ FORMAT(I_,_X,_ (15,5X))

'_ READ(10,60)LABEL1, LABEL2

i_, 60 FORMA(T_X_MO, _/_,SX_ABO) ,

i!, : WRITE(IIN2,?O)NA,LABEL1,L_EL2

_ 70 FORMAT(/,fOX,_STRUCTURNUMBER E * t_,15,/,IX, A_O_/_IX, ASO)

_i" _ DO200 I"1 ,NS(N) ! READ(10_,21O,END"1000) LS(N, I ) _(MATS(N, I, J) _J,"l eN_),

" $ (XP(N, I_J),J'H_N4)

210 FORMATlOX, ( I_o_ 15_6E1_.'/)

200 CONTINUE

i 00 1'0 1000 C

,_ C ADDNEWSTRUCTURETO STRUCTUREFILE'

500 COI_TINUE

il _10 WRITE(IIN2_20)MBP(N) 520 FORMAI'(1H_tWHATIS THE STRUCTURENUMBERFORBODYPT. telS)

_._ _ READ(IIN_,_ERR-51O_END-t2.34)ND

',: !: C SEARCHTHROUGHSTRUCTUREFILE

• _* i* _1 DO _O IK"I_IOO0

!'_ A-47

I
A

-4B I_

il

.....-_= ....= .......--__: ..... ==-.,.__:_: ....=.
ORIGINAL P/_,_;.E_l'

OF POOR QUALITY

SUBROUTINSEUBPR(X,N_Y)

C SUBROUTINTEO.R£1'URNTEMPERATUROFE SUBLIMATIONANDHEATOF

C $UBLIMATION_YjGIVENPRES_UREjX,

C

C N =--I RETURNTEMPERATURE

O N • 2 RETURNPRESSURE

C X = PRESSURE

C

PARAMETE(NR _0=41)

e, COMMON/OSUB/CC$ (2, NVB9]

dilC_ (N, 1)

J1,Ji2

XLSTl¢OS(Nj 2)

XHSTJ.CC(NSpJl )

IF(X.EQ.XLST)eO TO 700

IF(X,LT, XLST)GOTO 100

IF(X,GT,XHST)GOTO 200

JT=4

500 CONTINUE

_ C SEARCHINDEPENDENTVARIABLE

::.' IF(0C$(N,JT)"X ):_00,600,400

'" ._OO CONTINUE

'_: C GOBACKANDCHEOKANOTHER

•" JT"JT+_

:' (30 TO _,O0

400 CONTINUE

_.:. C X LIES BETWEENCCS(N,NJ) ANDCC_;(N_N.3)

"_ N1"J1'-2

N2-'N1+1

N_-JT

;-'.: N4"N_+|

;:'_ GOTO900

'_',' 600 CONTINUE

C X EQUALTO A INDEPENDENTVARIABLE

NT=JT+I

YmCCS(N, NT)

GOTO 1000

?00 CONTINUE

C X EQUALTO LOWESTINDEPENDENTVARIABLE

Y=CCS(N_3)

GOTO1000

100 CeNTINUE ',

C X LE$_ THANLOWESTINDEPENDENVARI T ABLE_EXT , RAPOLATE

N1"2 i N2,:_

• 10"4 i N4=5

i 00 TO900 it

• , 200 CONTINUE

._ p_ C X GREATERTHANHIGHESTIN_)EPENDENVAT RIABLE4EX, TRAPOLATE i

N1"2tiJ-2

" N2=N1+1 i I

,.: N3"2_J

J N4-N3+l !

t

900 CONTINUE

/i_. ¢
C FIND5LOPEANDINTERPOLATE

$L=(C.,C$(N,N4]-C(_(NwN2]]/(CCS(NpN_)-C_S(N_NI)]

Y,,C_ (N_N2]+SLe(X-CC$(N,NI] )

1000(_ONTI NUE

RETURN.

END ,

OF PoOR qClALIT_

•-.-_,

I

4_

-->

I

J,

A-50 i

!

t
l_i_::;h,.mf-,, _'_*:,_,,.-I

OF POOR QUALilY

SUBROUTINE 11'11NS

C SUBROUTINETO I_ETCAPIOITANOEwMASStANI:) (X)NOUCTOROF INFINITELY

(_ CONI:)UOTINORa THERMALLYTHIN.PLATE

(X)MMON/OAW1_TT2,TH1,TH2_1_13e11'1P, _H_M1wick,M31TOLBET m ,$IO,XMj

$ CAP1wCAP'2_XK

COM_N/PRES$/PRES "

Tm(TI+T2)/2,0

CALL_OP(T, PRES,M1jI_O,GP,XKpEP)

:_ CAPi*RO_CPITH/2oO

OAP2aOAP1

X_ROeTH

XK"I ,OE10

RETURN

END

I

i

1. i

I

t

1

!

!

b

A-S1 ]

q

L

l
ORIGINAL,PAGE 18;

OFpoor QUALITY

SUBROUTINETMStI_P(OT$MI)j

C SUBROUTINETO (:_MPUT£8T/_LE TIME STEP

PARN4ET_R(NMB!,20_N_2-_N_3=3_N_4,6wN_,40)

COMMONI/MT E/NNDS(:X} _ NoVCRAD+ST/_i_ISBPGN_j DS

¢OMMON/ARA(NIvB51 /1' ,TO(N_J) j C(NHB5)_OD(NMB5);ICD(NMB5)pL(N_,2

COMMON/LDS/(NMB1 L eNMB2),XP(N_I, N_2, N_4 ),MATS(N_I ,N_2e N_5 ),

$ N$(NMBI)

DTSM=I.OE30

C GENERAlHE. ATBALANCENODE ..

DO379 J"leNND$

IF(J.NE,1)GO TO 380

C SURFACENODE

C1"CONV+CRAD

C2=CD( 1)

GO TO 381

380 DONTINUE :

IF(J.NE°NNDS)GOTO 370 .

C LAST NODE

C1=OD(NODS)

C2"0.0

GOTO 381

3"/0 CONTINUE

C GENERALNODE

JMI=J-1

CI=CD(JM1) i

C2"OD(J)

381 CONTINUE

C IF ADJACENTCONDUCTOR/IS_E THIN SKINwSKIP

IF(C1.GT.I.0Eg) GOTO 37g

IF(O2.BT.l.0Eg) GOTO 379 ";

"_ STEST-C(J )/ ((C1+C2)*ST/_ )

IF(STEST.LT.DTSM)DTSHS=TEST

379 CONTINUE

C THIN SKIN ALGORITHM

IF(ISBFG.EQ.O)GOTO 382

DO387 KAP=I,NCDS .:

JJ" I CD(KAP) '!

JN=LS(I_jj]

IF[JN.NE.6)GO TO 387 ,:

NI=L(KAP,1)

N2"L(KAP,2)

KP1=KAP+1

KM1=KAP"I

IF(KAP°EQ,1)GOTO 388

IF(KAP.EQ.NCDS)GOTO 389

C GENERALTHIN SKIN NODE

STEST,,(C(N1)+C(N2))/( (CD(KM1)+CD(KP1))*STAB) 't .,

GOTO 390 '

368 CONTINUE ;"

C SURFACENODE ',

STEST=(C(N1)+C(N2) )/( (CONV+CRAD+C. (KP1) ,D )*ST/_) IL

O0 TO 390 ,

389 CONTINUE • ',

C ADIABATICBACKSIDE _."

STEST=(C(N1)+C(N2))/(CD(KM1 )_ST/_) _

A sz
-1gOOONTINUE

IF(_TESTL,T,DT,_M)DT$__TEST 387 CONTINUE il

i ,182 CONTINUE

RETURN

END "

l

I

' t

i'

t

t

"_ A-S3 !

i
i

ORIGINAL P&G_, l_i

S_ROUTINE:VFAC(NN) OF POOR QUALITY

¢

C THEORYOF OROSSEDSTRING_(PLANAR2-0)

¢

COMMON/FACT/(X10X ,2} ,YY(10,2)

COMMON/8F/AR(i0) wEPP(10)pF(10i 1O)eABF(10,1O)

N.NN

• DO 100 I"IpN

SUMF=O,O

C FIND AREAOF SURFACEI

CALL DIST(I,1,1,2,AR(I ))

:°' DO200 J-lwN

': C FIND LENGTHSOF CROSSEDANDUNCROSSEDSTRINGS

CALLDIST(I_ljJelID11)

CALLDIST(i p1pJp2,D12)

: CALLDIST(Iw2_J,l_021)

CALLDIST(II2_Jp2_D22)

•; C FIND WHICHARECROSSED

$1-D11+D22 1

-t S2,,D12+D21

_' A1=Sl

i i A2,,S2

IF(S1.GT.$2)CO TO 201

AI=S2

AZ=S1

201 CONTINUE

F(I,J)=O.O

_i IF(I.EO.J)CO TO 200 • F(I_ J)=(A1-A2)/(2.0*AR( I ) )

C SUMCF VIEW FACTORSSHOULDEQUALONE_FORENCLO_;URE

li SUMF=SUMF+F(I _J)

200 CONTINUE

1DO CONTINUE

_I RETURN

. END i

,i

i._ _

A-54 !

.!

i

= =-- ...... = _: