ML18079A321

From kanterella
Jump to navigation Jump to search
Responds to IE Bulletin 79-07,Seismic Stress Analysis of Safety-Related Piping. Provides Results of Westinghouse Analysis of Reactor Coolant Loop & Large Bore Class I Piping
ML18079A321
Person / Time
Site: Salem  
Issue date: 05/03/1979
From: Schneider F
Public Service Enterprise Group
To: Grier B
NRC OFFICE OF INSPECTION & ENFORCEMENT (IE REGION I)
References
NUDOCS 7905250072
Download: ML18079A321 (30)
v • d • e


Text

Frederick W. Schneider Vice President Public Service Electric and Gas Company 80 Park Place Newark, N.J. 07101 201/430-7373 Production May 3, 1979 Mr. Boyce H. Grier, Director U. S. Nuclear Regulatory Commission Office of Inspection and Enforcement Region 1 631 Park Avenue King of Prussia, Pennsylvania 19406

Dear Mr. Grier:

NRC IE BULLETIN NO. 79-07 NO. 1 AND 2 UNITS SALEM GENERATING STATION In response to your letter of April 14, 1979, transmitting NRC IE Bulletin No. 79-07 which was received on April 17, 1979, we have investigated this matter with respect to applicability to Salem No. 1 and 2 Units.

Attached for your information and review are the results of our efforts to satisfactorily address all of the subject bulletin concerns.

If you require any further information regarding the attached report, we will be pleased to discuss it with you.

Sincerely, Attach.

CC:

NRC Office of Inspection and Enforcement Div. of Reactor Operations Inspection Washington, D. C. 20555 Mr. L. J. Norrholm NRC, Hancocks Bridge, N.J.

7905 2 50"0/'~

11!,,\\o.

        • ..1o PUBLIC SERVICE ELECTRIC AND GAS COMPANY ENGINEERING AN.D CONSTRUCTION DEPARTMENT SEISMIC STRESS ANALYSIS OF SAFETY RELATED PIPING NO. 1 AND 2 UNITS NRC BULLETIN NO. 79-07 SALEM NUCLEAR GENERATING STATION Pursuant to the subject IE Bulletin, PSE&G Engineering has conducted an evaluation in accordance with items 1-4.

The following information, in addition to attachments A, B and C, describes the results and our proposed action:

(1)

A.

The reactor coolant loop and the following large bore (6" and above) Nuclear Class I piping were analyzed by Westinghouse for DBE and OBE seismic analysis using response spectrum modal analysis.

LINE NAME 10" Accumulator 6" Safety Injection 10" Accumulator 6" Safety Injection 6

11 8" Residual Heat 10" Accumulator 6"

Safety Injection 14" Residual Heat Removal 10" Accumulator 6" Safety Injection LOOP 12 12 14 14 14 11 ll 11 13 13

I.

I L LINE NAME LOOP 24* Pressurizer Surge 13 6*-a*-12* Residual Beat 13 Horizontal and v~rti~al 6omponents of the Seismic response spectrum for the above were input separately.

Horizontal and vertical responses were combined following square root of sum of squares {SRSS) negating any effect of algebraic summation.

Therefore, the concerns of the NRC Bulletin Noe 79-07 are not applicable to the loop and the above Class I piping analyses performed by Westinghouse.

B.

For all other safety related piping analyzed by PSE&G, five different seismic analyses were performed using the response spectrum method as follows:

ITEM LOAD TYPE

"((UP) 1 x - Earthquake 2

y Earthquake 3

z -

Earthquake 4

x+y Earthquake 5

y+z -

Earthquake The response of each is computed by superimpos"ing the individual modal responses by SRSS with the additional consideration of the close mode option of Reg. Guide 1.92 and also the left out mass inclusion.

The individual modal responses due to Items 4 and 5 above are in effect algebraic sums of the modal responses of the unidirectional earthquakes.

Because of the assumed linearity of the analysis, this is equivalent to algebraically adding the modal loads*

This method of approach for combining horizontal and.vertical responses had been addressed in Question 5.37 of FSAR {see attachment A).

I I

I I (2)

The listings of the PIPDYN II computer program used for dynamic portion of the analyses are enclosed (see Attachment B) *

(3)

For Westinghouse calculations the computer program WESTDYN was used.

WESTDYN program documentation has already been sent to the NRC~ Please see Report WK-9252 Rev. 1.

For PSE&G calculations, the computer program PIPDYN II developed by Franklin Institute Research Laboratories of Philadelphia, Pennslyvania, was used.

This program is very versatile and various portions have been checked/benchmarked against the following:

Thermal, Deadweight, Anchor Movement or any other static load analyses are benchmarked against problem No. 6 of the ASME Pressure Vessel and Piping 1972 Computer.

Programs Verification.

To illustrate the dynamic capabilities of PIPDYN II, a two-story steel frame described in J. M. Biggs' *Introduction to Structural Dynamics*, McGraw-Hill, N. Y. 1964, pps. 249-253, was checked against the program.

(4)

For PSE&G piplng analyses the combined loads due to deadweight, maximum pressure and DBE (loads from Paragraph lB Items 4 and 5) during emergericy condition

.per FSAR Appendix C could use allowables as high as 1.8 sh.

However, the goal was to limit the combined loads to 1.2 sh.

By virtue of these limitations of the allowable stress to 1.2 sh, there exists an inherent margin 6f safety.

of 50%.

However, in utilization of items 4 and 5 of Paragraph lB, the actual margin of conseivativism is

  • not known until the computed seismic component is evaluated in a conservative fashion as follows:

I. To estimate a margin of safety, we will utilize the analysis from Items 1, 2 & 3 of Paragraph lB (note that analyses 1, 2, 3 are correct unidirectional seismic responses in accordance with Reg. Guide 1.92)_ in the following manner:

Step 1.

Denote the maximum responses in the directions x, y and z by Ex, Ey and Ez respectively *.

Step 2.

Select the largest of the individual responses, say Ex.

This will give us the highest individual earthquake response, therefore, the predicted highest seismic stress~

Step 3.

Assume 2 earthquake responses as follows:

Step 4.

Ex = Horizontal Response Ey = 2 Ex = Vertical Response j

i.e., the horizontal responses ar~ assu~ed to be the largest response and the vertical response assumed to be 2/3 of horizontal response.

Compute the E' =JEx2 +

E * = JcEx) 2 SRSS of the combined earthquake (E')

Ey2

+(2 Ex) 2 E' = J 1 ~ (Ex) 2 E * = 1. 2 O Ex (A}

NOTE:

Equation. (A) shows that the seismic stress is 20% higher than any of the individual stresses considered.

Step s.

Use this stress in combination with other loads to compare to the allowable stress per FSAR.

e

-s-e The analysis indicated in Steps 1 thru 5 was performed on the No. 2 Unit Residual Heat Removal, and we found

  • no combined stress due to emergency coridition exceeding the stresses allowable in the FSAR.

Based on the foregoing reanalysis of RHR as described in Paragraph 4, our evaluation is that.the plant can safely withstand a seismic event.

In addition, it shows that the new method of combining the horizontal and vertical responses by the SRSS method will not exceed the 50% safety margin which now exists for emergency conditions.

However, as addedassurance, and to further verify the acceptability of our stress limits, a sample of the

  • safety related portions of systems listed in Attach-ment "C" which have not*been evaluated using SRSS will be re-evaluated using SRSS.

We estimate that this follow-up will take approximately six months to complete.

1,

L ATTACHMENT A QUESTION 5.37 Submit the basis for the methods used to determine the possible combined horizontal and vertical amplified response loading for the seismic design of piping and instrumentation, including the effect of the seismic response of the supports, equipment, and components.

ANSWER For Seismic Class I piping (except primary coolant loop piping) receiving modal analyses, the combined responses to horizontal and vertical seismic excitation are computed as follows:

a.

The moments (and forces) in each of three orthogonal directions e.g. CFx, Fy, & Fz) are computed separately for each mode and for both horizontal and vertical excitation.

b.

The algebraic sum of moments and forces generated by the vertical and horizontal *excitations is computed in each axial direction for each mode.

c.

The square-root-of-the-sum-of-the-squares of each modal algebraic sum (from (b) above) is found for each orthogonal direction.

This results in "RMS" values for Fx, Fy,

& Fz due to the simultaneous action*of vertical *and horizontal excitations.

SNGS-FSAR QS.37-1 n... i_t-...

r

ATTACHMENT A (Cont'd)

In the seismic analysis of primary loop piping, the.results for tile vertical direction are added absolutely to the results of the worst of those for the north-south and east-west directions.

Safety related instrumentation, except for the trip breakers, is tested by the methods recommended in IEEE 344-1971, "IEEE Guide for Seismic Qualification of Class I Electric Equipment for Nuclear Power Generating Stations" (see response to Question

7. 1)
  • The trip breakers have been shock tested instead of sine beat tested because IEEE 344-1971 was not applicable at the time the equipment was purchased.

TlO 1 13/14 SNGS-FSAR QS.37-2

ATTACHMENT B This is the portion of PIPDYN II that lists dynamic response analyses.

TlO 1 15

. 2

  • .JI*.

I

a
a 77
I
z:

l1

a ll

. l F" ( J S 1 G

  • t*: I
  • 2 ). r: F 1 : *~ F
  • 1 1FC~f.G1.~) O~EGA~l~f):UM~GA~CNf~)

PO 20Ci 1=1, rJF

. 200 P~0(1):6.2H31b5J/O~E~AMCI)

JF'CKLl.'f~.GT.(I) Gi.:*

T=J 150

..--it-' c i ~ J,_, ~ "~.* l J

~" u t :, 1.---,-=-l'-..,-lJ-(-1.-r-1....,,>---------------------

R~A U ( 5,~) Nocuqv,1r~PK,IVES~,GgE lFClTJPk.NE.O) GO TO 14 D0.13 1=1,NOCURV 13 N~ADC~,2)CT£MPYCI,J),J~1,NF)

GO TO 150 14 00 10 1=1,NUCURV 11 REAVC5,1b)

~POINT(I)

NP:*~ P 0 INT ( l )

READC5,2){XCI,J),YCI,J),J:l,~Pl 10 CCNTlt~UE 55 CALL SPCT~~CNOCURV,JTYPK,IVESP,~F,GEE) 150 kEAVC5,4) NJOH DO 151 1=1, 3 151 READCS,2)CCRVF~C(l,J),J:1,NOCURV)

