ML20063E906
| ML20063E906 | |
| Person / Time | |
|---|---|
| Site: | Duane Arnold  |
| Issue date: | 12/30/1993 |
| From: | Brideau J, Rao D, Zigler G SCIENCE & ENGINEERING ASSOCIATES, INC. |
| To: | NRC |
| Shared Package | |
| ML20063E887 | List: |
| References | |
| CON-NRC-04-91-071, CON-NRC-4-91-71 93-554-06-A:1, 93-554-06-A:1-V02-DR, 93-554-6-A:1, 93-554-6-A:1-V2-DR, NUDOCS 9402140026 | |
| Download: ML20063E906 (438) | |
Text
{{#Wiki_filter:~ SEA No. 93-554-06-A:1 ) 5 Parametric Study of the ; Potential for BWR ECCS ; Blockage Due to LOCA ; Generated Debris Volume 2, Part 1 Draft Report l Prepared by: Science and Engineering Associates, Inc. T Prepared for: U.S. Nuclear Regulatory Commission ' s saIe"s?Inc. l NR p ADO 31 PDR 1 1
SEA No. 93-554-06-A:1 , Parametric Study of the ; Potential for BWR ECCS Blockage Due to LOCA l Generated Debris 1 Volume 2, Part 1 l l Draft Report Date: December 30,1993 j Prepared by: G. Zigler, J. Brideau, D.V. Rao, N. Ruiz, C. Shaffer, R. Walsh
't Science and Engineering Associates, Inc.
SEA Plaza j 6100 Uptown Blvd. NE , Albuquerque, NM 87110 l Prepared for: U.S. Nuclear Regulatory Commission Office of Nuclear Regulatory Research Washington, DC 20555 [ 1 NRC Contract No. NRC-04-91-071 l 1 l
-- - _.______.____.2.. .
P Appendix A , BWR Coolant Pipe Weld Break Frequencies for Estimating The Potential for LOCA-Generated Debris Blockage (Revision 2) c Y v i T 1 E 0
~,
SEA No. 93-5%A:2 BWR Coolant Pipe Weld Break Frequencies for Estimating The Potential for LOCA-Generated Debris Blockage (Revision 2) Draft Report Dated: December 30,1993 Prepared by: W. Thomas, B. Walsh, and G. Zigler Science and Engineering Associates,Inc. SEA Plaza 6100 Uptown Blvd. NE Albuquerque, NM 87110 s Prepared for U.S. Nuclear Regulatory Commission Office of Nuclear Regulatory Research Washington, DC 20555
t E Table of Contents Page Section 1 1.0 ' Introduction 1 1.1 Background ' 2 1.2 Objective of Study Review of General Approaches to Quantification of Pipe / Weld Breaks 3 2.0 3
-2.1 Operational Data ,
3 2.2 Analytical Methods
- 4. ;
2.3 Expert Judgment 4 2.4 Combined Approach 5 . 3.0 BWR Weld Break Frequency Estimates Approach Used to Estimate Weld Break Frequencies
'5 3.1 Limitations of the LLNL Analysis 14 3.2 Recommended Weld Break Frequency Data 15- :
3.3 17 3.4 Comparisons of Recommended Data With Other Data Sources 19 4.0 Summary and Recommendations , 20 REFERENCES i List of Figures Weld Locations in a Recirculation Loop 7. j 3-1 8 1 3-2 Weld Locations in Feedwater Paths 3-3 Weld Locations in a Main Steam Path 9 f 10 3-4 Cummulative System Probabililties of DEGB in One Recirculation Loop Relative Contribution of Various Welds to DEGB in Recirculation Loop ' 13 . - 3-S List of Tables 11_
'3-1. Frequencies for Directly-Caused DEGBs, Exclusive of IGSCC Effects 11-Frequencies for IGSCC-Caused DEGBs to Recirculation Piping 3-2 1 12 .;
3-3 Frequencies for Indirectly-Caused DEGBs to Reactor Coolant Piping f 14 ! 3-4 Frequencies for IGSCC-Caused DEGBs to Recirculation Welds in Susceptible Material (304SS) 17 i 3-S . Recommended DEGB Frequency Estimates 3-6 Comparison of Recommended Mark 1 Large LOCA Data with Industry Risk Assessment Data'18 i
- _m - - - ._. _ . _ . . _ _ . _ _. m .
l I P 11.0 Introduction This report provides break frequency estimates of pipe welds in the reactor coolant piping of a l P representative BWR 4/ Mark I plant. The break frequencies were generated for the purpose of estimating ;
'l Emergency Core Cooling System (ECCS) unavailability caused by blockage of BWR suppression pool--
suction strainers following a Loss of Coolant Accident (LOCA). ; I i 1.1 Background ; i The following subsections briefly discuss background information pertinent to this study. Subsection 1.1.1 provides an overview of the debris blockage issue, while subsection 1.1.2 discusses the . issue of intergranular stress corrosion cracking (IGSCC) as it relates to susceptible piping at older BWR plants. j 1.1.1 Overview of Debris Blockage issue 1 i As described in NUREG-0869, Rev.1 (Ref.1), USI A-43 has addressed concerns about the j availability of adequate recirculation cooling water in a PWR following a LOCA. One concern was the effects of LOCA-generated insulation debris that is transported to the sump debris screen and blocks the .j screen, reducing net positive suction head (NPSH) margin below that required for the Emergency Core - { Cooling System (ECCS) pumps to maintain long-term recirculation cooling. j For the resolution of USl A-43, the NRC Staff evaluated the loss of recirculation capability due-to debris generation, focusing primarily on PWRs. The blockage probabilities for PWRs were calculated [ on the basis of a detailed analysis in NUREG/CR-3394 (Ref. 2). The methodology described in lj NUREG/CR-3394 (Ref. 2) is also generally applicable to BWRs. The recent Barseback and Perry Nuclear l u Plant debris blockage of ECCS intake strainers extended the concern about debris blockage to BWRs as ~l well. The BWR Residual Heat Removal (RHR) system provides the Low Pressure Coolant Injection (LPCI) , 3 function of the ECCS. The suction strainers in the suppression pool of a BWR RHR system are analogous .j. to the PWR sump debris screen, and both BWRs and PWRs must have adequate recirculation cooling . j capacity to prevent core damage. j! i 1.1.2 Intergranular Stress Corrosion Cracking Concerns at BWR Plants As noted in NUREG/CR-4792 (Rel 3), older BWR plants, particularly those with a Mark 'I { containment design, have recirculation pipin@t has been found to be susceptible to intergranular stress ; corrosion cracking (IGSCC). The susceptible (sensitiz d) Type 304 stainless steel piping used in Mark 1 ~ BWRs can experience IGSCC as tho result of signifi: ant tensile st-ess caused by the. normal welding - practice and a corrosive enviromrent. If susceptible piting has nd ocen replaced with resistant materials, 1 Stress Improvement (SI) can b<, accomplished on weldments already instaUed by the Induction Heating j l 1 ! i I l J
i I Stress Improvement process, or by the Mechanical Stress Improvement Process (MSIP). For piping with :
. more than 2 years of operation, SI is considered to be less effective, because cracking may already be
'l ,
present 'If the oxygen levels in the primary coolant are reduced by implementing' Hydrogen Water Chemistry (HWC), stress corrosion cracking of even sensitized material will be reduced. Another potential ] mitigation is an augmented inspection schedule. j NUREG4313, Rev. 2 (Ref,4) lists the following austenitic materials considered to be adequately .i resistant to sensitization by welding:
- 1. Low carbon wrought austenitic steel. These include 304L, 304NG,16L, 316NG, 347NG, and [;
similar types. l
't
- 2. Low carbon weld metc.1 of type 30SL and similar grades with a minunum of 7.5% ferrite as deposited. 'Ihis may also be used as a cladding on the inside of the pipe. [
1
- 3. Cast austenitic stainless steel with less than 0.035% carbon and a minimum of 7.5% ferrite.
- 4. Inconel 82 nickel base weld metal.
I 1.2 Objectives of Study The objective of the work described in this paper '.s to estimate the frequency of BWR pipe weld - f breaks that have the potential to lead to strais.er blockage accident scenarios. The work was limited to j the consideration of piping features in a reference BWR 4/ Mark I plant. It was' assumed that this reference plant would contain susceptible type 304 stainless steel piping.
}
4 a i
.2 i
,__ . l
i 1 2.0 Review of General Approaches to Quantification of Weld Breaks A number of various types of reactor equipment items are normally considered in a reactor j I probabilistic safety assessment, for example pumps, valves, motors, diesels, switchgear, instrumentation, and piping. Of the reactor equipment items considered in these types of analyses, piping and associated welds are generally among the most difficult to treat in regard to failure quantification. This situation j exists because of the scarcity of incidents involving actual pipe failures and the difficulties associated with developing detailed analytical predictive models. The following subsections briefly discuss general j methods that could be used to address pipe / weld break frequencies, and their respective advantages and ; t disadvantages. 1 2.1 Operational Data As was noted above, there is a scarcity of actual pipe failure events that can be applied to the { quantification of reactor pipe breaks. For example, there have been no BWR recirculation system pipe breaks that have occurred to date. Actual pipe breaks of significant size have been limited to non-LOCA sensitive systems. l It is important to recognize that the limited available data are not sufficiently detailed to provide insight into specific expected break locations and time-dependent variability in equipment failure frequency. On the other hand, limited data can in some cases be used as general benchmarks of
" reasonableness".
Bayesian statistical techniques, such as those discussed in NUREG/CR-4407 (Ref. 5), have been used to address the issue of very limited operational experience. For a situation involving no failures, , these techniques can be used estimate a failure rate by dividing an assigned numerator (" assumed number of failures") by the population in which no breaks have actually occurred. This numerator is typically in the range of approximately 0.2 to 1. These techniques are not ideal, in that they may not be able to j adequately account for phenomena that are strongly dependent on aging (such as corrosion effects), t 2.2 Analytical Methods Probabilistic structural methods can be used to estimate pipe break frequencies. These types of analytical methods can address possible material flaws, material properties, and loadings. An example of this type of analysis is the Lawrence Livermore National Laboratory (LLNL) analysis presented in l NUREG/CR-4792 (Ref. 3). in using an analytical approach, it is imperative that the dominant failure causes are adequately f addressed. Because of the complexities and assumptions used in the required models, the analytical , l approach can be expected to have rather large uncertainties. On the other hand, insights obtained from these calculations can be used to predict specific phenomena of interest, for example pipe locations having 3 t k
--_. _. ._. _ _ . =_ _ . -- ..
a I the highest probability of break and the progression of aging-related phenomena. In addition, analytical 'l methods can be effective in evaluating the relative behavior of different types of materials. 2.3 Expert Judgment j Systematic procedures have been developed as described in NUREG-1150, Vol.1 (Ref. 6) and NUREG/CR-4550, Vol. 2 (Ref. 7) to conduct expert elicitations that can be used to predict equipment- <1 failure rates. In general, the use of expert judgment is recommended only in situations where a) an issue j has a significant impact on risk and/or uncertainty, and b) other sources or means of generating data are l t not available. 2.4 Combined Approach Under some circumstances, it may to useful to combine operational and analytically-derived data , j to estimate pipe failure rates. In a combined approach, it may be possible to account for detailed phenomena in a determmistic model, while at the same time using operational data to judge the f reasonableness of the predicted failure rates. [ 4 t i i
+
i
)
e i p I i I 4 l 1
i i 3.0 BWR Weld Break Frequency Estimates In making a decision on an approach to quantify BWR weld break frequencies for later use in '!
~
estimating ECCS unavailability due to debris blockage, particular attention was given to recently published cautionary information in CR'ID-Vol. 20-2 (Ref. 8) that contains ASME-sponsored work related ( to risk-based inspection guidelines for light water reactor components. In particular, p.15 of Ref. 8 notes f that conservative design practices have made it very unlikely that pipe failures would occur for a number f of anticipated modes of failure, including excessive elastic or plastic deformation, brittle fracture, stress j rupture / creep deformation (inelastic), and plastic instability. This document goes on to state that "it is j generally believed within the nuclear industry that other causes not addressed in design, by ASME BPVC5 j calculations or otherwise, are most likely to cause structural failures. Two common examples are j i intergranular stress corrosion cracking (IGSCC) of stainless steel piping and erosion-corrosion wall thinning of carbon steel piping." 3.1 Approach Used to Estimate Weld Break Frequencies q Given the ASME cautionary note above about potentialIGSCC degradation and the relative lack of suitable historical data for pipe failures, an analytical approach was selected as the foundation for generating pipe weld break frequency estimates. ; The analytical model chosen for this study was developed by the Lawrence Livermore National . Liboratory (LLNL) and is described in detail in NUREG/CR-4792 (Ref. 3). The LLNL model was chosen . j because it is comprehensive in nature. As will be discussed in more detail below, the LLNL model [
. addressed both indirect and direct causes of weld breaks, including IGSCC. While the LLNL analysis was generally conservative, areas of conservatism were identified so that future refinements to the break ,
frequency data can be made. 3.L1 Brief Description of LLNL Analysis Method The LLNL analysis combined probabilistic and deterministic techniques to estimate the chances that weld breaks will occur in reactor coolant piping at a BWR 4/ Mark I plant. The following categories of weld breaks were considered by LLNL: a) Breaks due to direct causes, specifically: i) Crack growth at welded joints related to the combined effects of thermal, pressure, seismic, and other loads, and e i
' Boiler and Pressure Vessel Code S
i
<j
- 11) Crack growth a ' welded joints related to ICSCC.'
l b) Breaks due to Mdirect c.auses, specifically the seismically-induced failure of equipment, including piping and comp onent supports, that could lead to the break of a reactor coolant - pipe. l The LLNL analysis considered three major piping systems: the recirculation, main steam and ]
' feedwater systems. However, the evaluation of IGSCC effects was limited to the recirculation system. l Also, note that the main objective of the IGSCC analysis was to compare relative behavior of different l types of recirculation piping materials. Typical layouts of a BWR 4/ Mark 1 plant recirculation, main' steam, and feedwater systems are shown in Figures 3-1,3-2, and 3-3.
The LLNL analysis provides results both in terms of " leaks" and Double Ended Guillotine Breaks .; (DEGBs). As will be explained later in Section 3.2, it was assumed that of these two break categories, only the DEGBs would be of concern for later use in the debris blockage analysis. Table 3-1 summarizes probability data extracted from Tables 3.2 and 3.6 in the LLNL analysis for DEGBs related to direct causes, l exclusive of IGSCC effects. Note that the LLNL results have been converted to frequencies, assuming a .; 40 yr plant lifetime. \ t To address potential IGSCC effects, it is useful to consider the data contained in Figure 3-4. This figure presents the cumulative system probability that a Mark 1 BWR recirculation loop made from 304SS f and a (fictitious) 316NG replacement loop with the same configuration will experience a DEGB given - 1 IGSCC cffects. This figure is reproduced from Figure 4.9(a) in the LLNL analysis. Note that LLNL has not provided a corresponding uncertainty analysis for these results. Over a 40 year plant lifetime, these probability data predict that a recirculation loop made from 304SS will experience a DEGB cvent with a .> frequency of approximately SE-04/yr. In contrast, the fictitious 316NG replacement loop was predicted l to fail with a frequency of approximately 4E-05/yr. These data indicate that the susceptible (304SS) material is over 10 times more likely to experience a DEGB over a 40 yr plant life than the resistant (316NG) material. Table 3-2 expresses the data in tenns of total DEGB frequency of the recirculation - ;
; system based on a total of two recirculation loops.-
l i i. t f 6 i
.l n .--.--,,--w n - - . ,
1
-F2A RGT2A 4tRF#2A RE-F2A 3 G43 43 RE43 J4A RG44A 544A TEJ4A 7 RRH44 J4 ftRF44 fE44 RCA44 g b
RRH-J5-*- RRG45-*-- PRF45-+- RRE45-*- RCA JS-* RREJG RCA458 RRH46 RRGJS RRF4G RCA-JS . RRH-RN_3 RRGJ7%_3 RMA46 RRF-#g_ 3 PRE 47s_. RCA45A RMA42-*, 1 RMA44-*, 1
% RMA48-+, , RMA-J10 -*. -
Y1A45-* ( RCA443-+' g NRMA J11 (NRMA417 RCA J8 -- RMA-J1 g g j g U
" I I RCA441- RHC41 RCA4n-+c ,.-RCAa40 RCA4%-+C > RCA-D7 RCAa25 wwmmmmw amm m mmman mawamm ammmmmmammammmawam
+ J2 3*RCAJ10 Of i [L_ -
M mm. ==s / R J20 gw,
\ (v w RCA-J j y ,,
an> ( RCA413' }( RCA-m
- RCA415 (g(RCA419 F^5 '7 - - - - - -
I Figure 31. Weld Locations in a Recirculation Loop
r--FWS46
, / r FWB45
/ / pFW943
,-rWBei FWS49 Nouw N43 FWB410 FWA42 "
FWM3 w wN4A FWM57]
~
FW M6' FWD 411'# FWA47
?
FWB412 rysJt3 FWMB ywg414 FW M9 rySJ15 FWA410' FWM11 FWM14 FWA412 FWB418 rWM15 FWAJ27 twM16 yFWB419 rWS425s FWB424% ~ FWA44'8 FWA430 I - v.144
- ntPlawGrsWg f* W ,,
twM33 - FWA M 1 Ficure 3 2 Weld Locations in Feedwater Paths l l S ; i 1 I I i
MSA43 MSA44 MsA42 N3AD.Qg T j mAas cnce A usa 4s f"S447
.-, 7 the MSA422 e 44 USA 417 ~
g M3A. MSA4fs ~ $
) f y '$ / usa.;g
[l usa 620 \ ~ y usa 413
%A438 .q
" - ~ ~
"SA485
~ ~: ~ -
~&
cv d412 us4c- [ mnu% f us4.J36 MSA42g ( y yg,_m WM MSA-K40 WA430( 3 y3A_m
' 432 1.
Ms 433 MSA434
....m__
Figure 3 3. Weld Locations In a Main Steam Path _ _ .__ . _ . . _ . . . - _ - - . .. _ _ _ . _ . - - . . _ - __. . _ . - . ~ ., . . . _ _ . _ - .
l l l ! 100 i g i
.3 5
10 e un Q O-Corresponds to DEGB
> 304SS Frequency of- SE-04/yr.
5
. - perloop over 40 yr, plantlife -
- s 10-2 -
.E e
n. 316NG O-Corresponds to DEGB E $ c b - Frequency of-4E-05/yr.
-g 10 3 perloop over 40 yr,plantlife E
0 I I ! I 10-4 10 20 30 40 O Time (years) Reproduced from Fig. 4.9(a), Vol.1 of NUREGICR-4792 Figure 3-4. Cumulative System Probabilities of DEGB in One Recirculation Loop
1 I Tab!c 3-1 ! Frequencies for Directly-Caused DEGBs, Exclusive of IGSCC Effects' DEGB Frequency (1/yr.) ) Uncertainty Distribution Percentiles _ 10% 50*4 90% LLNL Best Estimate i liecirculation Loop' - - - 3.8E-11 L Main Steam Line' SE-15 3E-13 1.4E-10 2.5E-13 I ' Feedwater Line' 1.1E-14 1.5E-12 1.2E-09 1E-12 a l i Notes I
- 1. Data extracted from Tables 3.2 and 3.6 of NUREG/CR-4792, Vol.1 (Ref. 3).
2 Uncertainty distribution data not given for existing recirculation piping.
- 3. ICSCC routinely disregarded in evaluation of main steam and feedwater piping.- :
l Table 3-2 Frequencies for IGSCC-Caused DEGBs to Recirculation Piping' Material DEGB Frequency (1/yr.) Point Estimate Susceptible (304SS) ~1E-032 Resistant (316NG) ~8E-05' , Notes:
- 1. Data extracted from Figure 3-4 of our report which has been reproduced from Fig. 4.9(a),
Vol.1 of NUREG/CR-4792 (Ref. 3). . l
- 2. DEGB frequency = ~5E-G1/yr. per loop over 40-year plant life. Given a total of 2 loops, net DEGB frequency = ~1E-03/yr. *
- 3. DEGB frequency = ~ 4E-05/yr. per loop over 40-year plant life. Given a total of 2 loops, net DEGB frequency = ~8E-05/yr. j l
j Data pertaining to breaks caused by indirect means are summarized in Table 3-3. Again, these l data were extracted from the LLNL analysis. l l 11
, -- + .- , . - . e --
i n Table 3-3 Frequencies for Indirectly-Caused DEGBs to Reactor Coolant Piping' DEGB Fre guency (1/yr.) Uncertainty Distribution Percentiles ; 10 % 50 % 90 % Cause
~'
Major Containment or Reactor Pressure Vessel 5.1E-10 1.9E-07 2.8E-06
~!
Support Fails Failure of " Intermediate" Pipe Supports 2 - - 5.0E-06 l Notes: '
- 1. Data extracted from NUREG/CR-4792 (Ref. 5), p. 5-14 of Vol. I and p. S-6 of Vol. 4. I
- 2. Conservatively inclu_ des snubber relief valve failures and seismic hazard curve truncation level of 5 times Safe Shutdown Earthquake (SSE).
i Based on a review of the information presented in Tables 3-1,3-2, and 3-3, it was nc.ted that the j overwhelming contribution to the overall frequency of DEGB LOCA events at the reference BWR 4/ Mark , I plant is predicted to be due to IGSCC effects on recirculation piping. Even in the case of resistant material (316NG), the IGSCC-induced DEGB frequencies are approximately an order of magnitude higher' s than the next most significant category, namely breaks caused by indirect means. The LLNL study also presented the IGSCC DEGB frequency data in terms of specific weld [ categories. As is shown in Figure 3-5, about 80% of the postulated 304SS recirculation piping DEGBs were associated with 12" riser welds, while about 20% of the 304SS DEGUs were associated with 4" bypass line l welds. 'Ihe header (22"), discharge (28"), and suction (28") welds were each judged to contribute less than~ , 10% to the recirculation loop DEGB frequency, based on the statistical accuracy of the LLNL calculations. Failure data for a proposed 316NG replacement recirculation loop having no bypass piping are also ,j displayed in Figure 3-5. Failure data extracted from Table 3-2 and Figure 3-5 were used to generate IGSCC DEGB frequencies on a per-weld basis for the categories of susceptible (304SS) recirculation loop material. As shown in Table 3-4, these calculations were made by multiplying the overall recirculation DEGB frequency l j estimate from Table 3-2 by the fractional contributions given in Figure 3-5, and subsequently dividing by the number of welds in a given category. The number of welds in a given category were obtained from the LLNL report. i 12 i
1.0 - 0.8 - ' s 304SS(old) E M 316NG (new)* o . u'
- no bypass -
O.6 - sf.{ o- vi; O C 0.4 - w. f E **
~
- m.
0.2 - 33 yg
$5 W4 0
Suction Discharge Header Riser Bypass (28") (28") (22") (12") (4") Reproduced from Fig. 4.11(b). Vol 1 of NUREGICR-4792 Figure 3-5. Relative Contribution of Various Welds to DEGB in Recirculation Loop . - _ _ _ - _ _ ,-. . _ _ _ _ . , ~ . _ . _ _ _ . _ _ .. . . _
Ii Table 3-4 ) Frequencies for IGSCC-Caused DEGBs to Recirculation Welds ;) in Susceptible Material (304SS) '. l l Weld Category Total Welds fractional Weld DEGB Frequency.. ; in Category' Contribution to Point Estimate' 2 Overall DEGB ; 4" Bypass 20 0.2 (0.2) x (IE-03/yr)/20=1E-05/yr .l 12" Riser 40 0.8 (0.8) x (IE-03/yr)/40=2E-05/yr j 22"-28" (header . 42 <0.10 <(0.10) x (IE-03/yr)/42, ~2.E-06/yr. discharge, suction) .- Notes: ! i
- 1. Total welds in both recirculation loops
- 2. Data extracted from Figure 3-2 of our report which has been reproduced from Figure 4.11(b),
~
Vol 1 of NUREG/CR-4792 (RcL 3)
- 3. (IE-03/yr) frequency used in calculations was extracted from Figure 3-1 of our report which has been reproduced from Figure 4.11(a), Vol.1 of NUREG/CR-4792 (Ref. 3) 3.2 Limitations of the LLNL Analysis There were a number of limitations associated with the LLNL analysis. Because of the overwhelming ,
contribution of ICSCC to the predicted weld break frequencies, we have focused our efforts on identifying the most significant limitations associated with the IGSCC portion of the analysis. Some of the limitations t of the LLNL IGSCC analysis that were identified in this study include:
- 1) Certain local phenomena were not considered in the LLNL analysis, for example the effect of l coolant flow velocity on possible flushing of impurities that otherwise could aggravate the susceptibility to IGSCC.
- 2) The model used " harsh" laboratory conditions to predict growth rates and times-to-initiation.
It is conservative to extrapolate the " harsh" laboratory data to the relatively benign conditions . that exist in reactor facilities.
- 3) The failure probability is very sensitive to the type of residual stress assumed in the analysis.
Consequently, plant-tcrplant experiences could vary significantly depending on residual l 14 ,
y a+. .A- -~ 1 4.- wr-- E % d .A & _ p J, y stresses that remain following pipe assembly welding and " fit up" Worst case stress . , assumptions were used in the analysis.
- 4) The analysis did not give credit for actions to mitigate the effects of IGSCC, specifically i .-
service inspections, weld overlay, or. inductive heating stress improvement (IHSI). In addition, the analysis did not address the mitigating effects of corrosion control programs.
- 5) The main objective of the analysis was to compare the behavior of diffennt types of materials -
to IGSCC. This emphasis may introduce additional uncertainties in the absolute value of the - break frequencies. t
- 6) There were discrepancies between the LLNL predictions and a field test done at a BWR site. ,
As noted in NUREG/CR-5486 (Ref. 9), these discrepancies most likely are the result of field. variations in various pertinent phenomena and analytical assumptions needed to model these - phenomena. However, it is important to note that both the LLNL analysis and field results give highest priority to riser and bypass welds. I i
- 7) "Ihe LLNL analysis assumed that IGSCC cffects could be ignored regarding pipe breaks of the main steam and feedwater piping.
q
- 8) Pipe breaks caused by water hammer or a projectile from pump failures were not considered. ;
- 9) The analysis did not consider scenarios that involved IGSCC-weakened piping coupled with - ,
other pipe challenges (i.e., water hammer, seismic events). 3.3 Recommended Weld Urcak Frequency Data , The IGSCC-induced DEGB data were used as a starting point in deriving estimates of weld break ! I frequencies for use in the debris blockage analysis. In using the LLNL predictions 'of IGSCC-induced DEGB frequency for this analysis, adjustments were made to give credit for in4ervice inspection activities.' Subsection 3.3.1 discusses the assumptions made in the use and refinement of the LLNL IGSCC data. Subsection 3.3.2 presents point estimates of the weld frequencies. ,
'I 4
i 15 1 i i
. _ _ . _ .i
l i 3.3.1 ' ; Assumptions Made in the Use and Refinement of LLNL IGSCC Data -i In applying the LLNL data to this study, the following assumptions were made: l
- 1) Of the two categories of breaks _ evaluated in_ the' LLNL analysis (leaks and DEGBs), only breaks in the DEGB category were considered. It was assumed that the predicted breaks in the " leak" category would either represent mathematically-predicted flaws that do not actually- 5
~!
pass coolant, or would only allow the passage of coolant at a rate less than needed for ECCS actuation. If either of these two conditions were to exist, sump blockage would not be of : concern. .;
-i
- 2) Susceptible material (304SS) was assumed to be the material of interest. ,
- 3) Welds associated with main steam and feedwater piping would have the same break {
frequencies as the 22"-28" recirculation welds.
=
- 4) Only one IGSCC mitigating action would be in place, namely an in-service inspection }
program. In adjusting the data for an in-service inspection program, use was ma'de _of.a - discussion of risk-based inspection activities contained in CRTD-Vol 20-2 (Ref. 8). ' In - { particular, it was noted on p. 81 of CRTD-Vol. 20-2 (Ref. 8) that "a high level of inspection can . significantly reduce the' failure probabilities of BWR piping systems (by a factor of 10 or more)." Supporting data and analyses are contained in Table 2-12 of this reference. For the ; purpose of this analysis,it was decided that the LLNL frequency estimates would be reduced ' ] by a factor of 10 to account for in-service inspection. 3.3.2 Recommended Frequency Estimates for Weld Dreaks By using the LLNL IGSCC data for the DEGB category and the assumptions discussed above in j Subsection 3.3.1, estimates for weld break frequencies were generated. The recommended frequency' !l estimates are given in Table 3-5. The data in Table 3-5 were generated by applying the in-service j inspection reduction factor of 10 discussed above to the LLNL 1GSCC DEGB data presented earlier in j Tabic 3-4. As noted in Table 3-5, the welds associated with main steam and feedwater piping were. f assumed to have the same break frequencies as the 22"-28" recirculation welds. It is important to recognize that there are large uncertainties associated with the recommended ' point-value frequency estimates. Because an uncertainty analysis has not been performed, it is not 'i possible to further interpret the statistical significance of the point value estimates given in Table 3-5. h ? n 16 i I i i i f
'1 g -qr, -gqm--n-.4
fi, 3.4 Comparisons of Recommended Data With Other Data Souices
~
A comparison of 'the recommended frequency data was made with large LOCA data given in several DWR 4/ Mark I risk assessment studies, specifically: the Duane Arnold IPE (Ref.10), the Cooper
, - Level 1 PRA. (Ref.11), the FitzPatrick IPE (Ref.12), the Browns Ferry Unit 2 IPE (Ref.13), and a Peach' Bottom PRA described in NUREG/CR-4550 (Ref.14). 'Ihis comparison is displayed in Table 3-6. The point-estimate value for the DEGB frequency,1E-04/yr, was extracted from Table 3-5, and represents a summation of our DEGB frequency estimates over all welds for the LLNL reference plant. The total number of welds in each category is based on data provided in the LLNL analysis.
Table 3 5 Recommended DEGB Frequency Estimates i Pipe Category DEGB Frequency O/yr)- Point Estimate; a) Per Weld i IE-06' j 4" Recirculation (304SS) 2E-06' ! 12" Recirculation (304SS) ; 2E-078 ~l 22 - 28" Recirculation (304SS) Main Steam: 2E-07
-l Feedwater 2 2E-07 b) All Welds ,
All Recirculation (102 weld total) IE-04f 1 Main Steam (64 welds total): 64 x 2E-07/yr = ~1E05/yr. IE-05 Feedwater (58 welds total): 58 x 2E-07/yr = -1E-05/yr. IE-05 Total ~1E-04*
'l li Notes:
J
- 1. Derived by reducing Table 3-4 data by a failure of 10 to account for in-service inspection.-
Main steam and feedwater welds assumed to have sarre failure frequency as 22-28" 2. recirculation system welds. Overall recirculation DEGB frequency estimate given earlier in Table 3-2 and reduced by a k 3. factor of 10 to account for in-service inspection
- 4. Total estimated DEGB frequency for all pipe categories for LLNL reference BWR..
I 17
.D . , , . _ - - - - . _ _ _ _ _ _ - _ _ _ . _ _ _ _ _ _ _ _ _ _ _ _ - _ _ _ -
F-- t Table 3-6 Comparison of Recommended Large LOCA Data with Other UWR 4/ Mark 1 Risk Assessment Data - l i
. Data Source LOCA Type Estimated Statistical Notes Frequency Category (1/yr)
- 1. Recommended Data DEGB (> 4") 1E-04 - Point - Based on LLNL study _ -
(LLNL Reference BWR) Estimate j
- 2. Duane Arnold IPE Large LOCA 3E-04 -t Based on Brunswick -
study j
- 3. Peach Bottom PRA Large LOCA 1E-04 Mean Based on WASH-1400 ,
(NUREG -1150) ;
- 4. Cooper IPE Large LOCA 1E-04 Mean Based on WASH-1400 j Large LOCA IE-04 Mean Based on WASH-1400
- 5. J. A. FitzPatrick IPE l
- 6. Browns Ferry Unit 2 IPE Large LOCA: Based on PLG -!
Proprietary Data Base .{
- a. Recire. suction line 9.2E-05 Mean t
- b. Recirc. disch. line 3.1E-04 Mean
- c. Core spray line 8.3E-05 Mean ,
- d. Other 1.1E-04 Mean 1
It can be seen from the data in Table 3-6 that the recommended DEGB point estimate is in' agreement with large LOCA frequency estimates used in other BWR studies. It can also be seen that l several plants have chosen to base their frequency estimates on data from WASH-1400 (Ref.15). .The Browns Ferry IPE data were primarily based on generic data that have been derived from cumulative experience at a large number of plants, with adjustments for Browns Ferry plant-specific features. The data ' l used to support the Browns Ferry IPE were given in PLG4500 (Ref.16), a proprietary data base. , It is recognized that IPE results have generally concluded that LOCA initiated-accidents are small - . contributors to core damage. Consequently, there has not been a strong motivation forlicensees to expend f large efforts to refine LOCA initiating event frequencies. l t
+
18 :: i
-l
4.0 Summary and Recommendations ! This study has used results from an analytical approach to estimate the failure frequency of DEGB weld breaks at BWR 4/ Mark I plants. The analysis focused on effects related to IGSCC, as this phenomena appeared to be the ' dominant mechanism involved in weld breaks for the susceptible material of interest ' j (304SS). An adjustment was made to the data to account for in-service inspection activities. Consideration i of other mitigating mechanisms, for example aggressive corrosion control, was not evaluated. ' It is important to recognize that an uncertainty analysis was not been performed. Consequently,.it is not' possible to interpret the statistical significance of the point-value estimates. It is also important to note that future studies may identify important weld break phenomena that have not been included in this analysis. ; It is recommended that additional study be done to refine the proposed weld break data. For example, it is recommended that additional sensitivity studies' be done to address IGSCC mitigating ; mechanisms so that areas of conservatism can be better understood. It is also recommended that an i
-2 analysis be done to addres:, the expected distribution of leak rates that are associated with predicted " leak l
events" (as opposed to DEGB events). Some fraction of the " leak" category events may pass coolant with rates large enough to be considered initiators for the-debris blockage analysis. In addition, it is . l recommended that a comprehensive uncertainty analysis be done to establish statistical parameters of . interest (i.e., mean values). Finally, note that work to address some of the above recommendations will most likely involve additional computer analyses using the LLNL methodology. [ s
?
+
t t
'[
b 19
^
i
.q REFERENCES ,
e [1] A. W. Serkiz,"USl A-43 Regulatory Analysis /' US Nuclear Regulatory Commission, NUREG-0869, j Rev.1, October 1985. ' i t [2] J. J. Wysocki, "Probabilistic Assessment of Recirculation Sump Blockage Due to Loss Of Coolant Accidents, Containment Emergency Sump Performance USI A-43," Vols. I and 2, Bums & Roe, Inc., -
. j published as Sandia National Laboratories Report No. SAND 83-7116, NUREG/CR-3394, July 1983.
'i j
[3] G. S. Holman and C. K. Chou," Probability of Failure in BWR Reactor Coolant Piping," published as Lawrence Livermore National Laboratory report UCID-20914, NUREG/CR-4792, March 1989. j . I W.S. Hazelton and W. H. Koo, " Technical Report on Material Selection and Processing Guidelines j [4] : for BWR Coolant Pressure Boundary Piping " U. S. Nuclear Regulatory Commission, NUREG-0313, 'j Rev. 2, January 1988. [5] R. E. Wright et. al, " Pipe Break Frequency Estimation for Nuclear Power Plants," EG&G Idaho, Inc, EGG-2421, NUREG/CR-4407, May 1987. i [6] U. S. Nuclear Regulatory Commission, " Severe Accident Risks: An- Assessment for Five U. S. ] Nuclear Power Plants!' NUREG-1150, Vol.1, December 1990. 1 f T. A. Wheeler, et. al, " Analysis of Core Damage Frequency from Intemal Events: Expert Judgment . :! [7] Elicitation," published as Sandia National Laboratories report, SAND 86-2084, NUREG/CR-4550,' Vol. 2, April 1989. l; 1 [8] " Risk-Based Inspection - Development of Guidelines, Volume 2, Part 1, Light Water Reactor (LWR) Nuclear Power Plant Components," The American Society of Mechanical Engineers, CRTD-Vol. 20- j 2,1992. ! j [9] G.S. Holman, " Application of Reliability Techniques to Prioritize BWR Recirculation Loop Welds for In-Service Inspection," published as Lawrence Livermore National Laboratory report UCID-. 21838, NUREG/CR-5486, December 1989. I 6 20 i l
3
- I lowa Electric Light & Power Co., "Duane Arnold Energy Center Individual Plant Examination '
- [10) ' {
(IPE)l' November 1992. . 9 Nebraska Public Power District, " Cooper Nuclear Station Probabilistic Risk Assessment Level 1," 1 [11) March 1993. [12] New York Power Authority, " James A. FitzPatrick Nuclear Power Plant Individual Plant ! Examination," August 1991. [13] Tennessee Valley Authority, " Browns Ferry Nuclear Plant Unit 2 Probabilistic Risk' Assessment Individual Plant Examination," September,1992. t [14] A. M. Kolaczkowski, et. al., " Analysis of Core Damage Frequency: Peach Bottom, Unit 2 Internal -(, Events," published as Sandia National Laboratories report SANDS 6-20S4, NUREG/CR-4550, Vol. j l 4, Rev.1, Part 1, August 1989. l [15} U.S. Nuclear Regulatory Commission," Reactor Safety Study - An Assessment of Accident Risks in U.S. commercial Nuclear Power Plants," WASH-1400 (NUREG 75/014), October 1975. . [16] Pickard, Lowe and Garrick, Inc., " Database for Probabilistic Risk Assessment of Light Water Nuclear Power Plants," Vol. 7, BWR Initiators, PLG-0500, May 1992. I i i 6 4 1
~21 4
- w. -
r - ,- - - . .
'i APPENDIX B B.1 Overview of BLOCKAGE 2.0 i B.2 BLOCKAGE 1.0 Software Requirements Specification B.3 BLOCKAGE 1.0 Qualification Test Report B.4 Modification to BLOCKAGE 1.0 Software Requirements Specification i B.5 BLOCKAGE 2.0 Verification and Validation Report B.6 BLOCKAGE 2.0 Code Listing B.7 Base Case Input / Output l 1
l l
h APPENDIX B.1
- Overview of BLOCKAGE 2.0 h
9 4 i 1 l l l i I
APPENDIX B.1: , Overview of BLOCKAGE 2.0 I B.1.1 Background The analysis assisting in the resolution of the Unresolved Safety Issue," Containment Emergency Sump Performance"(USI A-43), resulted in a calculational program to probabilistically assess recirculation , sump blockage due to LOCA-induced fibrous debris from destroyed insulation as described in NUREG/CR-3394 (Ref.1). The determination of the probability of unacceptable sump blockage was based , on the probability of occurrence of an initiating event and the probability of sump blockage occurring as j a result of that event. Probabilities were assessed for all potential breaks inside containment and for i t certain subcategories specified by break location, pipe diameter, and system type. i Initiating event frequencies were developed on the basis of pipe diameter or pipe system and weighted by either weld types or pipe segment lengths. A parametric analysis was used to determine sump screen blockage in which allowable head loss, ECCS flow rate, and available recirculation sump inlet , screen area were varied over predetermined limits corresponding to range of conditions in operating plants. Assumed zones of destruction were used to calculate the volume of debris transmitted to' the I sump. All insulation within these zones were assumed to contribute to debris formation. Three zones were considered in the parametric studies. These zones were determined by the three distances corresponding to 3,5, and 7 pipe diameters. Only insulation of the fibrous types were considered for blockage, since these types have the greatest potential for causing blockage due to their relatively low transport velocities when shredded and the appreciably high head loss developed across thick layers of these materials. An empirical correlation was used to determine increases in sump head loss attributable . k to debris collection on sump screens. i De calculational program described below was written to resolve concerns about the containment emergency sump performance in PWRs; however, the blockage of suction strainers in the suppr ession pool of a BWR represents a similar situation. B.I.2 Functional Requirements The BLOCKAGE 2.0 code was developed in two stages. The BLOCKAGE L0 code was developed first and validated by reproducing the previous results. Then BLOCKAGE LO was then modified to accommodate BWRs. The functional requirements for the BLOCKAGE 1.0 code are that it: L 1s a Level I technical application PC-based software, l 1 1
~_ . . . _ _ .. , . ,
q l t t 2.. Reproduces the functions of the calculational program documented in NUREG/CR-3394;Vol. 2 ! (Ref.1)important to the resolution of USI A-43,
- 3. Meets quality assurance in accordance with the " Software Quality Assurance Program and ,
Guidelines" NUIEG/BR-0167 (Ref. 2), as applicable, and that as a minimum, its development [ includes verification and validation, configuration management, and documentation control,
- 4. ' Is developed for intended use by those under the supervision of engineers who are experienced i with the phenomena, are knowledgeable of the methodology, and who will perform critical reviews of the calculations,
- 5. Has software documentation which includes a software requirements document, a software design document, and a qualification test report, placed under configuration control, and [
i
- 6. Has initial break probabilities developed by weld type weighting method.
i Since no qualification tests are readily available to validate BLOCKAGE 2.0, it must subjected to more stringent verification procedures such as line-by-line internal peer inspection and simple tests i compared with hand calculations. B.I.3 Description . . BLOCKAGE 2.0 is PC-based sof tware that reproduces the ftmetions of PRA and TABLE that were important to the resolution of USI A-43, while accomodating input for a reoresentative BWR. The code calculates the frequency, per reactor-yr, of a sequence involving a LOCA followed by inadequate NPSH in the recirculation cooling system due to insulation dehis generated by the LOCA. .; U.1.3.1 BLOCKAGE 2.0 General Features The user provides a list of welds whose failure can initiate a LOCA. BLOCKAGE 2.0 uses one- .i of two methods to determine a break frequency for each weld. If the user chooses the first method, the ' input for computing break frequencies is a table of weld break frequencies by weld type and diameter class. In the second method, the input for computing break frequencies is a table of plant pipe break frequency by diameter class, together with weighting factors by type of weld. If this method is chosen .. by the user, the list of welds must include all piping included in the plant break frequencies, including secondary systems. The software allocates the plant frequencies among the individual welds such that k I 1
- I
.. )
i the plant pipe break frequency is the sum of the weld break frequencies. If the plant has appropriate symmetry, the list of welds need include only the welds in one loop; each weld will represent all of the corresponding welds in other loops. .; Using the general parameter input and specific weld input data supplied by the user, BLOCKAGE . 2.0 generates six output report files: f
- Weld summary report
- Target summary report .
- Sequence frequencies reports j i
- Unavailabilities reports _
= Summary reports ;
E
- Error messages. ;
A flow chart for the BLOCKAGE 2.0 input / output is shown in Figure B.1-1. The specific formats, j parameters, and data are described in Section B.1.5. BLOCKAGE 2.0 contains a number of features not contained in the PRA and TABLE software. For example, BLOCKAGE 2.0 provides for input of a destruction fraction for each value of L/D. This : factor is applied to the fibrous insulation generated between that value of L/D and the next lower value (or zero), and represents the fraction of fibrous insulation that is pulverized into individual fibers or small - bundles. The software also provides for input of a transport fraction for each permissible weld location. f For fibrous debris generated at that location, the transport represents the fraction that reaches the , suppression pool. Finally, the parameters for the head loss formula are now variables determined by user' . ] input. , Different terminology is used in the BLOCKAGE 2.0 reports than in the USl A-43 analysis software. In the DLOCKAGE 2.0 specification, frequencies have units of inverse time, and probabilities ! are dimensionless, consistent with current nomenclature conventions. This is the opposite of the nomenclature used in NUREG/CR-3394 (Ref.1). Many of the reports generated by the USI A-43 analysis software were not used in the regulatory analysis. Although the unused reports presumably were not important to the resolution of USl A-43, their content has been reviewed to verify that they would not be relevant to the study of BWR strainer clogging. The omitted capabilities are also discussed in the BLOCKAGE 2.0 Software Requirements 1 Specification (Ref. 2). ; I BLOCKAGE 2.0 is not required to create Tables A.2-1 through A.2-6 of NUREC/CR-3394 (Ref.1),
" Event Probabilities by Pipe Dh.eter" and " Event Probabilities by Pipe System," which were not used in the regulatory analysis. This capability is unaccessary because the break frequencies are reported by diameter class and by system in the Probability Reports.
l
--1 -
g
GENERAL PARAMETERINPUT SPECIFIC WELDINPllI Flow Rates Weld Identifications Screen Areas Pipe Diameters Weld Types Allowable Head Losses Weld locations / Systems Insulation Destruction Models Target Type! Dimensions Destruction Fractions Transport Fractions , Permissible Weld Types! Locations / Diameters Diameter / Location Classes System Descriptions Break Frequency Data SEQUENCE FREQUENCIES REPORTS insulationTypes . Sequence Frequencies Summed by:
- Diameter i _ - System /DiameterClass
- Insulation Destruction Model
- Location Class
~ "" "
WELD
SUMMARY
REPORT Weld / System Identifications Pipe Diameters _ UN AVAILABILITIES REPORTS Weld Type / Locations Break / Sequence Frequencies and Screen Transport Fractions Unavailabilities Summed by: Numberof Targets
, - Diameter
* - System / Diameter Class
- Insulation Destruction Mode!
- Summaryllocation Class TARGET
SUMMARY
REPORT
- OverallPlant Target Dimensions _
Insulation Types TargetVolumes
- "~
SUMMARY
REPORIS ERROR MESSAGES Total Screen Blockage Frequencies Anyinput Errors Error Checking of Resuits
- Summed by:
- Summary / Location Class
- Overa!! Plant
=
Figure B.1-1. BLOCKAGE 2.0 inpulloutpr.t Flow Chart
LI Similarly, BLOCKAGE 2.0 is not required to create Tables B.5-4 through B.5-45 of NUREG/CR-3394 (Ref.1), " Debris Summary for Maximized Fibrous Debris" and " Debris Summary for Maximized Total Debris" which were not used in the regulatory analysis. The only output of debris volume required is included in the table of targets. This volume does not include destruction fractions, but assumes 100% destruction. Another omitted capability is the capability to perform calculations based on allocation of LOCA - frequency assuming longitudinal pipe breaks; that is, in proportion to the length of the pipe segment. The earlier programs, FRA and TABLE, prc. duce reports for both weld-basis and length-basis using the same target data. However, the length-basis results were not used in the subsequent regulatory aralysis because the weld-basis frequencies were considered to be more realistic. Furthermore, the length-basis calculations should have used target data derived for longitudinal breaks rather than circumferential breaks. Finally, BLOCKAGE 2.0 does not provide for blockage summaries that contain counts of potential break locations. Such tables appear in appendix B of NUREG/CR-3394 (Ref.1), with the counts weighted either by weld factor or by segment length. There is no accompanying text to explain these tables, and they were not used in the regulatory analysis. B.1.3.2 BLOCK. AGE 2.0 Program Structure The BLOCKAGE 2.0 software development and quality assurance followed the general guidelines in References i and 3. The BLOCKAGE 1.0 and BLOCKAGE 2.0 code development followed the software requirements specification and computer program design document as given in References 4,5, and 6. A functional flow chart for BLOCKAGE 2.0 is shown in Figure B.1-2. The three major functions required are performed within three major subroutines: SETUP, BLKAGE, and REPORT. Within SETUP, the parameter and weld input files are read and validated. Any error messages are written to BLOCKAGE. ERR. The program then calculates the target and fibrous insulation volumes and writes the : target summary report, TARGET.OUT. The welds are characterized by diameter and type for output to - the weld summary report, WELD.OUT. Finally, the subroutine calculates weld break frequencies based on the break frequency model. Subroutine BLKAGE calculates head losses and tests for blockage. The remaining reports are generated in REPORT, resulting in output files SEQFREQ.OUT, BLOCKAGE.OUT, and
SUMMARY
.OUT. In addition, any error messages are written to BLOCKAGE. ERR. The subroutine flow chart in Figure B.1-3 illustrates the relationship of the functional subroutines within the threce main subroutines. The specific egaations used in each calculation are given in Section 5 of Volume 1 of this report.
. . . e l BLOCMGE2.8 l 4
> Parametr ep>-*l Read Parameter input l _,
Frequencies by Dameser l g Calculate Volume I PaameW W Md Deducted Sum SeqJence Er Equation 5.2 - Fren;encies by System uessages yg _I I uMit , Volume Wnte Segjence , 45 Fre@encies Reports
-> MRE000T S70F' respor+ llo Surpress
) Weldir9 >-+{ Re:4 Weld hput l g _ Port ';quation 53 4 I Calcutate overas and Weld m YHe __ .mie Debris Summa.7 Class Saeen UnavadabMes by Dameter Error Layer TNekness bput BLOCKAGE ERR vessages Equation S.4 4 VaH7 I Calctfate Ovefal and vts "
3 7 g,p ,$y ,, Calculate Target STOP and Ftrous I Insulaban Volumes l WiteUnavadathes Reports M 4 l Wrde Tangt Output File H 2 NPSH margh Check for Enersin j 4 l CWgorLm Weld by Gameter and Type l f * **T8 l Write Weld Output File lMe Stmmry Reports F f E"'A Fiari Weld Frequency STOP f,lodt4 l Catcutate Weld Brest frequency l
~
l SUDROUTINE SUBROUTINE SUBRouunE l BLKAGE REPORT SETUP ... Figure B.12. BLOCKAGE 2.0 Flow Chart by Function
BLOCKAGE Main Program 1 I I DLKAGE REPORI b SETUP Categorizes BLOCKAGE results and writes reports I Opens files, reads / validates Calculates blockage head inputs,initialcalculations losses and tests for blockage - .
..e ' CALC 3
- Calculates sequence frequencies by diamder PINPUT Writes reports
_ = Reads / validates parameter .+ input CALC 4 Calculates sequence frequencies by system WINUR Writes reports Reads / validates wektinput .a - Calculates target volumes Calculatesweld break C_A_LQ5 frequencies Calculates break / sequence frequencies and screen unavailabilities by
~
diameter for both summary and location class
. Ynt tt t n weld WMes reports output reports ,
CA_LS$ Calculates break / sequence frequencies and screen unavai! abilities by g - system and diameter class for both overall and summary location class
. Vardatestargetdata
, Writes reports . - - -
ERROR Deteranesitinsulation Checks that total overall sequence frequency from CALC 3 equals that sbrws
"- of CALC 4 foreachllD model Checks that total summary location class sequence frequency from g;Ingg . CALC 5 equals that of CALC 6 for each UD model Wrnes hee #6hi Writes error messages number to targetoutput Writes waming if any totals equal zero
. .' . u gpggg
- writes headingstversion SUMM
" Writes summary reports Figure B.13. BLOCKAGE 2.0 Flow Chart by Subroutine
. _ . . _ . . . . . . . _ - - ~ . , , _ _ _ _ . . . . - - _ _ . - - - _ _ -._ _ . . _ _ _ . - _ , -.
l t U.1.4 Verification and Validation l The BLOCKAGE 2.0 code has been verified and validated by coding review, by test calculations - and by comparing its results to those of a previous calculation documented in NUREG/CR-3394. The - l code was developed in two separate steps to facilitate the code verificationf The first development step resulted in BLOCKAGE 1.0 which was coded to reproduce the results of NUREG/CR-3394 and the direct - p 1 comparison of these two results produced by different codes is a qualification test of the coding of i I BLOCKAGE 1.0. The second developmental step was to add models to BLOCKAGE 1.0 allowing the user to specify break frequencies per weld type and diameter class, to specify an insulation destruction fraction j h for each insulation destruction model, to specify a transport fraction for each permissible weld location, and to specify the constant parameters in head loss formula. The code with these modifications then became BLOCKAGE 2.0. , The verification of the BLOCKAGE code was mainly accomplished through a number of software l quality assurance activities based on guidance in References 2 and 3, and outlined in Table B.1-1. Table B.1-1 BLOCKAGE 1.0 and BLOCKAGE 2.0 Quality Assurance I Date QA Activity [
^l 19 October 1993 BLOCKAGE 1.0 Software Requirements Review :
r P Inspection of Draft BLOCKAGE 1.0 Software Design Document ; 2 November 1993 :, 15 November 1993 Inspection of Draft BLOCKAGE 1.0 Software Design Document l 17 November 1993 BLOCKAGE 1.0 Design Review t 17 November 1993 BLOCKAGE 2.0 Software Requirements Review- l 27 November 1993 Inspection of BLOCKAGE 1.0 code 27 November 1993 Inspection of BLOCKAGE 2.0 Software Design 27 November 1993 BLOCKAGE 1.0 Test Readiness Review .l t BLOCKAGE 1.0 Qualification Test } 29 November 1993 -; 10 December 1993 BLOCKAGE 2.0 Validation Test i t [ s
i e i i B.1.4.1 BLOCKAGE 1.0 Testing ; The BLOCKAGE 1.0 code was tested with a test calculation small enough that the results could ' be calculated by hand but large enough to sufficiently exercise the code models and logic. The calculation consisted of 12 welds selected to exercise the majority of the code logic. The code calculated weld break frequencies and the blockage array were printed out for verification. Hand calculated results were j compared with the corresponding code results for the weld and target classifications (i.e., weld diameter, weld type, and insulation type), the target volume calculations, the blockage ' calculation, weld break . frequencies, sequence frequencies, and unavailabilities. Totals were also compared. No differences were found between the hand and code generated results other than those resulting from numerical roundoff. B.I.4.2 BLOCKAGE 1.0 Qualification Test j The qualification test for BLOCKAGE 1.0 involved executing the BLOCKAGE 1.0 code using the weld input data from NUREG/CR-3394 (Ref.1). The values reported in NUREG-0869, Rev.1 (Ref. 7) were { i compared to the corresponding output from BLOCKAGE 1.0. In addition,31 representative output tables . I were chosen for comparison from NUREG/CR 3394 (Ref.1). The values from BLOCKAGE 1.0 agreed within one in the second significant decimal digit with the referenced values. The only major difference { involved a mismatch of the location categories in the system-basis sequence frequency tables. The {i qualification test team determined that the PRA code had printed the values corresponding to "PI-Inside Crane Wall" under the heading "PO-Outside Crane Wall' and vice-versa. -In summary, the required [ reference data compared favor.bly with the output of BLOCKAGE 1.0, and all discrepancies were ! resolved. Further details of the BLOCKAGE 1.0 qualification testing are described in Reference 8. { f B.1.4.3 BLOCKAGE 2.0 Testing The BLOCKAGE 2.0 code was tested with the 12 weld BLOCKAGE 1.0 test calculation modified . to include the insulation destruction and destruction fractions. This test calculation was sufficiently j diverse to exercise the logic of the code modifications and to verify that the remaining BLOCKAGE 1.0 - logic was still valid. The calculation of the volumes of destroyed target material trensported to the screen j was verified. The volume calculation was tested and verified using non-equal destruction and transport j fractions and was also tested using the bounding fractions of zero and one. The weld break frequency l calculation was tested and verified for both types of input (i.e., by plant or by weld).' The screen blockage. : calculation was tested and verified. The weld and target classifications (i.e., by diameter, system and j types), the summations of break and sequence frequencies, the computation of screen unavailabilities, and totals were all tested and verified. No differences were found between the hand and code generated l results other than those resulting from numerical roundoff. ! E l
-i
" + w- r-vm-
-l i
B.1.4.4 BLOCKAGE 2.0 Validation Testing , BLOCKAGE 2.0 validation testing also used the weld input data from the BLOCKAGE 1.0 , qualification test. The program was first executed using parameter and weld input files to test the plant . mode for specifying break frequencies. The first and last pages of all output files were compared to the
}
BLOCKAGE 1.0 qualification test output. All values were the same. Next, the program was executed j again using parameter and weld input files corresponding to the weld method for specifying break frequencies. Again, the first and last pages of each output file was compared to the BLOCKAGE 1.0 qualification test output. The values were again the same. Details and test data are included in Reference , 4
- 9. j B.I.5 User Interface The BLOCKAGE 2.0 source Fortran source code is located in six separate files. Compilation is l accomplished by compiling BLOCKAGE.FOR. The other Fortran files are included into BLOCKAGE by [
INCLUDE statements. The code was compiled with Lahey Computer Systems, Inc. Fortran 77 Version 1 i 5.01. The execution of the code requires two input files and results in six output files. These files are - described in Table B.1-2. l Table B.1-2: BLOCKAGE 2.0 File Structure File Name File Description l PARAMETR.INP Parameter Input - WELD.INP Weld and Target Input ; WELD.OUT Weld Summaxy Output ) TARGET.OUT Target Summary Output SEQFREQ.OUT Sequence Frequencies Reports '! Unavailabilities Reports l BLOCKAGE.OUT
SUMMARY
.OUT Summary Reports BLOCKAGE. ERR Error Messages I 1 B.1.5.1 Input Description ! User input is arranged in a free-format and read into the code using list-directed READ l statements. Data are entered starting in column 1 and where multiple parameters are entered on a line, j they must be separated by either commas or spaces and entered in the following prescribed order. Character data inout should be enclosed in single quotes. Comments may follow the data on each line. 'l No line should be left blank. -} i The BLOCKAGE 2.0 code required two separate input files. These files are a parameter input file ; l
l l
l 5
l 1 named PARAMETR.INP and a weld and target input file named WELD.INP. The input specifications are - listed in Tables B.1-3 and B.1-4 for the parameter and weld, respectively. Sample input files are provided j for further guidance in Table B.1-5 and B.1-6, for parameter and weld input, respectively. B.1.5.2 Output Description The BLOCKAGE 2.0 code produces six types of reports. Two reports located in output files,. WELD.OUT and TARGET.OUT, echo the weld and target input, respectively, for inspection and for. inclusion in reports. The calculational results are written in sequence frequencies and probabilities reports located in output files, SEQFREQ.OUT and BLOCKAGE.OUT, respectively. Summary information is written to the output file,
SUMMARY
.OUT. Any errors encountered in reading the input or during the calculations are written to the output file BLOCKAGE. ERR. The information reported is now described , further by output file. WELD.OUT The data for each weld input into the calculation is printed separate from its associated ,
~
target data. The information listed for each weld includes: 1) a sequence number, 2) the weld ~ , identification, 3) the system identification, 4) the pipe diameter in inches, 5) the type of weld, '6) the location class, 7) the transport fraction for this location class, and 8) the number of targets for this weld. $ TARGET.OUT The calculated total volume of each target and the data input for each target is printed. The information listed for each target includes: 1) the identification of its associated weld, 2) the number , of the target associated with the weld, 3) the inner diameter of this target in inches, 4) the insulation type identifier, 5) the thickness of the insulation in inches, 6) the reference information, and 7) the target length and volume for each insulation destruction model. 'Ihe incremental destruction fractions associated , with each insulation destruction model is printed at the top of the table. P l P 9 6 9
'h 1
i i
~
' Table B.1-3 Parameter input File Line Variable Description Limits and Conditions Insulation Destruction Model L/D Ratios i=1,3 I ld(i)
Target Insulation Destruction Fractions . . i=1,3
.2 dfract(i) 3 nfr Number of Flow Rates I to 3 Flow Rates (gpm) i=1,nfr; >0., <100000 4 pfrs(i)
Number of Allowable Head Losses 1 to 3 5 nhl i=1,nhl; >0., < 20. 6 ' ahls(i) Allowable Head Losses (fect of water) 7 a,b,c Coefficients in Head Loss Correlation nsa- Number of Screen Areas 1 to 4 8 i=1,nsa; >0., <1000. 9 psas(i) Screen Areas Number of Permissible Weld Types I to 10 10 npwt Permissible Weld Types i=1,npwt; characters *2 11 pwts(i) Number of Permissible Weld Locations 1 to 20 12 npwl Permissible Weld Locations i=1,npwl; character *2 13 pwls Debris Transport Fractions i=1,npwl 14 tiract(i) 1 to 10 15 nsys Number of Systems System Descriptions i=1,nsys; character *26 7 16i' systbl(i) Number of Permissible Weld Diameters 1 to 30 17 npwd Permissible Weld Diameters (in) i=1,npwd; j=1,npwd/5 18jb pwds(i) break Method of Cticulating Break Frequencies character'1' 19 Number of Pipe Diameter Classes 1 to 4 20 ndc. i=1,nde; >0., <99.99 21 wdctbl(i) Sma!!est Diameter in Diameter Class (in) d Weld Failure Frequencies (Rx-yr) i=1,ndc; >0., <L 22 wdeffr(i) i=1,ndc; character *5 23 wdcibl(i) Diameter Class Labels wwffwf(i,j) Weld Weighting Factors for Plant Method i=1,nde; j=1,npwt 24j or Weld Failure Frequencies for W Method Number of Location Classes 1 to 5 25 nlc Location Class Label' i=1,nic; character *5 26a' iclabl(i) i=1,nic; character *2 26b lesell(i),1csel2(i) Location Class Selection Criteria location Class Description i=1,nic; character'50 26c ledese(i) 1 to 10 27 npim Number of Permissible Insulation Materials Insulation Type Identifiers i=1,npim; character *2 28 pims(i) Fibrous Insulation Flags 8 i=1,npim; character *1 29 fibflg(i) a - One Line for Each system b - 5 Diameters per Line of Input Until npwd Diameters are Eniered, end last line with / c - Enter Either a P for Plant Method or a W for Weld Method d - Enter only if Plant Method was Selected e - Ihe First Location Class is the Summary Location Class f - Each location class requires 3 lines of input in series (i.e., a, b, c, then a, b, c, etc.) for a total of 3 x nlc lines g - Either an F for Fibrous or an N for Non-Fibrous
--r ~--. ,_._ ,
i Table B.1-4 Weld Input File
.i Line Variable Description Limits and Conditions 'j 1 probid Problem Identification and Description character *40 Weld Identification - character *9 .
2i' weldid(i) ; sysid(i) System Identification integer 1 to 10 ' 6 wdiam(i) Weld Diameter (in) agree with pwds ; wtype(i) Weld Type character *2 .j
-Weld Location character *2' wloc(i) ntgts(i) Number of Targets for this Weld 1 to 40 tgtno(1) First Target Number for Weld i Must be 1 :
tgtdia(1) Target Diameter (in) > 0.,<1000' tgtsys(1) Reference Information character *4 d tgttyp(1) Insulation Type . character *2' , tgtthk(1) Insulation Thickness (in) >0.,<100. l tgtlen(1,k) Target Length for each L/D Model(ft) k=1,3 , tgtno0) Sequential Target Number for Weld i. 2 to ntgts , 3if >0.,<1000. tgtdia0) Target Diameter (in) d tgtsys0) Reference Information character *4 character *2' I tgttyp0) Insulation Type tgtthk(j) Insulation Thickness .
>0.,<100. .,
tgtlen0,k) Target length for each L/D Model (ft) k=1,3 l l a - Index of Each Weld (i.e.,1 to Number of Weld) b - Weld Diameters Must Equal One of the Permissible Weld Diameters i i c - Weld Location Must Match One of the Permissible Weld Locations d - Reprinted in TARGET.OUT but Not Used e - Insulation Type Must Match One of the Insulation Type Identifiers u ,g:y ...,etc. f - The Order of Line Input is 2,3ue 30 , ...,3 u ,giy 22 , Su, Su, ..., S , 3
-f 1
?
q 1
'j z.- -.- .: . -, -- . . .__ _ _ _ _ -______ _ . l
. . . .. =- . - ._ .~ -_
I Table B.1-5: Sample Parameter Input File Inr>ut Comments 3.5.7. insulation destruction model L/Ds 1.1.1. destruction fractions ; 3 number of flow rates,1-3 ' 6000. 8000. 10000. flow rates (gpm), >0.0, <100000.0 3 number of head losses,1-3 7
- 1. 2. 5. allowable head losses, >0.0, <20.0 :
1.84 1.54 1653. headioss parameters A, B, C , 4 number of screen areas,1-4 ,
- 50. 75. 100. 200. screen areas (sq.ft) >0.0, <1000.0 3 number of permissible weld types,1-10
'N' 'A' 'E' permissible weld types, any 2 characters 4 number of permissible weld locations,1-20
'IP' 'IS' 'OP' 'OS' permissible weld locations, any 2 chars. 7
- 1. 1. 1. 1. transport fractions 9 number of systems,1-10 '
' Hot Leg' Ist system descriptor, up to 26 char.
' Cold Leg' 2nd system descriptor, up to 26 char. l
' Crossover' 3rd system descriptor, up to 26 char. .l i
' Safety Inj. { cold leg)* 4th system descriptor
' Safety Inj. (hot leg)' 5th system descriptor, up to 26 char.
' Chem./Vol. Control System' 6th system descriptor
'Feedwater' 7th system descriptor, up to 26 char. l Sth system descriptor, up to 26 char. "i
' Main Steam'
' Pressurizer' 9th system descriptor, up to 26 char. l 13 no. of weld diameters r
2.0 3.0 4.0 6.0 8.0 diameters 1 - 5 10.0 14.0 16.0 30.0 32.0 diameters 6 - 10 , 32.3 34.0 36.3 / diameters 11-15, end with / P method for calculating break frequencies , 4 no.of pipe diameter classes,1-4; for each: ' 2.08.012.018.0 smallest diam.in class (0.00-99.99 in.) 3.E-4 4.E-5 3.E-5 3.E-6 failure frequency /Rx-yr,0.-l.
'2-6' '8-10' '12-16' '18-+' diameter class label 0.7 0.5 0.5 0.5 weld wgtg factors, weld type N l' 0.150.30.30.3 weld wgtg factors, weld type A '
O.150.20.20.2 weld wgtg factors, weld type E ' 5 no.of location classes,1-5, and: '
'IP' summary location class label,
,- 'IP' ' ' its 1st & 2nd sel. criteria (weld type) ,
-)
' Primary systems in crane wall' its loc. class descriptor;
'Out' 2nd loc. class label, .
'OP' 'OS' 1st & 2nd selection criteria (weld type), ll 50<har. summary loc. class descriptor; i
'Outside crane wall'
'In' 3rd location class label, =
l its 1st & 2nd sel, criteria (weld type), - !
'IP' IS' I
'Inside crane wall' its 50<har. loc. class descriptor;
' Prim' 4th location class label, ;
its 1st & 2nd sel. criteria (weld type) j
'IP' 'OP'
' Primary systems' its 50-char. loc. class descriptor;
'Sec' 5th location class label, !
i t 5 i
/
- - . . , .-._.....m - _ -~
. -r
t i 1 e r i
'IS' 'OS' . its 1st & 2nd sel. criteria (weld type), [
' Secondary systems' its 50-char. loc. class descriptor; 4 no.of perm. insulation materials,1-10 i
' iud' 'FE' 'SE' 'AS' . inst.l. type identifiers, any 2 chars.
'N' 'F' 'F' 'N' fibrous insulation flags, F or N This parameter inputfile was used to repeat the BLOCKAGE 1.0 quahfication test described in Section 9.4.2 using the BLOCKAGE 2.0 code, i.e., the destruction and input fractions were all set to one.
.[
i
?
i 4 t y k f l t
?
I
'f i
~!
t
- E
~,
h
I Table B.1-6: Sample Weld Input File Qual. Test for BLOCKAGE 2.0/ Plant -
'1A' 1 34.0 N IP 3- 1 34.00 '28' RM 3.50 4.17 4.17 4.16 2 34.00 28' RM 3.50 2.17 2.17 2.10 l 3 32.26 . '28' RM . 3.50 2.25 2.25 2.25 !
'I B'. 1 34.0 N IP 31 34.00 '28' RM 3.50 2.00 2.00 2.00 ;
2 34.00 '28' ' RM 3.50 5.17 5.17 5.16 3 32.26 '28' RM ' 3.50 5.50 5.50 5.50 ,
'2A' 1 34.0 E IP 2 1 34.00 '28' RM 3.50 2.83 2.83 2.83 2 32.26 '28' RM 3.50 0.75 0.75 0.75
'2B' 1 34.0 E IP 3 .1 34.00- '28' RM 3.50 3.00 3.00 3.00 -
2 . 34.00 '28' RM 3.50 6.00 6.00 6.00 '! 3 32.26 '28' RM . 3.50 6.17 6.17 6.16 .
'3A' 1 .34.0 E IP 24 1 34.00 28' RM 3.50 6.00 6.00' 6.00 2 138.0 28' RM 3.50 6.00 - 6.00 6.00 .
3 138.0 '28' SE 3.50 .. 2.33 8.00 13.67 4 32.26 '28' RM 3.50 0 1.83 - 5.25 5 36.32 '28' RM 3.50 .0 3.33 29.50 6 81.00 '28' RM 3.00 0 0 26.00 7 138.0 '28' RM 3.50 0 0 6.00 8 138.0 '28' SE 3.50 0 0 13.67 9 2.00 '4' SE 1.50 15.7 15.8 15.83 3.42 10.5 10.50 10 1.00 '4' SE -1.50 11 3.00 4' SE 1.50 0 6.25 13.00 j 12 2.00 '26' FE 1.50 2.75 10.8 13.50 ~ 13 3.00 '26' FE 1.50 5.25 11.5 14.25 14 0.75- .'26' ' FE 2.00 0 1.50 - 1.50 : 15 0.75 '26' FE 2.00 0 1.50 1.50 16 2.00 '26' FE 1.50 - 0 2.00 2.00 17 2.00 '16' AS 1.00 0 0 7.00. ; 18 1.00- '32' SE 1.00 0 0 9.08 19 0.75 '32' SE 1.00- 0 0- 1.40 . 20 2.Cd '33' SE - 1.00 0 0 5.00 21 10.00 '25' RM 3.00 0 0 20.58 22 10.00 '25' FE 1.50 'O O 11.25 23 10.00 .'37' FE -1.50 0~ 0 11.66 -l 24 6.00 '37' FE - 1.50 0 0. 4.75 This partial wcld inputfile was usedfor the BLOCKAGE 1.0 quahfication test described in Section 9.4.2. ' This is tulidfor BLOCKAGE 2.0 as well. ;
.i l
I 4 4
]
a - .. .. .: - . . . .: . -
h SEOFREO.OUT ne sequence frequencies were correlated by both diameter and system. A pair of ; reports is therefore printed for each combination of screen area, flow rate, allowable head loss, and
~
insulation destruction modei. The header information in all of these reports includes the code version f identification , the problem identification, the screen area, the flow rate, the allowable head loss, and the 'l length to diameter ratio of the insulation destruction model. The sequence frequencies are compiled for - e each of location classes as well as for the overall plant, The sequence frequencies are totaled for the overall plant and for each location class. In the diameter report, the sequence frequencies are correlated l by permissible weld diameters. In the system report, the sequence frequencies are correlated by both system and by diameter class. The descriptions of the location classes are printed at the bottom of each diameter report and the system descriptions are printed at the bottom of each system reports. If the : maximum number of screen areas, flow rates, and allowable head losses are input, the code will produce , a total of 216 sequence frequencies reports. -j
. t J
BLOCKAGE.OUT Probabilities of screen unavailability are correlated both by system and diameter class and by permissible weld diameter for the overall plant and the summary location class (first location. specified in the input). The break and sequence frequencies associated with the unavailabilities are also correlated in these reports. Each report includes results for the three insulation destruction models. A set of four reports is printed for each combination of screen area, flow rate, and allowable head loss. The f
- break frequencies do not depend upon the selection of the insulation destruction model since they are not a function of screen blockage. The frequencies are totaled for each category. The header information in i all of these reports includes the code version, the problem identification, the screen area, the flow rate, i
the allowable head loss, and the insulation destruction model The description of the summary location class is printed at bottom of each report. If the maximum number of screen areas, flow rates, and ; i allowable head losses are input, the code will produce a total of 144 reports.
SUMMARY
.OUT The total sequence frequencies are saved in this file for each combination of screen' j area, flow rate, allowable head loss, and insulation destruction model. There is a summary report for the overall plant sequence frequencies and a report for the summary location class sequence frequencies. BLOCKAGE. ERR If any errors are encountered in reading or validating the input or during the I calculations, an error message is written to this file. An error message identifies the portion of the code' originating the message and indicates the error. De following message, for example, identifies an' error . i encountered in validating a weld diameter in the subroutine WINPUT.' ; WINPUT: Error in WDIAM = - 19.0000 l= 9 6
- - ~ --- -x~ ~ -- - --- -- -- - - - - - - - - - - - - .--- - - - ---
R
- WINPUT: Not a permissible weld diameter i The ninth weld in the weld input file has a diameter of 19 inches which does not correspond to any of -
the permissible weld diameters provided in the parameter input.
..j t
i
.i t
'h a
l
'i.
i. l i ?
.l i
+
1 4
~ " - ,-e.. , -.
_.__l--- -_.-_----_---._.__-_-_-_-_-----._-__.-_.--__._LE__.._..
~
t
-i Iteferences for B.1 -
.I
[1]' J.J. Wysocki, "Probabilistic Assessment of Recirculation Sump Blockage Due to Loss of Coolant j _,,l
. Accidents, Containment Emergency Sump Performance USI A-43," Vols.1 and 2, Burns & Roe, Inc., y l
published as Sandia National Laboratories Report No. SAND 83-7116, NUREG/CR-3394, July 1983. i [7] A.W. Serkiz, "USI A-43 Regulatory Analysis," US Nuclear Regulatory Commission, NUREG-0669,- Rev.1, October 1985. [2] US Nuclear Regulatory Commission, " Software Quality Assurance Program and Guidelines," NUREG/BR-0167, February 1993. _, 13]
'Ihe Institute of Electrical and Electronics Engineers, Inc., "IEEE Guide to Software Requirements
't Specifications, Software Engineering Standards," ANSI /IEEE Std 830-1984, October 1987.
[4] Science and Engineering Associates, Inc., " BLOCKAGE L0 Software Requirements Specification," Intemal Report SEASF-IR-93-035, October 1993. [5] Science and Engineering Associates, Inc.," BLOCKAGE L0 Computer Program Design Document," ' Intemal Report SEASF-IR-93-037, November 1993. j [6] Science and Engineering Associates, Inc.," BLOCKAGE 1.0 Mod. Proposal 1: Proposed Changes to ') BLOCKAGE 1.0 Software Requirements Specification," Internal Report SEASF-IR-93-035, j Modifications for BLOCKAGE 2.0, November 1993. . [8] Science and Engineering Associates, Inc., " BLOCKAGE 1.0 Qualification Test Report," Internal'- Report, SEA-93-554-06-A:3, December 1993. i 19] Science and Engineering Associates, Inc., " BLOCKAGE 2.0 Verification and Validation Report," ; j Internal Report, SEA-93-554-06-A:4, December 1993. i l
'l o
e b APPENDIX B.2 BLOCKAGE 1.0 SOFTWARE REQUIREMENTS SPECIFICATION . Si
~f 1
l I l
SEASF-IR-93-035 BLOCKAGE 1.0 ' SOFTWARE REQUIREMENTS SPECIFICATION CONTRACT No. NRC-04-91-071, Task Order No. 6 Technical Assistance for Estimating the Potential for Loss of LPCI Capability in BWRs Due to LOCA Generated Debris Blockage Subtask 6.1.2: Parametric Calculational Model Development and Validation / Verification SEA Internal Report Prepared by Bob Walsh and Nancy K. Ruiz October 1993 b I t L Science and Engineering Associates,Inc. ; 1570 Pacheco, Suite D-1 Santa Fe, NM 87501 (505) 983-6698 1
s Table of Contents ',
- 1. INTRODUCTION .. .. ...... .. ........ ............... ... ..... ........ 3 .
1.1 Purpose .... . .. ................. ... ........ ............... ..... 3. l 4 : 1.2 Scope .... . ........ .. ..... . . ..... ....... ..... ............... 1.3 Definitions, Acronyms, and Abbreviations ..... .... . . ... .... .......... 4. ! 1.4 References .. .... .. . ........... . .. ...... ..... . ............. 6 : 1.5 Overview .......... ... .... . ................ .,. ... ............... 6 - 2.0 GENERAL DESCRIPTION . . . . . . . . . . . . .... ........ ..... ................. 7-2.1 Product Perspective - . . . . . . .... . .. ......... ..... .. ......... ........7 2.2 Product Functions ........ . .... ...... ... ....... ... . . . . . . . . . ....... 7 2.3 - User Characteristics .... . ..... ................... ..... ............... 8-2.4 General Constraints ....................................................... 8
............... 9 3.0 SPECIFIC REQUIREMENTS . . .. ...... ..... ..... ......... ... :
Functional Requirements ... ............... ..... ..... ................. 9 3.1 3.1.1 Introduction .... ... . ........ .......... .... . .. .. .. ........ 9 11 ' 3.1.2 Inputs ....... . ..... ..... ...... .... ... ................. 3.1.3 Processing . . . . . . . ... ................. .... ... ............... _15 3.1.4 Outputs . . . . . . . . . . ... .. ... ... .......... ................... 21' External Interface Requirements . . ..... ....... . . ................. ..... 22 > 3.2 User Interfaces ...... ..... ............ .. ......... ......... 22 - 3.2.1 - Hardware Interfaces ........ ........ .............. ............ 24 3.2.2 Software Interfaces . ...... . ............. ..... .. ... . 24 ; 3.2.3 .. .... 3.2.4 Communications Interfaces ... .. ..... ........ ... ................ 24 l 1 Performance Requirements ... . ......... ............................... 24 - 3.3 : 3.4 Design Constraints ..... ...... .......................................24 3.4.1 Modifiability . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . : 24 . 3.4.2 Hardware Limitations ... ............................. ............ 24 i 3.5 Attributes . . . . . . . ................. ...... ............................. '24 Secu rity . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 25-3.5.1 Transferability / Conversion ......................................... 25 ; 3.5.2 . 3.6 Other Requirements . . . . . . ........................ . .... .......... .... 25' s Appendices . 7 27 ~ l I. Sample Weld Table Input Data and Output Format . . . . . . . . . ... .. ............ 29 II. Sample Target Table Input Data and Output Format ...... ...................... , i
......... ...... ..... 31 III. PRA Output Formats .... .... ..... ...........
TABLE Output Formats .... . ......................... ........ ........ 34. t IV.
.I t
t 4 2 i l t
1
- 1. INTRODUCTION ,
1.1 Purpose ; in a U.S. commercial nuclear power plant, the reactor coolant system (RCS) removes the heat generated ' in the core. Following a breach of the RCS pressure boundary, water is lost from the RCS. The Emergency Core l Cooling System (ECCS) injects makeup water into the RCS during a loss-of-coolant accident (LOCA) and l j recirculates water through the core following a LOCA to provide for bng-term post-accident core cooling . Unresolved Safety Issue (USI) A-43," Containment Emergency Sump Performance," dealt with concems , about the availabihty of adequate recirculation cooling water in a Pressurized Water Reactor (PWR) following a LOCA. One concern was the effects of LOCA-generated insulation debris that is transported to the sump debris screen and blocks the screen, reducing net positive suction head (NPSH) margin below that required for the - 3 i recirculation pumps to maintain long-term cooling. For the resolution of USl A-43 (Ref.1), the US Nuclear Regulatory Commission (NRC) Staff evaluated the- -! loss of recirculation capability due to debris generation, focusing primarily on PWRs. The blockage probabilities for PWRs were calculated on the basis of a detailed analysis in NUREG/CR-3394 (Ref. 2). Although USI A-43 was derived principally from concerns about containment emergency sump performance in PWRs, the concern about debris blockage applies to Boiling Water Reactors (BWRs) as well. 'lhe BWR Residual Heat Removal (RHR) system provides the Low Pressure Coolant Injection (LPCI) function of the i ECCS. The suction strainers in the suppression pool of a BWR RHR system are analogous to the PWR sump debris screen, and both BWRs and PWRs must have adequate ECCS recirculation cooling capacity to prevent core melt. Science and Engineering Associates,Inc. (SEA)is supporting the NRC Staff through Contract No. NRC --I 91-071, Task No. 6," Technical Assistance for Estimating the Potential for Loss of Low Pressure Coolant Injection Capability in BWRs due to LOCA-generated debris blockage. The objectives of this task are for SEA to:
= estimate the probability of loss of LPCI/RHR in a reference BWR using analysis methods similar .;
to those used to analyze a PWR in NUREG-0869, Rev.1 (Ref.1), ;
= develop a model for the evaluation of BWRs; and j
= investigate the potential effects of corrosion products and other types of debris which can be !
l' found in BWR suppression pools. ! l I Subtask 6.12 of Task 6 requires SEA to develop MS-DOS software that reproduces the functions of the calculational programs (PRA and TABLE) documented in NUREG/CR-3394, Vol. 2 {Ref. 2). This is to be followe i i by modification of the software to accommodate BWRs. 3 i
'i This Software Requirements Specification (SRS) is intended to describe the functionality and attributes of.
1 the first product that must be created, as well as its extemal interfaces with other systems and any design ~; constraints such as language and hardware platform. Project and design information appear elsewhere, in the . Project Plan and the Software Design Document (SDD), respectively. A separate SRS will be written for Subtask 6.1.3, for which SEA will, upon successful completion of . j qualification testing of the software reproduced in the present task, modify the software to incorporate the results . l of Subtask 6.2.1: Transient Flow Blockage Analysis, in which SEA' will develop models and perform analyses. -l which incorporate the potential effects of: ! i
- transport of LOCA-generated debris in a BWR following a LOCA, a debris deposition on suction strainers as a function of time, and
- estimated strainer pressure drop as a function of transported and deposited debris.
'Ihis SRS is intended primarily as an intemal document for the members of the SEA team who will . !
develop the software product. '
?
f 1.2 Scope This SRS specifies BLOCKAGE 1.0, the PC-based software that reproduces the functions of PRA and TABLE that were important to the resolution of USI A-43, while avoiding assumptions that are not applicable to 1 BWRs. . The goal of this development is to provide a capability that can be validated by comparison with the results reported in the references and requires a minimum amount of modification to be able to treat BWRs. t - 1.3 Definitions, Acronyms, and Abbreviations t BWR Boiling Water Reactor - ECCS Emergency Core Goling System I L/D Distance separating the target intercepted by the blowdown jet from the break exit plane (L), r 3 divided by the break diameter (D). i LOCA Loss Of Coolant Accident-LPCI low Pressure Coolant Injection , NPSH net positive suction head : PWR Pressurized Water Reactor 9 4 I i
t
.I RHR Residual Heat Remova! -I 1
SDD Software Design Document SRS Software Requirements Specification j
.SQA Software Quality Assurance USI Unresolved Safety Issue ,
.3
.f
~
o k t
,t e
I i i h [ 9 i
?
i s
?
I k I t
}
f I i l I i 5 4 i
l 1.4 References [1] A. W. Serkiz, "USI A-43 Regulatory Analysis " US Nuclear Regulatory Comnussion, NUREG-0869, Rev. j 1, October 1985.
-l J. J. Wysocki,"Probabilistic Assessment of Recirculation Sump Blockage Due to Loss Of Coolant i
[2] Accidents, Containment Emergency Sump Performance USI A-43/' Vols. I and 2, Burns & Roe,Inc., published as Sandia National Laboratories Report No. SAND 83-7116, Albuquerque, NM, NUREG/CR-3394, July 1983. [3] U.S. Nuclear Regulatory Commission," Software Quality Assurance Program and Guidelines," .f NUREG/BR-0167, February 1993. t I t [4] The Institute of Electrical and Electronics Engineers,Inc., "IEEE Guide to Software Requirements [ Specifications, Software Engineering Standards," . ANSI /IEEE Std 830-1984, October 1987.. , [5] Science and Engineering Associates, Inc., " BLOCKAGE 1.0 Project Plan," Intemal Report SEASF-IR . r 036, October 1993. i 1.5 Overview This SRS follows the outline of ANSI /IEEE Std 830-1984, the IEEE Guide to Software Requirements ! Specifications (Ref. 3). Section 2 of this SRS describes the general factors that affect the BLOCKAGE 1.0 ' -{ software product and its requirements, not the specific requirements themselves, which are described in detail 'f in Section 3. Appendix I is a sampic page of the PRA input data summary, each line of which corresponds to j a break descriptor card. Appendix 11 is a sample page of the target data summary, each line of which containsi ., t the data from one or two target information cards. Appendices III and IV contain sample outputs from PRA . .l and TABLE. I i
?
i 6 . t k t i
~ _ - . . _ , . . 2.0 GENERAL DESCRIPTION 2.1 Product Perspective The BLOCKAGE 1.0 program is an independent and totally self-contained software product. The program is to be operable on any IBM or fully IBM compatible personal computer with at least a 60386 processor runnmg MS or PC DOS 3.0 or higher. t 2.2 Product Functions _, BLOCKAGE 1.0 will calculate the frequency, per reactor-yr, of a particular accident sequence. That sequence is a LOCA followed by inadequate NPSH in the recirculation cooling system due to insulation debris generated by the LOCA. BLOCKAGE 1.0 will perform a parameter study by calculating the sequence frequency for many different assumptions about the plant and about the processes occurring after the accident. The plant ! characteristics studied will include the flow rate, the total screen area, and the allowable head loss. The process assumptions varied will include the effective distance from the break within which insulation is destroyed and the locations or systems where breaks would result in debris being transported to the recirculation cooling system. l The user will provide a list of welds whose failure can initiate a LOCA. The list need include only the welds in one RCS loop; each weld will represent all of the corresponding welds in other loops. De software will determine a break frequency for each weld such that the plant LOCA frequency is the sum of the weld break frequencies. The input for computing break frequencies will be a table of total break frequency by LOCA class (e.g., small, medium, large), together with weighting factors by type of weld. f For each weld and each set of parameters, BLOCKAGE 1.0 will calculate the type and amount of insulation debris generated by a break and transported to the screen, and whether that debris wou!' cause . inadequate NPSH. For a given amount of debris and a given set of parameters, this part of the calculation will be deterministic rather than probabilistic; the LOCA either will or will not cause blockage. The insulation' debris will be determined from target information provided by the user. The head loss formula will be an f g empirical relation that depends on the amount of fibrous insulation and on the plant assumptions. -] By these methods, BLOCKAGE 1.0 can determine the set of welds at which a LOCA would be - l
\
followed by inadequate NPSH, for any set of assumptions about the plant and the processes. The frequency of that accident sequence can then be calculated as the sum of the break frequencies for that set of welds. ! l
I 2.3 User Characteristics . This software is intended for use only under the supervision of engineers who are experienced with the phenomena, are knowledgeable of the methodology, and who will perform critical reviews of the calculations.
.j 2.4 General Constraints ,
i
~,
BLOCKAGE 1.0 shall be implemented in a high-level language. { V This product will be treated as Level 1 Software as defined in Ref. 3 (technical application software ,
'I used in a safety decision by the NRC). Software quality assurance will be in accordance with the BLOCKAGE ,
1.0 Project Plan (Ref. 5). - i i e 4 4 t t I f s t i
-i n
I t f I i r b
, , ,r _. p g
3.0 SPECIFIC REQUIREMENTS 1
-)
3.1 Functional Requirements 3.1.1 Introduction i Terminolony Chance In this specification, frequencies have units of inverse time, and probabilities are dimensionless, consistent with current nomenclature conventions. 'Ihis is the opposite of the nomenclature used in NUREG/CR-3394 (Ref. 2). P Insulation Destruction Models In this specification an insulation destruction model is defined by a value of L/D, the ratio of the ' maximum distance within which insulation is assumed to contribute to_ debris fonnation (L) to the break' diameter (D). BLOCKAGE 1.0 shall conduct analyses for three values of L/Dr 3.0,5.0, and 7.0. l l i Reports Reauired BLOCKAGE 1.0 is required to produce the five major reports shown in Table 3.1. The first three . ; reports are based on output from the PRA program; the last two are TABLE reports. The tables of welds and targets are primarily summaries of user-provided input, but the target table also includes calculated insulation volumes for each target. The Sequence Frequency Reports have an "overall" column (all welds) and columns for welds grouped : j by various locations. The user provides criteria that define each location class. 1 The Probability Reports have columns for various insulation destruction models (L/D). Results are - reported "overall" and for one of the location classes, called the summary location class. The total for all pipe , diameters, or all systems, appears at the bottom of each column. The Summary Report gathers together the totals from the Probability Reports. Capabilities Omitted . 1 The USI A-43 analysis software produced voluminous reports, only a few of which were eventually. used in the regulatory analysis (Ref.1). Although the remaining reports presumably were not important to - resolution of USI A-43, their content has been reviewed to verify that they would not be relevant'to the study ! of BWR clogging. 9
~!
1
1 l Table 3.1 t BLOCKAGE 1.0 Major Reports Report Name Corresponding Capability Table of Welds Ref. 2, App. A, Sec. A.1, " INPUT DATA
SUMMARY
" j Table of Targets Ref. 2, App. B, Sec. B.5 Sequence Frequency Reports Ref. 2, App. C, " PROBABILITY OF BLOCKAGE DIAMETER BASIS" and " PROBABILITY OF BLOCKAGE ON SYSTEM BASIS" Probability Reports Ref. 2, Sec. 4, "
SUMMARY
OF PROBABILITIES DIAMETER BASIS WITH WELD TYPE WEIGHTING" and "
SUMMARY
OF PROBABILITIES SYSTEM BASIS WITH WELD TYPE WElGHTING"
.1 Summary Report Ref. 2, Table 1.0-3, " BLOCKAGE PROBABILITY
SUMMARY
TABLE" f This specification does not require the capability to create Tables A.2-1 through A.2-6 of NUREG/CR-3394 (Ref. 2), which were not used in the regulatory analysis. These tables were not written by the software documented in Ref. 2. This capability is unnecessary because the break frequencies are reported by diameter class and by system in the Probability Reports. Similarly, this specification does not require the capability to create Tables B.5-4 through B.5-45 of , NUREG/CR-3394 (Ref. 2), which were not used in the regulatory analysis. He software documented in Ref. I produces not these reports, but a " Debris Summary" report by location of break. The only output of debris volume required by this specification is in the table of targets. , This specification does not require the capability to perform calculations based on allocation of LOCA frequency assuming longitudinal pipe breaks; that is, in proportion to the length of the pipe segment.' he - earlier programs, PRA and TABLE, produce outputs based on both weld-basis and length-basis, using thei same target data. However, the length basis results were not used in the subsequent regulatory analysis because the weld-basis frequencies were considered to be more realistic. Furthermore, the previous results were not technically consistent; the length basis calculations should have used target data developed for longitudinal breaks, not for circumferential breaks. 10
s This specification does not provide for blockage summaries that contain counts of potential break' locations. Such tables appear in Appendix B of NUREG/CR-3394 (Ref 2), with the counts weighted either by weld factor or by segment length, but there is no accompanying text to explain them, and they were not used in the regulatory analysis. ; 3.1.2 Inputs , The input to BLOCKAGE 1.0 shall include the following fourteen tables, each of which is specified -
'{
below in further detail: ;
- permissible weld diameters, a permissible weld types,
- permissible weld locations,
- table of systems,
- weld table,
* - weld diameter class table, ;
- table of weld weighting factors, j
- table of permissible insulation materials, ;
- target table,
- insulation destruction table, .[
- flow rates, ,
- allowable head losses a screen areas, and a table of location classes, ,
1 Permissible Weld Diameters BLOCKAGE 1.0 shall accept input of as many as thirty permissible weld diameters, in units of inches, with one decimal places. Each input shall be valid if it is less than 100.0, greater than 0.0, and distinct from the others. The software shall verify that they are in increasing order. Permissible Weld Types .
.t BLOCKAGE 1.0 shall accept input of as many as ten weld type identifiers, all distinct and each a -
t string of any two characters. Permissible Weld Locations , r 11 i
BLOCKAGE 1.0 shall accept input of as many as twenty permissible weld location identifiers, all distinct and each a string of any two characters. . Table of Systems BLOCKAGE 1.0 shall accept input of as many as ten entries for systems, each entry consisting of the following fields: a system identifier (a positive integer, not larger than 10) .;
= system description (a string of any 26 characters) 9 1
Weld Table , BLOCKAGE 1.0 shall accept input of as many as three hundred entries for welds, each entry consisting of the following fields:
- weld identifier (a string of any 4 characters, must be distinct from all other weld identifiers) .
- system identific'r (a positive integer, not larger than 10) ,
a weld diameter (in., must be one of the permissible weld diameters)
= weld type (must be one of the permissible weld types) -
a location (must be one of the permissible weld locations)
}t Weld Diameter Class Table BLOCKAGE 1.0 shall accept input of as many as four entries for pipe diameter classes, each entry consisting of the following fields:
a diameter class index (a positive integer no larger than 10)
= . smallest diameter in this class (in. with up to two decimal places, valid if less than 100.00 and not less than 0.00) e failure frequency (per reactor-yr, with up to three significant digits, valid if less than l'.0 and not less than 0.0)
- diameter class label (a string of any five characters, must be distinct from all other diameter.. ,
class labels) 4 The d'iameter class index may be determined by position in the input file. The software shall verify i i that they are in increasing order of smallest diameter.
.i
-I 1
12 :
,j
-r,7
+n -s -w -.*-er. . by-. a ,,~. --.e . .. - - - ew
- . . . . ~ ._ - , . - . . . .- -.
i 1 1 Table of Weld Weichtine Factors , BLOCKAGE 1.0 shall accept input of as many as 40 entries for weld weighting factors, each entry
- consisting of the following fields:
- diameter class index (must be one of the values in the weld diameter class table)
- weld type (must be one of the permissible weld types) e frequency weighting factor (must be greater then 0.0) i L
The diameter class index and/or weld type identifier may be determined by position in the input file. Table of Permissible Insulation Materials BLOCKAGE 1.0 shall accept input of as many as ten entries for insulation types, each consisting of the following fields: , t t
- insulation type identifier (a string of any two characters, must be distinct from all other .I insulation type identifiers) !
- fibrous insulation flag (a single character, must be F or N) .
l f
. i.
I [f r h 13 & ka.tmw
j -_-_p j - aaI--i a-4hs - s a M4 L M m-+- - a 7- -n--- 4 5 t Tarcet Tabie BLOCKAGE L0 shall accept input of as many as 1000 entries for targets, each entry consisting of the : l following fields: } I
- associated weld (must be one of the weld identifiers in the weld table) .
1
- target pipe diameter (in,, with up to two decimal places, valid if less than 1000.00 and greater than 0.00)
- insulation thickness (in., with up to two decimal places, valid if less than 100.00 and greater than 0.00) ,
e insulation type (must be one of the permissible insulation materials) e drawing reference (a string of any 4 characters) The software shall permit as many as 40 targets to be associated with one weld. The associated break ' segment and/or the target identifier may be determined by position in the input file. Insulation Destruction Table j BLOCKAGE 1.0 shall accept input of as many as 5,000 entries for insulation destruction, each entry consisting at least the following fields: i
- L/D (must equal to 3.0,5.0 or 7.0)
= . affected target length (ft, with up to two decimal places, valid if less than 1000.00 and not less than 0.00) y 1
i The value of L/D may be determined by position in the input file. In addition, each entry shall be - associated with one of the tagets in the target table, such as by use of an identifier or by position in the input file, 1 i Flow Rates ; BLOCKAGE 1.0 shall accept input of as many as 9 flow rates, in units of gal / min,'with up to one i decimal place. Each input shall be valid if it is less than 100,000.0, greater than 0.0, and distinct from the others. The software shall verify that they are in increasing order. Allowable Head Losses j
'.J BLOCKAGE 1.0 shall accept input of as many as five allowable head losses, in units of ft of water, l
14 4 I l l
i
;\
1 i with up to_ two decimal places. Each input shall be valid if it is less than 20.00, greater than 0.30, and distinct - l from the others. The software shall verify that they are in increasing order. ! 1 Screen Areas BLOCKAGE 1.0 shall accept input of as many as six screen areas in units of sq ft, with up to one decimal place. Each input shall be valid if it is less than 1000.0, greater than 0.0, and distinct from the others. The software shall verify that they are in increasing order. Table of Location Classes BLOCKAGE 1.0 shall accept input of at least one and as many as 5 entries for location classes that will j be the basis for columns in the Sequence Frequency Report. Each entry shall consist of the following fields: ; i e location class label (a string distinct from all other location class labels, with a maximum ; length to be determined during software design) :
- summary flag (a single character, must be Y for one location class and N for all other location classes) l t
- first selection criterion (must be one of the permissible weld locations l
- second selection criterion (must be one of the permissible weld locations or two blank :
r characters) f a location class description (a string of any 50 characters) l 5 The location class having a summary flag of Y shall be the summary location class, the only location . i class to be reported in the Probability Reports and the Summary Report. i 3.1.3 Processing ; In order to specify the results that nust be calculated, this specification describes an algorithm for j 1i performing the calculations. The requirement is that the processing produce the specified results; any algorithm that produces the same results is acceptable.
)
Numerical Error Checks All divisions shall be preceded by verification that the magnitude of the divisor is sufficient to avoid l' computational error. All evaluations of terms that raise an operand to a non-integer power shall be preceded by a verification that the operand is not negative. Upon detection of an inappropriate operand, BLOCKAGE ' 1.0 shall print an error message and stop processing. , 15 1 J I 4
, , ~ - - . - . . . -
i
'l l
1 Inr>ut Validation BLOCKAGE 1.0 shall test all input data for validity according to the requirements given in Section . 3.1.2. If any input is invalid, BLOCKAGE 1.0 shall print all invalid inputs and omit further processing. .j i Insulation Destruction Model BLOCKAGE 1.0 shall create a table of values for L/D consisting of the values 3.0,5.0, and 7.0.' ; j Calculation 1: Individual Weld Break Freauencies and Debris Volumes .; ULOCKAGE 1.0 shall perform the following four steps: 'l Step 1.1 For each weld, identify its diameter class, such that the weld diameter is no less than -j the smallest diameter for the class and less than the smallest diameter for the next ; class. Assign to the weld the weld weighting factor determined by the diameter class j and weld type. ; Step 1.2 For each weld diameter class, pe. form the following four substeps: I Substep 1.2.1 det all weds in the diameter class. j a i Substep 12.2 Sum the weld weighting factors for the selected welds. .[ i i Substep 1.2.3 Calculate the proportion of breaks aUocable to each selected weld, defined as the ratio of the weld weighting factor to the stun of the weld weighting factors. $ Substep 1.2.4 Calculate the break frequency for each selected weld, defined as the ' q product of the failure frequency for the. diameter class and the ! proportion of breaks allocable to the weld. Step 1.3: Select all targets that are associated with the weld. For each insulation destruction l model (L/D) calculate the volume of destroyed insulation, defined as: _{ t t I xxL [ (OD+2sT) 2_pp2) l 4 a I ^
}
^?
16 { j l l
- '?
i i where QD is the target pipe diameter, ST is the insulation thickness, and XL is the af-- :j fected target length for the insulation destruction model (L/D). ; Select those targets that are associated with the weld and have an insulation type with' !
- Step 1.4:
a fibrous insulation flag of F. For each insulation destruction model (L/D) calculate- '[ the volume of fibrous insulation for the weld, defined as the following sum over the' 4 selected targets: } l l
)
[ (OD+2ST) 2_ ppa) V={ Calculation 2: Determine Bhekace Situations ; For each combination of one insulation destruction model (L/D), one flow rate, one allowable head ! loss, and one screen area, BLOCKAGE 1.0 shall identify each weld that can cause blockage; that is, each weld
\
for which the head loss calculated in accordance with r
+
p i.e4 y 1.54 H=1653 - l 448.8A, A_ t F 1 is greater than the allowable head loss, where Q is the flow rate and A is the screen area (the factor of 448.8 :
<i converts gal / min into it'/sec). (The formula was derived empirically from results of experiments with high , ,
density fiberglass and was used for the calculations reported in Ref.1.) Calculation 3: Data for Seouence Frecuency Reports by Diameter For each combination of one insulation destruction model (L/D), one flow rate, one allowable head : loss, and one screen area, BLOCKAGE 10 shall perform the following three steps: , Step 3.1 For each permissible weld diameter, select all welds that have the weld diameter and ll can cause blockage. Calculate the overall sequence frequency, defined as the sum of < the break frequencies for the selected welds. j i i Step 3.2 Calculate the total overall sequence frequency, summed over all weld diameters. .- 17 i I i i
- .. . . . ~ .. ~ - . ,
q
)
Step 3.3 For each location class, perform the following two substeps: a, Substep 3.3.1 For each permissible weld diameter, select all welds that have location identifier that matches one of the location class criteria and have the .; weld diameter and can cause blockage. Calculate the sequence 1,
- frequency, defined as the sum of the break frequencies for the selecteds )
welds. 9
;f Substep 3.3.2 Calculate the total location class sequence frequency, summed over all weld diameters. l
)*
Calculation 4: Data for Seouence Freauency Reports by System For each combination of one insulation destruction model (L/D), one flow rate, one allowable head ,
~
t loss, and one screen area, BLOCKAGE 1.0 shall perform the following three steps: J Step 4.1 For each combination of one system identifier (from 1 through 10) and one weld di- ' ;l ameter class, select all welds that have the system identifier and are in the weld di- t ameter class and can cause blockage. Calculate the overall s_equence frequency, de- , fined as the sum of the break frequencies for the selected welds. Step 4.2 Calculate the total overall sequence frequency, summed over all combinations of one ; a system identifier and one weld diameter class. Step 4.3 For each location class, perform the following two substeps:
.i Substep 4.3.1 For each combination of one system identifier (from 1 through 10) and.
one weld diameter class, select all welds that have location identifier ' I that matches one of the location class criteria and have the system ; identifier and are in the weld diameter class and can cause blockage. ] Calculate the sequence frequency, defined as the sum of the break frequencies for the selected welds. ; l Substep 4.3.2 Calculate the total location class sequence frequency, summed over all , combinations of one system identifier and one weld diameter class. . i 18 ; i
i k 1 Calculation 5: - Data for Probability Reports by Diameter For each combination of one flow rate, one allowable head loss, and one screen area, BLOCKAGE 1.0. shall perform the following five steps: Step 5.1 For each permissible weld diameter, select all welds that have the weld diameter,. Calculate the overall break frequency, defined as the sum of the break frequencies for ; the selected welds. , i Step 5.2 Calculate the total overall break frequency, summed over all weld diameters. Step 53 For each permissible weld diameter, select all welds that have the weld diameter and - 1 that have location identifier that matches one of the summary location class critena.- Calculate the summary location break frequency, defined as the sum of the break . j frequencies for the selected welds. 4 I Step 5.4 Calculate the total summary location break frequency, summed over all weld , i diameters. Step 5.5 For each insulation destruction model (L/D), perform the following four substeps: , Substep 5.5.1 For each permissible weld diameter, select all welds that have the weld - diameter and can cause blockage. Calculate: ;
= the overall sequence frequency, defined as the sum of the.
break frequencies for the selected welds. y
= the overall screen unavailability, defined as the ratio of the overall sequence frequency to the overall break frequency. ;
1 Substep 5.5.2 Calculate the total overall sequence frequency, summed over all weld diameters. Substep 5.53 For each permissible weld diameter, select all welds that have the weld i diameter and that have location identifier that matches one of the i 1 19 ) J a J i
b i summary location class criteria and can cause blockage. Calculate: f f t
*- the summary location sequence frequency, defined as the sum of the break frequencies for the selected welds. ;
t
- the summary location screen unavailability, defined as the ratio of the overall sequence frequency to the summary -
location break frequency. 5 Substep 5.5.4 Calculate the total summary location sequence frequency, summed over all weld diameters. Save the total summary location sequence [ frequency for use in the Summary Report. , i Calculation 6: Data for Probability Reports by System For each combination of one flow rate, one allowable head loss, and one screen area, BLOCKAGE 1.0 - shall perform the following five steps: . i Step 6.1 For each combination of one system identifier (from 1 through 10) and one weld diameter class, select all welds that have the system identifier and are in the weld diameter class.
~
Calculate the overall break frequency, defined as the sum of the break frequencies for the selected welds. Step 6.2 Calculate the total overall break frequency, summed over all combinations of one system h identifier and one weld diameter class. , Step 6.3 For each combination of one system identifier (from 1 through 10) and one weld diameter . , class, select all welds that have the system identifier and are in the weld diameter class and l that have location identifier that matches one of the summary location class criteria. . Calculate , the summary location break frequency, defined as the sum of the break frequencies for the selected welds. Step 6.4 Calculate the total summary location break frequency, summed over all combinations of one j
=l system identifier and one weld diameter class.
20 a
)
- - - .-- _ ___ - _ ~ . . I
i S t i i Step 6.5~ For each insulation destruction model (L/D), perform the following four substeps: F Substep 6.5.1 For each combination of one system identifier (from 1 through 10) and one weld diameter class, select all welds that have the system identifier and are in the weld diameter class and can cause blockage. Calculate: ;
-t
= the overall sequence frequency, defined as the sum of the break frequencies for. ;
the selected welds. .;
= the overall screen unavailability, defined as the ratio of the overall sequence (
i frequency to the overall break frequency. _j r Substep 6.5.2 Calculate the total overall sequence frequency, summed over all combinations g of one system identifier and one weld diameter class ! j Substep 6.53 For each combination of one system identifier (from 1 through 10) and one I weld diameter class, select all welds that have the system identifier and are in the weld diameter class and that have location identifier that matches one of . > the summary location class criteria and can cause blockage. Calculate:
- the summary location sequence frequency, defined as the sum of the break frequencies for the selected welds. j
- the summary location screen unavailability, defined as the ratio of the j overall sequence frequency to the summary location break frequency.
Substep 6.5.4 Calculate the total summary location sequence frequency, summed over all combinations of one system identifier and one weld diameter class. If the total summary location sequence frequency is not within 0.1% of the value saved in r Substep 5.5.4, print an error message and continue. I i 3.1.4 Outputs , The output shall include the following data: ; 1 I 21 l
?
v
?
, . - _-. .. ~. .
- A list of errors,if any,in the input' ,
- A description of any errors encountered during processing
- The table of welds a
- The table of targets, including the volume of destroyed insulation for each insulation [
destruction model (L/D) -
- Sequence Frequency Reports: sequence frequencies by diameter basis and by system basis, !
overall and for each location class, for each combination of one flow rate, one ! i allowable head loss, one screen area, and one insulation destruction model (L/D)- t
- Probability Reports: screen unavailabilities and sequence frequencies for each insulation destruction model (L/D) and break frequencies, by diameter basis and by system j
basis, overall and for the summary location class, for each combination of one flow rate, one allowable head loss, and one screen area
- Summary Report: total sequence frequencies, overall and for the summary location class, by 1 flow rate, allowable head loss, and screen area 1 3.2 External Interface Requirements (
i 3.2.1 User Inte
- ves -l The input to BLOCKAGE 1.0 shall be an ASCII file. The user shall not be required to place any field ;
in a particular character location on a line. I The table of welds shall be reported in approximately the format used by the PRA program and shown in Appendix L The column of segment lengths shall be omitted. The word " PIPE" shall be replaced by the word " WELD." The table of targets shall be reported in approximately the format used by the PRA program and shown in Appendix II. There shall be one target per line. There shall be three columns each for target length , i and insulation volume, one for each value of L/D. The Sequence Frequency Reports shall report sequence frequencies by diameter basis and by system j basis in approximately the formats used by the PRA program and shown in Appendix III, with the following changes: .! i
- the label " PROBABILITY OF BLOCKAGE" shall be changed to " BLOCKAGE ACCIDENT - '[
SEQUENCE FREQUENCY (/RX-YR)" i e the diameter class label shall be used to identify the diameter class ; 22 i
the columns that are totaled in the PRA output shall be replaced by one column for all. welds, . with "OVERALL" as its heading, and one column for eac5. location class, with the location class label as its heading (columns headed L BASIS or LENGTH BASIS shall be omitted) -
- the NOMENCLATURE section shall be changed to reflect the changes in the headings ,
The Probability Reports shall report screen unavailabilities, sequence frequencies, and break
;[
frequencies by diameter basis and by system basis in approximately the formats used by the TABLE program ' and shown in Appendix IV, with the following changes: !
= the phrase 'WITH WELD TYPE WEIGHTING" shall be eliminated
- the first two columns of the system basis table shall be the same as the first two columns of L !
the table > sequence frequency by system basis
= the phrase "BLs AGE FREQ" shall be changed to " SCREEN UNAVAIL" Columns with this heading shall have no entry on the Total line.
- the phrase "" BLOCKAGE PROB" shall be changed to
- SEQ. FREQ."
= the headings begmmng with "PI" shall be replaced by the location class label for the summary '
location class a the two adjacent columns with headings "PO" and "PI" shall have their headings changed to a .- two-line heading of which the first line shall extend across both columns and be
" BREAK FREQ" and the second line shall be "OVERALL" for the first such column a
+
the summary location class label for the second column
= the NOMENCLATURE section shall be changed to reflect the changes in the headings and to i
be consistent with the tables of sequence frequency 1 The Sununary Report shall report total sequence frequencies in approximately the format shown in . Appendix IV, with the following changes: a the phrase " SCREEN BLOCKAGE PROBABILITY" shall be changed to " SEQ FREQ (/RX-YR)"
= columns reporting length-basis results shall be omitted
- the headings "PO-W" and "PI-W" shall be changed to "OVERALL" and the summary location class label, respecticely-
- the NOMENCLATURE section shall be changed to reflect the changes in the headings and to j be consistent with the other tables - !
I l 23 i l
l 3.2.2 Hardware interfaces ; The output from BLOCKAGE 1.0 shall be a stream of characters formatted for a Laserjet printer in , portrait orientation. It shall begin by echoing the input file. j J 1 3.2.3 Software Interfaces - . There are no software interface requirements for BLOCKAGE 1.0.
'3.2.4 Communications Interfaces ]
There are no requirements for communications interfaces. P 3.3 Performance Requirements i There are no performance requirements for BLOCKAGE 1.0. . t I 3.4 Design Constraints 3.4.1 Modifiability I The design of DLOCKAGE 1.0 shallinclude a discussion of how the design might be modified to accommodate each of the following types of changes to the requirements: ]
- weld break frequencies specified individually by weld type rather than globally by diameter, class a weld break frequencies reported by individual weld rather than the value for one weld times the number of identical piping loops that have such a weld
- different insulation volume formulas ,
a different head loss formulas or more complex calculation of head loss, including the effects of,1 , corrosion products and other types of suppression pool debris
- content and organization of reports I
i t 3.4.2 Hardware Limitations The software shall be operable on a system with 20 megabytes of available disk space and 2 megabytes of available memory. r 3.5 Attributes . 24
3.5.1 Security No built-in security measures such as passwords are required for this pr' oduct.' 3.5.2 -Transferability / Conversion There are no requirements for transferability or conversion of this product. 3.6 ~ Other Requirements No other requirements have been identified. ]
'h 6
L E t f i
~$
e i 9 2 f a
- i. l 3
l t i 1
.'~'
mm_.. , _ . . . . . _ _ , , . _ . _.. . , _ . ._ _ . - - - .. . _ . , . _ _ . ~ . _ _ _ . . _ _ _ . _ _ . _ _ . _ _ . _ . - . . . . . _ _ . . . . _ . . 1 7 4 8 I
' t i
I , .s . t a
.',9 h
a APPENDICES ' l,
?
'o
'I 1
a I' t I
. m i
E
,i 4
I k
..?I i, +f c
a.
}
I '. i
. L r
I 3 5 i e i 4 .4, j 'f I e 9
- e N
I
-1 I
'. h.
o6 s k
- f. ..)
i
,. a
' t
- i 5
i f
' .I
-i i
1 E ! 6
- 1 9
4 . p i 3 I n I 8- ; a ., iJ 4 3 3 e t b
+
r e hl p i 26 i f l-
.h a . -
I 1
- 1. - Sample Weld Table Input Data and Output Format -
A single page, Table A.1-1, is' copied from ref. 2, vol. 2. Each line in the table corresponds to a break descriptor input card. The PRA input deck consisted of break descriptor cards followed by all of the target information cards for that break. The target information is found in Appendix II. e 1 5 1
)
5 6 h ( 27 [
., pg gg 3 .C #~ ~o ti -"
' 'i, ~t r- ~
- 6 p - *~ *
- s st di 3 c o*e * *t se er
*: e*t 41 3 *c o*o *> or 1> ~~*
.T s '6 - al
~-
i 3c d 'i~~ ' 6 ~ ~ **' e t ' ~~ s t
*: e*a at 3 *c o*e *r oc st
*l di - 3 *c o*9 *> tc DD
-- t g
8.c g g- gg 2. ~'t ~~'o*S ~~~ ~ E
- 9c *** ct "'~~~
s c*s as 3 c oe. *t sc sp
*l o*s - di 3 c o*9'
- tc 8 ) ~~ ~
*5 c ' 18~ dl ') a c oJ ~ I>t~~~~ c c . ~ ** o p
'l s*l dl 3 *c. o9 '> cc Ec 58 3 c . o s ,,,,,,,,,__. *r _ ac o c ,,,,_,,,
*! d i -_ =
oo __ , o c , Ac ol 41 3 c t c'c di 3 c os > se oc
,t
.4*o sc di di v__
3
*F c
.o's o os
- P ._
__ e c _,, s c . , ,_,,, ac tc
*: o> de s c o os > se cc
*1 s*c .41 3 c o*os *t _ . s c ,_ E c _ _
o*tt 4: 3 c o*ot *> ec ac sc di 3 c o on > cc oc
*F IC d l, 3
- F_ o*al , ? >, E c ,,,_. 6 C
' r. 1*l d i- V *c o'o8 . *> 8C Sc s tK 4 y *c o os > cc Lc
*1 c ' c. 41= * :E o'o!' _:t El _88
*: sac di 3 *c o os > si sg 1 s* al 3 c o os *> 18 ec
*L s*F. .41 3 *c o*ol _ *P. _ _ _.88...T3
*: o la di 3 c o ot ** si Ec
*> o*l di H *c o ol > -
DI Sc
'{ 9'E di H *f $*EC __ $ *
- o c t ,, ,,,, o C ,__ . g o*c di n c c tc c its 6:
*c s*ss di 3 c c ec *c set si < oo N
*1 1*et _d l 3 *p . c tc _* c ,__ __, v e s ,_ L t .. __
'9 6*o dl N c c'Et *c all 98 on 6o di H *c c'Et *C Yll si .
*4 9's. 41 N t S sc *c, et es
*c s*c di 3 c c se *e a cs
*c s*t at 3 *c c se c e et
*C s*c, di 3 'I c*pc !c L _ L 1. _.
*c oc di a *c c ec *c e et
> eo 4: N - p *c c*sc *c s a
*e o*s, _ di N !F o *
- c . __ _
- i ._et e
*8 o*G dl N *C o*DC 'l VP 1 t o'c di 3 c o >c *6 sc e
* & _ _ o F l. VI 3 *R o'tf . _l.
._.. v c _, s . . .
c st di 3 *c o*>c *: se >
*c sa di 3 c o*tc *a yc c
*c 0*C. 41 N F .o'tC *l _S S , _ ,c ,,_ ,..,
*c o*C di N c o*ke 8 V4 5 a___. _
st3Duvi '5I41' ---. -__- otave W3GimN JD 141DN31 3003 (C-C'c'SW1) B313nyt0 531JRV10 of ol
- Dtt ItunD11.tR11Y3Q1_._34M 9D9._ H1DN3) . .)did. ,_,M31S AS_ ]dl4, ,_WY3b8._
SNGl15301 AN3A3 DNiivlil,HI G31V1Tilsod _ _ _ _ . - -.___avemns. vivo.ndNi _ .__ _ . . . . . . _ I-T*Y 3'IUYL w
, , ,. . . _. - .-. . -. ~ . . . .. J
'i 11.' Sample Target Table Input Data and Output Format .l A single page of Table B.5-1 is copied from ref. 2, vol. 2. This table summarizes target information j input grouped by break number. Each line in the table contains the fields from one or two target information - .j i
cards, plus the break number to which the target information corresponds and the insulation volume. The j PRA input deck consisted of break descriptor cards followed by all of the target information cards for that. i r break. The break descriptor information is found in Appendix 1. j
.i i
t
?
?
I a 6 1
'k I
.i
)
?
i
.n e
?
?
'(
29 -I l
-1 i
- 1 1
i
+
i : . . i . ;
' ~
l j ;- * {
, : ;. t .
I ! , . 4
! r i
! ; j- -
1 e t - [ r : i i 3
~ .
; i
; i J- . . i
-!, .i u a I
o "
! ! e ; i !
{
! . I I y .
l ; .
.wn
...u..
.H Js.,e n. . e. O. n. a. n. n. , . . e. n. n. . w. w. O. e. n. o. n. s.
w DD.i e , n wCO OO ---n O- - -
. ga . . . - - m. g w o O O.
e ,
- : k ll' l - . 1 f s .
-l .
! ~v v2 . .
' l l - l'
- e .
. . 1, ;
. . I .
4 1 . a O b .i e i e e o e e,ne See I- e m m e. nann- ennn e G e' i me nn e om :. n .n n n n nna n-
; t
- g. '
.e: ...
i i i 1 . .I i.
.J .. 9 I l l .
- Dw . -
l t e g- www gww.s ww w r ca z e- se l. I .
= . > 4
.. I I Iww. c w.m aw wwwI.
e.. .. e
- I
-l l l-i ! I e . an 0 O -
O .O O OOO O'O O y O*O O O OOOO OO IO
.c Wa ern .
8 SC w 4 . ar.t
- er.t *. em. et.t.tr.l ar.t ar.t.or.t *O all*** en O en. ar.t et.t en. O - e ,E,t DUZtl we == U $ 79 n.* Pp et 79.= e.
e
*=
- v4 f9'** n . - *= == .= ft .e .
, n
- 2. 2. 2. l e3* I e l .j 1 8 I e
l .. n' .e. O n O O- en e je. ' lO
- e. z e n One One O D O en e.
g= 0 em w**6d O O e= a *
.=g e,
y O. I O'aW e . g=. O rt. O. O. eear.l O. O. W.D n. er.l.. ' .e l,. f5 em 20 .e I esel fg EIMn *= O *"
- f'l n e N.e' == f9 e Ng 24e2.s#-4' e a o N ** ltd 1-e m i em * *8 O O. 9 O OOO . OO OOWl6 O O O t>
OO O. 8 f,i2 en* 3 .e O 080 0 O'.0 0 OONO O. O. O. O.g. o. O. ' O 3 g OE=== .4 2 44 O. O.* n. ,. e e et e-n ,. O. v es an go g a rg g n gygg g: pyyg .g .g C3 e o e n n 99 n n n ' . O'* * *" nG 8l . b r o h -
.wn. .- e n al.
e.= .
. mn. t,
. J&ee .
g,. 8.O. g, ,yg
. .g gg,,
.e) - e.,n.. . . e. a.t. ., e. . .. e =
g,gg g g. g.g ,,. ,g - ,,,,g ** DDee .= e s ,g p.,,y g ,, , ,, ,y g n ne gg 6,9 . g - 4 em J - g em q n h I p
.E=3ms O. p t 3 l
O
.l ' l- l D ens t ' e e' se :e . e el eOe e m en ei e o e s: - e nsta reg**e ee .e - I . '
o as: si n- n og .es I n eg g sg to es e es eg n a n n n et n fg n .n l e e , e . e i j-
. . l- l l 1 i j gw l l t i i . e 1 . -;
....i 33 = = . = =. ..ww s w . we wwww n o w .1.. .w ,
E 2 s= I 4 a m. a .=as a a s- m.ut es. ene . a en. m e . a en are an. 44 we en em. s,.
=> 8 ;
- l l t- 3 y t l l l 3 .I lg
- I l ! ! I +
[ '
. *en4e OO OO O OO O O O O- O O O 0: OOOO OOOO 'OO -O era en
.a DuZ8 is W -se en. en.. . v.t en. en.
- en. e.l en. er.n en er.6 . O. O en. en. O. en. v.t O. ar.t O. . en. en. .en. .' I >
ee = w eI n n: n gy .n
- gg n, eg en .e. pp . pp ge' gig eg en gg n . gg g rp eg n .=.
ZZ20 - g g
---e l l l . 4 . I 8 l,
>z s. e a:, 0 m once O-n n e OnOc cone se ..
ens > 9 . O n. O. n. fg. e.' O ft Wt f* .pt .
*0st 00eIi $ e=
. e. O. 59 O. e. O. Te fi fg* .* e . . e F*. O. w. f5e - O. WI e , t.
M et et e e fg e e. w eg e= gr O == e .=' e> = . (W 2 h e *
,n - gl,,e e o=. .e.
.. g.
~~ l. vM n 8
l l e l l ,1 : .e l
; , ! ; l 1- e 09 Og A SM OOOO 000 6 OOcO. 000e no n.
- k
- w 3P .$.e O sg O. ag. O. e. og. O. o. o. O.' O. o. o. ee O. O. Ne O. O. O. O. e=.' M. O. .es.
O 042l a m ee p - w es e . e eg ...y w we 4 m ep n w ge e o eeOn w-= et O en .e g . n Wo
- n. nn en n
- nn
. en t-n , nn n n s
- I- l.
,5 l*
. 'i l l 1 r= t ; [ I 4W w := .g . .-
i e
. e ., 1l. .. -
3 , .- .O :. a.. g
. i
. i . .
I e . -g i e .l $
. ' I . i e I a e . .
B-15 : 30 1 1 l l i
t Ill.'- ' PRA Output Formats ' ' f I ' The PRA program generates reports for a single value of L/D. One sample page from ref. 2, vol. 2 is ; included here from each of these reports: } t
. Table C.1 _._ D " Probability of Blockage . . , diameter basis' . ,
Table C.1 _ _ S " Probability of Blockage . ." , system basis m h
. .L 6
a r i
'I l
L I _ i
?
k 5 31
= g e._ 4
$ 1 1
9 0
. i OO 00 1.. O i 584 4 9 e6 M $ h
- e et
- 4 a.s I* s. ens es.s w e.#
D M G) WM f O Pt G. I ep 8 Na I* u .t 6 00000000806 I 2 e 06 ' 0 0 0 0 0 0 0 0 0 0. m. .=.6 0 0 0 0 0 0 0. r't. gt
- m. .e i O O D O O D.O O O* O O O O O O O O O O O O O O peu O D O O C+ p4 O a e
. 8 en en. sie 0W le4 4 OO O' O 8O M t e e*B 1 0
- t ww ed e
' e>n. .m.
4l
.. e e m O. n sa 4 .est e
4O I 34 8
- I m e= e art e.
== m 4 O. O. O. O. O. O. O. O. O. O. to. f1. O. O. O. O. O. O. O. .O. em. rg O. O. O. O. O. O.. O. O. e
'g
- n 3 l30 0 0 C O OO O O O O OO.O c c O OO O O O O O0m I OOOOOGIO j . $ Ak OO $O
.m 6 ee B e
.O e eni erem.m e0 nas eat in W $M law e.M e g4 4 $e 4
n=
. a3 0 O. O. D. O. O. D.O. O. O. O. O.'O O. .O. O O. O. O pt w=* f4 08 0. O. O.* O. O. O O. O. O.s e =.=
6
*en, O O DeO O O O O O O O O O O 0 0 O Oto O O'O O OeO O O.O O O 6 O -
e ad 0 .WI We 0 WW O
- 1 OO e r'P *Me 8 0
- e.8 O == l en.d chanJ O
9Z e =Pt en 4* e O .4 s O e 0 u a(4e{. 5 O. O. O. O. O.O.
% ens < D.O. O.O.e O. O. O. O. O. O. O.**4R. *
- 81. 1 O.iO. O O. O.aO O D.aO O sit 4 .==
e
.d em 3 0 0 0 0 0 0 0 0 0 0 0 0 000000000000000000' w 4019 t
w d. 2 4 m 44 i O ee cq o es0 O 4 enf O == i w and nad O at an a es .g o es i at o ss n- 1e n a. 4 e 4 ** 2 . Sa I O. e O. O.'O. O. D.O. O. O O. . r.is O. O. 08 0 0. O.O. O. ev. e. O. O.sO. O. t .O.*IO. O. O.
*=
w wt .= .J 4.' O O O O O O O O O O O e O O e O CR O O O O O O O O O O O O O O O 4 O {w e.e > wt eri ee a . t OO 4O D* h e4 end w * . a. $0 M 8 O.$ ena et9 and est 8 9
# . est em m 4 f4 esa o b .* 3.-=i em O g n n ,w1 ee n aw .
- 3 e.
*a g sg and ar en a, aem t 9 O. O. O. O. O. O. O. O. 0 0. as. ar.t O. O. D. O. O. O. e O. O. r.3 et e410. O. O. O. D O. O. O O
u d em 340000000000000000000000000000001 e., e. y D.= d o eM e i en m en e *O D O.a Il en eri 'O O e OO O e.en 4 en et o3 en I a8 6 8 D ad.mg o.g ena aw eaf ' and and saa s e 9* an.a3
*= 0 O. w*su se**. { rt en v i et w e.
as z u si EO wW u s w =- . -O s l Oo O. O.0 0 0d 0 0 0 O. e w wi n.ev.0 0. C. O. O. C.n. n O. O.O. O. O eO. O.Oj O. O.D e4 4 84 e e. a-O s oda
.wg x,.es.
wg ,
>- t
*= I and O s O O 4 es8 *= w 3. 44 =A 8 O O Ot O O Oto O O O O 0 0 O D O O O O O O O O O O O O D O Os 4 O a < .a d =d 3 a O *= f tO e art .4 .J
.g 3ss.E6 3 en.e3ZD e4and u and a8 - M 4 en ** 4 *O
.D 9 ert en O
O . 9O ea u z 3B w> en en ena, a ee *sam o .an.d M M w e O,
-.cOwO EE O .e =* (
e m ens ens ear 2 en t. > es er e O 4 e esa naJ we n i 1 e.nf 3 e .
-z=www
<O O et O em z.a =er se .=t h EE eOn c.t i "O 2w O3 ens em 3 ens
*F O Gh! Z . IE e 0 O O. O. O. O. D O. O. 0 0 e = . = .
.ao em. O. O. O.
. O. O. O.*. O. D. O. O. O.
d0 O. O. g D. O. O.at O u 0 gr u et == O r.3 . a.(t , w Q es# 2 I' ww and #& $ 3 'iO O O O O O O O cm O O O O O cnO O OO O O.O O O O O O O O ep t o ] G" - m 3 8 3 s w w z e. e6 s w z u-s3m*Ow3 ett art 1st >= # P= 9w s ** w O. dE ans et .'E D= 264 u" .*C 0O l . en at at O io O O - .= 44 a wt a. 3 wte= e.m ==suu
- 2. ans ass one 2s 3 ** ae es e a- e e i M *=
eens w aan af w
- 2 12 w
w s.,e enwow e r 8 2---zwwm-ww 2 2 an8 2 Z e 1 O s u*en I
.. cr an l4 - Il w
> e -e
> > - z er ::
=aiwwzwwa a.wmleiO O. Or O. O. O. O. O. O. O n. e. O. n -.a. O. n.se.O.O O. O. O. *
- O. O.
- O.4 O . O O am8 O s > Z Z 22 2.s . yww w 38D at .O D ia
= .d 6 q000000000uO0000000000000000000sO l e 1 0 . * .a= w w w e> a> > > > ans O O ens w o u u
==Z.=*
0 art erW le ap e e l tw ; *= .=d w ens ass ens ens z .: .c wzxm vi O.O G4 eOOOO ja a see g *fo
's 8 e --
E c k h ei. es. m o u o g s's l . M. . S 8 a ed ,3
.m e l a as wwrm .wwww I tw 4O m
O 00 Od I
- es m a ce .
-e6O>>>>>
g C O O O O w C.s a erm>en w O pg,0
'
- I en i en en so en '
$n . O gg e e. e. e.em.O. . O ,a e.
l ..aac.3e 9 t . O. O. O. O. O. O. O. O. O. 40. #10. O. D. O. O. O. GD. lO . t .N. et #10. a, O.. O. O. Een. O. O. m 3O. O. 5 *e. , ,g ansesse t
, 9*O000000000000000000000000000004O
*I at .a s...
w w. s. s .s. == c Q 2 D 3. s. .s. el I OO vn i. .an e e e.
- ar l 0000 g : O w.s .m e, .<m m. m 3 er ewwwwsw.me ,
; en- le. . e si l .e i e- ,
i e a g saa M a m m O m m e- a .n.a z e m w w O O O O O en 3 3 *= > 0 O
- M 41 ! ens a.ar
, ens and ens ua s# == > GE IE EE sE st > D D O ** ss a j a3 4 . W = M v O a3
*0me. O O a. aw a. a. n en E Z p= ees as a.
. O#; O ap
- En
- Pt == #
- at O. O. O. O. O. O. O. O. O. O. ==. e.t O. O. O. O. O. O. ==. . to. e.p W D. O. O. O. 8 O. .O. O. O. #
s6 9 eea 3 m 3 at8 8 8 l EJ O3
.s 800000000000000000000000000000040 0
* '3#E l e
I 4 ( I
##**
- 9w e . D u o n. u.
OOOO eO st -
- i. ='
e et t at 4 e 'O' O8' e s. e e ea wwww l te *
.Uesa a. . 2e -l wme j ww nw 0
-n .- .t. w, m w O . w., J
><e. ,
' ce rt rt m as en 1m 0 er 0.
e em s. > ew
- O em 4. .
. 3g 0.O. O. O. O. O. O. O. O. O. c. en. er. O. O. O. O.. O. O. sp n. r.t n. O. O. O. O. O.e O. . O.* O. e ==aw zOn am p wt em 3e.t I e s.00000000000000000000000000000000 6 s-O m .m
.d O .e.. m.
l . ! t t .
- e. .
t e4 < . .2 en en 8 ed R
- O. .tit O. m. O. O. O. O. O. O. O. O. O. O. O. O. O. O. O. O. O. O.4< O. O.
. O. O. .E srea O. O. O.0O.
awOO=ua m 3 3 e .d 6a m as ' i i < 2. . gton n rt rb v at e e O n w. e en O n w e to o n e cm as O N w W ED O f4 g e-m p gg og gg w at e. 3s e.
.4 O. .43 I O . .-- n n ow n n re ri rt fs et v v w w w en art t O "
O O a. aw a, en a. e '
! l l l 1 ==1 I I I e i i i' i i I i i l l
. .l C-3 1
32 i i i l
l
, -e
- j t. e I o. e=e e et .
O O O
* .e i O O se e s , el 1
.I. .e.
o. e
- s. w e : aw e.d as e.s , t eJ e e aO j 2mI ce .O.
I n n a m - w- .
- n i en I
. =.d ee e O. O. O. n. O. O. O. o O. O. O. . . O. O. O. O. O.
. O. sw O. O. O. m. O. O. O. O. O. O. O. O. O. *6 O. 4
- o. n. O. O. O. O. O 4 -
- 4. 8 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 Ce 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 3e e i
- s. e o ed e en sw e. > em e.
I e. O O, O, t O.e I e . .e. s O, e 4
. i. =n =. w.e 'd
. w w 4e we em vi
*O.se6 O en o. g =n ,
e,. . j ,w. .- n c *. . O '
. D e e O. O. c. e.t O. O. O. . O. O. O. n. O. O. O. O. O. O. O. O. O. c. e. O. O.=0O.d O. O. OOO O.U O. wO. O. O. O. fw e +
UU .3 en 4 tOO00000000000000000u00000000000000000000$O www o e . .e . w. . E i]e . , I Y. 5. . 1.. " O~e-Y. < u. e= . e ae M 4e 3e [ a g e.8 r E e4 08 ' $ e ew 2 4 J
- ens 4 8 * .e.n en ex g e 8 i d e*O S 0 0O.
g 0 0O. 0 0O. 00 O.0 O. 0 0 O. 00 0O. 0 0O. 00 D.0 O. 0 0 O. 0 0 D. 0 0O. O. D. O. O. O. O.u e e ws p s 0 00000000000000$O s . O. gO..a.sO. e=ans O. O. g g 3 O. O. 8 4 : en 3 m u ees i em
&* t-e t we w O z we t l l O eo Q u,wsgon ene = eas e. 2
, I e m4 e .a .s u 0d
- t o
-e I
.O 9 .e. u.m g i88 mazu
. .w e e
.e 02-e
- D e 6s 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0. .== . 0 0 0 0 0 0 0 0 . >
.O g O
40000000000000000000000000000000000000000 we e k e e
=
w, I4 a s w O o. O. o. O. O.
~
i O *.i i.I . Ohl s O 4 E em 6 Se l. n eu as ens e ans e n O 33E3 3.4w w w w ye
- i .M e e' - n n; et 'e. i e= .= e= 3 drO. O. .C.
O. O. O. O. O.. O. O. O. .= 0. O. O. O. O. O. D. O.4 O. O. O. eT. O. O. O. O. O s
- I ne 4d S 480. O. O.e.t . O. O. O.e. wt em gg wg art -
>s=>>>g
- l O 4, 19000000000000000000900000000000000000000$@
t? ****\**~ t es
- l% 3 en s es el
.e
*Oe e
O e al e e O e e O e seso. e ans
>**d>r a:ermog e .a .:
.g g
** We i O == t,. ; ens es and e e >
ens 0- ' em 4.# M ta e ese
**
- v . 9m 3. 3. 2 .. 3 3. e.
4 e. ens er e O.= n wt 2EEggs a HB
' D e 4s O. O. O. f9 0 0 0. .= . O. O. O. n. O. O. O. O. O. O. 9 0 0 . 0. .= O. 0 0. O. O.. O. .*p O. O. O. O. n.**4 O. O. O. O O 4 . C a.aw a. a.mo sh
- t 3 e e
SOOOOOOOOOOOOOOcOOOOOOOOOOOOOccOO0000000000 -e s W -8881
*= 8 f
- e u e. *g
$ a=
sq O O O eL.
. gg et em 2 s, .
0 g O ees .m e.,
> 3 We em O .*O=
e4
> e.4 9e et e.ns
=g as bl l *$e9.se oem c a s > .s .s > ,
e =8 ce $ t t . me . d ensem ed O .u.s 2. en.g 1 em' M" O e.Z *e em 04 O O D e= .4 ho w a 3 .4 e 4' O. O O O O O. O. g .... , O O. O. O, c. O. O. e. O. O. O. O. O. O. O. en. O. O. O. $ .O.O.ge O. O.O. g ,qJ,.. fft. O. Os wn O. O. O I G 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0,h 0 0 0 0 0 eO, ens Osd . P
*" t'8
*OO Z .*3 e GLOOOOOgGOGOOO Lo u wl am .3 )
e 4 an s - u d e4
- ed
- el em O .
l O l D l 33 3 g l EC GI e O. p s. o. ll , ma u G L m eg e es es ms .: we .e. .
.4 e O.d e*u 6.d a 4 O .= e e ce . is ; e,e .d > e. es eg es em a.
sem* **
- e n O O
O e S e e O. O. O. O. O. e. O. O. d. O. O. a. O. O. a. O. O. O. O. O. O. O. n. O. . a.O.O. O.O. O. O. e. O.O.O. O.OO.O. w O. s n. E so e.0 00 0 0 99 0 0 0 0 000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 9 0 0 0 0 i qen 0
.e r i
.e .e e
I
- f. >
. .?.
e i i e e, O . O.
. i
,.0-- e . l ;?
- e. .
-- : O. . . e.l
.. . .e e ,
-s..
e .ne
.. e,,,
O e , i e. f e M f l .,. .
-r.= - S I O. O. e. n. O. O. O.O. . O. O. O.O. O. O. O. O. O. O. . O. O. O. O. O. O.
O. O. 09. O.O.0. 0 000.. .
. ;.3*
ewO i O- gOOOOOOOOOOOOOOOOOOOOOOOOOOOOO*10000000000;O
,e > . . ."e. 5
-....e i
=um e i .. e *
.vi o. x x w. .e= +
- a. = i se e mi O O O i
o.
= i e o I =.4 .d a s en e O ee .a .e i .e m O - e' s ea
.s O
- .e e e
.e a e e.
w ' ie u em- v u. . . S w a ns 3D
==1 .- a m . '
e . O W p.wO. 4 o. SO. O..O. - uO. . O. O. nl S e 9 0. G. O. n. O. O. O. . O. S. O. M. O. O. O. O. O. O. O. O. O. O. S. O. O.g O. s
. O. '
1 0 O st u a em .O.e.Eesens 8,9 O O O 9 0 O O O O O O O O O O O O O O O O O O O O O,O O 9 0 O O,O O O O O O O I >
. s.6- .n
,e- . w . e i er -
2 to ! e! O O O - 3., . .z. .. ..z.
. .z.
T. :l
-e.. . O. O. . O. e .
O-.- . . l .
* . eM .
.e . .
! O
- z. w e, ...e.
eme e
?
O M e A1 i
.s.a2229 l
e t z we I - n e . ..
.i s
w1 s O. O. e. n. O. O. O. ..O. O. O. . O. O. O. O. O. O. O. O. O. O. . O. O. O. O. O. O O. O.
. .0,,. e
- O. . O.li e. n. O O OOOOOO.OOOO.OOO,OOOOOOOOOOOOOOOOOOOOOOOOO * * * *
* ==-====
--=- .
l O i O I . .'n. O. : O.
-e
.s . .s . e s e.,e ,
l, lO.. ,. -. l 13... ...- . O u o
., .e e e e
i.
.e -
e
....s.
..e... ~
- we I .
3e , .,. .,. .,.u-
.6O.0 O.0 O. 0 n. e .O. . O. . .n O. . . n. O. O. O. O. O. O.
0 0 0 0 0 ,.000000000000900000000000000000sO O. O. O. .O. O..O. O.n.O. O.. O. O.O. O.O.O.O.O. ! . O. .,. .,. .,. ! e+ *e+ ' O e** O- e+ O.e+ o e+ O- e+ O e+ O e+ O e+ . . t#3esga m 3. 4 .*
=u I O-I e - e e e ee enoe e O.
e ee .eee-eee=eem . se-eee e enoe e es e een e ee 6 ee .eee en
.ee ea . .O. 4 u
.n .o. e4 9.v.e a= n S .o e eg .mes .e= 3 e
l' el e .* .= #9 e .= .o. e4 e .= e5 a es. e.a . et e e ee n .= n e om .e. eg e = eg , O, t= a= , e O m -
#O
*= . - et M et re M n n M w w W eOee e > e. g9= > e S e ee O S e 9 O .O O.= O. e- > ** O e se 8 fl I
M O 4. 4O.A. 4 4. .
'1" ** 'l l' i I I I i -i -
C-134 . 33 a
, - . . - ~ _ . _ - - _ . -. . , __ ,
?
P I IV. TABLE Output Formats The TABLE program generates summary reports for a three values of L/D. One sample page from ref. 2, vol.1 is included here from each of these reports: , Table 4.1.1 ___ " Summary of Probabilities ..." , diameter, weld weighting basis j i Table 4.1.1 ._.__ " Summary of Probabilities ..." , system, weld weighting basis Table 1.0-3 " Blockage Probability Summary Table" i
^
1 l f 5
'r e
34 i 5
I t 6 i
**>*= ft t Il e es e O
- e W 89 O Op.
G.OO # 8 4 I O #= e r e se e ens - ens ed w me ans w as > .
=e-r O. O. O. O. eO. O O. O. O. O. r ,=. O. O. O. O. O. O. O. m. m. es. s O. O..O. O. O. o. o O. m.
j e,
- i. go i OOOOOOOOsO* MODOOOOOnaMOOOOOO3One ,
e <a x ens K & et 3.O e e il e 4 OOOO. O l U m e e. se Os O. . i ea wwww .ia . i e w e.a w
- SO O4 O. O. O. O. t.* O. O. O. m. O. m. r.t O. O. O. O.OOgOM e e O. O. r.e n. es. e. O O. O. O. O. O. O O. vi.
es .J e g A OOOOOOOOeOmWOOOOOOmeMMOOO .
.._ .6 i
e se e O i i C. O O O e 88 W 4e l O.e pO 3 ras 8 . t e O O e a et I
- e ens eet w . I i
! w e s ens ans j ens U O ti O
==a )-
O. O. O. O. O. O. O. O. v. O*n. M. O. O. C O. (9.. O. O. e. tp =. 0. O. e O. * *O.le O. Z O. O O** en a et 2eEE. e ==Pe ab s ==s *M=K . e ..e8O O O O O O O O O e o e si *3 O O O O O O eg et e"t O O O O, O O O, O .= a I as2 l' U M . Np a 'en'*e: O f
. 00 l; e ee Ie to en em 9= g 3 O
- *E E l O 00 0000 t .
U w = ens 2 2 P
- l .- wx ww. > e e. sl g
'w a ee ww.
! e ee s wwwwl *l s 3 ans . u U m e- -
!O sa. w O 4~
O. O. O. O. O. O. O. O. w. O. m. n. O. O. O. O. . O. O. r.s e, es. *. O. O. O. O. O. O. O. O .O d w O. a=JeD%3 O e. 40" sv. e 3 e w e $.
. =
- 5 O O O O O O O O T O S. M O O O O O O m e4 M 3 M O O O O O O O O tt f ==Za. O = == a e
e e= ==
>-x=
er1 -
. 00 em n I 2 O. l
- aos 3 ens O ean e.
~ 9 te . t e w U.s ee. 1 e w d43420 -
I D.
.. OMS ab ens 1 ans ess
- end g
- 3 == ena *= es g.
l eis 3 emeen et e ** 4.. - O. O. O. O. O. O. O.. O. O. O. es. t= O. O. O. O. d. O. O. O.e2e. asem. ans s o .=
== enO. e. O. O. O. O. O. O. O. =.
m e6 e. l O O O O O O O O O O se M O O O O Ol O O O M sw O O O O O O O O == l = U 3 at 2 e ens O es( O e e. =d L
- e. **** i I eIO - w n ~~.O. s O .
* <=
e-Omww OO eOOO i g ! es. 2 3 em Z y g# 9 e l
. .af . e e
- 4 U > e $1 ad .$ a# 3ns .e.a nf.9no e Ow as and 2.e
>>ue ,
ens O O 4- - O.4 Ee.a.4 OA t- g O. O. O. O. O. O. O. O. O. O. st. rt. O. O. O. O. O. O. ri. e. em. l* > es.e to. O. M ensO. 2 3O. e O. O. O. O. O. sta e ens 30 , 4 99900GOOcceeOOOOOOeMMnOOOO,OOOO= a 8 e
** m ed.4 wOwamm 0 0a
= ens l X . .
e *) a - JO I d-. . I == = = = i s 24
- W 4 O, O I m O O O .s 3 et 0 O.
l
-30 l 1 O. O O. - i i. --- Os ,
e>r .w ww l e. e.s . , www M Om 3 w e 3 g es no moel 8 j O O= : a; W O.Owesa.ens m
> O.l O. O. O O O.
e ** a e
.M=.be=4 &9 O O. O. O. O.e O. . O. O 4. O. W. O. O. O. O. O. O. O. O. *. O. M. e* O. O. E O. a I en O enf O s O O O O O O O O ft *? e a. O O O O O gO O M erl em O O O O OOOOO O 4WD *l g
.d .as == 0
~
**OO I e
= 4.O O==== . e l
e e O es a e I .
.* e M eas 3 r l O O4 l O a : ,
.d w e* a
- a .E x0s. * ;
. er U > = en O O e 89e6 s
l es e l w.O.Oo est ens ens l I m ans es OO Uh . l v en.s . ea 4O an.d p O *a >0 =a O i O cs . G. Ose. . . O...O O O O.O . O.O.O
= Q4 R e 6.
e =8 OO.e O. O. O. . O. O. O. em O. es. O. C. L.e O. O. O. O.O. P e . * , e.ns d 3 e- and ens&4 , t enf 8
- If O O O O O O O C f4 0 e4 .* O e * .*J O O O = .9. est to O O O O O O O O O> =@ I l O e44
- s .
g=E .
.** ed O '3 ====e. l - ,
i
.Ow
** O p 3 e OO i OOO e, e =d a s r+ aa a M h e I ed I wt s. Oens eft e di 6 We ed.Oens e ed.Oeed ens -
p . 93 ,
**
- et 4. '
wOwswa 'I O U . we he O e O. O. O O. O. O. O. M. O. W. O. O. O. O. O. O. O. O. w. c. e. O. O. O O O O O O O eq e. O #9 == 0 0 O O O O O g *It e e O O O O O O O O I g 88 O. E
== e. T O. O. O. O. O. O. ,
ens O
=A w .* .
t.o ;
- Oe. e i .e au j e= . ,
====.0em4m & == 0 4 6 OOOO W 3 .h .. i 3 t W W en8 3 li e . U ** eu. 4 lO 4 OO#* . +e e4 4 g
3 e. U
,l aa esp ets 1 eas ed ans ens . ,
O N et OOs*Omr 4. l
- 1 er* OO O e o r= . est Z
I s St . . 2.= ** ew e, e =8 0 6-a 6 g.- O. O O. O. O. O O. O. 84. O. O. O. O. O. O. O.l O. O.
- e 4 las Ew **
um O e. E EO. *e. O. O. O. O. O. O. O .
- O O O O O O O O e= 0 W == O O O O O O
- e$ eft. O O O O O O O O O i
.mo04 :
- e JO -
t MEp
<- 5 . .O. .
+
r w enf & .=
. 4 g OO
- OO 3
>5 0 SW : + es 8 .
ens 3 ens ==. ew 3 E ab 5 E 4 O rt e 38 est esf ,
. t 4 eD ed ens ese U em U e O '
ens eO Oe , ese n. .a 32We r 4
*0000000O. O. O. e.n O.9 0 0 0 0 0 0 0 0. m. 0 0 0 0 0 0 0 *= 30em 0. 3 e ens e6 e M**Eer 2 .*en. 4 U
= 0' 3p ens and m.O e g O>
M st ese 0 9 0 O O O O O Oe O O ft == c O O O O O O O ett en O O O O O O O O O dE p en w i *b et w ! U06
- a
! ww. '
emw (M>D8 l 3 -O e e. l O.-- e O.OOO U += 3 h U S *S > u O m. l' f l Oe O. eea 3 2 ans nas 3 m= O O.ens e.d e 2O h
* . I ! ma sea % esa ese ens ans O w O 40 4&We3 E I 8
' d4 edee' * '
s 80 4
=
O a=e m. & > 0 e. l. j m.e o. m. O. O. e 08 O. O. O. O. O. O. O. O. O. O. M't O. O. O. O. O. O. O. O. O. O. 3. O. O.O. O. O. em 4 283UR 0 0 O O O O O O O O O 99 e* O O O O O O =* f1 ell eft O O O O O O O O O o= ed == D 2 e6 0 l. ce e. > 8 . er z > e enDd es ae t 3 O e c e art ee
- O ens and W 9 O 8
OOO 0 8 e OO' 4 4 OOO '
- 4 8 8 www a
w 8 w.eMOwel, Ouw=O - j l 9 w www ww -e . e ==Us==, i
* .i m t G .-m OO O ** 8. ens an. ses a.
. 224 '> g
+5
$ O. O. O. O. O.. O. e. .* r.e O. M. N. O. O. O. O. O. O. O. ET. H.** e.
** O.e O. end O.
0 0 O est O. O. O. O. O. #= l t
> O O O O O M M f9 O ft f9 O O O O O O O e M er O O O O O O O O ,.* -
4
..... ; o.=. 0 <==
. . . e ca. ee ,
OSOO e O ==
- e. MCE U en. U 8 O O O OOO 'OO 8 D= m B 4 4 e eee e6 seea 8 wwww w =Ow 0 C !
9 w w w www ww * .= e e e el 2mO ed 0 8 ehm i I
. I O.
e a e o e m e. e6 e= w
=&W g gg g O. a O. O. O. M. j 4
e O. O. M. O. =. O. e. =. n. e. w. n. O. O. O. O. O. O. M. M. n. e. O. O O. O. 3 , 6 fg O en e er O f9 > 010 99 e O O O O O O 9 e s* 9 O O.O. O O O O O ft....!
< i.8 3 O sb e e #
w
. . .0 89MF1T 4 M eW==OftW e e OfeT ee O#4* OeO M W e e O#9O I ** 2 t O ** 4 ,
== = == == e9 h es n et en f4 rs et rt w w w w w ee en >=
* - . l 1 ,
4-13 i
.i f
35 ? . ? i r e u _ _-__ _ ,
, - - +
I 1 1 e One.
.i , e i
n O 0 I a O 4. i_ . io e, e J O. e . > lJ O r e a s. ens a w , e.s e w e
.d -
e.i s e = e, O. O. O. e. O. O. O. e. O. O. O. e. G. a. O. O. O. O. O. O. O. O. .og. O. O. O. O. O. O. O. O. O. O. O. e. O. O.O. O. O.m. *
. WO el
' a O OI O n O O O n O O O. n c e O O O O O O* O c e O O O O O O O O O O O S O O O O O ea sI p. l e4 d are e e- '
x w w s' O O s. b O I O O O
. . uDee l
, ee 4 ,O e e 8 O.
g e- 98 e' 00 4 W w w w w w w W' , i d O t*
. swh3 O. O. c. e. O. O. O. e. O. O. O. w. o. m. O. O. O. O. O. O. O. O. n. O. O. O. O. O. O. O. O. n. O. O. m. O. O. O. O. O. n.
e, 3 O O O n O O O n O O o n o m O O O O O D,0 0 = O O O O O O O O - O O m O O O O O n
. 8 h e gh e e . e e e M 48
- O ~. e O
t I
. C o m m e. t e . O.
e .e O. O. e l . e- O. e ;
- na K h e = to e w - w 'w w O.d e w w w Omo -
U ==a f
& s' O. O. O. O. O. O. O. =. O. O. O. w. O. w. C. O. O. O. O. O. O. c. e. O. O. O. O. O. O. O.
* *O. O O. O M. O. O. O. O. O. 2 h. mwa I hwO Go es et el OOonOOonOooncwOOOOOOOceOOOOOOOOOOOnOOOOO.
8 M
> e i e a. e e m w
a we ens
. w w w w ts 1 Oh . l O *O g O '
O O
.a = u-
- wu>uo wCO e ae: w w e ! O.
w w e- [ w e , w e w e O w e memed ux=w22 uum=== ms O ss O. O. O. m. O. O. O.. D. O. c. e. O. w. C. O. O. O. O. O. O. O. n. O. O. O. O. O. O. O. O. n. c. o. n. O. O. O. *O. O. nOOeww deaTE e s s e.8 OOOnOOOnOOOnowCOOOOOOO=OOOOOOOO-OOnOOOOOn me 40= i
,' 2= O. a.s . >
a W a . e e e. 2 O==a '
. =
- a w6 i O l I wowOT&
O 'I O
- O . O >2 O n e al , -
.T I t
- w=%g a com s* ! ew We 4 a. w es .
- w e '
w
-wmw h e -ae e.l
.mog2O O. O. o. m. O. O. O. e. O. O. O. O. O. O. O. O. O. O. O. O. O. c. e. O. O. O. O. O. O. O. O. O. O. O. w. o. . O. O. O.sO. w=h
==wmO 3040 su es 000n000n00000000000000 00000000000=OO000= -unex= ;
w em a , s m e s e e W 2 = ws h ] l m g . m =*mOs 8 O O- O O = 0
. >s .o u >uew.,w e. i ed !
l, O.1 *i l e e e . =2=2 2 ,
=dOO 8* a d d d Omadre 2s Os O. O. O. w. o. .o. p e. O. O. O. O. O. O. O. O. O. O. O. O. O. O.. n. O. O. O. O. O. O' O. O. n. o.wwwg c.>>u
- e. O.
O estg . e O. O. O. O. m. , wO OOOnOOOMOOOOOOOOOOOOOO=OOOOOOOO=O0=00000= = g O w2 t.- a e
. =hdows
'34 6 =
- d I .= = l d I e I
- dQWMut t i
- D e* . O a O [O O8 3 O #
O = we r h 4 e e e as *
- o mOOO .J 230> & w h e t$' W . W *w w' a (
a w I
. g w' 4=> O n=om i O e h n O
- e == =w.d i 3 .me=0 hl O. O. O. O. O. O. c. h. 0 0 0. =. O. M. O. O. O. O. O. O. O. O. O. O. O. O. O. O. O. O. O. O. O. O. v.000000ammogw 04Dwas emowO to me a >
O0
= =m o d e 9, t.DOOmOOOMOOOwenOOOOOOOO=OOOOOOOOOOOWOOOOOO
. - 8 = e e. d l . O
- O = O ewO Jw mg f
meeuw30 8 O * - g l. ah em
,. eu>-. OOmr e i S 1' O. O. s ..O. ,. o. O.
.s,
.. x 0 w I w = W ! I w w w m um Red e O
- e 'h n O i
O e ww OO w w w e w O t'- >O so s== * &e C.O.O. O. O.O. O.N. O. O.G.=.J.n. O. O. O.O.O. O.O.O. O. O. O. O. O. O. O. O.O. O.O.09000000 De seg and to s w>m wan l O O 1 O m O. O O N
* = =
. O O O w O n O O 1 o O O. O O = O O Ot O O O .O O = .
= = O O O m =
.O O O
- O O O s.< u ws
, . 6 .
s
- l. O 'Od ?
. O . 3
.lO9 qe.
O O a O O Os h sawO m 8*' e 4e
- et i
tal w t 4 tal -
. . be de t
. ans=h. e.# e e0 31
.=
ene O t es e l ese l 4
.e O n 8 e f
> O b e = 44 I my i
=m k, e. 0 0 0 0 0 0 0. W. O. 0 0. . O. =. O. 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0. e. 0 0 0 0 0 0 . Og d wo 4 OOO m o ce eO OOv p=O S OO O O OO-D O OO O O O G O O 0= O 0 0 0 0 0
==O shes 1 = = l u. = 0 O O' = 4 D s
.ma=&2 e
l -
- Bm =
= uw m .u p 3 s:e. O. O. IO O.,
e
, O.
. j O. O. e = 4 O O O O m e. w W s
- i. w. =w w ,
w' I ' '3 s e 5.s Ems O h e l+ . w O ' n l' * . w'
& S J O e.
0 M' O
*2 *C3m 4 L 4. O. O. O. O. O. O. O. m. O. O. O. . O. . O. O. O. O. O. O. O. O. O. O. O. O. O. O. O. O. O. O. O. 0. e. 0 0 0 0 0 0 (w =2 = &, ,
sh e a e OOO m O OceO O Ov 0 =O O O OO O O O =O O O O O O O O 0 0= O 0 0 0 0 0 Ems w3d 80 4 4 . e Cue-2=O w I I * = w l . d
.
- N
- a Os sua
.m.Onh .o De IOW e O
e I l O. 1 8 O i .
.=*2=
==. w ~
=ai }.
W w e sg w l } w l I ' W 2 w. 3mm 28 O e e - e wo-u - 1wh O
=t' O e Dw OhI O=**
O O O. O. O.=O* m
- O O. O. O.*O. O O. O. O. O. O. O. O. O. O. O. O. O. O. O. O. O. O. O. O. O. O. ==mu O. O. O. O. O. O.awmJ maw DM>ews upa g-OOOOOOOmOOOOOOOOOOOOOO=OOOOOOOOOOOOOOOOOO wwmTop-e t' g j 40 m4w M > 2 03 a
l O
= e
- O O N O
s . b 3e = s eg e.
. (J g i ,
- o. UMWhuCOD WOwe- g a e l . O. e Zw= cod 20 0 m sw - wO M w
w o I w O w m w== pea >ep swa e e D m
, Et O. O. O. O. O. O. O. m. O. O. O. O. O. O. O. O. O. O. O. O. O. O. O. O. O. O. O. O. O. O. O. O. O.00000000 Emm=g>Qo Owe =
e t OOOMOOMMOOOOOOOOOOOOOO=OOOOOOOO=OOPOOOOOO 2J3pm h h hem a
- e m W
*w=32&O O O 2>SmW &
ls e 4 900 0 e O . O O O wwe Ds i e 8 8 > awOsa www. e -
= 0 w W W W. W w w *OuwwO f A 1 * * -OO n n = m maumma s
3 O. O. O. n. O. .O. O. e. O. O. O. n. =. O. O. O. e. O. O. O. O. O. W. O. O. O. O. O. O. O. *O.*O.* O. O. e. O O229 O=Ewhwm OOch > e 0 OOOh0DOWOOceTTOOOOOOOOeOOOOOOOOOOO=OOOOO= ==e wow i 1
- e. h h ham a m w e e
- O O o g 4 g a was t 8 O O OOO O O O O O O -e s. h EOg O
w e w 9 4 ee www e e t w 4 5 e me Umu
. O a w- w w w -Ow 'O O
- h 8
- e =OO n e.w = m = -
n Zac sos 4 t =me ese '
. O. O. O. M. O. O. O. O. O. O. O. n. =. O. O. O. O. O. O. O. O. O. =. O. S. O. O. O. O. O. O. =. O. O. S. O. g gO.gO. O. O. gh.
u.g
- 8- OOOMOOOTOOOeWTOOOOOOOO-O*OOOOOO=OO OOOOOn I e M O 3 '
t .......e . . . . . ......... .. . ............... >=s h y ,
>O I ====nnnnnnnnewwwmmmmemeekhhecemOp83000000 man a m U" h $ 8 g ,
e g , j . ,
." =*
9
, 4 4-14 ,
i
?
36 ., l r [ r f
~ _
~
~ ~
~
~~ _
54453
- f. .00C000000000000000000000000000000009 4445445545554445445545554445444
- - - - - - - - - - - - - - - - - - - - - --- -: f 8
o . - - - - - - - - - - EEEEEEEEEEEtEEEEEEEEEEtEEL A t L . EEEEEEEEtF tl - . 44 t44794374 93709413437f 80759478647s437 1328t
. . 1. f.1 8 1 W _
iAP.29 t aI .
.8 . . .
161 1 628381 2 2. f. 71 t. 741 3. t. E G R l - L . C0000060000000000000000000000000000R. _A lL _ _K _ Gu . . 44454455455544454445445544454445445S I _ C RL . aa 8l 00000000000000000000000000000000000O
------------------------------------ 050A5 t11W1
. ttEEEEEEttEEEEEEEttEEEEEEEEEEEEEEtEE " s5 5 0OL.
R - s t t3bE 37t s2676t20t 2343062E1153t66t37 Er8CNE AEEA O. . P sP n 3 7 2 3 2 2 8 2 2 8 4 2 3 2 2 4 3 213 216 2 4 2 2 5 3 2 2 3 2 2 8 2 T u AA EE GR
. 0000004000O0000000000000000000000009 ^AuGWRG RSNCCN AB 4445444544'55444544454445444544454445 000000000000000000000000000000000000 w l0 l M
C0 O1 W. tEtEEtEEtEEEEEEEEtEEEEEEEEEEEEEEEEEE oFitEi lOHs0H& F G 1C( _ L O .l
- . sae94e498S7954877eS9973944843B894B41 YIP 5I8 NTEMNE1 ' 1P 2.
0 0t.0t 6 . 0 2.0 0t 16.i. 0 0 0t.07C604020107020t.0t.0601.0 t.0 10 60 50 20 10 90 4. 00 t. 0 10 60 2.0t.0t.0, 6 0IWUI W _ N5 . lL S M m e fI H SHE 444544454455444544451445444444454445 E1 E0 . ABTFETE m l b n . 000'00001000000J00000000000000000000 LAGORGR UBN uNC a Ct
. EEEtEEEE# EEEEEtEEEEEEEEEEEEEEEEEEEEE COEYtE 5_
T sed.3229826376950E29t2094055982t732t0265 A 0 3 2 2 7 2 217 218 7 5 2 2 8 3 2 2 7 2 217 5 2 2.t.4 2 2 8 2 21,7 3- RRLTlL IP IA t C TLFTM y i s5 000000000d00000009000000000000000009: ELNI RLEBME5 N0 r . * . 45545354556444544554555444544554555 AMAEk ag 5 000000000000000p00000000000000000000 SRGBT G1 _ m n0 -E -EE- -t EE - - .t EEttEEE
- - - - - -E-E- E- -E -EE - -E-EE - - E- E- -E-E- tE - -E-Et- -E-EEE -- CEEOSEC CV5RY5C mi l s
- S27t 21t02ft 6522SS27l27l0822t73tt2Ito ED PS- E ut?l .. t.1t l.8 3 i 9 9,f t. 0,2 1 1.l t.1 8. l. 1 1.t. l. 2. t.8.t.1 1 3.t. 8,3. I. j .
S ha&t t cC RP. 000000000000000000000000000000009002_
. 44554555455844154455455544154455455E yileM t ea A 0 0 0 0- 0 0 0 0- 0 0 0 0 0 0 0 0 0 0- A-U W8I 0DL R -
EEEEEfEEtEEEEEEEEEEEEEEEEEE!EEEEEEEE 29249tt3st 002995292492t35991497992t3 i b t hPKD.284. AP . . . . t 8 6 3.t.l.3 3 00c000600b000000000090090000000OQ000 0 3 11 2 2 1 4.t.84 3 1 3 1.t.3 2 8 5.tc1 8 3 1 W 1 _ iE E . D 8 acGH 445545554555444544554555444544554555 1 8 . b nA B . 1 1 o ex rLcG . 000000000000000000000000000000000000 oI w.tEEEfEEtEEE1tEEEEEEEEEEEEEEEEELEEEEE 294 LL C-t P M
+
P tBl - . CO f U
.I .?27922982903324972792797t22982292l.
- t. 6 5. t. 98 5 8 5 5 5. J. t 15 816 EP 5. (. 6 5 5,4. t.151. t. 9 5 e nt59 P . 0 0 06 0 0 0 0 0s 0 0 0 0 0 0 0 0 0 0 0 0 0 0 Q0 0 0 0 0 0 0 Q0 0 Q. f._ . , S_ -
get E1 E 4455445545554f4544554555441544454451 a mE0 .. 0000000000000O0000009000000000000009 R A k gRLT . -----------------------------------: c eS E W . E E E E E E t E t E E E E E E E E E E E E E t E E E E E E E EE E E E E _E N l oS G- . 26T4G2l 2sf0686G8267367t0566t36l6G3t2 _ f E l N O. . 21. u. 6. t. 8.i. 6. t. f. 7 5 31t. 6 21. s. 8. l. 8 7 6 4 817 21 l. 6. I.17 6
. _G
_AM L t - Bdn A P . 0 0 0 0 0 08 0 0 0 0 90 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 9 f C R( E OA G 555e560s5G6 ,4S5655665686455655665666
.O FW R a 3 0o0000000000000000000000 L u
000c000O000 EE[EEEEEEEE EEEEEEEEEEEEEEEEEEEEEEEE E SP B EE GN T A 3dl?t lL
- 87473447644 2Tt786475447238485473447 AM5AA5D TAI 9953955315501 s. t. 3 9 1 5 3 2 5 5 3 1 9 1 5 9 2 5 3 9 5 5 3 EU1KR8NR 0oiAP 000000000000000000000000000000000600 RS5CC5AE
.WL C AO FBLESKE A T 4 1
I BM 455s4556356 445645565556445545564558 000000000000000000000000 t IO SD AM e aA nt 000O0000000 EEEtEEEEtEE ..E E E E E E E E E EEEEEEEEEEtEEEE SYNPSNRt G IOEA STI MNlBO l 0OL A - . 775t6S5085t 9s627t5f55299b72755t6559 OItUIi b PRO t. 4 2 412 2 3 4 2. S. Q.1. t. 3 4 9 4 2 4 7 213. t. l. 4117 2 412 2 3 LLHS HNM a AP IG SGEA T EE 0000000000000000000090000000000000O0 DOIFEIfE ., GR AB 45555555555 4555455555554555455555'55 000000000000000000000000 AAEOREwR EBW UWTB M Co 000c0000000 EtEEEEEEEttEEEEtEEEEEttE
--------------- HO RETIE 8Y YE E Otw tEEEEttEEtE 9S98tl4t09tt9 EEPPIAP B L - t 7t9dt t9?tt 6s9317t94t t RL YLFYE S UELTI TCD fP
.I
- t. 5 3 2 9 3 3 2 4 3 3 01. b. 3 214 3 2 7 3 3 2. t. 9 4 3. t. 7 3 2 9 3 3 2 TAL BM NE N5 000000000000000000000000000000000000 AWADaEDAD LORL8TLTI E1 t0 455s4555555 445545554555445544554555 000000000000000000000000 CLEE0SESV p
Cl 000O0000000 EEEEEEEEEEEEEEEEEEEtEEEE l LVwEYwIl l EAD PS DO SEW EEEtEEEEtEE. 0492S72tl2800478S1 2t4220 W - G- 557st :20i2* O- - - - RO AF 1943.l4 4 3. b 4 3 0 2. t. 5 3. t 6 4 3. t. 4 3 3 217 3. t 14 314 4 3, N I 0 0 0 0 0 O 0 0 O 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 c 010_ o 7 pat . . . . . . . . . . . . . . . . .. . . . . . . . . . . . . . .... uEf uRQ 0500050005000500050005000500050005o0 5700570057005700570057005700570057o0t2
. f_ 4 7 0 12 82 12 SAS 82 82 12 82 82 .
5M
. . . . , . . . . . . . . . , . . . . . . ... . . . . . . . . . .5 1 A 5, SWM C0F 0000000000000000000000O0000000000co0 0000000000000000000000O00000000000c0 T
0.D3 I* ctg EF 0000000000000000000000O00000000000c0 6886666868888888888888d80000000000o0 W W-ER0 gal . _ m 1181111111t1 .- REf
~ .
LO ARA
, ~. . . . . . . . , . . . . . . . . . .. , . . , . . . ..t . . I H. P L*t H, F 9 f t t 2 2 2 2 5 5 5 5 l l l.12 2 2 2 5 6 5 5.f 9 I.t 2 2,2 2 5_5 5 5_
P_ T_ _ SR
$' rc
~ , . . _ _
j h
i i r v APPENDIX B.3 BLOCKAGE 1.0 QUALIFICATION TEST REPORT 1
-b 5
t SEA-93-554-06-A:3 , BLOCKAGE 1.0
' QUALIFICATION TEST REPORT CONTRACT No. NRC-04-91-071, Task ' Order No. 6 i Technical Assistance for Estimating the Potential for Loss of LPCI Capability in BWRs Due to LOCA Generated Debris Blockage Subtask 6.1.2: Parametric Calculational Model Development and Validation / Verification
)
SEA Report
- .i Prepared by Jane Brideau >
December 1993 4 e i k t Science and Engineering Associates, Inc. ' 6100 Uptown Boulevard NE Albuquerque, NM 87110 -l (505)884-2300 4 i I r e m , ,
F
- 1. INTRODUCTION 1.1 Purpc se Unresolved Safety Issue (USI) A-43, " Containment Emergency Sump Performance," dealt with .
concerns about the availability of adequate recirculation cooling water in a Pressurized Water Reactor .j (PWR) following a Loss-of-Coolant Accident (LOCA). One concern was the effects of LOCA-generated' , insulation debris that is transported to the sump debris screen, blocking the screen and reducing net i positive suction head (NPSH) margin below that required for the recirculation pumps to maintain long-
~,
term cooling. For the resolutior. of USI A-43 (Ref. 4), the US Nuclear Regulatory Comnussion (NRC) Staff -[ evaluated the loss of recirculation capability due to debris generation, focusing primarily on PWRs. The . h blockage probabilities for PWRs were calculated on the basis of a detailed analysis (Ref.1). Science and Engineering Associates,Inc. (SEA)is supporting the NRC Staff through Contract No. NRC-04-91-071, Task No. 6, " Technical Assistance for Estimating the Potential for Loss of Low Pressure ; Coolant Injection Capability in BWRs due to LOCA-generated Debris Blockage." Subtask 6.1.2 of Task 6 requires SEA to develop MS-DOS software that reproduces the functions of the calculational programs documented in NUREG/CR-3394, Vol. 2 (Ref.1). This is to be followed by modification of the software to acconunodate BWRs. ! BLOCKAGE 1.0 is the first product. Upon successful completion of BLOCKAGE 1.0 qualification . testing, SEA will modify the software to incorporate the results of Subtask 6.2.1: Transient Flow Blockage . Analysis, in which SEA will develop models and perform analyses which incorporate the potential effects of: 2
= transport of LOCA-generated debris in a BWR following a LOCA, a debris deposition on suction strainers as a function of time, and
- estimated strainer pressure drop as a function of transported and deposited debris.
This report documents the results of the qualification testing of BLOCKAGE 1.0 and is intended to satisfy the deliverable requirement for documentation of qualification testing for BLOCKAGE 1.0. i' 1.2 Scope BLOCKAGE 1.0 is required to reproduce the software functions that were important to the resolution of USI A-43. The ' qualification test provides a comparison with the results reported in the -j 1 2 i l 1 i
. . - . .- . . . - ~ , .. I
- references (Ref. I and Ref. 4).
1.3 Prior' Verification and Testing ! The BLOCKAGE 1.0 code was verified by coding review and inspections, as documented in Appendix I, Schedule of Software Quality Assurance Activities. The software quality assurance followed ,i the basic guidance from Refs. 2 and 3. The BLOCKAGE 1.0 code was tested with a test calculation small enough that the results could j be calculated by hand but large enough to sufficiently exercise the code models and logic. The calculation consisted of 12 welds selected to exercise the majority of the code logic. The code calculated weld break frequencies and the blockage array were printed out for verification. Hand calculated results were - , compared with the corresponding code results for the weld and target classifications (i.e., weld diameter, , weld type, and insulation type) the target volume calculations, the blockage calculation, weld break frequencies, sequence frequencies, and unavailabilities. Totals were also compared. No differences were found between the hand and code generated results other than those resulting from numerical roundoff. j r i i 1.4 Definitions, Acronyms, and Abbreviations BWR Boiling Water Reactor ; L/D Distance separating the target intercepted by the blowdown jet from the break j exit plane (L), divided by the break diameter (D). LOCA Loss of Coolant Accident f;
.i NPSH Net Positive Suction Head PWR Pressurized Water Reactor .
SDD Software Design Document , SRS Software Requirements Specification SQA Software Quality Assurance ! USI Unresolved Safety Issue I A i 3 ; i
.~ _ . . - - _- . . _ ____ _ _ . . ~ . _ .., . . ~ _ _ -
l u. 1.5 References ' ' t [1] J.J. Wysocki,"Probabilistic Assessment of Recirculation Sump Blockage Due to Loss of Coolant.. Accidents, Contabunent Emergency Sump Performance USI A43," Vols. I and 2, Burns & Roe, j
?
Inc., published as Sandia National Laboratories Report No. SAND 83-7116, NUREG/CR-3394, July . 1983. ; [2] " Software Quality Assurance Program and Guidelines," U.S. Nuclear Regulatory Commission, .
~t NUREG/BR-0167, February 1993.
[3] The Institute of Electrical and Electronics Engineers, Inc.,"IEEE Guide to Software Requirements. j Specifications," Software Engineering Standards, ANSI /IEEE Std 830-1984, October 1987. . { t [4] A.W. Serkiz,"USI A-43 Regulatory Analysis," US Nuclear Regulatory Commission, NUREG-0869, Rev.1, October 1985. [5] Science and Engineering Associates,Inc.," BLOCKAGE 1.0 Project Plan," Internal Report SEASF-IR - , i 93-036, October 1993. 6
.-l
- i
[6] Science and Engineering Associates, Inc., " BLOCKAGE 1.0 Software Requirement Specification," Internal Report SEASF-IR-93-035, October 1993. [7] Science and Engineering Associates, Inc.," BLOCKAGE 1.0 Computer Program Design Document," Internal Report SEASF-IR-93-037, November 1993.
.i
~
[8] Science and Engineering Associates, Inc.," BLOCKAGE 1.0 Qualifica tion Test Plan," Internal Report SEASF-IR-93-040, November 1993. ! i 4-l 9
.q., An y - ', + m e -
y e
f ' 10 TEST PROCEDURE This section discusses the qualification test procedure for BLOCKAGE 1.0, including the hardware and software configuration, test procedure, features to be tested, and the pass / fail cnteria. 2.1 Ilardware and Software Configuration BLOCKAGE 1.0 was executed on a Gateway 2000 486DX2/50 running DOS 5.0. The computer is located at the SEA Albuquerque Office. The current version of BLOCKAGE 1.0 using weld input data - from Ref. I was the test software. A listing of the program used for the test is included in Appendix V. ; 2.2 Procedure > The test team was given a diskette with an executable test file. The test procedure was performed , by Jane Brideau of SEA, Inc. and witnessed by D.V. Rao, also of SEA, Inc. The following procedure was performed: !
- 1. Insert the diskette in Drive A: and type a:qtest
- 2. QTEST will create a QTEST directory on drive c: and copy the executable and input files to it, then execute the BLOCKAGE 1.0 program.
- 3. From drive c: Print the files:
WELD.OUT l TARGET.OUT SEQFREQ.OUT BLOCKAGE.OUT
SUMMARY
.OUT , BLOCKAGE. ERR. 2.3 Features to Be Tested . According to the Qualification Test Plan (Ref. 8), the qualification test tested the ability of the BLOCKAGE 1.0 software to produce the Major Reports listed in Table 3.1 of the BLOCKAGE 1.0 SRS ~ (Ref.6). These include the following:
- Table of Welds i
- Table of Targets
- Sequence Frequency Reports
- Probability Reports .
1 5 : I P
'?
5
4 i 1 1 -
. Summary Report.
'1 l
The qualification test did not test the software against the following requirements:-
. -Input values other than those used in the resolution of USI A-43 t
. ModifiaHlity requirements
. Hardware limitations. l 2.4 -Item Pass / Fall Criteria ,
All values reported in Ref. 4 were compared with the output from BLOCKAGE 1.0. Approximately ten percent of the values reported in Ref. I were compared with the output from .; BLOCKAGE 1.0. In any instance where the results differed by more than one in the second significant . decimal digit, the test personnel performed hand calculations or other investigations to determine the reason for the discrepancy.
~
According to the test plan, the software will pass the qualification test if every comparison either - agrees to within one in the second significant digit or is accompanied by a demonstration that the' BLOCKAGE 1.0 result more accurately represents the functions that were needed for resolution of USI i A-43.
.7
.i 4
i
-t
?
i l b i 6 f P b i -
+
E 3.0 TEST RESULTS .. The results of the BLOCKAGE 1.0 qualification test are presented in this sc" ion. The test input, l. reference data used for comparison, and resolution of differences with the references are discussed, and sample outputs presented. 3.1 Input The input for the qualification test was taken from Ref. I weld input data. In this reference, the data were separated by L/D = 3,5, and 7; BLOCKAGE 1.0 read all the data in one data file. The data had to be retyped and was independently checked for accuracy by D.V. Rao. BLOCKAGE 1.0 also performs i a validation of the input data. 3.2 Refcrence Data Used for Validation The BLOCKAGE 1.0 Qualification Test Plan specified that all values reported in Ref. 4 would be l
.t checked and at least ten percent of the values reported in Ibf. I would be checked. In Ref. 4, the following tables were used for comparison. Copies of the reference data and corresponding BLOCKAGE ,
1.0 output are included in Appendix II. Table 4 on p. D-9 of Ref. 4 is a page of the Target Summary Table from Ref.1, and corresponds to a page of the BLOCKAGE 1.0 file TARGET.OUT. It shows welds 96 - 109, L/D=7 only. The comparison was done by locating those welds in the Ref.1 Weld Summary Table, then finding the same welds in WELD.OUT. Using the weld identifiers to locate the corresponding lines in TARGET.OUT, the i numbers were compared. BLOCKAGE 1.0 prints the values for all three cases of L/D and includes the t weld identifier, whereas the PRA program had to be run separately, once for each value of L/D. Table 5, p. D-12 is also from Ref.1 and corresponds to the BLOCKAGE 1.0 diameter basis outputs for the screen area, head loss, and flow rate printed at the top of the page, which are in the file BLOCKAGE.OUT and are called Screen Availabilities there. In the PRA program output, these are called Blockage Frequencies. Table 7, p. D-14 of Ref. 4 corresponds to the second page
SUMMARY
.OUT, but is arranged differently. Finally, the table on p. D-13 was not generated by PRA or TABLE, and BLOCKAGE 1.0 is not required to produce it; therefore it was not included in the qualification test. 1 To compare values from Ref.1, thirty-one representative pages from Table'4.1 and Appendix C,' corresponding to BLOCKAGE 1.0 output in BLOCKAGE.OUT and SEQFREQ.OUT, were selected. These pages included both diameter-basis and system-basis sequence frequencies, and both diameter-basis and - system-basis screen unavailabilities and frequencies. The specific pages used and the checked BLOCKAGE . 1.0 output pages are available in the qualification test file at SEA. 7
I
'T
'i i
j 4 3.3 Resolution of Differences Some minor discrepancies were noted between the reference data and the BLOCKAGE 1.0 output data, but all have been resolved to the satisfaction of the qualification test team and the project manager. The first differ =nce .is a matter of nomenclature. The PRA program uses the terms Blockage Frequency and Blockage Probability to describe the respective BLOCKAGE 1.0 data Screen Unavailabilities and Sequence Frequencies. The file WELD.OUT which corresponds to the Weld Summary Table in Ref. I lists different ; numbers of targets for eight welds. This is because the Weld Summary Table lists the welds separately [ for L/D = 3,5, and 7. In those cases, the L/D = 7 did not include all the targets for the other two cases. { BLOCKAGE 1.0 includes the number of targets for all values of L/D. Another difference in BLOCKAGE 1.0 is that the two pipe diameters near 32 in are considered I separate diameter classes, whereas in Ref. I they are lur.ged together. The BLOCKAGE 1.0 output will i show two rows labeled 32 which will correspond in an appropriate combination with the value for 32 in ; Ref.1. For example, the sum of frequencies for the two 32 in. diameter classes in SEQFREQ.OUT will be the me as the frequency shown for 32 in. in the corresponding table in Appendix C in Ref.1. l The final discrepancy to report involved a mismatch of location categories in the SEQFREQ.OUT file. All the numbers agreed except the values under the PI-Inside Crane Wall (Ref.1) category apeared under "Out" in SEQFREQ.OUT and the values under PO-Outside Crane Wall (Ref.1) appeared under "In" in SEQFREQ.OUT. This problem also only appeared in the system-basis tables; the diameter-basis values j I matched. The test team and the software developers investigated the problem by checking the BLOCKAGE l 1.0 code first. The results can be printed in any order the user likes by changing the parameter input file, j but the results are written using an implied do-loop, so the written results are always in the same order ! as the parameter input file. The parameter input file was checked, and the parameters were in the right order. The next step was to determine if the problem was in the PRA code. The example used was p. ! C-74 from Ref.1. Note that since "Overall" and "Inside" are equal, "Out" must be zero. In addition, from
. the input on p. A-3 of Ref.1, all of the System I welds are in the 18-+' category, and all of them are IP, j which is inside. Therefore, the BLOCKAGE 1.0 output was determined to be correct. The example p. C- l 74 and corresponding SEQFREQ.OUT page is included in Appendix IIL l f
f 1 I i i i 8 L h y . .-
, y. , , , , ,,n. -. - -- - - -
,. ,i
-l
;i
'1 3.4 Summary of Results With the resolution of differences discussed previously, all of the values checked met the pass i criteria defined in Section 2.4. In addition, the file BLOCKAGE. ERR was also checked to verify that no :
errors occurred during program execution. Sample outputs from each BLOCKAGE 1.0 output file are , included in Appendix IV.
+
r
'?
'I i
i i i I l i i i
~!
.i f
i
}
-f
?
.. i i
9 i
- .- -. , , . ,- - . - - , , ,. ., , , ., .?
1 1 t
4.0 CONCLUSION
S The software passed the qualification test. All requirements of the BLOCKAGE 1.0 Qualification i Test Plan were fu! filled. The required reference data compared favorably witl the output of BLOCKAGE
~
1 1.0, and all discrepancies were resolved. f
- BLOCKAGE 1.0 accurately reproduces the software functions that were important to the resolution of USI A-43, and will provide the basis for development of BLOCKAGE 2.0.
t l
)
E
'l l
5 6 i 3 N I
-f 6
I l f e
-i k
i h i 10 , k
'I e , s- , , -, ,, ,w-n,-- , -e--r, ,- < .--- .- n r
y * -# a . w. I r t f APPENDIX I SCHEDULE OF SOFTWARE QUALITY ASSURANCE ACTIVITIES B
?
k 6 7
- M.
Appendix I BLOCKAGE 1.0 and BLOCKAGE 2.0 Quality Assurance Date QA Activity i 19 October 1993 BLOCKAGE 1.0 Software Requirements Review 2 November 1993 Inspection of Draft BLOCKAGE 1.0 Software Design Document , 15 November 1993 Inspection of Draft BLOCKAGE 1.0 Software Design Document - . 17 November 1993 BLOCKAGE 1.0 Design Review f 17 November 1993 BLOCKAGE 2.0 Software Requirements Review 27 November 1993 Inspection of BLOCKAGE 1.0 code 27 November 1993 Inspection of BLOCKAGE 2.0 Software Design 27 November 1993 BLOCKAGE 1.0 Test Readiness Review f 29 November 1993 BLOCKAGE 1.0 Qualification Test 10 December 1993 BLOCKAGE 2.0 Validation Test I P t
+
APPENDIX II COMPARISON OF OUTPUT TO REFERENCE DATA FROM NUREG-0869 e I
'/
~
I a 4 l i i
-! I
TABl.E 4 Illustration of break vs. target combinations'ard debris volumes calculated r
.etta famCJT ,. f&actf latut.
anAnt(. $3&m$ * ($h4990 lutta. INSut., .ti 1978 god, tal4*t.
, WOtWM _f a.blem 4 L.. fat.%1 tsaratu totagCa.
at . ,, gesieg g gue , g% , In. ff. tecntl == **. FI **3 Im. t_veg ft. Sacaes t Mr. .WOu.s.et pg g
. ... _--. - - - . . . . . *'""*". ,,[_,,
3 M I. H 3.. St S 9.7, 9.. $..? 9... 3 la 33
, , . . . , 9 73.M . . 9.t .3..33 _ 3.E 14 ' - 8 33' al - . . . .
- p. ._ IT3..e
... . _. 3...
- 9. 31 3... _ _ u _ i. _ 3.3 3.H $4 3 #3..I 4,a 3,n . . ,t_n 3 .....- . g y
. d
*l.3. h
- 5. u u 3 .. :.n 3 J.. sa--** '3" -* 3.s -~
- in
@."\ ..'
- e~r3.n u . e. ~~~ 3. s. 33 ..3.u st 3 33..e
_= _ ._. h p* .... J73.._ j $ . .nL2,)... 3... _jl u 3 2 3.. 211.. a.a ..u 3... u 3 ..e 6. v, _ ,,, _ , . . .... _ ,... _ ,, 3 .,1 ..... .... 3... u 3 ... v .
- 3. . M 7.5. 3.e. SE 3. l. 3 63
. IE:s T'e~yu s.. 6 s . i s*""* 3.~.. II 3 3.s -
ta
- -S
.: s. ..ss ' T. 3 it--) - es.. g th~' n -' ~e..n """~ ..i.
i ~~~4.e,~~* st
-~~
3 ..e c u t, h - A
- 16. ~ ' 9. . M .... 3. ~58 ~ ~3 t..t ~~ h'
._ 6 en u.= . .u .s. .. u 3 ....
p .. .... .... 3. u 3 .
... ..... ..u 3... . 3- .3 s s e ., u. . .u 3. u , ... in.u ...., 3.u u a ni.. -
l'3* .e. <i. _2.n_._n ._._n i I i es e ,g. s.g3 ede ss a._ t g am 9 ss e.ga .u 12 a_t 1 Source: Table B.5-3, NUREG/CR-3394 Volume 2 l 1 l
. 1 1
i NUREG-0369, Revision 1 0-9 October 1985 I
' BLOCKAGE l'.0 - TARGET
SUMMARY
TABLE
% . _ . L/D=3 L/D=5 L/ D=7,. ,
WELD TARG LTARG INSUL INSUL.REF. TARGET TARGET ~ TARGET l LID ' HO DIAM TYPE THICK, . LENGTH &VOL LENGTH &VOL. LENGTH &VOL. .! 64 2 34.00.RM 3.50 12 5 3.00 8.6 5.00 14.3 7.00: 20.0: 64 -3 2.00 FE 1.50. 26 -4.75 0.5 8.25 0.9 8.67 .1.0 , 15 4 4 1.00 FE' 1.50 26 0.50 0.0 5.50 0.4 '10.50 0.9 : 65 1 2.00 RM 3.00 NO H 0.00' O.0 0.00 0.0 0.00 0.0 66 1 2.00 RM 3.00 No H 0.00 0.0 0.00 0.0 0.00 0.0 67 1 2.00 RM 3.00 NO H- 0.00 0.c 0.00 0.0. 0.00 0.0 5 68 -1 2.00 RM 3.00 No H 0.00 0.0 0.00 0.0 0.00 0.0- : 69 1 2.00 RM 3.00 NO H 0.00 0.0 0.00 0.0 0.00 0.0- l 70 1 2.00 RM 3.00 NO H 0.00 0.0 0.00 0.0 0.00 0.0: j 71 1 2.00 RM 3.00 No H 0.00 0.0 0.00 0.0 0.00 0.0 72 1 2.00 RM 3.00 NO H 0.00 0.0 0.00 0.0 0.00 0. 0. 1 73 1 2.00 RM 3.00 NO H 0.00 0.0- 0.00 0.0 0.00 0.0 'I 74 1 2.00 RM '3.00 NO H o0.00 0.0 0.00- 0.0 0.00- 0.0 75 1 2.00 RM 3.00 NO H 0.00 0.0 0.00 0.0- 0.00- 0.0 , 76 1 2.00 RM 3.00 NO H 0.00 0.0 0.00 0.0 0.00. -0.0 77 1 2.00 RM 3.00 NO H 0.00 0.0 0.00 0.0 0.00 H0 . 0 - - 78 1 2.00 RM 3.00 NO H 0.00 0.0 0.00 0.0 .0.00 0.0 ; 79 1 2.00 RM 3.00 NO H 0.00 0.0. 0.00 0.0 0.00 0.0 ' 80 1 2.00 RM 3.00 NO H 0.00 '_0. 0 0.00 0.0 0.00 0.0 81 1 2.00 RM 3.00 NO H 0.00 0.0 0.00 0.0 0.00 0.0 , 82 1 2.00 RM 3.00 No H 0.00 0.0 0.00 0.0 0.00 0.0 i 83 1 2.00 RM 3.00 NO H 0.00 0.0 0.00 0.0 0.00 0.0 84 1 2.00 RM 3.00 NO H 0.00 0.0 0.00 0.0 0.00 0.0 l 85 1 2.00 FE 1.50 26 0.00 0.0 0.83 0.1' 1.16 0.1; ; 86 1 2.00 FE 1.50 26 0.00 -0.0 0.00 0.0 1.17 0.1
- 87 1 2.00 RM 3.00 NO H 0.00 0.0 0.00 0.0 0.00 0.0 88 1 2.00 RM 3.00 NO H 0.00 0.0 0.00 0.0 0.00 0.0' '
89 1 16.00 SE 3.00 3 2.66 3.3 2.66 3.3 2.67 3.3 89 2 173.00 SE 3.50 3 7.00 94.3 11.66 157.1 16.40 221.0-90 1 14.00 SE 3.00 3 1.50 1.7 1.50 1.7 1.50 1. '7. - 90 2 16.00 SE 3.00 3 2.33 2.9 2.66 3.3 2.67 3.3-90 3'173.00 SE 3.50 3. 0.00 0.0 11.66 157.1. 16.33 220.1 91 1 14.00 SE 3.00 3 2.00 2.2 2.00 2.2 2.00 2.2-91 2 16.00 SE 3.00 3 2.08 2.6 2.66 3.3 2.67 3.3 91 3 173.00 SE 3.50 3 0.00 0.0 11.66 157.1 16.33 220.1 , 92 1- 14.00 SE 3.00 3 3.50 3.9 3.50 3.9 3.60 4.0 92 2 16.00 SE 3.00 3 0.00 0.0 2.66 3.3 2.671 3.3 92 3 173.00 SE 3.50 3 0.00 0.0 11.66 157.1 16.33 220.1 l 93 1 14.00 SE 3.00 3 4.00 4.5 6.66 7.4 .6.75 f 7.5 ; 93 2 16.00 SE 3.00 3 0.00 0.0 0.83 1.0 8.50 10.6 ' 93 3 173.00 SE 3.50 3 0.00 0.0 0.00 0.0 18.67 251.6 , 94 1 14.00 SE 3.00 3 6.00 6.7 9.66 10.7 10.75 12.0- ~ 94 2 16.00 SE 3.00 3 0.00 u0. 0 0.00 0.0 1-16
. 1.4-94 3 30.00 SE 3.00 20 0.00 0.0 0.00 0.0 7.50- 16.2 95 1 14.00 SE 3.00 3 3.50 3.9 5.83 6.5 8.16 9.1 96 1 14.00 SE 3.00 3 5.25 5.8 7.58 8.4 9.92 11.0- ',
97 1 14.00 SE 3.00 3 3.50 3.9 5.83 6.5 8.16 9.1 98 1 14.00 SE 3.00 3 4.42 4.9 6.75 7.5 9.08 10.1' 39 1 14.00 SE 3.00 3 4.00 4.5 6.66 7. 4' 9.33 10.4 , 100 1 16.00 SE 3.00 3 4.00- 5.0 4.00 5.0 4.00- 5 . 10 l 100 2 14.00 SE 3.00 3- 2.00 2.2 4.67 5.2 7.33 8.2 __,
'I i
i e i b I i
, ,~ - .. ._ . . . .-. -. . , ,
l BLOCKAGE 1.0 - TARGET
SUMMARY
TABLE' [
. -L/D=3' L/D=5 L/D=7 WELD- TARG- TARG INSUL INSUL REF. TARGET' TARGET TARGET '
ID NO DIAM TYPE THICK LENGTH &VOL LENGTH &VOL LENGTH &VOL 101 1 16.00 SE. 3.00 3 1.50 1.9 1.56' :1.9 11.50 1.9 101 2 173.00 SE 3.50 3 8.00 107.8- 13.33 179.7. 18.67 251.6
'102 1 2.00 SE 1.0C 33. 0.50 0.0 0.83 0.1_ 1.16, 0 .1- l 103 1 2.00'SE 1.00 33 0.75 0.0 1.08 0.1 1.42 'O.1 103 2 1.00 SE 1.00 32 0.00 0.0 0.00 - 0. 0 2.33 0.1 104- 1 1.00 SE 1.00 32 0.00 0.0 0.58 0.0. 0.83 'O.0- ,
104 2 2.00'SE 1.00 33 0.50 0.0 0.83 0.1 1.16 0.15 105 1 1.00 SE- 1.00 32 0.00 0.0 0.58 0.0 0.83- 0.0- - 105 2 2.00 SE 1.s0 33 0.50 0.0 0.83 0.1 1.16 0.1 i 106 1 1.00 SE 1.00 32 0.00 0.0 0.58 00 0.83 0.0 106 2 2.00 SE 1.00 33 0.50 0.0 0.83- 0.1 1.16 0.1 107 1 1.00 SE 1.00 32 0.00 0.0 -0.58 0.0 0.83 0.0 t 107 2 2.00 SE 1.00 33 0.50 0.0 0.83 0.1 1.16 0.1 ! 108 1 2.00 SE 1.00 33 0.50 0.0 0.83 0.1 1.16 0.1 l 108 2 1.00 SE 1.00 32 0.00 0.0 0.58 0.0 0.83 0. 0 '
. 109 1 2.00 SE 1.00 33 0.50 0.0 1.58 0.1 1.92- 0.1' 109 2 1.00 SE 1.00 32 0.00 0.0 0.58 0.0 0.83 0.0 110 1 2.00 SE 1.00 33 0.75 0.0 1.08 0.1 1.42 0.1 110 2 1.00 SE 1.00 32 0.00 0.0 0.58 0.0 0.83 HD . 0 : l 111 1 :2.00 SE 1.00 33 0.50 0.0 0.83 0.1 1.16 0.1 '
111 2 1.00 SE 1.00 32 0.00 0.0 0.58 0.0 0.83 0.0 < 112 1 2.00 SE 1.00 33 0.75 0.0 1.08. 0.1 1.42 0.1 113 1 2.00 SE 1.00 33 0.50 0.0 0.83 0.1 1.17 0.1 114 1 4.00 AS 1.00 16 0.00 0.0 0.00 0.0 0.42 0.0' > 115 1 4.00 AS 1.00 16 0.00 0.0 0.83 0.1 1.66 0.2 116 1 8.00 FE 1.50 25 0.00 0.0 0.00 0.0 1.00 0.3 > 116 2 6.00 AS 1.00 8 0.33, 0.1 0.66 0.1' l'.00 0.2-116 3 4.00 AS 1.00 16 0.00 0.0 0.92 0.1 1.83 0.2 ! 117 1 6.00 AS 1.00 8 0.58 0.1 1.08 0.2- 1.58 0.2 117 2 8.00 FE 1.50 25 0.00 0.0 0.33 0.1 1.75 0.5 : I 117 3 4.00 A5 1.00 16 0.00 0.0 0.92 0.1' 1.42 0.2. 118 1 2.00 SE 1.00 33 0.75 0.0. 1.08 0.1 1.42- 0.1 -i 119 1 3.00 SE 1.00 33 0.50 0.0 0.83 0.1 1.16 0.1' .l 120 1 2.00 SE 1.00 33 0.75 '0. 0 1.08 0.1 1.42 'O.1 ! 120 2 0.75 SE 1.00 33 0.25 0.0 0.58 0.0 1.16 0.0 < 121 1 2.00 SE 1.00 33 0.50 0.0 0.83 0.1 1.16- 'O 1 122 1 2.00 SE 1.00 33 0.50. 0.0 0.83 0.1 1.16- 0.1 ; f 123 1 -2.00 SF 1.00 33 0.50 0.0 0.83 0.1 1.16 0.1J 124 1 8.00 FE 1.50 25 0.00 0.0 0.00 .0.0 0.50 0.2 125 1 8.00 FE 1.50 25 0.00 0.0 0.00 0.0- 0.50 0.2 , 126 1 8.00 FE 1.50 25 0.00 0.0 0.00 'O.0 0.50 0.2 l' 127 1 8.00 FE 1.50 25 0.00 0.0 0.00 0.0- 0.50 0.2 128 1 8.00 FE 1.50 25 0.00 0.0 0.00 0.0 0.50 0.2 - 129- 1 2.00 AS 1.00 NO H 0.00 0.0 0.00 0.0. 'O.00 0.0 131 1 2.00 AS 1.00 16 0.67 o0. 0 1.83- 0.1 2.92 0.2 1*s i 2 3.00 AS 1.00 16 0.00 0.0 0.83 0.1 1.58 0.1 131 3 2.00 AS 1.00 16 0.00 0.0 1.25 0 .1- 1.75 0.1 ~, 131 4 4.00 AS 1.00. 16 0.75 0.1 1.25 0.1 1.75- 0.~ 2 132 1 2.00 AS 1.00 16 1.83 0.1 2.75 0.2 3.83 0.3- , 132 2 4.00 AS 1.00 .16 1.00 01 1.75 0.2 2. 2 5 0.2 '
~132 3 2.00 AS 1.00 16 1.00' O.1 1.75 0.1 2.25- 'O.1 -
4 a l
i 4
- I l
1
-TABLE 5 -
Pip! break and sump blockage probabilities vs. pipe diameter I A i
. ~ u4: e. ... .
, w e m .
utm m.. n neuemis,te
- w. n et. Le m u. meeet.
e te um. a ear.n.e c= = ,e.836ie.e.m i, nt, wetiem.. me ... n com rus_.. e- - m,e ... . aum
.. m non ._ e~a e .,s,ea._ __
s m.e . ..
. - em t em.3 e set oum s me .
s,.e we - ,e we es we - . a.n.u e.. 3 . ,,e_ = 0: . e em- eei.se - em e . e 5 a 1
.e =_ ,e we .- __- . _ - _
- 3. e.8 e.. , .e - e.. e.e ... . ...
..e
- e. _ e.0 - e..
Ge e. m m 8.4 0.0 e.e _ e.e_ _e.e e . e. . - e. __ e.e_ _ 3..e..m . e.0 .e - 4.0 . e.
- 3. .. m m e.e .. ...
... ..e
.. e.e e.e e.e - e.. . e. . e.e e.* e.e :
e.. s.e e.e e.. e.e. ee e.e e.0 - _e.e. _e. - e... .e... 4 0 0.. 0.0
.. . ...4.m e.e
. e.9
.-e.0 _ e.e 8.0 . e e.e e.e _.e.e ..a_
e.e 4. . . e.e e.0 G.e e.e 4.e - e.0 e .. S. e.e
- e. 3. m .0 s.4 e .. . 3.m-ei 0.
3.m-ei 3.m,0, e..- 0. 3. m -Gi e.g S.e . i. u m4.e i.u-e: ..ee _ ..e m. i.ee-te.=
-=
.ne e.0 3.eu
- v. m m,. e.e.
-- 3. _
. 8.
is 3.=-ee 3.m
. .e e..MS-0 e.m t. e.03. m .e. 0.03. m3. -em -e. 3. m . 4_-3.m-0.e.ee-eee.=-a S.n e.n . u-4. . . .- -
es. e.4 e.e ..... e.e 0.9 - ee ... e .
..e . e.. .... e.. e.e e.e
.70ea44.8.46meLe as-me s.gg,g.e.seate J 3.af t=ce 3.MS-ee 3.338 Ot.3.80eedL.e.320,et.e.eSeseL 3.eetmet....to. e. Set =Se 3.fot*ee 3.7 tate . f.eeE*04',4
.,4. 'i
.34-0e 0.8 8.0 0. 0.0 e.0 0.0 e.0 e.e e.e e.e . e.G s.8 : - 0.e le. e . e 30 .. e.e e.e -. e. 4.e' ^*. ** "- ^^ ^^ "We *e_ e.e
..." e."e e.e
- 33. e .e e.. 4.0 . 8.0 e.0 e.0 $ ge.e . e.e ..f 6.0 4 pe. e.
e.e 0.0 ' e.0 0.8 %.4 0.0 - e.e 0.e ..e " - e.e ~ G.0 .e e.e -!
.M. - e.e .. 8.8 e S.8 a.e *S *. & M .* =* 8.* 8.8 - . . e.8- - e.*
- e. 30. 8.0. .e e.e e.8 0.e e.0 0.0 e.e 4.0 0.0 8.e e.e / e.$ e.e ..e
- 30. e.388*e? e.e e segees e.e 9.00e+49 4.e e.3e=0? e.e e.38-07 S.0 e 30*e? 0.0 - ,
.30-01 3.eemed -.
4 e'8 .ees.e1 4,s femeL A
- 53. e.700-ef e.3it*e? .Det-et .4.eet**ee.048.el 8.eet=04 8.0M. 808-98 T..est+el Sea.et f.34t*ef . Set e.00 .eetse8.e.t?t eel-e.3^ +el e.lf^*teet. * " ^^..^ 34*et 3. . m
'8 M. e.46417 e.eet-et e.eet-et e.eet-et
*es. 8.0 e.e e.0 . e.8 .8. eft-et a." 7.704-4 e.ef t-et Aa m.g. 8 f.9.8-48 g,g,,,,,,,,,,e ,g3.e6*ef a.s _4.3 3.ee-e? _e.0 3.et**f 3.M-et 3.H
*a ,
es. e.6 0.0 0.0 e.e 0.0 0.e ee 0.0 e.e e.e ... e.S e.e e.e i
- 48. 0.3 e.G S.0 S.e 4.0 6.e . e.. e.. . e.e 4.0 0.0 ' ' O.e 'O.8' ' e.e
.44. 8...--. e.e e.8 - .- .e a.a 4.s ""
. 4.4 e." ^*
a.e 4.4 --e." "* i
- 08. e.e 0.8 ' e.0 e.. ee 8.0 0.e 0.0 e8 e.0 e.e e.e e.e 0.9 ee. e.0 e. ^
S.e e.e 8 - 4.0 ..e 0.9 e.. 0.e 0.0 0.8 e.. .8.. 8.0
.es e.e -. e.e -- . e.e- 4.* ** ". ^6 **
". e e.4 a.* ** *
- M. e.0 e.e e . . --- 8.e.98 0.0 e.0 e" 4 e.e s.e e.e , 8.e 0.0 e.. e.e +
i 101 3.ttt to I.?se-ee e.S e.e 4.0 e.s . e.4 e e.4 3.ee-et f.esace 3.et-ee 3.3e-ee e.ee-ee e.st- . su m cLafust . M e *Ielflettne tveut el.nette*INCMit B. *sete&LL meteeltitt 4, $ NIT. fWSWt MCWetdC8 1
-.e8-messe.= leBt. tytet*eele tves.4 eeant "I' le .se-autes" ^ ^-- "' -"
etEmaet . i .
^^
fesLE. """'" "* "o"* tott &L twemfetutIGHtt S& ole) i ecce t nec== ; e.=m ec,e.H n iew t.,itt of ten &CCS ,e.
=
c meem. ..m..mer m am 6 em e - met,
. m. m este en mm.nau em-to==
=66 m ee un.a.m u: m tue urie m se u--ce seat r t
M *ekeCReem m nee.S.:S esos se me pse&LL et 90s ,se .ce et Su to .[.
.t i
i U i e
'I 1
Sourcei NUREG/CR-3394, which contains the complete calculated data .' sets NUREG-0869, Revision.1 0-12 October 1985 i i
BLOCKAGE l'.O - Qualification Test for BLOCKAGE 1.0 - in
SUMMARY
OF PROBABILITIES DIAMETER BASIS - SCREEN AREA = 50.0 SQ.FT. , FLOW RATE = 8000.0 GPM, HEAD LOSS = 1.00 FT.H2O BREAK FREQUENCIES SCREEN UNAVAILABILITIES DIA. L/D = 3.0' L/D = 5. 0 L/D = 7.0 -; OVERALL IP IN. OVERALL IP OVERALL IP- OVERALL IP
- 2. 2.1E-04 7.1E-05 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 +
- 3. 1.3E-05 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 :
- 4. 4.1E-05 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 'l
- 6. 3.9E-05 3.9E-05 0.0000 0.0000-0.2742 0.2742 0.3710 0.3710 :
- 8. 7.1E-06 7.1E-06 0.0000 0.0000 0.0000 0.0000'O.2500 0.2500 i
- 10. - 3.3E-05 3.3E-05 0.1351 0.1351 0.2703.0.2703 0.2703 0.2703, ;
- 14. 2.5E-05 2.3E-05 0.3333 0.2857 0.4333 0.3929 0.7000 0.6786-
- 16. .5.3E-06 3.7E-06 1.0000 1.0000 1.0000 1.0000 1.0000 1.0000
- 30. 9.3E-07 0.0E+00- 1.0000 0.0000 1.0000 0.0000 1.0000 0.0000
- 32. 2.6E-07 0.0E+00 1.0000 0.0000 1.0000 0.0000 1.0000 0.0000 ,
- 32. 6.2E-07 6.2E-07 0.4167.0.4167 0.4167 0.4167 0.4167 0.4167 '
- 34. 7.2E-07 7.2E-07 -0.5000 0.5000 0.5000 0.5000 0.5000 0.5000
- 36. 4.7E-07 4.7E-07 0.5556 0.5556 0.6667 0.6667 0.7778 0.7778 TOTAL 3. 7E-04 1.PE-04 ,
NOMENCLATURE , DIA. INITIATING EVENT DIAMETER - INCHES OVERALL OVERALL PROBABILITY OF INITIATING EVENT OCURRENCE L/D RATIO OF TARGET DISTANCE.TO BREAK DIAMETER
SUMMARY
LOCATION CLASS LABEL IS: ' IP Primary systems in crane wall
- )
5 4 1 I [ t I
?
L i
i 1 BLOCKAGE 1.0. - Qualification Test for BLOCKAGE 1.0 - in
SUMMARY
OF FREQUENCIES DIAMETER BASIS - SCREEN AREA = 50.0 SQ.FT. FLOW RATE = 8000.0 GPM, HEAD LOSS = 1.00 FT.H2O
-l BREAK FREQUENCIES -SEQUENCE FREQUENCIES DIA. L/ D = 3 . 0 L/D = 5. 0 L/D = 7.0 IN. OVERALL IP OVERALL IP OVERALL~IP OVERALL IP
- 2. 2.1E-04 7.1E-05 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00
- 3. 1.3E-05-0.0E+00' O.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00
- 4. 4.1E-05 0.OE+00 0.0E+00 0.0E+00_0.0E+00 0.0E+00 0.0E+00'O.0E+00- {
- 6. 3.9E-05 3.9E-05 0.0E+00 0.0E+00 1.1E-05 1.1E-05 1.4E-05 1.4E-05 1
- 8. 7.1E-06 7.1E-06 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.8E-06 1.8E-06
- 10. 3.3E-05 3.3E-05 4.4E-06 4.4E-06 8.9E-06 8.9E-06 8.9E-06 8.9E-06
- 14. 2.5E-05 2.3E-05 8.2E-06 6.6E-06 1.1E-05 9.0E-06'1.7E-05 1.6E-05 'I
- 16. 5.3E-06 3.7E-06 5.3E-06 3.7E-06 5.3E-06 3.7E-06 5.3E-06 3.7E-06
- 30. 9.3E-07 0.0E+00 9.3E-07 0.0E+00 9.3E-07 0.0E+00 9.3E-07 0.0E+00
- 32. 2.6E-07 0.0E+00 2.6E-07 0.0E+00 2.6E-07.0.0E+00 2.6E-07 0.0E+00
- 32. 6.2E-07 6.2E-07 2.6E-07 2.6E-07 2.6E-07 2.6E-07 2.6E-07 2.6E-07
- 34. 7.2E-07 7.2E-07 3.6E-07 3.6E-07 3.6E-07 3.6E-07 3.6E-07 3.6E-07 -;
- 36. 4.7E-07 4.7E-07 2.6E-07 2.6E-07 3.1E-07 3.1E-07 3.6E-07 3.6E-07 TOT 3.7E-04 1.8E-04 2.0E-05 1.6E-05 3.8E-05 3.3E-05 5.0E-05 4.5E-05 $
NOMENCLATURE INITIATING EVENT DIAMETER - INCHES j DIA. ! OVERALL OVERALL PROBADILITY OF INITIATING EVENT OCURRENCE L/D RATIO OF TARGET DISTANCE TO BREAK DIAMETER
SUMMARY
LOCATION CLASS LABEL IS: IP Primary systems in crane wall : i i l Y l l 1 . I i '
. _ _ _ -_ _ _ _ ~
i P 1 i TABLE 7 Summary of the probability of s0mp failure l ' RECIRCULATION SCREEN # ru s n EST*D FAILURE PROBABILITY l FLOW RATE AREA WAD LDBS (BASED DN E LD TYPES) (SQ FT) (FT WATER) L/D=3 L/D=5 L/D=7 (GPM) 50* 1.0 1.le-5 1.7e 2.So-5 6000 1.2e-5 1.Se-5 , 6000 75 1.0 5.7e-6
- 100 1.0 3.le-6 6.7e-6 1.Be-5 .
6000 5 9e-6 -6.9e-6 6000 200 1.0 2.9e-6 6000 50 '2.0 9.9e-6' ~ 1.2e-5 2.ge-5 2.0 - 3.1e-6 9.2e-6 1. Se-5 ' 6000 75 6000 < 100 2.0 3.1 e-6 ' 5.9e-6 1.4e-5 2.9e-6 5.8e-6 6.9e-6 6000 200 2.0
^
6000 50 5.0 4.7e-6 1.2e-5 1.Be-5 3.1e-6 5.9e-6 1.5e-5 6000 , 75 5.0 7.7e-6 100 5.0 3.1e-6 5.9e-6 6000 5.3e-6 '6.9e-6 6000 200 5.0 0 1.6e-5 3.3e-5 4.5e-5 8000 50 1.0 2.4e-5 8000 75 1.0 9.1e 1.2e-5 1.2e-5 3.9e-6' 1.So-5 9000 100 1.0 ho 2.9e-6 .5.9e-6 7.7e-6 9000 200 8000 50 2.0 1.ie-5 1.7e-5 2.7e-5 8000 75 2.0 4.7e 1.2e-5 1.Se-5' 300 2.0 3.1e-6 6.7e-6 1. 6e-5 . > S000 5.9e-6 6.9e-6 8000 200 2.0 2.9e-6 . 9000 50 5.0 7.4e-6 1.2e-5 1.9e . 75 5.0 3.1e-6 '6.7e-6 1.7e-5 B000 1.3e-5 ~ 4 9000 100 5. 0 ' 3.1e-6 5.9e-6 200 5.0 2.9e-6 ' 5. 7e-6 ' . 6.9e-6 9000 > 50 1.0 1.6e-5 4.to-5 5.4e-5 10000 1.2e-5 2.4e-5 10000 75 1.0 9.9e-6 , 100 1. 0 4.Se-6 1.2e 1.Se-5 10000 5.9e-6 '9.4e-6 10000 200, 1.0 3.1e-6 10000 50 2.0 1l.1e-5 1.Se-5 4.3e-5 :;
'1.Be-5 10000 75 2.0. 7.4e-6 1.2e '
i 100 2.0 3.le-6 9.2e-6 1.Bar-5 i 10000 5.9e 6.9e-6 i 10000 200 2.0 2.9e l 10000 50 5.0 9.9e-6 1.2e-5 2.4e-5 75 5.0 ' 3.1e-6 9.2e-6 1.9e-5 ,
*N 3.to-6 -5.9e-6' 1.4e-5 10000 100 5.0 10000 -
200 5.0 2.9e-6 5.Be-6 6.9e-6 r l - NUREG-0869. Revision 1 0-14 October 1985 - . i l a l'
. . .. l
BLOCI* AGE 1.0 - Qualification Test for BLOCKAGE 1.0 - in
SUMMARY
TABLE BY LOCATION CLASS SCREEN BLOCKAGE FREQUENCY
'HL ECCS SUMP L/D = 3.0 L/D = 5. 0 ' L/ D = 7 . 0 FT FLOW AREA IP IP IP GPM SQFT 1.00 6000.0 50.0 1.1E-05 1.7E-05 2.8E-05 1.00 6000.0 75.0 5.7E-06 '1.2E-05 1.8E-05 1.00 6000.0 100.0 3.1E-06 6.7E-06 1.8E-05
.1.00 6000.0 200.0 2.9E-06 5.9E-06 6.9E-06 1.00 8000.0 50.0 1.6E-05 3.3E-05 4.5E-05 !
1.00 8000.0 75.0 9.1E-06 1.2E-05 2.4E-05 1.00 8000.0 100.0 3.9E-06 1.2E-05 1.8E-05 1.00 8000.0 200.0 2.9E-06 5.9E-06 7.7E-06 1.00 10000.0 50.0 1.6E-05 4.1E-05 5.4E-05 1.00 10000.0 75.0 9.9E-06 1.2E-05 2.4E-05 1.00 10000.0 100.0 4.8E-06 1.2E-05 ~ 1.8E-05 1.00 10000.0 200.0 3.1E-06 5.9E-06 9.4E-06 2.00 6000.0 50.0 9.9E-06 1.2E-05 2.4E-05 2.00 6000.0 75.0 3.1E-06 9.2E-06 1.8E-05 'l 2.00 6000.0 100.0 3.1E-06 5.9E-06 1.4E-05 2.00 6000.0 200.0 2.9E-06 5.8E-06 6.9E-06 2.00 8000.0 50.0 1.1E-05 1.7E-05 2.7E-05 ; 2.00 8000.0 75.0 4.7E-06 1.2E-05 1.8E-05 l 2.00 8000.0 100.0 3.1E-06 6.7E-06 1.6E-05 2.00 8000.0 200.0 2.9E-06 ' 5.9E-06 6.9E-06 2.00 10000.0 50.0- 1.1E-05 1.8E-05 4.3E-05 2.00 10000.0 75.0 7.4E-06 1.2E-05 1.8E-05 2.00 10000.0 100.0 3.1E-06 9.2E-06 1.8E-05 2.00 10000.0 200.0 2.9E-06 5.9E-06 6.9E-06 5.00 6000.0 50.0 4.7E-06 1.2E-05 1.8E-05 , 5.00 6000.0 75.0 3.1E-06 5.9E-06 1.5E-05 5.00 6000.0 100.0 3.1E-06 5.9E-06 7.7E-06 5.00 6000.0 200.0 0.0E+00 5.3E-06 6.9E-06 5.00 8000.0 50.0 7.4E-06 .1.2E-05 1.9E-05 - 5.00 8000.0 75.0 3.1E-06 6.7E-06 1.7E-05 5.00 8000.0 100.0 3.1E-06 5.9E-06 1.3E-05 5.00 8000.0 200.0 2.9E-06 5.7E-06 6.9E-06 5.00 10000.0 50.0 9.9E-06 1.2E-05 2.4E-05 : 5.00 10000.0 75.0 3.1E-06 9.2E-06 1.8E-05 5.00 10000.0 100.0 3.1E-06 5.9E-06 1.4E-05 5.00 10000.0 200.0 2.9E-06 5.8E-06 6.9E-06 NOMENCLATURE HL ALLOWABLE HEAD LOSS .; ECCS FLOW ECCS RECIRCULATION FLOU RATE SUMP AREA ECCS SUMP SCREEN AREA L/D RATIO OF TARGET DISTANCE TO BREAK DIAMETER '
SUMMARY
LOCATION CLASS IS: IP Primary systems in crane wall
L APPENDIX III SAMPLE OF SEQUENCE FREQUENCY OUTPUT DISCREPANCY l 5 1 i
l_ l e e e D e T we o "a 9u e s e e8 O .e I ed T q. i ze.rg 3 gra I h w :e e i e e I.s e 4 0 0 0. . 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0. l 0 0 0 0 9 @ @ @ O 0 0 0 0 0 0,0 0 0 0 0 0 9 9 0 0M. 0 0O0 00 0 0 00 0000000 0 0 00 e0O0O0 0 0 0 0 0. l e H e e e
}
m e e e E e 4 O
-O 8 es e= be ti e4 aft et W 0
et t m8 8**** O- me e se WD W l # O 8.se se O . . 'O Iens W 9g l3 h3 ,3 0 0 0. .= O. 0 0 0 0 0 0 0 e. O. O. O. O. O. O. O. O. O. M. O. O. O. O. O. O.g O. e e O. O. O003 e. s. O. O. O. O. O. u ues. u m ' em ens 300000000000000000000000000000099OOOOOeOOi o ens ans ans 4 =p e el e e et s'
# O 2 > .&
4 et QI t $ 1 .4
,T. og es i ens == a e=
- O3 ' e* es E en E .A 12 est E 8't e e'. e. W4 ens .A Is w4 e 4
- O. O. D. O. O. 0 0. O. O. O. O. O. O. O. C.1.'.> O. D. .O.
sD(OOOOOOOOOOOOOOOOOqOOOOOOOOcOO.OOOqOOOOOOO a S.I O. O. O. O. O. O. 4O.e O. O. O. O. O. O.we
== ==
uO. O. e.s ens en ee
<a O. 5O. O.
g .s.o O. I a u es e ens OE Q L ' ens == D. 2E ri
- e. t O BO '
4 4 4e > ans
- Oa we e w I ao em 3 e it u t e 0 O.n en e '
e9 I a E' ee Wd 9 I e'i 0 0 0 0 0 0e 0 0 0 0 0 0 0 0 0 0. . G. 0 0 0e 0 0 0 0e i se e n o p as ,0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 a we g kee .= q 0 0 0 0 0 0 0 0 c 0 0 0 0 ts O 0 0 0 0 0 0 0 0 0 gr
> us e-e e e el t - O C O.
% 8 o 0 e we
.4 .E. WI 4 4 e8 en esa w e a E 5W3 5 O c2 en.= i en em e . es aos en > een .
o* > e= o= 3 2 me a e i g Oe O. C O. O. d. O. O.4 C O. O. C O. O. O Oe d o e6 st en vs =
.s em 6. O. O. O. .a. O.
e . C.g O. O. O. O. O. O O. O. < C. O. O. C. O. O. O. O. f9. C O O O O O f10 0 c O O O O O O O O O O O O c e e O O c O O O O i' q e
>>> >w 50 en 0 .
IlO O O O n c4 0 0 c * ! d e$ e4 et n ew - e Ka 1 e O 9 O >> >4Em E. .j
.>3 i
en e sh I
.e e s .M ,E ;
.e G 4e
.ae 3 .e 3e e. 3 ee
.O d er j e
- O e e.c ens es. e no rammas s en s emo e .
me 3 a. e O O O.......
.e
- O O O p a O. O. d.O. O.O. O. O.d. O. O. O.O en.O. O. O. O.O.O. O.O.O.O.O. O. O.O.Oe O.O. Om
== a.
$00000000000COOOOOOOOOOOOOOCOOOOOOOOOcceO4O e
ge e e
# I e "e I ee 80 1 0 e.
a WK
- e. e 1 O '
e% s u O es * ** me ' n.
> vt h.Z. e4 ' ens
'l e
o .e e saw v ee e.ns en i p .a .d >A C Q R.e.s r en en wt- O.d 2 we n 4 j act ens . We == et 38 O l O WD = =. co ens 4l O p .s ad e g 0 4. W.O. O. O.O. O. O O.O.O g 9 0 0 0 0 0. O. O. S. #. 9 0 0 0 0 O. O. O O. n. e s. e. e. O. O.
< < 4 ei e<
G .e e s .04Ces . Om O.e O a se. me 3 ps es ' g < OOG00000COOO 900 medSee ei ,
- e. *e# Z 4 0000000000000000000 - ess 3 & U es ut .Ee
.OO .ad
- e i mi s 0 $q l B U g en a I' e *O 3 3 dw as. E e et > es ==
WD es ed at en , e.d
- O O. L O == et og .d > = nnq e G.
. .O. OO .qs.,d a.m e u gg
. g .
e 2 4eOO e= g 3ei O. O. O. 9 0 0. O. O. O. O. O. c. O. O. C. 0O. 5. C4 O. O. d. O. O.4 O O. S. E. O. 0 O. .< O. S. e. O. O. e. e. i ens e. eO O g 41900000000000000960000008 OOCOOCSeeeteSOGei
- e o e
* .O= 0 e e
>g na e '
Z l 0 e e T am ar ens ans es i s .g > e O .et ej u ens T i 6.i se .( I 2 eft u et e h $. P . d er ei e 2 er es .t i 4 a,nd B ii .d S 4
- e. O. O. ==. O. O. O. O. D. O. O. O. O. O. .e O. O. O. O. O. O. O. O. 89 5. O. O. O. O. O. O. O. . O O.
- 3E RS me e.
nt e. O. O. e e.
- a3 ' g,e e Oc e OO O OOO OO OO c ee O O c O O e O c c O O O O O O O c e e ce O Osi , O.# . s se > es ei > e-e= 3 i em et ar 44 U n. eO. e o e et et me et e >> +
a 8 O $e S $ O 9
.A .A R E e4 WD es 0 t ens ,
U . . =e= W e,i.. IOe6 e en. ens e , s,e .et t O
- e O I e me g.s I e < ,. e O M O O c e O O m e .= S 9 9 d e s e e T ' .=* U
*********************9
- es s*EOm."
p e. eO R es e 9 0 0 0 9. e. 0 0. O. O. O. O. O. d.@. e G l3 e ua6 9 e 8 0. e 0 0 0 e 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 e e O O O O e e s e s e. muse *Am
> en > e9 ,
t e e Weei e . ERE 9 e o e e ==== ? I T e O (>
- se O m. e3 33
- e t lo- em 0 8 as as I3 3 ans .
'O e a es w > e.mi > ee
- 2 e9 i Wi '
e . en ' aw QO me 4 e h m.e am
- w e 'l 9 0 0. .=. O. 9 3 9 0. e. 9 9 0 0 0 0. S. 0 0 9 9 9. . 990003 0 9. . e. #. O. e. c. o. c. e. . N. =g=, g .e. g g g,
, 1 e9e9900e9900000094se999093999999999990039 e e= e ..
I
- g 3 4= e= en O ge -
=
e e s e e ERme3RRE a- O O # 3 e ed as esesesas
^
O 4 e e >>d>>>>- , I -- a es as t 4 I O .e= es e j e e e - eeensa dege.s asee.s a.s as e
*. ' n at med o.ft 4 i S -
g .en.. se es .e. me 9 6 3e' e. O. O.e O.O.O. e. e. e. e.e.e.O. O. O. O.O.O.O.O.O.n. e. O.O.0 . O.e. e. o.e.s.e. e. . 3333333 n 0 0 0.e. i e . O .e . l.e e O o e c e s e e o c e. e e O m m e e c e o e m e t e e e e e e e e e e e e s
- l. Io + 1*e e 4' O-e+ efe+ **
1 e4 e .- e' , se + l s+ e e+ g agg gg me 6. on+ el e. oe e-eee e e e =e e .no.,n e.eoe e .* eee..* *e n' es re
- e. -
a ' no.. e, .-.n e .an s ,- . l n e e- ,n,.on-e- ,n ee.n..o. s . o,n .es.. .e. e o, =, n .e. n e. n. e. n*ns e,- .n. n e.e.
.a s eu- e on s n e .e. i .
0 i e.. 9 9 9 9 W e e o e o e e >= pe= 91 > e e e e e e o--o e e e e e e O e >g om e= en l l eo e= == e n N n a n n et fil OOm.e 1 0 G. ee. P M ' a 1 b & l e, G et 1 '1 C-74 ,,
.)
,m--
BLOCKAGE 1.0 1.0.- in Qualification Test for BLOCKAGE 100.0 SQ.FT. SEQUENCE FREQUENCY BY SYSTEM.- SCREEN AREA = FT.H20, L/D = 3.0 5.00 FLOW RATE =' 10000.0 GPM, HEAD LOSS = IP Out In Prim _ Sec j SYS - DCLS OVERALL' 0.0E+00 1 2-6 'O.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 ; 1 18-+ 1.8E-07 1.8E-07 0.0E+00 1.8E-07 1.8E-07 0.0E+00 l 2 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 'O.0E+00 , 2 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00-2 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 'O.OE+00 0.0E+00 l 2 18-+ 0.0E+00 I 3 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 3 8-10 0.0E+00 0.OE+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 3 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 3 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00' O.0E+00 0.0E+00 4 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 4 8-10 0.OE+00 4 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 '0.0E+00 4 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 5 2-6 0.0E+00 0.OE+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00
- 5 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 5 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 5 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 6 2-6' O.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 .0.0E+00 6 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 ,
6 12-16 2.9E-06 2.9E-06 0.0E+00 2.9E-06 2.9E-06 0.0E+00 i 6 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 7 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 { 7 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 ; 0.0E+00 0.0E+00 0.0E+00 0.OE+00 0.0E+00 4 7 12-16 0.0E+00 7 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 ' 8 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00' O.0E+00 0.0E+00 0.0E+00 8 8-10 0.0E+00 8 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 i 8 18-+ 1.2E-06 0.0E+00 1.0E-07 1.1E-06 0.0E+00 1.2E-06 9 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 9 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 9 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 ; 9 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 TOTAL 4.2E-06 3.1E-06 1.0E-07 4.1E-06 3.1E-06 1.2E-06 r NOMENCLATURE SYST.ID INITIATING EVENT PIPING SYSTEM CLASS DCLS. INITIATING EVENT DIAMETER CLASS 1 Hot Leg 6 Chem./Vol. Control, System 2 Cold. Leg 7 Feedwater 3 Crossover 8 Main Steam ' 4 Safety Inj. (cold leg) 9 Pressurizer 5 Safety Inj. (hot leg) 10
.l i
i j
APPENDIX IV SAMPLE BLOCKAGE 1.0 OUTPUT
BLOCKAGE l'.0'-' WELD
SUMMARY
TABLE !
-WELD. WELD SYSTEM PIPE WELD LOC. NO.0F No. .ID ID -DIAM. TYPE ' CODE TARGETS 1 1A. 1 34.00 N IP 3 2.1B 1- 34.00 N IP '3 3 2A 1 34.00 E IP 2 4 2B 1 34.00 E IP 3 5 3A 1 34.00 E. IP 24 6 3B ' .1 34.00 E IP 16 7 4A 1 34.00 N IP 23 8~4B 95 1
2 34.00 36.30 N N IP IP 22 7 10 6 2 36.30 E IP '3 'I 11 7 2 36.30 E IP 2 12 8 2 36.30 E IP 8 ; 13 9 2 36.30 E IP 7 ' 14 10 2 36.30 N IP 18 15 11A 3 32.30 N IP 13 I 16 11B 3 32.30 N' IP 13 , 17 12A 3 32.30 E IP 2-18 12B 3 32.30 E IP 5 19 13A 3 32.30 N IP 1 ; 20 13B 3 32.30 N IP 5 21 14 4 10.00 N IP 7 22 15 4 -10.00 E IP 2 3 23 16 4 10.00 E IP 1 l 24 17 4 10.00 E IP 1 25 18 4 10.00 E IP 1 26 19 4 10.00 A IP 2 . 27 20 4 10.00 A IP 2 ? 28 21 4 10.00 A IP 3 . 29 22 4 10.00 E IP 2 i 30'23 4 10.00 E IP 2 31 24 4 10.00 E IP 2
- 32 25 4 10.00 E IP 1 33.26 4 10.00 E IP 1 i 34 27 4 10.00 E IP 1 35 28 4 6.00 A IP 1 36 29 4 6.00 E IP 2 37 30 4 6.00 E IP '2 f 38 31 4 6.00 E -IP 1 39 32' 4 6.00 E IP 1 40 33 4 6.00 E IP 1 ;
41 34 4 6.00 E .IP 1 :
^
42 35 4 6.00 E IP 1 43 36 4 6.00 E IP 1 ! 44 37 4 6.00 E IP 1 1 45 38 4 6.00 E IP 1
-{
46 39 4 8.00 E- IP 1 47 40 4 8.00 E IP 1 , 48 41 4 8.00 E IP 1 49 42 4 8.00 E IP 1 i 50'44 4- 10.00 A IP 2 ., ; 51 45 4 2.00 A IP 2 , 52.46 4 2.00 E IP 1 ;
=!
t i
. .. _- e . . -_ _ ' BLOCKAGE.1.O'- TARGET'
SUMMARY
' TABLE ..
' L/D=3 'L/D=5 L/ D=7 WELD. TARG -TARG INSUL INSUL REF. TARGET TARGET . TARGET ID NO. DIAM TYPE THICK LENGTH &VOL LENGTH &VOL- LENGTH &VOL r 1A 1 34.00 RM- 3.50 28 4.17 11.9 4.17 11.9 4.16 11.9 1A 2 34.00 RM 3.50 28 2.17 6.2 2.17 6.2 2.10 6.0 1A 3 32.26 RM 3.50 28 2.25 6.1 2.25 6 .' 1 2.25 6.1 ,
1B- 1 34.00 RM 3.50 28. 2.00 5.7 2.00 ~5.7 2.00- 5.7 l' 1B 2 '34.00 RM 3.50 28 5.17 14.8 5.17- 14.8 5.16 14.8 1B 3 32.26 RM 3.50 28 5.50 15.0 5.50 15.0 5.50 15.0 : 2A 1 34.00 RM 3.50 28 2.83 8.1- 2.83 8.1 2.83 8.1 ! 2A 2 32.26 RM 3.50- 28 0.75 2.0 0.75 2.0 0.75 2.0 : 28 ' 2B 1 34.00 RM 3.50 3.00 8.6- 3.00 8.6 3.00 8.6 2B 2 34.00 RM 3.50 28 H6.00 17.2 6.00 17.2 6.00 17.2 - 2B 3 32.26 RM 3.50 2 .6.17 16.8 6.17 16.8 6.16- 16.8 [ 3A 1 '34.00 RM 3.50 2 6.00 17.2 6.00 17.2 6.00- 17.2 1 3A 2 138.00 RM 3.50 28 6.00- 64.8 16.00 64.8 '6.00 64.8 , 3A 3 138.00 SE 3.50 28 2.33 25.2 8.00 86.4 13.67 147.7 3A 4 32.26 RM 3.50 28 0.00 0.0 1.83 5.0 5.25- 14.3 > 3A 5 36.32 RM 3.50 28 0.00 0.0 3.33 10.1 29.50 89.7 f 3A 6 81.00 RM 3.00 28 0.00 0.0 0.00 0.0 26.00 142.9
.3A 7 138.00 RM 3.50 28 0.00 0.0 0.00 0.0 6.00 '64.8 3A 8 138.00 SE 3.50 28 0.00 0.0 0.00 .0.0 13.67'147.7 :
3A 9 2.00 SE 1.50 4 15.66 1.8 15.83 1.8 15.83 1. 8 ' 3A. 10 1.00 SE 1.50 4 3.42 0.3 10.50 0.9 10.50 0.9 3A 11 3.00 SE 1.50 4 0.00 0.0 6.25 0.9 13.00 1.9. 3A 12 2.00 FE 1.50 26 2.75 0.3 10.75 1.2 13.50 1.5~ 3A 13 3.00 FE 1.50 26 5.25 0.8 11.50 1.7 14.25 2.1. 3A 14 0.75 FE 2.00 26 0.00 0.0 1.50 0.2 1.50 0.2 3A 15 0.75 FE 2.00 26 0.00 0.0. 1.50 'O.2 1.50 0.2 !
-3A 16 2.00'FE 1.50 26GG 0.00 0.0 2.00- 0.2 2.00 0.2 3A 17 2.00 AS 1.00 16 0.00 0.0 0.00 0.0 7.00 0.5 3A 18 1.00 SE 1.00 32 0.00 0.0 0.00 0.0 9.08 0.4 3A 19 0.75 SE 1.00 32 0.00 0.0 0.00 0.0 1.42. 0,1 3A 20 2.00 SE 1.00 33 0.00 0.0 0.00 0. 0. 5.00 0.3 3A 21 10.00 RM 3.00 25 0.00 0.0 0.00 0. 0. 20.58 17.5 3A 22 10.00 FE 1.50 25 0.00 0.0 0.00 0.0 11.25 4.2 3A 23 10.00 FE 1.50 37 0.00 0.0 0.00 0.0 11.66 4.4 !
3A 24 6.00 FE 1.50 37 0.00 0.0 0.00 0.0 4.75 1.2 ; 3B 1 34.00 RM 3.50 28 5.00 14.3 5.00 14.3- 5.00 14.3 ' 3B 2 36.32 RM 3.50 28 0.00 0.0 7.83 23.8 7.83 23.8 3B 3 34.00 RM 3.50 28 0.00 0.0 0.00- 0.0 10.25 29.4 3B 4 138.00 RM 3.50 28 0.00 0.0 0.00 0.0 6.00- '64.8 3B 5 138.00 SE 3.50 28 0.00 0.0 0.00 0.0 13.87 149.9 3B 6 3.00 FE 1.50 26 -6.00 0.9 6.00 0.9 6.00 -0.9 ? i IB 7 2.00 FE 1.50 26 9.42 1.1 9.42 11 . 1 9.42- ~1;l AB 8 1.00 FE 1.50 26 12.25 1.0 12.25 1..0 12.25 1.0 IB 9 1.00 FE 1.50 26 0.00 0.0- 0.00 0.0 12.25 1.0 , IB 10 10.00 RM 3.00 25 0.00 0.0 0.00 0.0' 16.75 14.3 l IB 11 2.00 FE 1.50 26 0.00 0.0 0.00 0.0 8.17 0.9 , 3B 12 1.50 FE 1.50 37- 0.00 0.0 1.50 0.1 1.50 0.1 -l
- 1B 13 6.00 RM 3.00 25- 8.83 5.2 8.83- 5.2 .8.83 5.2- l
;B 14 6.00 RM- 3.00- 25 0.00 0.0 'O.00- 0.0 3.42- 2.0 {
51B 15 1.00 SE 2.00 25 1.00 0.1 1.00 0.1 1.00 0.1 16 B 16 0.75 FE 2.00- 26 1.25 0.1 1.25 0.1 0.00 - 0.0 q i [ F e i i e + ,-u- !
BLOCEAGE 1.0 - Qualification Test for BLOCKAGE 1.0 - in
SUMMARY
OF FREQUENCIES-SYSTEM BASIS - SCREEN AREA = -200.0 SQ.FT. 3 FLOW RATE = 10000.0 GPM, HEAD LOSS = 5.00 FT.H2O BREAK FREQUENCIES ' SEQUENCE FREQUENCIES L/D = 5.0 L/D = 7.0 SYS. DIAM. L/D = 3.0 ID CLS . OVERALL IP OVERALL IP OVERALL IP OVERALL IP , 1 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 j 1 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00- 4 1 18-+ 7.2E-07 7.2E-07 0.0E+00 0.0E+00 1.8E-07-1.8E-07 3.6E-07 3.6E-07 2 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 2 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00- ' 2 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 2 18-+ 4.7E-07 4.7E-07 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.3E-07 1.3E-07 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 3 2-6 0.0E+00 0.0E+00 3 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 3 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00' 3 18-+ 6.2E-07 6.2E-07 0.0E+00 0.0E+00 2.6E-07 2.6E-07 2.6E-07 2.6E-07 ' 4 2-6 4.1E-05 4.1E-05 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 4 8-10 4.0E-05 4.0E-05 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 4 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00'O.0E+00 l 4 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 5 2-6 6.8E-05 6.8E-05 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 5 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 -i 5 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 ! 5 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 62-6 0.0E+00 0.0E+00 0.0E+0C u.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 ; 6 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+C0 0.0E+0C L.0E+00 0.0E+00 0.0E+00 l 6 12-16 1.2E-05 8.6E-06 2.9E-06 2.9E-06 b.3r-06 3.3E 06 6.2E-06 6.2E-06 ! 6 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+0C 0.0E+00 0.0E+00 7 2-6 1.9E-04 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0F.+00 0.0E+00 0.0E+00
- 7 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+vC 0.0E+00 0.0E+00 7 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 7 18-+ 0.0E+00 0.OE+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 8 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 8 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 8 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00' '
8 18-+ 1.2E-06 0.0E+00 1.3E-07 0.0E+00 3.9E-07 0.0E+00 5.9E-07 0.0E+00 , 9 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 9 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0Lt00 0.0E+00 0.0E+00 0.0E+00 l 9 12-16 1.8E-05 1.8E-05 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 , 9 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 TOTAL 3.7E-04 1.8E-04 3.0E-06 2.9E-06 6.2E-06 5.8E-06 7.5E-06 6.9E-06 ~! NOMENCLATURE SYS.ID INITIATING EVENT SYSTEM DESIGNATION' OVERALL OVERALL PROBABILITY OF INITIATING EVENT OCURRENCE RATIO OF TARGET DISTANCE TO BREAK DIAMETER j L/D
SUMMARY
LOCATION CLASS LABEL IS: . IP Primary systems in crane wall l 7 A
1.0'- in
~
BLOCKAGE 1.0 --Qualification Test for BLOCKAGE
SUMMARY
OF PROBABILITIES' DIAMETER' BASIS - SCREEN AREA = 200.0LSQ.FT. ! FLOW RATE = 10000.0 GPM, HEAD LOSS = 5.00 FT.H2O j BREAK FREQUENCIES SCREEN UNAVAILABILITIES DIA. L/D = 3.0 L/D = 5.0 L/D =-7.0 1 IN. OVERALL IP OVERALL IP OVERALL IP OVERALL IP
- 2. 2.1E 7.1E-05 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000-
- 3. 1.3E-05 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
- 4. 4.1E-05 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 >
- 6. 3.9E-05 3.9E-05 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 ,
- 8. 7.1E-06 7.1E-06 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 .
- 10. 3.3E-05 3.3E-05 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
- 14. 2.5E-05 2.3E-05 0.0333 0.0357 0.1333'O.1429 0.1333 0.1429
- 16. 5.3E-06 3.7E-06 0.3846 0.5556 0.3846 0.5556 0.5385 0.7778
.30, 9.3E-07 0.0E+00 0.0000 0.0000 0.2778 0.0000 0.5000 0.0000 '
32, 2.6E-07 0.0E+00 0.5000 0.0000 0.5000 0.0000 0.5000 0.0000
- 32. 6.2E-07 6.2E-07 0.0000 0.0000 0.4167 0.4167 0.4167 0.4167
- 34. 7.2E-07 7.2E-07 0.0000 0.0000 0.2500 0.2500 0.5000 0.5000
- 36. 4.7E-07 4.7E-07 0.0000 0.0000 0.0000 0.0000'0.2778 0.2778 TOTAL 3. 7E-04 1.8E-04 NOMENCLATURE ,
DIA. INITIATING EVENT DIAMETER - INCHES
~OVERALL OVERALL PROBABILITY OF INITIATING EVENT OCURRENCE ; 'L/D RATIO OF TARGET DISTANCE TO BREAK DIAMETER
SUMMARY
LOCATION CLASS LABEL IS: I IP Primary systems in crane wall i f a s V e i
= . . <-- ,
l BLOCKAGE l'0 - Qualification Test for BLOCKAGE 1.0 - in
. SEQUENCE FREQUENCY BY SYSTEM - SCREEN AREA = 50.0 SQ.FT.
FLOW RATE = 6000.0 GPM, HEAD LOSS = 1.00 FT.H20, L/D = 3.0 SYS- DCLS OVERALL IP Out In Prim Sec , 1 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 , 1 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0F+00 0.0E+00 1 18-+ 3.6E-07 3.6E-07 0.0E+00 3.6E-07 3.6L-07 0.0E+00 2 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.Ol+00 0.0E+00 2 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+70 0.0E+00 2 22-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00- 0.0E+00 0.0E+00 2 38-+ 2.6E-07 2.6E-07 0.0E+00 2.6E-07 2.6E-07 0.0E+00 3 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 a 8-10 0.0E+00 0.0E+00- 0.0E+00 0.0E+00 0.OE+00 0.0E+00 3 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.OE+00. 0.0E+00 3 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 4 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 - 4 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 4 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.OE+00 0.0E+00 4 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 5 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 7 5 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 5 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 5 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 : 6 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1 6 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 6 12-16 1.2E-05 8.6E-06 3.3E-06 8.6E-06 1.2E-05 0.0E+00 . 6 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 7 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 7 10 0.0E+00 0.0E+00 0.0E+00 0'0E+00 0.0E+00 0.0E+00 7 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 7 18-+ 0.0E+00 0.0E+00. 0.0E+00 0.0E+00 0.0E+00 0.0E+00 8 2-6 0.0E+00 0.OE+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 8 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.OE+00 0.0E+00 8 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 8 18-+ 1.2E-06 0.0E+00 1.0E-07 1.1E-06 0.0E+00 1.2E-06 i 9 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 9 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 I 9 12-16 1.6E-06 1.6E-06 0.0E+00 1.6E-06 1.6E-06 0.0E+00 9 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 TOTAL 1.5E-05 1.1E-05 3.4E-06 1.2E-05 1.4E-05 1.2E-06 NOMENCLATURE SYST.ID INITIATING EVENT PIPING SYSTEM CLASS DCLS. INITIATING EVENT DIAMETER CLASS ; 1 Hot Leg 6 Chem./Vol. Control System i 2 Cold Leg 7 Feedwater ! 3- Crossover 8 Main-Steam 4 Safety Inj. (cold leg) 9. Pressurizer t 5 Safety Inj. (hot. leg) 10 l 1 l 1
)
gg _ . - , g._
I BLOCKAGE 1.0 - Qualification Test for BLOCKAGE 1.0 - in
. SEQUENCE FREQUENCY:BY DIAMETER - SCREEN AREA = 50.0 SQ.FT.
FLOW RATE = 6000.0 GPM, HEAD LCSS_= 1.00 FT.H20, L/D = 3.0 DIAM OVERALL IP Out In Prim Sec ,
- 2. 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00
- 3. 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00
~
- 4. 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 i
- 6. 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 .
- 8. 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00
- 10. 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00
- 14. 8.2E-06 6.6E-06 1.6E-06 6.6E-06 8.2E-06 0.0E+00- ,
- 16. 5.3E-06 ~3.7E-06 1.6E-06 3.7E-06 5.3E-06 0.0E+00 !
- 30. 9.3E-07 0.0E+00 1.0E-07 8.3E-07 0.0E+00 9.3E-07
- 32. 2.6E-07 0.0E+00 0.0E+00 2.6E-07 0.OE+00 2.6E-07 i
- 32. 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 2
- 34. 3.6E-07 3.6E-07 0.0E+00 3.6E-07 3.6E-07 0.0E+00
- 36. 2.6E-07 2.6E-07 0.0E+00 2.6E-07 2.6E-07 0.0E+00 TOTAL 1.5E-05 1.1E-05 3.4E-06 1.2E-05 1.4E-05 1.2E-06 NOMENCLATURE DIAM DIAMETER OF INITIATING EVENT - INCHES OVERALL OVERALL SEQUENCE FREQUENCY IP Primary systems in crane wall Out Outside crane wall In Inside crane wall Prim Primary systems Sec Secondary systems ;
s
?
I
- s
BLOCKAGE 1.0 - Qualification Test for BLOCKAGE 1.0 - in ; OVERALL
SUMMARY
TABLE \ SCREEN BLOCKAGE FREQUENCY HL ECCS SUMP L/ D = 3 . 0 L/D = 5.0 L/ D = 7. 0 , FT- FLOW AREA OVERALL OVERALL OVERALL { l GPM SQFT 1.00 6000.0 50.0 1.5E-05 2.2E-05 3.3E-05 ! 1.00 6000.0 75.0 8.5E-06 1.6E-05 2.2E-05 1.00 6000.0 100.0 4.2E-06 8.7E OC 2.2E-05 ; 1.00 6000.0 200.0 3.1E-06 6.4E-uv 7.9E-06 ( 1.00 8000.0 50.0 2.0E-05 3.8E-05 5.0E 75.0 1.4E-05 1.6E-05 2.8E-05 -I
.1.00 8000.0 1.00 8000.0 100.0 5.9E-06 1.6E-05 2.2E-05 6.8E-06 8.9E-06 i 1.00 8000.0 200.0 3.2E-06 1.00 10000.0 50.0 2.0E-05 4.5E-05 5.9E-05 [
1.00 10000.0 75.0 1.4E-05 1.7E-05 2.8E-05 1.00 10000.0 100.0 7.7E-06 1.6E-05 2.2E-05 l 1.00 10000.0 200.0 3.8E-06 7.1E-06 1.1E-05 ; 2.00 6000.0 50.0 1.4E-05 1.6E-05 2.8E-05 2.00 6000.0 75.0 4.2E-06 1.2E-05 2.2E-05 ,
; 00 6000.0 100.0 4.2E-06 7.1E-06 1.6E-05
_.00 6000.0 200.0 3.0L-06 6.2E-06 7.5E-06 f 2.00 8000.0 50.0 1.5E-05 2.2E-05 3.1E-05 2.00 8000.0 75.0 6.7E-06 1.6E-05 2.2E-05 2.00 8000.0 100.0 4.2E-06 8.7E-06 2.0E-05 - 2.00 8000.0 200.0 3.1E-06 6.3E-06 7.9E-06 2.00 10000.0 50.0 1.5E-05 2.3E-05 4.7E-05 1 2.00 10000.0 75.0 1.1E-05 1.6E-05 2.3E-05 t 2.00 10000.0 100.0 4.2E-06 1.1E-05 2,2E-05 [ 2.00 10000.0 200.0 3.1E-06 6.6E-06 8.1E-06 5.00 6000.0 50.0 6.7E-06 1.6E-05 2.2E-05 5 5.00 6000.0 75.0 4.2E-06 7.1E-06 1.6E-05 l 5.00 6000.0 300.0 3.5E-06 7.0E-06 8.9E-06 1 5.00 6000.0 200.0 0.0E+00 5.6E-06 7.5E-06 ( 1 5.00 8000.0 50.0 1.1E-05 1.6E-05 2.4E-05 5.00 8000.0 75.0 4.2E-06 8.7E-06 2.0E-05 ! 5.00 8000.0 100.0 3.8E-06 7.1E-06 1.5E-05 : 5.00 8000.0 200.0 3.0E-06 6.0E-06 7.5E-06 2.8E-05 [ 5.00 10000.0 50.0 1.4E-05 1.6E-05 5.00 10000.0 75.0 4.2E-06 1.3E-05 2.2E-05 , f 5.00 10000.0 100.0 4.2E-06 7.1E-06 1.6E-05 5.00 10000.0 200.0 3.0E-06 6.2E-06 7.5E-06 i NOMENCLATURE HL' ALLOWABLE HEAD LOSS ; ECCS FLOW ECCS RECIRCULATION FLOW RATE SUMP AREA ECCS SUMP SCREEN AREA L/D RATIO OF TARGET DISTANCE TO BREAK DIAMETER -l i l l
BLOCKAGE 1.0 - Qualification Test for BLOCKAGE 1.0 - in
SUMMARY
TABLE.BY LOCATION CLASS i SCREEN BLOCKAGE FREQUENCY HL ECCS SUMP L/ D = 3 . 0 L/D = 5.0 L/D = 7.0 ' FT FLOW AREA IP IP IP GPM SQFT 1.00 6000.0 50.0 1.1E-05 1.7E-05 2.8E-05 ; 1.00 6000.0 75.0 5.7E-06 1.2E-05 1.8E-05 1.00 6000.0 100.0 3.1E-06 6.7E-06 1.8E-05 { 1.00 6000.0 200.0 2.9E-06 5.9E-06 6.9E-06 1.00 8000.0 50.0 1.6E-05 3.3E-05 4.5E-05 1.00 8000.0 75.0 9.1E-06 1.2E-05 2.4E-05 l 1.00 8000.0 100.0 3.9E-06 1.2E-05 1.8E-05 : 1.00 8000.0 200.0 2.9E-06 5.9E-06 7.7E-06 ! 1.00 10000.0 50.0 1.6E-05 4.1E-05 5.4E-05 l 1.00 10000.0 75.0 9.9E-06 1.2E-05 2.4E-05 1.00 10000.0 100.0 4.8E-06 1.2E-05 1.8E-05 ; 1.00 10000.0 200.0 3.1E-06 5.9E-06 9.4E-06 2.00 6000.0 50.0 9.9E-06 1.2E-05 2.4E-05 . 2.00 6000.0 75.0 3.1E-06 9.2E-06 1.8E-05 2.00 6000.0 100.0 3.1E -06 5.9E-06 1.4E-05 ' 2.00 6000.0 200.0 2.9E-06 5.8E-06 6.9E-06 2.00 8000.0 50.0 1.1E-05 1.7E-05 2.7E-05 2.00 8000.0 75.0 4.7E-06 1.2E-05 1.8E-05 r 2.00 8000.0 100.0 3.1E-06 6.7E-06 1.6E-05 2.00 8000.0 200.0 2.9E-06 5.9E-06 6.9E-06 2.00 10000.0 50.0 1.1E-05 1.8E-05 4.3E-05 { 2.00 10000.0 75.0 7.4E-06 1.2E-05 1.8E*05 [ 2.00 10000.0 100.0 3.1E-06 9.2E-06 1.8E-05 ! 2.00 10000.0 200.0 2.9E-06 5.9E-06 6.9E-06 5.00 6000.0 50.0 4.7E-06 1.2E-05 1.8E-05 5.00 6000.0 75.0 3.1E-06 5.9E-06 1.5E-05 5.00 6000.0 100.0 3.1E-06 5.9E-06 7.7E-06 5.00 6000.0 200.0 0.0E+00 5.3E-06 6.9E-06 ! 5.00 8000.0 50.0 7.4E-06 1.2E-05 1.9E-05 5.00 8000.0 75.0 3.1E-06 6.7E-06 1.7E-05 [ 5.00 8000.0 100.0 3.1E-06 5.9E-06 1.3E-05 ; 5.00 8000.0 200.0 2.9E-06 5.7E-06 6.9E-06 5.00 10000.0 50.0 9.9E-06 1.2E-05 2.4E-05 5.00 10000.0 75.0 3.1E-06 9.2E-06 1.BE-05 5.00 10000.0 100.0 3.1E-06 5.9E-06 1.4E-05 i 5.00 10000.0 200.0 2.9E-06 5.8E-06 6.9E-06
- NOMENCLATURE HL ALLOWABLE HEAD LOSS ECCS FLOW ECCS RECIRCULATION FLOW RATE SUMP AREA ECCS SUMP SCREEN AREA .i L/D RATIO OF TARGET DISTANCE TO BREAK DIAMETER !
SUMMARY
LOCATION CLASS IS: IP Primary systems in Orane wall i F
4-# 4 4 48 BLOCKAGE 1.0 - ERROR FILE ~ Qualification Test for BLOCKAGE 1,0 'in' , 4
-i
}
I b
-l ;
F 5 J
?
P
?
h
- t, 6
i s h
's
-6 I
I
.N i
1 9 x i
' :\
I I t I e P
'5 1
E 6
)
?
I a
- t 6
t APPENDIX V BLOCKAGE 1.0 PROGRAM LISTING i t 4 9 s t-i
i 'F77L - Lahey FORTRAN 77, Version 4.01 11/27/93 16:52:46 Source file Listing-1 c BLOCKAGE V1.0 reproduces the functions of the'PRA and TABLE 2 c programs documented in NOREG/CR-3394, Vol. 2. It calculates 3 c frequencies and probabilities of sump screen blockages by 4 c insulation debris from pipe weld breaks, for PWRs only. 5 c 6 include ' datastor.for' l LII 1 c FILE DATASTOR.FOR - include in BLOCKAGE modules Il 2 c program parameters: these are the maximum dimensions of arrays. 3 Il 3 c maximum number of welds and targets per weld:' .l Il 4 parameter (maxwls = 300, maxtgt- = 24) Il 5 c maximum number of flow rates, head losses, L/Ds and screen areas:' , ! Il 6 parameter (maxfr = 3, maxhl = 3, maxld = 3, maxsa = 4) - Il 7 c maximum number of permissible weld diameters, types.and locations:. - Il 8 parameter (maxpwd = 30, maxpwt = 10, maxpwl = 20) Il 9 c maximum number of systems, diameter' classes: Il 10 parameter (maxsys = 10, maxdc = 4) - _! Il 11 c maximum number of location classes, permissible insulation materia! Il 12 parameter (maxlc = 5, maxpim = 10) Il 13 c version number: i Il 14 character *12 versn Il 15 parameter (versn = ' BLOCKAGE 1.0') Il 16 c end of program parameters. , Il 17 c Il 18 c UNITS: file units: Il 19 integer pin, win, err, wout, tout, bout, sout, sum Il 20 parameter (pin =1, win =2, err =3, wout=4, tout =5, bout = 6, sout=7, sum =8) ; Il 21 c . Il 22 c PARAMS: problem parameters data store: Il 23 common /params/ nfr, nhl, nld, nsa, npwd, npwt, npwl, nsys, ncl Il 24 1 npim, nic, pwds, wdctbl, wdeffr, wwffwf,, 25 2 pfrs, ld, ahls, psas, pwts, fibflg, pwls, pimt! . Il Il 26 3 lesell, lcsel2, wdclbl, 1clabl, systbl, ledesc i ' Il 27 c actual number of ' low rates, head losses, screen areas, Il 28 c permissible weld diameters, permissible weld types, . Il 29 e permissible weld locations, systems, L/Ds, insul. destruction modeJi L Il 30 c diameter classes, location classes Il 31 c (the first location class is the summaryLlocation class) and- : Il 32 c permissible insulation materials; the insulation destruction mode 3l Il 33 c themselves,from the parameter input file: Il 34 integer nfr, nhl, nsa, npwd, npwt, npwl, nsys, nld, nde Il 35 integer nlc, npim . Il 36 c the permissible weld diameters, diam. classes, failure frequencies? real pwds (maxpwd), wdctbl (maxdc) , wdef f r (maxdc) Il 37 Il 38 c permissible flow rates, allowable head losses, screen areas, ' Il 39 e and weld weighting factors: ' 7 I1 40 real pfrs (maxfr), ld (maxld) , ahls (maxhl) , psas (maxsa) , Il 41 1 wwf fwf (maxde,maxpwt) c fibrous insulation flag: i Il 42 Il 43 character *1 fibflg (maxpim) [ Il 44 c permissible weld locations, insul. materials, weld types: Il 45 character *2 pwls(maxpwl), pims (maxpim) , pwts (maxpwt) ! Il 46 c location class selections (2), diameter and location class labels: Il 47 character *2 lcsell(max 1c), 1csel2 (maxic)
-- , ,w-
'> F77L - Lahey' FORTRAN 77,' Version 4.01 11/27/93 16:52:46' . PROGRAM ' MAIN Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/1/NK/L/t! = Source file Listing l Il 48 character *5 wdcibl(maxdc), iclabl (maxic) ; II. 49 c table of systems, location descriptions: ; 11L 50 character *26 systbl(maxsys) ! Il 51- character *50 ledesc (max 1c) l Il 52 c end of parameter data store. l Il 53 e i Il 54 c WELDS: weld and target information data store: Il 55 common / welds / wdiam, fbrvol, wbrfrg,'sysid, ntgts, nwlds,. i i Il 56 .1 wtype, wloc, weldid, dcid, diamid, probid Il 57 c weld diameter (in) : ! Il 58 real wdiam(maxwls) . Il 59 c weld break frequency, total fibrous volume (sq.ft) by L/D, c both are calculated by the program'from inputs: 'I Il 60 Il 61 real wbrfrq(maxwls), fbrvol (maxwls, maxld) i Il 62 c system ID, diameter & diam. class indices, no. of targets and.weldzj Il 63 integer sysid(maxwls), diamid (maxwls) , . dcid (maxwls) , i Il 64 1 ntgts (maxwls) , nwlds Il 65 c weld type and location: Il 66 character *2 wtype (maxwls) , wloc (maxwls)
.Il 67 c weld ID:
Il 68 character *9 weldid(maxwls) Il 69 c problem ID: j Il 70 character *40 probid Il 71 c end of welds data store. !
=I1' 72 c -
Il 73 c BLOCKS: blockage information data store: l Il 74 common / blocks / blockd Il 75 c blockd equals 'Y' or 'N' for.a parameter combination: .; Il 76 character *1 blockd (maxwls,maxld,maxfr,maxhl,maxsa) j Il 77 c end of blockage information data store.. l Il- 78 c .i Il 79 c SUMARY: summary information data. store for summary table report: i Il 80 common /sumary/ cveral, loccls ' Il 81 c totals for overall and summary location class frequencies: ' Il 82 real overal(maxld,maxfr,maxhl,maxsa) 11 83 real loccls (maxld,maxfr,maxhl,maxsa) i Il 84 c end of summary information data store. Il 85 c jl Il 86 c END OF FILE DATASTOR.FOR , Il 87 l 7 c GET AND STORE DATE AND TIME FROM COMPUTER CLOCK ; 8 character *8 ddmmyy 1 9 character *11 hhmmss 10 call date (ddmmyy) 11 call time (hhmmss) 12 print *,versn,' beginning at '
, hhmmss, '
on ', ddmmyy 13 c SETUP opens files, reads PARAMETR.INP and WELD.INP files, 14 c validates parameter, weld and target inputs, 15 e fills /PARAMS/ and / WELDS /and / TARGET / commons,, 16 c writes WELD.OUT and TARGET.OUT files, 17 e calculates weld break frequencies and debris volumes 18- c (Calculation 1 of the SRS) . 19 CALL SETUP w . - - - - ,
h F77L - Lahey FORTRAN 77, Version 4.01 11/27/93 16:52:46 PROGRAM MAIN Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NK/L/N!! Source fTle Listing' 20 C BLKAGE determines blockages, Calculation 2 of the SRS. 21 CALL BLKAGE 22 C REPORT performs Calculations 3, 4, 5, and 6 of the SRS 23 c and. writes files SEOFREQ.OUT, BLOCKAGE.OUT,
SUMMARY
.OUT. 24 CALL' REPORT 25 c PRINT NORMAL TERMINATION MESSAGE TO SCREEN 26 call date (ddmmyy) 27 call time (hhmmss) 28 print *,versn,' terminated at '
, hhmmss, '
on ', ddmmyy ! 29 print *, ' . The Weld Summary File is file WELD.OUT. ' 30 print *,' The Target Summary File is file TARGET.OUT.' 31 print *,' The Error File is file BLOCKAGE. ERR.' l 32 print *,' The Sequence Frequency File is file SEQFREQ.OUT.' . 33 print *,' The Probability File is file BLOCKAGE.OUT.' 34 print *,' The Summary Table File is file SUKHARY.OUT.' ., 35 END i t t l i
F77L - Lahey FORTRAN 77, Version 4.01 11/27/93 16:52:46 Source file Listing . 36 C BLKDAT sets the insulation destruction model: nld = 3, Id'= 3, 5, 37 include 'blkdat.for' Il 1 block data blkdat Il 2 include 'datastor.for' . I2 1 c FILE DATASTOR.FOR - include in BLOCKAGE modules I2 2 c program parameters: these are the maximum dimensions of arrays. I2 3 c maximum number of welds and targets per weld: , I; 4 parameter (maxwls = 300, maxtgt = 24) I2 5 c maximum number of flow rates, head losses, L/Ds and screen areas: I2 6 parameter (maxfr = 3, maxh1 = 3, maxld = 3, maxsa = 4) . I2 7 c maximum number of permissible weld diameters, types and-locations I2 8 parameter (maxpwd = 30, maxpwt = 10, maxpwl = 20) , I2 9 c maximum number of systems, diameter classes: I2 10 parameter (maxsys = 10, maxdc = 4) I2 11 c maximum number of location classes, permissible insulation materit I2 12 parameter (maxlc = 5, maxpim = 10) I2 13 c version number: I2 14 character *12 versn I2 15 parameter (versn = ' BLOCKAGE 1.0') Il 16 c end of program parameters. 12 17 c I2 18 c UNITS: file units: I2 19 integer pin, win, err, wout, tout, bout, sout, sum I2 20 , parameter (pin =1, win =2, err =3,wout=4, tout =5, bout =6,sout=7, sum =8; I2 21 c I2 22 c PARAMS: problem parameters data store: , I2 23 common /params/ nfr, nhl, nld, nsa, npwd, npwt, npwl, nsys, no 12 24 1 npim, nlc, pwds, wdctbl, wdeffr, wwffwf, . , I2 25 2 pfrs, Id, ahls, psas, pwts, fibflg, pwls, pimJ I2 26 3 lesell, lesel2, wdclbl, Iclabl, systbl, ledesd I2 27 e actual number of flow rates, head losses, screen areas, I2 28 c permissible weld diameters, permissible weld types, I2 29 e permissible weld locations, systems, L/Ds, insul. destruction model ' 12 30 c diameter classes, location classes I2 31 c (the first location class is the summary location class) and 12 32 e permissible insulation materials; the insulation destruction mode; I2 33 c themselves,from the parameter input file: I2 34 integer nfr, nhl, nsa, npwd, npwt, npwl, nsys, nld, nde 12 35 integer nlc, npim I2 36 c the permissible weld diameters, diam. classes, failure frequencies; I2 37 real pwds (maxpwd), wdctb1 (maxde) , wdeffr (maxde) I2 38 c permissible flow rates, allowable head losses, screen areas, , I2 39 c and weld weighting factors: I2 40 real pfrs (maxfr), ld (max 1d) , ahls (maxhl) , psas (maxsa) , 12 41 1 wwffwf(maxdc,maxpwt) 12 42 c fibrous insulation flag: ; I2 43 character *1 fibflg(maxpim) I2 44 e permissible weld locations, insul. materials, weld types: I2 45 character *2 pwls (maxpwl) , pims (maxpim) , pwts (maxpwt) I2 46 c location class selections (2), diameter and location class labels:' I2 47 character *2 lesell(maxic), Icse12 (maxic) i I2 48 character *5 wdclbl(maxdc), 1clabl (maxlc) J l 1
F77L'-' Lahey FORTRAN 77, Version 4.01 -11/27/93 16:52:46 BLOCKDATA BLKDAT Compiling Options:/N0/N2/N3/h7/NA/A1/B/NC/ND/NE/NF/H/I/NK/ Source file' Listing-i I2 49 c table of systems, location descriptions: l I2 50 character *26 systb1(maxsys)' I2 51 character *50 ledesc (maxic) I2 52 c end of parameter data store. I2 53 c I2 54 c WELDS: weld and target information data store: I2 55 common / welds / wdiam, fbrvol, wbrfrg, sysid, ntgts, nwlds, l I2 56 1 wtype, wloc, weldid, dcid, diamid, probid i I2 57 c weld diameter (in) : i 58 real wdiam(maxwls) : I2 I2 59 c weld break frequency, total fibrous volume (sg:.ft) by L/D, I2 60 c both are calculated by the program from inputs: I2 61 real wbrfrq(maxwls), fbrvol (maxwls, max 1d) . I2 62 c system ID, diameter & diam. class indices, no.-of' targets and welds' I2 63 integer sysid(maxwls), diamid (maxwls) , dcid (maxwls) , I2 64 1 ntgts (maxwls) , nwlds I2 65 c weld type and location: ; I2 66 character *2 wtype (maxwls) , wloc (maxwls) I2 67 c weld ID: I2 68' character
- 9 weldid(maxwls)
I2 69 c problem ID: 1 12 70 character *40 probid i' 12 71 c end of welds data store. i 12 72 c ' I2 73 c BLOCKS: blockage information data store: I2 74 common / blocks / blockd 12 75 c blockd equals 'Y' or ' N' for a parameter combination: I2 76 character *1 blockd(maxwls, max 1d,maxfr,maxhl,maxsa) l I2 77 c end of blockage information data store. I2 78 c 1 I2 79 c SUMARY: summary information data store for-summary table report: l> I2 80 common /sumary/ overal, loccls ' I2 81 c totals for overall and summary location class frequencies: I2 82 real overal(max 1d,maxfr,maxhl,maxsa) I2 83 real loccls (maxid,maxfr,maxhl,maxsa) I2 84 c end of summary information data store. I2 85 c 12 86 c END OF FILE DATASTOR.FOR 12 87 l Il 3 data nld / 3 /, ld / 3., 5., 7. / Il 4 end i i
.I i
v
F77L - Lahey ~ FORTRAN 77, Version 4.01. 11/27/93 16:52:46 Compiling Options:/NO,N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NK/, -SUBROUTINE SETUP Source file Listing. }
+
38 SUBROUTINE SETUP 39 c INPUTS: 40 c files PARAMETR.INP & WELD.INP ; 41 c OUTPUT-42 C labelled COMMONS /PARAMS/ & / WELDS / l 43 c PROCESSING: 44 c SETUP opens all files, calls PINPUT and WINPUT, which . 45 c read and process the parameter and weld input, closes files l 46 c that are no longer needed. 47 c datastor contains units for files, 48 c /PARAMS/, / WELDS /, PARAMETER statements: 49 include ' datastor.for' Il 1 c FILE DATASTOR.FOR - include in BLOCKAGE modules Il 2 e program parameters: these are the maximum dimensions of arrays. Il 3 c maximum number of welds and targets per weld: i Il 4 parameter (maxwls = 300, maxtgt = 24) , Il 5 e maximum number of flow rates, head losses, L/Ds and screen areas: , Il 6 parameter (maxfr = 3, maxh1 = 3, maxld = 3, maxsa = 4) , Il 7 c maximum number of permissible weld diameters, types and locations: Il 8 parameter (maxpwd = 30, maxpwt = 10, maxpwl = 20) Il 9 c maximum number of systems, diameter classes: ; Il 10 parameter (maxsys = 10, maxdc = 4) Il 11 c maximum number of location classes, permissible insulation.materit Il 12 parameter (maxic = 5, maxpim = 10) Il 13 c version number: Il 14 character *12 versn Il 15 parameter (versn = ' BLOCKAGE 1.0') Il 16 c end of program parameters. ; Il 17 c , Il 18 c UNITS: file units: Il 19 integer pin, win, err, wout, tout, bout, sout, sum , Il 20 parameter (pin =1, win =2, err =3,wout=4, tout =5, bout =6,sout=7, sum =8;i c
=
Il 21 Il 22 c PARAMS: problem parameters data store: , Il 23 common /params/ nfr, nhl, nld, nsa, npwd, npwt, npwl, nsys, n(! Il 24 1 npim, nlc, pwds, wdctbl, wdcffr,-wwffwf, Il 25 2 pfrs, ld, ahls, psas, pwts, fibflg, pwls, pim:! Il 26 3 lesell, lesel2, wdcibl, Iclabl, systbl, ledest, Il 27 c actual number of flow rates, head losses, screen areas, Il 28 e permissible weld diameters, permissible weld types, Il 29 c permissible weld locations, systems, L/Ds, insul. destruction mode:' Il 30 e diameter classes, location classes Il 31 c (the first location class is the summary location class) and Il 32 c permissible insulation materials; the insulation destruction _ mode. Il 33 e themselves,from the parameter input file: Il 34 integer nfr, nhl, nsa, npwd, npwt, npwl, nsys, nld, nde Il 35 integer nlc, npim Il 36 c the permissible weld diameters, diam. classes, failure frequencies Il 37 real pwds (maxpwd) , wdctbl (maxdc) , wdeffr (maxdc) Il 38 c permissible flow rates, allowable head losses, screen areas, l Il 39 c and weld weighting factors: Il 40 real pfrs (maxfr), ld (maxld) , ahls (maxhl) , psas (maxsa) , , Il 41 1 wwffwf(maxde,maxpwt) l 1 l
w
.F77L - Lahey FORTRAN 77, Version 4.01 11/27/93- 16:52:46_ _ .
SUBROUTINE SETUP Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NK/i Source' file Listing-c fibrous insulation flag: ; Il 42 Il 43 character *1 fibflg (maxpim) ' Il 44 e permissible weld locations, insul. materials, weld types: ' Il 45 character *2 pwls(maxpwl), pims(maxpim), pwts (maxpwt) Il 46 c location class selections (2), . diameter and location class labels: -i
- Il 47 character *2 lesell(max 1c) , lese 12 (maxic) - 4 Il 48 character *5 wdclbl(maxdc), Iclabl(maxlc)
Il 49 c table of systems, location descriptions: ' Il 50 character *26 systbl(maxsys) Il 51 character *50 ledesc (maxlc) : Il 52 c end of parameter data store.- Il 53 c Il 54 c WELDS: weld and target information data store: Il 55 common / welds / wdiam, fbrvol, wbrfrg, sysid, ntgts, nwlds, Il 56 1 wtype, w1oc, weldid, dcid, diamid, probid . Il 57 c weld diameter (in) : Il 58 real wdiam(maxwls) Il 59 c weld break frequency, total fibrous volume (sq.ft) by L/D, Il 60 c both are calculated by the program from inputs: ' Il 61 real wbrfrq(maxwls) , fbrvol (maxwls, maxld) _ Il 62 c system ID, diameter & diam. class indices, no. of targets and welds Il 63 integer sysid(maxwls), diamid (maxwls) , dcid (maxwls) , Il 64 1 ntgts (maxwls) , nwids .{ Il 65 c weld type and location: Il 66 character *2 wtype (maxwls), w1oc(maxwls) Il 67 c weld ID: Il 68 character *9 weldid(maxwls)- [ Il 69 c problem ID: Il 70 character *40 probid Il 71 c end of welds data store. i Il 72 c Il 73 c BLOCKS: blockage information data store: l Il 74 common / blocks / blockd Il 75 c blockd equals 'Y' or 'N' for a parameter combination: Il 76 character *1 blockd(maxwls, max 1d,maxfr,maxhl,maxsa) , Il 77 c end of blockage information data store. Il 78 c , Il 79 c SUMARY: summary information data store for summary table report: Il 80 common /sumary/ overal, loccls Il 81 c totals for overall and summary location class frequencies: . Il 82 real overal(maxld,maxfr,maxhl,maxsa) Il 83 real loccls (maxld,maxfr,maxhl,maxsa) Il 84 c end of summary information data store. 11 85 c ;
. Il 86 c END OF FILE DATASTOR.FOR Il 87 ;
50 c OPEN FILES. 51 c PARAMETR.INP, WELD.INP, BLOCKAGE. ERR, WELD.OUT, TARGET.OUT ' 52 c SEQFREQ.OUT, BLOCKAGE.OUT,
SUMMARY
.OUT 53 c FORTRAN carriage control is non-standard; it permits page ejects 1 54 c in-output files using 1H1 in FORMAT statements. 55 open (pin, file = 'PARAMETR.INP', status = ' old' , 56 1 carriagecontrol = ' fortran')
1 F77L - Lahey FORTRAN 77, Version 4.01 11/27/93 16:52:461 _. . LSU3 ROUTINE SETUP ~ Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NK/ Source file Listing-57 open (win, file = ' WELD . INP' , status = ' old' , , 58 .1 carriagecontrol = ' fortran') 59 open (err, file = ' BLOCKAGE. ERR' , status =.' unknown', 60 1- carriagecontrol'= ' fortran') 61 open (wout, file = ' WELD . OUT' , status = ' unknown', 62 1 carriagecontrol = ' ' f ortran' ) - ; 63 open (tout , file = ' TARGET.OUT',. status = ' unknown', 64 1 carriagecontrol = ' fortran')- ' 65 open (sout, file = ' SEQFREQ.OUT' , status = ' unknown', 66 1 carriagecontrol = ' fortran') 67 open (bout, file = ' BLOCKAGE.OUT', status = ' unknown', . 68 1 carriagecontrol = ' fortran')l 69 open (sum, file = '
SUMMARY
.OUT', status = ' unknown', 70 1 carriagecontrol = ' fortran') 71 c process paramter input: 72 call pinput 73 c, process weld and target input: ' 74 call winput 75 c CLOSE FILES: ' 76 close (pin) 77 close (win) s --, 78 close (wout) 79 close (tout) .; 80 return 81 end L b
}
t { i i I
1 F77L'- Lahey FORTRAN 77, Version 4.01 11/27/93 16:52:16 SUBROUTINE PINPUT Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NK . Source file Listing 82 subroutine pinput 83 e inputs and validates parameter input 84 c INPUT: 85 e file PARAMETR.INP parameter input file 86 c OUTPUT: R 87 c common /PARAMS/ parameter data j 88 c file BLOCKAGE. ERR Input Validation Error Report j 89 c PROCESSING: 90 c PINPUT reads and validates parameter input; c fills the labelled common section PARAMS; :) 91 92 c writes error file, stops if there are errors in the input. ! 93 c 94 INCLUDE DATASTOR.FOR Il 1 c FILE DATASTOR.FOR - include in BLOCKAGE modules Il 2 c program parameters: these are the maximum dimensions of arrays. Il 3 c maximum number of welds and targets per weld: Il 4 parameter (maxwls = 300, maxtgt = 24) Il 5 c maximum number of flow rates, head losses, L/Ds and screen' areas: Il 6 parameter (maxfr = 3, maxhl = 3, maxld = 3, maxsa = 4) Il 7 c maximum number of permissible weld diameters, types and locations: Il 8 parameter (maxpwd = 30, maxpwt = 10, maxpwl = 20) , Il 9 c maximum number of systems, diameter classes: Il 10 parameter (maxsys = 10, maxdc = 4) Il- 11 c maximum number of location classes, permissible insulation materiai Il 12 parameter (maxlc = 5, maxpim = 10) Il 13 c version number: Il 14 character *12 versn Il 15 parameter (versn = ' BLOCKAGE 1.0') Il 16 c end of program parameters.
+
Il 17 c il 18 c UNITS: file units: Il 19 integer pin, win, err, wout, tout, bout, sout, sum- , Il 20 parameter (pin =1, win =2, err =3, wout=4, tout =5, bout =6, sout=7, sum =8) ! Il 21 c Il 22 c PARAMS: problem parameters data store: Il 23 common /params/ nfr, nhl, nld, nsa, npwd, npwt, npwl,-nsys, nC Il 24 1 npim, nlc, pwds, wdctbl, wdcffr, wwffwf, Il 25 2 pfrs, Id, ahls, psas, pwts, fibflg, pwls, pims: Il 26 3 lesell, lesel2, wdclbl, Iclabl, systbl, ledesc Il 27 c actual number of flow rates, head losses, screen areas,. Il 28 e permissible weld diameters, permissible weld types, ., Il 29 c permissible weld locations, systems, L/Ds, insul. destruction mode 3-Il 30 e diameter classes, location classes Il 31 c (the first location class is the summary location class) and . Il 32 c permissible insulation materials; the insulation destruction modeh Il 33 c themselves,from the parameter input file: Il 34 integer nfr, nhl, nsa, npwd, npwt, npwl, nsys, nld, nde Il 35 integer nic, npim Il 36 e the permissible weld diameters, diam. classes, failure frequencies: Il 37 real pwds (maxpwd) , wdctbl (maxdc) , wdef fr (maxdc) Il 38 c permissible flow rates, allowable head losses, screen areas, , Il 39 c and weld weighting factors: Il 40 real pfrs (maxfr), ld (naxld) , ahls (maxhl) , psas (maxsa) ,
~F77L - Lahey FORTRAN 77, Version 4.01 11/27/93 16:52:46 ..
- SUBROUTINE PINPUT . Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NI, Sourceffile Listing.
-Il 41 1 wwffwf(maxde,maxpwt) ,
Il 42 c fibrous insulation flag: character *1 fibflg(maxpim) i
. Il '43 Il 44- c permissible weld locations, insul. materials, weld types-II , 45 character *2 pwls (maxpwl) , pims (maxpim) , pwts (maxpwt).
- Il 46 c location class selections (2), diameter and location class-labels: ,
Il 47 character *2 lesell(maxlc), 1cse12 (max 1c) l character *5 wdc1b1(maxdc), lclab1(max 1c) -' Il 48 ; Il 49 c table of systems, location descriptions: Il 50 character *26 systbl(maxsys) 4' Il 51 characte r* 50 1cdesc (max 1c) Il 52 c end of parameter data store. . Il 53 e .;
.Il 54 c WELDS: weld and target information data store: .
Il 55 common / welds / wdiam, fbrvol, wbrfrg, sysid, ntgts, nwlds,- i Il 56 1 . wtype, w1oc, weldid, dcid, diamid,.probid ! Il 57 c weld diameter (in) : ; Il 58 real wdiam(maxwls) . t Il 59 c weld break frequency, total fibrous volume (sq.ft) by L/D, ; Il 60 c both are calculated by the program from inputs: Il 61 real wbrfrq(maxwls), fhrvol'(maxwls,maxld) : Il 62 c system ID, diameter & diam. class indices, no. of targets and weld:;
. Il 63 integer sysid(maxwls), diamid(maxwls), dcid (maxwls) ,
Il 64 1 ntgts (maxwls) , nwids Il 65 c weld type and location: ' Il 66 character *2 wtype (maxwls), wloc (maxwls) 11 67 c weld ID: Il 68 character *9 weldid(maxwls) Il 69 c problem ID: Il 70 character *40 probid
. Il 71 c end of welds data store.
II 72- c Il 73 c BLOCKS: blockage information data store: Il 74 common / blocks / blockd Il 75 c blockd equals 'Y' or 'N' for a parameter combination: . Il 76 character *1 blockd(maxwls,maxld,maxfr,maxhl,maxsa)'. Il 77 c end of blockage information data store. Il 78 c Il 79 c SUMARY: summary information data store for summary table report: , Il 80 common /sumary/ overal, loccls c totals for overall and summary location. class frequencies: Il 81 Il 82 real overal(maxld,maxfr,maxhl,maxsa) ! 11 83 real loccls (maxld,maxfr,maxhl,maxsa)
. Il 84 c end of summary information data store. ,
Il 85 c j 11 86 c END OF FILE DATASTOR.FOR ' Il 87 95 C LOCAL DATA : 96 c blank is used to separate records in the error file > 97 c A blank record is written even when the next statement is STOP;. 98 c originally some of these STOPS were statements setting an error-99 c flag, and the program went on. Later some thought may be: given . ' 100 c to when to stop and when to continue processing. . i m -e e- -x, -- e w - m
__ - . = _ _ __ __ -_ . _ ~F77L - Lahey FORTRAN 77, Version 4.01 11/27/93 16:52:46 SUBROUTINE PINPUT Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NF' Source file Listing ; i 101 character *5 blank' i 102 data blank / ' '/ l 103 c WRITE VERSION NO. TO ERROR FILE: 104 write (err,2000) versn 105 c 106 c PROCESS FILE.PARAMETR.INP: 107 c READ ALL PARAMETERS , 108 c STORE PARAMETERS TO PARAMS-COMMON 109 c VALIDATE PARAMETER INPUT 110 c WRITE ERRORS TO FILE BLOCKAGE. ERR 111 c IF ERRORS IN PARAMETR.INP THEN STOP i 112 c 113 c 1 - flow rates: number and values r 114 c SRS: _ max 9 flow rates in gal / min; >0, <100000, 1 decimal place, > 115 c strictly monotonic increasing sequence. 116 read (pin, * , iostat=ierr) nfr , 117 if (ierr.ne.0) then 118 write (err, *) ' PINPUT: Fortran error reading NFR' ; 119 write (err, * ) blank 120 stop ' 121 endif 122 if ( (nfr.ge.1) .and. (nfr.le.maxfr) ) then , 123 read (pin, *, iostat=lerr) (pf rs (i) , i=1, nf r) - i 124 if (ierr.ne.0) - then - 125 . write (err, *) ' PINPUT: Fortran error reading _PFRS.' 7 126 write (err, * ) blank 127 stop 128 endif' ' 129 do 10 i = 1, nfr _ 130 if ( (pfrs (i) . le. 0. ) .or. (pfrs (i) .ge.100000. ) ) then 131 write (err, *) ' PINPUT: Error in flow rate.PFRS'= ',, 132 1 pf rs (i) , ' I=', i' 133 write (err,*)' PINPUT: Require 0 < PFRS < 100,000. 134 write (err,*) blank 135 stop 136 endif 137 if ( ;i.gt.1) .and. (pfrs (i) .le.pfrs (1-1) ) ) then 138 write (err, *) ' PINPUT: Req. increasing flow rates PII 139 write (err, *) blank. 140 stop , 141 endif 142 10 continue 143 else 144 write (err, *) ' PINPUT: Error in no.of flowrates NFR = ,nf:, 145 write (err, * ) ' PINPUT: Maximum for NFR = ', maxfr 146 write (err, * ) blank 147 stop 148 endif " 149 e 150 c 2 - head losses: number and values 151 c SRS: max = 5 head losses in feet of H20; >0, <20, to 2 decimal p1, 152 c- strictly monotonic increasing sequence. 153 read (pin, * , iostat=ierr) nhl l
F77L.- Lahey FORTRAN.77, Version 4.01- 11/27/93 16:52:46~ ,
' SUBROUTINE PINPUT. Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NFi i
' Source file Listing 154 if (ie rr .ne . 0 ) then 155 write (err, *) ' PINPUT: . Fortran-error reading NHL' 3 156 - write (err, *) blank 157 stop 158 endif '
159 if ( (nhl . ge.1) . and. (nhl . le .maxhl) ) then 160 read (pin, * , iostat=ierr) (ahls (i) ,1=1, nhl) 161 if (ierr.ne.0) then ' 162 write (err,*)' PINPUT: Fortran error reading AHLS.' 163 write (err, *) blank 164 stop. 165 endif 166 do 20 i = 1, nhl 167 if ( (ahls (i) .le.0. ) .or. (ahls (i) .ge.20. ) ) then 168 write (err, *) ' PINPUT: Error in head loss AHLS =-',: 169 1 ahls (i) . 170 write (err, *) ' PINPUT: Require 0 < AHLS.< 20.'- l 171 write (err, *) blank 172 stop i 173 endif . . 174 if ( (i.gt.1) .and. (ahls (i) .le.ahls (1-1) ) ) then- . 175 write (err, *) ' PINPUT: Req. increasing head losses 1! 176 write (err, * ) blank. 177 stop 178 endif 179 20 continue-180 else , write (err, * ) ' PINPUT: ' Error in no.of head losses NHL'= ',1! 181 182 write (err, *) ' PINPUT: Maximum for NHL = ', maxhl 183 write (err, *) blank 184 stop 185 endif 186 c 187 c'3 - screen areas: number and values 188 c SRS: max 6 screen areas in sq.ft.; > 0, <1000, 1 decimal place, 189 c strictly monotonic increasing sequence : 190 read (pin, *,iostat=ierr) nsa 191 if (ierr.ne.0) then 192 write (err, * ) ' PINPUT: Fortran error reading NSA' 193 write (err, *) blank ; 194 stop 195 endif 196 if ( (nsa.ge.1) .and. (nsa.le.maxsa) ) then 197 read (pin, * , iostat=ierr) (psas (i) , i=1, nsa) ; 198 if (ierr.ne.0) then :
'199 write (err, * ) ' PINPUT: Fortran error reading PSAS.'
200 write (err, * ) . blank l
'201 stop 202 endif ')
203 do 30 i = 1, nsa . 204 if ( (psas (i) .le. 0. ) .or. (psas (i) .ge.1000. ) ) ..then . 205 write (err, * ) ' PINPUT: Error in' screen area PSAS =- 206 1 psas (i) j 1
,,, , ,- =. . -
F77L --Lahey FORTRAN-77, version 4.01 11/27/93 16:52:46 . SUBROUTINE-PINPUT. Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NI Source file Listing
-207 write (err, * ) ' PINPUT: Require 0 < PSAS < 1000.'
208 write (err,*) blank 209 stop 210- endif 211 if ( (i .gt .1) .and. (psas (i) . le .psas (1-1) ) ) then 212 write (err, * ) ' PINPUT: Req. increasing screen areasil; 213 write (err, * ) blank 214 stop 215 endif 216 30 continue 217 else 218 write (err, * ) ' PINPUT: Error in no.of screen areas NSA = ',: 219 write (err, * ) ' PINPUT: Maximum for NSA = ', maxsa 220 write (err, * ) blank t 221 stop 222 endif 223 c 224 c 4 - weld type: number and values 225 c SRS: max 10 distinct 2-character weld types 226 read (pin, * , iostat=ierr) npwt ' 227 if (ierr.ne.0) then 228 write (err, * ) ' PINPUT: Fortran error reading NPWT' 229 write (err, *) blank 230 stop 231 endif 232 if ( (npwt.ge .1) . and. (npwt . le .maxpwt) ) then 233 read (pin, * , iostat=ierr) (pwt s (i) ,1=1, npwt) 234 if (ierr.ne.0) then 235 write (err, *) ' PINPUT: Fortran error reading PWTS.' 236 write (err, *) blank 237 stop
- 238 endif 239 if (npwt . gt .1) then 240 do 40 i = 2, npwt 241 do 45 j = i-1, 1, -1 242 if (pwts (i) .eq.pwts (j) ) then 243 write (err, * ) ' PINPUT: Error in weld types PWT:
244 write (err,*)' PINPUT: Require distinct PWTS.' 245 write (err, * ) blank 246 stop > 247 endif 248 45 continue 249 40 continue 250 endif 251 else 252 write (err,*)' PINPUT: Error in no.of weld types NPWT = ', 253 write (err, *) ' PINPUT: Maximum for NPWT = ', maxpwt ' 254 write (err, * ) blank 255 stop 256 endif 257 c 258 c 5 - weld locations: number and values 259 c SRS: max 20 distinct 2-character weld locations
, - . ~
i
- F77L - Lahey FORTRAN 77, Version 4.01 11/27/93 16:52:46 SUBROUTINE PINPUT Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NF ; '
Source file Listing 260 read (pin, * , iostat=ierr) npwl 261 if (ierr.ne.0) then ., 262 write (err, *) ' PINPUT: Fortran error reading NPWL' ,
?
263 write (err, * ) blank 264 stop 265 endif 266 if ( (npwl .ge.1) .and. (npwl .le.maxpwl) ) then 267 read (pin, * , iostat=ierr) (pwls (i) ,1=1, npwl) 268 if (ierr.ne.0) then 269 write (err, * ) ' PINPUT: Fortran error reading PWLS.' 270 write (err, *) blank 271 stop 272 endif 273 if (npwl . gt .1) then 274 do 50 i = 2, npwl 275 do 55 j = i-1, 1, -1 276 if (pwls (i) .eq.pwls (j) ) then write (err, *) ' PINPUT: Error in weld location E! 277 278 write (err, * ) ' PINPUT: Require distinct PWLS.' 279 write (err, *) blank 280 stop 281 endif 282 55 continue 283 50 continue 284 endif 285 else 286 write (err, *) ' PINPUT: Error in no.of weld types NPWTL= ',r 287 write (err, *) ' PINPUT: Maximum for NPWL = ', maxpwl 288 write (err, *) blank 289 stop 290 endif 291 292 c 293 c 6 - systems table: number and values 294 c SRS: max 10 26-character system descriptions 295 read (pin, * , iostat=ierr) ' nsys 296 if (ierr.ne.0) then 297 write (err, * ) ' PINPUT: Fortran error reading NSYS' 298 write (err, * ) blank 299 stop 300 endif 301 if ( (nsys.ge.1) .and. (nsys. le.maxsys) ) then 302 if (ierr.ne.0) then 303 write (err, *) ' PINPUT: Fortran error reading NSYS.' 304 write (err, *) blank 305 stop 306 endif 307 do 60 i = 1, nsys 308 read (pin, * , iostat=ierr) systb1(i) 309 if (ierr.ne . 0) then 310 write (err, *) ' PINPUT: Fortran error reading SYSTB): , 311 write (err, * ) blank , 6
. . - _ . . . - ~. . _ , . .
F7.7L -' Lahey FORTRAN 77, Version'4.01 _11/27/93 16:52:46 _ l SUBROUTINE PINPUT Compiling. Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NK: 4 Source file Listing' ; 312 stop $ 313 endif 314- 60 continue- ' 315 else . 316 write (err, *)' PINPUT: Error in no.of system NSYS = ',nsys' l 317 write (err, * ) ' PINPUT: Maximum for NSYS = ', maxsys 1 318 write (err,*) blank .; 319 stop ; 320 endif 321 c 322 c 7 - diameters: number'and values . , 323 c-SRS: max 30 diameters in inchen, 1-decimal place;1>0, <100, 324 c strictly monotonic increasing sequence 325 read (pin, * , iostat=ierr) npwd 326' if (ierr.ne.0) then 327 write (err, * ) ' PINPUT: Fortran error reading NPWD' ! 328 write (err, *) blank , 329 stop , 330 endif 331 if ( (npwd.ge.1) .and. (npwd.le .maxpwd) ) then - 332 if (ierr.ne.0) then 333 write (err, *) ' _ PINPUT: - Error reading NPWD' _ , 334 write (err, *) ' PINPUT: Max.no.of diameters = ',maxpwd 335 write (err, * ) blank . 336 stop 337 endif 338 do 70 i = 1, npwd, 5 339 read (pin, * , iostat=ierr) (pwds (j) , j = 1, i+4) ; 340 if (ierr .ne . 0) . then ' 341 write (err, * ) ' PINPUT:-Fortran error reading _PWDS' . 342 write (err, *) blank .i 343 stop j 344 endif 345 70 continue. 346 if (npwd. gt .1) then 347 do 75 i-= 2, npwd 348 if (pwds (i) .le.pwds (1-1) ) then . 349 write (err, *) ' PINPUT: Error in weld diameters PWDI; 350 write (err, * ) ' PINPUT: Require increasing PWDS' i 351 write (err, *) blank 352 stop 353 endif 354 75 continue 355 do 76 i = 1, npwd 356 if ( (pwds (i) .le.0.) .or. (pwds (i) .ge.100. ) ) then j 357 write (err, *) ' PINPUT: Error in PWDS = ',pwds (i) ! 358 write (err, *) ' PINPUT: Req. >0, <100 inches' l 359 stop 360 endif ; 361 76 continue 362 ~endif ; 363 else ,
'I.
[
F77L2- Lahey-FORTRAN 77, Version 4.01 . 11/27/93. 16:52:46 . . . SUBROUTINELPINPUT Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NE[ Source file Listing write (err, * ) ' : PINPUT : Error in no.of ' diameters' NPWD = ' , np i
-364 365 - write (err, *) ' PINPUT: Maximum for NPWD = ', maxpwd ;
~366 write (err, * ) blank l 367 stop 368 endif .i 369 e 370 c 8'- diameter classes: number and values i 371 c SRS: max 4 diameter classes; 372 c smallest diameter in class in inches, >0, <100, 2 decimal plac' 5
373 e strictly monotonic increasing sequence; c failure frequency per Rx-yr >0, <1; : 374 375 c 5-character label, distinct 376 read (pin, * , iostat=ierr) nde '! 377 if ( (ndc.ge.1) .and. (ndc le.maxdc) ) then -j a 378 if (ierr.ne.0) then . . 379 write (err, * ) ' PINPUT: Fortran error reading NDC.' ; 380 write (err, * ) blank 381- stop ., 382 endif i 383 read (pin, * , iostat=ierr) (wdctbl (i) , i = 1, nde) ' 384 if(ierr.ne.0) then 385 write (err, * ) ' PINPUT: Fortran error reading WDCTBL'- 1 386 write (err, *) blank-387 stop : 388 endif l 389 if (ndc.gt.1) then { 390 do 80 i = 2, nde 391 if (wdctb1(i) .le.wdctb1(1-1)) then .. . 392 write (err, * ) ' . PINPUT: Error in~ diameter class' 393 write (err, * ) ' PINPUT: Require increasing PWDS' , 394 write (err, * ) blank 395 stop' ; 396 'endif 397 80 continue ; 398 endif , 399 do 81 i = 1, nde . l 400 if ( (wdctbl (i) . lt. 0. ) . or. (wdctbl (i) .gt .100. ) ) then ' 401 write (err, *) ' PINPUT: Error in diameter class' 402 write (err, * ) ' PINPUT: Require 0<WDCTBL<100' ! 403 write (err, *) blank .: 404 stop l 405 endif ' 406 81 continue 407 read (pin, *,iostat=ierr) (wdef fr (i) , i = 1, ndc) , 408 if (ierr.ne . 0) then , 409 write (err, * ) ' PINPUT: Fortran error reading WCDFFR'- 410 write (err, * ) blank 411 stop 412 endif 413 do 82 i = 1, nde , 414 if ' ( (wdeff r (i) .le.0. ) .or. (wdeffr (i) .ge. l . ) ) then -i 415 write (err, * ) ' PINPUT: Error in failure frequency' I I l
11/27/93 16:52:46
~
F77LL Lahey FORTRAN 77,_ Version 4;01 SUBROUTINE PINPUT Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NKj
- SourceLfile Listing 416 _ write (err, * ) ' PINPUT: Require 0<WDCFFR<1'- ,
417- write (err, *) blank j 418 stop , 419 endif l continue 1 420 82 read (pin, *, iostat=ierr) (wdclbl (i) , i=1, ndc) ! 421 422 if (ierr.ne . 0) then r 423 write (err, * ) ' PINPUT : Fortran' error reading _WCDLBL' ; write (err, * ) blank ; 424 425 stop 426 endif ; 427 if (ndc . gt .1) then : 428 do 83 i = 2, nde 429 do 83 j = i-1, 1, -1 430 if (wdc1bl (i) . eq.wdc1bl (j) ) then. 431 write (err, *) ' PINPUT: Error-in WDCLBL' , 432 write (err, *) ' PINPUT: Req. distinct diam.classEi 433 stop r 434 endif [ 435 83 continue , 436 endif 437 do 84 j = 1, npwt . 438 read (pin, * , iostat=ierr) (wwf fwf (i, j ) , i = 1, nde) j 439 if (ierr . ne . 0) theny 440 write (err, * ) ' P' INPUT: Fortran error reading WWFFWE[ 441 write (err, *) blank 442 stop , 443 endif 444 84 continue ,; 445 do 85 i = 1, nde l
~;
446 do 85 j = 1, npwt 447 if (wwffwf (i, j) . le. 0. )' then : 448 write (err, * ) ' PINPUT: Error in WWFFWF' - .I 449 write (err, * ) ' PINPUT: Req. weld wtng. fact.>0' l 450 write (err, * ) blank : 451 stop 452 endif l 453 85 continua ! 454 else 455 write (err, * ) ' PINPUT: Error in no.of diam. classes NDC = ',! 456 write (err, * ) ' PINPUT: Maximum for NDC = ', maxdc 457 write (err, * ) - blank j t 458 stop 459 endif 3 460 c 9 - location classes: number and values 461 c SRS: max 5 distinct 2-character location classes; must'be a valid, 462 c location class'or blank; the first is the summary location'cli! 463 read (pin, * , iostat=lerr) nlc i 464 if (ierr.ne.0) then 465 write (err, * ) ' PINPUT: Fortran error reading'NLC' i 466 write (err, * ) blank 467 stop ; i 1 1 l
-j
F77L - Lahey FORTRAN 77,-Version 4.01 11/27/93. 16 52:46 SUBROUTINE PINPUT Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NK LSource file Listing 468 endif 469 if ( (nlc.ge.1) .and. (nic.le.maxic) ) then 470 if (ierr.ne 0) then 471 write (err, *) ' PINPUT: Error in no.of location classes. 472 write (err, * ) ' PINPUT: Maximum for NLC = ','maxic 473 write (err, *) blank 474 stop 475 endif 476 do 90 i = 1, nlc 477 read (pin, * , iostat=ierr) 11clabl (i)
'478 if (ierr.ne . 0) then 479 write (err, *) ' PINPUT: Fortran error readingLLCLABL 480 write (err, *) blank 481 stop 482 endif 7
483 read (pin, *,iostat=ierr) Icsell (i) , Icse12 (i) l 484 if (ierr.ne . 0) then 485 write (err, * ) ' PINPUT: Fortran error reading-LCSEL1 486 write (err, *) blank 487 stop 488 endif l 489 read (pin, * , iostat=ierr) Icdesc (i) l 490 if (ierr .ne . 0) then 491 write (err, * ) ' PINPUT: Fortran error reading LCDESC 492 write (err, * ) blank 493 stop 494 endif 495 90 continue 1 496 if (nlc . gt .1) then i 497 do 92 i.= 2, nlc l 498 do 92 j = i-1, 1, -1 499 if (1clabl(i) .eq.lclabl(j)) then l 500 - write (err, *) ' PINPUT: Error in loc. class-label! 501 write (err, *) ' PINPUT: Req. distinct LCLABLs' I 502 write (err, *) -blank 503 stop 504 endif 505 92 continue 506 endif 507 do 95 i = 1, nlc 508 k=0 509 kk = 0 510 do 94 j = 1, npwl 511 if (1csell (i) .eq.pwls (j) ) k=j 512 if (lcsel2 (i) .eq.pwls (j)) kk = j 513 94 continue 514 if (lcsell (i) .eq. ' ') k=1 515 if (lcsel2 (i) .eq.' ') kk = 1 516 if ( (h _ aq. 0) .or. (kk.eq. 0) ) then 517 write (err, *) ' PINPUT: Error in LCSEL1' or 2' 518 write (err, * ) ' PINPUT: Must be a valid loc. class Pi 519 1 ' or blank'
F77L'-' Lahey FORTRAN 77, Version ~4.01- 11/27/93 16:52:46 SUBROUTINE PINPUT Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NFl Source file Listing 520 write (err, *) blank 521 stop , 522 endif : 523 95 continue-524 else 525 write (err, *) ' PINPUT: Error in no.of loc. classes NLC = ',r! 526 write (err, * ) ' PINPUT: Maximum for NLC = ', maxlc 527 write (err, * ) blank 528 .stop 529 endif ' 530 c 10 - insulation materials: number and values 531 c SRS: max 10 2-character distinct insulation materials; 532 c fibflg must be 1 uppercase char. F or N for fibrous or nonf.ibrous.1 533 read (pin, ", iostat=ierr) npim . 534 if (1 err .ne . 0) then 535 write (err,*)# PINPUT: Fortran error reading ~NPIM' 536 write (err,*) blank 537 stop 538 endif 539 if ( (npim. ge .1) . and. (npim. le .maxpim) ) then 540 read (pin, * , iostat=ierr) (pims (i) , i = 1, npim) 541 if (ierr.ne . 0) then 542 write (err, * ) ' PINPUT: Fortran error reading PIMS' 543 write (err, *) blank 544 stop 545 end.if 546 if (npim.gt.1) then 547 do 100 i = 2, npim ' 548 do 100 j = i-1, 1, -1 549 if (pims (i) .eq.pims (j) ) then 550 write (err, * ) ' PINPUT: Error in PIMS ' 551 write (err, * ) ' PINPUT; Req. distinct insul. mats, 552 write (err, *) blank 553 stop 554 endif 555 100 continue 556 endif 557 read (pin, * , iostat=ierr) (fibflg (i) , i=1, npim) 558 if (ierr.ne . 0) then , 559 write (err, *) ' PINPUT: Fortran error reading FIBFLG' " 560 write (err, *) blank 561 stop 562 endif ; 563 do 110 i = 1, npim 564 if ( (fibflg (i) .ne. 'F' ) .and. (fibflg (i) .ne. 'N') ) then: l write (err, * ) ' PINPUT: Error - FIBFLG must be F ori 565 ! 566 write (err,*) blank 567 stop 568 endif 569 110 continue 570 else ' 571 write (err, * ) ' PINPUT: Error in no.of insul. mats. NPIM = ' i
-I l
,; a
/ "
F F77L - Lahey FORTRAN 77,1 Version 4.01 11/27/93 16:52:46 . SUBROUTINE.PINPUT Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NK! Source file Listing- l 572 write (err, * ) ' PINPUT: Maximum for NPIM = ',. maxpim .
- 573 write (err, * ) blank -1 574 , -stop 575 endif 576 return 577' '2000 format (1hl, a12, '
- ERROR FILE') .
578 end ! i i 1 i i
?
-i
+
r 1 i
. . . - -. . .- v
'F77L ~ Lahey FORTRAN 77, Version : 4.01 11/27/93 16:52:46 _
SUBROUTINE WINPUT. Compiling Options:/N0/N2/N3/N7/NA/Al/B/NC/ND/NE/NF/H/I/MF
' Source file Listing 579 subroutine winput 580 e inputs and validates weld and target input 581 c INPUTS: '
582 c. -file WELD.INP weld and target input' file 583 c common /PARAMS/ 584 c OUTPUT: 585 c common / WELDS / weld and target data 586 c file WELD.OUT Weld Summary. Report 587 c file TARGET.OUT Target Summary Report' 588 c file BLOCKAGE. ERR Input Validation Error Report 589 c PROCESSING: 590 c WINPUT reads and validates weld and target input; 591 c fills the labelled common sections WELDS and TARGET; 592 c calculates debris volumes and weld break frequencies; 593 e writes error file, stops if there are errors in the input. 594 c WINPUT calls subroutines 595 c VALIDA- validates target input 596 c TGTHDR writes headers to TARGET.OUT file 597 c WLDHDR write headers to WELD.OUT file 598 c FIBRUS a logical function for determining whether insulat ' 599 c is fibrous or non-fibrous 600 c 601 INCLUDE DATASTOR.FOR a Il 1 c FILE DATASTOR.FOR - include in BLOCKAGE modules
~ -Il 2 c program parameters: these are the maximum dimensions of arrays.
Il 3 c maximum number of welds and targets per weld: Il 4 parameter (maxwls = 300, maxtgt = 24) Il 5 e maximum number of flow rates, head losses, L/Ds and screen areas: Il 6 parameter (maxfr = 3, maxhl = 3, maxld = 3, maxsa = 4) _ Il 7 c maximum number of permissible weld diameters, types and locations: Il 8 parameter (maxpwd = 30, maxpwt = 10, maxpwl = 20)- Il 9 c maximum number of systems, diameter classes: - Il 10 parameter (maxsys = 10, maxdc = 4) Il 11 c' maximum number of location classes, permissible insulation materie; ' Il 12 parameter (max 1c = 5, maxpim = 10) Il 13 c version number: - Il 14 character *12 versn Il 15 parameter (versn = ' BLOCKAGE 1.0' ) ' Il 16 c end of program parameters. Il 17 c Il 18 c UNITS: file units: ' Il 19 integer pin, win, err, wout, tout, bout, sout, sum Il 20 parameter (pin =1, win =2, err =3,wout=4, tout =5, bout =6,sout=7, sum =8, Il- 21 c Il 22 c PARAMS: problem parameters data store: , 11 23 common /params/ nfr, nhl, nld, nsa, npwd, npwt, npwl, nsys, n : Il 24 1 npim, nic, pwds, wdctbl, wdeffr, wwffwf, Il 25 2 pfrs, id, ahls, psas, pwts, fibflg, pwls, pimi Il 26 3- .lcsell, lesel2, wdc1bl, Iclabl, systbl, icdes' Il 27 c actual number of flow rates, head' losses, screen areas, ; II. 28 c' permissible weld diameters, permissible-weld types, Il 29 e permissible weld locations, systems, L/Ds, insul. destruction mode! Il 30 c diameter classes, location classes r
'F77L --Lahey FORTRAN 77, version 4.01 11/27/93 16:52:46 SUBROUTINE 1WINPUT Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NK Source' file Listing ,
Il 31 c (the first location class is the summary location class) and-Il 32 e permissible insulation materials; the insulation destruction model '
~Il 33 e themselves,from the parameter input file:
integer nfr, nhl, nsa, npwd, npwt, npwl, nsys, nld, nde Il 34 Il 35 integer nlc, npim . .
.Il 36 e the permissible weld diameters, diam. classes, failure frequencies:$
Il 37 real pwds (maxpwd) , wdctb1 (maxde) , wdeffr (maxde) ; Il 38 c permissible flow rates, allowable head losses, screen areas, 39 c and weld weighting factors: .i Il Il 40 real pfrs (maxfr), ld (max 1d) , ahls (maxhl) , psas (maxsa) , l Il 41 1 wwffwf(maxde,maxpwt) ' Il 42 c fibrous insulation flag: Il 43 character *1 fibflg(maxpim) Il 44 c permissible weld locations, insul. materials, weld types: Il 45 character *2 pwls(maxpwl), pims (maxpim) , pwts (maxpwt) Il 46 c location class selections (2), diameter and location class labels: - Il 47 character *2 lese 11(maxlc), lesel2 (maxic)
- Il 48 character *5 wdc1bl(maxdc) , Iclabl(maxlc) .
Il 49 c table of systems, location descriptions: l Il 50 character *26 systbl(maxsys) ! 11 51 character *50 ledesc (maxic) Il 52 c end of parameter data store. Il 53 c ; Il 54 c WELDS: weld and target information data store: Il 55 common / welds / wdiam, fbrvol, wbrfrg, sysid, ntgts, nwlds, wtype, wloc, weldid, deid, diamid, probid- .i Il 56 1 1 Il 57 c weld diameter (in) : e Il 58 real wdiam(maxwls) c weld break frequency, total fibrous volume (sq.ft) by L/D, Il 59 ' Il 60 c both are calculated by the program from' inputs: Il 61 real wbrfrq(maxwls) ,- fbrvol(maxwls,maxid) - Il 62 e system ID, diameter & diam. class indices, no. of targets and welds!l Il 63 integer sysid(maxwls), diamid (maxwls) , dcid (maxwls) , Il 64 1 ntgts (maxwls) , nwlds Il 65 c weld type and location: Il 66 character *2 wtype (maxwls) , wloc (maxwls) - Il 67 c weld ID: character *9 weldid(maxwls) .! Il 68 Il 69 c problem ID: Il 70 character *40 probid , t Il 71 c end of welds data store. 72 c Il Il 73 c BLOCKS: blockage information data store: L[ ' Il 74 common / blocks / blockd II. 75 c blockd equals 'Y' or ' N' for a parameter combination: Il 76 character *1 blockd(maxwls,maxld,maxfr,maxhl,maxsa) ' Il 77 c end of blockage information data store. , i Il 78 e Il 79 c SUMARY: summary information data store for summary table report: i Il 80 common /sumary/ overal, loccis ! Il 81 e totals for overall and summary location class frequencies: > Il 82 re al ove r al (maxld, max f r, maxhl, maxs a) ,
. . .. ~ . . - .- ~ .
" - lF77L'- Lahey FORTRAN 77,> Version'4.01' 11/27/92 16:52:46'. SUBROUTINE WINPUT Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NP' Source-file Listing
~II . 83 real loccls ('maxld,maxfr,maxhl,maxsa)
~
Il 84' c end of summary information data store.
- Il 85. c Il 86 c END OF FILE DATASTOR.FOR Il 87 602 C LOCAL DATA: _j 603 c TARGET INFORMATION FOR ONE WELD:
604 include ' target.for' I2 1 c LOCAL DATA - TARGET INFORMATION FOR ONE WELDi . l I2 2 common / target / tgtno, tgtdia, tgtsys, tgttyp, . tgtthk,.tgtlen - I2 3 integer tgtno(maxtgt)
'I2 4 real tgtdia (maxtgt) , tgtthk (maxtgt) , tgtlen (maxtst,maxld) l I2 5 real tgtvol(maxtgt,maxld) ;
12 6 character *4 tgtsys (maxtgt) I2 7 character *2 tgttyp(maxtgt) 12 8 605 e function to determine whether insulation is fibrous: 606 logical fibrus . l 607 C for accumulating' weld weighting factors and. sum by-dianater class ' 608 real wwf (maxwls) , wf sum (maxdc) 1 609 e need typeid for assigning weld weighting factors > 610 integer typeid 611 c line counts for target and weld output files: 612 integer wlines, tlines, maxlin 613 real pi, const 614 character *5 blank. . t 615 c const includess a conversion constant -for volumes with -length ~ in :; 616 e insulation thickness and diameters in inches: .25/12*12
'617 data blank / ' .'/, pi / 3.14159/,-const /0.00173611111/. .
618 data wlines / 55 /, t1ines / 55 /, maxlin / 55 / l 619 c PROCESS FILE WELD.INP: 620 read (win,1000,iostat = . ierr) probid ! 621 if(ierr.ne.0) then 622 write (err, * ) ' WINPUT: Fortran error reading problem ID:PR'. 623 write (err, * ) blank 624 stop ; 625 endif 626 c successfully read problem ID
- 627 write (err,2010) probid
-628 write (err, *) blank 629 C PREPARE TO ACCUMULATE NO. OF WELDS NWLDS.
630 nwlds = 0 631 C PREPARE TO ACCUMUL?TE WELD WT. FACT. BY DIAM. CLASS 632 do 15 k = 1, nde : 633 wfsum (k) = 0. 634 15 continue 635 _ y 636 c REPEAT.UNTIL END OF FILE: &.also check for more than maxwls w: 637 do 100 i = 1, maxwls+1 , 638 c READ ONE WELD AND TARGET RECORD.. 639 read (win, * , END=101, iostat=ierr) weldid (i) , sysid (i) , wdia! 640 1 wtype (i) , wloc ('i) , ntgts (i) , tgtno (1) , tgtdia (1) , 641 2 - tgtsys (1) , tgttyp (1) , tgtthk (1) , (tgtlen (1,k) , k = { i I
- . = . 'F77L'--Lahey FORTRAN 77, Version 4.01 11/27/93 16:52:46. .
SUBROUTINE WINPUT' : Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NK i Source file Listing 642 if (lerr.ne . 0) then 643 wri te (err, * ) ' WINPUT: Fortran error reading WELD.INP' ' 644 write (err, *) blank 645 stop 646 endif ~ 647 c successfully read one weld / target record - check for too many. 648 if (i . gt .maxwls) then 649 write (err, * ) ' WINPUT: Error - all welds cannot be readi 650 write (err, * ) ' WINPUT: .There are more than MAXWLS welds' 651 1 in the input. Increase MAXWLS and recompil; 652 write (err, * ) blank 653 stop 654 endif 655 c VALIDATE WELD & TARGET DATA 656 c WRITE ERRORS TO FILE BLOCKAGE. ERR 657 c STORE WELD DATA TO WELDS-COMMON 658 c VALIDA validates target #1 659 call. valida (1) ' 660 c validate weld system ID SYSID: 661 if (sysid(i) .gt.nsys) then 662 write (err, * ) ' - WINPUT : Error SYSID = ', sysid (i) , ' - I= 663 write (err, * ) ' WINPUT: Number of systems NSYS = ', nsysi 664 write (err, *) blank 665 stop 666 endif 667 c validate no. of targets NTGTS: 668 if (ntgts (i) .gt.maxtgt) then 669 write (crr, *) ' WINPUT: Error NTGTS = ', ntgts (i) , ' I= 670 write (err, * ) ' WINPUT: Maximum no.of targets = ', maxtg! 671 write (err, * ) blank 672 stop ' 673 endif 674 c validate weld location code WLOC: l 675 k=0 ' 676 do 2 j = 1, npwl 677 2 if (wloc (i) .eq.pwls (j) ) k=j 678 if (k . eq . 0) then 679 write (err, * ) ' WINPUT: Error in WLOC = ' , wloc (i) , ' I=! 680 write (err, * ) ' WINPUT: Not a permissible weld location'! t 681 write (err, *) blank 682 stop , 683 endif 684 c validate weld identifier WELDID: , 685 k=0 686 if (i.gt.1) then , 687 do 3 j = 1, i-1 _; 688 3 if (weldid (i) .eq.weldid (j) ) k=j j 689 endif 690 if (k . ne . 0) then 691 write (err, * ) ' WINPCT: Error in WELDID = ' ,weldid (i) , 692 write (err, * ) ' WINPUT: I = ',i,' same as no. ', j 693 write (err, * ) ' WINPUT: Req. distinct weld ID' i f 6 i 9
+e
F77L - Lahey FORTRAN 77, Version 4.01 11/27/93 116:52:46 . SUBROUTINE WINPUT Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NF'
. Source file Listing 694 write (err, *) blank ,
~695 stop 696 endif 697 c ACCUMULATE COUNT OF WELDS IN NWLDS f 698 nwids = nwids + 1 699 c PREPARE TO ACCUMULATE TOTAL FIBROUS VOLUME FOR THIS WELD 700 do 10 k = 1, nld fbrvol (1, k) = 0. ;
701 702 10 continue 703 C SRS CALCULATION 1, STEPS 1.3 AND 1.4: ! 704 c CALCULATE INSUL.VOL. FOR 1ST TARGET IN SOFT, ADD TO WELD TC, 705 do 20 k = 1, nid 706 tgtvol (1, k) = const*pi*tgtlen (1,k) * ( ( (tgtdia (1) +2. 707 1
- tgtthk (1) ) *
- 2) -tgtdia (1) *
- 2 )
t 708 if (fibrus (tgttyp (1) ) ) 709 1 fbrvol (i, k) = fbrvol (1, k) + tgtvol (1, k) 710 20 continue , 711 c WRITE ONE RECORD TO FILE TARGET.OUT 712 if (tlines.ge.maxlin) call tgthdr(tout, versn, tlines) ..' 713 write (tout,1010) weldid (i) , tgtno (1) , tgtdia (1) , 714 1 tgttyp (1) , tgtthk (1) , tgtsys (1) , .
'15 2 (tgtlen (1, k) , tgtvol (1, k ) , k=1, 3 ) j tlines = tlines + 1 ,
t ~ 717 c IF NO.0F TARGETS > 1 THEN DO FOR NTGTS-1: i 718 if (ntgts (i) .gt .1) then 719 c READ NEXT TARGET RECORD 720 do 50 j = 2, ntgts (i) 721 read (win, * , iostat=ierr) tgtno (j) , tgtdia (j) , , 722 1 tgtsys (j) , tgttyp (j) , 723 2 tgtthk (j) , (tgtlen (j, k) , k = :, 724 c VALIDATE TARGET DATA, 725 c WRITE ERRORS TO FILE BLOCKAGE. ERR ; 726 call valida(j) 727 c CALCULATE INSUL.VOL. FOR JTH TARGET IN SQ FT, ADD TO-WELD TOTAL. -I 728 do 30 k = 1, nld . 729 tgtvol (j, k) = const*p i*tgtlen (j,k) * ( ((tgtdia (j)- 730 1 2. *tgtthk (j) ) * *2) -tgtdia (j) *
- 2) . 1 731 if (fibrus (tgttyp (j) ) )
732 1 fbrvol (1, k) = fbrvol(i,k) + tgtvol(j,k) { 733 30 continue 734 c WRITE ONE RECORD TO FILE TARGET.OUT 735 if (tlines.ge.maxlin) call tgthdr (tout, ' versn, t1 ! 736 write (tout,1010) weldid (i) , tgtno(j), tgtdia(j), 1 737 1 tgttyp (j) , tgtthk (j) , tgtsys (j) , . 738 2 (tgtlen (j, k) , tgtvol ( j , k) , k=1,3)- ! t 739 tlines = tlines + 1 l 740 50 continue ; 741 endif 742 c IDENTIFY WELD'S DIAM. CLASS & STORE INDEX.TO DCID i 743 dcid(i) . = 0 i 744 do 60 k = 1, ndc-1 : 745 if ( (wdiam (i) . ge .wdctb1 (k) ) . and. (wdiam (i) . lt.wdctbl (k ! 746 1 dcid (i) =k ;
l 11/27/93 16:52:46 ~ F77L - Lahey FORTRAN 77, Version 4.01 . .
- SUBROUTINE WINPUT Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NK; Source file Listing- :
747 60 continue 748 if (wdiam (i) .gt .wdctb1 (ndc) ) dcid (i) = nde l 749. if (dcid (i) .eq.0) then 750 write (err, *) ' WINPUT: Error in WDIAM = ' , wdiam (i) , ' I=! 751 write (err, * ) ' WINPUT: Not in a permissible diameter cll 752 write (err, * ) blank ' 753 stop 754 endif' 755 c IDENTIFY WELD'S DIAMETER AND STORE INDEX TO DIAMID , 756 diamid(i) =0 i 757 do 70 k = 1, npwd 758 if (wdiam (i) .eq.pwds (k) ) diamid(i) =k 759 70 continue ,, 760 if (diamid (i) .eq. 0) then 761 write (err, *) ' WINPUT: Error in WDIAM = ' , wdiam (i) , ' I=: 762 write (err, * ) ' WINPUT: Not a permissible weld diameter' 763 write (err, * ) blank 764 stop : 765 endif 766 c IDENTIFY WELD'S TYPE AND STORE INDEX.TO TY9EID 767 typeid = 0 , 768 do 75 k = 1, npwt ' 769 if (wtype (i) .eq.pwts (k) ) typeid = k 770 75 continue 771 if (typeid.eq. 0) then ; write (err, * ) ' WINPUT: Error in WTYPE = ' , wtype (i) , ' I= l 772 773 write (err, *) ' WINPUT: Not a permissible' weld type'- 1 774 write (err, * ) blank 775 stop , 776 endif i 777 C CALCULATION 1, STEP 1.1 778 c USE WELD TYPE TO ASSIGN ITS WELD WEIGHTING FACTOR 779 ide =. dcid(i) , 780 wwf (i) = wwffwf (ide, typeid) .. 781 C. CALCULATION 1, STEP 1.2 782 c ACCUMULATE SUMS OF WEIGHTING FACTORS BY DIAM. CLASS 783 wfsum (ide) = wfsum(idc) + wwf (i) : 784 C WRITE ONE RECORD TO FILE WELD.OUT 785 if (wlines.ge.maxlin) call wldhdr (wout, versn, wlines) 786 write (wout,3000) i, weldid (i) , sysid (i) , wdiam (i) , , 787 1 wtype (i) , wloc(i), ntgts (i)- i 788 wiines = wiines + l- . 789 c END REPFAT UNTIL 790 100 continue' l 791 101 continue 792 cIF ERRORS IN. WELD & TARGET DATA THEN STOP ; 793 cELSE DETERMINE BREAK FREQENCIES: 794 c DO FOR ALL WELDS: 795 do 200 i = 1, nwlds 796 c CALCULATE RATIO OF WEIGHTING FACTOR TO: SUM-FOR DIAM.CL.- 797 ide = dcid(i) 798 if (wfsum (idc) .eq. 0. ) then t - n -
r F77L'-' Lahey FORTRAN 77,-Version 4.01 11/27/93 16:52:46 SUBROUTINE WINPUT Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NKi Source-file Listing- , , 799 ratio = 0. 800 else 801 ratio = wwf(i) /wfsum(ide) ! ^ 802 endif 803 c CALCULATE BREAK FREQ. = DIAM. CLASS FAILURE FREQ.* RATIO 804 wbrf rq (i) = wdeffr (idc)
- ratio 805 200 continue 806 c ENDDO ;
807 cENDIF 808 1000 format (a40) . 809 1010 format (1x, a9,1x,12,1x, f 6.2,1x, a2,4x, f 4.2,2x, a4,3 (1x, f 6.2,1x, f5 ;
'810 2010 format (1x, a40) 811 3000 format (1x,i5,1x, a9,1x,i2,2x, f 6.2,3x, a2,3x, a2,1x,i5) 812 return 813 end ,
I t I t i s a
T F77L - Lahey FORTRAN 77, Version 4.01 11/27/93 16:52:46 ..: SUBROUTINE VALIDA- Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/N!!
' Source file Listing ,
f 814 subroutine valida (n) . 815 e inputs 816 c n = target number 817 e output: 818 e none 819 c processing: ' 820 c validates target data for target n must have labelled commons / TARGET /,/PARAMS/ 821 c
- 822 c 823 include 'dataster.for' i Il 1 c FILE DATASTOR.FOR - include in BLOCKAGE modules Il 2 c program parameters: these are the maximum dimensions of. arrays. I Il 3 c maximum number of welds and targets per weld:
Il 4 parameter (naxwls = 300, maxtgt = 24) Il 5 c maximum number of flow rates, head losses, L/Ds and. screen areas: Il 6 parameter (maxfr = 3, maxhl = 3, max 1d = 3, maxsa = 4)
- Il 7 c maximum number of permissible weld diameters, types and locations:
Il 8 parameter (maxpwd = 30, maxpwt = 10, maxpwl = 20) ' Il 9 c maximum number of systems, diameter classes-Il 10 parameter (maxsys = 10, maxdc = 4) .. 11 11 c maximum number of location classes, permissible insulation materita Il 12 parameter (max 1c = 5, maxpim = 10) Il 13 c version number: i Il 14 character *12 versn Il 15 parameter (versn = ' BLOCKAGE 1. 0' )
- Il 16 c end of program parameters. j Il 17 c Il 18 c UNITS: file units:
'Il 19 integer pin, win, err, wout, tout, bout, sout, sum l Il 20 parameter (pin =1, win =2, err =3,wout=4, tout =5, bout =6,sout=7, sum =8]
Il 21 c ' Il 22 c PARAMS: problem parameters data store-Il 23 common /params/ nfr, nhl, nld, nsa, npwd, npwt, npwl, nsys, nci npim, nlc, pwds, wdctbl, wdeffr, wwffwf, Il 24 1 , Il 25 2 pfrs, ld, ahls, psas, pwts, f1bflg, pwls, pime Il 26 3 lesell, Icsel2, wdclbl, Iclatl, systbl,.ledesq Il 27 c actual number of flow rates, head losses, scre,o 3:eas,. ' Il 28 c permissible weld diameters, permissible weld typer,, . Il 29 e permissible weld locations, systems, L/Pr, inval. destruction mode: Il 30 c diameter classes, location classes Il 31 c (the first location class is the summary location class) and Il 32 c permissible insulation materials; the insulation destruction model Il 33 c themselves,from the parameter input file: Il 34 integer nfr, nhl, nsa, npwd, npwt, npwl, nsys, nld, ndc' q Il 35 integer nic, npim j Il 36 e the permissible weld diameters, diam. classes, failure frequencies Il 37 real pwds (maxpwd) , wdctbl (maxdc) , wdeffr(maxde) Il 38 c permissible flow rates, allowable head losses, screen areas,' Il 39 c and weld weighting factors: .l Il 40 real pfrs (mc xfr) , Id (maxld) , ahls (maxhl) , psas (maxsa) , j Il 41 1 wwffwf(max 6c,maxpwt) J Il 42 c fibrous insulation flag: 1
'Il 43 character *1 fibflg (maxpim)
F77L - Lahey FORTRAN 77, Version 4.01 11/27/93 16:52:46 . . SUBROUTINE.VALIDA Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NF l Source file Listing Il 44 c permissible weld locations, insul. materials, weld types: Il 45 character *2 pwls (maxpwl) , pims (maxpim) , pwts (maxpwt) ! Il 46 c location class selections (2), diameter and location class labels: , Il 47 character *2 lesell(max 1c), 1csel2 (max 1c) ' 11 48 character *5 wdclbl(maxdc), 1clab1 (max 1c) Il 49 c table of systems, location descriptions: Il 50 character *26 systbl(maxsys) , Il 51 character *SO ledesc (max 1c) r Il 52 c end of parameter data store. ; Il 53 c Il 54 c WELDS: weld and target information data store: 3 Il 55 common / welds / wdiam, fbrvol, wbrfrg, sysid, ntgts, nwlds, l Il 56 1 wtype, wloc, weldid, dcid, diamid, probid : Il 57 c weld diameter (in) : Il 58 real wdiam(maxwls) 1* Il 59 c weld break frequency, total fibrous volume (sq.ft) by L/D, Il 60 c both are calculated by the program from inputs: Il 61 real wbrfrq (maxwls) , fbrvol (maxwls, maxld) Il 62 c system ID, diameter & diam. class indices, no. of targets and weldt ! Il 63 integer 'sysid(maxwls), diamid (maxwls) , dcid (maxwls) , j Il 64 1 ntgts(maxwls), nwlds Il 65 c weld type and location: ! Il 66 character *2 wtype (maxwls) , w1oc (maxwls) .l Il 57 c weld ID: Il 68 character *9 weldid(maxwls) Il 69 c problem ID: , Il 70 character *40 probid j Il 71 c end of welds data store. :) 72 c : Il Il 73 c BLOCKS: blockage information data store: l Il 74 common / blocks / blockd i Il 75 c blockd equals 'Y' or ' N' for a parameter combination: ! Il 76 character *1 blockd (maxwls,maxld,maxfr,maxhl,maxsa) ; Il 77 c end of blockage information data store. Il 78 c i Il 79 c SUMARY: summaryinformationdatastoreforsummarytablereport:-{ ' Il 80 common /sumary/ overal, loccls Il 81 e totals for overall and summary location class frequencies: i Il 82 real overal(maxld,maxfr,maxhl,maxsa) Il 83 real loccls (max 1d,maxfr,maxhl, maxsa) . II 84 c end of summary information data' store. l Il 85 c Il 86 c END OF FILE DATASTOR.FOR : 11 87 : 824 include ' target.for' l I2 1 c LOCAL DATA - TARGET INFORMATION FOR ONE WELD 12 2 common / target / tgtno, tgtdia, tgtsys, tgttyp, tgtthk,.tgtlen; 12 3 integer tgtno(maxtgt) ; I2 4 real tgtdia (maxtgt) , tgtthk (maxtgt) , tgtlen (maxtgt,maxld) l 12 5 real . tgtvol (maxtgt, max 1d) ; I2 6 character
- 4 tgtsys (maxtgt) '
I2 7 character *2 tgttyp(maxtgt) , I v
I lF77L - Lahey FORTRAN 77,-Version'4.01 11/27/93 16:52i46 -SUBROUTINE VALIDA Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NK' Source file Listing , I2 8 825 character *S. blank 826 data blank / ' '/ 827 c validate target diameter: >0, <1000, 2 decimal places .I 828 if ( (tgtdia (n) . le. 0. ) .or. (tgtdia (n) .ge.1000. ) ) then 829 write (err, * ) ' VALIDA: Error in target diameter.= ', . :i 830 1 tgtdia (n) , ' N = ',n, weld = ',weldid (nwld 831 write (err, * ) ' VALIDA: Req. O < TGTDIA < 1000' '; 832 write (err, * ) blank 833 stop l 834 endif . 835 c validate insulation thicknessiinches, 2 dec. places, >0, <100 ; 836 if ( (tgtthk (n) .le. 0. ) .or. (tgtthk (n) .ge .100. ) ) ' then _ 837 write (err, *) ' VALIDA: Error in insulation thickness ~= ',: 838 1 tgtthk (n) ,' ' N= ' , n , ' weld = ' , weldid (nwlds)~' . 839 write (err, * ) ' VALIDA: Req. O < TGTTHK < 100' 840 write (err, * ) blank 841 stop 842 endif 843 c validate insulation type: must be one of the pims , 3 844 k=0 845 do 10 i = 1, npim 846 10 if (tgttyp (n) .eq.pims (i) ) k=i 847 if (k.eq.0) then _. 848 write (err, * ) ' VALIDA: Error in target insulation type = ',, 849 1 tgttyp (n) , ' N=', n, ' weld = ',weldid(nwid ! 850 write (err, *) ' VALIDA: Not a permissible insulation type' 851 write (err, *) blank ; 852 stop , 853 endif-854 return ; 855 end ! WARNING - REAL ARRAY (TGTVOL) is declared but never used, line 5. . WARNING - REAL ARRAY (TGTVOL) is declared but never used, line 5. 1 f y 1 1 d
i F77L '- Lahey FORTRAN 77, Version 4.01 11/27/93 16:52:46 i Source file Listing , 856 include 'fibrus.for' Il 1 logical function fibrus (type) Il 2 c Determines whether a given insulation type is fibrous. Il 3 e inputs: l Il 4 c type. an insulation type from the weld input file Il 5 e processing: Il 6 c searches insulation types for a match with input type l Il 7 c if no match,. write an error msg and stop Il 8 c otherwise check flag to determine whether'it is fibrous Il 9 c output: - Il 10 c returns true if fibrous, false if not , Il 11 e i Il 12 include ' datastor.for' I2 1 c FILE DATASTOR.FOR - include in BLOCKAGE modules I2 2 c program parameters::these are the maximum dimensions of arrays.- i I2 3 c maximum number of welds and targets per weld: I2 4 parameter (maxwls = 300, maxtgt = 24) I2 5 c maximum number of flow rates, head losses, L/Ds and scrsen areas: I2 6. parameter (maxfr = 3, maxhl = 3, max 1d = 3,_maxsa = 4) . I2 7 c maximum number of permissible weld diameters, types and locations:j I2 8 parameter (maxpwd = 30, maxpwt = 10, maxpwl = 20)- I2 9 c maximum number of systems, diameter classes: ; I2 10 parameter (maxsys = 10, maxdc = 4) .
-I2 11 c maximum number of location classes, permissible insulation materia l I2 12 parameter (maxlc = 5, maxpim = 10) 3 I2 13 c version number: !
I2 14 character *12 versn I2 ' 1.5 parameter (versn = ' BLOCKAGE 1.0') ; I2 16 c. end of program parameters. I2 17 c . I2 18 c UNITS: file units: -j 12 19 integer pin, win, err, wout, tout, . bout, sout, sum I2 20 parameter (pin =1, win =2, err =3, wout=4, tout =5, bout = 6, sout=7, sum =8) j I2 21 c i I2 22 c PARAMS: problem parameters data store: I2 23 common /params/ nfr, nhl, nld, nsa, npwd, npwt, npwl, nsys, ni npim, nic, pwds, wdctbl, wdeffr, wwffwf, I2 24 1 I2 25 2 pfrs, ld, ahls,psas,pwts,fibflg,pwls,.pimd 12 26 3 lesell, lesel2, wdclbl,'1clabl, systbl,.ledesci 72 27 e actual number of flow rates, head losses, screen areas, I2 28 c permissible weld diameters, permissible weld types, ;
- 12. 29 c permissible weld locations, systems, L/Ds,-insul. destruction modeJ; I2 30 c diameter classes, location classes .
I2 31 c (the first location class is the summary location class) and I2 32' c permissible insulation materials; the insulation destruction _ mode { ' I2 33 c_themselves,from the parameter input file: 12 34 integer nfr, nhl, nsa, npwd, npwt, npwl, nsys,'nld, nde l' 12 35 integer nic, npim I2 36 ethepermissiblewelddiameters, diam. classes,failurefrequencies:l 12 37 real pwds (maxpwd) , wdctbl (maxdc) , wdeffr(maxdc) 12 38 c permissible flow rates, allowable head losses, screen areas, ; 12 39 c and weld weighting factors: '
'I2 40 real pfrs (maxfr), ld (maxld) , ahls(maxhl), psas (maxsa) , ;
i i
?
,. _ . _ _ - _ , . . . - - 5
.. . ~ .. .-- . -- -- = -
t
.F77L - Lahey FORTRAN 77, Version 4.01 . .11/27/93 16:52:46 _ .
t FUNCTION FIBRUS Compiling Opticas:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NK/L' Source file Listing I2 41 1 wwf f wf (maxdc,maxpwt) ! 12 42 c fibrous insulation flag: . I2 43 character *1 fibflg(maxpim) 12 44 e permissible weld locations, insul. materials, weld types: character *2 pwls (maxpwl) , pims (maxpim) , pwts (maxpwt) I2 45 ' I2 46 e location class selections (2), diameter and location class labels: I2 47 character
- 2 1csell (max 1c) , 1csel2 (maxic) >
.I2 48 character *5 wdc1bl(maxdc) , Iclab1 (maxlc)
I2 49 c table'of systems, location descriptions I2 50 character *26 systbl(maxsys) l I2 51 character *50 ledesc(max 1c) l I2 52 c end of parameter data store. ; I2 53 c
- I2 54 c WELDS: weld and target information data store:
I2 55 common / welds / wdiam, fbrvol, wbrfrg, sysid, ntgts,'nwids,- .; I2 56 1 wtype, wloc, weldid, dcid, diamid, probid I2 57 c weld diameter (in) : I2 58 real wdiam(maxwls) I2 59 c weld break frequency,-total fibrous volume (sq . f t) by L/D, I2 60 c both are calculated by the program from inputs: I2 61 real wbrfrq(maxwls) , fbrvol (maxwls, maxld) I2 62 c system ID, diameter & diam. class indices, no. of targets and weldre ' I2 63 integer sysid(maxwls), diamid (maxwls) , dcid (maxwls) ,- I2 64 1 ntgts (maxwls) , nwlds ! I2 65 c weld type and location: I2 66 character
- 2 wtype (maxwls) , wloc(maxwls) i 12 67 c weld ID:
I2 68 character *9 weldid(maxwls) I2 69 c problem ID: I2 70 character *40 probid I2 71 e end of welds data store. ' 12 72 c I2 73 c BLOCKS: blockage information data store: 12 74 ' common / blocks / blockd I2 75 c blockd equals 'Y' or 'N' for a parameter combination: I2 76 character *1 blockd(maxwls, max 1d,maxfr,maxhl,maxsa) l I2 77 c end of blockage information data store. j I2 78 c c SUMARY: summary information data store for summary table report: I2 79
.I2 80 common /sumary/ overal, loccls '
I2 81 c totals for overall and summary location class frequencies:
'I2 82 re al overal (maxld, maxf r, maxhl, maxs a )
I2 83 real loccls (maxld,maxfr,maxhl,maxsa) { I2 84 c end of summary information data store. I2 85 c 12 86 c END OF FILE DATASTOR.FOR f I2 87 Il 13 character *2 type , Il 14 character *1 f, blank {
-1 Il 15 integer i, k Il 16 data blank / ' '
/, f / 'F' /
II. 17 k=0
3
.F77L - Lahey FORTRAN 77, Version 4.01 11/27/93 16:52:46 FUNCTION FIBRUS Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NK/I ;
Source file Listing Il- 18 do 10 i = 1, npim Il 19 if (type . eq.pims (i) ) k = 1. -l
.Il 20 10 continue i Il- 21 if (k.eq.0) then l Il 22 write (err, *) ' FIBRUS: Invalid insulation type ', type Il 23 write (err, * ) blank Il 24 else Il 25 .
fibrus = (fibflg (k) .eq. f) 1 Il- 26 endif Il 27 return Il 28 end
+
I f 4 6 f t
.J
)
'L -F77L - Lahey FORTRAN 77, Version 4.01 11/27/93 16:52:46 SUBROUTINE TGTHDR Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NK!
Source file Listing 857 subroutine tgthdr (unit, ver, lines) 858 e inputs: 859 c unit unit number to write to for target summary-file - i 860 c .ver program version number 861 c lines starting line count for the file , 862. c output-863 c lines current line count for the file on completion 864 c processing: . 865 c writes headings and version number to target.out, resets no. of li! 866 integer unit 867 character *12 ver , 868 integer lines write (unit,1000) ver .: 869 870 write (unit,1001) 871 write (unit,1002) 872- write (unit,1003) , 873 lines = 4 874 return , 875 1000 format (1hl, a12, ' - TARGET
SUMMARY
TABLE') 876 1001 format (' L/D=3 ' 877 1 L/D=5 L/D=7') 878 1002 format (' WELD TARG TARG INSUL INSUL REF. TARGET- '
,- i 879 1 '
TARGET TARGET ') LENGTH &VOL', 880 1003 format (' ID NO DIAM TYPE THICK 881 1 ' LENGTH &VOL LENGTH &VOL') ; 882 end , 9 i r
,. {
p C
.. . - . - . - - . - . . -- . - ~ -. F77L - Lahey FORTRAN 77, Version 4.01 11/27/93 16:52:46
-SUBROUTINE'WLDHDR Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NK Source file Listing 883 subroutine wldhdr (unit, ver, lines) 884 e inputs:
885 e unit unit number to writefto for weld summary file 886 c ver program version number 887 c lines starting line count for the. file 888 c output: i 889 c lines current line count for the file on completion 890 c processing: 891 c writes headings and version number to weld.out, resets no. of line-892 integer unit 893 character *12 ver 894 integer lines 895 896 write (unit,1000) ver 3 897 write (unit,1001) 898 write (unit,1002) lines = 3 [ 899 900 return 901 1000 format (1hl, al2, ' - WELD
SUMMARY
TABLE') 902 1001 format (' WELD WELD SYSTEM PIPE WELD LOC.', 903 1 ' NO.0F ') CODE',
)
DIAM. TYPE 904 1002 format (' NO, ID ID ' 905 1 TARGETS ' )
- 906 end t
i I I O f t
i i F77L - Lahey FORTRAN 17, Version 4.01 11/27/93- 16:52:46 : SUBROUTINE BLKAGE Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NK ! Source file Listing 907 908 SUBROUTINE BLKAGE ; 909 INCLUDE DATASTOR.FOR. J Il 1 c FILE DATASTOR.FOR - include in BLOCKAGE modules ) Il 2 c program parameters: these are the maximum dimensions of arrays. , Il 3 c maximum number of welds and targets per weld: .Il 4 parameter (maxwls = 300, maxtgt = 24) Il 5 e maximum number of flow rates, head losses, L/Ds and. screen areas: Il 6 parameter (maxfr = 3, maxhl = 3, max 1d = 3, maxsa = 4) Il 7 c maximum number of permissible weld diameters, types and locations:' Il 8 parameter (maxpwd = 30, maxpwt = 10, maxpwl = 20) Il 9 c maximum number of systems, diameter classes: Il 10 parameter (maxsys = 10, maxdc = 4) Il 11 c maximum number of location classes, permissible insulation materik Il 12 parameter (maxlc = 5, maxpim = 10) i Il 13 c version number: Il 14 character *12 vercn Il 15 parameter (versn = ' BLOCKAGE 1.0') , Il 16 c end of program parameters. Il 17 c , Il 18 c UNITS: file units. Il 19 integer pin, win, err, wout, tout, bout, sout, sum-Il 20 parameter (pin =1, win =2, err =3, wout=4, tout =5, bout =6, sout=7, sum =8) . Il 21 c Il 22 c PARAMS: problem parameters data store: Il 23 common /params/ nfr, nhl, nld,'nsa, npwd, npwt, npwl, nsys, nc i Il 24 1 npim, nic, pwds, wdctbl, wdeffr,.wwffwf, Il 25 2 pfrs, ld, ahls, psas, pwts, fibflg, pwls, pims Il 26 3 lesell, 1csel2, wdclbl, Iclabl, systbl, ledesci Il 27 e actual number of flow rates, head losses, screen areas, Il 28 c permissible weld diameters, permissible weld types, . Il 29 e permissible weld locations, systems, L/Ds, insul. destruction modeJ! Il 30 c diameter classes, location classes 1 Il 31 c (the first location class is the summary location class) and Il 32 e permissible insulation materials; the insulation destruction mode 3!; Il 33 c themselves,from the parameter input file: Il 34 integer nfr, nhl, nsa, npwd, npwt, npwl, nsys, nld, nde ' Il 35 integer nic, npim . Il 36 c the permissible weld diameters, diam. classes, failure frequencies: Il 37 real pwds (maxpwd) , wdctbl (maxdc) , wdcffr(maxdc) l
.Il 38 c permissible flow rates, allowable head losses, screen areas, Il 39 c and weld weighting factors:
II. 40 real pfrs (maxfr) , .1d (maxld) , ahls (maxhl) , psas (maxsa) , Il 41 1 wwffwf(maxde,maxpwt) . Il 42 c fibrous insulation flag: l Il 43 character *1 fibflg (maxpim) Il 44 c permissible weld locations, insul. materials, weld types:
- Il 45 character *2 pwls (maxpwl) , pims (maxpim) , pwts (maxpwt)
Il 46 c location class selections (2), diameter and location class labels: , Il 47 character *2 lesell(maxlc), lesel2 (maxlc) Il 48 character *5 wdclbl(maxdc), 1clabl(maxlc) Il 49 c table of systems, location descriptions: Il 50 character *26 systb1(maxsys)
F77LL Lahey FORTRAN 77,' Version 4.01 11/27/93 16:52:46 SUBROUTINE BLKAGE CompilingOptions:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/1/NK] Source file Listing Il 51 character *50 ledesc (max 1c) Il- 52 c'end of parameter data store. Il 53 c , Il 54 c WELDS: weld and target information. data store: I1' 55 common / welds / wdiam, fbrvol, wbrfrg, sysid, ntgts, nwids, II 56 1 wtype, wloc, weldid, dcid, diamid, probid t Il 57 e weld diameter (in) : ' Il 58 real wdiam(maxwls) Il 59 c weld break frequency, total-fibrous volume (sq.ft) by L/D, ' 'l ' Il 60 c both are calculated by the program from inputs: Il 61 real wbrfrq(maxwls) , fbrvol (maxwls, maxld) . Il 62 c system ID, diameter & diam. class indices, no. of targets and'weldsj Il 63 integer sysid(maxwls), diamid (maxwls) , dcid (maxwls) , , Il 64 1 ntgts (maxwls) , nwlds Il 65 c weld type and location: Il 66 character *2 wtype (maxwls), wloc (maxwls) Il 67 c weld ID: Il 68 character *9 weldid(maxwls) .+ Il 69 e problem.ID: Il 70 character *40 probid Il 71 c end of welds data store. , Il 72 c Il 73 c BLOCKS: blockage information data store: Il 74 common /blochs/ blockd Il 75 c blockd equals 'Y' or 'N' for a parameter combination: Il 76 character *1 blockd (maxwls,maxld,maxfr,maxhl,maxsa) . Il 77 c end of blockage information data store. c Il 78 c Il '79 c SUMARY: summary information data store for summary table report: Il 80 common /sumary/ overal, loccls Il 81 c totals for overall and summary location class frequencies:- Il 82 re al ove ral (maxld, maxf r, maxhl, maxsa) real loccls (max 1d,maxfr,maxhl,maxsa) Il 83 Il 84 c end of summary information data store. Il 85 c Il 86 c END OF FILE DATASTOR.FOR Il 87 910 real a, b, c, x, y, h 911 character *1 yes, no, blank , 912 data'a /1.84/, b /1.54/, c /1653./, yes /' Y' /,. no /'N'/ .. ; 913 data blank /' '/ 914 C SRS~ CALCULATION 2: 915 c DO (I) FOR ALL L/DS: 916 do 500 i = 1, nld 917 c DO (J) 'FOR ALL FLOW RATES: ; 918 do 400 j = 1, nfr 919 c .DO (K) FOR ALL HEAD LOSSES:. 920 do 300 k = 1, nh1 921. c DO (L) FOR ALL SCREEN AREAS: , do 200 1 = 1, nsa j 922 923 c DO (M) FOR ALL WELDS: 924 do 100 m = 1, nwids l
e F77L - Lahey FORTRAN 77, Version.4.01. 11/27/93 16:52:46-SUBROUTINE BLKAGE Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/N1 Source fiJe Listing 925 c CALCULATE HEAD LOSS H FOR THESE PARAMS: 926 c X=FLOWRATE ( J] / ( 4 4 8. 8
- SCREENAREA [L] ) _
927 x = pfrs (j) / (448.8*psas (1)) . 928 if (x. lt . 0. )' then . 929 write (err, * ) ' BLKAGE: Exp. error X;= ',~ ~~ 930 write (err,*) blank 931 . stop-932 endif: , 933 x = c*x**a 934 c- Y=FIBROUSVOLUME[I]/SCREENAREA[L] 935 y _ = fbrvol(m,i) /psas (1) ., 936 if (y.lt.0.) then 937 write (err, *) ' BLKAGE: Exp. error'Y = ', 938 write (err, *) blank ', 939 stop '! 940 else 941 y = y**b 942 h.= x*y 943 endif 944 c IF H > ALLOWABLE (K) THEN-945 if (h . gt . ahls (k) ) then - 946 - blockd (m,i, j, k,1) = yes-947 else ' 948 blockd (m,1, j, k,1) = no 949 endif ' 950 c ENDDO (M) 951 100 . continue 952 c ENDDO (L) 953 200 continue 954 c ENDDO(K) .l
- 955 300 continue 956 c ENDDO (J) ,
957 400- ' continue 958 c ENDDO (I) , 959 500 continue : 960 return [ 961 END , [
-- f D
L 1 1 l
. . __________________________________.___.____1__
.F77L - Lahey FORTRAN 77, Version 4.01- 11/27/93 16:52:46 Source file Listing 962 include ' report.for' Il 1 subroutine report Il 2 c generates and prints coce reports Il -3 e calculations 3 through 6 of the software requirements Il 4. c specifications are performed Il 5 c Il 6 e code variables used by subroutine report .Il 7 c Il~ 8 c problem identification probid-Il 9 c code version identifiaction versn Il 10 e number of flow rates nfr ,
Il 11 e number of allowable head losses nh1 , Il 12 e number of screen areas nsa number of insulation destruction models Il 13 e nld Il 14 c number of welds nwlds Il 15 c number of permissible weld diameters npwd Il 16 e number of diameter classes nde , Il 17 c number of. permissible weld locations npwl Il 18 c number of location classes nlc Il 19 c number of systems nsys Il 20 c flow rates pfrs (nf r) - ; Il 21 c allowable head loss ahls (nh.'.) Il 22 c screen areas psas (nst ) Il 23 e insulation destruction model - ld (nld) Il 24 c weld diameters wdiam (nwlds) , Il 25 c permissible weld diameters pwds (npwd) permissible weld diameter identification diamid(nwids) Il 26 c Il 27 c weld diameter class identification dcid(ndc) Il 28 c weld diameter class label wdc1bl (ndc) Il 29 c weld location wloc (nwlds) Il 30 c permissible. weld locations pwls (npwl) : Il 31 c location class. labels . Iclabl (nic) Il 32 c location class descriptions ledesc (nlc) Il 33 c location class selection 1 lesell(nlc) Il 34 c location class selection 2 lesel2 (nic) Il 35 c weld system identification sysid (nwlds) Il 36 c system descriptions systbl(nsys)- ! Il 37 c weld break frequencies wbrfrq (nwids) . Il 38 c blockages blockd (nwlds, nld, nfr, nhl,nsa!
.Il 39 c Il 40 c subroutine-loops through all screen areas, allowable- ,
Il 41 c head losses, and flow rates Il 42 c ; Il 43 include 'datastor.for' I2 1 c FILE DATASTOR.FOR - include in BLOCKAGE modules I2 2 c program parameters: these are the maximum dimensions of: arrays. ' I2 3 c maximum number of welds andLtargets per weld:
-I2 4 parameter (maxwls = 300, maxtgt = 24) ,
I2 5 c maximum number of flow rates, head losses, L/Ds.and screen areas:.' I2 6 parameter (maxfr = . 3, maxh1 = 3, maxldr = 3, n'.axsa = 4) I2 7 c maximum number of permissible weld diameters, types and. locations: 12 8 parameter (maxpwd = 30, maxpwt = 10, maxpwl = 20) i I
.. .. - .- = _ . . ._. . F77L - Lahey FORTRAN 77, Version ~4.01 11/27/93 16:52:46 .
-SUBROUTINE = REPORT . Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NK!
Source file Listing I2- 9 c' maximum number of systems, diameter classes: , parameter (maxsys = 10, maxdc = 4) I2 10 . I2 11 e maximum number of location classes, permissible insulation materiai I2 12 parameter (maxic = 5, maxpim = 10)- 12 13 c version number: I2 14 character *12 versn I2 15 parameter (versn = ' BLOCKAGE 1.0') I2 16 c end of program parameters. I2 17 c I
- 12. 18 c UNITS: file units:
I2 19 integer pin, win, err, wout, tout, bout, sout, sum 12 20 paramete r (pin =1, win =2, err =3, wout=4, tout =5, bout = 6, s out=7, sum =8) I2 21 c I2 22 c PARAMS: problem parameters data store: I
.I2 23 common /params/ nfr, nhl, nld, nsa, npwd, npwt,-npwl, nsys, ndi .I2 24 1 npim, nlc, pwds, wdctbl, wdeffr, wwffwf, I2 25 2 pfrs, Id, ahls, psas, pwts,.fibflg, pwls, pims!
I2 26 3 lcsell, 1cse12, wdc1bl,~1clabl, systbl, ledesc; I2 27 c actual number.of flow rates, head losses, screen areas, I2 28 c permissible weld diameters, permissible weld types, I2 29 c permissible weld locations, systems, L/Ds, insul. destruction modeli I2 30 c diameter classes, location classes I2 31. c (the first location class is the summary location class) and I:2 32 c permissible insulation materials; the insulation destruction modell ' I2~ 33 c themselves,from the parameter input file: I2 34 integer nfr, nhl, nsa, npwd, npwt, npwl, nsys, nld, nde I2 35 integer nic, npim I2 36 c the permissible weld diameters, diam. classes, failure frequencies:[' I2 37 . real pwds (maxpwd) , wdctbl (maxdc) , wdcf f r (maxde) : I2 38 c permissible flow rates, allowable head losses, screen areas, 12 39. c and weld weighting factors: I2 40 real pfrs (maxfr), Id (maxld) , ahls(maxhl), psas (maxsa) , I2 41 1 wwffwf(maxdc,maxpwt) l i I2 42' c fibrous insulation flag: ' I2- 43 character *1 fibflg(maxpim)
.I2 44 c permissible weld locations, insul. materials, weld types: l I2 45 character *2 pwls (maxpwl) , pims (maxpim) , pwts (maxpwt) '
I2 46 e location class selections (2), diameter and location class labels: I2 47 character *2 lesell(maxlc), lesel2 (max 1c) I2 48 character *5 wdc1bl(maxdc) , Iclab1 (max 1c) I2 49. c table of systems, location descriptions: I2 50 character *26 systbl(maxsys) , I2 51' character *50 1cdesc (max 1c) I2 52 c end of parameter data store. I2 53 c I2 54 c WELDS: weld and target information; data store: I2 55 common / welds / wdiam, fbrvol, wbrfrg, sysid, ntgts,-nwlds,- . I2 56 1 wtype, wloc, weldid, dcid, diamid, probid. I2 57 c weld diameter (in) : I2 58 real wdiam(maxwls) I2 59 c weld break frequency, . total fibrous volume ' (sq.ft) by L/D, I2 60 c both are calculated by the program from inputs I2 61 real wbrfrq(maxwls), fbrvol (maxwls, maxld)
. . . _ . . . . .. . . -. .= - - . . ... . .-
i F77L - Lahey: FORTRAN 77,. Version 4.01 11/27/93 16:52:46 SUBROUTINE REPORT Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NFj Source file Listing I2 62 c system ID, . diameter & diam. class indices, no. of targets and welds { I2 63 integer sysid(maxwls), diamid (maxwls) , dcid (maxwls) , 12 64 1 ntgts (maxwls) , nwlds I2 65 c weld type and location: I2 66 character *2 wtype (maxwls), wloc (maxwls) 12 67 .c weld ID: I2 68 - character *9 weldid(maxwls). I2 69 e problem ID: ? I2 70 character *40 probid I2 71 c end of welds data store. I2 72 c I2 73 c BLOCKS: blockage information data store: , 12 74 -common / blocks / blockd 12 75 c blockd equals 'Y' or 'N' for a parameter combination: 12 76 charact er
- 11 blockd (maxwl s , maxld, max f r, maxhl, max s a )
I2 77 c end of blockage information data store. I2' 78 c 12 79 c SUMARY: summary information data store for' summary table report:1 80 common /sumary/ overal, loccls 1 I2 12 81 c totals for overall and summary location class frequencies: I2 82 re al overal (max 1d, max f r, maxhl, max s a) I2 83 real loccis (max 1d,maxfr,maxhl,maxsa) I2 84 c end of summary information data store. c I2 85 86 c END OF FILE DATASTOR.FOR :l I2 I2 87 . 11 44 c , Il 45 do 1 isa=1,nsa Il 46 do 2 ihl=1,nhl Il 47 do 3 ifr=1,nfr 3
~
Il 48 do 4 ild=1,nld Il 49 call calc 3 (isa,ihl,ifr,ild) Il 50 call calc 4 (isa,ihl,ifr,ild) continue Il 51 4 Il 52 call calc 5 (isa,ihl,1fr). Il 53 call calc 6 (isa,ihl,ifr) i Il 54 call error (isa,ihl,ifr) 11 55 3 continue
.Il 56 2 continue Il 57 1 continue Il 58 call summ Il 59 return Il 60 end l
p
t
- F77L - Lah'ey FORTRAN.77, Version 4.01 11/27/93 16:52:46 SUBROUTINE CALC 3 Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NK/
. Source file Listing IO 61 subroutine calc 3 (isa,ihl,1fr,ild) 10 62 c 4 calculation 3: data for sequence' reports by diameter ,
subroutine variables 10- 63 c IO 64 c -sequence frequencies 65 c weld diameter overall sfwdo ~ (npwd) 10- _ IO - 66 c weld diameter and location class sfdlc (npwd, nlc)
-l IO 67 c total sequence frequencies J tsfo IO 10 68 69 c
c overall location class tsflc (nlc) j - IO 70 c ' IO 71 include 'datastor.for' Il 1 c FILE DATASTOR.FOR - include in BLOCKAGE modules Il 2 e program parameters: these are the maximum dimensions-of arrays. Il 3 c maximum number of welds and targets per weld: Il 4 ' parameter (maxwls = 300, maxtgt = 24) Il 5 c maximum number of flow rates, head losses, L/Ds and screen areas: .;
.Il 6 parameter (maxfr = 3, maxh1 = 3, max 1d = 3, maxsa = 4) c maximum number.of permissible weld diameters, types.and locations:,
Il 7 Il 8 parameter (maxpwd-= 30, maxpwt = 10, maxpwl = 20) c maximum number of systems, diameter classes: Il 9 Il 10 parameter (maxsys = 10, maxdc = 4) 2.1 11 c maximum number of location classes, permissible insulation materiEl Il 12 parameter (maxic = 5, maxpim = 10) 11 1 13 c version number: Il 14 character *12 versn Il 15 parameter (versn = ' BLOCKAGE 1.0') Il 16 c end of program parameters. Il 17 c Il 18 c UNITS: file units: ' Il 19 integer pin, win, err, wout, tout, bout, sout, sum Il 20 parameter (pin =1, win =2, err =3, wout=4, tout =5, bout = 6, sout=7, sum =8) j Il 21 c Il 22 c PARAMS: problem parameters data store. Il__ 23 common /params/ nfr, nhl, nld, nsa, npwd, npwt, npwl, nsys, nc( Il 24 1 npim, nic, pwds, wdctbl, wdeffr, wwffwf, Il 25 2 pfrs, ld, ahls, psas, pwts, fibflg,pwls,pim[ Il 26 3 lesell, lese 12, wdc1bl, 1clabl,_systbl, ledesci Il 27 c actual number of flow rates, head losses, screen areas, c permissible weld diameters, permissible weld types, Il 28 . Il _ 29 c permissible weld locations, systems, L/Ds, insul. destruction mode.S Il 30 c diameter classes, location classes Il 31 c (the first location class is the summary location class) and Il 32 e permissible insulation materials; the insulation destruction mode: Il 33 c themselves,from the parameter input-file: q Il 34 integer nfr, nhl, nsa, npwd, npwt, npwl, nsys, - nld,: nde Il 35 integer nic, npim Il~ 36 c the permissible weld diameters, diam. classes, failure _ frequencies !
.Il 37 real_ pwds (maxpwd) , - wdctbl (maxde) , wdeffr (maxde)
Il 38 c permissible flow rates, allowable head losses, screen areas, -i II 39 e and weld weighting factors: Il 40 real pfrs (maxfr), ld(maxld), ahls (maxhl) , psas (maxsa)', 3 1 wwf fwf (maxde,maxpwt) Il 41
-j l
l _ ._- ~ , ,
F77L - Lahey FORTRAN 77, Version 4.01 11/27/93 ~16:52:46 SUBROUTINE CALC 3 Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NK/; ' Source file Listing Il 42 c fibrous insulation flag: 'Il 43 character *1 fibflg(maxpim) Il 44 c permissible weld locations, insul. materials, weld types: Il 45 character *2 pwls (maxpwl), pims (maxpim) , . pwts (maxpwt).
- Il 46 c location- class selections (2), diameter and location class labels:
Il 47 character *2 lesell(maxic), lese 12 (maxic) Il 48 character *5 wdcibl(maxdc) , Iclabl (maxlc) , Il 49 c table of systems, location descriptions: , character *26 systb1(maxsys) 1 Il 50 Il 51 character *50 ledesc (max 1c) Il 52 c end of parameter data store. Il 53 c. Il 54 c WELDS: weld and target information data. store: , Il 55 common / welds / wdiam, fbrvol, wbrfrg, sysid, ntgts, nwids, ; Il 56 1 wtype, wloc, weldid, dcid, diamid,.probid. Il 57 c weld diameter (in) : I Il 58 real wdiam(maxwls) . Il 59 c weld break frequency, total fibrous volume (sq.ft) by L/D, Il 60 c both are calculated by the program from inputs: Il 61 real wbrfrq(maxwls), fbrvol(maxwls,maxld) , Il 62 c system ID, diameter & diam. class indices, no. of targets.and weld! ! Il 63 integer sysid(maxwls), diamid (maxwls) , dcid (maxwls) , Il 64 1 ntgts (maxwls) , nwlds Il 65 c weld type and location: Il 66 character *2 wtype (maxwls) , wloc (maxwls) Il 67 c weld ID: Il 68 character *9 weldid(maxwls)
- Il 69 c problem ID:
Il 70 character *40 probid Il 71 c end of welds data store. t Il 72 c , Il 73 c BLOCKS: blockage information data store: Il 74 common / blocks / blockd Il 75 c blockd equals 'Y' or 'N' for a parameter combination: Il 76 character *1 blockd(maxwls,maxld,maxfr,maxhl,maxsa) - Il 77 c end of blockage information data store. Il 78 c Il 79 c SUMARY: summary information data store for summary table report: : 11 80 common'/sumary/ overal, loccls , 11 81 c totals for overall and summary location class frequencies:. Il 82 real overal(maxld,maxfr,maxhl,maxsa) ' Il 83 real loccls (max 1d,maxfr,maxhl,maxsa) c end of sumarry information. data store. : Il 84 85 c II. Il 86 c END OF FILE DATASTOR.FOR [ Il 87-10 72 common / checks / check 3, check 4, check 5, check 6 + 10 73 real check 3 (max 1d) , check 4 (maxld) , checks (maxld) , check 6 (maxld) ; 10 74 real sfwdo (maxpwd) , sfdlc (maxpwd,maxlc) , tsflc (maxlc) j 10 75 data ipage /0/ 10 76 c 10 77 c initialize subroutine variables 10 78 do 1 ipwd=1,npwd [
'i
F77L - Lahey FORTRAN 77,-Version 4.01 .11/27/93- .16:52:46 .
. Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NK/i SUBROUTINE ~ CALC 3' .
- Source 1 file Listing? .l; 10- 79' s fwdo (ipwd) =0. .
IO 80. do 2 ilc=1,nic 1 IO. 81 2 sfdic (ipwd, ilc) =0. ; 10: 82 1 continue :
.IO. 83 tsfo=0-. .IO 84 do-3 11c=1,nic !
- IO 85 3 tsf1c (ilc)=0.
IO 86 c .
'IO 87 c calculate sequence frequencies.for each weld.
IO 88 do 4 iwlds=1,nwids
'IO 89 c ,
c IO 90 bypass sums for unblocked welds if (blockd (iwlds,ild,1fr,ihl,isa) .eq. ' Y' ) ;then i 10 91 10' 92 c . identify permissible weld diameters by diamid(iwlds) 10 93 c.
'IO 94 c calculate sequence frequencies by weld diameter IO c 95 but over all locations and sum IO 96 c .:
IO 97 sfwdo (diamid (iwlds) ) =s fwdo (diamid (iwlds) ) +wbrfrq (iwlds) - IO 98 tsfo=tsf o+wbrf rq (iw1ds) ;t
.IO 99 c save data for error checking calculation 10 100 check 3 (ild) =tsfo >
10 101 c 10 102 e calculate sequence frequencies by weld diameter and location .. 103 e ; 10 class and sum 10 104 do 5 11c=1,nic ] I0 105 e test for location class ; I0 106 if (wloc (iwlds) .eq. lcsell (ilc) .or. 10 107 1 w1oc (iwlds) . eq. lcse12 (ilc) ) then I0 108 sfdic (diamid (iwlds) , ilc) =s fdic (diamid (iwlds) , ilc) , 10 109 1 +wbrfrq (iwlds) . 10 110 tsf1c (ilc) = tsf1c (ilc) +wbrfrq (iwlds) ! 111 end if ! 10 10 112 5 continue l i 10 113 end if
.IO 114 4 continue ,
115 c i 10 j IO 116 c write sequence frequencies report by diameter to file sout' 117 c i I0 10 118 c write problem identification : 10 119 if (ipage . eq. 0) then e 10 120 . write (sout,100) versn, probid , 10 121 100 format (4x, a12, ' ' a40) 10 122 ipage=1 IO- 123 else . 10 124 write (sout,101) versn, probid IO_ 125 101 ' format (1hl,3x, a12, ' ' ,a40) , 10 126 end if IO- 127 e -i 10 128 write (sout,102) psas (isa) ' 10 129 102 format (4x,' SEQUENCE FREQUENCY BY DIAMETER - SCREEN AREA = ' j. 10 130 if7.1,1x,'SQ.FT.')
'1 I
P F77L'- Lahey FORTRAN 77, Version 4.01 11/27/93 16:52:46 SUBROUTINE CALC 3 Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NK/- Source file Listing 20 131 write (sout,103) pf rs (if r) , ahls (ihl) ,1d (ild) I0 132 103 format (4x, ' FLOW RATE = ' , f 9.1,1x, ' GPM, HEAD LOSS = ', ; 10 133 If6.2,1x,'FT.H20, L/D = ' , f 4.1, /) IO- 134 write (sout ,104 ) (1clab1 (ilc) , ilc=1, nic) ,
~
I0 135 104 format (4x, ' DIAM OVERALL' ,5 (5x, a5) ) 10 136 c write table of results 10 1J7 do 105 ipwd=1,npwd 10 138 write (sout,106) pwds (ipwd) , s fwdo (ipwd) , (sfdlc (ipwd, ilc) , ilc=1, 10 139 10 6 format ( 5x, f 4. 0,1x,1pe 9.1,1x,5 (1x,1pe 9.1) ) 10 140 105 continue 10 141 write (sout,107) I0 142 107 format (4x,65 (' ')) I0 143 write (sout,108) tsf o, (tsf1c (ilc) , ilc=1, nic) > 10 144 10 8 format (4x, ' TOTAL' ,1pe 9.1,1x,5 (1x,1pe9.1) ) 10 145 write (sout,109) I0 146 10 9 f ormat (/,30x, ' NOMENCLATURE' ) 10 147 write (sout,110) 10 148 110 format (4x, ' DIAM' ,5x, ' DIAMETER OF INITIATING EVENT - INCHES' ) 10 149 write (sout,111) 10 150 111 format (4x, ' OVERALL' ,2x, ' OVERALL SEQUENCE FREQUENCY' ) 10 151 do 112 11c=1,nic IO- 152 write (sout,113) 1clab1 (ilc) ,1cdese (ilc) , i 10 153 113 format (4x, a5,4x, a50) LIO 154 112 continue 10 155 return ? 10 156 end , J { i
1 F77L - Lahey FORTRAN 77, Version 4.01 . 11/27/93 16:52:46 ; SUBROUTINE CALC 4 Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NK/l Source file Listing 10 157 subroutine calc 4 (isa,ihl,ifr,ild) 10 158 c calculation 4: data'for frequencies sequence report-by system : 10 159 e subroutine variables ' 10 160 c sequence frequencies 10 161 c system and diameter class afsd(nsys,nde) I0 162 e system, diameter and location classes sf sdic (nsys, ndc, n) ) 10 163 c total sequence frequencies I0 164 c overall tsfo
'IO 165 c location class tsflc (nic)'
10 166 c . I0 167 include ' datastor.for' Il 1 c FILE DATASTOR.FOR - include in BLOCKAGE modules
-Il 2 c program parameters: these are the maximum dimensions of arrays.. !
Il 3 c maximum number of welds and targets per weld: Il 4 parameter (maxwls = 300, maxtgt = 24) Il 5 c maximum number of flow rates, head losses, L/Ds and screen areas: Il 6 parameter (maxfr = 3, maxh1 = 3, maxld = 3, maxsa = 4). Il 7 c maximum number of permissible weld diameters, types and locations: Il 8 parameter (maxpwd = 30, maxpwt = 10, maxpwl = 20) Il 9 c maximum number of systems, diameter classes: Il 10 parameter (maxsys = 10, maxdc = 4) , Il 11 c maximum number of location classes, permissible insulation ~materit! Il 12 parameter (maxlc = 5, maxpim = 10) i Il 13 c version number: . Il 14 character *12 versn Il 15 parameter (versn = ' BLOCKAGE 1.0') Il 16 c end of program parameters. : Il 17 c Il 18 c-UNITS: file units: Il 19 integer pin, win, err, wout, tout, bout, sout, sum Il 20 parameter (pin =1, win =2, err =3, wout=4, tout =5, bout = 6, sout=7, sum =8) Il 21 c Il 22 c PARAMS: problem parameters data store: -) common /params/ nfr, nhl, nld, nsa, npwd, npwt, npwl, nsys, nc! Il 23 Il 24 1 npim, nlc, pwds, wdctbl, wdeffr, wwffwf, Il 25 2 pfrs, ld,.ahls, psas, pwts, fibflg, pwls, pimfj Il 26 3 lesell, 1csel2, wdc1bl, iclabl, systbl, icdesc; 11 27 c actual number of flow rates, head losses, screen areas, Il 28 c permissible weld diameters, permissible weld types, Il 29 c permissible weld locations, systems, L/Ds, insul. destruction mode 3 Il 30 c diameter classes, location classes
.Il 31 c (the. first location class is the summary. location class) and Il- 32 c permissible insulation materials;-the insulation destruction modeh Il 33 c themselves,from the parameter input file:
Il 34 integer nfr, nhl, nsa, npwd, npwt, npwl, nsys, nld, ndc Il 35 integer nlc, npim Il 36 c the permissible weld diameters, diam. classes, failure frequencies! Il 37 real pwds (marpwd) , wdctbl (maxdc) , wdef fr (maxdc) j Il 38 e permissible flow rates, allowable head losses, screen areas, l Il 39 c and weld weighting factors: . Il 40 real pfrs (maxfr), ld (maxld) , ahls (maxhl) , psas (maxsa) , Il 41 1 wwffwf(maxde,maxpwt) , , . . -a. , , e , ,
.i
- F77L - Lahey FORTRAN 77, Version 4.01 11/27/93 16:52:46 SUBROUTINE _ CALC 4 Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NK/ !
Source file Listing , JIl 42 c fibrous insulation flag:
.Il 43 character *1 fibflg(maxpim)
Il 44 c permissible weld locations, insul. materials, weld types: ' Il 45 character *2 pwls (maxpwl) , pims (maxpim) , pwts (maxpwt) - Il 46 c location - class selections (2) , diameter and location class labels: _i Il 47 character *2 - lcsell (max 1c) , lesel2 (maxlc) Il 48 character *5 wdclbl(maxdc) , lclabl (maxlc) , Il 49 c table of systems, location descriptions: Il 50 character *26 systbl(maxsys) : Il 51 character *50 ledesc (maxic) l Il 52 c end of parameter data store. Il 53 c , Il 54 c WELDS: weld and target information data store: Il 55 common / welds / wdiam, fbrvol, wbrfrg, sysid, ntgts, nwlds,- Il 56 1 wtype, wloc, weldid, dcid, diamid, probid ' Il 57 c weld diameter (in). : Il 58 real wdiam(maxwls) Il 59 c weld break frequency, total fibrous volume (sq.ft) by L/D, ' Il 60 c both are calculated by the program from inputs: i Il 61 real wbrfrq(maxwls) , fbrvol (maxwls,maxid) Il 62 c system ID, diameter & diam. class indices, no. of targets and welds! Il 63 integer sysid(maxwls), diamid (maxwls) , dcid (maxwls) , Il 64 1 ntgts (maxwls) , nwlds ' Il 65 c weld type and location: Il 66 character *2 wtype (maxwls) , wloc (maxwls) Il 67 c weld ID: Il 68 character *9 weldid(maxwls) Il 69 c problem ID: ' Il 70 character *40 probid Il 71 c end of welds data store. , Il 72 c Il 73 c BLOCKS: blockage information data store: Il 74 common / blocks / blockd 4 Il 75 c blockd equals 'Y' or 'N' for a parameter combination:- j Il 76 character *1 blockd(maxwls,maxld,maxfr,maxhl,maxsa) , Il 77 c end of blockage information data store. : Il 78 c Il 79- c SUMARY: summary information data store for summary table report:1 Il 80 common /sumary/ overal, loccls i 11 81 e totals for overall and summary location class frequencies: ; Il 82 real overal(maxld,maxfr,maxhl,maxsa) Il 83 real loccls (maxld,maxfr,maxhl,maxsa) ; Il 84 c end of summary information' data store.
' Il' 85 c ;
Il 86 c END OF FILE DATASTOR.FOR - Il 87 10 168 common / checks / check 3, check 4, check 5, check 6- l 10 169 real check 3 (maxld) , check 4 (max 1d) , checks (maxld) , check 6 (maxld)- : I0 170 . real sfsd (maxsys, maxdc) , sf sdic (maxsys, maxde, maxlc) , ts flc (maxlt ! 10 171 c I0 172 e initialize subroutine variables I0 173- do 1 isys=1,nsys i
.. -_= _ _ _
... . = ,. - -.
l
'F77L - Lahey FORTRAN 77, Version-4.01 . 11/27/93 16:52:46' SUBROUTINE. CALC 4 . Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NK/l Source-file Listing IO- 174 -do~2'idc=1,nde 10 175 sf sd (isys, ide) =0. .IO 176 do 3-11c=1,nic 10 177 3 s f sdic (isys, ide, ilc) =0. -IO 178- 2 continue IO- 179 1 continue I0 180 .tsfo=0.
10 181 do 4 11c=1,nlc , 10 182 4 tsflc(ile)=0. I0 183 c 10 184 c. calculate sequence frequencies-for-each weld 10 185 do-5'iwlds=1,nwlds i
~IO 186 c I0 187 .c bypass sums.for unblocked welds- -IO 188 if (blockd (iwlds, ild, if r, ihl, isa) eq. ' Y' ) then I0 1189 c
- 10. '190 c identify weld systems by sysid(iwlds) '
10 191 e identify weld diameters class by dcid(idc) IO -192 c-
- 10. 193 c calculate sequence frequencies by system and diameter. class I0 194 c and sum IO 195 c 10 196 s fsd (sysid (iwlds) , dcid (iwlds) ) =s f sd (sysid (iwlds) , deid (iwlds) )
IO 197 1+wbrf rq (iwlds) , t 10 198 tsf o=tsf o+wbrfrq (iwlds) ' I0 199 c save data for error checking calculation I-0 200 check 4 (ild) =tsfo ; 10 201 c
.IO 202 c calculate sequence frequencies by system, diameter class, 10 203 c and location class and sum 10 204 do 6 ilc=1,nic 10 205 c test for location class i -IO. 206 if (wloc (iwlds) .eq.lcsell (ilc) .or.
10- 207 1 wloc (iwlds)'.eq.lcsel2 (ile) ) then 10 208 10 209 sf sdic (sysid (iwlds) , dcid (iwlds) , ilc) = , 1I0 210 1 sf sdic (sysid (iwlds) , dcid (iwlds) , ilc) +wbrf rq (iwlds) - 10 211 tsf1c (ilc) = tsf1c (ilc). + wbrfrq(iwlds) 10 212 end if IO- 213 6 continue l IO- 214 end if IO -215 5 continue IO- 216 c . 10 217. c write Sequence Frequencies Report by~Systemito; file sout' j IO .218 c I0 219 c write problem identification lt 0 220 write (sout,101) versn, probid IO 221 101 format (1hl,3x, a12, ' ' ,a40) IO- ~222 c 10 223 write (sout,102) psas (isa) IO '224 102 format (4x, ' SEQUENCE FREQUENCY . BY SYSTEM - SCREEN AREA = ', . ) 10 225 if 7.1,1x, ' SQ .FT. ' ) j l I l l l
. . - . - . - . - . . . . . - ~.-
e
- F77L - Lahey FORTRAN 77, Version 4.01 11/27/93 16:52:46 .
SUBROUTINE CALC 4 Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NK/l i Source file Listing i 10 226 write (sout,103) pf rs (if r) , ahls (ihl) ,1d (ild) I0 227 103 format (4x, ' FLOW RATE = ' , f 9.1,1x, ' GPM, HEAD LOSS =.', 10 228 if 6.2,1x, ' FT.H20, L/D = ' , f 4.1) IO 229 write (sout,104 ) (1clab1 (ilc) , ilc=1, nic) IO 230 104 format (4x,' SYS 'DCLS' ,2x, ' OVERALL' ,4x, a5,4 (4x, a5) ) ! IO 231 c write table of results 10 232 do 105 isys=1,nsys i 10 233 do 106 idc=1,nde I0 234 write (sout,107) isys , wdc1b1 (ide) , s f sd (isys, idc) , ; I0 235 1 (sf sdlc (isys, ide, ilc) , ilc=1, nic) 10 236 107 format (4 x,12,2x, a5,1pe 9.1,1x,5 (1pe 9.1) ) 10 237 106 continue ' 10 238 105 continue '. IO 239 write (sout,108) 10 240 108 format (4x,64 (' ')) 10 241 write (sout,109) tsfo, (tsf1c (ilc)',ilc=1, nic) IO 242 10 9 format (4 x, ' TOTAL' ,4x,1pe9.1,1x,5 (1pe 9.1) ) IO 243 write (sout,110) 10 244 110 format (/,29x, ' NOMENCLATURE' ) l 10 245 write (sout,111) 10 246 111 format (4x, ' SYST. ID' ,2x, ' INITIATING EVENT PIPING ' SYSTEM CLASS' ) ) I0 247 write (sout,112) 10 248 112 format (4x, ' DCLS . ' ,4x, ' INITIATING EVENT DIAMETER CLASS' ) l 10 249 do 113 i=1,5 10 250 ii=1+5 10 251 write (sout,114) i, systb1 (i) , ii, systb1 (ii) i 10 252 114 format (4x,12,2x, a2 6,2x,12,2x, a2 6) I0 253 113 continue 10 254 return 4 10 255 end -l l 4 l l 1
F77L - Lahey FORTRAN 77, Version 4.01 11/27/93 16:52:46 , SUBROUTINE CALC 5 Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NK/! Source file Listing 10 256 subroutine calc 5 (isa,ihl,ifr) 10 257 c calculation 5: data for probability reports by diameter 10 258 e subroutine variables 10 259 c break frequencies by weld diameter I0 260 c overall bfwdo (npwd) 10 261 e summary location class bfdslc (npwd) 10 262 c total break frequencies I0 263 e overall tbfo I0 264 c summary location class tbfsic 10 265 c sequence frequencies by weld diameter and 1/d I0 266 c overall sfwdoi (npwd,nld) 10 267 c summary location class sfdlci (npwd, nld) 10 268 c total sequence frequencies by 1/d 10 269 c overall tsf oi (nld) 10 270 c summary location class tsflci (nld) IO 271 c unavailabilities by weld diameter and 1/d : 10 272 c overall unwdoi (npwd, nld) IO 273 c summary location class undlci (npwd, nld) I0 274 c I0 275 include ' datastor.for' Il 1 c FILE DATASTOR.FOR - include in BLOCKAGE modules Il 2 c program parameters: these are the maximum dimensions of arrays. Il 3 c maximum number of welds and targets per weld: Il 4 parameter (maxwls = 300, maxtgt = 24) Il 5 c maximum number of flow rates, head losses, L/Ds and screen areas:
~
Il 6 parameter (maxfr = 3, maxhl = 3, maxld = 3, maxsa = 4) , Il 7 c maximum number of permissible weld diameters, types and locations:l Il 8 parameter (maxpwd = 30, maxpwt = 10, maxpwl = 20) Il 9 e maximum number of systems, diameter classes: Il 10 parameter (maxsys = 10, maxdc = 4) Il 11 c maximum number of location classes, permissible insulation materiai Il 12 parameter (maxlc' = 5, maxpim = 10) Il 13 c version number: Il 14 character *12 versn : Il 15 parameter (versn = ' BLOCKAGE 1. 0') : Il 16 c end of program parameters. - Il 17 c 11 18 c UNITS: file units: Il 19 integer pin, win, err, wout, tout, bout, sout, sum , Il 20 parameter (pin =1, win =2, err =3, wout=4, tout =5, bout = 6, sout=7, sum = 8) ! Il 21 c ; Il 22 c PARAMS: problem parameters data store-Il 23 common /params/ nfr, nhl, nld, nsa, npwd, npwt, npwl,_nsys, nc; Il 24 1 npim, nic, pwds, wdctbl, wdeffr, wwffwf, Il 25 2 pfrs, ld, ahls, psas, pwts, fibflg, pwls, pims! Il 26 3 lesell, 1csel2, wdclbl, Iclabl, systbl, ledescl Il 27 e actual number of flow rates, head losses, screen areas, , Il 28 c permissible weld diameters, permissible weld types, i Il 29 c permissible weld locations, systems, L/Ds, insul. destruction model Il 30 c diameter classes, location classes Il 31 c (the first location class is the summary location class) and Il 32 e permissible insulation materials; the insulation destruction mode: Il 33 c themselves,from the parameter input file: l l I l
._ _ a
q
-F77L - Lahey FORTRAN 77, Version 4.01 11/27/93- 16:52:46 . .
SUBROUTINE CALC 5 Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NK/l Source file Listing I Il 34 integer nfr, nhl, nsa, npwd, npwt, npwl, nsys, nld, nde
- Il- 35 integer nlc, npim Il 36 c the permissible weld diameters, diam. classes, failure frequencies:
Il 37 real pwds (maxpwd), wdctbl (maxdc) , wdef fr (maxdc) Il 38 c permissible flow rates, allowable head losses, screen areas, i Il 39 c and weld weighting factors: Il 40 real pfr7 :maxfr), ld (maxld) , ahls (maxhl) , psas (maxsa) , ; 1 wwffwf (maxdc,maxpwt) : Il 41 Il 42 c fibrous insulation flag: Il 43 character *1 fibflg (maxpim) Il 44 c permissible weld locations, insul. materials, weld types:. Il 45 character *2 pwls(maxpwl), pims (maxpim) , pwts (maxpwt) Il 46 c location class selections (2), diameter and location class labels:
- Il 47 character *2 lcsell(maxlc), lesel2 (maxlc)
Il 48 character *5 wdcib1(maxdc), Iclabl (maxlc) Il 49 c table of systems, location descriptions: Il 50 character *26 systbl(maxsys) Il 51 character *50 ledesc (maxic) ; Il 52 c end of parameter data store. - Il 53 c Il 54 c WELDS: weld and target information data store: [ Il 55 common / welds / wdiam, fbrvol,.wbrfrg, sysid, ntgts, nwids, t Il 56 1 wtype, w1oc, weldid, dcid, diamid, probid ' Il 57 c weld diameter (in) : Il 58 real wdiam(maxwls) Il 59 c weld break frequency, total fibrous volume (sq.ft) by L/D, ; Il 60 c both are calculated by the program from inputs: - Il 61 real wbrfrq(maxwls) , fbrvol (maxwls, maxld) Il 62 c system ID, diameter & diam. class indices, no. of targets and welds; integer sysid (maxwls) , diamid (maxwls) , dcid (maxwls) , Il 63 Il 64 1 ntgts (maxwls) , nwlds Il 65 c weld type and location: Il 66 character *2 wtype(maxwls), wloc(maxwls) [
.Il 67 c weld ID:
Il 68 character *9 weldid(maxwls) Il 69 c problem ID: Il 70 character *40 probid LIl 71 c end of welds data store. Il 72 c Il 73 c BLOCKS: blockage information data store: Il 74 common / blocks / blockd Il 75 c blockd equals 'Y' or 'N' for a parameter combination: Il 76 character *1 blockd (maxwls, max 1d,maxfr,maxhl,maxsa) Il 77 c'end of blockage information. data store. Il 78 c ' Il 79 c SUMARY: summary information' data-store for summary table report: 11 80 common /sumary/ overal, loccls Il 81 c totals for overall and summary location class ~ frequencies: Il 82 real overa1(maxld,maxfr,maxhl,maxsa) 11 83 real loccls (maxld,maxfr,maxhl,maxsa) q Il 84 c end of summary information data store. -; 85 c ; Il Il t' 6 c END OF FILE DATASTOR.FOR ) l 1
'I i
EF77L - Lahey FORTRAN-77, Version 4.'01 11/27/93 16:52:46 : SUBROUTINE CALC 5 Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NK/: ! Source file Listing
-Il 87 10 276 common / checks / check 3, check 4, checks, check 6 .
10 277 real check 3 (maxld) , check 4 (maxld) , checks (max 1d) , check 6 (max 1d) real bf wdo (maxpwd) ,bfdsic (maxpwd) , sfwdoi (maxpwd, max 1d) I0 278 10 279 real s f dlci (maxpwd, max 1d) , unwdoi (maxpwd, max 1d) 10 280 real undlci (maxpwd, maxld) , t sf oi (maxld) , ts f1ci (ma.:1d) ; 10 281 data ipage /0/ I0 282 c 10 283 e initialize subroutine variables 10 284 do 1 ipwd=1,npwd .i I0 285 bfwdo (ipwd) =0. i I0 286 bfdsic (ipwd) =0. 10 287 do 2 ild=1,nld i 10 288 sfwdoi (ipwd, ild) = 0. 10 289 sfdlci (ipwd, ild) = 0. I0 290 unwdoi (ipwd, ild) =0. undlci (ipwd, ild) = 0. . IO 291 10 292 2 continue i 10 293 1 continue 10 294 tbfo=0. IO 295 tbfsic=0. i IO 296 do 3 ild=1,nld 10 297 ts f oi (ild) =0. ! 10 298 tsflci (ild) =0. 10 299 3 continue 10 300 c :
-IO 301 c loop through .1 welds IO 302 do 4 iwlds=1 ilds l
IO 303 c IO 304 c calculate break frequencies IO 305 c 10 306 c identify permissible weld diameters by diamid(iwlds) IO 307 c .
~[
IO 308 c calculate overall break frequencies by weld diameter and sum -t IO 309 bfwdo (diamid (iwlds) ) =bfwdo (diamid (iwlds) ) +wbrfrq (iwlds) 10 310 tbf o=tbf o+wbrf rq (iwlds) 10 311 c 10 312 c calculate summary location class break frequencies by , 10 313 c weld diameter and sum (summary location class is first i IO 314 c location class) , 10 315 c test for location class i IO 316 if (wloc (iwlds) .eq.lcse11 (1) .or. IO 317 iwloc (iwlds) .eq.lcsel2 (1) ) then . ( 10 318 bfdsic (diamid (iwlds) ) =bfdsic (diamid (iwlds) ) +wbrf rq (iwlds) - ; 10 319 tbf sic =tbf sic +wbrfrq (iwlds)
.IO 320 end if IO 321 e i calculate sequence frequencies 'I 10 322 c IO 323 c 10 324 c calculate sequence frequencies by insulation destruction mode:
10 325 do 5 ild=1,nld 10 .326 if (blockd (iwlds, ild, ifr, ihl, isa) . eq. ' Y' ) then
, . , .. . . . - - . . . ~ . - - .. - _ - - . . . .
577L - Lahey FORTRAN 77, Version 4.01. 11/27/93 16:52:46 .
~
SUBROUTINE CALC 5 . Compiling Options:/N0/N2/N3/N7/NA/Al/B/NC/ND/NE/NF/H/I/NKr) Source. file Listing j IO 327 c. ,
- IO' 328 c calculate overall-sequence frequencies by j IO 329 c weld. diameter and sum . .
1 IO 330 s fwdoi (diamid (iwlds) , ild) =s fwdoi (diamid (iwlds) , ild) ; IO 331 1 +wbrf rq (iwlds)- . IO 332 t s foi (ild) =ts f oi (ild) +wbrfrq (iwlds) ! IO 333 e save overall sequence frequencies for summary report j IO 334 overal (ild,1f r, ihl, isa) =tsf oi (ild) c y IO 335 . IO 336 e calculate summary location class sequence frequancies .I IO 337 c by weld diameter and sum _; 338 c test for location class .; 10- . if (wloc tiwlds) .eq.lcsell (l) .or.wloc (iwlds) .eq. lcse12 (1) )1 tht l IO 339 IO- 340 s fdlci (d iamid (iwlds) , ild) =s fdici (diamid (iwlds) , ild) . > 10 341 1 +wbrfrq iwlds) , IO 342 tsflci(ild) = tsfici(ild) + wbrfrq(iwlds) t IO 343 e save summary. location class sequence frequencies > 10 344 c for summary report . 10 345 loccls (ild, if r, ihl, isa) =ts flci (ild) 10 346 e save sums for error checking calculation , IO 347 checks (ild) =tsflci (ild) IO 348 end if .j IO -349 end if . IO 350 5 continue 10 351 4 continue IO 352 c '
-10 353 c calculate unavailabilities
'IO 354 do 6 ipwd=1,npwd [
.IO .355 do 7 ild=1,nld ;
356 c IO IO 357 c . calculate overall unavailabilities by weld. diameter [ IO 358 if (bfwdo (ipwd) .gt . 0. ) then' .
. t IO 359 unwdoi (ipwd, ild) =s fwdoi (ipwd, ild) /bf wdo (ipwd) ;
10 36. else 10 361 unwdoi (ipwd, ild) =0. l 10 362 end if IO '363 ' IO 364 c IO 365 e calculate summary location class unavailabilities -j IO 366 c by weld diameter IO 367 if (bfdsic (ipwd) .gt . 0. ) then IO 368 undici (ipwd, ild) =sfdici (ipwd, ild) /bfdsin (ipwd) IO 369 else 10 370 undic1 (ipwd, ild) = 0. 1 10 371' end if , 10 372 c 10 373 7 continue [ 10 374 6 continue 10 375 c ! 10 376 c write probabilities report by diameter to file bout ! 10- 377 c
.I'0 378 c write problem identification !
10 379 if (ipage . eq. 0) then ~!
- . ~ . . _ _. , _
TF77L - Lahey' FORTRAN 77,. Version 4.01~ 11/27/93 '16:52: 46' . . L SUBROUTINE CALC 5 Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NK/ Source. file' Listing 10' 380 write (bout,100) versn, probid 10 381 100 format (4x, a12, ' ' , a4 0)
-IO? 382 ipage=1 IO- 383 else IO '384 write (bout,101) versn, probid IO 385 101 format (1hl,3x, a12, ' ' ,a40) 'IO 386 -end if.
In 387 c IO 388 write (bout,102) psas(isa) 10 389 102 format (4x,'
SUMMARY
OF PROBABILITIES DIAMETER BASIS ' ',
.IO 390 1' SCREEN AREA = ' , f 7.1,1x, ' SQ.FT . ' )
10 391 . write (bout,104) pf rs (if r) , ahls (ihl) 10 392 104 format (4x, ' FLOW RATE = ' , f 9.1,1x, ' GPM, HEAD LOSS =, IO .393 If 6. 2,1x, ' FT.H20' , /) 10 394 write (bout,105) 10 395 105 format (10x, ' BREAK FREQUENCIES' ,11X, ' SCREEN UNAVAILABILITIES' ) 10 396 write (bout,10 6) (1d (ild) , ild=1, nid) IO 397 10 6 format (4 x, ' DI A . ' ,18x,3 (5x, ' L/D =' , f 4.1) ) 10 398 write (bout,10 7 ) 1clab1 (1) ,1clab1 (1) ,1clab1 (1) ,1clab1 (1) IO 399 107 ' f ormat (4 x, ' IN . ' , 3x,1x, ' OVERALL' ,1x, a5,4 x,3 (1x, ' OVERALL' ,1x, a5) 10 400 c 10 401 do 108 ipwd=1,npwd IO 402 write (bout,109) pwds (ipwd) , bfwdo (ipwd) , bfdsic (ipwd) , IO 403 lunwdoi (ipwd,1) , undici (ipwd,1) , unwdoi (ipwd, 2) , undici (ipwd, 2) , 10 404 2unwdoi (ipwd,3) , undici (ipwd,3) 10 405 10 9 format (4x, f 3. 0,1x,2 (1x,1pe8.1) ,0p,2x,6f7.4) IO 406 108 continue
- 10. 407 write (bout,110)
IO 408 110 format (4x,66 (' ')) 10 409 write (bout,111) 'tbfo, tbfsic IO 410 111 f ormat (4 x, ' TOTAL' ,1pe 8.1,1x,1pe 8.1, /) 10 411 write (bout,112) IO 412 112 format (31x, ' NOMENCLATURE' ) 10 413 write (bout,113) 10 414 113 format (4x,' DIA. ' ,5x, ' INITIATING EVENT DIAMETER - INCHES' ) 10 415 write (bout,114) IO 416 114 format (4x, ' OVERALL' ,2x,' OVERALL PROBABILITY OF INITIATING EVE 1 IO 417 1URRENCE'). IO 418 write (bout,117) IO 419 117 format (4x, ' L/D' ,6x, ' RATIO OF TARGET DISTANCE TO BREAK DIAMETEI IL 420 write (bout,115) Il 421 115 format (4x,'
SUMMARY
LOCATION CLASS LABEL IS:') 10 422 write (bout,116) Iclab1 (1) ,1cdesc (1) IO 423 116 format (4x, a5,4x, a50) 7J 424 c 10 425 c IO 426 c write sequence frequencies report by diameter to file: bout' IO 427 c 10: 428 c write problem identification IO 429 write (bout,121) versn, probid 10 430 121 format (1hl,3x, a12, ' ' ,a40) TIO 431 write (bout,122) psas (isa",
l F77L - Lahey FORTRAN 77, Version 4.01- 11/27/93 '16:52:46 SUBROUTINE CALC 5 CompilingOptions:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NK/l Source file Listing 432 122 format (4x, '
SUMMARY
OF FR' QUENCIES DIAMETER BASIS ', 10 ' LIO 433 l ' SCREEN AREA = ' , f 7.1,1x, ' SQ.FT . ' ) IO 434 write (bout,124) pf rs (ifr) , ahls (ihl) 4 IO 435 124 format (4x, ' FLOW RATE - '
, f 9.1,1x, ' GPM, HEAD LOUS = ', i 10 436 if 6. 2,1x, ' FT.H20' , /)
IO 437 write (bout,125) 10 438 125 format (8x, ' BREAK FREQUENCIES' ,14x, ' SEQUENCE FREQUENCIES' ) 10 439 write (bout,126) (1d (ild) , ild=1, nld) IO 440 12 6 format (4x, ' DIA. ' ,14 x,3 (7x, ' L/D =' , f 4.1) ) IO 44I write (bout,127) lclabl (1) ,1clabl (1) ,1clabl (1) ,1clabl (1) . IO 442 127 f ormat (4x, ' IN . ' ,2x, ' OVERALL' ,1x, ab,2x,3 (3x, ' OVERALL' ,1x, a5) ) : i 10 443 do 128 ipwd=1,npwd IO 444 write (bout,129) pwds (ipwd) , bfwdo (ipwd) , bfdsic (ipwd) , IO 445 1sf wdoi (ipwd,1) , s f dlci (.i pwd,1) , sfwdoi (ipwd,2) , sfdici (ipwd,2 ) IO 446 2, s fwdoi (ipwd,3) , sfdici (ipwd,3) IO 447 129 format (4 x, f 3. 0,2 (1pe8.1) ,2x,6 (1pe8.1) ) 10 448 128 continue i 7 449 write (bout,130) IO 450 130 format (4x,69 (' '))
. write (bout,131T tbf o, tbf sic, tsf oi (1) , tsf1ci (1) , tsfoi (2) ,
j IO 451 IO 452 Its flci (2) , tsfoi (3) , tsf1ci (3) IO 453 131 format (4x, ' TOT' ,2 (1pe8.1) ,2x,6 (1pe8.1) ) 10 454 write (bout,132) 10 455 132 format (/,33x, ' NOMENCLATURE' ) 10 456 write (bout,133) i 10 457 133 format (4x, ' DIA. ' ,5x, ' INITIATING EVENT DI AMETER - INCHES' ) 10 458 write (bout,134) 1 IO 459 134 format (4x, ' OVERALL' ,2x, ' OVERALL PROBABILITY OF INITIATING EVEN j IO 460 1URRENCE') IO 461 write (bout,137) l IO 462 137 format (4x,' L/D' ,6x,' RATIO OF TARGET DISTANCE TO BREAK DIAMETEF { IO 463 write (bout,135) IO 464 135 format (4x,'
SUMMARY
LOCATION CLASS LABEL IS:') t 10 465 write (bout,136) Iclab1 (1) ,1cdesc (1) i 10 466 136 format (4x, a5,4x, a50) : 10 467 c IO 468 return 10 469 end e 7 6 L L [ r
\
,k
- i 11/27/93 - 16:52:46 .
'F77L - Lahey FORTRAN 77, Version 4.01 ' SUBROUTINE CALC 6 Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NK/j Source file Listing IO 470 subroutine calc 6 (isa,ihl,ifr) ; IO 471 e calculation 6: data for probability reports by system i IO '472 c subroutine variables ! 10 473 c break frequencies by system and diameter class. . 10~ 474 e overall bfsdo (nsys,nde) ! i summary _ location class. bf sdic (nsys, ndc) IO 475 c total break frequencies 1^ IO '476 e IO 477 c overall tbfo IO 478 c summary location class . tbfsic _. IO 479 c sequence frequencies by system, diameter class, and 1/d . i IO 480 c overall sfsdoi (nsys,nde,nld) 481 e summary location class sfsdli (nsys, nde, , nld) : 10 ' total sequence frequencies by 1/d IO 482 c IO- 483 c overall tsfoi(nld) 10 484 c summary location class tsflci (nld) IO 485 e unavailabilities by weld diameter by 1/d . IO 486 c overall unsdoi (nsys, nde, nld) 'i 487 c summary location class unsdli (nsys, nde, nld) IO ; IO 488 c IO 489 include 'datastor.for' a Il I c' FILE DATASTOR.FOR - include in BLOCKAGE modules : Il 2 c program parameters: these are the maximum dimensions of arrays. Il 3 c maximum number of welds and targets per. weld. , Il 4 parameter (maxwls = 300, maxtgt = 24) l Il 5 c maximum number of flow rates, head losses, L/Ds and screen areas: ~f4 I1' 6 parameter (maxfr = 3, maxhl = 3, max 1d = 3, maxsa = 4) . Il 7 c maximum number of permissible weld diameters, types and locations: . Il 8 parameter (maxpwd = 30, maxpwt = 10, maxpwl = 20) 1
'Il 9 c maximum number of systems, diameter classes: j Il 10 parameter (maxsys = 10, maxdc = 4)
Il 11 c maximum number of location classes, permissible insulation materia ( Il 12 parameter (maxic = 5,.maxpim = 10) j Il 13 c version number: 14 character *12 versn -) Il
- Il 15 parameter (versn v ' BLOCKAGE 1.0')
Il 16 c end of program parameters. i Il 17 c Il 18 c UNITS: file units: Il 19 integer pin, win, err, wout, tout, bout, sout, sum Il 20 parameter (pin =1, win-2, err =3, wout=4, tout =5, bout = 6, s out=7, sum =8) ; Il 21 c Il 22 c PARAMS: problem parameters data store: Il 23 common /params/ nfr, nhl, nld, nsa, npwd, npwt, npwl, nsys, nci Il 24 1 npim, nic, pwds, wdctbl, wdeffr, wwffwf, II . 25 2 pfrs, ld, ahls, psas, pwts, fibflg, pwls, pims) Il 26 3 lesell, lese 12, wdclbl, Iclabl, systbl, . ledesc ! Il 27 c actual number of flow rates, head losses, screen exeas, '
"t 28 c permissible weld diameters, permissible weld types, .
Il 29 e permissible weld locations, systems, L/Ds, insul. destruction mode]j Il 30 e diameter classes, location classes I Il 31 c (the first location class is the summary location ' class) and Il 32 c permissible insulation materials; the insulation destruction mode:f Il 33 e themselves,from the parameter input file: i i i
Y
;F77L:- Lahey FORTRAN 77, Version 4.01' 11/27/93 16:52:46 y 7 SUBROUTINE CALC 6 Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NK/2:
Source file Listing I 1' . 34 integer nfr, nhl, nsa, npwd, npwt,.npwl, nsys, nld, nde : Il 35 integer nic, npim ~ Il 36 c the permissible weld diameters, diam. classes, failure frequencies:i Il- 37 real pwds (maxpwd) , wdctb1 (maxde) , wdeffr(maxdc) -- l Il 38 c permissible flow rates, allowable head losses, screen areas, l Il 39 c and weld weighting factors: Il 40 real pfrs (maxfr), ld (ma::ld) , ahls (maxhl) , psas (maxsa) , i Il 41 1 wwffwf (maxdo,maxpwt) Il 42 c fibrous insulation flag: - Il 43- character *1 fibflg (maxpim) Il 44 e permissible weld locations, insul. materials, weld types: ,. Il 45 character *2 pwls (maxpwl), pims (maxpim) , pwts(maxpwt) 11 - 46 c location class selections (2), diameter and location class labels: ~i Il 47 character *2 lcsell(max 1c), Icse12 (maxic) I1' 48 character *5 wdclbl(maxdc), Iclabl(maxlc) Il 49 c table of systems, location descriptions: : Il 90 character *26 systbl(maxsys) Il 51 character *50 ledesc (maxlc) , l[1 52 c end of parameter data store. , Il 53 c i Il 54 c WELDS: weld and target information data store: Il 55 common / welds / wdiam, fbrvol,'wbrfrg, sysid, ntgts, nwids, Il 56 1 wtype, wloc, weldid, dcid, diamid, probid' Il 57 c. weld diameter U n) : .; Il 58 real wdiat '.maxwls) i Il 59 c weld break frequency, total fibrous volume . (sq.ft) by L/D, Il 60 c both are calculated by the program from inputs: : Il 61 real wbrfrq(maxwls), fbryol (maxwls, maxld) Il 62 c system ID, diameter & diam. class indices, no. of targets and welds! 4 Il 63 integer sysid(maxwls), diamid (maxwls) , dcid (maxwls) , '; Il 64 1 ntgts (maxwls) , nwlds Il 65 c weld type and location: Il 66 character *2 wtype (maxwls), wloc (maxwls) l' Il 67 c weld ID: lti 68 character *9 weldid(maxwls) Il 69 c problem ID: , Il 70 character *40 probid Il 71 c end of welds data store. Il 72 c Il 73 c BLOCKS: blockage information data store: Il 74 common / blocks / blockd , Il 75 c blockd equals 'Y' or 'N' for a parameter combination: l Il 76 character *1 blockd(maxwls, max 1d,maxfr,maxhl,maxsa) l Il 77 c end of blockage information data store. j Il 78 c Il 79 c SUMARY: summary information data store for summary table report: Il 80 common /sumary/ overal, loccls Il 81 e totals for overall and summary location class frequencies: Il 82 real overal(maxld,maxfr,maxhl,maxsa) 11 83 real loccls (maxld,maxfr,maxhl,maxsa) Il 84 c end of sunmary information data store. 11 85 c Il 86 c'END OF FILE DATASTOR.FOR I l
i F77L - Lahey FORTRAN 77, Version 4.01 . 11/27/93 16:52:46 . . SUBROUTINE ~ CALC 6 Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NL t
-Source-file Listing
't II 87
-. I O >
490 ' common / checks / check 3, check 4, checks, check 6' l 10 491 real ' check 3 (max 1d) , check 4 (max 1d) , checks (maxid) , check 6 (max 1d) l
'IO 492 - real bf sdo (maxsys, maxde) , bf sdlc (maxsys, maxdc) l IO 493 real sf sdoi (maxsys, maxde, max 1d) , sf sdli (maxsys, maxdc, max 1d) !
i IO 494 real unsdoi(maxsys,maxde, max 1d),unsdli(maxsys,maxde, max 1d)
.IO 495 real tsfoi (max 1d) , tsf1ci (max 1d) -
- HIO 496 c 10 497 e initialize subroutine variables 10 498 do 1 isys=1,nsys 10 499 do 2 idc=1,nde .
10 500 bf sdo (isys, idc) =0. IO 501 bf sdic (isys, idc) =0.
- 10 502 do 3 ild=1,nld I IO 503 s f sdoi (isys , ide, ild) =0.
10 504 sf sdli (isys , ide, ild) =0. ; J0 505 unsdoi (isys, ide, ild) =0. ! i 10 506 507 10 unsdli (isys, ide, ild) =0. : 10 508 3 continue I!0 509 2 continue IO 510 1 continue tbfo=0, ! IO 511 IO 512 tbfsic=0. ; 10 513 do 4.ild=1,nld l 10 514 tsf ol (ild) =0. t IO 515 ts f1ci (ild) = 0. - 10 516 4 continue IO 517 c 10 518 do 5 iwlds=1,nwlds IO 519 c ) IO 520 e calculate break' frequencies .l 10 521 c IO 522 e identify weld system by sysid(iwlds) l 10 523 e identify weld diameter class by dcid(idc) -i t IO 524 c IO 525 c calculate break frequencies by system'and diameter-class and ! IO 526 bf sdo (sysid (iwlds) , dcid (iwlds) ) =bf sdo (sysid (iwlds) , dcid (iwlds ! 11 IO 527 1+wbrfrq (iwlds) ' 10 528 tbfo = tbfo + wbrfrq(iwlds) IO 529 c 10 530 e calculate summary location class break frequencies by j l IO 531 e system and diameter class and sum l IO 532 c test for location class . IO 533 if (wloc (iwlds) .eq.lcsell (1) .or.wloc (iwlds) .eq,1csel2 (1) )- then ! IO 534 bf sdic (sysid (iwlds) , dcid (iwlds) ) =bf sdic (sysid (iwlds) , deid (iw1 l l IO 535 1+wbrfrq(iwlds) . tbfsic = tbfsic + wbrfrq(iwlds) I 10 536 10 537 end if 10 538 c 10 539 c calculate sequence frequencies 10 540 c 10 541 e calculate sequence frequencies by insulation destruction'modc
.. .~ . .~ ... . . . _ . .. . .
s
-F77L. ' Lahey FORTRAN:77', Version-4.01 11/27/93. 16:52:46 .
H SUBROUTINE CALC 6' Compiling Options:/N0/N2/N3/N7/NA/Al/B/NC/ND/NE/NF/H!I/NK/!
- Source file Liscing_
10 '542: do 6 11d=1,nid i 10 543 .if (blockd (iwlds,ild,1fr, ihl, isa) . eq. ' Y' ). then ' 110 544 c .
.IO. 545 e calculate overall sequence frequencies by system, '
IO 546 c diameter class, ld and sum IO 547 sfsdoi (sysid (iwlds ) , dcid (iwlds) , ild) = 10 548 1 s f sdoi (sysid (iwlds) , deid (iwlds) , ild)'+wbrfrq (iwlds) - tsfoi(ild) = tsfoi(ild) + wbrf rq (iwlds) J 10 549 IO 550 c . IO 551 e calculate summary-location class sequence frequencies i 10 552 c by sys, de, ld and sum 10' 553 if (wloc (iwlds) .eq.lcsell (l) .or.wloc (iwlds) .eq.lcsel2 (1) ) th< '
'IO 554 sfsdli (sysid (iwlds) , dcid (iwlds) , ild) = ..
IO 555 1 s f sdli (sysid (iwlds) , dcid (iwlds) , ild) +wbrfrq (iwlds) 10 556 t s flci (ild) =t s flci (ild) +wbr frq (iwlds ) IO 557 check 6 (ild) =tsflci (ild) ; 10 558 end if 10 559 end if : 10 550 6 continue j IO 561 5 continue ! 10 562 c j 10 563 c calculate unavailabilities IO 564 do 7 isys=1,nsys IO 565 do 8 idc=1,nde IO 566 do 9 ild=1,nld 10 567 c ; IO 568 e calculate overall unavailabilities by system and IO 569 c diameter class IO 570 if (bfsdo (isys,idc) .gt.0. ) then IO 571 unsdoi (isys,ide, ild) =s fsdoi (isys, ide, ild) /bf sdo (isys, ide) l f 10 572 else IO 573 unsdoi (isys, ide, ild) =0. IO 574 end if 3 10 575 c ; calculate summary location class unavailabilities 10 576 c IO 577 c by system and diameter class ; IO 578 if (bfsdic (isys,ide) .gt.0. ) then IO 579 unsdli (isys, ide, ild) =sf sdli (isys, ide, ild) /bfsdic (isys,idc? IO 580 else , IO 581 . unsdli (isys, ide, ild) =0. , IO 582 end if IO 583 c ., IO .584 9 continue , 10 585 8 continue 10 586 7 continue 10 587 c 10 588 c write probabilities report by system to. file bout 10 589 c e IO 590 c write problem identification 10 591 write (bout,101) versn, probid IO 592 101 format (lhl,3x, al2, ' ' ,a40) LIO 593 write (bout,102) ' psas (isa) , F t i
F77L'- Lahey FORTRAN 77, Version 4.01 11/27/93_ 16:52:46 :l SUBROUTINE CALC 6 Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NK/I Source file Listing ,] 102 format (4x, '
SUMMARY
OF PROBABILITIES SYSTEM BASIS ', i 10 594 IO 595 1' SCREEN AREA = '
, f 7.1,1x, ' SQ.FT. ' ) l IO 596 write (bout,104 ) pf rs (if r) , ahls (ihl) :
IO 597 104 f ormat (4x, ' FLOW RATE = ' , f 9.1,1x, ' GPM, HEAD LOSS = ', q IO 598 If6.2,1x,'F".H20') ; 10 599 write (bout,105) 10 600 105 f ormat (14x, ' BREAK FREQUENCIES' ,11X, ' SCREEN UNAVAILABILITIES' ) I 40 601 write (bout,10 6) (1d (ild) , ild=1, nld) . IO 602 10 6 f ormat (4 x, ' SYS .DI A. ' ,18x,3 (5x, ' L/D =' , f 4.1) ) IO 603 write (bout ,107 ) 1clab1 (1) ,1clab1 (1) ,1clab1 (1) ,1clab1 (1) IO 604 7 07 format (4x,'ID CLS . ' ,4 x, ' OVERALL' ,1x, a5, 3x, 3 (1x, ' OVERALL' ,1x, a : IO 605 c 10 606 do 108 isys=1,nsys , IO 607 do 109 idc=1,nde IO 608 write (bout ,110) isys , wdc1b1 (idc) , bf sdo (isys , idc) , bf sdic (isys, ' IO 609 1 , unsdoi (isys , ide,1) , unsdli (isys, ide,1) , unsdoi (isys , ide,2 ) , 10 610 2 , unsdli (isys, ide,2) , unsdoi (isys, ide,3) , unsdli (isys, ide,3) , IO 611 110 format (4 x,12,1x, a5,2x,2 (1pe 8.1) , 0p,2x, 6 (f7. 4 ) ) i 10 612 109 continue IO 613 108 continue , IO 614 c 10 615 write (bout,111) 10 616 111 format (4x,70 (' ')) 10 617 write (bout,112) tbfo, tbfsic 10 618 112 format (4x, ' TOTAL' ,5x,2 (1pe8.1) ) IO 619 write (bout,113) 10 620 113 format (/,32x, ' NOMENCLATURE' ) IO 621 write (bout,114) IO 622 114 format (4 x, ' SYS . ID' ,3x, ' INITIATING EVENT SYSTEM DESIGNATION' ) IO 623 write (bout,115) . 10 624 115 format (4x, ' OVERALL' ,2x, ' OVERALL PROBABILITY OF INITIATING EVEt l IO 625 1URRENCE') IO 626 write (bout,118) i 10 627 118 format (4x, ' L/D' ,6x, ' RATIO OF TARGET DISTANCE TO BREAK DI AMETEI, > IO 628 write (bout,116) IO 629 116 format (4x, '
SUMMARY
LOCATION CLASS LABEL IS:') 10 630 write (bout,117) Iclab1 (1) ,1cdesc (1) IO 631 117 f ormat (4x, a5,4x, a50) 10 632 c 10 633 c 10 634 c write sequence frequencies report by system to file bout 10 635 c 10 636 c write problem identification IO 63, write (bout,121) versn, probid 10 638 121 format (1hl,3x, a12,' ' ,a40) IO 639 write (bout,122) psas (isa) 122 format (4x,'
SUMMARY
CF FREQUENCIES SYSTEM BASIS ', IO 640 10 641 1' SCREEN AREA = ',f7.1,1x,'SQ FT.') 1 10 642 write (bout,124 ) pfrs (ifr) , ahls (ihl) IO 643 124 format (4x, ' FLOW RATE = ' , f 9.1,1x, ' GPM, HEAD LOSS = ', 10- 644 If6.2,1x,'FT.H20') 10 645 write (bout,125)
-~
- .~ - ._ - _ _ _. ._ . _ ,
F77L'- Lahey FORTRAN 77, version 4.01 11/27/93 16:52:46
- SUBROUTINE CALC 6 Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NK/
Source file Listing 10 646 125 format (13x, ' BREAK FREQUENCIES' ,15x, ' SEQUENCE FREQUENCIES' ) ' IO 647 write (bout,12 6) (1d (ild) , ild=1, nld) 10 648 12 6 f ormat (4 x, ' SYS . oI AM. ' ,15x,3 (7x, ' L/D =' , f 4.1) ) 10 649 write (bout,127 ) 1clab1 (1) ,1clab1 (1) ,1clab1 (1) ,1clab1 (1) 10 650 127 format (4x,'ID CLS . ' , 3x, ' OVERALL' ,1x, a5,2x,3 (3x, ' OVERALL' ,1x,2 ' 10 651 c 10 -652 do 128 isys=1,nsys 10 653 do 129 idc=1,nde - IO 654 write (bout,130) isys, wdc1b1 (ide) , bf sdo (isys, idc) , bfsdic (isys, IO 655 1 , s fsdoi (isys , idc,1) , sf sdli (isys, ide,1) , sf sdoi (isys, ide,2) ; IO 656 2 , sfsdli (isys, ide,2) , sf sdoi (isys, ide,3) , s fsd11 (isys, ide,3)- , 10 657 130 f ormat (4x,12,1x, a5,1x,2 (1pe 8,1) ,2x, 6 (1pe 8.1) ) l t IO 658 129 continue IO 659 128 continue ; IO 660 c t IO 661 < 10 662 write (bout,131) 10 663 131 format (4x,75 (' ')). IO 664 write (bout,132) tbf o, tbf sic, ts f oi (1) , tsf1ci (1) , tsfoi (2) , . IO 665 ltsf1ci (2) , tsfoi (3) , tsf1ci (3) 10 666 132 format (4x, ' TOTAL' ,4x,2 (1pe8.1) ,2x, 6 (1pe8.1) ) 10 667 write (bout,133) 7 10 668 133 f ormat (/,32x, ' NOMENCLATURE' ) c IO 669 10 670 write (bout,134) r 10 671 134 format (4x, ' SYS.ID' ,3x, ' INITIATING EVENT SYSTEM DESIGNATION' )- j IO 672 write (bout,135) : IO 673 135 format (4x, ' OVERALL' ,2x, ' OVERh~ L PROBABILITY OF INITIATING EVE! ! IO 674 1URRENCE') ; IO 675 write (bout,138) .: IO 676 138 f ormat (4x, ' L/D' ,6x,' RATIO OF TARGET DISTANCE TO BREAK DIAMETE1 ! 10 677 write (bout,136) 10 678 136 format (4x,'
SUMMARY
LOCATION CLASS LABEL IS:') : 10 679 write (bout,137) Iclab1 (1) ,1cdesc (1)
- 10 680 137 format (4x, a5,4x, a50)
IO 681 c IO 682 return - 10 683 end I I i l l l
, , .. -. ~. l LF77L -: Lahey FORTRAN 77, Version 4.01 11/27/93 16:52:46 SUBROUTINE ERROR Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NK/l Source file Listing IO 684 subroutine error (isa,ihl,ifr) IO 685 c do error checking calculations and write error messages to erai 10 686 c subroutine called for each head loss, flow rate, and screen a2 : IO 687 c 10 688 c check calculations performed: , IO 689 c 1) compares total overall sequence frequencies of 10 690 c calculations 3 and 4 IO 691 c 2) compares total summary location sequence frequency of' : IO 692 c calculations 5 and 6 IO 693 c l 10 694 include 'datastor.for' Il 1 c FILE DATASTOR.FOR - include in BLOCKAGE modules Il 2 c program parameters: these are the maximum dimensions of arrays. I Il 3 c maximum number of welds and targets per weld: i" Il 4 parameter (maxwls = 300, maxtgt = 24) Il 5 c maximum number of flow rates, head losses, L/Ds and screen areas: Il 6 parameter (maxfr = 3, maxhl = 3, maxld = 3, maxsa = 4) ~ Il 7 c maximum number of permissible weld diameters, types and locations ' Il 8 parameter (maxpwd = 30, maxpwt = 10, maxpwl = 20) Il 9 e maximum number of systems, diameter classes: . Il 10 parameter (maxsys = 10, maxdc = 4) Il 11 c maximum number of location classes, permissible insulation materir, Il 12 parameter (max 1c = 5, maxpim = 10) ; Il 13 c version number: Il 14 character *12 versn Il 15 parameter (versn = ' BLOCKAGE 1. 0' ) t Il 16 c end of program parameters. Il 17 c , Il 18 c UNITS: file units: Il 19 integer pin, win, err, wout, tout, bout, sout, sum Il 20 parameter (pin =1, win =2, err =3, wout=4, tout =5, bout =6, sout=7, sum =8' r Il 21 c Il 22 c PARAMS: problem parameters data store: Il 23 common /params/ nfr, nhl, nld, nsa, npwd, npwt, npwl, nsys, ni j ' Il 24 1 npim, nic, pwds, wdctbl, wdcffr, wwffwf, Il 25 2 pfrs, ld, ahls, psas, pwts, fibflg, pwls, pim Il 26 3 lesell, 1csel2, wdclbl, 1clabl, systbl, ledes , Il 27 c actual number of flow rates, head losses, screen areas, Il 28 c permissible weld diameters, permissible weld types, Il 29 c permissible weld locations, systems, L/Ds, insul. destruction mode ' Il 30 e diameter classes, location classes . Il 31 c (the first location class is the summary location class) and l Il 32 c permissible insulation materials; the insulation destruction mode ~ Il 33 c themselves,from the parameter input file: , Il 34 integer nfr, nhl, nsa, npwd, npwt, npwl, nsys, nld, nde - Il 35 integer.nlc, npim Il 36 c the permissible weld diameters, diam. classes, failure frequencies Il 37 real pwds (maxpwd) , wdctbl (maxdc) , wdeffr (maxde) Il 38 c permissible flow rates, allowable head losses, screen areas, Il 39 e and weld weighting factors: Il 40 real pfrs (maxfr) , ld (maxld) , ahls(maxhl), psas (maxsa) , ' Il 41 1 wwffwf(maxde,maxpwt) i l j
-I 11/27/93 -16:52:46.
~
F77L --Lahey FORTRAN 77,' Version 4.01 .
' SUBROUTINE ERROR. Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NK/;
Source file-Listing ,
.Il 42 e fibrous insulation flag: ;
i Il 43 character *1 fibflg(maxpim) Il 44 c permissible weld locations, insul. materials, weld types:
;Il 45 character *2 pwls (maxpwl) , pims (maxpim) , pwts (maxpwt)
II. 46 c location class selections (2), diameter and location class labels: ' Il 47 character *2 lesell(max 1c), 1csel2 (maxlc) character *5 wdclbl(maxdc), 1clabl(maxlc) ; Il 48 Il 49 c table of systems, location descriptions: l Il 50 character *26 systbl(maxsys) Il 51 character *50 ledesc (maxic) ! Il 52 e end of parameter data store. - Il 53 c Il 54 c WELDS: weld and target information data store: ' Il 55 common / welds / wdiam, fbrvol, wbrfrg, sysid, ntgts, nwlds, Il 56 1 wtype, wloc, weldid, dcid, diamid, probid - Il 57 c weld diameter (in) : Il 58 real wdiam(maxwls) Il 59 c weld break frequency, total fibrous volume (sq.ft) by L/D, i Il 60 c both are calculated by the program from inputs: Il 61 real wbrfrq(maxwls), fbrvol (maxwls, max 1d) . Il 62 c system ID, diameter & diam. class indices, no. of targets and welds! Il 63 integer sysid(maxwls), diamid (maxwls) , dcid (maxwls) , ! Il 64 1 ntgts (maxwls) , nwlds Il 65 c' weld type and location: Il 66 character *2 wtype (maxwls) , wloc (maxwls) . Il 67 c weld ID: Il 68 character *9 weldid(maxwls) Il 69 c problem ID: Il 70 character *40 probid l Il 71 c end of welds data store. Il 72 c Il 73 c BLOCKS: blockage information data store: Il 74 common / blocks / blockd Il 75 c blockd equals 'Y' or 'N' for a parameter combination: II - 76 character *1 blockd(maxwls,maxld,maxfr,maxhl,maxsa) ' Il 77 c end of blockage information data store. , Il 78 c Il 79 c SUMARY: summary information data store for summary table report: 1 Il 80 common /sumary/ overal, loccls , Il 81 e totals for overall and summary location class frequencies: ' Il 82 real overal(maxld,maxfr,maxhl,maxsa) ! II 83 real loccls (maxld,maxfr,maxhl,maxsa) j Il 84 c end of tummary information data store. Il 85 c Il 86 c END OF FILE DATASTOR.FOR ' 11 87 IO 695 common / checks / check 3, check 4, checks, check 6 , 10 696 real check 3 (maxld) , check 4 (maxld) , checks (maxld) , check 6 (max 1d) r 10 697 c 10 698 c error testing limit - .1% IO 699 data xlim /0.001/ ., 10 700 c
. .I O 701 do 1 ild=1,nld l l
l
. . . . .. _ ~ . ._.
i, F77L - Lahey FORTRAN 77, Version 4~.01 11/27/93, 16:52:46 SUBROUTINE ERROR Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NK/. Source file Listing . 10 702 c 10 703 e compare calculations 3 and 4 . 10 704 if (check 3 (ild) . lt .1. e-2 0. or. check 4 (ild) . lt .1. e-2 0) then I0 705 write (err,2). psas (isa) , pfrs (ifr) , ahls (ihl) ,ld (ild) , IO 706 1 check 3 (ild) , check 4 (ild) 10 707 2 format (/,1x, ' REPORT - Warning: zero total overall sequence fre.' IO 708 1cy' , /,1x, ' f or calc 3 or 4 : ' ,1x, ' psas=' , f 7.1,1x, ' pfrs=' , f 9.1,1x , IO 709 21x, ' ahls=' , f 6.2,1x, ' ld=' , f 4.1,1x, ' check 3=' ,1pe 9. 2,1x, ' check 4=' l IO 710 31pe9.2) IO 711 else ! 10 712 xerr= abs ( (check 3 (ild) -check 4 (ild) ) / check 3 (ild) ) r 10 713 if(xerr.gt.xlim) then 10 714 write (err,3) psas (isa) , pf rs (ifr) , ahls (ihl) ,ld (ild) , IO 715 1 check 3 (ild) , check 4 (ild) , xerr IO 716 3 format (/,1x,' REPORT - Total overall sequence frequency for', IO 717 1 /,' calc 3 and 4 do not agree :' , /,1x, ' psas=' , f 7.1,1x, ' pfrs=' ; IO 718 2 f 9.1,1x, ' ahls=' , f 6. 2,1x, ' ld=' , f 4.1, /,1x, ' check 3=' ,1pe9. 2, ; IO 719 3 1x, ' check 4 =' ,1pe 9. 2,1x, ' error =' ,1pe 9. 2) 10 720 end if IO 721 end if IO 722 c 10 723 c compare calculations 5 and 6 10 724 if (checks (ild) .. lt .1.e-20. or . check 6 (ild) . lt . l .e-2 0) then 10 725 write (err,7) psas (isa) , pf rs (if r) , ahls (ihl) , ld (ild) , . 10 726 1 checks (ild) , check 6 (ild) : 7 format (/,1x, ' REPORT - Warning: zero total summary sequence fre; 10 727 10 728 1cy' , /,1x, ' for calc 5 or 6 : ' ,1x, ' psas=' , f 7.1,1x, ' pf rs=' , f 9.1,1x ; 10 729 21x, ' ahls=' , f 6. 2,1x, ' ld=' , f 4.1,1x, ' check 5=' ,1pe 9. 2,1x, ' check 6=' , 10 730 31pe9.2) r 10 731 else IO 732 xerr= abs ( (checks (ild) -check 6 (ild) ) / check 5 (ild) ) , 10 733 if (xerr . gt . xlim) then 10 734 write (err,8) psas (isa) , pf rs (ifr) , ahls (ihl) , ld (ild) , , 10 735 1 checks (ild) , check 6 (ild) , xerr , 10 736 8 format (/,1x,' REPORT - Total summary sequence frequency for', 10 737 1 /,' calc 5 and 6 do not agree :' , /,1x, 'psas=' , f 7.1,1x, ' pfrs=' IO 738 2 f 9.1,1x, ' ahls=' , f 6. 2,1x, ' ld=' , f 4 .1, / ,1x, ' che ck5=' ,1pe 9. 2, ; IO 739 3 1x,' check 6=',1pe9.2,1x,' error =',1pe9.2) ' 10 740 end if 10 741 end if 10 742 c IO 743 1 continue IO 744 return ; 10 745 end , i i k 4 L t
,+.~ - -. . . . .. - . -- . , - - - - - - --
F77L - Lahey FORTRAN 77, version 4.01' 11/27/93' 16:52:46 - -l
- SUBROUTINE SUMM Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NK/L.
~ Source file Listing i a
10' 746 subroutine summ a IO 747' c writes overall data summary report to' file sum !
- IO 748 c summary location class is first location class ;
IO 749 c ; IO 750 . include 'datastor.for' Il I c FILE DATASTOR.FOR - include in BLOCKAGE modules Il 2 c program parameters: these are the maximum dimensions of arrays. j 3 c maximum number of welds and targets per weld: ; Il Il 4 parameter (maxwls = 300, maxtgt' = 24) Il 5 c maximum number of flow rates, head losses, L/Ds and screen areas:
. Il 6 parameter (maxfr = 3,.maxh1 ='3, max 1d = 3, maxsa = 4) .
Il 7 c maximum number of permissible weld diameters, types and locations:j Il 8 parameter (maxpwd = 30, maxpwt = 10, .maxpwl = 20) ; Il 9 c maximum number of systems, diameter classes: Il 10 parameter (maxsys = 10, maxdc = 4) Il 11 c maximum number of location classes, permissible insulation materia.
- Il 12 parameter (maxlc = 5 maxpim = 10) ;
' Il 13 c version number:
Il 14 character *12 versn Il 15 parameter (versn = ' BLOCKAGE 1. 0' ) ' Il 16 c end of program parameters. Il 17 c 4 Il 18 c UNITS: file units: Il 19 integer pin, win, err, wout, tout, bout, sout, sum' Il 20 parameter (pin =1, win =2, err =3, wout=4, tout =5, bout = 6, sout=7, sum =8) . Il 21 c : Il 22 c PARAMS: problem parameters data store: Il 23 common /params/ nfr, nhl, nld,.nsa, npwd, .npwt, npwl, nsys, nd
- Il 24 1 npim, nic, pwds, wdctbl, wdeffr, wwffwf,. .
Il 25 2 pfrs, Id, ahls, psas, pwts, fibflg, pwls, pims' Il 26 3 lesell, lese 12, wdc1bl, 1clabl, systbl, ledesci ' Il 27 c actual number of flow rates, head losses,. screen areas, Il 28 c permissible weld diameters, permissible weld types, . . l Il 29 c permissible weld locations, systems, L/Ds, insul. destruction model) 13 30 e diameter classes, location classes i Il 31 c (the first location class is the summary location class) and I2 32 c permissible insulation materials; the insulation destruction modelj Il 33 c themselves,from the parameter. input file:' ; Il 34 integer nfr, nhl, nsa, npwd,.npwt, npwl, nsys, nld, nde } Il 35 integer nic, npim Il 36 c the permissible weld diameters, diam. classes, failure frequencies:i Il 37 real pwds (maxpwd), wdctb1 (maxdc) , wdef f r (maxde) . Il 38 c permissible flow rates,-allowable head losses, screen areas, Il_ 39 c and weld weighting. factors: Il '40 real pfrs (maxfr), id (maxid) , ahls (maxhl) , psas (maxsa) , - . Il 41 1 wwffwf(maxde,maxpwt) : I1' 42 e fibrous insulation. flag: ; Il 43 character *1 fibflg (maxpim) Il 44 c permissible' weld locations, insul. materials, we.u types:- .; 11 45 character *2 pwls(maxpwl), pims (maxpim) , pwts (maxpwt) . i Il 46 c location class selections (2), diameter and location classilabels: . Il 47- character *2 lese 11(max 1c), Icsel2 (maxic)
l
'F77L L- Lahey. FORTRAN 77,. Version 4.01 11/27/93 .16:52:46.. .
I SUBROUTINE SUMM Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NK/Ld Source file Listing 48 character *5 wdclbl(maxdc), 1clab1 (maxlc) H LIl ~
'Il 49 c table of systems, location descriptions: j II. 50 character *26 systb1(maxsys)
Il 51 character *50 ledesc(max 1c) .l 11' 52 c end of parameter data store. Il 53' c .. Il 54 c WELDS: weld and target information data store: ! Il 55. common / welds / wdiam, fbrvol, wbrfrq, sysid, ntgts, nwids, II. 56 1 wtype, wloc, weldid, dcid, diamid, probid Il 57 c weld diameter (in) :
-Il 58 real wdiam(maxwls)
Il 59 c weld break frequency, total fibrous volume (sq.ft) by L/D, i Il 60 c both are calculated by the program from inputs: real wbrfrq(maxwls), fbrvol (maxwls,maxld) Il 61 Il 62 c system ID, diameter & diam. class indices, no. of targets and weldsj Il 63 integer sysid(maxwls), diamid (maxwls) , dcid (maxwls) , Il 64 1 ntgts (maxwls) , nwlds : Il 65 c weld type and location: l Il 66 character
- 2 wtype (maxwls) , wloc(maxwls) ;
Il 67 c weld ID: Il 68 character *9 weldid(maxwls) c problem ID: .; 11 69 Il 70 character *40 probid ! Il 71 c end of welds data store. Il 72 c r Il 73 c BLOCKS: blockage information data store: ; Il 74 common / blocks / blockd Il 75 c blockd equals ' Y' or ' N' for a parameter combination: Il 76 character *1 blockd (maxwls, max 1d,maxfr,maxhl,maxsa).. Il 77 c end of blockage information data store. !
+
Il 78 c . Il 79 c SUMARY: summary information data store for summary table report: ' Il 80 common /sumary/ overal, loccls Il 81 c totals for overall and summary location class frequencies: ; Il 82 real overal(maxld,maxfr,maxhl,maxsa)
'Il 83 real loccls (maxld,maxfr,maxhl,maxsa) ,
Il 84 c end of summary information data store. l Il 85 c Il 86 c END OF FILE DATASTOR.FOR Il 87 IO 751 c l 10 752 c write problem identification : IO 753 write (sum,101) versn, probid 10 754 101 format (4x, a12, ' ' , a4 0, /) i i IO 755 write (sum,102) 10 756 102 format (24x, ' OVERALL
SUMMARY
TABLE' , /) 10 757 write (sum,103) IO 758 103 format (33x, ' SCREEN BLOCKAGE FREQUENCY') IO 759 write (sum,104) (1d (ild) , ild=1, nld) 10 760 104 format ( 6x, ' HL' ,7x, ' ECCS' ,6x, ' SUMP' ,2x,3 (2x, ' L/D =' , f 4.1) ) IO 761 write (sum,105) IO 762 105 f ormat ( 6x, ' FT' ,7x, ' FLOW' , 6x, ' AREA' , 5x, ' OVERALL' ,4 x, ' OVERALL' , 4 IO 763 l' OVERALL' ) l
- _ - - - . . .. - . . _~ . , , -,
o F77L -' Lahey FORTRAN 77, Version ~4.01- 11/27/93 16:52:46
~ - SUBROUTINE SUMM Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NK/LU' Source file Listing
- 10. 764 write (sum,10 6) 10 765 10 6 format (15x, ' GPM' ,7x, ' SOFT' )
IO 766 10 767 c - IO 768 do 111 ihl=1,nhl 10 769 do 112 ifr=1,nfr . IO 770 do 113 isa=1,nsa . IO 771 write (sum,114 ) ahls (ihl) , pfrs (if r) , psas (isa) , _ ; 10 772 1 (overal (ild,1f r , ihl, isa) , ild=1, nld) IO 773 114 format (4x, f 6.2,2x, f 9.1,2x, f 7.1,3 (2x,1pe9.1) ) 10 774 113 continue , 10 775 112 continue
=>
10 776 111 continue IO 777 c i IO- 778 write (sum,115) IO 779 115 f ormat (/,30x, ' NOMENCLATURE' ) IO 780 write (sum,116) . IO 781 116 format (4x, ' HL' ,9x, ' ALLOWABLE HEAD LOSS' ) , 10 782 write (sum,117) 4 IO 783 117 format (4x, ' ECCS FLOW' ,2x, ' ECCS RECIRCULATION FLOW RATE' ) . 10 784 write (sum,118) . IO 785 118 format (4x, ' SUMP. AREA' ,2x, ' ECCS SUMP SCREEN AREA' ) , IO 786 write (sum,119) 10 787 119 format (4x,' L/D' ,8x, ' RATIO OF TARGET DISTANCE TO BREAK DIAMETER l IO- 788 c !
-IO 789 c 10 790 c write problem identification :;
IO 791 write (sum,121) versn, probid IO .792 121 format (1hl,3x, a12, ' ',a40) +
-IO 793 write (sum,122) _
IO 794 122 format (19x,'
SUMMARY
TABLE BY LOCATION CLASS') l IO 795 write (sum,123) IO 796 123 format (33x,' SCREEN BLOCKAGE FREQUENCY') 10 797 write (sum,124) (ld (ild) , ild=1, nld) _ 10 798 12 4 f ormat ( 6x, ' HL' ,7x, ' ECCS' , 6x, ' SUMP' ,2x,3 (2x, ' L/D =' , f 4.1) ) write (sum,125) Iclabl (1) ,1clabl (1) ,1clabl (1) -i
-10 799 10 800 125 format (6x, ' FT' ,7x, ' FLOW' , 6x, ' AREA' ,3 ( 6x, a5) ) ,
10 801 write (sum,126) IO 802 12 6 f ormat (15x, ' GPM' ,7x, ' SOFT' ) , 10 803 IO 804 c , IO 805 do 131 ihl=1,nhl -l 10 806 do 132 ifr=1,nfr , 10 807 do 133 isa=1,nsa ., IO 808 write (sum,134 ) ahls (ihl) , pfrs (ifr) ,psas (isa) , l 10 809 1 (loccls (ild,1f r, ihl, isa) , ild=1, nld) ; 10 810 134 format (4x, f 6. 2,2x, f 9.1,2x, f 7.1,3 (2x,1pe9.1) ) 10 811 133 continue 10 812 132 continue , IO 813 '131 continue ' IO 814 c IO 815 write (sum,135) , i
, , . -. . - - _ -_~ - . . . . .- -
-t F77L - Lahey FORTRAN 77, version.4.01 11/27/93 l'6:52:46
- SUBROUTINE SUMM Compiling Options:/N0/N2/N3/N7/NA/A1/B/NC/ND/NE/NF/H/I/NK/L! ' Source file Listing . 816 135 format ( / , 30x, ' NOMENCLATURE' ) ! 10 ' IO 817 write (sum,136) IO 818 13 6 f ormat (4x, ' HL' ,9x, ' ALLOWABLE HEAD LOSS' ) , 10 819 write (sum,137) , IO 820 137 format (4x, ' ECCS FLOW' ,2x, ' ECCS RECIRCULATION FLOW RATE' ) , IO 821 write (sum,138) 10 822 138 format (4x, ' SUMP AREA' ,2x, ' ECCS SUMP SCREEN AREA' ) IO 823 write (sun,14 0) 10 824 140 format (4x, ' L/D' ,8x, ' RATIO 0F TARGET DISTANCE TO BREAK DIAMETEB i " 10 825 write (sum,139) Iclab1 (1) , 1cdesc (1) . 10 826 139 format (4 x, '
SUMMARY
LOCATION CLASS IS:' , /,4x, a5,6x, a50) IO 827 c close files: IO 828 close (err) IO 829 close (sout) IO 830 close (bout) 10 831 close (sum) < IO 832 return IO 833 end , t 9 9 1
-h v
+
?
I
1 APPENDIX B.4 MODIFICATION TO BLOCKAGE 1.0 SOFTWARE REQUIREMENTS . SPECIFICATION i b a b D
i f t B.4 Proposed Software Modification Software Product to be Modified: BLOCKAGE 1.0 Specification: BLOCKAGE 1.0 Software Requirements Specification, SEASF-IR-93435 l Modification Proposal No. for This Specification: 1 , i Discussion of Modification: This modification provides for calculations for a representative BWR. 3 There are four changes. One change permits the user to specify break frequencies per weld as a function of plant system. BLOCKAGE now accepts break frequencies per plant as a function of diameter class and allocates those - break frequencies to the individual welds. The modification will therefore eliminate the need to include secondary system welds in the input; these were previously needed in order to allocate the break : frequencies per weld among both primary and secondary systems. : A second change provides for input of a destruction fraction for each value of L/D. This factor is applied to the fibrous insulation generated between that value of L/D and the next lower value (or zero) and represents the fraction of fibrous insulation that is pulverized into individual fibers or sinall j t bundles. ,
'Ihe next change provides for input of a transport fractior for each permissible weld location. The transport fraction represents, for fibrous debris generated at that location, the fraction that reaches the.
suppression pool. The final change makes the parameters for the head loss formula into variables determined by l user input. > Content of Modification to Specification
'i PARAGRAPli 7 OF SECTION 1.1 IS CilANCED TO; i
This Software Requirements Specification (SRS) is intended to describe the functionality and _
"I attributes of the first product as modified to accommodate BWRs, as well as its externalinterfaces with '
other syr.tems and any design constraints such as language and hardware platform. Project and design information appear elsewhere, in the Project Plan and the Software Requirements Document (SDD), respectively. a
SECTION 1.2 IS Q1ANGED TO: 12 Scope This SRS specifies BLOCKAGE 2.0, the PC-based software that reproduces the functions of PRA and TABLE that were important to the resolution of USI A-43, while accommodating input for a representative BWR. IN SECTION 1.5, " BLOCKAGE 1.0" IS CHANGED TO " BLOCKAGE 2.0" IN ONE PLACE. IN SECTION 2.1, " BLOCKAGE 1.0" 15 CliANGED TO " BLOCKAGE 2.0" IN ONE PLACE. IN SEC110N 2.2, " BLOCKAGE 1.0" IS OIANGED TO " BLOCKAGE 2.0" IN ONE PLACE EAOIIN PARAGRAPHS 1,2, S
- J Aht 6.
PARAGRAPHS 3 AND 4 OF SECTION 2.2 ARE GIANGED TO: The user will provide a list of welds whose failure can initiate a LOCA. The software will use one of two methods to determine a break frequency for each weld. If the use chooses the first method, the input for computing break frequencies is a table of weld break frequencies by weld type and diameter class In the second method, the input for computing break frequencies is a table of plant pipe break frequency by diameter class, together with weighting factors by type of weld. If this method is chosen by the user, the list of welds must include all piping included in the plant break frequencies, including secondary systems. 'Ihe software will allocate the plant frequencies among the individual welds'such that - the plant pipe break frequency is the sum of the weld break frequencies, if the plant has appropriate-symmetry, the list of welds need include only the welds in one loop; each weld will represent all of the corresponding welds in other loops. IN SEcIlON 2.4, "ULOCKAGE 1.0" IS OIANCED TO " BLOCKAGE 2.0" IN PARAGRAIM 1, BUT NOT IN PARAGRArH 2. IN SECTION 3.1.1, " BLOCKAGE 1.0" IS OIANCED E " BLOCKAGE 2.0" IN PARAGRAril52 AND 3 AND IN WE ELE ~ OF TABLE 3.1.
i
.t PARAGRAP111 OF SEC' HON 3.1.2 IS REPLACED BY THE FOLLOWING TWO PARAGRAPHS:
'Ihe input to BLOCKAGE 2.0 shall include a break input indicator (by weld or by plant), three head loss parameters (C, a and b, each of which must be positive), and the following fifteen tables, 'each of which is specified below in further detail:
- tab!c of insulation destruction models, 4
- permissible weld diameters, i
- permissible weld types, ;
4
- table of permissible weld locations, ;
- table of systems, ,
- weld table,
' weld diameter class table,
- table of weld weighting factors,
' table of permissible insulation materials,
' target table, ;
' insulation destruction table, e
' flow rates, f
- allowable head losses, ;
- screen areas, and l
- table of location classes. l
^;
r Table of Insulation Destruction Models BLOCKAGE 2.0 shall accept input of exactly three entries for insulation destruction models, each entry.. consisting of the following fields: value for L/D (with up to one decimal place, valid if greater than 0.0 and less than 20.0) , destmetion fraction (with up to two decimal places, valid if not less than 0.0 and not greater than 1.0) 1 IN SEC110N 3.12, " BLOCKAGE 1.0"15 CHANCED 10 " BLOCKAGE 2.0" tN ONE PLACE EACH IN PARAGRAPHS 2 AND l l
- 3. :i
)
l SECTION 2.L2, PARAGRAPH 4, IS CHANGED'TO: 'I i j Table of Permissible Weld Locations i
?
BLOCKAGE 2.0 shall accept input of as many as twenty entries for permissilbe weld locations, each entry consisting of the following fields: permissible weld location (a string of any two characters, must be distinct from all other permissible weld locations) , transport fraction (with up to two deciami places, valid if not less tha ; and not greater than 1.0) IN SECTION 3.1.2, " BLOCKAGE 1.0" IS OiANGED TO " BLOCKAGE 2.0" IN ONE PLACE EAOi IN PARAGRAPHS 5 DIROUGH 15. l
)
+
IN SECTION 3.1.2, PARAGRAPHS 7, THE DlIRD BULLET ITEM IS CHANCED TO: a failure frequency (per reactor-yr, with up to three significant digits, valid if less than 1.0 , and not less than 0.0, omitted if break input is by weld) ' i IN SECDON 3.1.2, PARAGRAPH 8, THE THIRD BULLET ITEM IS OfANCED TO: . j
- weld factor (if break input is by weld, the weld break frequency per weld-yr, with up to three significant digits, valid if less than 1.0 and not less than 0.0; if break input is by plant, the frequency weighting factor, must be greater than 0.0) -
IN SECTION 3.13," BLOCKAGE 1.0"IS CHANCED 10" BLOCKAGE 2.0"IN ONE PLACE IN PARAGRAPH 2 AND IN TWO . PLACES IN PARAGRAPH 3. t PARAGRAPH 4 OF SECTION 3.13 IS DELETED. i i IN SEC110N 3.13, " BLOCKAGE 1.0" IS OIANCED TO " BLOCKAGE 2.0" IN ONE PLACE IN EAOi OF CALCULATIONS 1 111 ROUGH 6. IN SECT 10N 3.13, CHANGE STEP 1.1 TO: Step 1.1 For each weld, identify its diameter class, such that the weld diameter is no less than . thesmallest diameter for the class and less than the smallest diameter for the next class, ifthere is a next class. Identify the weld factor determined by the diameter class and f
.i weldtype. If break input is by weld, set the break frequency for the weld to the weld l
l l 1
-1 l
factor. If break input is by plant, set the weld weighting factor to the weld factor. IN SECnON 3.1.3, CHANGE THE FIRST SENTENCE OF STEP 1.2 TO-Step 1.2 If break input is by weld, perform the following four substeps for each weld diameter class: k' SECTION 3.1.3, CHANGE TifE EQUATION IN STEP M TO: VfTF[{ ( (OD+ 2 ST) -OD 3
] [, DFj lXLj -XLj.1))
where j is the index of the insulation destruction model, DF,is the destruction fraction for the ith value of L/D, Xb is taken to be 0.0, and TF is the transport fraction associated with the weld location.
' IN SEC!10N 313, CALCULATM 2, FmACE THREE OF EE CDETAN15 N WE ICRMLXA AS IUlOWS REI1 ACE "165T wnH f
"C", REPLAG "181" WITli"a", AND REPLAG "151" wTni 'b" AtSO DELE 1E THE SENTENG N PARENIHI5ES AT THE END OF CALCULATION 2, IN SECDON 3.2.1, PARAGRAPH 1, " BLOCKAGE 1.0" 15 OIANGED TO " BLOCKAGE 2.0" IN ONE PLAG.
IN SECHON 3.2.1, ADD DIE FOLLOWING SENTENCE TO T11E END OF PARAGRAPH 2: There shall be an additional column for the transport fraction associated with the weld location. IN SECTION 3.2.1, ADD THE FOLLOWING SENTENG TO T11E END OF PARAGRAPH 3: The associated destruction fraction shall be shown with each value of L/D. IN SECHON 3A.1, " BLOCKAGE 1.0" IS CHANCED TO " BLOCKAGE 2.0" IN ONE PLACE.
l
.t I
. SEA No. 93-554-06-A:1 T
Parametric Study of the Potential for BWR ECCS l Blockage Due to LOCA : Generated Debris 1 ( Volume 2, Part 2 I k Draft Report Prepared by: i Science and Engineering Associates, Inc. Prepared fon U.S. Nuclear Regulatory Commission Science & 5 Ys $ Inc.
~
r. SEA No. 93-554-06-A:1 Parametric Study of the : Potential for BWR ECCS . Blockage Due to LOCA Generated Debris Vo.ume 2, Part 2 - Draft Report Date: December 30,1993 ; Prepared by: G. Zigler, J. Brideau, D.V. Rao, N. Ruiz, C. Shaffer, R. Walsh , Science and Engineering Associates, Inc. SEA Plaza 6100 Uptown Blvd. NE Albuquerque, NM 87110 l Prepared for: U.S. Nuclear Regulatory Commission Office of Nuclear Regulatory Research Washington, DC 20555 NRC Contract No. NRC-04-91-071 I
x
+
1 ,
^
k.
.4 4 / lo g$:j$'"$$ IMAGE EVALUATION //jg/f <fb b
': ?
TEST TARGET (MT-3) ,f',fV 4(g s'N\ /7777 -
$'g$
.y ///,/ ' ei. g
%$ gy sq%q NTTY
,.o m ,. 32 32 ' !l12 2 u vn W.
t 4: J
%l2.0 l,l .
llil I.8 lillea+ 1.25 l 1.4 i.6 i__ em.z 4_____.-- - - - - -
- 150mm >
4_ . _ . . . _ . . . . _ _ _ _ . . - 6" > f qf s <?_p 4S
$ //h e,,yp y y ,)/ , ,v7
, e pff/j/4N Oy t 4;p&y Q
/ j ,
Y '\ s 1 l' .
* 'i
' i x^,& ___
1 s-i TEST TARGET (MT-3) i/ (g yf77,f%he'*4, . /f g 41 -9[ elfh t
'%(A 4<e '
w gs
* . ' '? q2.?
.; L :
~*
il! 2.0 S;ies: l,l L 1.8 lI,is= i 1.25 ! l.4 l 1.6
! ime 4_ . _ . . - _ _ _ _ _ _ _ . ._ _ . ._ _. . -- --
150mm > 4 __ _ _ - . _ _ _ . . _ _ . . - - - - - - 6" - - - - > y '4 'c Y
# ,,*s ch 3,j'yr 4 \
% ;{V >>p7 S,
yg4 y
- ! i 4 . . _ ..
\_
' 1 l
4'l . p '% t
%;d 14 NNNN\o <.,
t N 47 IMAGE EVAL.UATION g "
# #3
\/g// i* h TEST TARGET (MT-3)
( t fy/$f&[ 4(g
,p /Q , ,
+ <a
,.o ;-
". 3 2 uCDild p22 3
l,l b. t'4 (lll12 1 qk=.8 1.25 1.4 I.6
'll
\ .-
4- - 150mm > 4 --- 6" >
<$ ,,*g
$he r4>h7/ 'O s
, e.xm ;% e- .a p ,w a's o //s
/ ,//// n
'o q;7 f,gp , 4 0-/ ,
@z a *V Jgge .j i d I
- c. . _ . . . . .
9,$i$
+h&.*$SA v% 9 IMAGE EVALUATION 1'1- /
b0 4, O %1 W[< 4Mp,$k / / g6 e& q,(p
//// TEST TARGET (MT-3)
'N+Sh /q,kh(
i i i 1.0 !!O EM t m gn w E Ifa h32 = l 1.1 L i.8 am l 1.25 1. 4 l 1.6 l i _ . . ._ 4 -
-- 150mm > ;
i k 4 _ _ _ _ . - 6" > f i [ ap ## 4CpoN q3 #p <& , 4 ,;pi?/, fly /
/ .
(p ;a\ ///o//s .
.n,s,,;-
\ / (i.e<w- +xb 4 n#
4 Oy /
/ j ic g(86(&(S
?"R .< , ,. . l,: $
^
w .____._._._...___._____.___._.[M
-- _ 5 < ;2 - 4 - ' * #N' *' '
-erm1-
-. -c w a . . _ . .
.i n
l b APPENDIX B.5
- BLOCKAGE 2.0 VERIFICATION AND VALIDATION REPORT r
f
, i r
h b
1.0 INTRODUCTION
1.1 Purpose i Unresolved Safety Issue (USI) A-43, " Containment Emergency Sump Performance," dealt with concerns about the availability of adequate recirculation cooling water in a Pressurized Water Reactor (PWh) following a Loss-of-Coolant Accident (LOCA). One concern was the effects of LOCA-generated ' insulation debris that is transported to the sump debris screen, blocking the screen and reducing net f positive suction head (NPSH) margin below that required for the recirculation pumps to maintain long- l term cooling. , For the resolution of USI A-43 (Ref.1), the US Nuclear Regulatory Commission (NRC) Staff evaluated the loss of recirculation capability due to debris generation, focusing primarily on PWRs. The l blockage probabilities for PWRs were calculated on the basis of a detailed analysis (Ref. 2). Science and Engineering Associates, Inc. (SEA) is supporting the NRC Staff through Contract No. NRC-04-91-071, Task No. 6, " Technical Assistance for Estimating the Potential for Loss of Low Pressure ! Coolant Injection Capability in BWRs due to LOCA-generated Debris Blockage." Subtask 6.1.2 of Task 6 { requires SEA to develop MS-DOS software ihat reproduces the functions of the calculational programs documented in NUREG/CR-3394, Vol. 2 (Ref. 2). This was followed by modification of the software to , accommodate BWRs (Ref. 4). < BLOCKAGE 1.0 was the first product. Upon successful completion of BLOCKAGE 1.0 qualification testing, SEA modified the software to incorporate the results of Subtask 6.2.1: Transient Flow Blockage Analysis, in which SEA developed models and performed analyses which incorporate the potential effects of: , t
- transport of LOCA-generatea debris in a BWR following a LOCA, e debris deposition on suction strairm as a function of time, and
- estimated strainer pressure drop as a function of transported and deposited debris.
This report documents the results of the verification and validation of BLOCKAGE 2.0 and is intended to satisfy the deliverable requirement for documentation of verification and validation for [ BLOCKAGE 2.0. 1.2 Scope i BLOCKAGE 2.0 is required to reproduce the software functions that were important to the resolution of USI A-43 and accomodate BWRs.. The verification and validation provides a comparison 1 ; o I
'i e
r
+
i with the results produced by BLOCXAGE 1.0, as reported in Ref. 4. j t 1.3 Prior Verification and Testing 1 The BLOCKAGE 2.0 code has been verified and validated by coding review, by test calculations and by comparing its results to those of a previous calculation documented in NUREG/CR-3394 (Ref. 2). l The code was developed in two separate steps to facilitate the code verification. The first development-step resulted in BLOCKAGE 1.0 which was coded to reproduce the results of NUREG/CR-3394 (Ref. 2) and the direct comparison of these two results produced by different codes is a qualification test of the ] coding of BLOCKAGE 1.0. The second developmental step was to add models to BLOCKAGE 1.0 l allowing the user to specify break frequencies per weld type and diameter class, to specify an insulation destruction fraction for each insulation destruction model, to specify a' transport fraction for each j permissible weld location, and to specify the constant parameters in head loss formula. The code with f , these modifications then became BLOCKAGE 2.0 (Ref. 3). . The verification of the BLOCKAGE code was mainly accomplished through a number of software [ quality assurance activities based on guidance in References 5 and 6, and outlined in Appendix L The BLOCKAGE 2.0 code was tested with the 12 weld BLOCKAGE 1.0 test calculation modified .j to iMude the insulation destruction and destruction fractions. This test calculation was sufficiently diverse to exercise the logic of the code modifications and to verify that the remaining BLOCKAGE 1.0 logic was still valid. The calculation of the volumes of destroyed target material transported to the screen was verified. The volume calculation was tested and verified using non-equal destruction and transport - fractions and was also tested using the bounding fractions of zero and one. The weld break frequency calculation was tested and verified for both types of input (i.e., by plant or by weld). The screen blockage i calculation was tested and verified. The weld and target classifications (i.e., by diameter, system and I types), the summatiors of break and sequence frequencies, the computation of screen unavailabilities, and l r totals were all tested and verified. No differences were found between the hand and code generated j results other than those resulting from numerical roundoff. The above test is documented in Appendix 11. l 1 1.4 Definitions, Acronyms, and Abbreviations i i BWR Boiling Water Reactor e L/D Distance separating the target intercepted by the blowdown jet from the break l t exit plane (L), divided by Gr eai ;ismeter (D). l IDCA Loss of Coolant Accident e a NPSH Net Positive Suction Head 2
)
I 1
=.
l
;i PWR Pressurized Water Reartor i
SDD Software Design Document SRS Software Requirements Specification l SQA Software Quality , Assurance USI Unresolved Safety Issue i 4 f
~$
i k I I I r
't f
i I r i I i 9 I e h I i e
-5 3 ;
i
)
w .- -- -- w
..s.2_ # r = m-. ..-+ a 6 - -,A 4 L,.3 l
.'t 1.5 References I
[1] A.W. Serkiz, "USI A-43 Regulatory Analysis," US Nuclear Regulatory Commission, NUREG-0669, Rev.1, October 1985. t [2] J.J. Wysocki,"Probabilistic Assessment of Recirculation Sump Blockage Due to Loss of Coolant Accidents, Containment Emergency Sump Ferformance USI A-43," Vols. I and 2, Burns & Roe, Inc., published as Sandia National Laboratories Report No. SAND 83-7116, NUREG/CR-3394, July l 1983. l [3]
- BLOCKAGE 1.0 Mod. Proposal 1: Proposed Changes to BLOCKAGE 1.0 Software Requirements f Specification," SEASF 'S 93-035, Modifications for BLOCKAGE 2.0, November 1993. ;
[4] Science and Engineering Associates, Inc., " BLOCKAGE 1.0 Qualification Test Report," Internal Report SEA-93-554-06-A:3, December 1993.
.i
)
[5] U.S. Nuclear Regulatory Commission, Software Quality Assurance Program and Guidelines," i NUREG/BR-0167, February 1993. : I [6] The Institute of Electrical and Electronics Engineers,Inc., "IEEE Guide to Software Requirements l Specifications," Software Engineering Standards, ANSI /IEEE Std 830-1984, October 1987. i l Science and Engineering Associates,Inc.,
- BLOCKAGE 1.0 Software Requirement Specification," j
[7] Internal Report SEASF-IR-934)35, October 1993. I I s i f i 4
-) '
2.0 TEST PROCEDURE j This section discusses tae validation test procedure for BLOCKAGE LO, including the hardware l t and software configuration, test procedure, features to be tested, and the pass / fail criteria. t 2.1 Hardware and Software Configuration 7 BLOCKAGE 2.0 was executed on a Gateway 2000 486DX2/50 running DOS 5.0. The computer
.is located at the SEA Albuquerque Office. The current version of BLOCKAGE 2.0 using weld input data ,
from Ref. 2 was the test rottware. A listing of the program used for the test is included in Appendix IV, } i j 2.2 Procedure . The test team was given a diskette with an executable test file. The test procedure was performed { by Jane Brideau of SEA,Inc. and witnessed by D.V. Rao, also of SEA,Inc. The following procedure was performed: ;
.)
i
- 1. Insert the diskette in Drive A: and type a:qtest2
- 2. QTEST2 will create a QTEST2 directory on drive c: and copy the executable and input I files to it, then execute the BLOCKAGE 2.0 program. This will test the PLANT mode for .j specifying break frequencies.
- 3. Using a full screen editor, compare the first and last pages of each of the files:
WELD.OUT TARGET.OUT - , SEQFREQ.OUT BLOCKAGE.OUT l
SUMMARY
.OUT BLOCKAGE. ERR with the output files from the BLOCKAGE 1.0 Qualification Test. 1
- 4. After comparing the output files, copy PARAMETR.B2W to PARAMETR.INP and copy . ,
WELD.B2W to WELD.INP.
- 5. Rerun the program. This will test the WELD method for specifying weld break frequencies. To rerun the program, type BLOCKAGE and press Enter. Compare the files l as before in Step 3.
I t [ k
. . . . .. . . - - - . . .-. ,- .-. . ~ . . .
.I f
s f i 2.3 Features to Be Tested r The validation test tested the ability of the BLOCKAGE 2.0 software to produce the Major Reports ~ listed in Table 3.1 of the BLOCKAGE 1.0 SRS (Ref. 7). These include the following:
. Table of Welds l
= Table of Targets l
= Sequence Frequency Reports
= Probability Reports a Summary Report.
<j The qualification test did not test the software against the following requirements: ,
= Input values other than those used in the resolution of USI A-43 ;
i
= Modifiability requirements ,
- Hardware limitations.
i 2.4 Item Pass / Fail Criteria r All values reported on the first and last pages of the BLOCKAGE 1.0 output files from the~ . BLOCKAGE 1.0 Qualification Test were compared with the corresponding values generated by BLOCKAGE 2.0 for each run of BLOCKAGE 2.0. According to the test plan, the software will pass the ; i validation test if every comparison either agrees to within one in the second significant digit. i t t
'b n
6 i 1 l
. . , . - ~_- . -.. . . - .. . .
_ j r 1 3.0 TEST RESULTS f The results of the BLOCKAGE 2.0 qualification test are presented in this section. The test input, j reference' data used for comparison, and resolution of differences with the references are discussed, and i summary results are presented.' 3.1 Input 3 i The input for the qualification test was taken from Reference 2 weld input data used for the ; BLOCKAGE 1.0 Qualification Test Reference 4. In the reference, the data was separated by L/D = 3,5, j . j and 7; BLOCKAGE 2.0 read all the data in one data file. The data had to be retyped and was -j independently checked for accuracy by D.V. Rao. BLOCKAGE 2.0 also performs a validation of the input . , f data. j 3.2 Reference Data Used for Validation [ The BLOCKAGE 1.0 Qualification Test Pian specified that all values reported in Ref. I would be l checked and at least ten percent of the values reported in Ref. 2 would be checked. In Ref.1, the following tables were used for comparison. Copies of the reference data and correspos mg BLOCKAGE , 1.0 output are included in Reference 4. BLOCKAGE 2.0 must also reproduce the results obtained'by f BLOCKAGE 1.0. Results from BLOCKAGE 2.0 were compared directly with those from BLOCKAGE 1.0. ; 3.3 Resolution of Differences Some minor discrepancies were noted between the reference data and the BLOCKAGE 1.0 output data, but all have been resolved to the satisfaction of the qualification test team and the project manager. ; The same discrepancies apply to BLOCKAGE 2.0 and the data in Reference 2. The first difference is a } matter of nomenclature. The PRA program uses the terms Blockage Frequency and Blockage Probability ; J t to describe the respective BLOCKAGE 1.0 data Screen Unavailabilities and Sequence Frequencies. The file WELD.OUT which corresponds to the Weld Summary Table in Ref. 2 lists different ..
?
numbers of targets for eight welds. This is because the Weld Summary Table lists the welds separately
+
for L/D = 3,5, and 7. In those cases, the L/D = 7 did not include all the targets for the other two cases. BLOCKAGE 1.0 includes the number of targets for all values of L/D.- [ i Another difference in BLOCKAGE 1.0 is that the two pipe diameters near 32 in are considered - -i 4 separate diameter classes, whereas in Ref. 2 they are lumped together. The BLOCKAGE 1.0 output will show two rows labeled 32 which will correspond in an appropriate combination with the value for 32 in Ref. 2. For example, the sum of frequencies for the two 32 in, diameter classes in SEQFREQ.OUT will be . the same as the frequency shown for 32 in. in the corresponding table in Appendix C in Ref. 2. The final discrepancy to report involved a mismatch of location categories in the SEQFREQ.OUT l 7 l 4 a c-9-* yr wa-' 7 - - - 4 * -~i *- m * -7 * * "
. _ . . ~ . _ . . . . - - _ __ _ . . . . . . _ . . _ . _ . . . _ . _ . ~ _ _ _
i file. All the numbers agreed except the values under the PI-Inside Crane Wall (Ref. 2) category appeared l under "Out" in SEQFREQ.OUT and the values under PO-Outside Crane Wall (Ref. 2) appeared under "In" in SEQFREQ.OUT. This problem ale only appeared in the system-basis tables; the diameter-basis values j matched. As described in Ref. 4, the teu team determined the problem was in the PRA code and not in P BLOCKAGE 1.0.~ . t The above discrepancies apply to BLOCKAGE 2.0 and the data in Ref. 2 and 4 only. No { discrepancies were found between the BLOCKAGE 2.0 and BLOCKAGE 1.0 results. l
- i, 3.4 Summary of Results All of the values checked met the pass criteria defined in Section 2.4. In addition, the file ' i BLOCKAGE. ERR was also checked to verify that no errors occurred during program execution. ,
Representative outputs from BLOCKAGE 2.0 and the corresponding BLOCKAGE 1.0 output file are included in Appendix III. , 3 i
'i
+
i s k a
'k I
* ~ ~ -~ ~ - , ,i.-, , . - _ , l
7__. i
'4 0 CONCLUSIONS The software passed the validation test. All values from the two BLOCKAGE 2.0 runs compared favorably with the same output from BLOCKAGE 1.0. BLOCKAGE 2.0 accurately reproduces the software functions that were important to the resolution of USI A-43. Preliminary testing'with hand calculations indicates that BLOCKAGE 2.0 will accurately incorporate the added features to analyze BWRs.
9
4 .g
.i h
h i t i
-i 8
f 4 i APPENDIX I - SCHEDULE OF SOFTWARE QUALITY ASSURANCE ACTIVITIES' : l { 6 0 4 i
i i Appendix I . BLOCKAGE 1.0 and BLOCKAGE 2.0 Quality Assurance Date QA Activity i BLOCKAGE 1.0 Software Requirements Review ; 19 October 1993 2 November 1993 Inspection of Draft BLOCKAGE 1.0 Software Design Document 15 November 1993 Inspection of Draft BLOCKAGE 1.0 Software Design Document 17 November 1993 BLOCKAGE 1.0 Design Review 17 November 1993 BLOCKAGE 2.0 Software Requirements Review ; 27 November 1993 Inspection of BLOCKAGE 1.0 code 27 November 1993 Inspection of BLOCKAGE 2.0 Software Design 27 November 1993 BLOCKAGE 1.0 Test Readiness Review , 29 November 1993 BLOCKAGE 1.0 Qualification Test f 10 December 1993 BLOCKAGE 2.0 Validation Test i R r l. t
I 1 1 I t APPENDIX II - 1 BLOCKAGE 2.0 TEST CALCULATION e i t i e 5 t 4 i O E f I
l BLOCKAGE 2.0 Test Calculation i.? Obiective The purpose of this test was to further validate BLOCKAGE 2.0 by direct comparison of computer and hand generated results. : Description The calculation consisted of 12 welds selected to exercise the majority of the code logic. The code calculated weld break frequencies, debris volumes, and the blockage array were printed out for verification. Hand calculated results were compared with the corresponding code results for the , weld and target classifications (i.e., weld diameter, weld type, and insulation type) the target volume calculations, the blockage calculation, weld break frequencies, sequence frequencies, and i unavailabilities. Totals were also compared. Results No differences were found between the hand and code results other than those resulting from numerical roundoff. A pair of coding errors was discovered during a review of the BLOCKAGE 2.0 coding, prior to executing the lest calculation. The index of the transport variable, tfract, in subroutine winput was incorrect in two locations. This error would have calculated incorrect insulation volumesfor calculations in which the transportfractions were not all equal.
?
?
t l l l
t
'l insulation destruction model L/Ds
- 5. 7.
- 3. -l
.9 .7 .5 _ destruction fractions number of flow rates, 1-3 1 !
10000. ' flow rates (gpm), >0.0, <100000.0 3 number of head losses, 1-3 ~ 3.9 4.0 19.9999 allowable head losses, >0.0, <20.0 ! 1.84 1.54 1653. headloss parameters A, B,'C 1 number of screen areas, 1-4 5
- 80. screen areas (sq.ft) >0.0, <1000.0 ,
3 . number of permissible weld types, 1-10.
'N' 'A'
'E' permissible weld types, any 2 characters .
.4 number of permissible weld locations,1-20 i
'IP' 'IS' 'OP' 'OS' permissible weld locations,- any 2 chars, r
.9 .7 .5 .3 transport fractions 9 number of systems, 1-10
' Hot Leg' 1st system descriptor, up to 26 char. [
' Cold Leg' 2nd system descriptor, up to 26 char. ;
' Crossover' 3rd system descriptor, up to 26 char.
' Safety Inj. (cold leg)' 4th system descriptor .
' Safety Inj. (hot leg)' 5th system descriptor, up to 26 char.
' Chem./Vol Control System' 6th system descriptor ,
'Feedwater' 7th system descriptor, up to 26 char. ';
' Main Steam' 8th system descriptor, up to 26 char. '
' Pressurizer' 9th system descriptor, up to 26 char. !
13 no. of weld diameters 6.0 8.0 diameters 1 - 5 2.0 3.0 4.0 l 10.0 14.0 16.0 30.0 32.0 diameters 6 - 10 diameters 11-15, end with / ; 32.3 34.0 36.3 /
.P method for calculating break frequencies 4 no.of pipe diameter classes, 1-4;.for each:
2.0 8.0 12.0 18.0 smallest diam.in class (0.00-99.99 in.) ! 3.E-4 4.E-5 3.E-5 6.E-6 failure frequency /Rx-Yr, 0.-l. ..
'2-6' '8-10' '12-16' '18-+' diameter class label I 0.7 0.5 0.5 0.5 weld wgtg factors, weld type N-0.15 -0.3 0.3 0.3 weld wgtg factors, weld type A l weld wgtg factors, weld type E )
0.15 0.2 0.2 0.2 no.of location classes, 1-5, and: - i. 5
'Out' summary loc. class label, l'
'OP' 'OS' 1st & 2nd selection criteria (weld type),
'Outside crane wall' 50-char.sunnary loc. class descriptor; 3
'In' 2nd location class label, !
'IP' IS' its 1st & 2nd sel. criteria (weld type),
'Inside crane wall' its 50-char. loc. class descriptor; 3rd location class label, i
' Prim' .
its 1st & 2nd sel. criteria (weld type) .i
'IP' 'OP'
' Primary systems' its 50-char. loc. class descriptor; ;
j
'Sec' 4th location class label,
'IS' 'OS' its 1st & 2nd sel criteria (weld type), ;
' Secondary systems' its 50-char. loc. class descriptor; 5th location class label, l
'IP'
'IP' '
- its 1st & 2nd sel.. criteria (weld type) i'
' Primary systems in crane wall' its loc. class descriptor; 4 no.of perm, insulation materials, 1-10; and:
'RM' 'FE' 'SE' 'AS' insul. type identifiers, any 2 chars. i
'N' 'F' 'F' 'N' fibrous insulation flags, F or N
'F' N' fibrous insulation flags, F or N i
b 1
-i
)
i l l 1 I
?
Simple Test- -i 7.
- 3. 5.
'X1' 1- 34.0 N OP 2 1 34.00 ' ll ' ' FE 3.
2 .34.00 'll' RM 1 2. 2. 2.
'x2' 2 4.0 A OS 4 1 4.0 'll' FE 1. 5. -10. 15. t 2 4.0 'll' AS 2. 5. 10. 15. '
3 4.0 '11' FE 3 5. 10. 15. 4 4.0 'll' AS 4. 5. 10. 15. !
'x3' 2 6.0 N CS 2 1 6.0 '11' SE 6. '100. ' 110. 115.
2 6.0 ' ll' AS 6. 5. 10. 15. ,
'x4' 2 6.0 N OS - 2 1 6.0 'll' AS 6. 100.' 110. 115. >
2 6.0 'll' .AS 6, 5. 10. 15. -> t
*X5' 3 10.0 N IP 2 1 10.00' '11' FE 3. 3. 8.23 10.
2 10.00 '11' FE 4. 3 .= 6. . 9.
'X6' '4 10.0 N -IP 2 1 10.00 'll' . FE 3. 3. 8.23 10.
2 2 10.00 'll' AS 4. 3. 6. 9.
'X7' 5 14.0 N OP 2 1 14.00 'll' FE 3. 3. :8. 10.
2 14.00 '11' SE 4. 3. 6. 9. [
'X8' 5 14.0 A IP 2 1 14.00 '11' FE 3. 3. 8 .- 10.
2 14.00 'll' SE 4. 3 '. 6. 9.
'X9' 5 14.0 E IS 2 1 14.00 '11' FE 3. 3. 8. 10. ,
2 14.00 'll' SE 4. 3. 6. 9. '
'Y1' 6 16.0 N IS 1 1 .16.00 '11' FE 3. 3. 8. 10. 'Y2' 6 30.0. N IS 1 1 30.00 '11' FE 3. 3. 8. 10. 'Y3' 6 36.3 A IS 1 1 36.30 'll' FE 3. 3. 8. 10. ,
l i
.I l
f 7
\
i r p i
)
3-.._._
+
. ...__..___. .. . -. ._ . _ _ . . . . _ _ . - _ .. . . _ , _ _ = . _
,-, s ! i V i
. BLOCKAGE ~2.0 - WELD
SUMMARY
TABLE ' WELD WELD SYSTEM PIPE WELD LOC. TRANS. NO . 0F . l
~
-NO. , ID ID DIAM. TYPE CODE FRACT. TARGETS 1 X1' 1 34.00 N OP 0.50 2' !
0.30 -i
-2 x2- 2 4.00 A OS 4
-1 3 x3- 2 6.00 'N OS 0.30 2 l
4 x4 2 6.00 N OS 0.30 2 i p 5 X5 3 10.00 N IP 0.90 2 ' 6 X6 4 10.00 N IP 0.90 2 7 X7 5 14.00 N . OP 0.50 2 8 X8 5 14.00 .A IP 0.90 2 ! 9 X9 5 14.00 E IS 0.70 2 ? 1 10 Y1 6 16.00 N IS 0.70 1 0.70 1 'I 11 Y2 6 30.00 N IS 12 Y3 6 36.30 A IS 0.70 1 .l 1 s l I i
-! i l
I k i I i
; 'I 2 4
~
i 5 i j n i . i 'l t i 4 .
, i l
..j 4, . i l
-1 i
. f f' i 6 i s 9 p 1 >
~
- l. :
' - - ' ' ~ '
, , .- . . ~ . . . -
f i BLOCKAGE 2.0 - TARGET
SUMMARY
TABLE ' INCREMENTAL DESTRUCTION FRACTIONS: 0.90 0.70' O.50 L/D=3.0 L/D=5.0 L/D=7.0 ; WELD TARG TARG INSUL INSUL REF. TARGET TARGET TARGET
-ID NO DIAM TYPE THICK LENGTH &VOL LENGTH &VOL. LENGTH &VOL e X1' 1 34.00.FE 3.00 11 3.00 7.3 5.00 12.1 7.00 17.0 ,
b X1 .2 34.00 RM 1.00 11 2.00 1.5 2.00 1.5 2.00 1.5 i x2 1 4.00 FE 1.00 11 5.00 0.5 10.00 1.1 15.00 1.6 x2 2 4.00 AS 2.00 11 5.00 1.3 10.00 2.6 15.00. 3.9 r x2 3 4.00 FE 3.00 11 5.00 2.3 10.00 4.6. 15.00 6.9 i x2 4 4.00 AS 4.00 11 5.00 3.5 10.00 7.0 15.00 10.5 i x3 1 ~6.00 SE 6.00 11 100.00 157.1 110.00 172.8 115.00 180.6 l' x3 2 6.00 AS 6.00 11 5.00 7.9 10.00 15.7 15.00 23.6 x4 1 6.00 AS 6.00 11 100.00 157.1 110.00 172.8 115.00 180.6 i 7.9 10.00 15.7 15.00 23.6 ; x4 2 6.00 AS 6.00 11 5.00 X5 1 10.00 FE 3.00 11 3.00 2.6 8.23 7.0 10.00 8.5 ,
.X5 2 10.00 FE 4.00 11 3.00 37 6.00 7.3 .9.00 11.0 X6 1 10.00 FE 3.00 11 3.00 2.6 8.23 7.0 10.00_ 8.5 ;
X6 2 10.00 AS 4.00 11 3.00 3.7 6.00 '7.3 9.00 11.0 X7 1 14.00 FE 3.00 11 3.00 3.3 8.00 8.9 10.00 11.1 :l X7 2 14.00 SE 4.00 11 3.00 4.7 6.00 9.4 9.00 14.1 X8 1 14.00 FE 3.00 11 3.00 3.3 8.00 -8.9 10.00 11.1 : X8 2 14.00 SE 4.00 11 3.00 4.7 6.00 9.4 9.00 14.1 l X9 1 14.00 FE 3.00 11 3.00 3.3 8.00 8.9 10.00 11.1
- X9 2 14.00 SE 4.00 11 3.00 4.7 6.00 9.4 9.00 14.1 Y1 1 16.00 FE 3.00 11 3.00 3.7 8.00 9.9 10.00 12.4 Y2 1 30.00 FE 3.00 11 3.00 6.5 8.00 17.3 10.00 21.6 !
Y3 1 36.30 FE 3.00 11 3.00 7.7 8.00 20.6 10.00 25.7 l a r i
\
i L
'}
I l i l
iD k %, D. subroutine; report generates and prints' code reports i c -:. p fc - calculations 3 through 6 of the software requirements c . specifications.are performed UC . iinclude 'datastor.for'
' C' czzzzzzzzz debug print zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz
, C
'do 991 iwlds=1,nwlds write (err,992) iwlds, wbrf rq (iwlds ) , ( f brvol (iwlds , ild) , ild=1, nld)
- dcid(iwlds),diamid(iwlds),wloc(iwlds) 992 format (1x,' weld = ' 12,4(1x,1pe10.2),2(2x,i2),2x,a2) 991" continue
~C.
.do 994 ihl=1,nh1 do 995 iwlds=1,nwids i
write (err,993)ihl,iwlds,(blockd(iwlds,ild,1,ihl,1),ild=1,nld)
' 993 format (1x, 'ihl= ' ,12,2x, 'iwlds= ' ,12,2x, ' block = ' ,3 (2x, a2) )
995 continue
~994 continue 7 czzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz do'1 isa=1,nsa do 2 ihl=1,nh1 do 3 ifr=1,nfr do 4 ild=1,nld call calc 3 (isa,ihl,1fr,ild) call calc 4 (isa,ihl.ifr,ild) 4 continue
. call calc 5(isa.ihl,ifr) call calc 6 (isa,ihl,1fr) call' error (isa,ihl,1fr) 3 -continue 2 continue 1 continue call summ return end i
t 1
^;
l i
'li c: c
s i
.1 7
< s BLOCKAGE 2.0 - ERROR FILE Simple Test i weld = 1 2.31E-06 3.27E+00 4.96E+00 6.18E+00 4' 12 OP weld = 2 ~2.90E-05 7.66E-01 1.36E+00 1.79E+00 l' 3 ~05 weld = 3 1.35E-04 4.24E+01 4.57E+01 4.69E+01 1 4 OS weld = 4 1.35E-04 0.00E+00 0.00E+00 0.00E+00 1 '4 OS weld = 5 2.00E-05 5.04E+00 1.01E+01 1.25E+01 2 6 IP weld = 6 2.00E-05 2.07E+00 4.87E+00 5.55E+00 2 6 IP t weld = 7 1.00E-05 3.62E+00 7.22E+00 8.95E+00 3 7 OP ! weld = 8 6.00E-06 6.513+00 1.30E+01 1.61E+01 3 7 IP 7 IS j weld = 9 4.00E-06 5.07E+00 1.01E+01 1.25E+01 3 weld = 10 1.00E-05 2.35E+00 5.40E+00 6.27E+00 3 8 IS weld = 11 2.31E-06 4.08E+00 9.37E+00 1.09E+01 4 9 IS
/
weld = 12 1.38E-06 4.86E+00 1.12E+01 1.30E+01 4 13 IS ihl= 1 iwlds= 1 block = N N N ihl= 1 iwlds= 2 block = N N N ihl= 1 iwlds= 3 block = Y Y Y , ihl= 1 iwlds= 4 block = N N N ,
?
ihl= 1 iwlds= 5 block =' N Y Y
- ihl= 1 iwlds= 6 block = N N N !
ihl= 1 iwlds= 7 block = N N Y ihl= 1 iwlds= 8 block = N Y Y ihl= 1 iwlds= 9 block = N Y Y
-{
ihl= 1 iwlds= 10 block = N N N
.{
ihl= 1 iwlds= 11 block = N Y Y ihl= 1 iwlds= 12 block = N N-Y N Y N l ihl= 2 iwlds= 1 block = ihl= 2 iwlds== 2 block = N N N . ihl= 2 iwlds= 3 block = Y Y Y . ihl= 2 iwlds= 4 block = N N N N Y Y ! ihl= 2 iwlds= 5 block = ; ihl= 2 iwlds= 6 block = N N N , t ihl= 2 iwlds= 7 block =' N N Y I ihl= 2 iwlds= 8 block = N Y Y ihl= 2 iwlds= 9 block = N Y Y f i ihl= 2 iwlds= 10 block = N N N ihl= 2 iwlds= 11 block = N N Y Y Y Y
] ;
ihl= 2 iwlds= 12 block = ihl= 3 iwlds= 1 block = N N N e ihl= 3 iwlds= 2 block = N N N .l
.Y Y Y -l ihl= 3 iwlds= 3 block =
ihl= 3 iwlds= 4 block = N N N N N N .i ihl= 3 iwlds= 5 block = ihl= 3 iwlds= 6 block = N N N ihl= 3 iwlds= 7 block = N N N ihl= 3 iwlds= 8 block = N N N 'l ihl= 3 iwlds= 9 block = N N .N i ihl= '3 iwlds= 10 block = N N N
'i ihl= 3 iwlds= 11 block = N N N ihl= 3 iwlds= 12 block = N N N
.I
.[
l i i
'j i
. . . . . . - . .~.
. . ~ _ - .. - .- . ,
1
.)
BLOCKAGE 2.0 - Simple Test 3 SEQUENCE FREQUENCY BY DIAMETER - SCREEN AREA = 80.0 SQ.FT. FLOW RATE = 10000.0 GPM, HEAD LOSS = 3.90 FT.H20, L/D = .3. 0 ; DIAM OVERALL Out In Prim Sec IP .! 2.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 3.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 ' 4.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 6.0 1.4E-04 1.4E-04 0.0E+00 0.0E+00 1.4E-04 0.0E+00 t 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 j 8.0 0.0E+00 10.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 i 14.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 ! 16.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0 0E+00 30.0- 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 i 32.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 ! 32.3 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 ! 34.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 l 36.3 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00
)
TOTAL 1.4E-04 1.4E-04 0.0E+00 0.0E+00 1.4E-04 0.0E+00 - NOMENCLATURE DIAM DIAMETER OF INITIATING EVENT - INCHES OVERALL OVERALL SEQUENCE FREQUENCY -l Out Outside crane wall f In Inside crane wall , Prim Primary systems Sec Secondary systems IP Primary systems in crane wall t i h v I
}
?
-f t
' l, F
h i i I
~l I
s
)
d r l BLOCKAGE 2.0 - Simple Test ; SEQUENCE FREQUENCY BY SYSTEM - SCREEN AREA =- 80.0 SQ.FT. ! FLOW RATE = 10000.0 GPM, HEAD LOSS = 3.90 FT.H20, L/D = 3.0 I
'SYS DCLS OVERALL Dut In ' Prim Sec- IP- l 1 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 . 0.0E+00~
- 1 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00- 0.0E+00
~
1 12-16' O.0E+00. 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 i 1 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00. 0.0E+00 0.0E+00
- 2 2-6 1.4E-04 1.4E-04 0.0E+00 0.0E+00 1.4E-04 0.0E+00 ;
j' 2 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 :0.0E+00 '0.0E+00 " 2 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 'O.0E+00 2 18-+ 0.0E+00 0.0E+00 0.0E+00' O.0E+00 0.0E+00 0.0E+00 a 3 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 '0.0E+00 0.0E+00 [ 3 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00. 0.0E+00 0.0E+00 3 12-16 0.0E+00 0.0E+00 0.0E+00 0 0E+00--0.0E+00 0.0E+00 : 0.0E+00 0.0E+00 0.0E+00 0. 0E+00 ' 0. 0E+ 00 3 3 18-+ 0.0E+00 ' 4 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 4 8-10 0.0E+00 0.0E+00 .0.0E+00 0.0E+00 0.0E+00 0.0E+00 'i 4 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00. 0.0E+00 0.0E+00 4 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 i 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+03 .! 5 2-6 0.0E+00 5 8-10 0.0E+00 0.0E+00 0.0E+00 0 0E+00' O.0E+00 0.0E+00 , 5 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 't 5 18-~+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 l 6 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00- 1 t 6 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00~.0.0E+00 ' 6 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00. 0.0E+00 '!' 6 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 -0.0E+00 i 7 2-6 0.0E+00 0.0E+00 -0.0E+00 0.0E+00 0.0E+00 0.0E+00 7 8-10 0.0E+00 0.0E+00 0.0E+00 .0.0E+00 0.0E+00 0.0E+00 7 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00' + i 7 18-+ 0.0E+00 0.0E+00 0.0E+00 0 0E+00 0.0E+00 0.0E+00' 8 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 , 8 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 ? 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00'
+
8 12-16 0.0E+00 8 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 , 9 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 -0.0E+00 ; 9 8-10 0.0E+00 0.0E+00 0.0E+00 -0.0E+00 0.0E+00 0.0E+00- t i 9 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 , 9 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1 TOTAL 1.4E-04 1.4E-04 0.0E+00 0.0E+00 11.4E-04 0.0E+00 ;; I NOMENCLATURE SYST.ID INITIATING EVENT PIPING SYSTEM CLASS { INITIATING EVENT DIAMETER CLASS t DCLS. . 4 1 Hot Leg 6 Chem./Vol. Control System 2 Cold Leg 7 Feedwater 1 3 Crossover 8 Main Steam 'i! 4 Safety Inj. (cold leg) 9 Pressurizer. 5 Safety Inj. (hot leg) 10 ; I i r
'f
'i i
..f .
- S e
BLOCKAGE 2.0 - Simple Test SEQUENCE FREQUENCY BY DIAMETER - SCREEN AREA 80.0 SQ.FT. FLOW RATE =- 10000.0 GPM, HEAD LOSS = 3.90 =FT.H20,- L/D = 5.0
. DIAM OVERALL Out' 'In Prim Sec . IP-2.0 0.0E+00 0.0E+00 0.0E+00- 0.0E+00 0.0E+00 0.0E+00 3.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00- 0.0E+00 4.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00- 0.0E+00' ,
6.0 1.4E-04 1.4E-04 0.0E+00 0.0E+00 1.4E-04 0.0E+00 l 8.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00-10.0 2.0E-05 0.0E+00 2.0E-05 2.0E-05' 'O 0E+00 2-0E-05
. :)
14.0 1.0E-05 0 0E+00 1.0E-05 6.0E-06 4.0E-06 6 0E-06' 16.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 -0.0E+00 0.0E+00 ! 2.3E-06 0.0E+00 2.3E-06 0.0E+00 2.3E 0.0E+00 30.0 0.0E+00 0.0E+00 '! 32.0 0.0E+00 0 0E+00 'O.0E+00. 0.0E+00 i 32.3 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 34.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00- 0.0E+00 ., 36.3 1.4E-06 0.0E+00 1.4E-06 0.0E+00 .1 4E-06 0.0E+00 J TOTAL 1.7E-04 1.4E-04 3.4E-05 2.6E-05 1.4E-04 2.6E-05 q NOMENCLATURE DIAM DIAMETER OF INITIATING EVENT - INCHES s* OVERALL OVERALL SEQUE11CE FREQUENCY Out Outside crane wall : In Inside crane wall ! Prim Primary systems Sec Secondary systems IP Primary systems in crane wall , i I h 9 i h i t
.I
'l
?
I
= . _ . _ . ~ _ . ., . ._. . ,. ,. _ , .
~9 F
BLOCKAGE 2.0 - Simple' Test - ti SEQUENCE FREQUENCY BY. SYSTEM - SCREEN AREA = 80.O SQ.FT. ; FLOW RATE = 10000.0.GPM, HEAD LOSS = 3.90 FT.H20,-L/D =- 5.0- - SYS DCLS OVERALL Out In Prim Sec IP - 1 2-6 0.0E+00 ~0.0E+00 0.0E+00 0.0E+00, 0.0E+00 0.0E+00
-1 8-10 0.0E+00 0.0E+00 0.0E+00 -0.0E+00 .0.0E+00 0.0E+00 1 12-16 .0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 .0.0E+00' i 1 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 .C.0E+00 0.0E+00 2 2-6 1.4E-04 1.4E-04 0.0E+00 0.0E+00 1.4E-04' O.0E+00 2 8 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 l 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 't 2 12-16 0.0E+00 2 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00. 0.0E+00 3 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1 3 8-10 2.0E-05 0.0E+00 2.0E-05 2.0E-05 '0.0E+00 '2.0E-05 3 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 :
0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00. 3 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 4 2-6 0.0E+00 4 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 4 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 , 4 18-+ 0.0E+00- 0.0E+00 0.0E+00 0.0E+000.0E+00 0.0E+00 , 5 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00' O.0E+00 0.0E+00 - ' 5 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00- 0.0E+00 5 12-16 1 0E-05 . 0.0E+00 1.0E-05 '6.0E-06 4.0E-06 6.0E-06 5 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 . 6 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 ) 6 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00. 0.0E+00 6 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 'O.0E+00 0.0E+00 6 18-+ 3.7E-06 0.0E+00 3.7E-06 0.0E+00 3.7E-06 0.0E+00. , 7 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00. 0.0E+00 0.0E+00 ; 7 8-10 0.0E+00 -0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 ; 7 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00. 0.0E+00 3 7 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1 8 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 . 8 8-10 0.0E+00 0.0E+00 0.0E+00' O.0E+00 0.0E+00 0.0E+00 ? 8 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 j
-?
8 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 9 2-6. 0.0E+00 0.0E+00 0.0E+00 -0.0E+00 0.0E+00 0.0E+00 , i 9 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 9 12-16 0.0E+00 0.0E+00 0.0E+00 -0.0E+00 0.0E+00 'O.0E+00 i 9 18-+ 0.0E+00 0.0E+00 0.0E+00- 0.0E+00 0.0E+00 0.0E+00 .: TOTAL 1.7E-04 1.4E-04 3.4E-05 2.6E-05 1.4E-04 2.6E-05 NOMENCLATURE SYST.ID INITIATING EVENT PIPING SYSTEM CLASS , o DCLS. INITIATING EVENT DIAMETER CLASS
- 1 Hot Leg 6 Chem./Vol.' Control System 2- Cold Leg 7 Feedwater. '
3 Crossover 8 Main Steam 4 Safety Inj. (cold leg) 9 Pressurizer 5 Safety Inj. (hot leg) 10 ; i i 9 9 I [
, if
T l BLOCKAGE 2.0 - Simple Test 80.0 SQ.FT. SEQUENCE FREQUENCY BY DIAMETER -' SCREEN AREA 3.90= FT.H20, L/D = 7.0-FLOW RATE = 10000.0 GPM, HEAD LOSS = OVERALL Out In Prim Sec. 'IP ' DIAM 0.0E+00 2.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 . 0.0E+00 0.0E+00 0.0E+C0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 3.0 0.0E+00 4.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00- 0.0E+00 6.0 1.4E-04 1.4E-04 0.0E+00 0.0E+00 1.4E-04 0.0E+00 8.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 10.0 2.0E-05 0.0E+00 2.0E-05 2.0E-05 0.0E+00 2.0E-05 14.0 2.0E-05 1.0E-05 1.0E-05 . 1.6E-05 4.0E-06 6.0E-06 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00- 0.0E+00
.16.0 2.3E-06 0.0E+00~
30.0 2.3E-06 0.0E+00 2.3E-06 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 32.0 0.0E+00 32.3 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00. 0.0E+00 0.0E+00 34.0 36.3 1.4E-06 0.0E+00. 1.4E-06 0.0E+00 1.4E-06 0 . 0 E+ 00 TOTAL 1.8E-04 1.5E-04 3.4E-05 3.6E-05 1.4E-04 2.6E-05 NOMENCLATURE DIAM DIAMETER OF INITIATING EVENT - INCHES OVERALL' OVERALL SEQUENCE FREQUENCY Out Outside crane wall In- Inside crane wall-Prim Primary systems Sec Secondary systems IP Primary systems in crane wall i d
" ~ -t--i -%- ,m ,
t V a j
'ii BLOCKAGE:2.0 - Simple Test' SEQUENCE FREQUENCY BY SYSTEM - SCREEN AREA 80.0 SQ.FT.
= . FT.H20,'L/D FLOW RATE = 10000.0-GPM, HEAD LOSS = 3.90 = 7.0
-i Prim SYS DCLS' OVERALL Out In Sec IP 1--2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 .
0.0E+00 j
!? 1 8-10 0.0E+00. 0.0E+00 0.0E+00 0.0E+00 .0.0E+00
- 1. 12-16 0.0E+00 -0.0E+00 .0.0E+00 0.0E+00, 0.0E+00 0.0E+00 -!
I 1 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 2 2-6 1.4E-04 1.4E-04 0.0E+00 0.0E+00 .1.4E 0.0E+00 ; 2 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 2 L; 2 12-16 ~ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00. 0.0E+00. ; 2 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00- 0.0E+00' 0.0E+00 0.0E+001 0.0E+00 j 3 2-6 0.0E+00 0.0E+00 0.0E+00 3 8-10 2.0E-05 0.0E+00 2.0E-05 2.0E 0.0E+00 2.0E-05 ' 3 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0 0E+00
. 0.0E+00 '
3 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 4 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00- .. ; 4 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 t 4 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 4 18-+ 0.0E+00 0.0E+00 0.0E+00. 0.0E+00. 0.0E+00 0.0E+00 3' ' 5 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 5 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 5 12-16 2.0E-05 1.0E-05 1.0E-05 1.6E-05 4.0E-06 6.0E-06 , S 18-+ 0.0E+00 0.0E+00 0.0E+00 0.UE+00 0.0E+00 .0.0E+00 , 6 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00- ! 6 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 s0.0E+00 6 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 '0.0E+00 6 18-+ 3.7E-06 0.0E+00. 3.7E-06 0.0E+00 3.7E-06 0.0E+00 7 2-6 0.0E+00 0,0E+00 0.0E+00 0.0E+00 0.0E+00 :0.0E+00 7 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 7 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 7 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00' O.0E+00-8 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 - 8 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00. 0.0E+00 e 8 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 -0.0E+00-.0.0E+00 0.0E+00 0.0E+00. 8 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 9 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0 0E+001 0.0E+00 9 8-10 . 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 ~0.0E+00. ; 9 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 9 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 , TOTAL 1.8E-04 1.5E-04 3'4E-05
. 3.6E-05 1.4E-04 _2.6E-05 ,
7 NOMENCLATURE l SYST.ID INITIATING EVENT PIPING SYSTEM CLASS s DCLS. INITIATING EVENT DIAMETER CLASS 1 Hot Leg 6 Chem./Vol. Control System 2 Cold Leg 7 Feedwater 3 Crossover 8 Main Steam ', 4 Safety Inj. (cold leg) 9 Pressurizer 5 Safety Inj. (hot leg) 10 ,
'I i
1 P i
.1 l
c
- j BLOCKAGE 2.0 - Simple Test ,
' SEQUENCE ~ FREQUENCY BY DIAMETER'- SCREEN AREA 80.0 SQ.FT.. l 10000.0'GPM, HEAD LOSS = 4 00= FT.H20, L/D.=. 3.0 FLOW RATE =' ,
DIAM OVERALL 'Out I4 Prim Sec IP 2.0 0.0E+00 'O.0E+00 0.0E+00 0.0E+00 0.0E+00' O 0E+00 1 0.0E+00 0.0E+00 l
.3. 0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 4.0 0.0E+00 0.0E+00 -0.0E+00 0.0E+00 0.0E+00 0.0E+00 l
-1.4E-04 0.0E+00 ;
< 6.0 1.4E-04 1.4E-04 0.0E+00 0.0E+00 8.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00- 0.0E+00 .0.0E+00 , 10.0 0.0E+00 0.0E+00. 0.0E+00 0.0E+00 0.0E+00 0.0E+00 14.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 16.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 .0.0E+00 0.0E+00 30.0 0.0E+00 0.0E+00 0.0E+00 .0.0E+00 0.0E+00 .0.0E+00 > 32.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 32.3 0.0E+00 0.0E+00 0.0E+00 0.0E-00 0.0E+00 0.0E+00 34.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00
- 36.3 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00-TOTAL 1.4E-04 1.4E-04 0.0E+00 0.0E+00 1.4E-04 0.0E+00 NOMENCLATURE DIAM DIAMETER OF INITIATING EVENT - INCHES ,
OVERALL OVERALL SEQUENCE FREQUENCY Out Outside crane wall In Inside crane wall ,. Prim Primary systems Sec- Secondary systems IP- Primary systems in crane wall i
.)
I t g
. _1_ _ _ _ , _ . _ _ _ _ _ _ _ _ _ _ ___ _ _ .
4 l n.nc 1 or . >
,j 1
.1 l
1 BLOCKAGE 2.0 - Simple. Test ! 0
- SEQUENCE _ FREQUENCY BY SYSTEM - SCREEN AREA = 80.0 SQ FT.
FLOW RATE =' 10000.0 GPM, HEAD LOSS = 4.00 FT.H20, L/D = 3.0
. SYS DCLS. OVERALL Out- In. Prim .
Sec IP 0.0E+00 . .0.0E+00 0.0E+00 0.0E+00' O 1 2 0.0E+00' 0-.0E+00 1 8 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00~ 0.0E+00 0.0E+00 l 1 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 .0.0E+00 0.0E+00 i 2 2-6 l'.4E-04 1.4E-04 0.0E+00 0 .' 0 E+ 0 0 1.4E-04 0.0E+00 d 2 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 ,0.0E+00 'O.0E+00 .{ 0.0E+00 0.0E+00 0.0E+00~ 0.0E+00' -0.0E+00 4 2 12-16 0.0E+00 2 18-+ 0.0E400 0.0E+00 0.0E+00 0.0E400 0.0E+00 0.0E+00. 3 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 .0.0E+00 0.0E+00
- l 3 8-10 0.0E+00 0.0E+00 0.0E+00' O.0E+00 0.0E400 0.0E+00 3 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 3 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00- 0.0E+00 4 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00- -j 4 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 4 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 4 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 l 5 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 !
5 8-10 0.0E+00 0.0E+00 0.0E+00- 0.0E+00 0.0E+00 0.0E+00 ' 5 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 5 18-+ 0.03+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 6 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 ., O.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00' 6 8-10 0.0E+00' 6 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 6 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 > 7 2-6 0.0E400 0.0E+00 0.0E+00 0.0E+00~ 0.0E+00 0.0E+00 , 7 8-10 0.0E+00 0.0E+00 ~0.0E+00 0.0E+00 0.0E+00 0.0E+00 7 12-16 0.0E+00 0,0E+00 0.0E+00. 0.0E+00 0.0E+00 .0.0E+00 7 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00~ 8 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 'O 0E+00 0.0E+00-8 8-10 0.0E+00 0.0E+00 0.0E+00- 0.0E+00 0.0E+00 3.0E+00 a' 8 12-16 0.0E+00 0,0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 8 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 9 2-6 0.0E+00 0.CE+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 9 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00- 0.0E+00 9 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 9 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 TOTAL 1.4E-04 1.4E-04 0.0E+00 0.0E+00 1.4E 0.0E+00 i NOMENCLATURE SYST.ID INITIATING EVENT PIPING SYSTEM CLASS ., DCLS. INITIATING EVENT DIAMETER CLASS :- 6 Chem./Vol. Control System .; 1 Hot Leg 2 Cold Leg 7 Feedwater ! 3 Crossover 8 Main Steam 4 Safety Inj. (cold leg) 9 Pressurizer i 5 Safety Inj. (hot leg) 10 :i l ;
.t.,
BLOCKAGE 2.0 - Simple Test - SEQUENCE FREQUENCY BY DIAMETER - SCREEN AREA = 80.0'SQ.FT. p? FLOW RATE = .10000.C GPM, HEAD LOSS = 4.00 FT.H20, L/D = 5.0-DIAM OVERALL 'Out In Prim Sec IP 2.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00' O.0E+00 ! 3.0 0.0E+00 0.0F+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00- , 4.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 6.0 1.4E-04 1.4E-04 0.0E+00 0.0E+00 1.4E-04 0.0E+00 . 8.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00- j 10.0 2.0E-05 0.0E+00 2.0E-05 2.0E-05. 0.0E+00 2.0E-05 .t 14.0 1.0E-05 0.0E+00 1.0E-05 6.0E-06 4.0E-06 6.0E-06~ ! 16.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 j 30.0 2.3E-06 0.0E+00 2.3E-06 0.0E+00 2.3E-06 0.0E+00 l 32.0 0.0E+00 0.0E+00~ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 .; 32.3 0.0E+00 0.0E+00 0.0E+00 0.0E+00' O.0E+00 0.0E+00 f 34.0 0.0E+00 '0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 . 36.3 1.4E-06 0.0E+00 1.4E-06 0.UE+00 1.4E-06 0.0E+00 l 3 TOTAL 1,7E-04 1.4E-04 3.4E-05 2.6E-05 1.4E-04 2.6E-05 :
'i.
NOMENCLATURE j DIAMETER OF INITIATING' EVENT - INCHES j DIAM ~ OVERALL OVERALL SEQUENCE FREQUENCY j Out Outside crane wall In Inside crane wall { Prim Primary systems ' Sec Secondary systems IP Primary systems in crane wall , l
-j a
I
.i i
a I 5 t i l
.I i
I
e BLOCKAGE 2.0 - Simple Test SEQUENCE FREQUENCY BY SYSTEM - SCREEN AREA = 80.0 SQ.FT. , FLOW RATE = 10000.0 GPM, HEAD LOSS = 4.'00 FT.H20, L/D = 5.0
't SYS DCLS OVERALL Out In Prim- Sec . IP 1 2-6 .0.0E+00 .0.0E+00 . 0.0E+00 0.0E+00 0.0E+00 0.0E+00 l 1 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 'O.0E+00 0.0E+00- !
1 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1 18-+ 0.0E+00 0.0E+00 .0.0E+00 0.0E+00 0.0E+00 0.0E+00 t 2 2-6 1.4E-04 1.4E-04 0.0E+00 0.0E+00 1.4E-04 0.0E+00 2 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 c! 2 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00- 0.0E+00 '0.0E+00 .; 2 18-+ 'O.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 f 3- 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 3 8-10 2.0E-05 0.0E+00 2.0E-05 2.0E-05 0.0E+00 2.0E-05 3 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 ~0.0E+00 l 3 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 ,; 4 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 ^ t 4 8-10 0.0E+00 0.0E+00 0.0E+00 .0.0E+00 0.0E+00 0.0E+00 4 12-16 0.0E+00 0.0E+00 0.0E+00' O.0E+00 0.0E+00 0.0E+00 r 4 18-+ 0.0E+00 0.CE+00 0.0E*00 0.0E+00 ~ 0.0E+00 0.0E+00 5 2-6 0.0E+00 0.0E+00- 0.0E+00 0.0E+00 0.0E+00 0.0E+00- 1 5 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 ~0.0E+00 ': 5 12-16 1.0E-05 0.0E+00 1.0E-05 6.0E-06 4.0E-06 6.0E-06 . 5 18-+ 0.0E+00 0.0E400 0.00+00 0.0E+00 0.0E+00 0.0E+00 ? 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 6 2-6 0.0E+00 6 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00- 0.0E+00 0.0E+00 i 6 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1 6 18-+ 3.7E-06 0.0E+00 3.7E-06 0.0E+00- 3.7E-06 0.0E+00 i 7 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 .0.0E+00 'O.0E+00 i 7 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 , 7 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 : 7 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00. 0.0E+00 0.0E+00 l 8 2-6 0.0E+00 0.0E400 0.0E+00 0.0E+00 0.0E+00 0.0E+00 8 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.OE+00- 0.0E+00- ? 8 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 8 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00' ) 9 2-6' O.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 i~ 9 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0 OE+00 0.0E+00 0.0E+00 9 12-16 0.0E+00 0.0E+00 fr . 0E+ 00 0.0E+00 0.0E+00 9 18-+ 0.0E+00 TOTAL 1.7E-04 1.4E-04 3.4E-05 . 6E-05 1.4E-04'" 2.6E-05. l NOMENCLATURE SYST.ID INITIATING EVENT PIPING SYSTEM CLASS 't DCLS. INITIATING EVENT DIAMETER CLASS , 1- Hot Leg .6 Chem./Vol.-Conti '/ stem 2 Cold Leg 7 Feedwater . 8 Main Steam J 3 Crossover - 4 Safety Inj. (cold leg) 9 Pressurizer 5 Safety Inj. (hot leg) 10 .
-j i
e i
'I P
-l i
i
.j , . - . ..a ~ - . - - ,
BLOCKAGE 2.0 - Simple Test SEQUENCE FREQUENCY BY DIAMETER - SCREEN AREA 80.0 SQ.FT. 10000.0 GPM, HEAD LOSS = 4.00= FT.H20, L/D = 7.0 FLOW RATE = DIAM OVERALL Out' In Prim Sec IP 2.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 3.0 0.0E+00 0.0E+00 0.0E+00. 0.0E+00- 0.0E+00 0.0E+00 4.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 -0.0E+00 6.0 1.4E-04 1.4E-04 0.0E+00 0.0E+00 1.4E-04 0.0E+00 8.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 10.0 2.0E-05 0.0E+00 2.0E-05 2.0E-05 0.0E+00 2.0E-05 14.0 2.0E-05 1.0E-05 1.0E-05 1.6E-05. 4.0E-06 6.0E-06 16.0 0.0E+00 .0.CE+00 0.0E+00 0.0E+00 0.0E+00- 0.0E+00 30.0 2.3E-06 0.0E+00 2.3E-06 0.0E+00 2.3E-06 0.0E+00-32.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00- 0.0E+00 32.3 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00: 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00- 0.0E+00 0.0E+00 34.0 0.0E+00 36.3 1.4E-06 U.0E+00 1.4E-06 0.0E+00~ l'.4E-06 TOTAL 1.8E-04 1.5E-04 3.4E-05 3.6E-05 1.4E 2.6E-05 NOMENCLATURE DIAM DIAMETER LF INITIATING EVENT - INCHES OVERALL OVERALL SEQUENCE FREQUENCY Out Outside crane wall In Inside crane wall Prim Primary systems Sec. Secondary systems IP Primary systems in crane wall
E BLOCKAGE 2.0 - Simple Test ! SEQUENCE FREQUENCY BY SYSTEM - SCREEN AREA 80.0 SQ.FT.
= FT.H20, 10000.0 GPM, HEAD LOSS = 4.00 L/D = 7.0 FLOW RATE =
SYS DCLS OVERALL Out In Prim Sec IP 1 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 . 0.0E+00 ~ 1 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00- 0.0E+00 > 1 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 -0.0E+00 0.0E+00-2 2-6 1.4E-04 1.4E-04 0.0E+00 0.0E+00 1.4E-04 0.0E+00-2 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 2 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 > 2 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 - 3 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 3 8-10 2.0E-05 0.0E+00 2.0E-05 2.0E-05 0.0E+00 2.0E-05 3 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 3 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00- , 4 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 4 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 4 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.OE+00 0.0E+00 4 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 5 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 5 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 5 12-16 2.0E-05 1.0E-05 1.0E-05 1.6E-05 4.0E-06 6.0E-06 [ 5 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 '0.0E+00 t 6 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 6 8-10 0.0E+00 0.0E+00 0.0E+00 'O.0E+00 0.0E+00 0.0E+00 6 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 -0.0E+00 .0.0E+00 6 18-+ 3.7E-06 0.0E+00 3.7E-06 0.0E+00 3.7E-06 0.0E+00 7 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 7 B-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 7 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00' O.0E+00 0.0E+00 7 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 8 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 8 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 -0.0E+00 8 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 8 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 9 2-6 0.0E+00. 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1 9 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 t 9 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 ' 9 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 TOTAL 1.8E-04 1.5E-04 3.4E-05 3.6E-05 1.4E-04 2.6E-05 , NOMENCLATURE SYST.ID INITIATING EVENT PIPING SYSTEM CLASS DCLS. INITIATING EVENT DIAMETER CLASS # 1 Hot Leg 6 Chem./Vol. Control System 2 Cold Leg 7 Feedwater '! 3 Crossover 8 Main Steam 4 Safety Inj. (cold leg) 9 Pressurizer [ 5 Safety Inj. (hot leg) 10 s [ t J 5 f
i BLOCKAGE 2.0 - Simple Test SEQUENCE FREQUENCY BY DIAMETER - SCREEN AREA = 80.0 SQ.FT. .[ FLOW RATE'= 10000.0 GPM, HEAD LOSS = 20.00 FT.H20, L/D = 3.0 , t DIAM OVERALL Out In Prim Sec IP : 2.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 l 3.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 4.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00- 0.0E+00 0.0E+00 .l' 6.0 1.,4E 1.4E-04 0.0E+00 0.0E+00 :1.4E-04 0.0E+00 0.0E+00 -i 8.0 0.0E+00 0.0Es00 0.0E+00 0.0E+00 0.0E+00 10.0' O.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00- 0.0E+00' ' 14.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 16.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00- 0.0E+00 0.0E+00 ; 30.0 0.0E+00 0.0E+00 0.0E+00 0 0E+00
. 0.0E+00 0.0E+00 32.0 0.0E+00- 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00
.l 32.3 0.0E+00 0.0E+00 0.0E+00 0.0E+00' O.0E+00 0.0E+00 34.0 0.0E+00 0.0E+00 0.0E+00'- 0.0E+00 0.0E+00 .0.0E+00 36.3 0.0E+00 0.0E+00 -0.0E+00 0.0E+00 0.0E+00 0.0E+00 TOTAL 1.4E-04 1.4E-04 0.0E+00 0.0E+00 1.4E-04 0.0E+00 -l
?
NOMENCLATURE DIAM DIAMETER OF INITIATING EVENT - INCHES OVERALL- OVERALL SEQUENCE FREQUENCY Out Outside crane wall 1 In Inside crane wall . Prim Primary systems r Sec Secondary systems ,! IP Primary systems in crane wall 4 f i h
-i 1
l b i
.1 1
1 t r
. . ~ . . - . - - - , - * * <~ m
r . _ . . . t w i BLOCKAGE 2.0 - Simple Test-80.0 SQ.FT. -! SEQUENCE FREQUENCY BY SYSTEM - SCREEN AREA =; I FLOW RATE'=' 10000.0GPM, HEAD LOSS = 20.00 FT.H20, L/D = 3.0-SYS DCLS- OVERALL Out In Prim- Sec IP-1 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 -0.0E+00 0.0E+00 0.0E+00 ,0.0E+00 . 1- 8-10 f 1 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0. 0E+ 0 0 - 0.0E+00 1 18-+ .0.0E+00 0.0E+00 0.0E+00- 0.0E+00 0.0E+00 0.0E+00' , 2 2-6 1.4E-04 1.4E-04 0.0E+00 0.0E+00 1.4E-04 -0.0E+00 1 2 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1 4
- 2 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 2 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 l 3 .2-6 0.0E+00 0.0E+00 0.0E+00- 0 0E+00 0.0E+00 0.0E+00 s
-3 8-10 0.0E+00 0.0E+00 -0.0E+00 0,0E+00 0.0E+00. 0.0E+00 ,
3 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00. ; 3 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1 4 2-6 0.0E+00 0.0E+00 0.0E+00- 0.0E+00 4 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 :0.0E+00 .0.0E+00' 4 12-16 .0.0E+00 0.0E+00 0.0E+00' O.0E+00.'O.0E+00 0.0E+00 . 4 18-+ 0.0E+00 0.0E+00- 0.0E+00 0.0E+00 0.0E+00 .0.0E+00 j i 5 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 5 ~8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 ' 5 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 S 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 6 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 6 8-10 0.0E+00 0.0E+00 0.0E+00 '0.0E+00 0.0E+00 0.0E+00 ' 6 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00- 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 6 18-+ 0.0E+00 7 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 ' 7 B-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00- 0.0E+00 E 7 12-16 0.0E+00- 0.0E+00 0.0E+00- 0.0E+00 0.0E+00~ 0.0E+00 ~i 7 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 .0.0E+00-8 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 -l 8 B-10 0.0E+00 0.0E+00 0.0E+00 0. 0E+ 0 00.0E+00 0.0E+00 - 0.0E+00 ~ 0.0E+00. , 8 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 ! < 8 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00. 0.0E+00 0.0E+00 9 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 '0.0E+00 0.0E+00 l 9 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 '0.0E+00. 0.0E+00 j 9 12-16 0.0E+00 0.0E+00- 0.0E+00 0.0E+00 0.0E+00 0.0E+00
- 9. 18-+ 0.0E+00 0.0E+00. 0.0E+00 0.0E+00 0.0E+00 0.0E+00 ;
TOTAL 1.4E-04 1.4E-04 0.0E+00 0.0E+00 1.4E-04 0.0E+00 NOMENCLATURE SYST.ID INITIATING EVENT PIPING SYSTEM CLASS DCLS, INITIATING EVENT DIAMETER CLASS- i 6 = Chem./Vol. Control System. 1 1 Hot Leg 2 Cold Leg 7 Feedwater 3 Crossover 8 Main Steam-4 Safety Inj. (cold leg) 9 Pressurizer 5 Safety Inj. (hot leg) 10 'l t
p-BLOCKAGE 2.0 - Simple Test SEQUENCE FREQUENCY BY DIAMETER - SCREEN AREA = 80.0 SQ.FT. FLOW RATE = 10000.0 GPM, HEAD LOSS = 20.00 FT.H20, L/D = 5.0 DIAM OVERALL Out In Prim Sec IP 2.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 3.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 4.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 6.0 1.4E-04 1.4E-04 0.0E+00 0.0E+00 1.4E-04 0.0E+00 8.0 0.0E+00 0.0E+00 0.0E+00. 0.0E400 0.0E+00 0.0E+00 10.0 0,0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 14.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 16.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 30.0 0.0E+00 0.0E+00 0.0E+00 0.0E400 0.0E+00 0.0E+00 32.0 0.0E+00 0.0E+00 .0.0E+00 0.0E+00 0.0E+00 0.0E*00 32.3 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 34.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 36.3 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 TOTAL 1.4E-04 1.4E-04 0.0E+00 0.0E+00 1.4E-04 0.0E+00. NOMENCLATURE DIAM DIAMETER OF INITIATING EVENT - INCHES OVERALL OVERALL SEQUENCE FREQUENCY Out Outside crane wall In Inside crane wall Prim Primary systems Sec Secondary systems IP Primary systems in crane wall 1
. , -~ . .- - - . . . - - . .. - . . - . .
l q BLOCKAGE 2.0 Simple Test 't 80.0 SQ.FT. SEQUENCE' FREQUENCY BY SYSTEM - SCREEN AREA =- j FLOW RATE = 10000.0 GPM, HEAD LOSS = 20.00 FT.H20, L/D = 5.0 ' SYS DCLS OVERALL Out In Prim Sec - IP "
.1 2 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 -
1 8 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00. 0.0E t00 3 1 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 e 2 2-6 1.4E-04 1.4E-04 0.0E+00 0.0E+00 1.4E-04. 0.0E+00 I 0.0E+00 0.0E+00 0.0E+00 .0.0E+00 0.0E+00 l 2 8-10 0.0E+00 0.0E+00 2 12-16 0.0E+00- 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 .0.0E+00 0.0E+00 j 2 18-+ 0.0E+00 0.0E+00 9 3 2-6 0.0E+00- 0.0E+00 0.0E+00 0.0E+00- 0.0E+00- 0~0E+00 3 8-10 -0.0E+00 0.0E+00 0.0E+00 0.0E+00 -0.0E+00 0 -. 0E+ 0 0 3 3 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0 0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00- ..! 3 18-+ 0.0E+00 0.0E+00 0.0E+00 lf 4 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 =0.0E+00- 0.0E+00 4 B-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00- 1 4 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00' O.0E+00 4 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00- 0.0E+00 0.0E+00 -j 5 2-6 0.0E+00 0.0E+00 0.0E+00- 0.0E+00' O.0E+00 0.0E+00 , i 5 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 5 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 -0.0E+00 0.0E+00 3 5 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 l 6 2-6 0.0E400 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 't 6 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 , 6 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0=0E+00- . l 6 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 ' 7 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 7 8-10 0.0E+00 0.0E+00 0.0E+00. 0.0E+00 0.0E+00 0.0E+00 :
- 7. 12-16: 0.0E+00- 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 !
7 18-+ -0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 -l 8 2-6 0.0E+00 8 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1' 8 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 8 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 ? 9 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00- 0.0E+00: 0.0E+00 0.0E+00 0.0E+00 0.0E+00 .; 9 8-10 0.0E+00 0.0E+00 9 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00- .; t 9 18-+- 0.0E+00 0.0E+00- 0.0E+00 0.0E+00 0.0E+00 0.0E+00 TOTAL 1.4E-04 1.4E-04 0.0E+00 0.0E+00 1.4E-04 0 0E+00 NOMENCLATURE I SYST.ID INITIATING EVENT PIPING SYSTEM CLASS 'I DCLS. INITIATING EVENT DIAMETER CLASS. 't 1- Hot Leg 6 Chem./Vol. Control System A 2 . Cold Leg 7 Feedwater ' 3 Crossover 8 Main Steam 4 Safety Inj. (cold leg) 9 Pressurizer -i 5 . Safety Inj. (hot leg) 10 l j 1 l l l l
'1 l
1
.v. .-. . - . - , . , _
t i BLOCKAGE 2.0 - Simple Test , SEQUENCE FREQUENCY BY DIAMETER - SCREEN AREA =- 80.0'SQ.FT.
- FLOW RATE = 10000.0 GPM, - HEAD LOSS = 20.00 FT.H20, L/D =: 7.0 1 DIAM OVERALL' Out. In Prim Sec- IP 2.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 'l 3.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 i 4.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 ]
6.0 1.4E-04 1.4E-04 0.0E+00 0.0E+00 1.4E-04 0.0E+00 '! 8.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 i 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00, j 10.0 '! 14.0 0.0E+00 0.0E+00- 0.0E+00 0.0E+00 0.0E+00 0.0E+00 16.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 -0.0E+00 ; 30.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 ! 32.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1 32.3 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00-34.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 ; 36.3 0.0E+00 0.0E+00 .0.0E+00 0.0E+00' O.0E+00 0.0E+00 TOTAL 1.4E-04 1.4E-04 0.0E+00 0.0E+00 1.4E-04 0.0E+00 .< f NOMENCLATURE DIAM DIAMETER OF INITIATING EVENT - INCHES j OVERALL OVERALL SEQUENCE FREQUENCY Out Outside crane wall , In .Inside crane wall Prim Primary systems i Sec Secondary systems ' IP Primary systems in crane wall i i l
.i l
l
. . . . ._ - - ~ . . - -
. .. .. ~. . . . _ . .--
I i d
?
BLOCKAGE 2.0 - Simple Test . 80.0 SQ.FT. 'l SEQUENCE FREQUENCY BY SYSTEM - SCREEN AREA = - FLOW RATE'=' 10000.0 GPM, HEAD LOSS = 20.00 FT.H20c L/D =- 7.0 ' SYS DCLS OVERALL Out' In Prim Sec IP. . 1 2-6 0.0E+00- . 0.0E+00 0.0E+00 0.0E+00; 0.0E+00 0.0E+00. 1 8-10 0.0E+00- 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00' 1 12-16 0.0E+00 0.0E+00 0.0E+00 'O.0E+00- 0.0E+00 0.0E+00 1 1 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00: 0.0E+00 0.0E+00 2 2-6 1.4E-04 1.4E-04 0.0E+00. 0.0E+00 1.4E 0.JE+001 ! 2 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 2 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00' O.0E+00 0.0E+00 0.0E+00 0.0E+00 0.'0E+00 0.0E+00 2 18-+ 0.0E+00 3 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 ~0.0E+00 0.0E+00 'l l 3 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00- 0.0E+00 0.0E+00 3 '12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 'O.0E+00 0.0E+00 3 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 .; l 4 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00;.0.0E+00 4 8-10 0.0E+00 0.0E+00 0.0E+00 .0.0E+00 0.0E+00 0.0E+00 ' 4 12-16 0.0E+00 0.0E+00 '0.0E+00- 0,0E+00 'O.0E+00 0.0E+00 4 18-+ 0.0E+00 0.0E+00 0.0E+00 'O.0E+00 0.0E+00 0.0E+00 a 5 2-6 0.0E+00 -0.0E+00 0.0E+00 0.0E+00- 0.0E+00 0.0E+00 ! 5 B-10 0.0E+00 0.0E+00 0.0E+00' O.0E+00. 0.0E+00 0.0E+00 5 12-16 0.0E+00- 0.0E+00l.0.0E+00 0.0E400 0.0E+00 0.0E+00 l 5 18-+ 0.0E+00 0.0E+00 0.0E+00, 0.0E+00 0.0E+00 0.0E+00 t 0.0E+00~ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 l 6 2-6 0.0E+00 6 8-10 0.0E+00~ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 > 6 12-16 0.0E+00 0.0E+00- 0.0E+00 0'0E+00. 0.0E+00
. 0.0E+00 6 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0. 0E+ 0 0 -- ?
7 2-6 0.0E+00 0.0E+00 : 7 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 7 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 ' 0-. 0E+00 ' O . 0 E+ 00 - h 7 18-+ 0.0E+00 0.0E+00 0.0E+00 .0.0E+00 0.0E+00 0~0E+00. 8 2-6 0.0E+00 -0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1 8 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00~ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 j 8 12-16 0.0E+00 0.0E+00 0.0E+00 8 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 'O.0E+00 i 9 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 l j 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E4001 9 B-10 0.0E+00 ) 9 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 i 9 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 'O.0E+00 TOTAL 1.4E-04 1.4E-04 0.0E+00 0.0E+00 1.4E-04 0. 0 E+ 00 NOMENCLATURE SYST.ID INITIATING EVENT PIPING SYSTEM CLASS DCLS. INITIATING EVENT DIAMETER CLASS 1 Hot Leg 6 Chem./Vol. Control System 2 Cold Leg 7 Feedwater-3 Crossover B ' Main Steam-4 Safety Inj.-(cold leg) 9 Pressurizer 5 Safety Inj. (hot leg) 10 u i
~l i
3 . . . . - i
?
t BLOCKAGE 2.0 - Simple-Test . j
SUMMARY
OF PROBABILITIES DIAMETER BASIS - SCREEN AREA = -80.0 SQ.FT.- !
-FLOW RATE = 10000.0- GPM, HEAD . LOSS = 3.90 FT.H2O Bite 25 FREQUENCIES SCREEN UNAVAILABILITIES DIA. -L/D = 3.0 L/D = 5.0 L/D = 7.0 IN. OVERALL Out OVERALL Out OVERALL Out OVERALL Out ,
2.0 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 - 3.0 0.0E+00 0.0E+00 _0.0000 0.0000 0.0000 0.0000 0.0000 0.0000. ! 4.0 -2.9E-05. 2.9E-05 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 1-6.0 2.7E-04 2.7E-04 0.5000 0.5000 0.5000 0.5000-0.5000 0.5000 i 8.0 0.0E+00 0.0a+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 11 0 . 0 - 4.0E-05 0.0E+00 0.0000 0.0000 0.5000 0.0000 0.5000 0.0000- :! 14.0 2.0E-05 1.0E-05 0.0000 0.0000 0.5000 0.0000 1.0000 1.0000 -t ' 16.0 1.0E-05 0.CE+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 30.0 2.3E-06 0.0E+00 0.0000 0.0000 1.0000 0.0000 1.0000 0.0000 32.0 0.0E+00' O.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 32.3 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 , 34.0 2.3E-06 2.3E-06 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000- ! 36.3 1.4E-06 0.0E+00- 'O.0000 0.0000 1.0000 0.0000 1.0000 0.0000' l
?
TOTAL 3.8E-04 3.1E-04 ! NOMENCLATURE .; DIA. INITIATING EVENT DIAMETER - INCHES OVERALL OVERALL PROBABILITY OF INITIATING EVENT OCURRENCE { L/D RATIO OF TARGET DISTANCE TO BREAK DIAMETER :
'I
SUMMARY
LOCATION CLASS LABEL IS: Out Outside crane wall ; [ i
.I i
I i i i fj i
'l
I Lf t i I BLOCKAGE 2.0 - Simple Test . .
SUMMARY
OF FREQUENCIES DIAMETER BASIS - SCREEN AREA = =80.0 SQ.FT. - FLOW RATE =. 10000. 0 GPM, HEAD LOSS = 3.90-FT.H2O BREAK' FREQUENCIES! SEQUENCE FREQUENCIES L/D = 5.0 L/D = 7.0 ! DIA. L/D'= 3.0 ~ ' IN. OVERALL Out OVERALL Out OVERALL Out . OVERALL Out. . 0.0E+00 0.0E+00'.0.0E+00 0.0E+00 0.0E+00 0.0E+00- I J2.0 0.0E+00 0.0E+00 ' 3.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00' > 4.0 2.9E-05 2.9E-05 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 6.0 2.7E-04 2.7E-04 1.4E-04 1.4E-04 1.4E-04 1.4E-04 1.~4E-04 1.4E 8.0'O.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00:0.0E+00 0.0E+00 0.0E+00. ; 10.0 4 0E-05 0.0E+00 0.0E+00 0.0E+00 2.0E-05 0.0E+00 2.0E-05.0.0E+00 .: 14.0: 2.0E-05 1.0E-05 0.0E+00 0.0E+00 1.0E-05~0.0E+00 2.0E-05 1.0E-05L ! i 16.0 1.0E-05 0.0E+00 0.0E+00 0.0E+00 0.0E+00.0.0E+00.0.0E+00 0.0E+00 ' 30.0 2.3E-06 0.0E+00 0.0E+00 0.0E+00 2.3E-06 0.0E+00.2.3E-06 0.0E+00 32.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00: ' 32.3 0.9E+00 0.0E+00 0.0E+00-0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00f ' 34.0 2.3E-06 2.3E-06 '0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00' 36.3 1.4E-06 0.0E+00, 0.0E+00 0.0E+00 1.4E-06.0.0E+00 1.4E-06 0.0E+00~ TOT 3.8E-04 3.1E-04 1.4E-04 1.4E-04 1.7E-04 1.4E-04 1.8E-04 1.5E l NOMENCLATURE DIA. INITIATING EVENT DIAMETER - INCHES OVERALL OVERALL PROBABILITY OF INITIATING EVENT OCURRENCE L/D RATIO OF TARGET DISTANCE TO BREAK DIAMETER-
- )
SUMMARY
LOCATION CLASS LABEL IS: Out Outside crane wall l l m
)
e i h
)
.t 1
i i
+
~;
l l
. -. _ . . _ - - _ _ , ._ .- _. .m . _
_r i 7 4 l BLOCKAGE 2.0 -: Simple Test
SUMMARY
OF. PROBABILITIES SYSTEM BASIS - SCREEN AREA =- 80.0 SQ.FT. , FLOW' RATE = 10000.0 GPM, HEAD LOSS = 3.90 FT.H2O BREAK FREQUENCIES ' SCREEN UNAVAILABILITIES
' SYS.DIA. L/D = 3.0 L/D = 5.0 L/D = 7.0 l ID CLS. OVERALL Out' OVERALL Out OVERALL Out OVERALL Out I i
1 2-6 0.0E+00 0.0E+00 0'0000 0.0000 0.0000 0.0000 0.0000 0.0000'
~
1 8-10 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 1 12-16 0.0E+00 0.0E+00 0.0000 0.0000 0.0000'O.0000 0.0000 0.0000 a 1 18-+ 2.3E-06 2.3E-06 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
'2 2-6 3.0E-04'3.0E-04 0.4516 0.4516 0.4516 0.4516 0.4516 0.4516.
2 8-10 0'.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 1 2 12-16 0.0E+00-0.0E+00 0.0000 0.0000 0.0000 0.0000.0.0000 0.0000 i 2 18-+ 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000'O.0000 3 2-6 0.0E+00 0.0E+00 0.0000 0.0000 0.0000.0.0000 0.0000 0.0000- t 2.0E-05 0-0E+00 0.0000 0.0000 1.0000 0.0000 1.0000 0.0000 j 3 8-10 . 3 12-16 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 4 3 18-+ 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000'0.0000. : i 4 2-6 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 4 8-10 2.0E-05 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000: . 4 12-16 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 4 18-+ 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 _f 5 2-6 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 5 8-10 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000-5 12-16 2.0E-05 1.0E -0.0000 0.0000.0.5000 0.0000 1.0000:1.0000: 4 5 18-+ 0.0E+00.0.0E+00 0.0000.0.0000 0.0000 0.0000.0.0000 0.0000 'l
'6 2-6 0.0E+00 0.0E+00. 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 6 8-10 0.0E+00 0.0E+00 0.0000 0.0000.0.0000 0.0000 0.0000 0.0000 6 12-16 1.0E-05 0.0E+00 0.0000 0.0000 0.0000 0.0000.0.0000 0.0000 :-
6 18-+ 3.7E-06 0.0E+00 0.0000 0.0000 1.0000 0.0000 1.0000 0.0000 7 2-6 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 7 8-10 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000' 7 12-16 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 7 18-+ 0.0E+00 0.0E+00 0.0000 0.0000 0.0000-0.0000 0.0000 0.0000 8 2-6 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000-8 8-10 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0;0000 0.0000 0.0000-8 12-16 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.'0000'O.0000 , 8 18-+ 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 ; 9 2-6 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 l 9 8-10 0;0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 9 12-16 0.0E+00-0.0E+00 0.0000 0.0000 0.0000=0.0000 0.0000 0.0000 1 9 18-+ 0.0E+00 0.0E+00 0.0000 0.0000.0.0000 0.0000 0.0000 0.0000 ; TOTAL 3.8E-04 3.1E-04 '! + NOMENCLATURE. .; SYS.ID INITIATING EVENT SYSTEM DESIGNATION ' OVERALL OVERALL PROBABILITY OF INITIATING EVENT OCURRENCE-L/D RATIO OF TARGET DISTANCE TO BREAK DIAMETER (
SUMMARY
LOCATION CLASS LABEL IS: ;{ Out Outside crane wall ,
)
ll I G ij i
- 4 . ..; ,
t i BLOCKAGE 2.0 - Simple Test f
SUMMARY
OF FREQUENCIES SYSTEM BASIS - SCREEN AREA = 80.0 SQ.FT. FLOW RATE = 10000.0 GPM, HEAD LOSS-= 3.90 FT.H2O i BREAK FREQUENCIES SEQUENCE FREQUENCIES L/D = 7.0 SYS. DIAM. L/D = 3.0 L/D = 5.0 OVERALL Out OVERALL Out OVERALL Out OVERALL Out ID CLS. : 1 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 - 1 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00' 1 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 't 1 18-+ 2.3E-06 2 3E-06 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00: 2 2-6 3.0E-04 3.0E-04 1.4E-04 1.4E-04 1.4E-04 1.4E-04 1.4E-04 1.4E-04
- 2 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00.0.0E+00 0.0E+00 0.0E+00 0.0E+00 2 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00:0.0E+00 2 18-+- 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00'O.0E+00 0.0E+00 0.0E+00 3 2-6 0.0E+00 0.0E+00- 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 +
3 8-10 2.0E-05 0.0E+00 0.0E+00 0.0E+00 2.0E-05 0.0E+00 2.0E-05 0.0E+00 3 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00.0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00.04 0E+00 0.0E+00 0.0E+00 { 3 18-+ 4 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00-0.0E+00 ' 4 8-10 2.0E-05 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 4 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 4 18-+ -0.0E+00 0.0E+00 0.0E+00 0.0E+00 0 0E+00 0.0E+00.0.0E+00 0.0E+00 5 2-6 0.0E+00 0.0E+00 0.0E+00.0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 . 5 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00'O.0E+00 0.0E+00 0.0E+00 5 12-16 2.0E-05 1.0E-05 0.0E+00 0.0E+00 1.0E-05 0.0E+00 2.0E-C , l'. 0E-05 -l 5 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00'O.0E+00 6 2-6 0.0E+00 0.0E+00' O.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00.0.0E+00 6 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00.0.0E+00.0.0E+00 6 12-16 1.0E-05 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 6 18-+ 3.7E-06 0.0E+00 0.0E+00 0.0E+00 3.7E-06 0.0E+00 3.7E-06 0.0E+00 7 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 7 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00' l 7 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00.0.0E+00 0.0E+00 0.0E+00. 7 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 6 82-6 0.0E+00 0.0E+00 '0.0E+00 0.0E+00 0.0E+00 0.0E+00 0 0E+CO-0.0E+00 8 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 , 8 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00.0.0E+00 0.0E+00 0.0E+00 0.0E+00 : 8 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E,00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00.0.0E+00 0.0E+00 1 9 2-6 0.0E+00 0.0E+00 l 9 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00' j 9 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 9 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00.0.0E+00.0,0E+00 0.0E+00 0,0E+00 [ 8 TOTAL 3.8E-04 3.1E-04 :1.4E-04 1.4E-04 1.7E-04 1.4E-04 1.8E-04 1.5E-04 NOMENCLATURE '; SYS.ID INITIATING EVENT SYSTEM DESIGNATIONJ OVERALL OVERALL PROBABILITY OF INITIATING EVENT OCURRENCE L/D RATIO OF TARGET DISTANCE TO BREAK DIAMETER !
SUMMARY
LOCATION CLASS LABEL IS: ! Out Outside crane wall' < l
=!
I\
-l
?
BLOCKAGE 2;0 - Simple Test
SUMMARY
OF PROBABILITIES DIAMETER BASIS - SCREEN AREA = 80.0 SQ.FT. FLOW RATE = 10000.0 GPM, HEAD LOSS =- 4.00 FT.H2O r BREAK FREQUENCIES SCREEN UNAVAILABILITIES DIA. L/D = 3.0 L/D = 5.0 ~ L/D = 7.0 ; IN. OVERALL Out OVERALL Out OVERALL Out OVERALL Out 2.0 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
- 3.0 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
- 4.0 2.9E-05 2.9E-05 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 6.0 2.7E-04 2.7E-04 0 5000 0.5000 0.5000 0;5000 0.5000 0.5000 i 8.0 0.0E+00 0.0E+00 0.0000 0.0000.0.0000 0.0000 0.0000'O.0000' -
10.0 4.0E-05 0.0E+00' O.0000 0.0000 0.5000 0.0000 0.5000 0.0000 14.0 2.0E-05 1.0E-05 0.0000 0.0000.0.5000 0.0000 1.0000 1 0000. i 16.0 1.0E-05 0.0E+00 0.0000 0.0000 0.0000.0.0000 0.0000 0.0000 30.0 2.3E-06 0.0E+00' O.0000 0.0000 1.0000 0.0000 1.0000.0.0000 ? 32.0 0.0E+00 0.0E+00 0.0000.0.0000 0.0000 0.0000.0.0000 0.0000 , 32.3 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0;0000 0.0000 0.0000 t 34.0 2.3E-06 2.3E-06 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 -! 3 36.3 1.4E-06 0.0E+00 0.0000 0.0000 1.0000 0.0000 1.0000 0.0000 3.1E-04 TOTAL 3.SE-04 NOMENCLATURE DIA. INITIATING EVENT DIAMETER - INCHES OVERALL OVERALL PROBABILITY OF INITIA' TING EVENT OCURRENCE L/D RATIO OF TARGET DISTANCE TO BREAK DIAMETER
SUMMARY
LOCATION CLASS LABEL IS: out Outside crane wall . I i
'f a
f i
'i
~i e %
li j i
)
j R e I
., - . - _ _ ~ _m . ._ _ = - . . .. . . . . , . . . . _ . _ - . _ .
1 a l BLOCKAGE 2.0 - Simple 1 Test
SUMMARY
OF FREQUENCIES' DIAMETER BASIS - SCREEN AREA = 80.0 SQ.FT. 6 FLOW RATE =. 10000.0 GPM, HEAD' LOSS = 4.00 FT.H20- l BREAK FREQUENCIES . SEQUENCE FREQUENCIES L/D = 7.0 1 DIA. . L/D = 3.0 .L/D = 5.0 ' IN. OVERALL Out OVERALL Out OVERALL Out- OVERALL'Out 2.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00,0.0E+00 0.0E+00 : 0.0E+00 0.0E+00 0.0E+00 0;0E+00 0.0E+00'O.0E+00 1 3.0 0.0E+00 0.0E+00 ! 4.0 2.9E-05 2.9E-05 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 , l 6.0 2.7E-04 2.7E-04 1=.4E-04 1.4E-04 1.4E-04 1.4E-04 1~.4E-04 1.4E-04 0.0E+00 0.0E+00 0.0E+00.0.0E+00 0.0E+00 0.0E+00
~
8.0 0.0E+00 0.0E+00 ,
't' 10.0 4.0E-05 0 0E+00 0.0E+00 0.0E+00 2.0E-05 0.0E+00 2'0E-05 .' 0.0E+00-14.0 2.0E-05 1'.0E-05 0.0E+00 0.0E+00 1.0E-05 0.0E+00 2.0E-05 1.0E-05 16.0 1.0E-05 0.0E+00- 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00. !
30.0 2.3E-06 0.0E+00 0.0E+00 0.0E+00 2.3E-06 0.0E+00 2.3E-06 0.0E+00 i 32.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00- 1 32.3 0.0E+00 0.0E+00 0.0E+00'0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 34.0 2.3E-06 2.3E-06 0.0E+00 0.0E+00.0.0E+00 0.0E+00 0.0E+00 0.0E+00 l 36.3 1.4E-06 0.0E+00 0.0E+00-0.0E+00 1.4E-06.0.0E+00 1.4E-06 0.0E+00
?
TOT 3.8E-04 3.1E-04 1.4E-04 1.4E-04 1.7E-04 1.4E-04 1.8E-04 1.5E-04'
- NOMENCLATURE 4
DIA. INITIATING EVENT DIAMETER - INCHES j OVERALL OVERALL PROBABILITY OF INITIATING EVENT OCURRENCE j L/D RATIO OF TARGET DISTANCE TO BREAK DIAMETER'
SUMMARY
LOCATION CLASS LABEL IS: Out Outside crane wall ,
'i t
[ I i i
?
v 1 l i I
-t d
l i
. , . m . .. . . _-- __ _
l I I BLOCKAGE 2.0 - Simple Test .
SUMMARY
OF PROBABILITIES SYSTEM BASIS - SCREEN' AREA = 80.0 SQ.FT. t I FLOW RATE = 10000.0 GPMi-HEAD LOSS = =4.00 FT.H2O < BREAK FREQUENCIES SCREEN UNAVAILABILITIES .' SYS.DIA. L/D = 3.0 -L/D = 5.0 L/D = 7,0-ID CLS. OVERALL Out OVERALL Out OVERALL Out OVERALL Out-1 .2-6 0.0E+00 0.0E+00. 0.0000 0.0000 0.0000 0;0000 0.0000'0.0000 1 8-10 0.0E+00 0.0E+00 0.0000 0.0000 0.0000'0.0000 0.0000 0.0000 l. , 1 12-16 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000'O'.0000.0.0000 1 18-+ 2.3E-06 2.3E-06 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 e l 2 2-6 3 0E-04 3.0E-04 0.4516 0.4516 0.4516 0.4516 0.4516 0.4516 ;; 2 8-10 0.0E+00 0.0E+00 0.0000 0.0000 0.0000'O.0000 0.0000.0.0000 2 12-16 'O.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000;0.0000 j 2 18-+ 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 3 2-6 0.0E+00 0.0E+00 0.0000J0.0000 0.0000 0.0000 0.0000 0.0000, 3 B-10 2.0E-05 0.0E+00' O.0000 0.0000 1.0000 0.0000 1.0000'O.0000- . 3 12-16 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000.0.0000_ ' 3 18-+ 0.0E+00 0.0E+00. 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 4 2-6 0.0E+00 0;0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 4 8-10 2.0E-05'O.0E+00 0.0000 0.0000 0.0000 0.0000 0.000010.0000 4 12-16 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000' , 4 18-+ 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.'0000 0.0000 0.0000 -t 5 2-6 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000'0.0000 0.0000 .i ? 5 8-10 0.0E+00 0.0E+00 0.0000 0.0000 0.000010.0000 0.0000 0.0000' 5 12-16 2.0E-05 1.0E-05 0.0000 0.0000 0.5000'O.0000 1.0000 1.0000 1 i 5 18-+ 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 6 2-6 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000'0~.0000 .! 6 8-10 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 ; 6 12-16 1.0E-05 0,0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 1.0000 0.0000 1.0000 0.0000 l 6 18-+ 3.7E-06 0.0E+00 ; 4 7 2-6 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000- ' 7 8-10 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0E+00.0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 1 7 12-16 1 7 18-+ 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 8 2-6 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 l
)
8 8-10 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 8 12-16 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 I 8 18-+ 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000.0.0000 0.0000 9 2-6 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000-0.0000 0.0000 9 8-10 0.0E+00 0.0E+00: 0.0000 0.0000 0.0000 0.0000 0.0000'O.0000 , 9 12-16 0.0E+00 0.0E+00 0.0000 0.0000 0.0000"0.0000 0.0000 0.0000 '! 9 18-+ 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000-0.0000 0.0000-
- l TOTAL 3.8E-04 3.1E -;
NOMENCLATURE j SYS.ID INITIATING EVENT SYSTEM DESIGNATION : OVERALL OVERALL PROBABILITY OF INITIATING EVENT OCURRENCE ! L/D RATIO OF' TARGET-DISTANCE TO BREAK DIAMETER
SUMMARY
LOCATION CLASS LABEL IS: Out Outside crane wall , b j
.I
, - . . - . _. .- . _ . _. ._. ._ ~g -
. ; s
)
. BLOCKAGE 2.0! Simple Test .
SUKMARY OF FREQUENCIES SYSTEM BASIS - SCREEN AREA _.= 80.0 SQ.FT. .:
.!f FLOW RATE = 10000.0 GPM/ HEAD LOSS =- 4.00 FT.H2O' BREAK FREQUENCIES . SEQUENCE FREQUENCIES SYS. DIAM. .
L/D = 3.0 L/D = 5.0 L/D = 7.0-
.ID OVERALL'Out OVERALL Out . OVERALL Out' OVERALL Out CLS.
'l 2-6 _ 0.0E+00 0.0E+00-0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.DE+00 0.0E+00 ;
1 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00'O.0E+00 0.0E+00 0.0E+00 0.0E+00 1 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 .'i 1 18-+- 2.3E-06 2.3E-06' 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00; 2 2-6 3.0E-04 3.0E-04 1.4E-04 1.4E-04 1.4E-04'1.4E-04 1.4E-04 1.4E-04 i 2 8-10 0.0E+00 0.0E+00 0.0E+00.0.0E+00 0.0E+00 0.0E+00-0.0E+00 0.0E+00' ' 2 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00.0.0E+00 0.0E+00 2 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00-0.0E+00 ' 3 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00.0.0E+00 0.0E+00 3 8-10 2.0E-05 0.0E+00 0.0E+00-0.0E+00 2.0E-05 0.0E+00 2~0E-05 0.0E+00 3 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0'.0E+00 0.0E+00 0.0E+00 3 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 4 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00-0.0E+00 0.0E+00 , 4 8-10 2.0E-05 0.0E+00 0.0E+00 0.0E+00 0.0E+00.0.0E+00:0.0E+00 0.0E+00 f 4 12-16 4 18-+ 0.0E+00.0.0E+00 0.0E+00 0.0E+00-0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 s.0E+00'
-0.0E+00 0.0E+00 0.0E+00 0.0E+00'0.0E+00 0.0E+00
]
5 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00.0.0E+00 0.0E+00 ; 5 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00( u 5 12-16 2.0E-05 1.0E-05 0.0E+00 0.0E+00 1.0E-05 0.0E+00 2.0E-05 1.0E-05. 5 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+001 > 6 2-6 0.0E+00 0.0E+00 -0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00.0.0E+00 ; 6 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00-0.0E+00 0.0E+0010.0E+00 0.0E+00 6 12-16 1.0E-05 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 6 18-+ 3.7E-06 0.0E+00 0.0E+00 0.0E+00 3.7E-06 0.0E+00 3.-7E-06 0.0E+00 f
'7 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00. LI 7 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00- i 7 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 ~ l i
7 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00'O.0E+00 0.0E+00
~
82-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 , 8 8-10 0.DE+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00.0.0E+00 0.0E+00 j 8 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00'0.0E+00 0.0E+00 . 8 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00-9 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 .! 9 8 0.0E+00 0.0E+00 0.0E+00.0.0E+00'0.0E+00 0.0E+00 0 0E+00 0.0E+00 ! 9 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0 0E+00 0.0E+00 9 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00'O.0E+00
.s TOTAL 3.8E-04 3.1E-04 1.4E-04 1. 4E-04 1.7E-04 1. 4E-04 1. 8E 1. 5E-04 ~ r
' NOMENCLATURE ,
r SYS.ID INITIATING EVENT SYSTEM DESIGNATION I ' OVERALL OVERALL PROBABILITY OF INITIATING EVENT OCURRENCE , L/D -RATIO OF TARGET DISTANCE TO BREAK DIAMETER .
SUMMARY
LOCATION CLASS LABEL IS: Out Outside crane wall
'l 3
l j
-t
= - . - . .. , . . .
l J i AN 4
. BLOCKAGE 2.0 - Simple Test
SUMMARY
OF PROBABILITIES DIAMETER BASIS - SCREEN AREA =- 80.0 SQ.FT. '! FLOW RATE =- 10000.0 GPM, HEAD LOSS = 20.00 FT.H2O . BREAK FREQUENCIES SCREEN UNAVAILABILITIES DIA. L/D = 3.0 L/D =.5.0 L/D =:7.0 OVERALL Out IN. OVERALL Out. .OVERALL Out 'OVERALL Out ! 2.0 0.0E+00 0.0E+00- 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000- ' 3.0- 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 4.0 '2.9E-05 -2.9E-05 0.0000 0.0000 0.0000 0.0000 0.0000'0.0000 : 6.0 2.7E-04. 2.7E-04 0.5000 0.5000 0.5000-0.5000 0.5000 0.5000 i 8.0 0.0E+00 0.0E+00 0.0000 0.0000 0.0000.0.0000.0.0000 0.0000 ' 10.0 4.0E-05 0.0E+00- 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 14.0' 2.0E-05 1.0E-05 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 16.0 1,0E-05 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 , 30.0 2.3E-06 0.0E+00 0.0000 0.0000 0.0000 0.0000 0'.0000 0.0000 l 32.0 0.0E*00 0.0E+00 0.0000 0.0000'O.0000 0.0000 0.0000 0.0000
.32.3 0.0E+00 0.0E+00- 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 34.0 2.3E-06 2. 3 E-O t 0.0000 0.0000 0.0000-0.0000 0.0000'O.0000 .;
i 36.3 1.4E-06 0.0E+00~ .0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 TOTAL 3.BE-04 3.1E-04 1
.I o
NOMENCLATURE INITIATING EVENT DIAMETER - INCHES '! DIA. OVERALL OVERALL PROBABILITY OF INITIATING EVENT OCURRENCE r L/D RATIO OF TARGET DISTANCE TO BREAK' DIAMETER SUMMA)Y LOCATION CLASS LABEL IS: Out Outside crane wall L( . i t I
. i, h
'5.
5 I: 1 l l
i I
. i BLOCKAGE 2.0 - Simple Test .
s 80.0 SQ.FT. (!
SUMMARY
OF FREQUENCIES DIAMETER BASIS - SCREEN AREA =
, FLOW RATE = 10000.0- GPM, HEAD LOSS =- 20.00 FT.H2O l
't BREAK FREQUENCIES SEQUENCE FREQUENCIES DIA. L/D = 3.0 L/D = 5.0- L/D = 7.0 IN. OVERALL Out OVERALL Out OVERALL Out OVERALL Out - 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 l 2.0 0.0E+00 0.0E+00. ? 3.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00~0.0E+00 4.0 2.9E-05 2.9E-05 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00.0.0E+00
- 6.0 2.7E-04 2.7E-04 1.4E-04 1.4E-04 1.4E-04 1.4E-04 1.4E-04 1.4E 8.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1 10.0 4.0E-05 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00.
~0.0E+00 0.0E+00 0.0E+00 0.0E+00.0.0E+00 0.0E+00. l 14.0 2.0E-05 1.0E-05 16.0 1.0E-05 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 ')
30.0 2.3E-06 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00' ; 32.0 0.0E+00 0,0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 I 32.3 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00.0.0E+00 0.0E+00 34.0 2.3E-06 2.3E-06 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 i 36.3 1.4E-06 0.0E+00 0.0E+00 0.0E+00 0.0E+00.0.0E+00 0.0E+00 0.0E+00 j TOT 3.8E-04 3.1E-04 1.4E-04 1.4E-04 1.4E-04 1.4E-04 1.4E-04 1.4E-04 c I NOMENCLATURE =) INITIATING EVENT DIAMETER - INCHES :; DIA. OVERALL OVERALL PROBABILITY OF INITIATING EVENT OCURRENCE ' t L/D RATIO OF TARGET DISTANCE TO BREAK DIAMETER LI
SUMMARY
LOCATION CLASS LABEL IS: Out Outside crane wall -{ . T
'I t
f i i
'I
.f
'l :
o!
=.
r
! .f i i
'{.
i
, . -. . ~ _ - _ . - . .. - _- . ... - . - - - . _ .
/!
Y1 BLOCKAGE 2.0'- Simple Test. .
SUMMARY
OF PROBABILITIES SYSTEM BASIS - SCREEN AREA = 80.0 SQ.FT. -{ FLOW RATE = -10000.0 GPM, HEAD LOSS = 20.00 FT.H20- i EREAK FREQUENCIES SCREEN UNAVAILABILITIES ?
'SYS.DIA. L/D =.3.0 L/D = 5.0 L/D = 7.0' ID' CLS. OVERALL Out OVERALL Out OVERALL Out OVERALL Out i 1 2-6 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 1 1 8-10 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.00001 '!
1 12-16 0.0E+00 0.0E+00 0.0000.0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000'0.0000 0.0000 0.0000 l 1 18-+ 2.3E-06 2.3E-06 t 2 2-6 3.0E-04 3.0E-04 0.4516 0.4516 0.4516 0.4516 0.4516 0.4516 ' 2 B-10 0.0E+00 0.0E+00 0.0000 0.0000'O.0000 0.000010.0000 0.00001 2 12-16 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 '!
~2 18-+ 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000:0.0000 0.0000
- 3 2-6 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 f 3 8-10 2.0E-05 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000: l 3 12-16 0.0E+00 0.0E+00 !
3 18-+ 0.0E+00 0.0E+00 0.0000.0.0000 0.0000 0.0000 0.0000 0.0000-4 2-6 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.'0000 ! 4 8-10 2.0E-05'O.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 4 12-16 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000:
-4 18-+ 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0'0000 .' 0.0000 5 2-6 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 O.0E+00 0.0E+00 '0.0000 0.0000 0.0000 0.0000 0.0000 0.0000' ,
5 8-10' ! 5 12-16 2.0E-05 1.0E-05 0.0000 0.0000 0.0000 0.0000 0.0000.0.0000 5 18-+ 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 ! 6 2-6 0.0E+00 0.0E+00 0.0000 0.0000 0 0000 0.0000 0.0000 0.0000 6 8-10 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 6 12-16 1.0E-05 0.0E+00 .0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 6 18-+ 3.7E-06 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 7 2-6 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 7 8-10 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 l 7 12-16 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 7 18-+ 0.DE+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000.0.0000 8 2-6 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 t 8 8-10 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000.0.0000 0.0000 Li 8 12-16 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 8 18-+ 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 l 9 2-6 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 l 9 B-10 0.0E+00 0.0E+00 0.0000 0.0000 0.0000'O.0000 0.0000 0.0000 t! 9 12-16 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 9 18-+ 0.0E+00 0.0E+00 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 TOTAL 3.8E-04 3.1E-04 )
')
NOMENCLATURE SYS.ID INITIATING EVENT SYSTEM DESIGNATION OVERALL OVERALL PROBABILITY OF INITIATING EVENT OCURRENCE L/D RATIO OF TARGET DISTANCE TO BREAK DIAMETER.
SUMMARY
LOCATION CLASS LABEL IS: Out Outside crane wall B
)
i 1 j >
BLOCKAGE 2.0 - Simple Test
SUMMARY
-OF FREQUENCIES SYSTEM BASIS'- SCREEN AREA'= 80'0 SQ.FT. FLOW RATE = 10000.0 GPM, HEAD LOSS = 20.00 FT.H2O BREAK FREQUENCIES SEQUENCE FREQUENCIES SYS. DIAM. L/D = 3.0 L/D = 5.0 L/D = 7.0 ID CLS. OVERALL Out' OVERALL Out OVERALL Out OVERALL Out 1 2 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0,0E+00 0.0E+00 1 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00-0.0E+00 0.0E+00.0.0E+00
'1 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00_0.0E+00 0.0E+00'O.0E+00 _
J 1 18-+ 2.3E-06 2.3E-06 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 ' 2 2-6 3.0E-04 3.0E-04 1.4E-04 1.4E-04 1.4E-04.1.4E-04 1.4E-04 l'.4E-04 2 8-10 0 '0E+00 0.0E+00 '0.0E+00 0.0E+00 0.0E+00 0.0E400 0.0E+00 0.0E+00: , 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 7, 2 12-16 0.0E+00 0.0E+00 2 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.'0E+00 0.0E+00 0.0E+00 3 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00' o 3 8-10 2.0E-05 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00.0.0E+00 0.0E+00. l f 3 12-16 0.0E+00 0.0E+00 0.0E+00.0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00' 3 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 < 4 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00~0.0E+00. 4 3 0.0E+00 0.0E+00 0.0E+00 0.0E+00.0.0E+00'0.0E+00 : 4 8-10 2.0E-05 0.0E+00 4 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00.0.0E+00 0.0E+00'O.0E+00/0;0E+00 1 4 18-+ 0.0E+00 0.0E+00' O.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00: 0.0E+00-5 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 5 8-10 0.0E+00 0.0E+00' O.0E+00 0.0E+00 0.0E+00-0-0E+00'0.0E+00 0.0E+00-5 12-16 2.0E-05 1.0E-05 0.0E+00 0.0E+00 0.0E+00.0.0E+00 0.0E+00 0.0E+00' l 5 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 'I 62-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00'O.0E+00 0.0E+00 0.0E+00 0.0E+00 6 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0'.'0E+00'0.0E+00 0.0E+00 , 6 12-16 1.0E-05 0.0E+00 0.0E+00 0.0E+00'O.0E+00 0.0E+00 0.0E+00 0.0E+00 i 6 18-+ 3.7E-06 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 ' 7 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 7 8-10 0.0E+00-0.0E+00 0.0E+00 0.0E+00'0,0E+00 0'.0E+00 0.0E+00 0.0E+00 7 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0F+00 0.0E+00 0.0E+00 0.0E+00 ; 7 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 8 2-6 .0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 8 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 . 8 12-16 0.0E+00 0.0E+00 0.0E+00'O.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 .
~l 8 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 9 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00'O.0E+00 0.0E+00-9 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E400 "
9 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00.0.0E+00 0.0E+00 0.0E+00-9 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00.0.0E+00 0.0E+00 -; TOTAL 3.BE-04 3.1E-04 1.4E-04~1.4E-04 1.4E-04 1.4E-04 1.4E-04 1.4E-04' ; NOMENCLATURE , SYS.ID INITIATING EVENT SYSTEM DESIGNATION l
.OVERALL OVERALL PROBABILITY OF INITIATING EVENT OCURRENCE' L/D RATIO OF TARGET DISTANCE TO BREAK DIAMETER *
SUMMARY
LOCATION CLASS LABEL IS: O Out Outside crane wall
't f
a
~, ., %.. -.
O i
'f BLOCKAGE 2.0 - Simple Test ,
OVERALL.
SUMMARY
TABLE t SCREEN BLOCKAGE FREQUENCY HL -- ECCS- SCREEN L/D = 3.0 L/D = 5.0 L/D = 7.0 I FT- FLOW AREA. OVERALL OVERALLJ -OVERALL GPM SOFT 3.90 10000.0 80.0 1.4E-04 1.7E-04 1.8E-04 > . 4.00 10000.0 80 0 1.4E-04 1.7E-04 1.8E-04. 20.00 10000.0 .80.0 1.4E-04 1. 4 E-0 4- 1.4E-04 , i NOMENCLATURE HL ALLOWABLE HEAD LOSS ECCS FLOW ECCS RECIRCULATION FLOW RATE , SCREEN AREA ECCS SCREEN AREA L/D RATIO OF TARGET DISTANCE TO BREAK DIAMETER i I1 m j
'k
.1 e
i i i I 4 n 1 i I
\' ,- = . - . . - -. ,- .
, , . ,_ . - . - - . . . . - . . . - - . . .. . - - - ~.
E i BLOCKAGE . 2.'O -: Siraple Test
SUMMARY
TABLE BY LOCATION CLASS. SCREEN BLOCKAGE FREQUENCY HL ECCS SCREEN L/D = 3.0 L/D = 5.0 L/D = 7.0.
-FT FLOW AREA Out Out- Out GPM !
SQFT 3.90 10000.0 80.0 1.4E-04 -1 4E-04~ ~1.5E 4.00 10000.0 80.0 1.4E-04 ,1.4E 1.5E-04 > 20.00 -10000.0 80.0 1.4E-04 1.4E-04 21'4E-04
. NOMENCLATURE HL ' ALLOWABLE HEAD LOSS ECCS FLOW ECCS RECIRCULATION FLOW RATE SCREEN AREA ECCS SCREEN AREA L/D RATIO OF TARGET DISTANCE TO BREAK DIAMETER
SUMMARY
LOCATION CLASS IS: Out Outside crane wall ; t
?
e
~!
P
=I
~
t 4 e 7 r A
-[
!L ,
. e,. , e
1 i i
~!
-l APPENDIX III SAMPLE OUTPUTS FROM BLOCKAGE 1.0 AND BLOCKAGE 2.0
.h i
' BLOCKAGE 1.0 - TARGET
SUMMARY
TABLE L/D=3. L/ D= 5 L/D=7
' WELD TARG TARG INSUL INSUL REF. TARGET . ~ TARGET ' TARGET ID NO DIAM TYPE THICK LENGTH &VOL LENGTH &VOL- LENGTH &VOL 4A 1 34.00 RM 3.50 28 1.00 2.9 1.00 -2.9 1.00 2.9-4A 2 138.00 RM 3.50 28 6.00 64.8 6.00 64.8 6.00 o64.8 4A 3 138.00 SE 3.50 28 2.33 25.2 8.00. 86.4 13.67 147.7 44 A 4 3.00 FE 1.50 26 3.00 0.4 9.25- 1.4 0.00 0.0 4A. 5 2.00 SE 1.00 33 0.00 0.0 0.00 0.0 2.00 0.1 4A 6 138.00 RM 3.50 28 0.00 0.0 0.00 0.0 6.00 -64.8 4A 7 138.00 SE 3.50 28 0.00 0.0 0.00 10.0 13.6'/1147.7 4A 8 3.00 FE 1.50 26 1.83 0.3 1.83 0.3 1.83' O.3 4A 9 2.00 FE 1.50 26 0.00 0.0 0.00 0.0. 12.25. 1.4 4A 10 10.00 FE 1.50 25 0.00- 0.0 0.00 0.0 10.92 .4.1 4A 11 36.32 RM 3.50 28 0.00 0.0 19.00 57.8 29.50L 89.7 4A 12 0.75 SE 2.00 26 1.50 0.2 1.50 0.2 1.50. 0.2 4A 13 2.00 AS 3.00 16 0.00 0.0 0.00 0.0 13.58- 'O.9:
4A 14 10.00 FE :. 50 37 0.00 0.0 .0.00- 0.0 11.66. 4.4 4A 15 81.00 RM 3.00 28 0.00 0.0 0.00 0.0 26.00 142.9 4A 16 0.75 SE 2.00 26 1.50 0.2 1.50 0.2 1.50 0.2~ 4A 17 1.00 SE 1.00 32 0.00 0. 0. 0.00 0.0 2.25 0.1 4A 18 6.00 FE 1.50 37 0.00 0.0 0.00 0.0 4.75 -1.2: 4A 19 32.26 RM 3.50 28 0.00 0.0 0.00 0.0 1.33 3.6 4A 20 2.00 FE 1.50 26 4.75 0.5 6.75. 0.8. 6.75 0.8 4A 21 0.75 SE 1.00 32 0.00 0.0 0.00 0.0 4.00 0.2 4A 22- 3.00 FE 1.55 26 0.00 0.0 0.00 0.0 9.25- 1.4. 4A 23 2.00 AS 1.10 16 0.00 0.0 2.33~ 0.2: 0.00 0.0-4B 1 34.00'RM 3.50 28 10.75 30.8 11.00 31.5 11.00- 31.5 4B 2 32.26 RM 3.50 28 0.00 0.0 0.00 0.0 12.67 34.6 4B 3 81.00 RM 3.00 28 0.00 0.0 0.00 0.0 '26.00 142.9 4B 4 34.00 RM 3.50 28 0.00 0.0 0.00 0.-0 11.00- 31.5 4B 5 138.00 RM 3.50 28 0.00 0.0 0.00 0.0 6.00 64.8
.4B 6 138.00 SE 3.50 28 0.00 0.0 .0.00 0.0 13.67 147.7 o4 B 7 2.00 SE 1.50 4 12.00 1.4 12.'00 1.4 12.00 1.4 4B 8 1.00 SE 1.50 4 0.00 0.0- 2.50 0.2 2.50 0.2 4B 9 2.00 FE 1.50 26 0.00 0.0 9.50' 1.1 9.50. 1.1 4B 10 0.75 FE 2.00 26 0.00 0.0 1.50 0.2 1.50 0.2 4B 11 0.75 FE 2.00 26 0.00 0.0 1.50 0.2 1.50 0.2 4B 12 3.00 FE 1.50 26 9.50 1.4 9.50 1.4 9.50 1.4 4B 13' 2.00 FE 1.50 26 9.42 1.1 9.42, 1.1 9.42 -1.1 4B 14 1.00 FE 1.50 26 12.25 1.0 12.25 1.0 12.25 -1. 0 4B 15 0.75 FE 2.00 26 1.25 0.1 1.25 0.1 1.25' O.1' 4B 16 2.00 FE 1.50 26 0.00 0.0 0.00 0.0 6.67 0.8 4B 17 1.00 SE 1.00- 32 0.00 0.0 0.00 0.0 6.75 0.3 4B 18 6.00 RM 3.00 25 6.50 3.8 8.83 5.2 8.83 5.2 4B 19 1.00 SE 2.00 25 1.00 0.1 1.00 0.1 l'.00 0.1 4B 20 1.50 FE 1.50 37 0.00 0.0 1.50 0.1 1.50 0.1 4B 21 10.00 RM 3.00 25 0.00 0.0 0.001 0.0. 20.58 17 .
4B 22 10.00 FE 1.50 25 0.00 0.0 0.00 0.0 0.50_ 0.2 -5 1 36.32 RM 3.50 28 9.08 27.6 26.50- 80.6 '26.50 80.6 5 2 32.26 RM 3.50 28 0.00 0.0 8.50- 23.2 15.50' 42.3-5 3 81.00 RM 3.00 28 0.00 0.0 22.58 124.1 25.83 142.'O 5 4 3.00 FE 1.50 26 1.75 0.3 1.75- 0.3 1.75 0.3 5 5 2.00 FE' 1.50 26 . 1,58 0.2- 1.58 0.2 1.58 0.2' 3 6 3.00 FE 1.50 26 13.00 1.9 16.00 2.4 16.00 2.4
J ,_. a_ -_ _ - :_ w pa.a.
- f BLOCKAGE 2.0 - TARGET
SUMMARY
TABLE INCREMENTAL DESTRUCTION FRACTIONS: 1.00- 1.00- 1.00
. L/ Do3 . 0 L/D= 5. 0 &/D=7.0 WELD TARG TARG INSUL INSUL REF. - TARGET . TARGET TARGET ID NO DIAM TYPE . THICK LENGTH &VOL' LENGTH &VOL LENGTH &VOL-3B 16 0.75 FE 2.00 '26 1.25 0.1 1.25 0 .1 - 0.00 0.0 4A 1 34.00 RM 3.50 28 1.00 2.9 1.00 2.9 1.00 2.9 4A 2 138.00 RM 3.50 28 6.00 64.8 6.00 64.8 6.00 64.8 4A 3'138.00 SE 3.50 28 2.33 25.2 8.00 86.4 13.67 147.7 4A 4 3.00 FE 1.50 26 3.00 0.4 9.25 1.4 0.00 0.0 4A 5 2.00 SE 1.00 33 0.00 0.0 0.00 0.0 2.00 0.1 4A 6 138.00 RM 3.50 28 0.00 0 .10 .0.00 0.0 6.00 H64.8 4A 7 138.00 SE 3.50 28 0.00 0.0 0.00 0.0 13.67 147.7 4A 8 3.00 FE 1.50 26 1.83 0.3 1.83 0.3 1.83 0.3 4A H2.00 FE 1.50 26 0.00- 0.0 0.00 0.0 12.25. 1.4.
4A 109 '10.00 FE 1.50 25 0.00 .0.0 0.00 0. 0' 10.92 4.1 4A 11 36.32 RM 3.50 28 0.00 0.0 19.00- 57.8 29.50 89'7. 4A 12 0.75 SE 2.00 26 1.50 0.2 1.50 0.2 1.50' O.2 4A 13 2.00 AS 1.00 16 0.00 0.0 0.00 0.0 13.58 'O.9. 4A 14 10.00 FE 1.50 37 0.00 0.0- 0.00 0.0 11.66 4.4' 4A 15 81.00 RM 3.00 28 0.00 0.0 0.00 0.0 26.00 142.9 4A 16 0.75 SE 2.00 .26 1.50 0.2 1.50 0.2~ 1.50 0.2-4A 17 1.00 SE 1.00 32 0.00 0.0 0.00 0.0 2.25_ 0.1 4A 18 6.00 FE 1.50 37 0.00 0.0 0.00 0.0 4.75 1.2 4A 19 32.26 RM -3.50 28 0.00 0.0 0.00 0.0 1.33 3.6 4A 20 2.00 FE 1.50 26 4.75 0.5 6.75 0.8 6.75 0. 8-4A 21 0.75 SE 1.00 32 0.00 0.0 0.00 0. 0. 4.00 0.2 4A 22 3.00 FE 1.55 26 0.00 0.0 0.00 0.0 9.25 1.4 4A 23 2.00 AS 1.10 16 0.00 0.0 2.33 0.2 0.00 0.0' 4B 1 34.00 RM 3.50 28 10.75 -30.8 11.00 31.5. 11.00 31.5 4B 2 32.26 RM 3.50 28 0.00 0.0 0.00 0.0 12.67 34.6-4B 3 81.00 RM 3.00 28 0.00 0.0 0.00 0.0 26.00 142.9 4B 4 34.00 RM 3.50- 28 0.00 0.0 0.00 0.0- 11.00 31.5 4B 5 138.00 RM 3.50 28 0.00 0.0 0.00 0.0 6.00 64.8 4B 6 138.00 SE 3.50 28 0.00 0.0 0.00 0.0 13.67 147.7-4B 7 2.00 SE 1.50 4 12.00 1.4 12.00 1.4 12.00 1.4 4B 8 1.00 SE 1.50 4 0.00 0.0 2.50 0.2 2.50 0.2 4B 9 2.00 FE 1.50 26 0.00 0.0. 9.50 1.1 9.50 1.1 4B 10 0.75 FE 2.00 26 0.00 0.0 1.50 0.2 1.50 0.2 4B 11 0.75 FE 2.00 26 0.00 0.0 1.50 0.2 1.50 0.2 4B 12 3.00 FE 1.50 26 9.50 1.4 9.50 1.4 9.50 1.4 4B 13 2.00 FE 1.50 26 9.42 1.1 9.42 1.1 9.42 1.1-4B 14 1.00 FE 1.50 26 12.25 1.0 - 12.25 1.0 12.25 1.0 4B 15 0.75 FE 2.00 26 1.25 0.1
- 1.25 0.1 1.25 0.1 4B 16 2.00 FE 1.50 26 0.00 0.0 0.00 0.0 6.67 0.8 4B 17 1.00 SE 1.00 32 0.00 0.0 0.00 0.0 6.75 0.3 4B 18 6.00 RM 3.00 25 6.50 3.8 8.83 :5.2 8.83 '5. 2 4B 19 1.00 SE 2~.00 25 1.00 0.1 1.00 0.1. 1.00 0.1 IB 20 1.50 FE 1.50 37 0.00 0.0 1.50 0.1 1.50 0.1 4B 21 10.00 RM 3.00 25 0.00 0.0 0.00 0.0 20.58 17.5 4B 22 10.00 FE 1.50 25 0.00 0.0 0.00 0.0 0.50' O.2 5 1 36.32 RM 3.50 28 9.08 27.6' 26.50 80.6 246 . 5 0 80.6.
5 2 32.26 RM 3.50 28 0.00 0.0 8.50 23.2 15.50 .47.3 5 3 81.00 RM 3.00 28 0.00 0.0 22.58 124.1 25.83 142.0
'i 4 3.00 FE 1.50 26 1.75 0.3 1.75 0.3- -1.75 0.3-
BLOCKAGE 1.0 - Qualification Test for BLOCKAGE 1.0 - in ; OVERALL
SUMMARY
TABLE SCREEN BLOCKAGE FREQUENCY HL ECCS SUMP L/D = 3.0 L/ D = 5 .~ 0 L/D = 7.0 FT FLOW AREA OVERALL -OVERALL -OVERALL GPM SQFT 1.00 6000'.0 50.0 1.5E-05 2.2E-05 3.3E-05 1.00 6000'0
. 75.0 8.5E-06 1.6E-05 2.2E-05 1.00 6000.0 100.0 4.2E-06 -8.7E-06 2.2E-05 1.00 6000.0 200.0 3.1E-06 6.4E-06 7.9E-06 1.00 8000.0 50.0 2.0E-05 3.8E-05 5.0E-05 1.00 8000.0 75.0 1.4E-05 1.6E-05 2.8E-05 1.00 8000.0 100.0 5.9E-06 1.6E-05 2.2E-05 1.00 8000.0 200.0 3.2E-06 6.8E-06 8.9E-06 1.00 10000.0 50.0 2.0E-05 4.5E 5.9E-05 1.00 10000.0 75.0 1.4E-05 1.7E-05 2.8E-05 ,
1.00 10000.0 100.0 7.7E-06 1.6E-05 2.2E-G5 ' 1.00 10000.0 200.0 3.8E-06 7.1E-06 1.1E-05 2.00 6000.0 50.0 1.4E-05 1.6E-05 2.8E-05 4 2.00 6000.0 75.0 4.2E-06 1.2E-05 2.2E-05 I 2.00 6000.0 100.0 4.2E-06 7.1E-06 1.6E-05 2.00 6000.0 200.0 3.0E-06 6.2E-06 7.5E-06 2.00 8000.0 50.0 1.5E-05 2.2E-05 3.1E-05 2.00 8000.0 75.0 6.7E-06 1.6E-05 2.2E-05 2.00 8000.0 100.0 4.2E-06 8.7E-06 2.0E-05 2.00 8000.0 200.0 3.1E-06 6.3E-06 7.9E-06 2.00 10000.0 50.0 1.5E-05 2.3E-05 4.7E-05 2.00 10000.0 75.0 1.1E-05 1.6E-05 2.3E-05 2.00 10000.0 100.0 4.2E-06 1.1E-05 2.2E-05 ; 2.00 10000.0 200.0 3.1E-06 6.6E-06 8.1E-06 5.00 6000.0 50.0 6.7E-06 1.6E-05 2.2E-05 5.00 6000.0 75.0 4.2E-06 7.1E-06 1.6E-05 5.00 6000.0 100.0' 3.5E-06 7.0E-06 8.9E-06 5.00 6000.0 200.0 0.0E+00 5.6E-06 7.5E-06 5.00 8000.0 50.0 1.1E-05 1.6E-05 2.4E-05 5.00 8000.0 75.0 4.2E-06 8.7E-06 2.0E-05 5.00 8000.0 100.0 3.8E-06 7.1E-06 1.5E-05 5.00 8000.0 200.0 3.0E-06 6.0E-06 7.5E-06 ,; 5.00 10000.0 50.0 1.4E-05 1.6E-05 2'.8E-05 5.00 10000.0 75.0 4.2E-06 1.3E-05 2.2E-05 5.00 10000.0 100.0 4.2E-06 7.1E-06 1.6E-05 ; 5.00 10000.0 200.0 3.0E 6.2E-06 7.5E-06 NOMENCLATURE HL ALLOWABLE HEAD LOSS ECCS FLOW ECCS RECIRCULATION FLOW RATE , SUMP AREA ECCS SUMP SCREEN AREA L/D RATIO OF TARGET DISTANCE TO BREAK DIAMETER t 1 b
. . . .. ~ =_ . - . .
BLOCKAGE:1.0 - Qualification ~ Test for BLOCKAGE 1.0.- in ]
SUMMARY
TABLE BY LOCATION CLASS ; SCREEN BLOCKAGE FREQUENCY j HL ECCS SUMP .L/D = 3.0 L/D = 5. 0 L/D = 7. 0 ) FT FLOW AREA IP IP IP I GPM SOFT l 1.00 6000.0- 50.0 1.1E-05 1.75-05 .2.8E-05 l c 1.00 6000.0 75.0 5.7E-06 1.2E-05 1.8E-05 ~l 1.00 6000.0 100.0 3.1E-06 6.7E-06 1.BE-05 ' 1.00 6000.0 200.0 2.9E-06 5.9E-06 6.9E-06 1.00 8000.0 50.0 1.6E-05 3.3E-05 4.5E-05 . 1.00 8000.0 75.0 9.1E-06 1.2E-05~ 2.4E-05 ! 1.00 8000.0 100.0 3.9E-06 1.2E-05 1.8E-05 1.100 8000.0 200.0 2.9E-06 5.9E-06 7.7E-06 .; 1.00 10000.0 50.0 1.6E-05 4.'1E-05 5.4E-05 1.00 10000.0 75.0 9.9E-06 1.2E-05 2.4E-05 1.00 10000.0 100.0 4.8E-06 1.2E-05 1.8E-05 ! 1.00 10000.0 200.0 3.1E-06 5.9E-06 9.4E-06 l
.:2.00 6000.0 50.0 9.9E-06 1.2E-05 2.4E-05 2.00 ;300.0 75.0 3.1E-06 9.2E-06 1.8E-05 2.00 6000.0 100.0 3.1E-06 5.9E-06 1.4E-05 2.00 6000.0 200.0 2.9E-06 5.8E-06 6.9E-06 i 2.00 8000.0 50.0 1.1E-05 1.7E-05 2.7E-05 I
2.00 8000.0 75.0 4.7E-06 1.2E-05 1.8E-05 2.00 8000. 100.0 3.1E-06 6.7E-06 1.6E-05 i 2.00 8000.t 200.0 2.9E-06 5.9E-06 6.9E-06 l 2.00 10000.0 50.0 1.1E-05 1.8E-05 4.3E-05 t J 2.00 10000.0 75.0 7.4E-06 1.2E-05 1.8E-05 i 2.00 10000.0 100.0 3.1E-06 9.2E-06 1.8E-05 L 2.00 10000.0 200.0 2.9E-06 5.9E-06 6.9E-06 ; 5.00 6000.0 50.0 4.7E-06 1.2E-05 1.8E-05 5.00 6000.0 75.0 3.1E-06 5.9E-06 1.5E-05 I 5.00 6000.0 100.0 3.1E-06 5.9E-06 7.7E-06 5.00 6000.0 200.0 0.0E+00 5.3E-06 6.9E-06 5.00 8000.0 50.0 7.4E-06 1.2E-05 1.9E-05 , 5.00 8000.0 75.0 3.1E-06 6.7E-06 1.7E-05 5.00 8000.0 100.0 3.1E-06 5.9E-06 1.3E-05 ; 5.00 8000.0 200.0 2.9E-06 5.7E-06 6.9E-06 i 5.00 10000.0 50.0 9.9E-06 1.2E-05 2.4E i 5.00 10000.0 75.0 3.1E-06 9.2E-06 1.8E-05
- 5.00 10000.0 100.0 3.1E-06 5.9E-06 1.4E-05 5.00 10000.0 200.0 2.9E-06 5.8E-06 6.9E-06 -
NOMENCLATURE , HL ALLOWABLE HEAD LOSS ECCS FLOW ECCS RECIRCULATION FLOW RATE , SUMP AREA ECCS SUMP SCREEN AREA 1 L/D RATIO OF' TARGET DISTANCE TO BREAK DIAMETER ,
SUMMARY
LOCATION CLASS IS: IP Primary systems in crane wall i f t I
?
+-..
'l
. BLOCKAGE 2.0 - Qual. Test for BLOCKAGE 2.0/ Weld' -;
OVERALL
SUMMARY
TABLE I SCREEN' BLOCKAGE FREQUENCY HL ECCS SCREEN L/D = 3.O' L/ D = 5. 0 L/ D = 7. 0 FT FLOW AREA OVERALL OVERALL OVERALL ; GPM SQFT 1.00 6000.0 50.0 1.5E-05 2.2E-05 3.3E-05 6000.0 75.0 8.5E-06 1.6E-05 2.2E-05 l 1.00 1.00 6000.0 100.0 4.2E-06 8.7E-06 2.2E-05 ! 1.00 6000.0 200.0 3.1E-06 6.4E-06 7.9E-06 1.00 8000.0 50.0 2.0E-05 3.8E-05 5.0E-05 1.00 8000.0 75.0 1.4E-05 1.6E-05 2.8E-05 i 1.00 8000.0 100.0 5.9E-06 1.6E-05 2.2E l 1.00 8000.0 200.0 3.2E-06 6.8E-06 8.9E-06~ .! 1.00 10000.0 50.0 2.0E-05 4.SE-05 5.9E-05 l 1.00 10000.0 75.0 1.4E-05 1.7E-05 2.8E i 1.00 10000.0 100.0 7.7E-06 1.6E-05 2.2E-05 1.00 10000.0 200.0 3.8E-06 7.1E-06 1.1E-05 j 2.00 6000.0 50.0 1.4E-05 1.6E-05 2.8E-05 ; 2.00 6000.0 75.0 4.2E-06 1.2E-05 '2.2E-05 2.00 6000.0 100.0 4.2E-06 7.1E-06 1.6E-05 2.00 6000.0 200.0 3.0E-06 6.2E 7.5E-06 .! 2.00 8000.0 50.0 1.5E-05 2.2E-05 3.1E-05 ! 2.00 8000.0 75.0 6.7E-06 1.6E-05 2.2E-05 .; 2.00 8000.0 100.0 4.2E-06 8.7E-06 2.0E-05 ! 2.00 8000.0 200.0 3.1E-06 6.3E-06 -7.9E-06 ; 2.00 10000.0 50.0 1.5E-05 2.3E-05 4.7E-05 ) 2.00 -10000.0 75.0 1.1E-05 1.6E-05 2.3E-05 ; 2.00 10000.0' 100.0 4.2E-06 1.1E-05 2.2E-05 ; 2.00 10000.0 200.0 3.1E-06 6.6E 8.iE-06 5.00 6000.0 50.0 6.7E-06 1.6E-05 2.2E-05 : 5.00 6000.0 75.0 4.2E-06 7.1E-06 '1.6E-05 ! 5.00 6000.0- 100.0 3.5E-06 7.0E-06 8.9E-06 .l 5.00 6000.0 200.0 0.0E+00 5.6E-06 7.5E-06 ! 5.00 8000.0 50.0 1.1E-05 1.6E-05 2.4E-05 e 5.00 8000.0 75.0 4.2E-06 8.7E-06 2.0E-05 l 5.00 8000.0 100.0 3.8E-06 7.1E-06 1.5E-05 l 5.00 8000.0 200.0 3.0E-06 6.0E-06 7.5E-06 l 5.00 10000.0 50.0 1.4E-05 1.6E-05 2.8E-05 - 5.00 10000.0 75.0 4.2E-06 1.3E-05 2.2E-05 i 5.00 10000.0 100.0 4.2E-06 7.1E-06 1.6E-05 , a 5.00 10000.0 200.0 3.0E-06 6.2E-06 7.5E-06 NOMENCLATURE i HL ALLOWABLE HEAD LOSS : ECCS~ FLOW ECCS RECIRCULATION FLOW RATE -l SCREEN AREA ECCS SCREEN AREA ; L/D RATIO OF TARGET DISTANCE TO BREAK DIAMETER
-i r
BLOCKAGE 2.0 - Qual. Test for-BLOCKAGE 2.0/ Weld. .
SUMMARY
TABLE BY LOCATION CLASS SCREEN BLOCKAGE FREQUENCY ; HL ECCS SCREEN L/D = 3.0 L/D = 5. 0 L/D = 7.0 i PT FLOW AREA IP IP IP ; GPM SQFT . 1.00 6000.0 50.0 1.1E-05 1.7E-05 2.8E-05 } 1.00 6000.0 75.0 5.7E-06 1.2E-05 1.8E-05 l 1.00 6000.0 100.0 3.1E-06 6.7E-06 1.8E-05 , 1.00 6000.0 200.0 2.9E-06 5.9E-06 6.9E-06 1.00 8000.0 50.0 1.6E-05 3.3E-05 4.5E-05 ; 1.00 8000.0 75.0 9.1E-06 1.2E-05 2.4E-05 1.00 8000.0 100.0 3.9E-06 1.2E-05 1.8E-05 1.00 8000.0 200.0 2.9E-06 5.9E-06 7.7E-06 ; 1.00 10000.0 50.0 1.6E-05 4.1E-05 5.4E-05 1.00 10000.0 75.0 9.9E-06 -1.2E-05 2.4E-05 ! 1.00 10000.0- 100.0 4.8E-06 1.2E-05 1.8E-05 .: 1.00 10000.0 200.0 3.1E-06 5.9E-06 9.4E-06 ! 2.00 6000.0 50.0 9.9E-06 1.2E-05 2.4E-05 2.00 6000.0 75.0 3.1E-06 9.2E-06 1.8E-05 1 2.00 6000.0 100.0 3.1E-06 5.9E-06 1.4E-05 2.00 6000.0 200.0 2.9E-06 5.8E-06 6.9E-06 ; 2.00 8000.0 50.0 1.1E-05 1.7E-05 2.7E-05 ; 2.00 8000.0 75.0 4.7E-06 l'.2E-05 1.8E-05. j 2 00 8000.0 100.0 .3.1E-06 6.7E-06 '1.6E-05 2.00 8000.0 200.0 2.9E-06 5.9E-06 6.9E-06 ! 2.00 10000.0 50.0 1.1E-05 1.8E-05 4.3E-05 .i 2;00 10000.0 75.0 7.4E-06 1.2E-05 1.8E-05 ! 2.00 10000.0 100.0 3.1E-06 9.2E-06 1.8E-05 l 2.00 10000.0 200.0 2.9E-06 5.9E-06 6.9E-06 , 5.00 6000.0 50.0 4.7E-06 1.2E-05 1.8E-05 5.00 6000.0 75.0 3.1E-06 5.9E-06 1.5E-05 !
- 5.00 6000.0 100.0 3.1E-06 5.9E-06 7.7E-06 .i 5.00 6000.0 200.0 0.0E+00 5.3E-06 6.9E-GS ?
5.00 8000.0' 50.0 7.4E-06 -1.2E-05 1.9E-05 5.00 8000.0 75.0 3.1E-06 6.7E-06 1.7E-05 5.00 8000.0 100.0' 3.1E-06 5.9E-06 1.3E-05 I 5.00 8000.0 200.0 2.9E-06 5.7E-06 6.9E-06 5.00 10000.0 50.0 9.9E-06 1.2E-05 2.4E-05 [' 5.00 10000.0 75.0 3.1E-06 9.2E-06 1.8E-05 5.00 10000.0 100.0 3.1E-06 5.9E-06 1.4E-05 5.00 10000.' 200.0 2.9E-06 5.8E-06 6.9E-06 ! t NOMENCLATURE j HL ALLOWABLE HEAD LOSS ECCS FLOW ECCS RECIRCULATION FLOW RATE SCREEN AREA ECCS SCREEN AREA f L/D RATIO OF TARGET DISTANCE TO BREAK DIAMETER ;
SUMMARY
LOCATION CLASS IS: f Primary systems in. crane wall IP I i
BLOCKAGE 1.0 - Qualification Test ~for BLOCKAGE 1.0 - in SEQUENCE FREQUENCY BY DIAMETER - SCREEN AREA = 200.0 SQ.FT.' FLOW RATE =- 10000.0 GPM, HEAD LOSS = 5.00 FT.H20, L/D = 7.0 DIAM OVERALL IP Out In Prim Sec
- 2. 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00
- 3. 0.0E+00 0.0E+00- 0.0E+00 0.0E+00 0.0E+00 0.0E+00
- 4. 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00
- 6. 0.0E+00 0.0E+00 C,0E+00 0.0E+00 0.0E+00 0.0E+00
- 8. 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00
- 10. 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00
- 14. 3.3E-06 3.3E-06 0.0E+00 3.3E-06 3.3E-06 0.0E+00
- 16. 2.9E-06 2.9E-06 0.0E+00 2.9E-06 2.9E-06 0.0E+00
- 30. 4.7E-07 0.0E+00 5.2E-08 4.1E-07 0.0E+00 4.7E-07
- 32. 1.3E-07 0.0E+00 0.0E+00 1.3E-07 0.0E+00 1.3E-07
- 32. 2.6E-07 2.6E-07 0.0E+00 2.6E-07 2.6E-07 0.0E+00
- 34. 3.6E-07 3.6E-07 0.0E+00 3.6E-07 3.6E-07 0.0E+00
- 36. 1.3E-07 1.3E-07 0.0E+00 1.3E-07 1.3E-07 0.0E+00 TOTAL 7.5E-06 6.9E-06 5.2E-08 7.5E-06 6.9E-06 5.9E-07 NOMENCLATURE DIAM DIAMETER OF INITIATING EVENT - INCHES OVERALL OVERALL SEQUENCE FREQUENCY IP Primary systems in crane wall Out Outside crane wall In Inside crane wall Prim Primary systems Sec Secondary systems
, . .~ . . .- , - - . . - - . . - . .- - . _ . BLOCKAGE 2.0 - Qual. Test for BLOCKAGE 2.0/ Weld i
-SEQUENCE FREQUENCY BY DIAMETER - SCREEN AREA = 200.0 SQ.FT..
FLOW RATE = 10000.0 GPM, HEAD LOSS = 5.00 FT.H20, L/ D = 7. 0' DIAM- OVERALL IP Out In Prim Sec , 2.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 l 3.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 i 4.0 0.0E+00 0.0E+Ci 0.0E+00 0.0E+00 0.0E+00 0.0E+00 6.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 8.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 :
.10.0 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 !
14.0 3.3E-06 3.3E-06 0.0E+00 3.3E-06 3.3E-06 0.0E+00 l 16.0 2.9E-06 2.9E-06 0.0E+00 2.9E-06 2.9E 0.0E+00 l 30.0 4.7E-07 0.0E+00 5.2E-08 4.1E-07 0.0E+00 4.7E-07 l 32.0 1.3E-07 0.0E+00 0.0E+00 1.3E-07 0.0E+00 1.3E-07 ; 32.3 2'. 6E-07 2.6E-07 0.0E+00 2.6E-07 2.6E-07 0.0E+00 l 34.0- 3.6E-07 3.6E-07 0.0E+00 3.6E-07 3.6E-07 0.0E+00 36.3 1.3E-07 1.3E-07 0.0E+00 1.3E-07 1.3E-07 0.0E+00 , TOTAL 7.5E-06 6.9E-06 5.2E-08 7.5E-06 6.9E-06 5.9E-07 NOMENCLATURE DIAM DIAMETER OF INITIATING-EVENT - INCHES OVERALL OVERALL SEQUENCE FREQUENCY ;
.IP Primary systems in crane wall :
Lout Outside crane wall ! In Inside crane wall l Prim Primary systems i Sec Secondary systems e s I I i i t i I t
.1 i
, . _. - - - ~= . - - . - - - - - . .-
)
BLOCKAGE'1.0 - Qualification Test.for BLOCKAGE 1.0 - in SEQUENCE FREQUENCY BY SYSTEM - SCREEN AREA =' 200.0 SQ.FT. FLOW RATE = 10000.0 GPM, HEAD LOSS = 5.00 FT.H20, L/D = 5.0 SYS DCLS OVERALL IP Out In Prim- Sec ; 1 2-6 0.0E+00 0.0E+00. 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1 8-10 0.0E+00 0.0E+00- 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1 18-+ 1.8E-07 1.8E-07 0.0E+00 1.8E-07 1.8E-07 0.OE+00 -l 2 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 ' 2 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 2 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 < 2 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00. 0.0E+00 0.0E+00 3 2-6 0.0E+00. 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 i 3 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 , 3 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 '0.0E+00 0.0E+00 3 18-+ 2.6E-07 2.6E-07 0.0E+00 2.6E-07 2.6E-07 0.0E+00 4 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.OE+00 0.0E+00 4 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 , t 4 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 4 18-+ 0.OE+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00-5 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 5 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00- 0.0E+00 'O.0E+00 5 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 5 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 , 6 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 6 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 l 6 12-16 5.3E-06 5.3E-06 0.0E+00 5.3E-06 5.3E-06 0.0E+00 6 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 l 7 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00- 0.0E+00 0.0E+00 1 7 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 ! 7 12-16 0.OE+00 0.0E+00 0.0F 00 0.0E+00 0.0E+00 0.0E+00 7 18-+ 0.0E+00 0.0E+00 0. 0' 00 0.0E+00 0.0E+00 0.0E+00 8 2-6 0.0E+00 0.0E+00 0.0Lt00 0.0E+00 0.0E+00 0.0E+00 8 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00- 0.0E+00 0.0E+00
- 8 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 8 18-+ 3.9E-07 0.0E+00 0.0E+00 3.9E-07 0.0E+00 3.9E-07 ;
9 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 > 9 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 ; 9 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 , 9 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 TOTAL 6.2E-06 5.8E-06 0.0E+00 6.2E-06 5.8E-06 3.9E-07 ' NOMENCLATURE ' SYST.ID INITIATING EVENT PIPING SYSTEM CLASS DCES. INITIATING EVENT DIAMETER CLASS > 1 Hot Leg 6 Chem./Vol. Control System 2 Cold Leg 7 Feedwater 3 Crossover 8 Main Steam 4 Safety Inj. (cold leg) 9 Pressurizer 5 Safety Inj. (hot leg) 10 [ t h i
.q--
. _. ,_ ._ - . 4 __ ._ _. _ _ . _
i
' BLOCKAGE 2.0 - Qual. Test for BLOCKAGE 2.0/ Weld .
l SEQUENCE FREQUENCY BY SYSTEM - SCREEN AREA = 200.0 SQ.FT. l FLOW RATE = 10000.0 GPM, HEAD LOSS =- 5.00 FT.H20, L/D =- 5. 0-SYS DCLS OVERALL IP Out In Prim Sec ' 1~ 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 l
.1 8 0.0E+00. 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 i 1 ~18-+ 1.8E-07 1.8E-07 0.0E+00 1.8E-07 1.8E-07 0.0E+00 !
2 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 ; 2 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 j 2 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 . 0.0E+00 ; 2 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00- 0.0E+00
- 3. 2-6 0.0E+00 0.OE+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00' j 3 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 l 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 3 12-16 0.0E+00 3 18-+ 2.6E-07 2.6E-07 0.0E+00 2.6E-07 2.6E-07 0.0E+00 l 4 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 {
4 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00. .; 4 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00_ l 4 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 5 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 5 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 ! 5 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 i 5 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 l 6 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 i 6 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 6 12-16 5.3E-06 5.3E-06 0.0E+00 5.3E-06 5.3E-06 0.0E+00 ;
~
6 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 7 2-6 0.0E+00 0.OE+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 ? 7 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 ! 7 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.OE+00 ; 7 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 i,
-8 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 8 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 8 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 :
8 18-+ 3.9E-07 0.0E+00 0.0E+00 3.9E-07 0.0E+00 3.9E-07 9 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 9 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 9 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 , 9 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 t t TOTAL 6.2E-06 5.8E-06 0.0E+00 6.2E-06 5.8E-06 3.9E-07 ; NOMENCLATURE , SYST.ID INITIATING EVENT PIPING SYSTEM CLASS. DCLS. INITIATING EVENT DIAMETER CLASS j 1- Hot Leg 6 Chem./Vol. Control System !
.2 Cold Leg 7 Feedwater !
3 Crossover 8 Main Steam ! 4 Safety Inj. (cold leg) 9 Pressurizer { 5 Safety Inj. (hot leg) 10 ; i 5 P 3
. m . . -. . _ . - _. . _
i BLOCKAGE 1.0 -' Qualification Test-for BLOCKAGE 1.0 - in l 200.0 SQ.FT. l
SUMMARY
OF FREQUENCIES SYSTEM BASIS - SCREEN AREA = FLOW RATE = 8000.0 GPM, HEAD LOSS = 5.00 FT.H2O l BREAK FREQUENCIES. SEQUENCE: FREQUENCIES l SYS. DIAM. L/D = 3.0 L/D = 5.0 L/ D = 7 . 0 l ID CLS. OVERALL IP OVERALL IP OVERALL IP OVERALL IP ' 1 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00'O.0E+00 0.0E+00 0.0E+00
~
l 1 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.OE+00 i 1 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00. ' 1 18-+ 7.2E-07 7.2E-07 0.0E+00 0.0E+00 1.8E-07 1.8E-07 3.6E-07 3.6E-07 2 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 l 2 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00
- 2 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.OE+00 0.0E+00 0.0E+00 0.0E+00 2 18-+ 4.7E-07 4.7E-07 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.3E-07 1.3E-07 !
3 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 3 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 l 3 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 3 18-+ 6.2E-07 6.2E-07 0.0E+00 0.0E+00 1.3E-07 1.3E-07 2.6E-07 2.6E-07 l 4 2-6 4.1E-05 4.1E-05 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 4 8-10 4.0E-05 4.0E-05 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1 4 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 4 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 l 5 2-6 6.8E-05 6.8E-05 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00- ! 5 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 .? 5 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 ! l 5 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 6 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 i 6 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00-0.0E+00 0.0E+00 l 6 12-16 1.2E-05 8.6E-06 2.9E-06 2.9E-06 5.3E-06 5.3E-06 6.2E-06 6.2E-06 l 6 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 7 2-6 1.9E-04 0.0E+00 0.0E+00 0.0E+00.0.0E+00 0.0E+00 0.0E+00 0.0E+00 : 7 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00'O OE+00 0.0E+00 l 7 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 i 7 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 8 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 8 8-10 0.0E+00-0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 l 8 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 t 8 18-+ 1.2E-06 0.0E+00 1.3E-07 0.0E+00 3.9E-07 0.0E+00 5.4E-07 0.0E+00 l 9 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 ! 9 B-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 , 9 12-16 1.8E-05 1.8E-05 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 i 9 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 l TOTAL 3.7E-04 1.8E-04 3.0E-06 2.9E-06 6.0E-06 5.7E-06 7.5E-06 6.9E-06 i NOMENCLATURE : l SYS.ID INITIATING EVENT SYSTEM DESIGNATION OVERALL OVERALL PROBABILITY OF INITIATING EVENT OCURRENCE L/D RATIO OF TARGET DISTANCE TO BREAK DIAMETER
SUMMARY
LOCATION CLASS LABEL IS: . IP Primary systems in crane wall i I l j I 1
. -__ - - ~ .
i BLOCKAGE 2.0-- Qual. Test for BLOCKAGE 2.0/ Weld
SUMMARY
-OF FREQUENCIES SYSTEM BASIS - SCREEN AREA = 200.0 SQ.FT. FLOW RATE = 8000.0 GPM, HEAD LOSS = 5 00 FT.H2O- 1 BREAK FREQUENCIES SEQUENCE FREQUENCIES _ SYS. DIAM. L/D = 3.0 L/D = 5.0 L/D = 7. 0 l ID CLS. OVERALL IP OVERALL IP OVERALL IP OVERALL IP l 1 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.OE+00 0.0E+00-0.0E+00 0.0E+00 ; 1 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 : 1 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 , 1 18-+ 7.2E-07 7.2E-07 0.0E+00 0.0E+00 1.8E-07 1.8E-07 3.6E-07 3.6E-07 2 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 ! 2 8-10 0.OE+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 2 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 l 2 18-+ 4.7E-07 4.7E-07 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.3E-07-1.3E-07 ; 3 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 ; 3 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 3 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 3 18-+ 6.2E-07 6.2E-07 0.0E+00 0.0E+00 1.3E-07 1.3E-07 2.6E-07 2.6E-07 4 2-6 4.1E-05 4.1E-05 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00
- 4 8-10 4.0E-05 4.0E-05 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 4 12-16 0.OE+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 4 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 '
5 2-6 6.8E-05 6.8E-05 0.0E+00 0.0E+00 0.OE+00 0.0E+00 0.0E+00 0.0E+00 5 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00-5 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 . 5 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.OE+00 0.0E+00 6 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 ! 6 8-10 0.0E+00 0.OE+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 i 6 12-16 1.2E-05 8.6E-06 2.9E-06 2.9E-06 5.3E-06 5.3E-06'6.2E-06 6.2E-06 ! 6 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 7 2-6 1.9E-04 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 l 7 8-10 0 OE+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 7 12-16 0.0E+00 0.OE+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 7 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 l 8 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00
- 8 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 !
8 12-16 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 8 18-+ 1.2E-06 0.0E+00 1.3E-07 0.0E+00 3.9E-07 0.0E+00 5.4E-07 0.0E+00 ! 9 2-6 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 9 8-10 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 9 12-16 1.8E-05 1.8E-05 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 9 18-+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 : TOTAL 3.7E-04 1.8E-04 3.0E-06 2.9E-06 6.0E-06 5.7E-06 7.5E-06 6.9E-06 f NOMENCLATURE SYS.ID INITIATING EVENT SYSTEM DESIGNATION < OVERALL OVERALL PROBABILITY OF INITIATING EVENT OCURRENCE ., RATIO OF TARGET DISTANCE TO BREAK DIAMETER L/D
SUMMARY
LOCATION CLASS LABEL IS: ; IP Primary systems in crane wall i k i {
i P t 7 5 0 L APPENDIX IV ., BLOCKAGE 2.0 PROGRAM LISTING i i.
+
b i P
+
k
.1 I
l
,,, ,. e- .. . -. ... , .. - . ,- .
~
F77L-EM/32 FORTRAN 77 version 5.01 (compiling for the 80386/80486). Tue Dec 21 1~ 08:51:14 1993' Page: 1 { Copyright (e) 1988-1992, Lahey Computer Systems,.Inc. ALL RIGHTS RESERVED PROGRAM BLOCKAGE - Compiling Options: l
/N0/N2/N4/N7/NA2/NB/NC/NC1/ND/NF/H/NI/NK/NL/P/NQ1/NQ2/NO3/R/S/NT/NV/W/NX/NZ1 Source file Listing 1 program blockage 2 c BLOCKAGE V2.0 reproduces the functions of the PRA and TABLE 3 c programs documented in NUREG/CR-3394, Vol. 2. It calculates 1 4 c frequencies and probabilities of ECCS screen blockages by 5 e insulation debris from pipe weld breaks. '
6 c 7 include 'datastor.for' l 1 c FILE DATASTOR.FOR - include in BLOCKAGE 2.0 modules i Il Il 2 e program parameters: these are the maximum dimensions.of arrays. l Il 3 c maximum number of welds and targets per weld: ! Il 4 parameter (maxwls = 2000, maxtgt = 40) , i Il 5 e maximum number of flow rates, head losses, L/Ds and screen areas-Il 6 parameter (maxfr = 4, maxh1 = 3, maxld = 3, maxsa = 4) { Il 7 c maximum number of permissible weld diameters, types and locations: parameter (maxpwd = 30, maxpwt = 20, maxpwl = 20) Il 8 Il 9 c maximum number of systems, diameter classes: Il 10 parameter (maxsys = 10, maxdc = 4) Il 11 e maximum number of location cla ses, permissible insulation materials: ; Il 12 parameter (maxic = 5, maxpim = 10) 1 Il 13 c version number: Il 14 character *12 versn Il 15 c### change: Il 16 parameter (versn = ' BLOCKAGE 2.0') Il 17 c end of pr, ram parameters. Il 18 c . Il 19 c UNITS: file units: - integer pin, win, err, wout, tout, bout, sout, sum ! Il 20 Il 21 parameter (pin =1, win =2, err =3,wout=4, tout =5, bout =6,sout=7, sum =8); l Il 22 c Il 23 c FARAMS: problem parameters data store: Il 24 common /params/ nfr, nhl, nld, nsa, npwu, r.pwt, npwl, nsys, nde, Il 25 1 npim, nic, pwds, wdctbl, wdeffr, wwffwf, ' Il 26 2 pfrs, ld, ahls, psas, pwts, fibflg, pwls, pims, ! Il 27 3 lesell, 1csel2, wdc1bl, Iclabl,.systbl, Icdesc Il 28 c### changer destruction and transport fractions, break method Il 29 common /blk2/ a, b, c, dfract, tfract : Il 30 common /blk2x/ break Il 31 e actual number of flow rates, head losses, screen areas, Il 32 e permissible weld diameters, permissible weld types, Il 33 e permissible weld locaticns, systems, L/Ds, insul. destruction models, j Il 24 c diameter classes, location classes : Il 35 c (the first location class is the summary location ' class). and Il 36 e permissible insulation materials; the insulation destruction'models ; Il 37 c thenselves, from the parameter input filer , Il 38 integer nfr, nhl, nsa, npwd, npwt, npwl, nsys, nld, nde Il 39 integer nic, npim Il 40 e the permissible weld diameters, diam. classes, failure frequencies: Il 41 real pwds(maxpwd), wdctbl(maxde),- wdeffr(maxde) ! Il 42 e permissible flow rates, allowable head losses, screen areas, f Il 43 e and weld weighting factors: Il 44 reai pfrs(maxfr), id(max 1d), ahls(maxhl),-psas(maxsa),
- Il 45 1 wwffwf(maxde,maxpwt)
Il 46 real a, b, c, dfract(maxid), tfract' aaxpwl) 3 Il 47 e fibrous insulation flag: ; Il 48 c### change: and break method n Il 49 character *1 fibflg(maxpim), break , Il 50 e permissible weld locations, insul. materials, weld types: - character *2 pwls(maxpwl), pims(maxpim)., pwts(maxpwt) 11 -51
- II 52 c location class selections (2), diameter and location class Ir.bels:
Il 53 character *2 lesell(maxic), Icse12(maxic) ; a 1
& y -
, . _ - - .~, , . . - . - . ~ ~~~ . - - . - . .. ,= . . .. - i F77L-EM/32 FORTRAN 77. Version 5.01'(compiling for.the 80386/80486) Tue Dec 21 08:51:14 1993- . Page: .2 . , Copyright (c) 1988-1992, Lahey. Computer Systems, Inc. ALL RIGHTS RESERVED
- PROGRAM BLOCKAGE - Compiling Options:
/N0/N2/N4/N7/NA2/NB/NC/NC1/ND/NF/H/NI/NK/NL/P/NQ1/NQ2/NO3/R/S/NT/NV/W/NX/NZ1 -l Source file Listing Il 54 character *5 wdclb1(maxde), Iclab1(maxic) l Il 55 e table of systems, location descriptions: 1
[ Il- 56 character *26 systbl(maxsys) 11- 57 character *SO ledesc(max 1c) { Il 58 c end of parameter data store. Il 59 c 3 Il 60 c WELDS: weld and target information data store: ( common / welds / wdiam, fbrvol, wbrfrq, sysid, ntgts, nwlds,- Il 61 Il 62 1 wtype, wloc, weldid, dcid, diamid, probid !
-Il 63 c weld diameter (in) : l Il 64 real wdiam(maxwls)
Il 65 c weld break frequency, total fibrous volume (sq.ft) by L/D,- ! Il 66 c both are calculated by the program from inputs: Il 67 real wbrfrq(maxwls), fbrvol(maxwls, max 1d) ~ Il 68 c system ID, diameter & diam. class indices, no. of targets and welds: Il 69 integer-sysid(maxwls), diamid(maxwls), deid(maxwls),- i Il 70 1 ntgts(maxwls), nwids Il 71 e weld type and location: i Il 72 character *2 wtype(maxwls), wloc(maxwls) ll Il 73 c weld ID: Il 74 character *9 weldid(maxwls) ; Il 75 e problem ID: '
'Il 76 character *40 probid Il 77 c end of welds data store. ,
Il 78 e Il 79 c BLOCKS: blockage information data store: 1
'Il 80 common'/ blocks / blockd Il 81 c blockd equals 'Y' or 'N' for a parameter combination: ",
character *1 blockd(maxwls, max 1d,maxfr,maxhl,maxsa)- Il 82 Il 83 e end of blockage information data store. Il 84 c Il 85 c SUMARY: summary information data store for summary table report: .! Il 86 common /sumary/ overal, loccls Il 87 e totals for overall and summary location class frequencies:
- Il 88 real overal(maxld,maxfr,maxhl,maxsa) !
Il 89 real loccls(maxld,maxfr,maxhl,maxsa) Il 90 e end of summary information data store. ] Il 91 c , Il 92 c END OF FILE DATASTOR.FOR Il 93 8 c GET AND STORE DATE AND TIME FROM COMPUTER CLOCK , 9 character *8 ddmmyy 10 character *11 hhmmss ; 11 call date(ddmmyy) 1 12 call time (hhmmss) 13 print *,versn,-* beginning at
, hhmmss,.' on *, ddmmyy ..
'?
14 c SETUP opens files, reads PARAMETR.INP and WELD.INP files, 15 e validates parameter, weld and target inputs, i 16 e fills /PARAMS/ and-/ WELDS /and / TARGET / commons, 17 c writes WELD.OUT and TARGET.OUT files, .
.i 18 c calculates weld break frequencies and debris volumes 19 c (Calculation 1.of the SRS). j 20 CALL SETUP 21 C BLKAGE determines blockages, Calculation 2 of.the SRS. 1 22 CALL BLKAGE j 23 C REPORT performs Calculations 3, 4, 5, and 6 of the SRS 24 c and writes files SEQFREQ.OUT, BLOCKAGE.OUT,
SUMMARY
.OUT. l 25 CALL REPORT 26 c PRINT NORMAL TERMINATION MESSAGE TO SCREEN 27 call date(ddmmyy) f i o
i 1 LF77L-EM/32 FORTRAN 77 Version 5'01 (compiling for the 80386/80486)- TueLDec 21-
< 10Bi51:14 1993' Page: 3-Copyright (c)- 1988-1992, Lahey Computer Systems, Inc.2ALL RIGHTS RESERVED' PROGRAM BLOCKAGE . Compiling Options: .
;i
./NO/N2/N4/N7/NA2/NB/NC/NC1/ND/NF/H/NI/NK/NL/P/NQ1/NQ2/NQ3/R/S/NT/NV/W/NX/NZ1i Source. file Listing.
28- call' time (hhmmss) _ 2 9 .' print *,versn,' terminated at ', hhmmss, ' on ,~ddmmyy ' 30 print *,' The Weld Summary File is file WELD.OUT.' l 31 ' print *,' The Target Summary File is file TARGET.OUT.'- 32 print *,' The Error File is file BLOCKAGE. ERR.* 33- print *,' The Sequence Frequency File is file SEQFREQ.OUT.' ' 34 print *,' The Probability File is-file BLOCKAGE.OUT.' 35 print *,' The Summary Table File is file
SUMMARY
.OUT.'- [ 36 END { i l P b b t e
'1 4
'i 4
e i
-I i
5 F77L-EM/32 FORTRAN 77 version'5.01 (compiling for-the 80386/80486)x :Tue Dec 21, . 08:51:14 1993; . Page: 4 . Copyright (c); 1988-1992, Lahey Computer Systems, Inc. ALL RIGHTS RESERVED No currently active sub-program unit: OPTIONS not available. l Source file Listing -l 37 C BLKDAT sets the insulation destruction model: nld.= 3, ld = 3, 5, &7 l 38 include 'blkdat.for' II l block data b1kdat ' Il 2 include 'datastor.for' c FILE DATASTOR.FOR - include in BLOCKAGE 2.0 modules l I2 1 . 12 2 e program parameters: these are the maximum dimensions of arrays. ! 12 3 c maximum number of welds and targets per weld: 12 4 parameter (maxwls = 2000., maxtgt = 40) 1; 22 5. c maximum number of flow rates, head lossen, L/Ds and screen areas:
- I2 6 parameter (maxfr =.4,.maxhl = 3, maxld = 3, maxsa = 4).
I2 7 e maximum number of permissible weld diameters, types and locations: I2 8 parameter (maxpwd = 30, maxpwt = 20, maxpwl = 20) I2 9 c maximwm number of systems, diameter classes: -; ' I2 10 parameter (maxsys = 10, maxdc = 4) . I2 11 e naximum number of location classes, permissible insulation naterials: I2 12 parameter (maxlc = 5, maxpim = 10) :i I2 13 c version number: I2 14 character *12 versn . i l I2 15 c### change: I2 16. parameter (versn = ' BLOCKAGE 2.0') : I2 17 c end of program parameters. I2 18 c - I2 19 c UNITS: file units: 12 20 integer pin, win, err, wout, tout, bout,.sout, sum l I2 21 parameter (pin =1, win =2, err =3,wout=4, tout =5, bout =6,sout=7, sum =8)' I2 22 e i I2 23 c PARAMS: problem parameters data store: '{ I2 24 . common /params/ nfr, nhl, nld,'nsa, npwd, npwt, npwl, nsys, nde, , I2 25 1 npim, nic, pwds, wdctbl~, wdeffr,.wwffwf, I2 26 2 pfrs, ld, ahls, psas,-pwts, fibflg, pwls,' pims, , 12 27 3 lesell, 1cse12,- wdc1bl, Iclabl, systblf ledesc , 12 28- c### change destruction and transport fractions, break method- . I2 29 common /b1k2/ a, b, c, dfract, tfract common /blk2x/ break 1 I2 30 e actual number-of flow rates,. head losses screen areas, i I2 31 ' I2 32 e permissible weld diameters, permissible weld types, .. I2 33 e permissible weld locations, systems, L/Ds, insul. destruction models, , I2 34 e diameter classes, location classes ! 12 35 c.(the first~ location class is the summary location class) and : 12 -36 e permissible insulation materials; the insulation destruction models ! I2 37 c themselves,from the parameter input file: :! I2 38 integer nfr, nhl, nsa, npwd, npwt, npwl, nsys, nld, nde I2 39 integer nic, npim I2 40 e the permissible weld diameters,-diam. classes, failure frequencies: .; I2 41 real pwds(maxpwd), wdctb1(maxde), wdeffr(maxde). 12 42 c permissible flow rates, allowable head losses, screen areas,. 12 43 e and weld weighting factors: I2 44 real pfrs(maxfr), Id(maxld), ahls(maxhl),-psas(maxsa), > I2 45 1 wwffwf(maxde,maxpwt) _ . I2 46 real a, b, c, dfract(maxld), tfract(maxpwl) I2 47 e fibrous insulation flag: I2- 48 c### change: and break method: I2 49 character *1 fibflg(maxpim), break I2 50 c permissible weld-locations, insul. materials, weld types:
-I2 51 character *2 pwls(maxpwl), pims(maxpim), pwts(maxpwt) c-location class selections (2),. diameter and location class labels:
?
I2 52 12 53 character *2 lesell(maxlc), 1cse12 (maxic) ( 12 54 character *5 wdc1bl(maxde), Iclab1(max 1c) c table of systems, location descriptions: i I2 f55 12 56 character *26 systb1(maxsys) i
, - - - . . . _- -, ,,i , ,
. - . - - . ~. - - - . ..
. l F77L-EM/32 FORTRAN 77 Version 5.01-(compiling ~for'the 80386/80486) Tue Dec-'21 l 08:51:14 1993 .
Page: . 5 f Copyright (c)-1988-1992,- Lahey Computer Systems,'Inc. ALL RIGHTS RESERVED lBLOCKDATA BLKDAT - Compiling Options: .
/N0/N2/N4/N7/NA2/NB/NC/NC1/ND/NF/H/NI/NK/NL/P/NQl/NQ2/NQ3/R/S/NT/NV/W/NX/NZ1 ,
Source file Listing ;! 12 57 character *50 ledese(maxic) 58 c end of parameter data store. : I2 ! I2 59 c. 12 60 c WELDS: weld and target information data store: .4 I2 61' common / welds / wdiam, fbrvol, wbrfrq, sysid, ntgts, nwlds,: l
.I2 62 1 .
wtype, wloc, weldid, deid, diamid, probid
.I2 63 c weld diameter (in) :
I2 64 real wdiam(maxwls).
'I2 65 e weld break frequency, total-fibrous volume (sq.ft) by L/D, '
I2 66 c both are calculated by the program from inputs: I2 67 real wbrfrq(maxwls), fbrvol(maxwls,maxld) ~ .l e system ID, diameter & diam. class indices, no. of targets and welds: .: I2 68 ! I2 69 . integer sysid(maxwls), diamid(maxwls), deid(maxwls), I2 70- 1 ntgts(maxwls), nwids I2 71 c weld type-and location: ' I2 72 character *2 wtype(maxwls), wloc(maxwls)
- I2 73 c weld ID:
I2 74 character *9 weldid(maxwls) I2 75. c problem ID: ' I2 76 character *40 probid- ' 12 77 c end of welds data store. c { I2 78 - I2 79 c BLOCKS: blockage information data store
-I2 80 common / blocks / blockd I2 B1 c blockd equals 'Y'.orN' for a parameter combination:
12 82 character *1 blockd(maxwls,maxld,maxfr,maxhl,maxsa) ,
'I2 .83. c endfof blockage information data store.
I2 84 e I2 85 c SUMARY: summary information data store for summary table report: I2 86 ' common /sumary/ overal, loccls c totals for.overall and summary location class frequencies: I2 87 I2 88 real overa1(maxld,maxfr,maxhl,maxsa) 12 89 real.loccls(maxld,maxfr,maxhl,maxsa) ' I2 90 e end of summary information data 's'.wre. I2 91 c I2 92 c END OF FILE DATASTOR.FOR I2 93 Il 3 e data'nld / 3 /,'ld / 3., S., 7. / 3 Il 4 c### change: Id now read in from parametr'.inp ; Il 5 data nld / 3/ ., Il 6 end i
-g
.)
5
.' j
,- - - - - , , - . , , , - + - ~ + '9
F77L-EM/32 FORTRAN.77 Version 5.01 (compiling for the 80386/80486) ~ Tue Dec 21 ' 08:51:14 1993 Page: '6 . Copyright (c)- 1988-1992, Lahey Computer Systems, Inc. ALL RIGHTS RESERVED
.=
r
~
SUBROUTINE SETUP - Compiling Options:
- W /N0/N2/N4/N7/NA2/NB/NC/NC1/ND/NF/H/NI/NK/NL/P/NQ1/NQ2/NQ3/R/S/NT/NV/W/NX/NZ1 _;
' Source file Listing 39 SUBROUTINE SETUP 40 C INPUTS: ,
41 c ' files PARAMETR.INP & WELD.INP 42 c OUTPUT: 43 c labelled COMMONS /PARAMS/ & / WELDS / 44 c PROCESSING: 45 c SETUP opens all files, calls PINPUT and WINPUT, which _ i
'46 c read and process the parameter and weld input, closes files :;'
47 c that are no longer needed. 48 e datastor contains units for files, 49 c /PARAMS/, / WELDS /, PARAMETER statements: 50 include 'datastor.for' . Il 1 c FILE DATASTOR.FOR - include in BLOCKAGE 2.0 modules Il 2 c program parameters: these are the maximum dimensions of arrays. , Il 3 c maximum number of welds and targets per weld: , Il 4 parameter (maxwls = 2000, maxtgt = 40) [ Il 5 c maximum number of flow rates, head locces, L/Ds and screen areas: ; Il 6 parameter (maxfr = 4, maxhl = 3, maxld = 3, maxsa = 4) ; Il 7 c maximum number of permissible weld diameters, types and locations: Il 8 parameter (maxpwd = 30, maxpwt = 20, maxpwl = 20) Il 9 c maximum number of systems, diameter classes: -> parameter (maxsys = 10, maxdc = 4) 't Il 10 . Il 11 e maximum number of location classes, permissible insulation materials: , parameter (maxlc = 5, maxpim = 10) l Il Il 12 13 c version number: j character *12 versn i Il 14 Il 15 c### change: Il 16 parameter (versn = ' BLOCKAGE 2.0') 1 I1' 17 c end of program parameters. e Il 18 c ?! Il 19 c UNITS: file units-20 integer pin, win, err, wout, tout, bout, sout,' sum .- Il L' Il 21 parameter (pin =1, win =2, err =3,wout=4, tout =5, bout =6,sout=7, sum =8)
;i Il 22 c Il 23 c PARAMS: problem parameters data store:
Il 24 common /params/ nfr, nhl, nld, nsa, npwd, npwt, npwl, nsys, nde, Il 25 1 npim, nic, pwds, wdctbl, wdeffr, wwffwf, Il 26 2 pfrs, Id, ahls, psas, pwts, fibflg, pwls, pims, I lesell, Icsel2, wdclbl, Iclabl, systbl, ledesc Il 27 3 Il 28 c### change: destruction ~and transport fractions, break method' l Il 29 common /blk2/ a, b, c, dfract, tfract , Il 30 common /blk2x/ break Il 31 e actual number of. flow rates, head. losses, screen areas, Il 32 e permissible weld diameters, permissible weld types, Il 33 e permissible weld locations, systems,.L/Ds, insul. destruction models, r Il 34 e diameter classes, location classes ~ ' Il 35 c (the first location class is the summary location class) and Il 36 e permissible insulation materials; the insulation destruction.models. > Il 37 c themselves,from the parameter input-file:
- Il 38 integer nfr. nhl, nsa, npwd, npwt, npwl, nsys, nld, nde !
Il 39 integer:nlc, npim Il 40 e the permissible weld diameters, diam. classes,' failure frequencies: -j Il 41 real pwds(maxpwd), wdctbl(maxde), wdeffr(maxde) e permissible flow rates, allowable head losses, screen areasi II -42 Il 43 e and weld weighting factors: . 1 Il 44 real pfrs(maxfr), ld(maxld), ahls(maxhl), psas(maxsa), -l
'I wwffwf(maxde,maxpwt) l Il_ 45 real a, bi c, dfract(maxld), tfract(maxpwl)
Il 46 Il 47 e fibrous insulation flag: Il 48 c### change: and break method: n__ _
~ ,. .. - . .- , - . .. . . ,
7
. - -i F77L-EM/32 FORTRAN 77 Version 5.01 (compiling for the 80386/80486) Tue Dec 21~ ;
08:51:14 1993 Page: 7 Copyright (c) 1988-1992. Lahey Computer Systems, Inc. ALL RIGHTS RESERVED-SUBROUTINE SETUP - Compiling Options: ,
/N0/N2/N4/N7/NA2/NB/NC/NC1/ND/NF/H/NI/NK/NL/P/NQl/NQ2/NQ3/R/S/NT/NV/W/NX/NZ1 ;
Source file Listing I I1' 49 character *1 fibflg(maxpim), break' Il 50 e permissiole weld locations, insul'. materials, weld types: Il 51 character *2 pwls(maxpwl), pims(maxpim), pwts(maxpwt) Il 52 c location class selections (2), diameter and location class labels: ; Il 53 character *2 1csell(max 1c), Icse12(maxlc) l Il 54 character *5 wdclbl(maxde), Iclabl(maxic) ; Il 55 e table of systems, location descriptions: ! Il 56 character *26 systbl(maxsys) l Il 57- character *50 1cdesc(max 1c) Il 58 c end of parameter data store. { Il 59 c . Il 60 c WELDS: weld and target information data store: Il 61 common / welds / wdiam, fbrvol, wbrfrq, sysid, ntgts, nwids,- .. Il 62 1 wtype,-wloc, weldid, deid, diamid, probid Il 63 c weld diameter (in) -
.l Il 64 real wdiam(maxwls) ,
Il 65 c weld break frequency, total fibrous volume (sq.ft) by L/D, , Il 66 c both are calculated by the program from inputs: _ Il 67 real wbrfrq(maxwls), fbrvol(maxwls, max 1d) . . Il 68 e system ID, diameter & diam. class indices, no, of targets and welds: Il 69 integer sysid(maxwls), diamid(maxwls), dcid(maxwls), Il 70 1 ntgts(maxwls), nwids. .) 71 c weld type and location: i Il ! Il 72 character *2 wtype(maxwls), wloc(maxwls) Il 73 c weld ID: 11 74 ' character *9 weldid(maxwls) l Il 75 c problem ID: .
.Il 76 character *40 probid .
Il 77 c end of welds data store. Il 78 c . Il 79 c BLOCKS: blockage information data store: , Il 80 common / blocks / blockd- . t Il 81 e blockd equals 'Y' or 'N' for a--parameter combination: l' Il 82 character *1 blockd(maxwls,maxld,maxfr,maxhl,maxsa) Il 83 c end of blockage information data store. II 84 c 1 Il 85 c SUMARY: summary information data store for summary table report: 1 Il 86 common /sumary/ overal, loccls Il 87 e totals for overall and summary location class frequencies: Il 88 real overal(maxld,maxfr,maxhl,maxsa) .! Il 89 real loccls(maxld,maxfr,maxhl,maxsa) Il 90 e end of summary information data store. ! Il 91 e .! i Il 92 c END OF FILE DATASTOR.FOR Il 93 51 c OPEN FILES-52 c PARAMETR.INP, WELD.INP, BLOCKAGE. ERR, WELD.OUT, TARGET.OUT -; 53 c SEQFREQ.OUT, BLOCKAGE.OUT,
SUMMARY
.OUT 54 c FORTRAN carriage control is non-standardf it permits.pcge-ejects ' 55 e in-output files using 1H1 in FORMAT statements. 56 open(pin, file = 'PARAMETR.INP', status = 'old', ' 57 1 carriagecontrol = ' fortran') 58 open (win , file = ' WELD.INP', status = 'old',- [ 59 1 carriagecontrol = ' fortran') i 60 open(err, file = ' BLOCKAGE. ERR', status m.' unknown *,- l 61 1 carriagecontrol = ' fortran'). 1 open(wout, file = ' WELD.OUT',' status = ' unknown', ' 62 63 1 carriagecontrol = ' fortran') 64 open(tout, file = ' TARGET.OUT', status = ' unknown', ; < 65 1 carriagecontrol = ' fortran') i t I i
- _ . . _ _ _ - _ . _ _ _ _ _ - _ . _ _ _ - ?
,<e- n " > + . . - a - + . . > -a. .,.a.. s 43...a. e - . ,.
(1 ',
~
5
- F77L-EM/32 FORTRAN 77' version 5.01.(compiling for'the 80386/80486)- . Tue Dec '21'~- .q 08iS1:14 1993~ Page: .8 - '
' Copyright (c) 1988-1992,c Lahey Computer Systems,'. Inc. ALL RIGHTS- RESERVED ,
s SUBROUTINE. SETUP - Compiling Options: +
/N0/N2/N4/N7/NA2/NB/NC/NC1/ND/NF/H/NI/NK/NL/P/NQ1/NQ2/NQ3/R/S/NT/NV/W/NX/NZ1'
- Source file. Listing .
. 66 open(sout, file = 'SEQFREQ.OUT',. status = ' unknown', .
i 67 -1 carriagecontrol = ' fortran) 68~ open(bout, file =.' BLOCKAGE.OUT', status = ' unknown', carriagecontrol =.' fortran') . i 69 1 70 open (sum, file = . *
SUMMARY
.OUT' , status = ' unknown', ' l 71- 1 carriagecontrol = ' fortran')' 72- :c process paramter input: 'j 73 call pinput 74 c process weld and target input: : call winput. l 75 76 c CLOSE FILES:
,- 77 'close(pin) 78 close(win) 79 close(wout) 80 close(tout) .
return ., 81 82 end i l i I i 6
?
-I l
t
'- t I
-i f
'f .
(
.i
~i 1
1
-i
. - . m . -, -
. , - . . 4 4 m g
a b
.F77L-EM/32: FORTRAN 77~ Version 5.01 (compiling for the 80386/80486) 'Tue Dec 21c ;
08:51:14 1993 . Page: 9 Copyright (c) 1988-1992, Lahey Computer-Systems, Inc. ALL RIGHTS RESERVED i SUEROUTINE PINPUT - Compiling Options: _ i
/N0/N2/N4/N7/NA2/NB/NC/NC1/ND/NF/H/NI/NK/NL/P/NQ1/NQ2/NQ3/R/S/NT/NV/W/NX/NZ1 Source file Listing ;
subro'utine pinput ; 83 c-inputs and validates parameter input 84 .( ' 85 c INPUT:
-86 c file PARAMETR.INP parameter input file -l 87 c OUTPUT: i parameter data l 88 c common /PARAMS/
89 c file BLOCKAGE. ERR Input Validation Error Report ; 90 c PROCESSING: 91 c PINPUT reads and validates parameter input; l 92 e fills-the labelled common section PARAMS; ,
. writes error file, stops if there are errors in the input. .;
93 c 94 e ; INCLUDE 'DATASTOR.FOR' ; 95 Il 1 c FILE DATASTOR.FOR - include in' BLOCKAGE.2.0 modules
'Il 2 e program parameters: these are the maximum dimensions of arrays.
Il 3 c maximum number of welds and targets per weld. , Il 4 parameter (maxwls ='2000, maxtgt = 40) ; Il 5 e maximum number of flow rates, head losses, L/Ds and screen areas: ' Il 6 parameter (maxfr = 4, maxhl = 3, maxld = 3, maxsa-=.4) i Il 7 e maximum number of permissible weld diameters, types and locations: Il 8 parameter (maxpwd = 30, maxpwt = 20, maxpwl = 20)~ , Il 9 c maximum number of systems, diameter classes . Il 10 parameter (maxsys = 10, maxdc = 4). . Il 11 c maximum number of . location classes, permissible insulation naterials: II. 12 parameter (maxlc = 5. maxpim = 10)- Il 13 c version number: , Il 14 character *12 versn t Il 15 c### change: l Il 16 par ameter (versn =
- BLOCKAGE 2. 0 * )
'Il 17 c end of program parameters. [
Il 18 c . i Il 19 c UNITS: file units:
- Il 20 integer pin, win, err, wout, tout, bout, sout, sum .
Il 21 parameter (pin =1, win =2, err =3,wout=4, tout =5, bout =6,sout=7, sum =8); , Il 22 c Il 23 c PARAMS: problem parameters data store: Il 24 common /params/ nfr, nhl, nld, nsa, npwd, npwt, npwl, nsys, nde, Il 25 1 npim, nlc, pwds,.wdctbl, wdeffr.,-wwffwf, Il 26 2 pfrs, ld, ahls, psas, pwts, fibflg, pwls, pims, i Il 27 3 lesell, lesel2, wdclbl,'iclabl, systbl, 1cdesc ' .. i Il 28 c### change: destruction and transport fractions,1 break method- : Il 29 common /blk2/ a, b, c,'dfract, tfract l Il 30 common /bik2x/ break ' Il 31 e actual number of flow rates, head losses, screen areas, Il 32 e permissible weld diameters, permissible weld types, . . EIl 33 e permissible weld-locations, systems, L/Ds, insul. destruction models, 1 Il 34 e diameter classes, location classes Il 35 c (the first location class is the-summary location class)fand. . . Il 36 e permissible insulation materials; the insulation destruction models Il 37 c themselves,from the parameter input file: a Il 38 integer nfr, nhl,'nsa, npwd, npwt,.npwl, nsys, nld, ndc~ i Il 39 integer nic,.npim . i Il 40 e the permissible weld diameters, diam. classes, failure frequencies: ! Il 41 real pwds(maxpwd), wdctbl(maxdc), wdeffr(maxde) d II . 42_ c permissible flow rates, allowable head losses,1 screen aroas, ' 1 Il .43 e and weld weighting factors: . Il 44 real pfrs(maxfr), ld(maxld), ahls(maxhl), psas(maxsa), , Il 45 1-wwffwf(maxde,maxpwt) j Il 46 real-a, b, c, dfract(maxld), tfract(maxpwl) I
.i '
. ~~ ,-
~ . . - - - -- - - .- .
a JF77L-EM/32-FORTRAN 77_ Version: 5.01 (compiling for the 80386/80486) Tue Dec 21 !
'08:51:14 1993 .
Page: 10- , l 1 Copyright (c) 1988-1992, Lahey Computer Systems, Inc. ALL RIGHTS RESERVED Compiling Options: SUBROUTINE PINPUT .
/N0/N2/N4/N7/NA2/NB/NC/NC1/ND/NF/H/NI/NK/NL/P/NQ1/NQ2/NQ3/R/S/NT/NV/W/NX/NZ1 j
Source file Listing -l l Il S47- c" fibrous insulation flag: . l Il 48 c### change: and break method: i character *1 fibflg(maxpim), break- : II. 49 Il 50 e permissible weld locations, insul. materials, weld types: j Il 51 character *2 pwls(maxpwl), pims(maxpim), pwts(maxpwt) ; Il 52 e location class selections (2), diameter and location class labels: 'l Il 53 character *2 1csell(max 1c), lese 12(max 1c). ; Il 54 character *5 wdclbl(maxde), Iclabl(max 1c) i Il 55 e table of systems, location descriptions: j t Il 56 character *26 systbl(maxsys) Il 57 character *50 ledesc(maxle) i c end of parameter data store. ! Il 58 l Il 59 c ' Il 60 C WELDS: weld and target information data store: Il 61 common / welds / wdiam, fbrvol, wbrfrq, sysid, ntgts, nwlds, ; Il 62 1 wtype, wloc, weldid,.dcidi diamid,.probid > Il 63 e weld diameter (in) : ' Il 64 real wdiam(maxwls) Il 65 c weld break frequency, total fibrous volume (sq.ft) by L/D, Il 66 e both are calculated by the program from inputs: 1: Il 67 real wbrfrq(maxwls), fbrvol(maxwls,maxld) Il 68 c' system ID, diameter & diam ~. class indices, no. of targets and welds: - Il 69 integer sysid(maxwls), diamid(maxwls), dcid(maxwls), ntgts(maxwls), nwlds 70 Il Il 71 1 c weld type and location: j' 11 72 character *2 wtype(maxwls), wloc(maxwls) . Il 73 c-weld ID: Il 74 character *9 weldid(maxwls) e Il 75 c problem ID: Il- 76 character *40 probid l Il 77 c end of welds data store. Il 78 c Il 79 c BLOCKS: block 3ge information data store: common-/ blocks / blockd Il 80 e blockd equals 'Y' or 'N' for a parameter combination: Il 81 Il 82 character *1 blockd(maxwls, max 1d,maxfr,maxhl maxsa) 4 Il 83 e end of blockage information data store. 5 11 84 c . Il 85 c SUMARY: summary information data store for summary table report: ' 11 86 common /sumary/ overal, loccls . 11 87 c totals.for overall and summary location class frequencies: ; 11 88 real overa1(max 1d,maxfr,maxhl,maxsa) Il 89 real loccls(maxld,maxfr,maxhl,maxsa) ; Il 90 c end of summary information data store. Il 91 c I Il 92 c END OF FILE DATASTOR.FOR' Il 93 96 C LOCAL DATA : , 97 e blank is used to separate records in the error file 98 c A blank record is written even when the next statement is'STOP;- 99 e originally some of these STOPS were statements setting an error 100 e flag, and the program went on. 'Later some thought may.be given . 101 e to when to stop and when to continue processing. I 102 character *5 blank ] 103 data blank / ' '/
, b0 v n .
106 e i
'. 0 7 c PROCESS FILE PARAMETR.INP:
108 c READ ALL PARAMETERS i
?
,7 .
'h J
F77L-EM/32 FORTRAN 77' Version 5.01_(compiling.for the 80386/80486) ' Tue Dec 21 i 08:51:14 1993. . 'Page: .111 ' . Copyright (c)L1988-1992,~ Lahey Computer Systems, Inc. ALL~ RIGHTS RESERVED; SUBROUTINE PINPUT . Compiling Options: . , .. . _ _j
/N0/N2/N4/N7/NA2/NB/NC/NC1/ND/NF/H/NI/NK/NL/P/NQ1/NQ2/NQ3/R/S/NT/NV/W/NX/NZ1 Source file Listing ,
t 'i
)
109 c STORE PARAMETERS TO PARAMS-COMMON 110 c VALIDATE PT.RAMETER INPUT .! 111 e WRITE ERRO".S TO-FILE BLOCKAGE. ERR: q 112 c IF ERRORS IN PARAMETR.INP THEN STOP j 113 c .j 114 c### changes read in L/Ds: SRS: must-bet >0, <20 115 c 0 - insulation destruction model is read in for v2.0. J j 116 read (pin,*,iostat=ierr) (1d(i),i=1,nld) ~- 117 if (ierr.ne.0) then 118 write (err,*)' PINPUT: . Fortran error reading LD' j 119 write (err,*) blank . 120 stop 121 endif [ t 122 do 5 i = 1, nld 123. if ( (1d (i) .le.0. ) .or. (1d (i) .ge.20. ) ) then : 124 write (err,*)' PINPUT: Error-req.0<LD<20' l 125 write (err,*) blank j 126 stop , 127 endif- :l > 128 5 continue 129 e also read in destruction fractions: SRS: not < 0, not > 1 1 130 read (pin,*,iostat=ierr) (dfract(i),i=1,nid). ; 131 if (ierr.ne 0) then 'l 132 write (err,*)' PINPUT Fortran error reading DFRACT'- .. j 133 write (err,*)' PINPUT: Insulation destruction fractions' ! 134- write (err,*) blank 135 stop > 136 endif 137 do 6 i = 1, nld . l 138 if ( (dfract (i) .1t.0. ) .or. (dfract (i) .gt.1. )) then - ; write (err,*)* PINPUT: Error in destruction fraction'-
-139 140 . write (err, * ) ' PINPUT: R*q.DFRACT not < 0, not > l' 141 stop 142 endif- :l 143 6 continue .:
144 c###end of change 1 c 1 - flow rates: number and values 145 . 146 c SRS:. max 9 flow rates in gal / min; >0,.<100000,'1 decimal place, ~l 147 e strictly monotonic increasing. sequence. -> l 148 read (pin,*,iostat=ierr)'nfr-i 149 if (ierr.ne.0) then- ' 150 write (err,*)* PINPUT: Fortran. error reading NFR' 151 write (err,*) blank 152 stop 153 endif 154 if((nfr.ge.1).and.(nfr.le.maxfr)) .. then- ; 155 rea d (pin, * ,ios tat =ierr) (pfrs(i),1=1,nfr); ' ' 156 if (ierr.ne.0) then- . . 157 write (err,*)' PINPUT: Fortran error' reading PFRS.* ; 158 write (err,*) blank 159 . stop-160 endif'
.J 161 do 10 i = 1, nfr .
162 . if ( (pfrs (i) .le. 0,) .or. (pfrs (i) .ge.100000. ) ) . then l 163. write (err,*)' PINPUT: Error in flow. rate PFRS = ', ! 164 1- pf rs (i) , 'I=', i 5
.l 165. -write (err,*)* PINPUT: Require O'< PFRS < 100,000.'-
.166' write (err,*) blank 167 stop. ,
i
.I
%; n
-2
~5
-(
F77L-EM/32' FORTRAN.77 Version 5.011 (compiling for the 80386/80486) -Tue Dec 21
' 08:51':14 1993 . Page; f12 .'
L;i
- Copyright (c) 1988-1992, Lahey Computer Systems,'Inc. ALL RIGHTS RESERVED SUBROUTINE PINPUT' Compiling Options: . .
.0
'I
/N0/N2/N4/N7/NA2/NB/NC/NC1/ND/NF/H/NI/NK/NL/P/NQ1/NQ2/NQ3/R/S/NT/NV/W/NX/NZ1' ;
- Source file Listing J
'168' 'endif ..
169- if ( (i.gtil) '. and. (pfrs (i) .le.pfrs (i-1) ) )- then l 170 write (err,*)' -PINPUT: Reg. increasing flow rates FFRS' -! 171 write (err,*) blank
- l 172 stop 173 endif' l 174 10 continue ,
175 else 176 write (err,*)' PINPUT: Error in no.of flowrates NFR z.',nfr-177 write (err,*)* PINPUT: Maximum for NFR = '., maxfr 178 write (err,*) blank .j 179 'stop j 180 endif .; 181 c .g 182 c 2 - head losses: number and values ! 183 c SRS: max = 5 head losses in feet of H20; >0, <20, to 2: decimal places '[: 184 e strictly monotonic increasing sequence. 185 read (pin,*,iostat=ierr) nhl , 186 if (ierr.ne.0) then 187 write (err,*)'.PINPUT: Fortran error reading NHL' 188 write (err,*) blank ' 189 stop ; 190 endif _; 191 if((nhl.ge.1).and.(nhl.le.maxhl)) then' , 192 read (pin *,iostat=ierr) (ahls(i),i=1,nhl) 193 if (ierr.ne.0) then i 194 write (err,*)* PINPUT: Fortran error reading AHLS.' t write (err,*) blank' i 195 196' stop 197- endif 1 198 do 20 i =.1, nhl 199. if ( (ahls (i) .le. 0. ) .or. (ahls (i) .ge.20. ) ) then 200 write (err,*)* PINPUT: Error in head loss: AHLS = ' ,. 201 1 . ahls(i) 202 write (err,*)' 'PINPUT: Require 0.< AHLS < 20.' 203 write (err,*) blank 204 stop 205 endif 206 if((i.gt.1).and.(ahls(i).le.ahls(1-1))) then 1 207 write (err,*)' PINPUT: Req. increasing head losses AHLS' [ 208 write (err,*) blank ; 209 stop 210 endif 211 20 continue j; 212 else I 213 write (err,*)* PINPUT.: Error in no.of head losses NHL = ' nhl. , i 214 write (err,*)' PINPUT: Maximum for NHL =.'; maxhl 215 write (err,*) blank l 216 stop 217 endif .l c### change: read in constants a, b, c SRS: must.be >0 - 218 219 read (pin,*,iostat=ierr) a, b, e a 220 if (ierr.ne.0) then l 221 write (err,*)* PINPUT: Fortran error reading A, B, C' >v 222 write (err,*)' PINPUT: Head loss parameters * ] 223 writeterr,*) blank' 224 stop , 225 endif , 226 if ( (a. le. 0. ) .or. (b. le. 0. ) .or. (c. le. 0. ) ) 'then .j i
_ . . - - . . . . ~ , , , ,, .
?
.F77L-EM/32 FORTRAN 77 version 5'.01 (compiling for'the-80386/8'0686) !Tue Dec 21-13c g;
/, > 08:51:14 1993 Page: . .
Copyright (c) 1988-1992, Laheyjcomputer. Systems, Inc. ALL1 RIGHTS RESERVED. SUBROUTINE PINPUT - Compiling Options: .
/N0/N2/N4/N7/NA2/NB/NC/NC1/ND/NF/H/NI/NK/NL/P/NQ1/NQ2/NQ3/R/S/NT/NV/W/NX/NZ1 ,
Source file Listing ; write (err,*)' 'PINPUT: Error in head loss parameters' ; 227-228 write (err,*)* PINPUT: Req. A,B,C.>-O'- , 229 write (err,*) blank 3 230 stop j 231 endif . .. ; c### end of change 2 232 233 c screen areas: number and values . I 234 c SRS: max 6 screen areas in sq.ft:.'; >0., <1000, 1 decimal place, 235 e strictly monotonic increasing sequence .. read (pin,*,iostat=ierr) nsa. 1 236 . 237 if (ierr.ne.0) then 238 write (err,*)' PINPUT: Fortran. error reading NSA' 239 write (err,*) blank ..,
.( J 240 stop 241 endif if ( (nsa .ge .1) .and. (nsa. le.maxsa) ) then 242 243 read (pin, * , iostat=ierr) (psas(i),1=1,nsa) i 244 if (ierr.ne.0) then 245 write (err,*)* PINPUT: Fortran error reading PSAS.' '!
246 write (err,*) blank 247 stop 3 248 endif 249 do 30 i = 1, nsa 250 . if ( (psas (i) .le.0. ) .or. (psas(i) .ge.1000. ) )- then" ,; 251 write (err,*)' PINPUT: Error in screen' area PSAS = ' 252 1 psas(i) 253 write (err,*)' PINPUT: Require 0 < PSAS < 1000.' 254 write (err,*) blank 5 255 stop j 256 endif 257 if((i.gt.1).and.(psas(i).le.psas(1-1))) then 258 write (err,*)' PINPUT: Req. increasing screen areas PSAS' 259 write (err,*) blank ' 260 stop 261 endif 262 30 continue 263 else 264 write (err, * )
- PINPUT: Error in no.of screen areas'NSA = ' nsa ,
265 write (err,*)* PINPUT: Maximum for NSA = ', maxsa 266 write (err,*) blank-267 stop 268 endif 269 c 270 -c 4 - weld type: number and values 271 c SRS: max 10 distinct.2-character weld types 272 read (pin,*,iostat=ierr) npwt
-273 if (ierr.ne.0) then .
write (err,*)' PINPUT: Fortran error reading NPWT'-. 274 275 write (err,*) blank 3 276 stop 277 endif 278 i f ( (npwt . ge .1) . and . (npwt . le .maxpwt ) ) then 279 read (pin,*,iostat=ierr) (pwts (i) ,1=1, npwt) 280 if (ierr.ne.0) then
.281 write (err,*)*.PINPUT: Fortran error reading PWTS.*
282 write (err,*) blank ,j 283 stop 284 endif 285 if (npwt.gt.1) then i 4
)
'j
, . - . , . .. ~ . - . , . . . ,
- i _
"F77L-EM/32-FORTRAN 77 version 5.01 (compiling'for the- 80386/80486): .Tue Dec 21 08:51:14.1993 Page: . 14 Copyright (c)11988-1992, Lahey. computer' Systems, Inc.iALL RIGHTS RESERVED.
SUBROUTINE PINPUT - Compiling. Options: .
/N0 /N2 /N4 /N7 /NA2 /NB /NC /NC1/ND/NF/ H /NI /NK /NL/ P/NQ1/NQ2 /NQ3 / R / S /NT/IN/W/NX /NZ1' j Source file. Listing?
286 do 40 i = 2,-npwt ,
-287 ..do 45 j'= i-1, 1, .;
~
288- if (pwts (i) . eq .pwts (j ) ) then . 289 write (err,*)* PINPUT: Error in weld. types PWTS
- l write (err,*)'LPINPUT: Require-distinct PWTS ' j 290:
291 write (err,*) blank j 292 stop j,
.293 -endif 294- -45 continue 295 40- continue ?
296 endif 297- else . . I 298' write (err,*)* PINPUT: . Error.in no.of weld types-NPWT = ' npwt?
, q 299 write (err,*)' PINPUT:-Maximum for NPWT = '; maxpwt
- 300 write (err, * ) blank [
-301 stop 302 endif .s 303 c 304 c 5 - weld locations:. number and values t 305 c SRS: max 20' distinct 2-character weld locations' 306 read (pin,*,iostat=ierr) npwl i
307 if-(ierr.ne.0).then . 308 write (err,*) PINPUT: Fortran error reading NPWL' . 309 write (err,*) blank ^ 310 stop 311 endif 312- i f ( (npwl . ge .1) , and. (npwl . le .maxpwl) ) then 313 read (pin,*,iostat=ierr) (pwls (i) ,1=1, npwl) L - 314 if (ierr.ne.0) then 315 write (err, * )
- PINPUT: Fortran error reading-PWLS.*- t I
316 write (err,*) blank ' 317 stop 318- endif ' 319 if (npwl.gt.1) then 320, do 50 i = 2,'npwl 321 do 55'j = i-1, 1 322 if (pwls (i) .eq.pwls (j ) ) then 323 write (err,*)' PINPUT Error in weld location PWLS' ' 324 write (err, * ) ' 'PINPUT: Require distinct PWLS.' 325 write (err,*) blank 326 stop , 327 endif 328 55 continue ;- 329 50 continue 330 endif . 331 c### change read in transport fractions: SRS: must be in (0,1) 332 read (pin, * , ios tat =ierr) (tf ract (i) , i=1, npwl) . 333 if-(ierr.ne.0) then write (err,*)' PINPUT: Fortran error reading TFRACT'- j 334 335 write (err,*) blank
.336 stop ,
337 endif ~ ' 338 do 57 i = 1, npwl . - 339 if ( (tfract (i) .lt.0. ) .or. (tfract (i) .gt.1. ) ) then 340 write (err,*)*.PINPUT: Error in transport fractionst , 341 write (err,*)* PINPUT:' Req. not<0,' not>1'- 't 342 write (err,*) blank 343 stop l 344- .endif ; i
-1 1
Tue_Dec~21-F77L-EM/32 FORTRAN 77 Version 5.01 (compiling ~for the 80386/80486) ' ' 08:51:14 1993. ,~Page: . 115 . . Copyright (c) 1988-1992,- Lahey Computer' Systems, Inc. FALL RIGHTS RESERVED SUBROUTINE PINPUT - Compiling Options: ; /N0/N2/N4/N7/NA2/NB/NC/NC1/ND/NF/H/NI/NK/NL/P/NQ1/NQ2/NQ3/R/S/NT/NV/W/NX/NZ1 J! Source' file' Listing' e
-345 .57 continue 346 c### end change ,
347 else 348 write (err,*)* PINPUT: Error'in no.of weld types NPWL=
- npwl- ,
349 write (err,*)' PINPUT: Maximum-for NPWL = , maxpwl ' 350 write (err,*) blank 351 stop 352 endif ^ 353 354 c .
)
355 e 6 - systems table: number and values 356 c SRS: max 10 26-character system descriptions e 357 read (pin,*,iostat=ierr) nsys
- 358 if (ierr.ne.0) then .
359 write (err,*)' PINPUT: Fortran error reading NSYS' -l 360 write (err,*) blank , 361 stop 362 endif- f 363 if((nsys.ge.1).and.(nsys.le.maxsys)) then 364 if-(ierr.ne.0) then 365 write (err , * ) ' PINPUT: Fortran error reading NSYS.' i 366 write (err,*) blank 367 stop l 368 endif 369 do 60 i = 1, nsys
- 370 -read (pin,*,iostat=ierr) systb1(i) '
371 if(ierr.ne.0) then ' 372 write (err,*)' PINPUT: Fortran error reading SYSTBL' 373 write (err,*) blank 374 stop 375 endif 376 60 continue . 377 c### change: blank out remaining system descriptors , 378 if (nsys.lt.maxsys) then 379 do 61'i = nsys+1,'maxsys 380 systb1(i) = blank 381 61 continue a 382 endif 1 383 c### end of change 384 else 385 write (err,*)' PINPUT: Error in no.of system NSYS = ' nsys , 386 write (err,*)' PINPUT: Maximum for NSYS =, maxsys ' 387 write (err,*) blank 388 stop 389 endif 390 e 7 - diameters: number and values 391 c SRS: max 30 diameters in inches, 1 decimal place; >0~, <100, [ ' 392 e strictly monotonic increasing sequence-393 read (pin,*,iostat=ierr).npwd 394 if (ierr.ne.0) then 395 write (err,*)' PINPUT: Fortran error reading NPWD' 396 write (err,*) blank , 397 stop 398 endif 399 .if(fnpwd.ge.1).and.(npwd.le.maxpwd)) .then 400 if'(ierr.ne.0).then . 401 write (err,*)* PINPUT: Error reading NPWD' ! 402 write (err,*)* PINPUT: Max.no.of diameters = *,maxpwd 403 write (err,*) blank j _-l
i :2
.a LF77L-EM/32 FORTRAN 77Lversion 5.01-(compiling-forc the 80386/80486) :Tue Dec 21 ,
1 08 : 51':14 H 1993 J . fPage: . 1 16 .
, copyright (c) 1988-1992, Lahey Computer Systems,1 Inc. ALL RIGHTS RESERVED' I,
- SUBROUTINE PINPUT - Compiling Options: .
V;
/N0/N2/N4/N7/NA2/NB/NC/NC1/ND/NF/H/NI/NK/NL/P/NQ1/NQ2/NQ3/R/S/NT/NV/W/NX/NZ1: '
' Source file Listing 404 .stop 405 'endif ,
406 -do 70 i~= 1, npwd, 5' .
.407 . read (pin,*,iostat=ierr) (pwds (j ) , j = i', 1+4) 408 if(ierr.ne.0)'then ,
409 write (err,*)* PINPUT: Fortran error' reading PWDS' [ 410 write (err,*) blank 411 stop i 412- endif 413 70 continue , 414' if (npwd.gt.1)-then ' 3 do.75 1 = 2, npwd : 415 . . 416 if (pwds(i).le.pwds(i-1)) then'. R 417 write (err,*)' PINPUT: Error in weld diameters PWDS' 418 write (err,*)' PINPUT: Require increasing PWDS' f 419 write (err,*) blank 420 stop L j 421 endif 422 75 continue ; 423 do 76.1 = 1, npwd . . 3 ' 424 if ((pwds(i).le.0.).or.(pwds(i).ge.100.)) then 425 write (err.,*)' PINPUT: Error in PWDS = ' pwds(i) , 426 write (err,*)':PINPUT: Req. >0, <100 inches' ; 427 stop 428 endif 429 76 . continue ' i_ I 430 endif 431 else . . . .. 432 write (err,*)' PINPUT: Error in no.of diameters NPWD = .' ,npwd 433 write (err,*)' PINPUT: Maximum for NPWD = ','maxpwd write (err,*)' blank- 1 434 435 stop , 436 endif 437 c 1 c### change: read break determination method: 'SRS: P(plant) or W(weld)' 438 ! 439 read (pin,*,iostat=ierr) break 440 -if (ierr.ne.0) then 441 write (err,*)'.PINPUT: Fortran error reading BREAK' , 442 write (err,*) blank. .; 443 stop i 444 endif . 445 if ((break.ne.'P').and.(break.ne.'W'))'then . 446 write (err,*)' PINPUT: Error - req. BREAK = P or-W' 447 write (err,*) blank l 448 stop . 449 endif 450. cN## end of change 451 452 c 8 - diameter classes: number and values , 453 c SRS: max 4 diameter classes; . 454 c smallest-diameter in class in. inches, >0, <100, 2 decimal places 455 e strictly monotonic increasing sequence; , 456 c failure frequency-per Rx-yr >0,-<1; read iff break ='P' .i 457: c 5-character. label,fdistinct 458- read (pin,*,iostat=ierr).ndc. . .
-459- if((nde.ge.1).and.(nde.le.maxde)) then .!
460 if (ierr.ne.0) then 461 write (err,*)' PINPUT: Fortran error reading NDC.'- .; 462 .w rite (err,*)' blank-l
-l 1
a
~
.Tue"Dec 21 '!
A TF77L-EM/32 FORTRAN.77 Version 5.01 (gompiling for the 80386/80486).
-08:51:1411993' .
Page: 17. ' . .'
. Copyright (c) 1988-1992, iLahey Computer 1Systemsi-Inc. ALL' RIGHTS RESERVED
.. SUBROUTINE PINPUT - Compiling Options: . . .
/N0/N2/N4/N7/NA2/NB/NC/NC1/ND/NF/H/NI/NK/NL/P/NQ1/NQ2/NQ3/R/S/NT/NV/W/NX/NZ11 Source file Listing 1
463 stop 464 endif 465 read (pin, * ,iostat=ierr) - (wdctbl (i) , i.='1, nde) 466. if(ierr.ne.0) then ! 467 write (err,*)* PINPUT: Fortran error reading WDCTBL' 468- write (err,*) blank 469 stop 470 endif 471 if (nde.gt.1) then 472 do 80 i = 2, nde 473 if (wdctb1(i).le.wdctbl(1-1)) then 474 write (err,*)' PINPUT: Error in diameter class' 475 write (err, * )
- PINPUT: Require-increasing'PWDS' 476 write (err,*) blank 477 stop 478 endif 479 80 continue 480 endif 481 do 81 i = 1, nde 482 if ( (wdctbl (i) .lt. 0. ) .or. (wdctbl (i) .gt .100. ) ) then 483 write (err,*)' PINPUT: Error in diameter class' 484 write (err,*)' PINPUT: Require 0<WDCTBL<100' 485 write (err,*) blank 486 stop ,
487 endif 488 81 continue 489 c### change: WCDFFR used only if break = P: . 490 if (break.eq.'P') then 491 read (pin,*,iostat=ierr) (wdeffr(i), i = 1, ndc) 492 'if(ierr.ne.0) then 493 write (err,*)' PINPUT: Fortran error reading WCDFFR'
- 494 write (err,*) blank ,
495 stop-496 endif 497 do 82 i = 1, nde 498 if ((wdeffr(i).le 0.).or.(wdeffr(i).ge.l.)) then 499 wrice(err,*)' PINPUT: Error in failure frequency' 500 wilte(err,*)* PINPUT: Require 0<WDCFFR<1' > 501 write (err,*) blank 502 stop 503 endif-504 82 continue 505 endif 506 c### end of change 507 read (pin,*,iostat=ierr) (wdc1b1(1),.i = 1, nde) - 508 if(ierr.ne 0) then . .. 509 write (err,*)' PINPUT: Fortran error reading WCDLBL' 510 write (err, * ) blank 511 stop 512 endif 513 if (nde.gt.1) then 514 do 83.i.= 2, nde 515 do 83 j = i-1, 1, -1. 516 if (wdcibl(i) .eq.wdc1b1(j)) then . . 517 write (err,*)' PINPUT: Error.in WDCLBL 518 write (err,*)'"PINPUT: Req. distinct diam. classes * , 519 stop-520 endif continue 521 83 5 r
?
a: , Tue Dec 21
~F77L-EM/32 FORTRAN 77 Version 5.01'(compiling for the. 80386/80486) 08:51:14 1993' .- Page: .. 18' ..
Copyright (c)- 1988-1992, Lahey Computer Systems, Inc..ALL RIGHTS RESERVED SUBROUTINE PINPUT . Compiling. Options:
/N0/N2/N4/N7/NA2/NB/NC/NC1/ND/NF/H/NI/NK/NL/P/NQ1/NQ2/NQ3/R/S/NT/NV/W/NX/NZ1 Source file Listing: ,
endif J 522 . 523 do 84 j = 1, npwt . . . t
-j 524 read (pin,*,iostat=ierr) . (wwf fwf (i', j ) , i = 1, nde)
C, 525 if(ierr.ne 0) then: 526 write (err,*)' PINPUT: Fortran error reading WWFFWF' 527 write (err,*) blank 4 528 stop 529 endif , 530- 84 continue 531 'do 85 i = 1, nde : 532 do 85 j = 1, npwt , 533 if (wwf fwf (i, j ) .le.0. ) then ' 534 write (err,*)' PINPUT: Error in WWFFWF' write (err,*)* PINPUT: Req. weld wtng. fact.>0' 535 :> 536 write (err,*) blank-537 stop 538 endif 539 85 continue ' 540- else 541 write (err,*)' PINPUT Error in no.of diam. ' classes NDC;= ' nde , 542 write (err,*)' PINPUT: Maximum for NDC = , maxdc 543 write (err,*) blank 544 stop , 545 endif 546 e 9 - location classes: number and values 547 c SRS: max 5 distinct 2-character location classes; must be a valid. 'I ' 540 c, location class or blank; the first is the summary location class:. read (pin,*,iostat=ierr) nlc : 549 550 if (ierr.ne.0) then .. write (err,*)' PINPUT: Fortran error reading'NLC' 551 552 write (err,*) blank- .i
- t 553 . stop 554 endif-555 if((nic.ge.1).and.(nic.le. max 1c)) then l 556 if (ierr.ne.0) then 557 write (err,*)* PINPUT: Error in no.of location classes.' .
558 write (err, * ) ' PINPUT: Maximum for NLC = ',.maxic , 559 write (err,*) blank
~
560 stop 561 endif 562 do 90 i = 1, nic ' 563 read (pin,*,iostat=ierr) Iclab1(i) 564 if(ierr..ne.0) then '; write (err,*)' PINPUT: Fortran error reading LCLABL'
~
565 566 write (err,*) blank d
.567 stop 568 endif 569 read (pin,*,iostat=ierr) Icsell (i) , ' lcsel2 (i) 570 if(ierr.ne.0).then 571 write (err, * ) ' PINPUT: . Fortran error reading LCSELl/2'~ 3 572 write (err,*) blank 573 stop
- 574 endif
^575 read (pin,*,iostat=lerr) ledese (i) j 576 . if(ierr.ne.0) then' ->
577 write (err,*)' PINPUT: Fortran' error reading LCDESC' 578 write (err,*) blank 579 stop , 580 endif ll . l 4 l
_ _m _ -- i ~ l F77L-EM/32 FORTRAN 77 Version 5.01 (compiling.for the 80386/80486) Tue Dec 21 l 08:51:14-1993 Page: .19 i Copyright (c)- 1988-1992, Lahey Computer Systems, Inc. ALL RIGHTS RESERVED i SUBROUTINE PINPUT - Compiling Options:
/N0/N2/N4/N7/NA2/NB/NC/NC1/ND/NF/H/NI/NK/NL/P/NQ1/NQ2/NQ3/R/S/NT/NV/W/NX/NZ1 l Source file Listing i
- 581 90 continue .
l 582 if (nlc.gt.1) then ij 583 do 92 i = 2, nlc l
'584- do 92 j = i-1, 1, 4 585 if (lclabl(i) eq.1claaalj)).then .
SE6 write (err,*)* PINPUT: Error'in loc. class labels' i 587 write (err,*)* PINPUT Req. distinct LCLABLs' 588 write (err,*) blank l 589 stop , 590 endif ; 591 92 continue endif j 592 593 do 95 i = 1, nlc , 594 k=0 1 595 'kk = 0 ' a 596 do 94 j = 1, npwl 597 if (1csell(i) .eq.pwls(j)) k = j 598 if - (1csel2 (1) .eq.pwls (j ) ) kk'= j 599 94 continue
- 600' if (1csell(i).eq.' ') k=1 601 if (1csel2 (i) .eq. ' ') kk = 1 s 602 if ((k.eq.0).or.(kk.eq.0)) then 603 write (err,*)* PINPUT: Error in'LCSEL1 or 2' ;
604 write (err,*)' PINPUT: Must be a valid loc. class PNLS',
- i 605 1 or blank' write (err,*) blank ;
606 607 stop 608 endif 609 95 . continue . 610 else . 611 write (err, * ) ' PINPUT: Error in'no.of loc. classes NLC = ',nic ]; 612 write (err,*)' PINPUT: Maximum for NLC = ', maxlc-613 write (err,*) blank ' 614 stop 615 endif c 10 -insulation materials: number and values : 616 617' c SRS: max 10 2-character distinct insulation materials; . 618 e fibflg must be 1~ uppercase char. F or N for fibrous or nonfibrous. ! 619. read (pin,*,iostat=ierr) npim 620 if.(ierr.ne.0) then l 621 -write (err,*)' PINPUT: Fortran error reading'NPIM' write (err,*) blank- -[ 622 623 stop. j 624- endif 625 if((npim.ge.1).and.(npim.le.maxpim)) then .
'l 626 read (pin,*,iostat=ierr) (pims (i) , ' i = 1, npim)
-627 iftlerr.ne.0) then 'jl 628 write (err,*)' PINPUT: Fortran error. reading PIM
1 629 write (err,*) blank 630 stop. 631 endif . y 632 if.(npim.gt.1", then - 633 do 100 i = 2, npim
'634 do 100 j = i-1. 1, ,
635 if - (pims (i) .eq.pims (j ) ) ~ then . . 636 write (err,*)' PINPUT: Error in PIMS
- 637 write (err,*)' PINPUT: Req. distinct insul. mats.'
638 write (err,*) blank. ; 639 stop b D 1
, ,, _. - 1, ._. , . >
.i 777L-E$/32 FORTRAN 77 version 5.01 (compiling:for the- 803 86 / 60686)l' .Tue Dec 21 j 08:51:14 1993 .
Page: . 20 3 Copyright (c) 1988-1992,1 Lahey Computer Systems,.Inc. ALL RIGHTS RESERVED { SUBROUTINE PINPUT - Compiling Options:
~
/N0/N2/N4/N7/NA2/NB/NC/NC1/ND/NF/H/NI/NK/NL/P/NQ1/N02/NQ3/R/S/NT/NV/W/NX/NZ1-. -l Source file Listing-640 endif ;
,e ~ 641 100 -continue
'I 642 endif 643 read (pin,*,iostat=ierr) (fibflg (i) , i = 1, npim)' -j 644 if (ierr.ne. 0 ) then .
645 write (err, * ) PINPUT: Fortran error reading FIBFLG 646 write (err,*) blank , 647 stop-648 endif 649 do 110-1 = 1. npim 650 if ( (fibflg (i) .ne. ' F' ) ..and. (fibflg (i) .ne! 'N ' ) ) then , 651 write (err,*)' PINPUT: Error - FIBFLG must be F or Ni .; write (err,*) blank 652 653 stop ., 654 endif 655 110 continue , 656 else 'q 657 write (err,*)* -PINPUT: Error in no.of'insul. mats.-NPIM =f',npim! E 658 -write (err,*)' PINPUT: Maximum for NPIM = , maxpim ' 659 write (err,*) blank ; 660 stop 661 endif :[.> . 662 return , 663 2000 format (1hl, a12, ' -~ ERROR FILE') .{ 664 -end .)
'l t
i I
-)
.t i
~
~,
1
-i h
l 4 9 + .- ._ . , . - , - - ,
F77L-EM/32 ' FORTRAN 77 - Version 5.01 (compiling for the 80386/80486) Tue Dec 21
~ 08:51:14 1993' Page: 21' Copyright (c) 1988-1992, Lahey Computer Systems, Inc. ALL RIGHTS RESERVED ')
o SUBROUTINE'WINPUT - Compiling Options:
/N0/N2/N4/N7/NA2/NB/NC/NC1/ND/NF/H/NI/NK/NL/P/NQ1/NQ2/NQ3/R/S/NT/NV/W/NX/NZ1 f Source file Listing ll
)
665 subroutine winput . j 666 c. inputs and validates weld and target input ? 667 c INPUTS: ' 668 c file WELD.INP weld and target input file
~
OUTP weld and target data j 671 c common / WELDS / 672 c file WELD.OUT Weld Sannary Report ! i 673 e file TARGET.OUT Target Summary Report 674 e file BLOCKAGE. ERR Input Validation Error Report l
'l 675 c PROCESSING:
676 c WINPUT reads and validates weld and target input; 677 e fills the labelled common sections WELDS and-TARGET;~ ; 678 e calculates debris volumes and weld break frequencies; 1 679 c writes error file, stops if there are errors in the input. 680 c WINPUT calls subroutines 681 c VALIDA validates target inpu* j 682 c TGTHDR writes headers to TARGET.OUT file ' 683. c WLDHDR write headers to WELD.OUT file 684 c FIBRUS a logical function for determining whether-insulation ! 685 e is fibrous or non-fibrous { 686 c . 687 INCLUDE 'DATASTOR.FOR' 3 j Il 1 c FILE DATASTOR.FOR - include in BLOCKAGE 2.0 modules Il 2 e program parameters: these are the maximum dimensions of arrays. '! Il 3 e maximum number of welds and targets per weld: j Il 4 parameter (maxwls = 2000, maxtgt = 40) ; Il 5 c maximum number of flow rates, head losses, L/Ds and' screen areas: , Il 6 .parameter(maxfr = 4, maxhl = 3, maxld = 3, maxsa = 4) ; Il 7 e maximum number of permissible weld diameters, types and locations: ;[ II. 8 parameter (maxpwd =130, maxpwt = 20, maxpwl = 20) ; Il 9 c maximum number of. systems,. diameter classes: -l parameter (maxsys = 10, maxdc = 4) 1 II 10 .
- l Il 11 e maximum number of location classes, permissible. insulation materials: I Il 12 parameter (maxic = 5, maxpim = 10) ;
. Il 13 c version number:
Il 14 character *12 versn [ Il 15 c### change: 16 parameter (versn = ' BLOCKAGE 2.0')- ~j Il c end of program parameters. t Il 17 Il 18 c -! 19 c UNITS: file units: ) Il . Il 20 integer pin, win, err, wout, tout, bout, sout, sum j Il '21 parameter (pin =1, win =2, err =3,wout=4, tout =5, bout =6, scut =7, sum =8) e ) 22 Il Il 23 c PARAMS: problem parameters data store: j' Il 24 common /params/ nfr, nhl, nld, nsa, npwd,' npwt, npwl;.nsys, nde,- ; Il 25 1 npim, nic, pwds, wdctbl, wdeffr .wwffwf, , . Il 26 2 pfrs, ld, ahls, psas, pwts, fibflg, pwls,.pims,' . Il 27 3 lesell, lesel2, wdclbl, Iclabl, systbl, ledesc I! Il 28 c### change: destruction and transport fractions, break method i 11 29 common /blk2/ -a, b, c, dfract, tfract l Il 30 common /blk2x/ break i Il 31 e actual number of flow rates,. head losses, screen areas, Il 32 c. permissible weld diameters, permissible weld types, i Il 33 e permissible weld locations, sy:tems, L/Ds, insul. destruction models; ! Il 34 6 diameter classes, location classes j Il 35 e (the first location class is the summary location class) and Il 36 e permissible insulation materials; the insulation destruction models t Il 37 e themselves,from the parameter input file: j
. x . . .- - . , . . .. . . .
.-F77L-EM/32 FORTRAN ~77-Version 5.01 (compiling for the 80386/80486) Tue'Dec L21; 08:51:14 1993 Page: 22 Copyright (c) 1988-1992, Lahey Computer Systems, Inc. 11L RIGHTS RESERVED SUBROUTINE WINPUT - Compiling Options: . . . .
t
/N0/N2/N4/N7/NA2/NB/NC/NC1/ND/NF/H/NI/NK/NL/P/NQ1/NQ2/NQ3/R/S/NT/NV/W/NX/NZ1L {
Source file Listing 11 :38 integer nfr, nhl,'nsa, npwd, npwt, npwl, nsys, nld, nde. . t Il 39 integer nic, npim II 40 e the permissible weld diameters, diam. classes,-failure frequenciesi > t 11 .41 real pwds (maxpwd) , wdctbl (maxde) , : wdef f r (maxde) Il- 42 c permissible flow rates, allowable head losses, screen areas, j II -43 c and weld weighting factors: . Il 44 real pfrs(maxfr), Id(maxid), ahls(maxhl),'psas(maxsa), j II 45 l'wwffwf(maxde,maxpwt) Il 46 . real a, b, c, . dfre7e ..nax1d) , . tfract (maxpwl) t Il 47 c fibrous insulation flr Il 48 c### change: and break : hod: Il 49- . character *1 fibf cmaxpim), break .
+
Il 50 e permissible weld lo- tons, insul'. materials, weld types: Il 51 character *2 pwl. unaxpwl) , pims(maxpim), pwts(maxpwt) , e e location class selections (2), diameter and location class labels: ,1 II 52 Il 53 character *2 lesell(maxlc) ,. lesel2 (maxic) Il 54 character *5 wdclb1(maxde)', 1clabl(max 1c)- , Il 55 c table of' systems, location descriptions: 4 Il 56 ' character *26 systb1(maxsys) l Il 57 character *50 ledesc(maxle) Il 58 c end of parameter data store. Il 59 c Il 60 c WELDS: weld and target information data store: Il 61 common / welds / wdiam, fbryol, wbrfrg, sysid, ntgts, nwids, Il 62 1 wtype, wloc, weldid, deid, diamid,'probid - Il 63 e weld diameter (in) : Il 64- real wdiam(maxwls) l Il 65 c weld break frequency, total fibrous volume (sq.ft) 16 L/D',- Il 66 c both are calculated by the program from inputs: . Il 67 real wbrfrq(maxwls),.fbrvol(maxwls,maxld)' l 11 68 e system ID, diameter.& diam. class indices, no. of targets and welds: : Il 69 integer sysid(maxwls), diamid(maxwls), deid(maxwls), l Il 70 1 ntgts(maxwls), nwlds '; Il 71 c weld type and location:
- Il 72 character *2 wtype(maxwls), wloc(maxwls) 73 c weld ID: :
Il Il 74 character *9-weldid(maxwls) , Il 75 c problem ID: .; Il 76 character *40 probid a Il 77 c end of welds data store. l Il 78 c Il 79 c BLOCKS: blockage information data store: : Il 80 common / blocks / blockd > Il 81 c blockd equals 'Y' or 'N' for a parameter combination: [ II 82 character *1 blockd(maxwls,maxld,maxfr,maxhl,maxsa) t Il 83 e end of blockage information data' store. j Il 84 c c SUMARY: summary infonnation' data store for summary table report:
-i Il 85 Il 86 common /sumary/ overal, loccls: ,
II. 87 c totals for overall and summary. location class. frequencies: I Il 88 real overal(maxld,maxfr,maxhl,maxsa) _ i Il 89 real'loccis(maxld,maxfr,maxhl,maxsa) . i Il 90 c end of-summary.information data store, Il 91 c Il 92 c END OF FILE DATASTOR.FOR Il 93 688 C LOCAL DATA: l 689 c TARGET INFORMATION FOR ONE WELD: .; 690 include ' target.for' ;j r e
.m. ,
'F77Li EM/32 FORTRAN 771 version'5.01 (compiling for the 80386/80486) Tue Dec'21' l 08:51:14 1993 .
Page: 23 Copyright (c) 1988-1992, Lahey' Computer Systems, Inc. ALL RIGHTS RESERVED SUBROUTINE WINPUT - Compiling Options:
/N0/N2/N4/N7/NA2/NB/NC/NC1/ND/NF/H/NI/NK/NL/P/NQ1/NQ2/NQ3/R/S/NT/NV/W/NX/NZ1 l Source file Listing -
I2 1 c LOCAL DATA - TARGET INFORMATION FOR ONE WELD: , I2 2 common./ target / tgtno, tgtdia, tgtsys, tgttyp, tgtthk,tgtlen I2 3 integer tgtno(maxtgt) : I2 4 real tgtdia(maxtgt), tgtthk(maxtgt), tgtlen(maxtgt,maxld) ; I2 5. character *4 tgtsys(maxtgt) : I2 6 character *2 tgttyp(maxtgt) :l I2 7 691 real tgtvol(maxtgt,maxld) l ~ 692 e function to determine whether insulation is fibrous: .l i 693 logical fibrus 694 C for accumulating weld weighting factors and sum by diameter class ! 695 real wwf(maxwls), wfsum(marde) 696 e need typeid for assigning weld weighting factors : 697 integer typeid 698 cF## change need weld location id/index for volume calculation ; 699 integer locid 700 c### change: need area for volume calculation e "O real area
*1r . c line counts for target and weld output files:
. 703 integer w11nes, tlines, maxlin 704 real pi, const . 705 character *5 blank , 706 e const includes a conversion constant for volumes.with length in feet, j 707 e insulation thickness and diameters in inches: .25/12*12 3 708 data blank / ' '/, pi / 3.14159/, const /0.00173611111/ ! 709 data wl' s / 55 /, tlines / 55 /, maxlin / 55 / 710 c PROCESS FILL WELD.INP: [ 711 read (win,1000,iostat = ierr) probid 712 if(ierr.ne.0) then , 713 write (err,*)' WINPUT: Fortran error reading problem ID PROBID' - ! 714 write (err,*) blank 715 stop l} 716 endif
'717 c successfully read problem ID 71B write (err,2010) probid 719 write (err,*)blanP 720 C PREPARE TO ACCUMULATE NO. OF WELDS NWLDS 721 nwlds = 0 ;
722 C PREPARE TO ACCUMULATE WELD WT. FACT. BY DIAM. CLASS do 15 k = 1, nde .! 723 724 wfsum(k) = 0. y 725 15 continue ., 726 727 c REPEAT UNTIL END OF FILE:-A also check for more than'maxwls welds. ;!j 728 do 100-i = 1,-maxwls+1 ! 729 c READ ONE WELD AND TARGET RECORD . 730 read (win, *, END=101,iostat=ierr) weldid(i) , sysid(i) , wdiam(i) , ! 731 1 wtype(i), wloc(i), ntgts(i), tgtno(1), tgtdia (1) , . ! 732 2 tgtsys(1), tgttyp(1), tgtthk(1), _ (tgtlen(1,k),-k=1,3)='j , 733 if(ierr.ne.0) then . 734 write (err,*)* WINPUT: Fortran error ~ reading WELD.INP j 735 write (err, * ) blank { stop ; 736 t 737' endif .. l 738 e successfully read one weld / target record - check for too many' . 739 if (i.gt.maxwls) then . write (err,*)* WINPUT: Error - all welds cannot be read' 's 740 741 write (err,*)' WINPUT: There are more than MAXWLS welds', l 742 1
- in the input. Increase MAXWLS and recompile' T!
l
F77L-EM/32 ' FORTRAN 77 Version' 5.01- (compiling . for the 80386/80486) Tue Dec 21 08:II:14 1993- .. J Page: 241 . .
'Copyxfght(c) 1988-1992, Lahey Computer Systems, .Inc. ALL RIGHTS RESERVED SUBROUTINE WINPUT - Compiling Options: /N0/N2/N4/N7/NA2/NB/NC/NC1/ND/NF/H/NI/NK/NL/P/NQ1/NQ2/NQ3/R/S/NT/NV/W/NX/NZ1 Source file Listing i 743. write (err,*) blank i
744 stop 745 endif 746 c VALIDATE WELD & TARGET DATA 747 c- WRITE ERRORS TO FILE BLOCKAGE. ERR -l 748 c STORE WELD DATA TO WELDS-COMMON' , 749 c VALIDA validates target:#1 750 call valida(1) 751 c validate weld system ID SYSID: ' 752 if (sysid (i) .gt .nsys ) then 753 ~ writeterr,*)* WINPUT: Error SYSID '= ', sysid(i),' I = ',i ' 754 write (err,*)* WINPUT: Number of systems NSYS =.', nsys l 755 write (err,*) blank - 756 step , 757 endif' ; 758 c validate no. of targets NTGTS: .. ; 759 if (ntgts(i).gt.maxtst) then j 760 writeferr,*)' WINPUT: Error NTGTS '
= , ntgts(i),' I =.',i '4 761 write (err,*)' WINPUT: Maximum no.of targets =
~
, maxtgt 762 write (err,*) blank a 763 stop !
764 endif 765 c validate weld location code WLOC: 766 c### change: also identify its index in PWLS and store to LOCID ! 767 locid = 0 768 do 2 j = 1, npwl . 769 2 if (wloc(i) .eq.pwls(j) ) locid = j j 770 if (locid.eq.0) then 771 write (err,*)' WINPUT: Error in WLOC = ' ,wloc (i) , ' I = ',i : 772 write (err,*)* WINPUT: Not a permissible weld location
- l 773 write (err,*) blank ,
774 stop 3 775 endif 776 777 c validate weld identifier'WELDID: ; 778 k=0 779 if -(i.gt.1) then , 780 do 3 j = 1, 1-1 : 781 3 if (weldid(i) .eq.weldid(j)) k=j-782 endif :f 783 if (k.ne.0) then ~ 784 write (err.,*)* WINPUT: Error in WELDID = ' weldid(i)' write (err,*)* WINPUT: I= ,1,' same as no. ',j .j 785 ~ l 786 write (err,*)' WINPUT: Req. distinct weld ID' 787 write (err,*) blank j 788 stop i 789 endif . 7 c CUMULATE COUNT OF WELDS IN NWLDS-I 792 c .. PREPARE TO ACCUMULATE TOTAL. FIBROUS VOLUME FOR THIS WELD do 10-k = 1, nld ; 793 794 fbrvol (1, k) = 0. j 795 10 . continue. . 796 C SRS CALCULATION 1, STEPS 1.3 AND 1.4: .. 797 : CALCULATE INSUL.VOL, FOR IST TARGET IN SOFT, ADD TO WELD TOTAL 'i 798 c### change in volume calculation: [ 799 area = const*pi* ( ( (tgtdia (1) +2.
- tgtthk(1) ) *
- 2 )-tgtdia (1) * *2 ) l 800 do 20 k = 1, nld ' !
801 tgtvol(1,k) = area *tgtlen(1,k) , I$
,. . ._ . . ~ . . . . _ _
F77L-EM/32 FORTRAN'77 Version 5.01'(compiling =for the 80386/80486). Tue Dec 21 ; 08:51:14 1993 Page: 25 Copyright (c); 1988-1992, Lahey Computer Systems, Inc. ALL RIGHTS RESERVED l SUBROUTINE WINPUT - Compiling Options: . /N0/N2/N4/N7/NA2/NB/NC/NC1/ND/NF/H/NI/NK/NL/P/NQ1/NQ2/NQ3/R/S/NT/NV/W/NX/NZ1 Source file. Listing 802 20 continue 3
-803' if (fibrus (tgttyp (1) ) ) then 804- termi = dfract(1)*tgtlen(1,1) .
l 805 fbrvolti,1) = fbrvol(i,1)+ term 1*tfract(locid)* area 806 term 2 = termi + dfract(2) * (tgtlen(1,2)-tgtlen(1,1) ) l fbrvol(1,2) = fbrvol(1,2)+ term 2*tfract(locid)* area ! 807 808 term 3 = term 2 + dfract (3) * (tgtlen(1,3)-tgtlen(1,2)) j v 809 fbrvol(i,3) = fbrvol(i,3)+ term 3*tfract(locid)* area 810 endif .; 811 c###end of change , l 812 c WRITE ONE RECORD TO FILE TARGET.OUT 813' if (tlines.ge.maxlin) call tgthdr(tout, versn, tlines) 814 write (tout,1010) weldid(i), tgtno(1) .tgtdia(1), f i 815 1 tgttyp (1) , tgtthk (1) , tgtsys (1) , 4 816 2 . ( tgtlen (1, k) , tgtvol(1,k),k=1,3)'
- E17 tlines = tlines + 1 B18- c IF NO.OF TARGETS > 1 THEN DO FOR NTGTS-1: ;;
H1$' if (ntgts(i).gt.1).then :}}