Document: NRC Regulatory Guide
Document ID: 2704425a-c58a-45c4-93ab-8761721c3e7a
Document Type: regulatory_guide
Title: Evaluation of Reactor Pressure Vessels with Charpy Upper-Shelf Energy Less Than 50 Ft-Lb
Source: NRC Regulatory Guide Division 1
Source URL: https://www.nrc.gov/docs/ML0037/ML003740038.pdf
Revision Date: 2023-06
Chapter: 
Section ID: RG-1.161
CFR Part: 
CFR Title: 

Content:
= RAD +CTH R2 =RAD+TH CONST = 1.0/((R2/RI) 2.0-1.0)*(RO-RI)/RI *DELEA I *(TI-O.5*(TO+TI)) SIGBI = CONST * (I + (R2/RI)**2.0) B-8 SIGB2 - CONST * 2.0 C CALCULATE FORCE DEVELOPED IN BASE M[ETAL FBASE - (CTH-TH*0.S*(SIGBI+SIGB2) C ADJUST SIGB 1 AND'SIGB2 TO BALANCE FORCES FCLAD AND FBASE SIGINC - 0.5*(SIGBI-SIGB2) SIGAVE -0.5*(SIGBI+SIGB2)*FCLAD/FBASE SlOB 1 - SIGAVE + SIGINC SIGB2 - SIGAVE - SIGINC C CALCULATE CONSTANTS DESCRIB3ING STRESS DISTRIB3UTION C QI - SLOPE OF CLAD STRESS DISTR. QI - (SIGCI-SIGC2)/SIGC1/(CTHITH C P -SLOPE OF BASE METAL STRESS DISTR. P = (SIGB2-SIGB1Y/SIGCJC/ I((IH-CTHYMH C -R -INTERCEPT OF BASE METAL STRESS GRAD. AT VESSEL L.D. R-=-(SIOBMI/SIO - P*CTWFH) C CALCULATE STRESS AND KI DUE TO CLAD FOR ALL Z(CRACK'S, C KI AT THE L.D. SURFACE EQUALS ZERO (LE.,CRACKDEPTH = ZERO) SCLAD(1,TJME) - SIOCI CLADK(1,TIME) = 0.0 C KIlIN CLAD NEAR CLAD/BASE METAL INTERFACE SCLAD(2,TDME) = SIGC2 ALP = Z(2)/TH 10 = 1. l22+0.9513*ALP-0.624*ALP**2.0+8.3306*ALP**3.0 Il = 0.6825+0.3704*ALP-O.0832*ALP**2.O+2.8251 *ALP* $3.0 CLADK(2,TIME) - SQRT(3. 14159*Z(2))*SIGC1 *(IO-QI*ALP*I1) C CALCULATE KI IN BASE M[ETAL XI= CTH/TH DO 170 CRACK = 3,35 ALP - Z(CRACK)/T SCLAD(CRACKTIME) = (-R+ALP*P)*SIGCI 10 - 1. 1 2240.9513*ALP-0.624*ALP**2.0+8.3306*ALP**3.0 CLADK(CRACK,TIMvE) - SQRT(3. 14159*Z(CRACK))*SIGC1 *1.751938 I *((IO-0.63662)*((1 .0+R)*ASINQUI/ALP)+ALP*((QI+R*P) 2 *SQRT(1 QWXALP)**2.)-QI)-1 .570796*R)+(IO01 .0)*(((1 .0+R)-XYt. 3 *(QI+R*P))*SQRT(1 .- (XALP)**2.)+ALPt2.0*(QI+R*P)*ASIN(XIIALP) 4 -1 .0-0.7894*R*P*ALP)) 170 CONTINUE B-9 I I RETURN END SUBROUTINE FACMB (AAA, BBB, THH, FMA, FMB, FBA, FBB) C THIS SUBROUTINE CORRECTS FOR *FINITE LENGTH" SEMI-ELLIPTICAL FLAWS DIMENSION ZM(2,4), ZB(2,4), Z(2) DIMENSION X1(12), YM(12,4), YB(12,4), Y(4) DATA XI/O., .0125, .025, .0375, .05, .075,.l,.15,.2,.3,.4,5I DATA Y/.05, .25, .5, .8 / DATA YM/ 1.0,.99,.98,.96,.95,.91,.87,.80,.75,.66,.60,.55, 1 1.0,.94,.88,.83,.80,.76,.73,.68,.63,.55,49,.44, 2 1