CALL.EHAS(YDMA~,],NF)

DO 155

~=1,3 00 156 J:l,~F Ou 156 K=l,~OCURV 156 YDMAXCl,JJ:YDMAXCI,J)+CRVFACCI,K)*TEMPYCK,J)

---~1

~=--s=-ct)~ Tl Nu E WR1T~(b,1171JTITLE~,TITLEL l\\=1 IfCIVESP.NE.O) K:5

,,f'i=K + 3

~RITEC6,21)(~RD(L),L:K,M)

DO lbO 1=1,Nfl 160 WRITECb,22)!,PRD(l),(YO~AX(J,l),J:1,3) lfCISlG.~E.2) WRJT~(b,24)~F,CVD~AXCJ,~f),J:1,3) lJ:'(KLUE.Ll!:.O),CALL t::RASCEFM,3,NDOF)

OU 500 KJ:1,NJ08 CALL ~RASCFJ~,3,NF}

REAOC5,12)TITLEL RE~D(5,2)(P(J),J:1,3)

~PIT~Cb,l172l TJTLg~,llTL~L,K~

lFCJSJG.~~.O) WHITE(b,251 Nf,(YDMAX(J,NF)~J,J:J,3)

..---,1=-=i;:-c~C:-::l,.....,S=-=1,..._,G.t::U.l) wRI1't;(t>,2f>) t-.f,CXDMAXlJ,twf)i,J,J:1,3)

WRiT~Cb,27) CJ,P(J),J,J:1,3J RElril!*V 1'12 c~---~~....:,;R~~~W~!~N~*D:...,..::I~T~2~0;__..__.._.,......:....... __ --.. ________________ ~~------~----------------~

IflIV~SP.~d.O)GD TU 202

~~------~D~0,........-;2~0~3~J~=_1;...!...,~_,F.:__ ____________________________ _,_ ____ --.. ________________ ___

OU 203 1=1,3

  • ____ 2~0;.;.3_Y~L~'~~~;.;.;._X~C~I~,~J~)==~Y~O~~~A~X~(~l~1 ~J~)~*~O~~~E~G~A~~~(~J~)------~----__;.,...._ __.,...._.,...._.,...._~-----------

2o2 00 20b

~=1,~Fl

"..._..__,.,...,,...,._~0~0~2~o~fa~J~=~1~,~3~.,._,;.*--.......,...,...._--......... _,___,,_,...,,...,,_,,..,... ________ _,... __________________________ __

-*. 3206.t"Jtr.l}-i~Jr.):t>,\\...,T(J_,~*l)*~IJ~AX(J,MJ*PCJ)

"~------~c~~~~~,*~f~-H~A~S~

.. c~rr~~~s~A~-~**~Nb:::.:.:O~F~,~1~) _____. ____________..:._ ______...;...._ __________________ ~

ICK:i 1:0

~~~~~~~-r...-,..,-,-,,~---~---~~~~~~~~~----------

l*el1ll=('.IH*f'*i)O,lld +1 f) : I

~ ii I
  • 1 '., ** : 1 * ~-: ~ f, I(

.*. ____ _,**1 * "

'Ct I

~.. ~.~~*1~=~.1.r---~--------~------'-----------------------~~-

lF( ISlG.N~.2) ~Pl=~f*l 1FC~f.G1.N) O~EGA~(~f):UMEGA~CNf~)

DO 200 I=l,NF 2~0 P~UC1):6.2H31~5j/O~E~AM(l)

IFCKL~~.GT.O) GG T0 150

  • ., ----=-. -i

~ fib J l.> ~I\\"** l ) - ? k Li { :, iic-:-)-:-:t:'..,.-.. -:-/J-,.(-l*-:-l'-:-l-=)----------------------

H~A U ( 5,~) NOCU~V,llYPK,JVESP,~EE IFCITYP~.NE.O) GO TO 14 D0-13 I:t,NOCURV 13 R~AD(~ 1 2)CTE~PYCI~J),J~1,NF)

"------=--~G~O:-T~O~t~S_0~~=-:-:::--:-:----------------------------------------

14 DO 10 1:1,NUCURV 11 R£AD(5,1b)

~POINT(!)

NP=*~ PU I NT C I )

~

READ(5,2)CXCI,J),Y(l,J),J:1,NP)

~-~1-=0--:::c~c~N~T~l~r~~U~E=---------------------------------------------~

.. ~----~5-=5--:cC~A~L~L-:-::S~P_c~*t~H-~~*~C~N~O_C_U_R_V~,_J_T_Y_P_K_,_I_V_E_S_P~,~N-*r_,~G_E_E_) _________________________ __

150 REAUCS,4) NJOB ll 00 151 1=1,3

~~-::-:::-:-::~:--:~-=--':-=-:-:--=-:-~-:--=-=---:,---,--=-:-:=-:::-:-:-:~=----------------------------~*---

151 READC5,2)CCRVFAC(l,J),J:1,NOCURV)

CALL.EHASCYDMAX,],NF)

DO 155

~=l,3 (I ~------~D~O~l,~5~6:--:.J~~-*1:-'--'~~F==..-:--=-~--------------------------~~-------------------

DU 156 K=l,~OCURV 156 YDNAXCl,J):YDMAXCI,J)+CRVFACCI,K)*TEMP!CK,J) 1 s s ccriv-T 1 N u E

~

WRlT~Cb,1171)TITLE~,TITLEL

~---=------~~--------..;.......-----------------------~-~------------------~

K=l IFCIVESP.NE.O) K:S

,, -----,,"'=-tf+3

~RITEC6,21)C~RD(L),L:K,M)

DO 1b0 1:1,Nfl 160 WRITECb,22)1,PRDCI),(YO~AXCJ,l),J:t,3) lFCISIG~NE.2) WRJT~(b 11 24lNF,CYD~AXCJ 1 hF),J:1,3)

IF'CKLUE.Lr:.O).CALL E::R.ASCEFM,l,NDOF')

DO 500 KJ:t,NJOB CALL ERASCFJ~,J~NFJ REAOCS,12)TITLEL

  • ~------R~E~A~D~C~5~,~2~):.....;.(P~CJ.;..;;..)~,~J~=~1~,~3~)~---------------------------------------------

~~lT~Cb,J172) TITLE~,tlTL~L,KJ CJ

  • -----~*~l~F~(~!~S~l-G~a~~~*u_*a~O~)--W~~=I=T~E~C_b~,~2~5~)---N~f~,~(~Y~D-~~*A_X~C~J~,N_f:......;..,)~~J~,~J-=~1~,~3~)--------------~~

U*~ C l S l G

  • t.: lJ
  • i ) w R I T 8 ( b, 2 6 ) l'. f 1 C Y [) ~ A.X l J, "4 f ) ;, J, J =

1, 3 )

  • --------~W~R~i~T~~~C~b~,~2~7~):__~<J::...:...,~P~C~J~)~,~J~,~J-=~1~,~l~)_:_. _________________..;.__ _________________ __

RE~lhU 11'2 a _______

._-~R~[~~~*I~N~*O;...,...:;l~T~2~0;._""'"'~--~........ ----~------------------------------..,.-------------

lrlIV£SP.~Q.O)GO ta 202 u

M--------~D~0,--;2~0~3;._;J~=~l;:..:....'N~F---------------------------=----------------_:.._------~

00 203 1=1,3

  • ____ 2~0~3~Y~L 1 ~~~A~X~C=l~,~J~)~=~Y~O~M~A~X~(~l~,~J~)~*~O~M~E~G~A~M~(~J~)-* _______.....:._ ________________ ~~

202 00 20b ~=1,~Fl

  • ~--..~-:-~D~0~2~0~~~J~=~t~,~3~~_,.,..~.,....,...-.,.....,.......,,......,....,....,,,..,,,...,,...,,..._------~~-~--~----------------

--. "206 t-*J,..,t,U.,:l~J=t>Al"TCJ,?-!)*'tl.iMAX(J,M)*PCJ)

._;C~14,.;:L:.:r:...,'....::.f...:.-H:...:-A~S:...:*"c~ir.:..:"...:S::,:A::::_-!..,"'::N b,::::O:..F.!..

11 ~1.!..) ______

  • _______..:_ ____ ~--------------"'-

lCK:::l I :O

-~~~~~--,-,-,-~--r-.~~,--,..,..--~~~~~~~~~~~~~~------~

~eJ,~=C~lllif*l )/~llri +~!~~~~~~~~~~--~~--------------------~

I 2.,.. --:-----------.

'\\

0*

l=l+l I

i,,,*=c 11-1 >16 t1;*.-:7*(II*N*6}

_-,.-.=-,-~r**~-L--+-:-1-----------------------------

310 311 1 f C I\\ t~

  • I:. *J
  • o ) CALL IJ e: k AS n* l.l'i ER 1 6 1 f-, F )

DO 301 L=1 1 I~F1 lf(fil°'*GT.* 3) GO TO 309 lf(ISlG.NE.O)GO TO 309 If(KLU~.GT~o.o~.KJ.GT.1) GO TO 309 DO 310 J:1,3 EfM(J,MJ:~f~CJ,M)+PHI(L,ll)*PARTCJ,L)

Fih~RCNN,L):Fl~ERCNN,L)*r~C~)*PHlCL,II)*fJ~CJ,L) ---

c*~

-~C~*~.--~------------------------------------=----------1

~

C UPDATED ON

~ARCH 25, 1976 TO COMPUTE SRSS RESPONSE IN ACCORDANCE

--~c:-----W~l~T~l~"!"""'"':G~R~'o~u~p=-=-1~~~G~r~--~~T~H~U~O--:-l~*F=--=R~~~-G~.:--G~U~l~D~~~-~1-.=9=2-,"'"'"":":'k~~~V~l~S~l~U~N..._,l~,~F~L~.B~.~1~9=7-o~ *.;;;_-----

C**

c**--------------------------------------------

301 c ***

CALL SS~POSCACL,1,ICLSCL)+1,R~SAC~),TEMPA)

COl\\TINUE ACL:O.O IFOSIG~EQ.2) GO TO 317 ACCELERATION ANO INERTIA FORCES FOR LEFT OOT MASS

..f FT"! N-. i/r

  • 4 > Ac L =

P c "' N >.* Y o r*1 Ax c N N, Iii F )

1FCISJ~.E0.1)GO TO 317

,io--316-~i=1,3 t

~

316 ACL::ACL*KFK(J,M)*YDMAXCJ,hF)*P(J) 317 RMSA(~):SOPICR~SA(M)+ACL*ACL)

IFCISIG.EU.2) GO TO 300 FIN~RC~N,Nf):*FM(~)*ACL

  • ---~3~0~0~l~F~C~**-*~~*~E~*g~*~1;;...;..)_W~~~I~T~E~C~I~T~2~)__;(~.C~F~l~N~E~R-(~K~.,~L~)~,L~=~1"'-.N~F~)~,~K~=~1~*~6~):--__________________ -;

LIN:bU t

  • -----=~~R~l~T~~~C~l~T~2~1~)-=T~I~T~L~E~L;__ __ ~-*---------------*~---------------------------i D(l JU7 I::t,NBC

~

8ACKSPACE IT2

==~~=-=-:::-,....-:--:-:=-:-:-:-~~-=--=--~_,,.-...,.,...,,=:-,,.--~--.-..----------~------------------~1 NEAO(IT2)

CCFl~ERCK,L),L:1,~F),K:1,b) u----~..,._~D~0;..,...;3~0~3;...,....;K~=~1;:..;..'b~.,,.,..,.._,,,,~*~--~--.....------------------------------------.;_...--------~

303 w~lTt::CI'f21) (1'"1NEF<CK,L),L:1,Nf')

t

~---=-----~8~A~C~~~S~P~A~C~e:._:I~T~2:-__ _____________________ ----------~----------------~

c K--~c_*_*~*-=.P~R~I~N~1~*~0~-u~t;:_I~N-=.E~R~r~1~A.....:..F~o_R~C~E;....._ ___ -=-*-------------------------------~i c

~-------~l~F~C~l~r~*N~T~A~J~J~*F~*~~~*~l~l..,.,.;:G~O~T~O:..,....:l~0~7:.__ _______________________ ~~------------------i C~LL O~R~S(flNSSR,6 1 1) t ~-----~D~0~3~0~2~J~=~1~,~~~F__... ____ *_----........,........:~-.----,,,.........,...,...,,--.,..,...,.....,....--------~--------~~

CALL SSRPOD(flNERC1 1 J),b 1 lCLS(J)+1 1 Fl~SSR,FINSAV)

"--------~I~r~(~L~l~~~*~L~T~*~S~&~)~G~O~T~0:......,::3~0~4~~----------------....:..' ________ __:*:__ ____________ ---J

~~~~~Cb,1170) T_l_T_LE~,TITL~E~L=--__:__~~~~~~--~~~----------____.

'I 0*

l=l+l

~

TFM~-=o.

~-~~~h~f~.-=~C~l~l~-~1~)~/~6---,.-----~----~-----~-~~~-~~~-....;..~

8 *: -----~-*,. =

  • 7~_C_l ~----"'-*-=fl-=)---------------------------. __

,.. =I~ L'* t * ~ - L + 1 310 309

a *
0..

c

.:i:

.;~

c ***

lf(l\\t;.i:.*J.b) CALL IJkAS(~*I.1',.ER,&,l1F)

DO 301 L=1,IH1 lr(PN.GT.3) GO TO 309

  • lf(IS1G.NE.O)G0 TO 309 IF(KLU~.GT.o.o~.KJ.GT.1) GO TO 309 00.310 J=1;3 EFMCJ,M):~f~(J,M)+PHI(L,Il)*PARTCJ,L)

CClNTlNUE ACL=O.O oq 311 J=-1,3 ACL:ACL+PHI CL, I l) *f"JM CJ, L)./

f It.~ R ( N N, L) =Fl l'f E: R crrn, L)

  • F ~ ( "4)
  • p 111 ( L, l I )
  • F J"" (JI L)

UPDATED ON MARCH 25, 1976 TO COMPUTE SRSS RESPONSE IN ACCORDANCE

~lT~ GROUPl~G M~THOD ~F R~G. GUlD~ 1.92, H~VlSlUN 1, r~s. 197b.

C01'TINUE ACL:O.O IFCISIG.E0.2) GO TO 317 ACCELERATION AND INERTIA FORCES FOR LEFT OUT MASS IF-(*l'l;~i.Lt. 4) ACL:P (NH) *Y Df*lAX ( NN, filF).

lFClSJ~.EU.l)GO TO 317

-~~~DO j1~J:1,3

~

316 ACL:ACL*~FM(J,M)*YDMAXCJ,~f)*P(J)

41.

317 RMSA(~):SOPICR~SA(~)+ACL*ACL) lFCISIG.EU.2) GO TO 300 FINtRCNN,Nf):*FM(~)*ACL

  • ~~~3~0~0...;:l~F~(~N~N~*~E~

1 0;;...:..*1=-=..)_..;.W~R.~I~T~E~(~l~T~2~)__:(~.(~f~I~N~E~R~(~K~.,~L~)L,L~---~1.L..;.;.,N~F~)~,~K~=~1~,~6~):__~~------~---1 LIN:t>U 9

  • -------*~R~l~T~E~**~cl~T~2~1~)~T~I~T~L~E~L=---~-*-_,_--~------__.~.__ _________________ ~---1 DC' JU7 I=1 1 NBC

~ ----~e~A~C~K~S~P~A~C~E::_;-I~T~2::;;_ ______ -=--"'" _____ -----------------------------------i RE~O(IT2) ((Fl~ERCK,L),L:1,Nf),K:1,b) u--~_...._....~0~0::........::3~0~3;..,,,..;K~=,,...:..1~,~b~~"=""'....,..,..~-:-...,...~~~----~-----~------~---.;_....----~-

l03 ~~lT~CIT21) (FlNEk(~ 1 L),L:1,~F)

~---=-----~a~~~c~~~S~P~A~C~~:__:I~T~2=---------------------------------------------------

c K-~c~*~*~*---=.P~R~I~r~'T:..._:o~u~T=--~I~N=E~R~1~1~A:........:.F~o~R~C~E=--------=--------------------....------~

c v------~l~F~C~l~~~~~T~~~L~*~F~Q~*~l~)~G~O:..,,..::T~0~3~0~7---------------------------------------

CALL UER-S(flNSSR,6,1)

~-----~D~D:.,_;_::3~0~2~J~=::..:..1~,~~~F-------___,:-=--.:.,......,~~~_,...-=~~=-~~~...,...--------------..,........_

CALL SSRPOD(flN~RC1,J),b 1 lCLS(J)+1 1 fl~SSR 1 fINSAV) a ____ __.:I~r~(L~I~'~**~L~T~*~S~b~_)~G~O~T~0::.__:3~0~4~~------_.;..---_;,_-~-----=--~-------~

~RlTECb,1170) TlTLE~,TITLEL

~

~ *

~ *

  • 7 *,.

a

II..

JI

  • JD
a *
s..

JI

~

  • 7

.a u *..

M

£.

I..

a

'\\:

L. J r* - L'1 11 T l 3 O 4 I J* C,j

  • F v
  • 1 ) G IJ TU 3 O 6 w~l1~C6,bl) J,(FlNER(K,J),K:l,b) l 0 2 L H' =

L 1 ~ + 1 on 4vu J=l,6° 400 FJ~~S~(J):~S~RT(PJNSSR(J))

I

~~1t~l~;~4)(fi1t~~~~~(~J~)-,~J~=~1-,~b~)~~~~~~~~~~~~~~~~~~~~~~

_ LJN:Llt~+1 307 CC1NTH~UE GE=J*.864 lf(GE~)J21,320 1 J21 321 GE:GEE/100.0 320 I=O OD 315 J:l,HDOF,6 DO 315 K=l,3 I=I+1 Kf(:J+l<*l 315 ACCCll:RMSACKK)/GE 14.:ti Uuf / 2 WRIT~CIT21)(ACCCI),I:1,K)

CALL

~RtlME(6tt!FORCE) 500 CONTINUE 1000 H!::TUH~I 2 f" n Hr.~ T ( b E 1 2

  • 0 )

3 f" Cl R !-i AT ( 4 E 1 S

  • 8 )

4 FOH~ATC3l6,~12.0)

12. FOH~*:A1(18A_4) 16 FOK~AT(lb 1 2E12.0)*

/

--:*.?

/

23 FOH~A1'(1H1i1X,7bH***WARNING*YOU HAVE SPECIFIED A POLYNO~lAL GREATE lR T~AN 8TH ORDER I~ SEGMEhT,J2,16H OF CU~VE NUMB£P,I2,3H***)

2T-FbR~ATC/4o~;9~S~ECTRAL,4A4//12X,4HMODE,12X,&HP~RIUD,12X,11HOIRECT 110N 1,12X,11HD1RECTION 2,12X,11HDIH~CTION 31) 22 FORMA1(1JX,I3,12X,fb.4 1 3(11X,E12.5))

24 FO~~ATC1JX,I3,1JX,SH *****,3C11X,E12.5))

25 FOR~A!(//16X,41H*** LEFT*Uur-~ASS IS INCLUDED AS. MOO~ NO.,IJ I 1

3(34X,19H~lTH ACCELERATlON =,E12.5,13H IN DIRECTIQr~,12/))

26 FOk~A!(//16X,38~*** TOTAL

~ASS IS INCLUDED AS MOOE NO.,Il//

1 3C34X,19ri~ITH ACCELEWATIGN :,E12.5,13H l~ DIRECTIO~,I2/))

27 FORMAT(///lbX,SdH*** CO~rflCl~NTS TU DEFINE THE BASE ACCELgRATION

.1DIRECTf0~/33X,43~AND TH~ MAGNITUDE RELATIVE TO INPUT SPECTRA/I 2

3(3bX,2HPC,11,2~):,~12.~,13H IN UlR~CTIOh 1 12/))

62 FORr,.A'l'(It-/CI12,614.b)) *

~

~3 FOR~ATCI12,b~14.6J 64 fUH~AT(HX,4HSRSS,6E14.6) 11 0 "OR~AT(1Kl,1X,32 4 X,lijA4/4 X, Hl H E R A

11 X, t 1 HJ 0 I NT M 0 lJ E, 6 X 1 2HF1, 1 2 X, 2 H*f 2,

1 12X 1 H 3 1 1

, HHl, 2X, H /~X,

, HNU.)

11 7 1 F 0 fH'. A T C l H 1, 1 X, J 4? ~ 4 / 2 X, 1 ft A 4 / )

11 2 fO 1 (1H1,1,

I x,* ~ 4

':)E..,. ND.

s 11 6 ~ l) IJ *r 1 r* ~

u co~~o~ ITl,IT2,I?3,lT4,IT15,IT17,JT1S,lf20,I121 COH~G~ TlTL~~C3~),t1TL~P(18) 1 T1lL~L(lij) 1 TlTL~CC18),K~U~A cu~~ON ITl&,KSElZT,IAUTO COM~U~/~LUCU~/l~K~U~ 1 ~AXPRT,NU~H,L HKC

),ITPUO~b~,IFILE~b),ICHK~6) 1

.,RDfAC,NARAN

)

t t

t

~

  • I ~~~~----~-~~~~~~~*,--~~---------
a D

. :a a

a a

Gd ru

~iJ:Z 304 I~CJ.YU.1) GO TU 30&

W~lT~C6,b3) J,(flNEHlK,J),K:l,~)

302 LHi:L l ~-t 1 on 400 J=l,6' 40~ FJ~bS~(J):~S~RT(FI~~SF(J))

a~ftii~~4)(~1:;~S~(J~)-,~J~:7 l-,7 b7)~~~~~~~~~~~~~~~~~~~~~

LJH:LlN+1 307 CONTH~UE GE=3.864 1F(GE~)J21,320~J21 321 GEi:GEE/100,0 320 I=U.

DO 31~ J:l,NDOF,6 DO 315 K=l,3 I=I+1 Kl'=J+l<*l 315 ACCCl):RMSA(KK)/GE K:NUOf /2 WRIT~ClT21)CACCCIJ,I=t,K)

CALL ~RTl~EC6HIFORCE)

SOO CONTINUE 1.uoo H~TURN 2

f"nJH'.~1'(bE12.0) 3.f"OR~AT(4E18.0) 4 FOHMATC3I&,~12.0) 12 F 0 H ~~A 1* ( 1 8 A.4 )

16 FO~~AT(lb 1 2E12,0) 23 FOH~A1'(1H1ilX,7bH***WAR~l~G*YUU HAV~ SPECIFIED A POLYNO~lAL GRgATE JR THAN BTH ORDER Ih SEGHE~I,I2,16H Of CURVE NU~BEP,I2,3H***)

2T-,bRMATC/4oX;9HS~ECTRAL,4A4//12X,4HMODE,12X,&HP~RIUD,12X,11HDIRECT 110~ 1,i2X,11HDIRECTION 2,12X,11HD.lR~CTIDN 3/)

22 fORMATC1JX,I3,12X,fb,4,3C11X,E12,5J) 24 FO~~ATC13X~l3,1JX,5H *****,3C11X,E12.5))

25 FOR~AI(//16X,41ri*** LEFT-uur-~ASS IS lNCLUO~D AS. MOO~ NO.,IJ//

1

  • 3(34X 1 19H~lTH ACCELERATION :,E12,5,13H IN VIRECTION,12/))

26 FOH~AT(//16X,30~*** TOTAL

~ASS IS lNCLUogo AS MOUE N0.,13//

1 3(34X,19ri~ITH ACCELEWATIGN :,E12.S,13H l~ DlRECTI0~,121))

27 FORMAT(///lbX,SdH*** CO~fflCIENTS TU DEFINE THE BASE ACCELERATION

.1DIRECTi0~/33X,43~AND TH~ ~AGNlTUDE HELATIVE TO INPUT SPECTRA//

2 3(3bX,2HPC,I1,2A):,~12.~,13H IN DlRECTIOh,12/))

&2 FOR~A-1'CI~/Cl12,6E14.b)) *

~

~3 FORMAT(I12,b~14.6) 64 FUH~AT(HX,4HSRSS.,6E14.6) 1110 toRMATc1H1,1x,124412x,1ijA4/4ox,21H1 N E R t 1 A r o R c e s

. A

/lX,t1HJUlNT MOIH:,6X,2Hf"1,12X,2H*f2, 1

12X,2H~J,12X,2HM1,l2X,2H~2,12x,2HH3/2X,3H~U.,5x,3HHU.)

ti71 ~OR~ATC1H1 1 1X,J2~4/2X,1~A4/)

1172 FOR~ATC1Hl,1X,32A412X,1~A4/40X,ij~LOAD N0,,13)

111~W!E f>~ D.

s u 8 ~ D *J *r 1 r* t: £ V' AL u co~~o~ IT1,IT2,IT3,1T4,IT15,IT17,IT1Y,1T20,Il21 COM~O~ TlTLE~(3~),t1TL~P(l~),T1TL~L(1~),TllL~CC18) 1 KLU~A CUM~ON IT lE>, l<SEl ZT, I AUTO I

  • COM~U~/~LUCU~/l~K~U~,~AXPkT 1 NUM~,LCHKC6),lTPUOCb),IFIL£(b) 1 1CHK(6) 1

.,RlH.AC,NRRAN Cl.Hii *-10 i\\i IS Y ST~\\ Ill/;,.: ill C 1 U 0 0

  • b
  • h l
  • G F~fl l 1 (JU 1). 2. 2)

At=C~*ARGCJl))/Oiff A7.=CA~G(l~)-~)/Ulfr i)l)

~ J= 1, :*!F'U MC s

F(Jl=~l*FU~C(l~,J)+A2*FUNCCI1,J)

-J~=Ih

-~---------~~~-~~~~~~~~~~~~~~~~~-

~EIUkll:

Er*o

.. J ~

- bl.'li"'ull1'lt:E LCil)CLJ'"

c 0,,, ~ (.; t* -l '.1' 1, I T 2 ~ -1 i"J','l'"T"'4:-,--,l:r-:T;;"'.1.-;~c:--, l~T;o;Tl ~7-, *1 MT..

1"8-,91-;;T;-;:;2;-;0;-,-:;1;-:;I;;;2:.-:1:------,.---------

CO MM 0~ iITLE~(3~),TITLEPCl~),TltLELC18),TITLEC(18),KLU~A COMrO~ Il1b,NPLUT,1AUTO,IOUT CO~MG~/KLUCOM/~LUPIP,KLUE,~LCbO~,hU~B,NBC,~LOAO,hNOR,~TOT,~SEC, 1

r~ C 0 0 R D 1 I~ r4 A I, tv C "i L 1 le TE 1--1 P, t. D I SP, N G HA V, IS T U, Q DU r-! 1 NP~ ES

  • 2

~SK,NBA~O,KTE~P,K~DIT,NF,ISUP~H,LO~,~PHESS CO~MO~/TPHl/ISKC20),Nb(200) 1 F~RZEG(l 1 1),A~~T~0(1,1) 1 1GHAVl140)~

1

~TE~PC140),GRAVC20,3),tLBARC12,6),~Crc6,140) -

COMMG~/TP~3/LOADC10),KflLEC10l,IC~SC41),~CL~,K~UD COM~U~/SYST~D/VEC(140),B(1~44~),DUMYC2,b),1C(BOO)

~OUBLf P~ECISlON V~C,B,PU~Y a

N2=1~448/ISTU

~--=-~,..,--=-.,...----=-___,..,.-=----------~--------------------~-

1FCN2.~T.~F) N2:Nf 00-10 I=1,N8C

~~--=-1~0_,,,.I~C~(~I~l-=~I~--~~--~~~~--~--------------------------------------~~

a CALL f: RAS l ( N r;, 1, 2 0 0 )

~ ~.,. If, lJ l T 1 7 DO 5CO I=1,Nf,N2 kErrH.D 11'4 CALL

~FER3DCI,B,VEC,N2)

--~~~..,.....,,...,..,....__,~....,......,,...--=-~~.,.,..-~..,............. ~----~--~~~~~~----~~~~~~--~~---

~ 20=M1~0(~2,CNLOAD*l+l))

IG=I+~20~1

~k-E-~~l~N~C--1~1~'3=-----------~----~---------------------~-

READ(l!3)KK,KK,NTOT,NSK,IAUTO,CISKCK)~K=l,HSK),{~B(K),K:1,Nt0T),

~-----~-----~~__;_-----=--=-...:.......,.------:.-------_._---;..-----...;....,,----=-~;...,...--.:___ _ _,,,,~--~-

1 fURZE0(1 1 ll,A~~T[Ul1,1),(lGFAV(K),K=l,~K),(MIEMP(~),K:1,KK)~

2 KTEPi'P~GRAV,NTe;l'llP,FG~AV,NBRAN.

--~~-.--..,,...,,,,..,,...,,...,...,.~~-=-~~,,,__,:...,..,.,........,,~....... --___;:.,..,.,..._,..,~~.....-~~~-.--~--~~~~~----~~---

31 lfClAUTO.~E.Ol REAOCI13)

~h,M~,ClCC~l,K=l,NN)

IF(KLUPIP.EQ.1) GO TO 250 1FCKLC0DE.EQ.O) GO TO 250.

REAL' C II 3 l IFCKTEMP.NE.O) HEADC1T3)

-*~--~2~5~0--;;C~A~L~-L~N~*D~F~O-~_s.;....;..c~I~,~I~G~,_V~E~C~,_N~*2_0~~-~~2~,~B~C~l~'~*~I~C~L;;;.,,;;;..S~,~D-U_M~Y~,-~~C~L~S~,~I~C~);.._~~~~------~~1 500 CON'fl111UE D~~~--~c~A~L~Lr:"""l~~E_,R~A~s-:--cs_,;_,_b~,-~_s_c~>~--~----~~~~--~~--~------------~~---------

kE"lf*t !Tit on 2(1 I=l, N~C

......-__,,,----....,..,...,,.--..--.;...._----------------------......-~~-----------------1 o~ 20 J=l,6

~J~~~=~?~--J~+~1~1~+~6,..-----------------------------;__-------......-~

1

  • --~-~~~~~~A~D~(~I~1~4~)~(~V~F~~C~(~~~)~

1 ~K-=~1~,_N~L~O_A~D~-)~~---~~~~--~----~--~--------------I VO 20 L=i,NLOAD s-~---,~-C;.;.,.A~L~L~S~S~~~P~O~D~(~V~E~C~(~L~)~,~1~,~I~C~L~S~C~L~)~+~1~,~S~C~J~J~)~,~O~U-M~Y~l--~------------------------

~

.", _____ 2 __

o_c::._.,,;..o~~~t~I~~~O~E.;...; __ -r=......-..--r-----...... ~...-~-----------------------------------~,

~~~l~D 114

~RlT~(lTlB) (B(l),1:1,lSI~)

~

, _.,,..,I I.

_su~~ULJ!lt~ LT~~PCX~,f~,x,F,l~AX,1P1)

C... * '.

  • l.' I I i- **I 1 i". *i *'

_ ------i)y,. t:.h Sl.C*,~; X C 1),*-~.-C-1....,.)-----------------------------

I:O lFCXll).LE.XM.AhD.X~.LE.XClMAX))GO TO 10

  • ____ __;;2~0-~~~~1~1-~_(~b_,~1_5_*~)_X_M~*-X~(_1~)~,_x_c_I_~~'A_X~>---,..........--,.--=----~--..,,,._----..,...._,,.,...,.._........ --------------

15 fOK~ATC2X,24H*** ~ARNING AHGUM~kT,~12.4,2X,22HDOES NOT FALL BE

~

1!"~~~,2E12.4)

==-=--=-~=--__.:_~-=--~-=------------------------------------------

l f. HI-:= l t:: RR+ 1

~

IF(l~~R.L~.50) RETURN

=....::~~__;_~~-=-_;_-_;,_ __________________________________ __

STOP

= ____

__;;1~0-...:;I~=~I~+~l;__ ________________________________________________________________ ~

=

lFCI.GT.lMAXJGO TO 20 M__;. __.;__~I~P~1~=~1~+~1=---------------------------------------

1F(X(l).LE.XM.AND.XM.LE.XC1~1))GO TO 30

  • ~----G~O=--_T_0_._::_10 _____

. _____________________ ~

30 IF(X(l)*XCIPl)) 40,31,40

  • ~----3~1;_..F_*~~:=-~Cf-*_c_J.~)_+f~C~I_P~l~)~)_/_2~*-o __________________________________________________ ~

a c; C:*

'1 (.;' 5 lj z __

__:.4~0.......:...F_~_=_c~~~(~l_P~l~)-*~f~C~!~)~)-*~C-X_~_-_X~(-l~)~)_/~C-X~C~I-P~l~)_*_X_C~l~)~)_+_F_C~I~) ______________ _

r

!>O HC.:TUk!I!

END

~---~~-------------------------------------------

5 I J~t<OUTINE LU"'ASS

~--------~C~Q~M~~~*O~~-:~J~.T=-=-1~,~I~T=2~,=I-T~3~,~I~T~4~,~l~T~l~5~,~I~T~1~7~,~I~T=-=-1~8~,~I.::.T~2.::.0~,~I~T~2~1;..._ _________________ ~---

C n,.., ~~ crn 'l' I TL E r-1 c 3 2 ), I I TI' E f (1 8 ), 11 TL EL ( 1 8 ), 1' l TL e: c Cl 8 ), KL u EA

  • ----~C~O~M-~~-o~r_**~J~T;;;..1~6~,_N_P=L~O~T~,~I~A~U~1'~0:.__*_-_______________ -_______ __;... __________ ~

COM:V.01,/TPR /!<LUE, N, Nf, l EQK 1 NOCURV,1 T~PK, KRY NO, lDTXP, IV ESP 1 ISUP,

  • --------=1~-~~l~S~l~G;;;_r~'-~D~O.::....:._f~,_N~E~X~C~,~l~C~L~R~~~*s~,~I~N-'R~T_A~L~*~E~'R~,-N~'L:;;__ __ --= _

__,.__,,,.-:--...,,,....,,-.:=--=~-:-:-~--~

CDMM0~/TP~1/JOINT(140),1Dl~C140),FM(l40) 1 0MEGAM(140),DAMPCOt41)

. "' _____ __:1;__ ______

.:...* ;....N ~~~X.:;.J~N..;;;'f..=.(~3~0.:..)..::,~ri...;:f:.::..:.X:.:D;..;:I~R.;..;. C::..;3;...0:...:)~, J;...g;;;..-L:;;.;;.l ~M..:.C.::.1~4..;;;0~) ____ -_. ___________________ _

COM~C~/SYST~F/PH1(140,140),C(140~140)

Q~---~R~E~~~*1~h~'l/:---:l~T~l~8;.,-___

  • ________ *_*_*.,.-------------------------~

l<Er.11'-D 1T21 *

  • ~----~C~A~L~L-:-:::-w~R~T~l~M~E~C~4~H~S~R~T~L~)-~-----------------------------------------~~-------

1 READ(5~10)TITLEL

  • --~---~R~F~A~D~*(~5~,~4~)~1~C~L~Q~*~E~SL,~K~L~U~E~,~~~F~,~l~E~Q~K~,~l~~~*~~T~A~L~,~I~S~I~G:::_ ___________________________ ~

c

~

--~c~*~*~*-=I~E~*v~~~*~=:.__:1=:..._~S~P::.....::::.=C~T~H~U~~_:_:~~E~T~H~O~D:__ ________ ~~---_;_-----------------~

C 2

BASE ACCEL~kA11QN HISTORX

~-~C...:_ _______

~3:._~I~t~~P;..::_f'~P~E~tJ~D=E~~~T_:::B~A~S~E~D~l~S~P~L~A~C~~~*M~.~~*~~*T;.._~H~l=S~T~O~R~Y------------------~

C 4

PRuPuHTl.U~AL LOAD Tl~~ HISTORY v_~c~--~=--~~~~------------------------------~-----------------~--------~

l\\F"'H;ll I'll M------~1~*f~-,~~~L~L~1t~:.~G~-~~-~*~1~).,......::G~O~T~U~5~3~0;..-..,...,..,.....-:-;,.--,::-:..,-....,.,.,.,,.,-:-=--=---------------'-------------

M lFllCLH~S.EY.~.A~D.IEOK.EU.1) GU TU

~20

  • -------~C_A~L~l* f~AS(PHl,140,~1~4~0~)~,,....,...,.--.......... _,...----~""""----.------------------:-~

H~A0CJll) ~L,~.~CALE,CCCCl,JJ,J:l,~),1:1,~J y~-----~D~n~. ~~::._1~=:.!..lL,N~*----------------~~------------------------------------~

liG

~ J:t,*~

m~----~S_C~C~l~,J~):~S~C~A~L~E~**~C~C~1~1~J~)~=-=~-=--::-;-~-=~~-=-=--=---=-~~~~~~~:-::-::--:~;-----~

REAUCIT1)NDOF,NU,NEXC,(J01NT~l),ID1H(l) 1 I:1,U),~J~L!~(l) 1 1=1,NL) 11

2~~~~------------1.-----~----

    • *s zr.
II 3!

n*...

r.*:

=*

JJ

    • ~

a-.

-~*

a**

I:'.

Q*..

i f~ L l fo :.-. b A r. I * * **l T L'IJ 101 J:1,.;J'1 J~:;. L 1 l't+J DC' 101 K:l,NRH 101-~(JJ,K):8lJJ,~)-~CH8AiD,K)*ClJ) l U 3 liO.

  • l 0 :ii._1: 1, KE Af,; D D r.1 1 (.' 2,., :: 1, :.* ~ H 102 ~CJJ+1 1 K):B(JJ,~)

2000 CONTINUE

~

15 20 25 J

4 s.

1 2

1 2

J 4

1 1

REtUkN END SUBKOUTlNE REUATA COMPCN IT1,lT2iIT3,lT4,IT15,lT17,ITlB,IT20,lT21 COM~ON TI!L~MC32) 1 TlTLEP(1~) 1 T11LELC18) 1 TlTLECCl~J,KLUEA COMMU~ ITl/6 COMMON/KLUCO~/KLUPIP,~LUf,KLCOO~,NU~b,N~C,hLUAD,~~OH,NIOT,~SEC, NCOURD,N~AT,hCYL,~!E~P,NOlSP,NGHAV,lSTU,QUU~,NPHES, NSK,~HANU,KTLMP,KECIT,N~,1supER,LON,~PH~SS COMMO~/SYST~U/COORUC3,1000),88(1200),BXC1b00),BMATRC800),NMATR(26)

,XSYS(180) 1 0HlC~V,3,3) 1 TMPll~UOJ,N~(200) 1 0MEGAC1200) 1 ISK(~0) 1 SKC720),PRESRC2U);GHAVCbOJ;fLEX(200),*

S~L~(20U),LAMtJR1(200) 1 Y~HZEW(J 1 14UJ,AMMT~U(J,140) 1 v EC co, 14 o >,'HJ' Pc 6 >

~

co~~U~/TP~/LUUCUU(14U),lJ~~~(l~O),lUlH(l4U),lU~MA!l140),~MY(3J4),

~LUB~D~~EXC,NEXJ~fC3U),Nt;XDEGC30)~NEXUl~C30)

DOU~Lt,; PHt:ClSlON VEC,TEMP RF.\\lilt.ilJ l'I16 kt;wl~D ITl REAOCIT16)

NBAND,NTOT,CNBCil,LA~ORlCil,1=1,NTOTJ,NNOR, CCCORI(l,J,K),K:l,)),J:l,3),l:l,hNUH)

REWIND l'I4 - - -

rwol'~=o DO 15 1=1,NTOT lf(LAMORl(lJ.NE.O) GU TO 20 CC'l~T INUE.

l<l::TUHh DO 2!> 1=1,ISTU kEAUClt4)(VeC(1,L) 1 L=l 1 NLUAU)

~~lTE(lTlj(VEf(1,L),L:t,NLUAb)

. R t: Iii l Iv fj. 1 'f 1 l< E" J.t,O IT4 1.10 2 1=1 1 NBC JR L=r*a~c+ i-1 00 J tt:l,NOUF l\\~L=l~IJUF+ 1 *K

~EAU(ltlllVEC(RRL,L),L=l,NLUAU) 0

[.lQ 4 L=l, * *. *ror l~ll~~.~g.~~(~)JGO TU 5 CONTit:u~

GO. 'l'.O b Lo R l::: 1. A llW t< I ( L J u** c LC.it< l

  • t:v. 0) GO Tu b VO., 1.:1, ~LOAD OCl " r.:1,J

'l't:~PC~ ):O~

'l't:~'P"(K+3):0.**

~

-~*.

~

i t>11--;--t-= i-;-;;-IJ!jf;;-------------------------:--------

7 V~Cl~,L):Jf~P(K) t I

6 lJU 1 (J l\\=01-,--.:;N.-;-:u;;:0.--;:1'::-. -------------------....._ _________ _

_,; k L=t.,(.;(.1f' + 1 *K 10 -ttl!~(lT~)(v~CCK~L,~l,L=l,~L~AD)

'2: c;n,-c111.-J!'_'

~-----~~-~1~11 lT~-------------------------~-~------

l(t;~ll'iD 11'4 kETUHh

& -~~. ENL>

.. --------~S~U~B~~~U~U~l~l~~~g~H~E~~~O~H~~~{~A-,~~~N~,~X~,~~~~~.,~h:-:-)--------------..,.----------------------------

t

~

Oi~~hSlOM A(~~,HNj,X(~M,~M)

~o~o~-u~~~:~~~~-==P~H~~~.c~1~s~1~o~~~i--=s~u~~-----------------------------------

c -*** -~uLTlPLY UPPE~ TRIANGLE

~lTM VECTOH OVEHLAYING PRODUCT Oh V~CTOR a..

DO t:>2 K=l,N D--------~D~Q--b-:-2~1_=_1_,~N----------------------------------------------------------------

SllM=O.

DO bl J:I,N

--~-,....~-~.,..,.----=:--=-=-~~---~---------------------------------------

I 9,

D

a bl SUM=SU~+All,J)*XCJ,K) a b2 XC1,¥):SU~

J :::;;ii E<El'UIH*

ENO bUbKOUllN~ ~~~O~V JD

a

~

a..

a.. -..

u..

11..

1 (j 15 c ***

t co~~o~ I11,IT~,lTJ,lT4,lT1~,lT17,ITlb,IT2U,IT21 CIJMl'lUlli T1'.l'Lt::Ml3~),TlTLl:.1-'(lfn 1 1l'lL~Lil1~),Tll'Lt;l"(18),KLUEA CQ~~O~ !T16,ITP COM~U~/~LUCO~/KLUPIP,~LUE,KLCUDE,~UMS,NBC,hLOAD,NNOR,NIOl,NSEC, 1

NCOORO,~~AT,NCiL;Nt~~~,NOlSP,NGHAV,lSTU,OOUM,NP~ES, 2

NSK,NbANU,Kl~~P,K~UIT,~t,lSUPtH,LY~,~PRESS COMM0N/T~Hl/ISKC20),~B(200J,~T,LA~OHl(200J,ORll50 1 3,3l co~~U~/SXtiTMD/Al20U00)

OIM~NSlON OMAGA(6 1 200)

DUUbL~ ~H~ClS!ON A EQUIVA~ENCE CAC2000) 1 0MAGA(1 1 1))

Hl"idfliLl 11'16 R~AO(lTlb) hHANO,NT,CNBCl),LAMORICIJ,1:1,NT),NNOR,(((0Rl(~,J,K),

A

. K=l,3)~J=i,3),l:1,NNUR),(CU~AGA(l,JJ,l=1,b),J:l,Nl)

NBJ=O I'fP=1t21 DO 10 1=1,NT ir(LA~uH1(1J.~a.* o)Gu to 10 N~J=l l'f~=l'l'l GO TO 1~

CU N '1" J.r-: U t:

IF' ( 1.. bJ *EU.1) CALL Ht:F'O~Z C NBC, P.LOAL>, Ofl'IAGA)

NEuA:l':Bc*6 U~H=liouoo-2*N~A~O)/(N~AH0+1J

.,,~+t.-==,...,t,.....r.. -yL...,u AD* 1 ) I ;J ii Ii + I

~ 1 : r.. t-A 111 I)*,Ii R rt+ 1 h2=~*.l+1~tiA"'u N3=r~2+N~A:W

~4:r-.: 3+i, LUA0* 1 IfC~4.LE.20000) GU TO 20

.1r ~ii CUJh~~~~J!~~*-l_v_0~1_l_v_v ___ -~~~~~~~~~---------~--~--~-~--~

'15 C LI!*. 'f J.. : U r; 1 lJ (I

,, I\\ ( l ) =I\\

.----4111--~~~~---lr~~~~~~--

---*90-*cat:'f:n~ui::;-. ---------------------------------

~

21 21 *..

JI.. *..

I

n

~

I

~..

a IO 12 NF=~AAoc~K c 1 >,~K(2>~NKClll

---1'"""*~-lt"-l,.-f'---. Ci*."f:. LT.1J,.; l.1-4) l'lt*=i~MlN l'cF:i* [f*fl(*;1-*,*;)

---~ l f (.. to"*-~~:. or* GU In:u.--71 r!>*l----~---------------.__ ____ _

1rniTt;(& 1 106)

Mf:l 1 51 N f' 1 =

N to' C**

l~(l.SlG.~~.~.*ANUel~QK.~~.1) Nt:Nt+l IF(iLCE.GE.1) GU TO 35

~~AU(lTlb) ((PAHT(l,J) 1 1=1 1 J),J=1,Nf1)

CALL

~RAS!ClCLDsE;2,~)

c UPUAT~D o~ ~AHCH 2~, 1976 TO COMPUTE TH~ sass RESPO~SE-lij ACCOR*

c OAN'E

~ll'H TH~ GHOUPl~G M~THOLJ ~Q. 4 Of' R~G. uUlD~ 1.92, H~VIolON C

1, f~B. 1976

  • lF(!EUK.GT.llGO TO 15 CALL EHAS1ClCLS,1,4i)

CALL lLSMUD(k~l,O~~GA~,~PSLU~,~CLUS~,ICLSJ

~Hll~(l12l)NF,NCLUS~,CICLSCJ),J:1,41) 3~ irc1~uK.GT.1> Go tu 15 1 o c A LL ~:frnKHP CALL

~RTlME(4HEriQI\\)

GO TO 50 15 RfA0(~ 1 1) ~lNT,lWITLC,IALf 1 TO,TN 1 TlMlN lFCTN*TO) 12,12,11 11 ~I=(I~*lU)/TlMlN Ti'::~ I ~ T l Iii 1 N +TU

~HlT~(&,lb) TlTLE~ 1 TlTL~L,lU,tM,hl,TIMlN CALL H"1ATRX CALL

~HTl~E(4HHMAT)

C.l\\LL IN1'1AL CA~L ~RT1ME(4HINTL)

CALL 'l'lMDPN

.CAL 1..

1* R 'l' l,., E C 4 HI l MU )

~0 ~~TUHN 1 2 " R I 'ft:: ( b, 1 3 )

STUP

  • 2 f°OH,..*A'f(oE12.0) 3 YOH~AT(l6,~~l~.O) 1 ~OH~Al(Jl~,3E12.o) 13 fVH~AT(///5X,4RH*** ~RKOR, lhE STAHll~G TlM~ 15 GREATER THAN TH~

1 11~ f"lt~Al* TlMt.)

lb FUH~ATC1Hl,J2A4/1X,l~A4///30X~42HTJME HISTORY H~SPONS~ WILL

~E COM l~U1~U t*0~/3vX,6HTl~~ 1U=,tl1.5,13H ~Ee. tu t~=,fll.5,SH SEC.IJUl, *

'J.

2.Hil?UTPIJT illi!LL *BE GIVt:i~ A'l" 1 lb,:l5H t;Vt:.NLY SPAC!::L>

lNTl~VALS/.JOX, J

ioH~l~t. l~lEHVA~ TlMl~=,tlO.~,~H St.Ce J 41 t"Uf<l"*A1(U0,3:lA4/1X,Jl:tfl4///22'X 1 2~ti11 Cl L> AL 0 AMP IN Ci/20X, 1 *

~,.. A1 o *' c:, 1 2 x, 1 ~ho A~ 1:-' Ir: G co r: n* J. c i EN r 12 ox, b Hi. u l'i 8 ER, 1 ox,

i

~l~Pf~ CE~T CRIT1CAL/100.1(2UX,Ib,14X~~1U.~))

--~b=0-:-1! R l J t. ( 6~ (i/5 J

~ -,-

~-~i.* - r LJ""...... -'--*"~ 1*~;,i:."-...'.. ~",..... ~..,.~

I

~-.:--=-----__,.If ______

I I

I

~

I I

~-,,

I I

ID
D *
D..
D a * -..
  • d I..

I -

I

'J. CJ 1 ff' t-i: *.;I-'? C 1J,, ~ C A *1, f SH -...Jc.; l.i"1..---'1l 1l-:-1."1~"""'>'>~-----:-------------

208 f~ktA1(10X,~5H~UiQHATlC NL~bt~l'*~ tUH STHUCTU~AL JUl~TS l~ HE~UIH~

10 1~ TAI5. JOB

/C1X~8(ji,~~h

~~~

OLLJ J))

~~6 fUK~A~l1618)

~ -~)~u~ FOk~AT(/112~

0 N01E*~~k~r~*~r_

,T~H~1n~~--p~~IT1T1~~~1~~~h~-.~A~N~Y~~k~~TtT~~k~~~~~c~~E~T~o~TA~J~O~I~N~'T~-~k~U~~-

£

~'*!!ii?~~~ll t-*t:AtiS *r11i:; tvfo:w JUJ~T,.u,.:~E:~ ll~Ll'-SS SPl'.:Cifo"l~L' UTHERWISE) ------------

&UBKOUTl~~ S~TOATC~t,~1,N2)

~-----;~~;---"T;~~~~r-;;;;;--;-;;;~~;-;;-T;p;"~~~....---------------~'

COMMUN 1Tl,IT2,lT3,IT4,lT15,lT17,LTl~,lT20,1T21 c

COM~ON TI'l'Ll!:MC32) ;TITLE:1'(1~),TiTLELC18),TlTLECC18) 1 1(LUEA co~~ON ii16,KSElZT,lAUTU COM~O~/KLUCO~/NUH~,~~lS,IE~LUE,KTtMP,TZERO,LCHK(b),N~AT,LlN,~AlPRT 1

,lTPhU(bJ,IF1L~(b)jlCHK(b),h6~A~,NN,ll~~p CO~MO~/TP~/NTlb),KMAi(2),*Itb;bJ,YL(2j,sRC2),B(l1lrVECC2,3) co~~O~/TPH1/UUM~(183),~MA1Rl4,2U,lOJ,SM(2U,1U),TL~GC~,30) co~~O~/SYST~~/E~D~U~C10V0,6~b)~PF~S(2U,3),llTLE(b,1~),MT~MPll40),

l P~ATl~O,~),YTE~~l~,J0,3) 1 JTUl10U),~UlS(100,2),

2 MATDisc100,~j,Sf(9,~0),fLUCl6,b)~JTC2);1MAT~OUT(2),

j GIC2) 1 1P,Lt:G,KTE~,z~,ZB,C~H,C28,b~~,~28 4

,IBRN,ETABC2),PIKC2),STHS~X(30,b),LOC~AX(30,&,2J,

~

lfLAGC30),LUCNT(2U),l~~~S,AAC3,~),U(2),"C2)

VJ P1~JI!S10 N WR D C 4 ), WT Y Pf': ( 2 )

UATA

~~u,wtYP~/jrl k,3HUN

,~H8~A,~H~CH,4HTAN,4Hb~~D/

DOU~L~ PRECISJU~ *X 11*i:;:-tr"=o lCHf.l1):1 lChKC2):3 lCl1K(3):2 lCHKl4):~

ICHKC~l=6 lCHf-(bl=4.

CALL

~~ASCSTRSMX,30,b)

CALL

~HASlClYLAG,30 1 1)

L>O 5, 1:1,NBHA"1*1 DU

!) v=l,b DC'

~-1<=1,2

~ LOCMAACI,J,K):O 10=0 lrtKl.EUell GO TO 45 C- *** ~~P~AC~ THF.~~iAL AND/UR SEl~Mlt CuLU~NS lN

~~OMO~

LOAD CYCLING e

~

Nllll=lT20

~T(2l=lT21 Klr'.A'I l 1 }:N2

-~"A'l'l2):Nl 1)1) l i:> l=l I~

1(1(:1*2 lFCK~ATCl).EU.O) GU TO 125

~

HEAU(K)(TlTL~C~K,J),J:l,1~),LOAU lf' (l.~<.i.2) lltJ*'l_J:J:NfLl"!P(LUAO)

DU 130 J:1,rW'1B

--~-------~*-;._

  • ~

l to" Cr: t'. J LC:

  • r.: *.It' I L* t: J k i'J l; ll l !;, 1 U)

C I' fo l Lt.. l l ),.L: l, H l Li C.)

(;A Li L (': fo( A~ l ( L 0 AP, 1, 1 0 )

UU 2U 1=1,IFlLe

-~~~~~~~~~~~~~~~-------~~~~~~~--

lf(WYJLE.tu.IYI~~) ~fIL~Cll=l K=KFlL~Cl)

  • . -=

-~

  • 2"0 LG An U'- ) : 1

--*1.. l l i-l*.1 u. e.:\\~. (_IJ -~,-.,--:-i lJ l ~ ()

fl!ll!:(l',14*1)/400 +1 00 251 1:1,MM W~lT~lb,18) TITLEM,TlTLEP lLlt.t;=~o IU=-tOO*Cl~l)+l K2=400*I a

IFCK2.GT.NN) K2:NN K=K2*1<.1+1 D

IYllLIN~.GT.K) lLlNE=K

a K:(l\\*l)/!:>O +1 WRiTt:lb,208) lSTAR,J:1,K)

WHl!~Cb,207) (SfAH,J:l,~)

CO 252 J:l,l~iNE 252 wHlT~(b,2~6) ll\\. 1 ICCK) 1 K:J 1 NN,lLINE) 2~1 CONll~UE

a W~lll::lb,5ll0) 150 t*r=;\\L[1AD

~

IS TU= i. BC* b r

  • KLOD=O

~

a<.=o 1000 !<=K+1 kEAUClT21)7IlLEL IF"CLOAO(Kl.t*E.O) GO TD 1001

~

uo 1uu i=1,1s*ru*

100 HEAL>ClT21)

IF(ISLIPl::R.N.E.2) Rt;AD(IT21)

GC.10 1002 1001 CALL

~~SOLV CALL

~*HTlM~(4HRt:SO)

CALL tiEDATA CALL

~Rtl~EC4H~~DA)

C.

C *** ISUPE~ :u RMS SUPER OhLY C

=1 l~UlVlUUAL ~U~~ k~5UL1S, l~E~ YULLU~~D BY RMS SU~EH e.

C

2 lfliDl \\I !DUAL Jo!lltH::

~t:SULl"S UNLY*

c

~LUU=KLOU+1 Kl=lSUl:'EN+l GO 'rlt O? 5, 3 0, J 0), K 1.

lU 11-' C l~l 1 t>f'~~ * £: 1;,

  • 2
  • At-;U. lst:L<.: *~LI.1) lbUPlN=.. lSUPt-;H

~

l~(lSU~~H.~Q.1.AND.~SAV~.~~.O) ISUP~R=*l5UP~R CA L L :> l' L l" 3 b CALL kk1l~E(6HSULTjOj 0

lfo C lSOP~lC. L:l. 0 l ISUP~t.'=* l~UPEi(

1 F ( H:i l1 Pt. H

  • E <J * :;,n

<.i 0 TU 1 0 0 2

l~ CAl..L 1.. uc*CUft CALL

..-~TlME.. (4HLUOC) 1002 1FC~L~~.LT.IF1L~) GO TO 1000 a

  • If (ISUP~k.EU.il RETUHN CALL SUPT~P(lfJLE,lSTU) fJ lo "1 I t *

~

1 IJ lj 4 1:1,20 t!:lOe:t-b Io=~

If tu~. r~e. o >GD TU 1

.- 4 CQl;'Jll\\iUE Gl; 'fl.I 100

~ l=IJ GU '!U :l u 3 DO

~ 1=1,20 H=.1*~

l~=t!

I fo" ( 11:! e l::U

  • 0) GO TO *8 5 COWl'lNUt; GO TO 100 7 l=-1
n GO *ru 20
D 8 l=I*l 2U f:10.**I l~=Jt/f"+.91J9 L1=L*KM+1 L2=Ll+MM YCL2):fLUAT(l8)~F a

lfOi!.Ll.OJGlJ 10 9 XXX.X:)./H?-4 GO 'l'll 11.

9 YtLi>=*1CL2) xxxx=xf"AX 11 l~=XXXX/Y(L2)*.999

~(Ll)=XtLiJ*fLOAT(lB)

HEIUfH*

100 ~~lT~lb,200)X~AX,XMlN

II 2uo fOH~AT(2~lb.8,13H OUT Of" RANGf;)

S1UI-'

-~

EJ\\ID

-r-SL~~t<UUT lf';E SE!Sl'!C COM~G~ JT1,IT2,1T3,1T4 1 JT1~,1~17,1T1B,IT2U,lT21 c 0 ('II~ u t~ Tl r LE~ l 3 2 ), T.11' L (:; p ( 1 b ), 1* 1 'I LE L l un, T I T 1, i:; c (1 8 ), K"L" u EA COMMUt** IlHi,NPLUT,IAUlO. -

COMMO~/~LUCU~/KLUPIP,~LUE,KLCUU~,NU~~,N~C,NLOAU,~NOR,N!Ul,~SEC, 1

.~COORD,~~AT,NCYl,,~T~MP,hDISP,~GKAV,ISTU,QUU~,HP~~S,

~

N ~I'., N ~A f, D, Kl t:: 1"' P, Kl ll l 'I, N f', l SUP C. K, LU to, MPH ESiS COMMU~/TPH3/LOAU{lO),Kf~Ll(l0),ICLSC41),~CLS,~LOD cu~~O~/SISJ~D/IC(~UU)

~

UATA.STAk/ltH/

RI:..-1 ~ U II2

  • a lil!:hlND ITJ t(J-.11tlf.U l 1 1 ::>

au:... 1 ~v IllB KfALilllJJ t I\\, l = 1, 4 J, l Au *ru l fo" CJ A lJ Tu. NE

  • 0 )

RF.4UllT3)NN,~~f(IC(K),~=1,~N) kl'.ll l i.. [i lT:ll k I': A U Cl I 2 1 ) I J L 0 I\\ D, tJ C L.S, C I C LS l 1 ), l : 1, 4 1 )

k t:~A Li ( ~, 10) l'; u M ~, N ~C 1 '°It-' l LI::, l f' l LI'.-,]. :SU Y t;k, l bt:LC, M~.A V &:.;

tiiPITECb,1)

TITL~~,TllL~P,~Ur~,~~C,NLOAD 1 fUk~A1(1H1 1 1X,32A4/~X,i~A4////

I

~

I 1

JOX, ~OHSllPEHPUSl'l"ll't-' Or DYNA,.llC LOADS Ill 2

2 b )., J 0 ti ;. IJ... HE j.( Pf t::f.t::l1t.:1' l -----------,14/

I..

ol

?r r

olll,~IJ1l* ""'° I'° 1 11 I

'I..,,

~

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

2

~:.J),J:1,~r,1=1_,td~llR)

,e.

  • C C***

~RlJ"£ LUAUI~G DATA O~ 4Th flLf Of JT2 c

S O..D C 0 NT I 1-.i IJ E RF'.t. Ir!O IT2 ft_~ A._f *_ ( l T 7. ) _ XX ______ _

l F ( ~ 1 t r.'.'"'.-:. t-:

  • L>)

td*; A:)( I 'f ;l )

X.ll.

~fCIALiTO.NE.Ol HEAOC1T2l READCIT2) XX.

~R11ECIT2)f0RZEOC1,1),A~~TEUC1,1),(IDISPCJJ,I=1,NDISP),(.KDISPCIJ,I 1

1,~DlSP),((~OlSPCl,J),J:l,lOJ,I=l,~DlSP),(JGRAV(l),l:l, 11 2

~LOAD),(~lEMP(I),i:t,~LOAD),(~lTCODECI,J),J:l,NU~B),I:t, 3

-~fEMP),(FGHAV(l),I:l,~LOAD)

IFCKEUIT.GE.2) RETURN RE IV Jr~ L* 1 T 1

=

IFCKLUE.E0.1) RETURN ZI R.El'ilr.D IT16 WRlT~ClI1&) NBAND,N~OT,(NB(l),LAMLRl(l),1:1,NTOT),NNOR, 1

l((ORICI,J,Kl,K:1,3),~=1,3),I:1,NNOH),((OMAGACI,Jl, 2

J:1,b),J:1,NIOT) rr RETURN 3

26 fOR~AT(//5X,57HCHECK OF O~*DIAGONAL TER~S OF THE SYSTE~ STifF~ESS i;.1t.1"kl.X/ )*

27 FOk~AT(5X,15HMAXIMU~ VALU~ C,F12.5,15H) OCCURS AT TH~,14,&HTH DOF)

~* ---* 26 f"OH~*.Al(~X,15!i:.iI:dr*dJi;;----v-Af..ur~ (,t-~12.s,1SH) OCCURS AT THE,14,&HTH DOF)

---~~-Ff?k"'._A!~5X,11HRATIO Of" HAX/MI~=,E12.5)

.rrno

~

SUBMOUTINE ERASCA,M,N)

DIM~h~lUN AC1)

K:"t*N DO-1:1,K 10 ACI>=o.o RETURN~~-------------------------------=--~

e *..

END s u B H a IJ *r I N ~ t:: R A 51 c K '-M ; N )

e a

OIJr:ENSICJN K ( 1) a L=*ON DO 10 1=1,L 10 KCI):O RETDR~

E ~~ D

~ Sl.IBt<OliTlNt: EROKHP )

~

{.

Cott, M(.]t. Tl 1, I T2, I l' 3, 1T4,Ir15, l 'lT1-;T'rIT, I T20,I1'21 u

co~~u~ IlTLEMC32),ilILEPl18),TITL~Ll1B),TltL~CC18),KLU~A

_,,C,,_U_,tr.-.'*101,/"I~.K/l(LUE: IN, NI', l C:Q K, MJCUk v, x*n Pl\\, l K p v r-;O, IDT y p, l vi::sp-;-rsup, c

1 ISIG,NOuf,NEXC,ICL~ES,INR!AL,NCLOS~,ICLOSEC2,~)

co'"' ;* u.. ~ 7 *r ri ~ t I J w 1,, r c 1 4 o ', l o 1 H c 1 4 o >, ~ c 1 4 o ), ur1 c: ~ k :., c 1 4 o ), i c L s l 4 1 >

cn~~~~/SYST~F/PH1C41,140),PAHTC3,14U),FM(4~UO),PkU(41),~JM(j,41)~

1 F1~C:H(b,41),PC140),XU~AXC3 1 41),X(b,100),iCb,i00) 1 2

TE~PYC&,41)~CR~FACC3,b),NPOIUTC&j,E~*Mc3,48yO),

3 J*~4,~1"--Sli(4800),ACCC:i!4CO)

OT~~~~IU~ ~Rn(~),f!~SSR(b) 1 flhSAV(b)

VUU tH.. F.

P~ C:C lS l 01*l E' IN 1:.~, A CC 1.l*' ir: SSH 1 f"1 NSA V OAT~ *RU/4H~CCE,4~~CIN,4H/S~C,4H**2),_4HVEL(,4HlNIS,4HEC) !4H I

DATA N138/13tl/

=r*z1c c....l_JLl,1.J1lll*1*y., **

,,., c*** *rror*e 1* 1 pn:, '"V'"

D 1 '"°Co 1 *<*r**.----,-----=n-:--0

---,,---... cn0 1 *CC

I_

--* --- -*-*---------* ------------------:----~~---------

2*)

5TOP

  • ---;-:~~.. -*

~ t.:'-JD

-~ 1 -

SlltP<Ul.i'fl~E JV1S

~

ia
a zt..

JD C P.. 1 * '-'.,

.I *1 1, l 'J' "l., l T ~, 1 T 4, l t 1 !:>, J ')' 1 I, J T l ~, 1 T 2 U,.1 T "l 1

-: CP fli,., L"' f.1 *r i, ~~.o\\ l J :.l ), r l 'J. u. y l l ~ ), 'J' i l LI:. L ( 1 ~ ), r l J: L* e;c ( 1 ti )., ""I.. II t: A CU:'(l"IO!ll 1T1 b, i~P LU'f, lAllTU, lOlJ'l COMMO~/KLIJCO~/K~UPlP,KLUE,KLCOOE,~U~S,N~C,hLOAO,N~Ok,NTOt,NSEC, 1

NCOO~~.~MAT,~CrL,~tE~P,NDlSP,hG~AV,lSTU,UDUM,NP~ES, 2

. NSK,N~AND,KT[~P,K~DIT,Nr,1sup~H,LlN,~RRA~

co"~UN/TPK/ ~rY~,!1J,12J,~UlV,J~NUSP,1PlP,KT~~.1sisT,1~NUS(l2),

1 V~CTOR(2,b),V~CS~Sti,c),AM3l2 1 b,bJ,GX21C12,12),*

2 Gl1C6,bJ,~12lb,b),G2l(b,o),~22lb,b),XZZ(4),tizc4),

3 I~LiX,F~Exc2j,s~LF(2);~w~~R,Zlt~,JS,Sl,XC&,4),i(6,4),

4 Al(b,b),XSEC(h),R,~(ll),OM1l3,3),COUHDC3,2),U~l~T,

~

DLdDC3J,IPTY~~rLEG,ZR,lJT1,lJT2,~2H,B2~,lPLA~G,lBRN COMMON/TPH1/ISKC2U),~bC2UU) 1 fURZ~Q(l 1 1),A~MT~~(1 1 1),lGHA~C140),

1 MTE~~(140);G~AV(20~3),t~BAkC1i,b),~C(b,140)

COMMUN/TP~3/~0~D(l0),KrlLEl1U),ICLS(41).NCLS,~~oo co~~O~/IP~FA/~S1A,NfILEF,1124,lFATIG -

COMMUN/SYST~D/V~DC~LllOOO,~,b),VTUHli,&) 1 NK(1UOU),~(2,b) 1 fCC6),

. 1 lCU:lOO),TSU>,~<JllJ C 0 M M U r J /tt. A.¥. M 11 f..\\ I [) ! S r"1 A X ( J, 3 ), LUC I 1 !-1 A ( 3 ), :; 1' H S 1'1 X l J U, ~ J, L 0 C S..i 1. ( 3 U, 2 )

DUU~L~ PkgC!SlO~ V~CJUR,V~CSYS,A~J,GK21,Gli,G12,G21,G22,0,SI, 1

VuUCAL,VTUH 1 TS,DLOD

\\..

'II ATTACHMENT *c*

SYSTEMS WHICH ARE IN PART SAFETY RELATED

~ -

~R~actor Coolant Steam Generator Feed Main Steam Chilled Water Steam Generator Blowdown eve.

Component Cooling Residual Heat Removal (Unit 1 Only)

Spent Fuel Cooling Safety Injection Containment Spray Auxiliary Feedwater Service Water -

Nuclear Control Air Diesel Generator Starting Air & Fuel RCK:mlb TlO 1 12

Frederick W. Schneider Vice President Public Service Electric and Gas Company 80 Park Place Newark, N.J. 07101 201 /430-7373 Production Mr. Boyce H. Grier, Director U. s. Nuclear Regulatory Commission Office of Inspection-and Enforcement Region 1 631 Park Avenue King of Prussia, Pennsylvania

  • 19406

Dear Mr. Grier:

NRC IE BULLETIN NO. 79-04 NO. 1 AND 2 UNITS SALEM GENERATING STATION April 30, l979 In response to your letter of March 30, 1979, transmitting NRC IE Bulletin Now 79-04 which was received on April 16, l979, we have investigated this matter with respect to applicability to Salem No. 1 and 2 Units.

The following are the results of our investigation:

1.

The Seismic Category I Piping Systems where the 3, 4, or 6-inch diameter valves are installed are:

A.

Chemical and Volume Control System (eve)

B.

Safety Injection System (SIS)

The 3-inch diameter valves that were used in the CVC (CV) and SIS (SJ) systems are identified as follows:

Valve Mark FA 33 FA 33 FA 33 FA 33 FA 33 FA 33 FA 33 Owner's Valve No.

10CV063 10CV074 lOCV078 10CV080 10CV274 lOCV275 lOSJl50 The 4-inch valves that were used in the CVC System are identi-fied as follows:

FA 34 FA 34 lOCV047 lOCV052

Mr. B. 4/30/79 The 6-inch valves that were used in the SIS System are identi-fied as follows:

Valve Mark Owner's Valve No.

FA 35 11SJ043 FA 35 12SJ043 FA 35 13SJ043 FA 35 14SJ043 FA 35 11SJ156 FA 35 12SJ156 FA 35 13SJ156 FA 35 14SJ156

2.

In 1273 when computer analyses of piping systems which con-tained Velan swing check 6-inch valves were taking place, the weight of the valves used at that time was 450 pounds.

(Our vaive list reflected tbts weight. L When the problem of mistaken weights was made known to ~s recently, we rechecked our manu-facturer~ e prints and found that the 225 pounds had been crossed out and the corrected weight of 4~0 pounds was noted in red pencil, confirming our previous checks and calculations.

3.

The 3-inch_ and 4-inch valve weights were checked against our

~anufacturer's p~ints in March 1272 and piping calculations were rerun to reflect valve weights of 200 pounds and 325 pounds, respectively.

Th.e results of our original calculations were fou~d accepiable at this time, using the latest 200 and 325 pound weights.

These weights had been supplied by Velan and marked in rad on their prints.

Until such time that we receive firial confirmation from Velan, our calculations reflecting 2QO and 325 pounds, respectively, will be used compared to the values_ shown in the bulletin.

4.

The affected systems were checked for supports.

Their supports were e_yaluated using the new: calculated loads and were found acceptable.

Tberefore, no modifications to the piping systems or the_ir eupports are contemplated.

Since the weights used for the calc~lations were eq~al to or greater tha~ those shown in the bulletin, our calculations are. therefore conservative.

5.

The program that was used to do these calculations was PIPDYN II.

Tbi.s program was prepared by Franklin Institute Research Labora-tories, Pbiladelphia, Pennsy~vania.

6.

Should we receive valve prints containing higher values than those ueed by us, calculations using final valve weights for the 3 and *4~inch valves will be re~un.

Mr. B. 4/30/79

7.

Since no further action is deemed necessary at this time, a copy of this report can be found at our station site.

Any action emanating from changes as described in Item 6 will result in an additional report to the Commission and to our site.

If you re~uire any further information, we will be pleased to discuss it with you.

Sincerely, CC:

NRC Office of Inspection and Enforcement Division of Reactor Operations lns~ection Washington, _D, C,

2Q~55 Mr. L. J. Norrholm NRC, liancocks Bridge, N.J.

Retrieved from "https://kanterella.com/w/index.php?title=ML18079A321&oldid=5014643"