ML092310672

Calculation No. B00000000-01717-0210-00006, Rev. 00, CRC Reactivity Calculations for Sequoyah Unit 2, Attachment I, Page 334 of 656 Through Attachment VI

ML092310672
Person / Time
Site:	Sequoyah, 06300001
Issue date:	08/11/2009
From:	Scaglione J US Dept of Energy, Office of Civilian Radioactive Waste Mgmt (OCRWM)
To:	NRC/NMSS/DHLWRS/LID/PMBB
Shared Package
ML092310639	List: ML092310649 ML092310650 ML092310651 ML092310653 ML092310659 ML092310672 ML092310674
References
MOL.19980728.0005 B000000001717-0210-00006, Rev 00
Download: ML092310672 (329)

Text

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O 1717-0210-00006 REV 00 Attachment I, Page 334 of 656 4980 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN SPACERBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+l ELSE SPACERBOTTOMSURF=CURRENTSURFLABEL ENDIF WATERREGIONTOPSURF=SPACERBOTTOMSURF CURRENTSURF=SPACERDIST(DESNUM(COLUMN,ROW), (SPN+l))

CURRENTSURFLABEL=O DO 4990 V=l, (SN-l)

IF (SURFTYPESPEC(V) .EQ. 'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001)) THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 4990 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN WATERREGIONBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+l ELSE WATERREGIONBOTTOMSURF=CURRENTSURFLABEL ENDIF ELSEIF (SPN.EQ.NUMOFSPACERS(DESNUM(COLUMN,ROW))) THEN SPACERTOPSURF=WATERREGIONBOTTOMSURF CURRENTSURF=SURFVALUESPEC(WATERREGIONBOTTOMSURF)-

c SPACERHEIGHT(DESNUM(COLUMN,ROW),SPN)

CURRENTSURFLABEL=O DO 5000 V=l, (SN-l)

IF (SURFTYPESPEC(V) .EQ. 'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001)) THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 5000 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN SPACERBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+l ELSE SPACERBOTTOMSURF=CURRENTSURFLABEL ENDIF WATERREGIONTOPSURF=SPACERBOTTOMSURF WATERREGIONBOTTOMSURF=NODEBOTTOMSURF ENDIF

• Write the current homogenized spacer region cell in this CR universe.

WRITE(30,5026) LN, HOMOSPACMLNUM(DESNUM(COLUMN,ROW),SPN),

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-021 0-00006 REV 00 Attachment I, Page 335 of 656 c (-l*HOMOSPACERDEN(DESNUM(COLUMN,ROW),SPN>>, GTORSURF, c (-l*SPACERTOPSURF), SPACERBOTTOMSURF, CRAUNIV(COLUMN,ROW),

c SPN S026 FORMAT(T1,I4,T6,I4,Tll,G14.8,T2S,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3, c $ Homogenized region for spacer ',12)

LN=LN+1

• Write the water region cell below the current homogenized spacer cell in this CR universe.

WRITE(30,S027) LN, BMODML, (-l*MODDENSITY), GTORSURF, c (-l*WATERREGIONTOPSURF), WATERREGIONBOTTOMSURF, c CRAUNIV(COLUMN,ROW)

S027 FORMAT(T1,I4,T6,I4,Tl1,F10.8,T2S,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Borated moderator')

LN=LN+l S030 CONTINUE ENDIF S040 CONTINUE SO SO CONTINUE ELSEIF (WESTINGHOUSE.EQ .. TRUE.) THEN CALL WESTCRA(SPACERDIST, ENDFITHEIGHT, SURFVALUESPEC, c CRADIM, CRABSMAT, CRABSWTS, CRUPLENMAT, CRUPLENWTS, c CRLPLENMAT, CRLPLENWTS, GTDATA, LEFMAT, c UEFMAT, MODDENSITY, REGABOVECRA, SPACERHEIGHT, c HOMOSPACERDEN, MN, LN, CRAUNIV, BANKNUM, CRCLADMAT, c CRCLADML, CRUPML, CRLPML, FRLEFML, FRUEFML, DESNUM, c GTMAT, GTML, BMODML, NUMREGABOVECRA, SYSTEMTOP, c FRUREGIONML, NUMOFSPACERS, HOMOSPACMLNUM, ASSYID, c SURFTYPESPEC, CRABSZAIDS, BANKDES, CRUPZS, CRLPLENZAIDS, c CRUNIQUE, HYBRID, SN, CRAXCLADML, GTAXML, NUMCRAXS, c GTAXMAT, NUMOFGTAXS, CRAXCLADMAT, GTUNIV, c CRABSAXWTS, CRAXDIM, GTAXDATA, CRABSAXMAT, c CRABSAXZAIDS, GTSPLIT, NODEBOTTOMSURF)

ENDIF IF (BANDW.EQ .. TRUE.) THEN

• Write the specifications for the APSR universes that are

• required to fill the assembly layout specifications previously defined.

DO 61S0 ROW=l,SO DO 6140 COLUMN=l,SO

• Write the APSR universe specification for the assembly if it

• contains a unique APSR material or unique APSR position.

IF (APSRUNIQUE(COLUMN,ROW) .EQ .. TRUE.) THEN

• Write the CR specification header.

WRITE(30,S060)

S060 FORMAT (T1, 'C')

WRITE(30,S070) ASSYID(COLUMN,ROW)

S070 FORMAT (T1, c 'c AXIAL POWER SHAPING ROD UNIVERSE',

c 'SPECIFICATION FOR ASSEMBLY ',AS)

WRITE(30,S080)

S080 FORMAT (Tl, 'C')

• Define the upper end-fitting bottom surface.

CURRENTSURF=SPACERDIST(DESNUM(COLUMN,ROW),l)+

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2

• Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 336 of 656 J

c ENDFITHEIGHT(DESNUM(COLUMN,ROW),2)

CURRENTSURFLABEL=O DO 5082 V=l, (SN-l)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 5082 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN UEFBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+l ELSE UEFBOTTOMSURF=CURRENTSURFLABEL ENDIF

• Define the upper end-fitting top surface.

CURRENTSURF=SPACERDIST(DESNUM(COLUMN,ROW),l)+

c ENDFITHEIGHT(DESNUM(COLUMN,ROW),l)+

c ENDFITHEIGHT(DESNUM(COLUMN,ROW),2)

CURRENTSURFLABEL=O DO 5084 V=l, (SN-I)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN

) IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>>

CURRENTSURFLABEL=V THEN EXIT ENDIF ENDIF 5084 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN UEFTOPSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+I ELSE UEFTOPSURF=CURRENTSURFLABEL ENDIF APSRCLADTOPSURF=UEFTOPSURF APSRABSML=MN

• Define the APSR absorber radius.

CURRENTSURF=APSRADIM(BANKNUM(COLUMN,ROW),l)

CURRENTSURFLABEL=O DO 5090 V=I, (SN-I)

IF (SURFTYPESPEC(V).EQ.'CZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 5090 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN APSRABSSURF=SN

Waste Package Operat~ons Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 337 of 656 SURFTYPESPEC(SN)='CZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE APSRABSSURF=CURRENTSURFLABEL ENDIF

• Define the APSR cladding inner radius.

CURRENTSURF=APSRADIM(BANKNUM(COLUMN,ROW),2)

CURRENTSURFLABEL=O DO 5100 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'CZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 5100 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN APSRCLADIRSURF=SN SURFTYPESPEC(SN)='CZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE APSRCLADIRSURF=CURRENTSURFLABEL ENDIF

• Define the APSR cladding outer radius.

CURRENTSURF=APSRADIM(BANKNUM(COLUMN,ROW),3)

CURRENTSURFLABEL=O DO 5110 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'CZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 5110 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN APS RCLADORS URF=SN SURFTYPESPEC(SN)='CZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE APSRCLADORSURF=CURRENTSURFLABEL ENDIF

• Define the APSR cladding bottom surface.

CURRENTSURF=ENDFITHEIGHT(DESNUM(COLUMN,ROW),2)+

c APSRADIM(BANKNUM(COLUMN,ROW),6)-

c APSRADIM(BANKNUM(COLUMN,ROW),l1)-

c APSRADIM(BANKNUM(COLUMN,ROW),9)

IF (CURRENTSURF.GE.SURFVALUESPEC(UEFTOPSURF>> THEN CURRENTSURF=SURFVALUESPEC(UEFTOPSURF)

ENDIF CURRENTSURFLABEL=O DO 5120 V=l, (SN-1)

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2

... Attachment I, Page 338 of 656 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS (SURFVALUESPEC (V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 5120 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN APSRCLADBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+l ELSE APSRCLADBOTTOMSURF=CURRENTSURFLABEL ENDIF

• Define the APSR absorber bottom surface.

CURRENTSURF=ENDFITHEIGHT(DESNUM(COLUMN,ROW),2)+

c APSRADIM(BANKNUM(COLUMN,ROW),6)

IF (CURRENTSURF.GE.SURFVALUESPEC(UEFTOPSURF>> THEN CURRENTSURF=SURFVALUESPEC(UEFTOPSURF)

ENDIF CURRENTSURFLABEL=O DO 5140 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN

~.

1 CURRENTSURFLABEL=V EXIT ENDIF ENDIF 5140 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN APSRABSBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE APSRABSBOTTOMSURF=CURRENTSURFLABEL ENDIF

• Define the APSR absorber top surface.

CURRENTSURF=ENDFITHEIGHT(DESNUM(COLUMN,ROW),2)+

c APSRADIM(BANKNUM(COLUMN,ROW),6)+

c APSRADIM(BANKNUM(COLUMN,ROW),7)

IF (CURRENTSURF.GE.SURFVALUESPEC(UEFTOPSURF>> THEN CURRENTSURF=SURFVALUESPEC(UEFTOPSURF)

ENDIF CURREN~SURFLABEL=O DO 5150 V=l, (SN-1)

IF (SURFTYPESPEC(V) .EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 5150 CONTINUE

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculhticins for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-Ol 71 7-021 0-00006 REV 00 Attachment I, Page 339 of 656 IF (CURRENTSURFLABEL.EQ.O) THEN APSRABSTOPSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE APSRABSTOPSURF=CURRENTSURFLABEL ENDIF

• Define the APSR upper plenum top surface *.

CURRENTSURF=ENDFITHEIGHT(DESNUM(COLUMN,ROW),2)+

c APSRADIM(BANKNUM(COLUMN,ROW),6)+

c APSRADIM(BANKNUM(COLUMN,ROW),7)+

c APSRADIM(BANKNUM(COLUMN,ROW),10)

IF (CURRENTSURF.GE.SURFVALUESPEC(UEFTOPSURF>> THEN CURRENTSURF=SURFVALUESPEC(UEFTOPSURF)

ENDIF CURRENTSURFLABEL=0 DO 5160 V=l, (SN-l)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN*

CURRENTSURFLABEL=V EXIT ENDIF ENDIF 5160 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN APSRUPTOPSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE APSRUPTOPSURF=CURRENTSURFLABEL ENDIF

• Define the APSR intermediate plug top surface.

CURRENTSURF=ENDFITHEIGHT(DESNUM(COLUMN,ROW),2)+

c APSRADIM(BANKNUM(COLUMN,ROW),6)+

c APSRADIM(BANKNUM(COLUMN,ROW),7)+

c APSRADIM(BANKNUM(COLUMN,ROW),10)+

c APSRADIM(BANKNUM(COLUMN,ROW),8)

IF (CURRENTSURF.GE.SURFVALUESPEC(UEFTOPSURF>> THEN CURRENTSURF=SURFVALUESPEC(UEFTOPSURF)

ENDIF CURRENTSURFLABEL=O DO 5170 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 5170 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN APSRIPLUGTOPSURF=SN SURFTYPESPEC(SN)='PZ'

Waste Package Ope~a~ions Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 340 of 656 SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE APSRIPLUGTOPSURF-CURRENTSURFLABEL ENDIF IF (SURFVALUESPEC(APSRABSBOTTOMSURF) .LT.

c SURFVALUESPEC(UEFTOPSURF)) THEN

• Check Axial Power Shaping Rod Absorber Material DO 5193 C=1,APSRABSMAT(BANKNUM(COLUMN,ROW),2)

IF (C.EQ.1) THEN WRITE (200, 5191) APSRABSML, c APSRABSZAIDS(BANKNUM(COLUMN,ROW),C),

c (-l*APSRABSWTS(BANKNUM(COLUMN,ROW),C)),

c ASSYID (COLUMN, ROW) 5191 FORMAT (T1, 'M' , 14, T9,A9,-3X, G14. 6, c $ Axial Power Shaping Rod Absorber',

c , Material in Assembly ',AS)

ELSE WRITE(200,5192) c APSRABSZAIDS(BANKNUM(COLUMN,ROW),C),

c (-l*APSRABSWTS(BANKNUM(COLUMN,ROW),C) 5192 FORMAT(T9,A9,3X,G14.6)

ENDIF 5193 CONTINUE MN=MN+l

• Write the APSR absorber cell in this APSR universe.

WRITE (30, 5200) LN, APSRABSML, c (-l*APSRABSMAT(BANKNUM(COLUMN,ROW),l), (-l*APSRABSSURF),

c (-l*APSRABSTOPSURF), APSRABSBOTTOMSURF, c APSRAUNIV(COLUMN,ROW) 5200 FORMAT(T1,I4,T6,I4,T11,F10.6,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3, c , $ Axial power shaping rod absorber region')

LN=LN+1

• Write the absorber-to-cladding gap cell in this APSR universe.

WRITE(30,5210) LN, (-l*APSRCLADIRSURF), APSRABSSURF, c (-l*APSRABSTOPSURF),

c APSRABSBOTTOMSURF, APSRAUNIV(COLUMN,ROW) 5210 FORMAT(T1,I4,T6, '0',T25,I4,lX,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Absorber-to-cladding gap')

LN=LN+1 ENDIF

• Write the APSR cladding cell in this APSR universe.

• Determine if the APSR cladding material specification has

• previously been defined. If it has been previously defined, determine

• the cladding material specification label.

CLADMLUNIQUE=.TRUE.

LEAVE=.FALSE.

IF <<COLUMN.NE.1) .AND. (ROW.NE.1>>) THEN DO 5230 RO=l, (ROW-1)

DO 5220 CO=1,50 IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKDES(BANKNUM(CO,RO).EQ.'APSRA') THEN IF (APSRCLADMAT(BANKNUM(COLUMN,ROW>>) .EQ.

Waste Package Operations Engineering Calculation

Title:

eRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 AttachmentI,Page341 of 656 c APSRCLADMAT(BANKNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

APSRCLADML (COLUMN, ROW) =APSRCLADML(CO, RO)

EXIT ENDIF ENDIF

. ENDIF 5220 CONTINUE IF (LEAVE.EQ .* TRUE.) THEN EXIT ENDIF 5230 CONTINUE IF (LEAVE.EQ .. FALSE.) THEN DO 5250 RO=ROW,ROW DO 5240 CO=I, (COLUMN-I)

IF (BANKNUM(CO,RO) .NE.O) THEN IF (BANKDES(BANKNUM(CO,RO>>.EQ.'APSRA') THEN IF (APSRCLADMAT(BANKNUM(COLUMN,ROW>>.EQ.

c APSRCLADMAT(BANKNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

APSRCLADML(COLUMN, ROW)=APSRCLADML (CO, RO)

EXIT ENDIF ENDIF ENDIF 5240 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 5250 CONTINUE ENDIF ELSEIF <<COLUMN.EQ.I).AND. (ROW.NE.I>> THEN DO 5270 RO=I, (ROW-I)

DO 5260 CO=I,50 IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKDES(BANKNUM(CO,RO>>.EQ.'APSRA') THEN IF (APSRCLADMAT(BANKNUM(COLUMN,ROW>> .EQ.

c APSRCLADMAT(BANKNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

APSRCLADML(COLUMN,ROW)=APSRCLADML(CO,RO)

EXIT ENDIF ENDIF ENDIF 5260 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 5270 CONTINUE ELSEIF <<ROW.EQ.I) .AND. (COLUMN.NE.I>> THEN DO 5290 RO=I,I

Waste Package Operat~ons Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 342 of 656 DO 5280 CO=1, (COLUMN-1)

IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKDES (BANKNUM (CO, RO) ). EQ. I APSRA I) THEN IF (APSRCLADMAT(BANKNUM(COLUMN,ROW>>.EQ.

c APSRCLADMAT(BANKNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

APSRCLADML(COLUMN,ROW)=APSRCLADML(CO,RO)

EXIT ENDIF ENDIF ENDIF 5280 CONTINUE IF (LEAVE.EQ ** TRUE.) THEN EXIT ENDIF 5290 CONTINUE ENDIF IF (SURFVALUESPEC(APSRCLADBOTTOMSURF).LT.

c SURFVALUESPEC(UEFTOPSURF>> THEN IF (CLADMLUNIQUE.EQ .* TRUE.) THEN APSRCLADML (COLUMN, ROW) =MN

• Check Axial Power Shaping Rod Cladding IF (APSRCLADMAT(BANKNUM(COLUMN,ROW>> .EQ.1) THEN DO 5292 C=1,2 IF (C.EQ.1) THEN WRITE(200,9300) APSRCLADML(COLUMN,ROW)

ELSEIF (C.EQ.2) THEN WRITE (200, 9301)

WRITE (200, 7000)

WRITE(200,7001)

WRITE (200, 7002)

WRITE (200, 9302)

WRITE(200,7003)

WRITE(200,7004)

WRITE(200,7005)

WRITE (200, 9303)

WRITE(200,9304)

ENDIF 5292 CONTINUE ELSEIF (APSRCLADMAT(BANKNUM(COLUMN,ROW>>

c .EQ.2) THEN DO 5294 C=1,2 IF (C.EQ.1) THEN WRITE(200,9305) APSRCLADML (COLUMN, ROW)

ELSEIF (C.EQ.2) THEN WRITE(200,9306)

WRITE (200, 9307)

WRITE(200,930B)

WRITE(200,9309)

WRITE (200, 9310)

WRITE(200,7006)

WRITE(200,7007)

WRITE(200,7008)

Waste Package Operations Engineering Calculation

Title:

eRC Reactivity Calculations for Sequoyah Unit 2

-', Document Identifier: BOOOOOOOO-01717-021 0-00006 REV 00 Attachment I, Page 343 of 656 j

WRITE(200,93ll)

WRITE(200,9312)

WRITE(200,7009)

WRITE(200,7010)

WRITE (200, 7011)

WRITE(200,9313)

WRITE(200,7012)

WRITE(200,7013)

WRITE(200,7014)

WRITE(200,7015)

ENDIF 5294 CONTINUE ELSEIF (APSRCLADMAT(BANKNUM(COLUMN,ROW>>

c .EQ.3) THEN DO 5296 C=1,2 IF (C.EQ.1) THEN WRITE(200,9314) APSRCLADML(COLUMN,ROW)

ELSEIF (C.EQ.2) THEN WRITE(200,9315)

WRITE (200, 9316)

WRITE (200, 9317)

WRITE(200,9318)

WRITE(200,7016)

WRITE(200,7017)

WRITE(200,7018)

) . WRITE (200,9319)

WRITE (200, 9320i WRITE(200,7019)

WRITE(200,7020)

WRITE(200,7021)

WRITE (200, 9321)

WRITE(200,7022)

WRITE(200,7023)

WRITE(200,7024)

WRITE(200,7025)

WRITE (200, 9322)

WRITE(200,9323)

WRITE (200, 9324)

WRITE(200,9325)

WRITE (200, 9326)

WRITE (200, 9327)

WRITE(200,7026)

. WRITE (200,9328)

WRITE(200,9329)

WRITE(200,9330)

ENDIF

~296 CONTINUE ENDIF MN=MN+1 ENDIF IF (APSRCLADMAT(BANKNUM(COLUMN,ROW>>.EQ.1) THEN CLADRHO=6.56 ELSEIF (APSRCLADMAT(BANKNUM(COLUMN,ROW>>.EQ.2) THEN CLADRHO=7.90

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-021 0-00006 REV 00 Attachment I, Page 344 of 656 ELSEIF (APSRCLADMAT(BANKNUM(COLUMN,ROW>> .EQ.3) THEN CLADRHO=8.19 ENDIF WRITE(30,5308) LN, APSRCLADML(COLUMN,ROW), (-l*CLADRHO),

c APSRCLADIRSURF, c (-l*APSRCLADORSURF), (-l*APSRCLADTOPSURF),

c APSRCLADBOTTOMSURF, APSRAUNIV(COLUMN,ROW) 5308 FORMAT(Tl,I4,T6,I4,Tl1,F8.5,T25,I4,lX,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3, c , $ Axial power shaping rod cladding')

LN=LN+l ENDIF

• Write the APSR upper plenum cell in this APSR universe.

• Determine if the APSR upper plenum material specification has

• previously been defined. If it has been previously defined, determine

• the upper plenum material specification label.

APSRUPMLUNIQUE=.TRUE.

LEAVE=.FALSE.

IF (COLUMN.NE.1).AND.(ROW.NE.~>> THEN DO 5320 RO=l, (ROW-1)

DO 5310 CO=1,50 IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKNUM (COLUMN, ROW) . EQ.

c BANKNUM(CO,RO>> THEN APSRUPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

APSRUPML(COLUMN,ROW)=APSRUPML(CO,RO)

EXIT ENDIF ENDIF 5310 CONTINUE' IF (LEAVE.EQ .* TRUE.) THEN EXIT ENDIF 5320 CONTINUE IF (LEAVE.EQ .. FALSE.) THEN DO 5340 RO=ROW,ROW DO 5330 CO=l, (COLUMN-I)

IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKNUM(COLUMN,ROW).EQ.

c BANKNUM(CO,RO>> THEN APSRUPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

APSRUPML (COLUMN, ROW) =APSRUPML (CO,RO)

EXIT ENDIF ENDIF 5330 CONTINUE IF (LEAVE.EQ *. TRUE.) THEN EXIT ENDIF 5340 CONTINUE ENDIF ELSEIF ((COLUMN.EQ.I).AND. (ROW.NE.l>> THEN

Waste Package Ope~at~ons Engineering Calculation

Title:

CRC Reactivity Calcuiations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 345 of 656 DO 5360 RO=l, (ROW-I)

DO 5350 CO=1,50 IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKNUM(COLUMN,ROW) .EQ.

c BANKNUM(CO,RO>> THEN APSRUPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

APSRUPML(COLUMN,ROW)=APSRUPML(CO,RO)

EXIT ENDIF ENDIF 5350 CONTINUE IF (LEAVE.EQ *. TRUE.) THEN EXIT ENDIF 5360 CONTINUE ELSEIF <<ROW.EQ.l).AND. (COLUMN.NE.l>> THEN DO 5380 RO=l,l DO 5370 CO=l, (COLUMN-I)

IF (BANKNUM(CO,RO) .NE.O) THEN IF (BANKNUM(COLUMN,ROW).EQ.

c BANKNUM(CO,RO>> THEN APSRUPMLUNIQUE=.FALSE~

LEAVE=.TRUE.

APSRUPML (COLUMN, ROW) =APSRUPML (CO,RO)

EXIT ENDIF ENDIF 5370 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN*

EXIT ENDIF 5380 CONTINUE ENDIF IF (SURFVALUESPEC(APSRABSTOPSURF).LT.

c SURFVALUESPEC(UEFTOPSURF>> THEN IF (APSRUPMLUNIQUE.EQ .* TRUE.) THEN APSRUPML(COLUMN,ROW)=MN

• Check Axial Power Shaping Rod Upper Plenum Regions DO 5383 C=1,APSRUPLENMAT(BANKNUM(COLUMN,ROW),2)

IF (C.EQ.l) THEN WRITE (200, 5381) APSRUPML*(COLUMN, ROW) ,

c APSRUPLENZAIDS(BANKNUM(COLUMN,ROW),C),

c (-l*APSRUPLENWTS(BANKNUM(COLUMN,ROW),C>>

5381 FORMAT (Tl, 'M',I4,T9,A9,3X,G14.6, c , $ Axial Power Shaping Rod Upper Plenum')

ELSE WRITE(200,S382) c APSRUPLENZAIDS(BANKNUM(COLUMN,ROW),C),

c (-l*APSRUPLENWTS(BANKNUM(COLUMN,ROW),C>>

5382 FORMAT(T9,A9,3X,G14.6)

ENDIF 5383 CONTINUE MN=MN+l

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 DocumentIdentifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 346 of 656 ENDIF WRITE(30,5390) LN, APSRUPML(COLUMN,ROW),

c (-l*APSRUPLENMAT(BANKNUM(COLUMN,ROW),l>>,

c APSRABSTOPSURF, c (-l*APSRUPTOPSURF), (-l*APSRCLADIRSURF),

c APSRAUNIV (COLUMN, ROW) 5390 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3, c $ Axial power shaping rod upper plenum')

LN=LN+1 ENDIF

• Write the APSR lower plenum cell in this APSR universe.

• Determine if the APSR"lower plenum material specification has

• previously been defined. If it has been previously defined, determine

• the lower plenum material specification label.

IF (APSRADIM(BANKNUM(COLUMN,ROW),ll).GT. (0.0>> THEN APSRLPMLUNIQUE=.TRUE.

LEAVE=. FALSE.

IF <<COLUMN.NE.1).AND. (ROW.NE.1>> THEN DO 5410 RO=l, (ROW-1)

DO 5400 CO=1,50 IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKNUM(COLUMN,ROW) .EQ.

c BANKNUM(CO,RO>> THEN APSRLPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

APSRLPML(COLUMN,ROW)=APSRLPML(CO,RO)

EXIT ENDIF ENDIF 5400 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 5410 CONTINUE IF (LEAVE.EQ .* FALSE.) THEN DO 5430 RO=ROW,ROW DO 5420 CO=l, (COLUMN-1)

IF (BANKNUM(CO,RO) .NE.O) THEN IF (BANKNUM(COLUMN,ROW).EQ.

c BANKNUM(CO,RO>> THEN APSRLPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

APSRLPML (COLUMN, ROW) =APSRLPML (CO, RO)

EXIT ENDIF ENDIF 5420 CONTINUE IF (LEAVE.EQ .* TRUE.) THEN EXIT ENDIF 5430 CONTINUE ENDIF ELSEIF <<COLUMN.EQ.1).AND. (ROW.NE.1>> THEN

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2

., Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 347 of 656

,\

DO 5450 RO=l, (ROW-l)

DO 5440 CO=l,50 IF (BANKNUM(CO,RO) .NE.O) THEN IF (BANKNUM(COLUMN,ROW).EQ.

c ~ANKNUM(CO,RO>> THEN APSRLPMLUNIQUE-.FALSE.

LEAVE=.TRUE.

APSRLPML (COLUMN, ROW) =APSRLPML(CO,RO)

EXIT ENDIF ENDIF 5440 CONTINUE IF (LEAVE.EQ *. TRUE. ) THEN EXIT ENDIF 5450 CONTINUE ELSEIF <<ROW.EQ.l).AND. (COLUMN.NE.l>> THEN DO 5470 RO=l,l DO 5460 CO=l, (COLUMN-l)

IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKNUM(COLUMN,ROW).EQ.

c BANKNUM(CO,RO>> THEN APSRLPMLUNIQUE=.FALSE.

LEAVE=.TRUE. .

APSRLPML(COLUMN,ROW)=APSRLPML(CO,RO)

} EXIT ENDIF ENDIF 5460 CONTINUE IF (LEAVE.EQ .* TRUE.) THEN EXIT ENDIF 5470 CONTINUE ENDIF IF- (SURFVALUESPEC (APSRCLADBOTTOMSURF) . LT.

c SURFVALUESPEC(UEFTOPSURF>> THEN IF (APSRLPMLUNIQUE.EQ .. TRUE.) THEN APSRLPML(COLUMN,ROW)=MN

• Check Axial Power Shaping Rod Lower Plenum Regions DO 5473 C=l,APSRLPLENMAT(BANKNUM(COLUMN,ROW),2)

IF (C.EQ.l) THEN WRITE(200,547l) APSRLPML(COLUMN,ROW),

c APSRLPLENZAIDS(BANKNUM(COLUMN,ROW),C),

c (-l*APSRLPLENWTS(BANKNUM(COLUMN,ROW),C>>

5471 FORMAT(Tl,'M',I4,T9,A9,3X,Gl4.6, c , $ Axial Power Shaping Rod Lower Plenum')

ELSE WRITE(200,5472) c APSRLPLENZAIDS(BANKNUM(COLUMN,ROW),C),

c (-l*APSRLPLENWTS(BANKNUM(COLUMN,ROW),C>>

5472 FORMAT(T9,A9,3X,Gl4.6)

ENDIF 5473 CONTINUE MN=MN+l

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 348 of 656 ENDIF WRITE(30,5480) LN, APSRLPML(COLUMN,ROW),

c (-l*APSRLPLENMAT(BANKNUM(COLUMN,ROW),l>>, .

c APSRCLADBOTTOMSURF, c (-l*APSRABSBOTTOMSURF), (-l*APSRCLADIRSURF),

c APSRAUNIV(COLUMN,ROW) 5480 FORMAT(Tl,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3, c , $ Axial power shaping rod lower ~lenum')

LN=LN+l ENDIF ENDIF IF (SURFVALUESPEC(APSRUPTOPSURF).LT.

c SURFVALUESPEC(UEFTOPSURF>> THEN

• Calculate the APSR intermediate plug cell density.

APSRIPLUGML(COLUMN,ROW)=MN IF (APSRCLADMAT(BANKNUM(COLUMN,ROW>>.EQ.1) THEN APSRIPLUGDEN(BANKNUM(COLUMN,ROW>>=

c (APSRIPLUGFRAC(BANKNUM(COLUMN,ROW>>*6.56)+

c ((1.0-APSRIPLUGFRAC(BANKNUM(COLUMN,ROW>>)*

c MODDENSITY) )

SPACMASS=APSRIPLUGFRAC(BANKNUM(COLUMN,ROW>>*6.56 MODMASS=(1.0-APSRIPLUGFRAC(BANKNUM(COLUMN,ROW>>)*

c MODDENSITY SPACFRAC=SPACMASS/(SPACMASS+MODMASS)

MODFRAC=MODMASS/(SPACMASS+MODMASS)

BWTINH20=((PPMB*lE-6)/(1.0+(PPMB*lE-6>>)*100.0 HWTINH20=<<1.008664904*0.999167*2.0)/

c <<1.008664904*0.999167*2.0)+

c (1.008664904*15.857510>>)*(100.0-BWTINH20)

OWTINH20=<<1.008664904*15.857510)/

c (1.008664904*0.999167*2.0)+

c (1.008664904*15.857510>>)*(100.0-BWTINH20)

B10WTINH20=(1.008664904*9.926922*0.194)/

c <<1.008664904*9.926922*0.194)+

c (1.008664904*10.914730*0.806>>)*BWTINH20 B11WTINH20=<<1.008664904*10.914730*0.806)/

c ((1.008664904*9.926922*0.194)+

c (1.008664904*10.914730*0.806>>)*BWTINH20 OWT= (OWTINH20*MODFRAC) + (0. 120*SPACFRAC)

HWT=HWTINH20*MODFRAC .

B10WT=(B10WTINH20*MODFRAC)

B11WT=(B11WTINH20*MODFRAC)

CRWT=0.100*SPACFRAC CR50=0.04173684 CR52=0.837 CR53=0.09673684 CR54=0.02452632 FEWT=0.200*SPACFRAC FE54=O.05699324 FE56=0.91B68499 FE57=O.02141247 FE58=O.00290930 ZRWT=9B.1BO*SPACFRAC

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculatiohs for Sequoyah Unit 2

'.i

. Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 ,Attachment I, Page 349 of 656 SNWT=1.400*SPACFRAC WRITE(200,5491) APSRIPLUGML(COLUMN,ROW),

c (-l*HWT), ASSYID(COLUMN,ROW) 5491 FORMAT (Tl, 'M',I4,T9,' 1001.50c'3X,G14.8, c $ APSR Intermediate Zirc-4 Plug in Assembly ',AS)

WRITE (200, 5492) -l*OWT 5492 FORMAT (T9, , 8016.50b',3X,G14.8)

WRITE(200,5493) -1*B10WT 5493 FORMAT (T9, , 5010.50c',3X,G14.8)

WRITE(200,5494) -1*B11WT 5494 FORMAT (T9,, 5011.56c',3X,G14.8)

WRITE (200, 5495) -1*CRWT*CR50 5495 FORMAT (T9, '24050.60c',3X,G14.8)

WRITE(200,7077) -1*CRWT*CR52 7077 FORMAT (T9, '24052.60c',3X,G14.8)

WRITE(200,7078) -1*CRWT*CR53 7078 FORMAT(T9,'24053.60c',3X,G14.8)

WRITE(200,7079) -1*CRWT*CR54 7079 FORMAT (T9, '24054.60c',3X,G14.8)

WRITE (200, 5499) -1*FEWT*FE54 5499 FORMAT (T9, '26054.60c*,3X,G14.8)

WRITE(200,7080) -1*FEWT*FE56 7080 FORMAT(T9,*26056.60c*,3X,G14.8)

WRITE(200,7081) -1*FEWT*FE57 7081 FORMAT(T9,'26057.60c',3X,G14.8) i WRITE(200,7082) -1*FEWT*FE58 7082

,I FORMAT (T9, '26058.60c',3X,G14.8)

WRITE(200,5503) -l*ZRWT 5503 FORMAT(T9,*40093.50c*,3X,G14.8)

WRITE(200,5504) -l*SNWT 5504 FORMAT (T9, '50000.35c',3X,G14.8)

ELSEIF (APSRCLADMAT(BANKNUM(COLUMN,ROW>>.EQ.2) THEN APSRIPLUGDEN(BANKNUM(COLUMN,ROW>>=

c <<APSRIPLUGFRAC(BANKNUM(COLUMN,ROW>>*7.9)+

c <<1.0-APSRIPLUGFRAC(BANKNUM(COLUMN,ROW>>)*

c MODDENSITY) )

SPACMASS=APSRIPLUGFRAC(BA~KNUM(COLUMN,ROW>>*7.9 MODMASS=(1.0-APSRIPLUGFRAC(BANKNUM(COLUMN,ROW>>)*

c MODDENSITY SPACFRAC=SPACMASS/(SPACMASS+MODMASS)

MODFRAC=MODMASS/(SPACMASS+MODMASS)

BWTINH20=<<PPMB*lE-6)/(1.0+(PPMB*lE-6>>)*100.0 HWTINH20=<<1.008664904*0.999167*2.0)/

c <<1.008664904*0.999167*2.0)+

c (1.008664904*15.857510>>)*(100.0-BWTINH20)

OWTINH20=<<1.008664904*15.857510)/

c <<1.008664904*0.999167*2.0)+

c (1.008664904*15.857510>>)*(100.0-BWTINH20)

B10WTINH20=<<1.008664904*9.926922*0.194)/

c <<1.008664904*9.926922*0.194)+

c (1.008664904*10.914730*0.806>>)*BWTINH20 B11WTINH20=<<1.008664904*10.914730*0.806)/

c <<1.008664904*9.926922*0.194)+

c (1.008664904*10.914730*0.806>>)*BWTINH20

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: Boooobooo-01717-0210-00006 REV 00 Attachment I, Page 350 of 656 OWT=OWTINH20*MODFRAC HWT=HWTINH20*MODFRAC B10WT=B10WTINH20*MODFRAC B11WT=B11WTINH20*MODFRAC CWT=0.08*SPACFRAC NWT=0.100*SPACFRAC SIWT=O.75*SPACFRAC PWT=O.045*SPACFRAC SWT=O.030*SPACFRAC CRWT=19.000*SPACFRAC CR50=O.04173684 CR52=O.837 CR53=O.09673684 CR54=O.02452632 MNWT=2.000*SPACFRAC FEWT=68.745*SPACFRAC FE54=0.05699324 FE56=0.91868499 FE57=O.02141247 FE58=0.00290930 NIWT=9.250*SPACFRAC NI58=0.67394595 NI60=0.26648649 NI61=0.01178378 NI62=0.03783784 j NI64-0.00994594 WRITE(200,5505) APSRIPLUGML(COtUMN,ROW),

c (-l*HWT), ASSYID (COLUMN, ROW) 5505 FORMAT (T1, 'M',I4,T9,' 1001.50c'3X,G14.8, c , $ APSR Intermediate 5S304 Plug in Assembly ',AS)

WRITE (200, 5506) -l*OWT 5506 FORMAT (T9,, 8016.50c',3X,G14.8)

WRITE(200,5507) -1*B10WT 5507 FORMAT (T9, , 5010.50c',3X,G14.8)

WRITE (200, 5508) -1*B11WT 5508 FORMAT (T9, , 5011.56c',3X,G14.8)

WRITE (200, 5509) -l*CWT ~

5509 FORMAT (T9, '6000.50c',3X,G14.8)

WRITE (200, 5510) -l*NWT 5510 FORMAT (T9, '7014.50c',3X,G14.8)

WRITE (200, 5511) -l*SIWT 5511 FORMAT (T9, '14000.50c',3X,G14.8)

WRITE(200,5512) -l*PWT 5512 FORMAT(T9,'15031.50c',3X,G14.8)

WRITE(200,5513) -l*SWT 5513 FORMAT (T9, '16032.50c',3X,G14.8)

WRITE(200,5514) -1*CRWT*CR50 5514 FORMAT (T9, '24050.60c',3X,G14.8)

WRITE(200,7084) -1*CRWT*CR52 7084 FORMAT(T9,'24052.60c',3X,G14.8)

WRITE(200,7085) -1*CRWT*CR53 7085 FORMAT (T9, '24053.60c',3X,G14.8)

WRITE(200,7086) -1*CRWT*CR54 7086 FORMAT (T9, '24054.60c',3X,G14.8)

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 AttachmentI,Page351of656 WRITE(200,5518) -l*MNWT 5518 FORMAT (T9, '25055.50c',3X,G14.8)

WRITE (200, 5519) -1*FEWT*FE54 5519 FORMAT (T9, '26054.60c',3X,G14.8)

WRITE(200,7087) -1*FEWT*FE56 7087 FORMAT(T9,'26056.60c',3X,G14.8)

WRITE(200,7088) -1*FEWT*FE57 7088 FORMAT (T9, '26057.60c',3X,G14.8)

WRITE(200,7089) -1*FEWT*FE58 7089 FORMAT (T9, '26058.60c',3X,G14.8)

WRITE (200, 5523) -1*NIWT*NI58 5523 FORMAT (T9, '28058.60c',3X,G14.8)

WRITE(200,7090) -1*NIWT*NI60 7090 FORMAT(T9,'28060.60c',3X,G14.8)

WRITE(200,7091) -1*NIWT*NI61 7091 FORMAT(T9,'28061.60c',3X,G14.8)

WRITE(200,7092) -1*NIWT*NI62 7092 FORMAT (T9, '28062.60c',3X,G14.8)

WRITE(200,7093) -1*NIWT*NI64 7093 FORMAT (T9, '28064.60c',3X,G14.8)

ELSEIF (APS~CLADMAT(BANKNUM(COLUMN,ROW>>.EQ.3) THEN APSRIPLUGDEN(BANKNUM(COLUMN,ROW>>=

c <<APSRIPLUGFRAC(BANKNUM(COLUMN,ROW>>*8.19)+

c <<l.O-APSRIPLUGFRAC(BANKNUM(COLUMN,ROW>>)*

c MODDENSITY) )

} SPACMASS=APSRIPLUGFRAC(BANKNUM(COLUMN,ROW>>*8.19

.....- MODMASS=(l.O-APSRIPLUGFRAC(BANKNUM(COLUMN,ROW>>)*

c MODDENSITY SPACFRAC=SPACMASS/(SPACMASS+MODMASS)

MODFRAC=MODMASS/(SPACMASS+MODMASS)

BWTINH20=<<PPMB*lE-6)/(1.0+(PPMB*lE-6>>)*100.0 HWTINH20=<<1.008664904*0.999167*2.0)/

c <<1.008664904*0.999167*2.0)+

c (1.008664904*15.857510>>)*(100.0-BWTINH20)

OWTINH20=<<1.008664904*15.857510)/

c <<1.008664904*0.999167*2.0)+

c (1.008664904*15.857510>>)*(100.0-BWTINH20)

B10WTINH20=<<1.008664904*9.926922*0.194)/

c <<1.008664904*9.926922*0.194)+

c (1.008664904*10.914730*0.806>>)*BWTINH20 B11WTINH20=<<1.008664904*10.914730*0.806)/

c <<1.008664904*9.926922*0.194)+

c (1.008664904*10.914730*0.806>>)*BWTINH20 B10WTINB=<<1.008664904*9.926922*0.194)/

c <<1.008664904*9.926922*0.194)+

c (1.008664904*10.914730*0.806>>)*100.0 B11WTINB=<<1.008664904*10.914730*0.806)/

c <<1.008664904*9.926922*0.194)+

c (1.008664904*10.914730*0.806>>)*100.0 OWT=OWTINH20*MODFRAC HWT=HWTINH20*MODFRAC B10WT= (B10WTINH20*MODFRAC) + (B10WTINB*0. 006*SPACFRAC)

B11WT= (BI1WTINH20*MODFRAC) + {B11WTINB*O. 006*SPACFRAC)

CWT=O.080*SPACFRAC

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 352 of 656 .

SIWT=0.350*SPACFRAC PWT=0.015*SPACFRAC SWT=O.015*SPACFRAC CRWT=19.000*SPACFRAC CR50=O.04173684 CR52=O.837 CR53=O.09673684 CR54=0.02452632 FE54=0.05699324 FE56=O.91868499 FE57=0.02141247 FE58=0.00290930 NI58=0.67394595 NI60=0.26648649 NI61=0.01l78378 NI62=0.03783784 NI64=0.00994594 CU63=0.683 CU65=0.317 MNWT=0.350*SPACFRAC FEWT=16.809*SPACFRAC NIWT=52.500*SPACFRAC ALWT=0.500*SPACFRAC TIWT=0.900*SPACFRAC COWT=l.OOO*SPACFRAC

} CUWT=0.300*SPACFRAC NBWT=2.563*SPACFRAC MOWT=3.050*SPACFRAC TAWT=2.563*SPACFRAC WRITE(200,5528) APSRIPLUGML(COLUMN,ROW),

c (-l*HWT), ASSYID(COLUMN,ROW) 5528 FORMAT (T1, 'M',I4,T9,' 1001.50c'3X,G14.8, c , $ APSR Intermediate Inconel Plug in Assembly ',AS)

WRITE(200,5529) -l*OWT 5529 FORMAT(T9,' 8016.50c',3X,G14.8)

WRITE(200,5530) -1*B10WT 5530 FORMAT (T9, , 5010.50c',3X,G14.8)

WRITE (200, 5531) -1*B11WT 5531 FORMAT (T9, , 5011.56c',3X,G14.8)

WRITE (200, 5532) -l*CWT 5532 FORMAT (T9, '6000.50c',3X,G14.8)

WRITE(200,5533) -l*SIWT 5533 FORMAT (T9, '14000.50c',3X,G14.8)

WRITE (200, 5534) -l*PWT 5534 FORMAT (T9, '15031.50c',3X,G14.8)

WRITE(200,5535) -l*SWT 5535 FORMAT (T9, '16032.50c',3X,G14.8)

WRITE(200,5536) -1*CRWT*CR50 5536 FORMAT (T9, '24050.60c',3X,G14.8)

WRITE(200,7094) -1*CRWT*CR52 7094 FORMAT (T9, '24052.60c',3X,G14.8)

WRITE(200,7095) -1*CRWT*CR53 7095 FORMAT(T9,'24053.60c',3X,G14.8)

WRITE(200,7096) -1*CRWT*CR54

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity ~alculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-021 0-00006 REV 00 Attachment I, Page 353 of 656 7096 FORMAT(T9,'24054.60e',3X,GI4.8)

WRITE(200,5540) -1*MNWT 5540 FORMAT(T9,'25055.50e',3X,GI4.8)

WRITE(200,5541) -1*FEWT*FE54 5541 FORMAT (T9, '26054.60e',3X,GI4.8)

WRITE(200,7097) -1*FEWT*FE56 7097 FORMAT (T9, '26056. 60e', 3X, G14. 8)

WRITE (200, 7098) -1*FEWT*FE57 7098 FORMAT (T9, '26057.60e',3X,GI4.8)

WRITE(200,7099) -1*FEWT*FE58 7099 FORMAT (T9, '26058.60e',3X,GI4.8)

WRITE(200,5545) -1*NIWT*NI58 5545 FORMAT (T9, '28058.60e',3X,GI4.8)

WRITE(200,7100) -1*NIWT*NI60 7100 FORMAT (T9, '28060.60e',3X,GI4.8)

WRITE(200,7101) -1*NIWT*NI61 7101 FORMAT(T9,'28061.60e',3X,GI4.8)

WRITE(200,7102) -1*NIWT*NI62 7102 FORMAT(T9,'28062.60e',3X,GI4.8)

WRITE(200,7103) -1*NIWT*NI64 7103 FORMAT(T9,'28064.60e',3X,GI4.8)

WRITE(200,5550) -1*ALWT 5550 FORMAT (T9, '13027.50e',3X,GI4.8)

WRITE(200,5551) -1*TIWT 5551 FORMAT (T9, '22000.S0e',3X,GI4.8)

WRITE (200, 5552) -1*COWT 5552 FORMAT (T9, '27059.50e',3X,GI4.8)

WRITE(200,5553) -1*CUWT*CU63 5553 FORMAT(T9,'29063.60e',3X,GI4.8)

WRITE(200,7104) -1*CUWT*CU65 7104 FORMAT (T9, '29065.60e',3X,GI4.8)

WRITE(200,5555) -1*NBWT 5555 FORMAT (T9, '41093.50e',3X,GI4.8)

WRITE (200, 5556) -1*MOWT 5556 FORMAT (T9, '42000.50e',3X,G14.8)

WRITE(200,5557) -1*TAWT 5557 FORMAT (T9, '73181.50e',3X,GI4.8)

ENDIF WRITE(200,5558) APSRIPLUGML (COLUMN, ROW) 5558 FORMAT (Tl, 'MT',I4,T9, 'LWTR.03T')

MN=MN+l

• Write the APSR intermediate plug cell in this APSR universe.

WRITE(30,5559) LN, APSRIPLUGML(COLUMN,ROW),

e (-I*APSRIPLUGDEN(BANKNUM(COLUMN,ROW>>)),

e APSRUPTOPSURF, e (-l*APSRIPLUGTOPSURF), (-I*APSRCLADIRSURF),

e APSRAUNIV(COLUMN,ROW) 5559 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,IX,I4,IX,I4, e , IMP:N=1 U=',I3, e , $ Axial power shaping rod intermediate plug region')

LN=LN+l ENDIF IF (SURFVALUESPEC(APSRIPLUGTOPSURF) .LT.

e SURFVALUESPEC(UEFTOPSURF) THEN

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2

) Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 354 of 656

• Write the water above the intermediate plug cell in this APSR universe.

WRITE(30,5560) LN, BMODML, c (-1*MODDENSITY), APSRIPLUGTOPSURF, c (-1*APSRCLADTOPSURF), (-1*APSRCLADIRSURF),

c APSRAUNIV(COLUMN,ROW) 5560 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,1X,I4,lX,I4, c , IMP:N=1 U=',I3,' $ Borated moderator inside APSR')

LN=LN+l ENDIF

• Define the GT top surface.

CURRENTSURF=GTDATA(DESNUM(COLUMN,ROW),3)

IF (CURRENTSURF.GE.SURFVALUESPEC(UEFTOPSURF>> THEN CURRENTSURF=SURFVALUESPEC(UEFTOPSURF)

ENDIF CURRENTSURFLABEL=O DO 5561 V=1, (SN-l)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS (SURFVALUESPEC (V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 5561 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN GTTOPSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+l ELSE GTTOPSURF=CURRENTSURFLABEL ENDIF

• Define the GT bottom surface.

CURRENTSURF=GTDATA(DESNUM(COLUMN,ROW),4)

CURRENTSURFLABEL=O DO 5562 V=l, (SN-l)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 5562 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN GTBOTSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+l ELSE GTBOTSURF=CURRENTSURFLABEL ENDIF

• Define the GT outer radius surface.

CURRENTSURF=GTDATA(DESNUM(COLUMN,ROW),2)

CURRENTSURFLABEL=O DO 5563 V=l, (SN-l)

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 355 of656 IF (SURFTYPESPEC(V).EQ.'CZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT.(O.OOOl>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 5563 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN GTORSURF=SN SURFTYPESPECCSN)='CZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+l ELSE GTORSURF=CURRENTSURFLABEL ENDIF

• Define the GT inner radius surface.

CURRENTSURF=GTDATACDESNUMCCOLUMN,ROW),l)

CURRENTSURFLABEL=O DO 5564 V=l, (SN-1)

IF (SURFTYPESPEC(V) .EQ. 'CZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 1 5564 CONTINUE IF CCURRENTSURFLABEL.EQ.O) THEN GTIRSURF-:=SN SURFTYPESPECCSN)='CZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE GTIRSURF=CURRENTSURFLABEL ENDIF

• Define the lower end-fitting top surface.

CURRENTSURF=ENDFITHEIGHT(DESNUMCCOLUMN,ROW),2)

CURRENTSURFLABEL=O DO 5565 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. CO.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 5565 CONTINUE IF CCURRENTSURFLABEL.EQ.O) THEN APSRLEFTOPSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPECCSN)=CURRENTSURF SN=SN+1 ELSE APSRLEFTOPSURF=CURRENTSURFLABEL ENDIF '

• Write the lower end-fitting cell specification for this APSR universe.

Waste Package Ope~ations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717,.0210-00006 REV 00 Attachment I, Page 356 of 656 IF (SURFVALUESPEC(GTBOTSURF).GE.

c ENDFITHEIGHT(DESNUM'(COLUMN,ROW),2>> THEN WRITE (30, 5650) LN, FRLEFML(COLUMN,ROW),

c (-l*LEFMAT(DESNUM(COLUMN,ROW),l>>,

c (-l*APSRLEFTOPSURF), APSRAUNIV(COLUMN,ROW) 5650 FORMAT(Tl,I4,T6,I4,Tll,FB.5,T25,I4,' IMP:N=l U=',I3, c $ Assembly lower end-fitting')

LN=LN+l ELSE WRITE(30,5660) LN, FRLEFML(COLUMN,ROW),

c (-l*LEFMAT(DESNUM(COLUMN,ROW),l>>,

c (-l*APSRLEFTOPSURF), GTORSURF, APSRAUNIV(COLUMN,ROW) 5660 FORMAT(Tl,I4,T6,I4,Tll,FB.5,T25,I4,lX,I4, c , IMP:N=l U=',I3,' $ Assembly lower end-fitting')

LN=LN+l WRITE(30,5670) LN, FRLEFML(COLUMN,ROW),

c (-l*LEFMAT(DESNUM(COLUMN,ROW),l>>, (-l*GTBOTSURF),

c (-l*GTORSURF), APSRAUNIV(COLUMN,ROW) 5670 FORMAT(Tl,I4,T6,I4,Tll,FB.5,T25,I4,lX,I4, c , IMP:N=l U=',I3,' $ Assembly lower end-fitting')

LN=LN+l ENDIF

• Write the upper end-fitting cell specification for this APSR universe.

IF (SURFVALUESPEC(GTTOPSURF) .LE.

c SURFVALUESPEC(UEFBOTTOMSURF>> THEN WRITE(30,5760) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF), APSRCLADORSURF, APSRAUNIV(COLUMN,ROW) 5760 FORMAT(Tl,I4,T6,I4,Tll,FB.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Assembly upper end-fitting')

LN=LN+l ELSEIF <<SURFVALUESPEC(GTTOPSURF).GT.

c SURFVALUESPEC (UEFBOTTOMSURF>> .AND.

c (SURFVALUESPEC(GTTOPSURF).LT.

c SURFVALUESPEC(UEFTOPSURF>>) THEN WRITE 130, 5770) LN, FRUEFMLICOLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF), GTORSURF, APSRAUNIV(COLUMN,ROW) 5770 FORMAT(Tl,I4,T6,I4,Tll,FB.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Assembly upper end-fitting')

LN=LN+l WRITE(30,57BO) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, GTTOPSURF, c (-l*UEFTOPSURF), (-l*GTORSURF),

c APSRCLADORSURF, APSRAUNIV(COLUMN,ROW) 57BO FORMATlTl,I4,T6,I4,Tll,FB.5,T25,I4,lX,I4,lX,I4, c lX,I4,' IMP:N=l U=',I3, c , $ Assembly upper end-fitting')

LN=LN+l ELSEIF (SURFVALUESPEC(GTTOPSURF) .GE.

c SURFVALUESPEC(UEFTOPSURF>> THEN WRITE(30,5790) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF), GTORSURF, APSRAUNIV(COLUMN,ROW)

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 357 of656 5790 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Assembly upper end-fitting')

LN=LN+l ENDIF

• Write the GT material cell in this APSR universe.

• Determine if the GT material specification has

• previously been defined. If it has been previously defined, determine

• the material specification label.

CLADMLUNIQUE-.TRUE.

LEAVE=.FALSE.

IF <<COLUMN.NE.l).AND. (ROW.NE.l>> THEN DO 5810 RO=l, (ROW-I)

DO 5800 CO=l,50 IF (DESNUM(CO,RO) .NE.O) THEN IF (GTMAT(DESNUM(COLUMN,ROW>>.EQ.

c GTMAT(DESNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTML(COLUMN,ROW)=GTML(CO,RO)

EXIT ENDIF ENDIF 5800 CONTINUE IF (LEAVE.EQ *. TRUE.) THEN EXIT

) 5810 ENDIF CONTINUE IF (LEAVE.EQ .. FALSE.) THEN DO 5830 RO=ROW,ROW DO 5820 CO=l, (COLUMN-l)

IF (DESNUM(CO,RO).NE.O) THEN IF (GTMAT(DESNUM(COLUMN,ROW>> .EQ.

c GTMAT(DESNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTML(COLUMN,ROW)=GTML(CO,RO)

EXIT ENDIF ENDIF 5820 CONTINUE IF (LEAVE.EQ .* TRUE.) THEN EXIT ENDIF 5830 CONTINUE ENDIF ELSEIF <<COLUMN.EQ.l).AND. (ROW.NE.l>> THEN DO 5850 RO=l, (ROW-l)

DO 5840 CO=1,50 IF (DESNUM(CO,RO).NE.O) THEN IF (GTMAT(DESNUM(COLUMN,ROW>> .EQ.

c GTMAT(DESNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTML(COLUMN, ROW)=GTML (CO, RO)

Waste Package Operations ~ngineering Calculation

Title:

eRe Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-Ol 717-0210-00006 REV 00 Attachment I, Page 358 of 656 EXIT ENDIF ENDIF 5840 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 5850 CONTINUE ELSEIF <<ROW.EQ.1).AND. (COLUMN.NE.1>> THEN DO 5870 RO=l,l DO 5860 CO=l, (COLUMN-1)

IF (DESNUM(CO,RO).NE.O) THEN IF (GTMAT(DESNUM(COLUMN,ROW>> .EQ.

c GTMAT(DESNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTML (COLUMN, ROW) =GTML (CO, RO)

EXIT ENDIF ENDIF 5860 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 5870 CONTINUE

.\

ENDIf IF (CLADMLUNIQUE.EQ ** TRUE.) THEN GTML(COLUMN,ROW)=MN

• Check Guide Tube Material IF (GTMAT(DESNUM(COLUMN,ROW>>.EQ.1) THEN DO 5872 C=l,2 IF (C.EQ.l) THEN WRITE (200, 9300) GTML (COLUMN, ROW)

ELSEIF (C.EQ.2) THEN WRITE(200,9301)

WRITE (200, 7000)

WRITE (200, 7001)

WRITE(200,7002)

WRITE (200, 9302)

WRITE(200,7003)

WRITE(200,7004)

WRITE(200,7005)

WRITE(200,9303)

WRITE (200, 9304)

ENDIF 5872 CONTINUE ELSEIF (GTMAT(DESNUM(COLUMN,ROW>>

c . EQ. 2) THEN DO 5874 C=1,2 IF (C.EQ.1) THEN WRITE (200, 9305) GTML (COLUMN, ROW)

ELSEIF (C.EQ.2) THEN WRITE(200,9306)

WRITE(200,9307)

Waste Package Ope~ations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 359 of 656 WRITE(200,9308)

WRITE (200, 9309)

WRITE(200,9310)

WRITE (200, 7006)

WRITE(200,7007)

WRITE(200,7008)

WRITE(200,9311)

WRITE (200, 9312)

WRITE(200,7009)

WRITE (200, 7010)

WRITE(200,7011)

WRITE (200, 9313)

WRITE (200, 7012)

WRITE(200,7013)

WRITE(200,7014)

WRITE (2-00, 7015)

ENDIF 5874 CONTINUE ELSEIF (GTMAT(DESNUM(COLUMN,ROW>>

c .EO.3) THEN DO 5876 C=1,2 IF (C.EQ.1) THEN WRITE (200, 9314) GTML (COLUMN, ROW)

ELSEIF (C.EO.2) THEN WRITE (200, 9315)

-~

, WRITE (200, 9316)

WRITE (200, 9317)

WRITE(200,9318)

WRITE (200, 7016)

WRITE(200,7017)

WRITE(200,7018)

WRITE (200, 9319)

WRITE (200, 9320)

WRITE (200,7019)

WRITE (200, 7020)

WRITE (200, 7021)

WRITE (200, 9321)

WRITE (200, 7022)

WRITE(200,7023)

WRITE(200,7024)

WRITE(200,7025)

WRITE (200, 9322)

WRITE(200,9323)

WRITE (200, 9324)

WRITE(200,9325)

WRITE (200, 9326)

WRITE(200,9327)

WRITE(200,7026)

WRITE(200,9328)

WRITE (200, 9329)

WRITE (200, 9330)

ENDIF 5876 CONTINUE ENDIF

Waste Package Operati~ns Engineering Calculation

Title:

CRe Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 360 of 656 MN=MN+1 ENDIF IF (GTMAT(DESNUM(COLUMN,ROW>>.EQ.1) THEN CLADRHO=6.56 ELSEIF (GTMAT(DESNUM(COLUMN,ROW>> .EQ.2) THEN CLADRHO=7.90 ELSEIF (GTMAT(DESNUM(COLUMN,ROW>>) .EQ.3) THEN CLADRHO=8.19 ENDIF WRITE (30, 5888) LN, GTML(COLUMN,ROW), (-l*CLADRHO),

c GTIRSURF, c (-l*GTORSURF), (-l*GTTOPSURF), GTBOTSURF, c APSRAUNIV(COLUMN,ROW) 5888 FORMAT(T1,14,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4,lX,I4, c , IMP:N=l U=',13,' $ Guide tube region')

LN=LN+1

• Write the moderator cells within the GT in this APSR universe.

WRITE (30, 5890) LN, BMODML, (-l*MODDENSITY),

c (-1 *GTIRSURF) ,

c ~PSRCLADORSURF, (-l*GTTOPSURF), GTBOTSURF, c APSRAUNIV (COLUMN, ROW) 5890 FORMAT(T1,I4,T6,14,T11,F8.5,T25,I4,lX,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3, c , $ Borated moderator inside guide tube')

LN=LN+1 WRITE(30,S900) LN, BMODML, (-l*MODDENSITY),

c (-l*APSRCLADORSURF), (-l*APSRCLADBOTTOMSURF), GTBOTSURF, c APSRAUNIV(COLUMN,ROW) 5900 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',13, c $ Borated moderator inside guide tube')

LN=LN+1

• Loop through the regi9ns above the APSR (i.e. the appropriate upper core regions)

• Define the upper region lower surface.

DO 6050 REGION=l,NUMREGABOVEAPSRA

• Determine the current upper region's lower surface specificatio~.

IF (REGION.EQ.1) THEN REGIONTOPSURF=SYSTEMTOP CURRENTSURF=SURFVALUESPEC(SYSTEMTOP)-

c REGABOVEAPSRA(REGION,l)

ENDIF CURRENTSURF=SURFVALUESPEC(REGIONTOPSURF)-

c REGABOVEAPSRA(REGION,l)

IF (REGION.EQ.NUMREGABOVEAPSRA) THEN REGIONBOTTOMSURF=UEFTOPSURF ELSE CURRENTSURFLABEL=O DO 5910 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT.(O.OOOl)) THEN CURRENTSURFLABEL=V EXIT ENDIF

Waste Package Ope~ati?ns En~ineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 361 of656 ENDIF 5910 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN REGIONBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE REGIONBOTTOMSURF=CURRENTSURFLABEL ENDIF ENDIF

• Write the cell specification for the APSR universe upper region.

IF (REGION.EQ.1) THEN WRITE(30,6040) LN, FRUREGIONML(COLUMN,ROW,REGION),

c (-1*REGABOVEAPSRA(REGION,2>>,

c REGIONBOTTOMSURF, APSRAUNIV(COLUMN,ROW), REGION 6040 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4, c , IMP:N=1 U=',I3,' $ Upper core region ',12)

LN=LN+1 REGIONTOPSURF=REGIONBOTTOMSURF ELSE WRITE (30, 6045) LN, FRUREGIONML(COLUMN,ROW,REGION),

c (-1*REGABOVEAPSRA(REGION,2>>, (-1*REGIONTOPSURF),

c REGIONBOTTOMSURF, APSRAUNIV(COLUMN,ROW), REGION 6045 FORMAT(T1,I4,T6,I4,Tll,F8.5,T25,I4,1X,I4, c , IMP:N=l U=',I3,' $ Upper core region ',12)

LN=LN+1 REGIONTOPSURF=REGIONBOTTOMSURF ENDIF 6050 CONTINUE SPACHEIGHT=O.O

• Loop through the spacer and moderator regions along the axial

• length of the GT (from top to bottom).

DO 6051 SPN=l,NUMOFSPACERS(DESNUM(COLUMN,ROW>>

SPACHEIGHT=SPACHEIGHT+SPACERHEIGHT(DESNUM(COLUMN,ROW),SPN) 6051 CONTINUE DO 6130 SPN=1,NUMOFSPACERS(DESNUM(COLUMN,ROW>>

• Define the homogenized spacer region bounding surfaces.

IF (SPN.EQ.1) THEN SPACERTOPSURF=UEFBOTTOMSURF CURRENTSURF=SURFVALUESPEC(UEFBOTTOMSURF)-

c SPACERHEIGHT(DESNUM(COLUMN,ROW),SPN)

CURRENTSURFLABEL=O DO 6060 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT.(O.OOOl>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 6060 CONTINUE IF (CURRENTSURFLABEL.EQ~O) THEN SPACERBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ'

Waste Package Ope~at~ons ~ngineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 362 of 656 SURFVALUESPEC(SN)=CURRENTSURF SN=SN+l ELSE SPACERBOTTOMSURF=CURRENTSURFLABEL ENDIF WATERREGIONTOPSURF=SPACERBOTTOMSURF CURRENTSURF=SPACERDIST(DESNUM(COLUMN,ROW), (SPN+l>>'

CURRENTSURFLABEL=O DO 6070 Val, (SN-l)

IF (SURFTYPESPEC(V).EQ.'~Z') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 6070 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN WATERREGIONBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+l ELSE WATERREGIONBOTTOMSURF=CURRENTSURFLABEL ENDIF ELSEIF (SPN.NE.l).AND. (SPN.NE.

c NUMOFSPACERS(DESNUM(COLUMN,ROW>>>> THEN SPACERTOPSURF=WATERREGIONBOTTOMSURF CURRENTSURF=SURFVALUESPEC(WATERREGIONBOTTOMSURF)-

c SPACERHEIGHT(DESNUM(COLUMN,ROW),SPN)

CURRENTSURFLABEL=O DO 6080 V=l, (SN-l)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 6080 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN SPACERBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+l ELSE SPACERBOTTOMSURF=CURRENTSURFLABEL ENDIF ,

WATERREGIONTOPSURF=SPACERBOTTOMSURF CURRENTSURF=SPACERDIST(DESNUM(COLUMN,ROW), (SPN+l>>

CURRENTSURFLABEL=O DO 6090 V=l, (SN-l)

IF (SURFTYPESPEC(V) .EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 363 of 656 ENDIF ENDIF 6090 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN WATERREGIONBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+l ELSE WATERREGIONBOTTOMSURF=CURRENTSURFLABEL ENDIF I ELSEIF (SPN.EQ.NUMOFSPACERS(DESNUM(COLUMN,ROW>>) THEN SPACERTOPSURF=WATERREGIONBOTTOMSURF CURRENTSURF=SURFVALUESPEC(WATERREGIONBOTTOMSURF)-

c SPACERHEIGHT(DESNUM{COLUMN,ROW),SPN)

CURRENTSURFLABEL=O DO 6100 V=l, (SN-l)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 61.00 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN SPACERBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+l ELSE SPACERBOTTOMSURF=CURRENTSURFLABEL ENDIF WATERREGIONTOPSU~F=SPACERBOTTOMSURF WATERREGIONBOTTOMSURF=NODEBOTTOMSURF END1F

• Write the current homogenized spacer region cell in this APSR universe.

WRITE(30,6l26) LN, HOMOSPACMLNUM(DESNUM(COLUMN,ROW),SPN),

c (-l*HOMOSPACERDEN(DESNUM(COLUMN,ROW),SPN>>, GTORSURF, c *

(-l*SPACERTOPSURF), SPACERBOTTOMSURF, APSRAUNIV(COLUMN,ROW),

c SPN 6126 FORMAT(Tl,I4,T6,I4,Tll,G14.8,T25,I4,lX,14,lX,I4, c , IMP:N=l U=',I3,' $ Homogenized region for spacer ',I2)

LN=LN+l

• Write the water region cell below the current homogenized spacer cell in this APSR universe.

WRITE (30, 6127) LN, BMODML, (-l*MODDENS1TY), GTORSURF, c (-l*WATERREGIONTOPSURF), WATERREGIONBOTTOMSURF, c APSRAUN1V (COLUMN, ROW) 6127 FORMAT(Tl,I4,T6,I4,Tll,F10.8,T25,I4,lX,14,lX,14, c

• IMP:N=l U=';13,' $ Borated moderator')

LN=LN+l 6130 CONTINUE ENDIF 6140 CONTINUE

Waste Package Operations Engineering Calculation

Title:

eRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 364 of 656 6150 CONTINUE ENDIF

• Write the specifications for the BPR universes that are

• required to fill the assembly layout specifications previously defined.

DO 9290 ROW=1,50 DO 9280 COLUMN=1,50

• Write the BPR universe specification for the assembly if it

• contains a unique BP material.

IF (BPRUNIQUE(COLUMN,ROW) .EQ .* TRUE.) THEN

• Write the BPR specification header.

WRITE (30, 9072) 9072 FORMAT (T1, 'C' )

WRITE(30,9074) ASSYID(COLUMN,ROW) 9074 FORMAT (T1, c 'C BPR UNIVERSE SPECIFICATION FOR ASSEMBLY ',A5)

WRITE (30, 9076) 9076 FORMAT (T l, 'C' )

IF ((BANDW.EQ .* TRUE:).OR.

c ((WESTINGHOUSE.EQ ** TRUE.).AND.

c (WBPRA(BANKNUM(COLUMN,ROW>>.EQ.l).AND:

c (GTSPLIT.NE.l>>) THEN DO 9090 MCNPNODE=l,NUMOFBPRANODES(BANKNUM(COLUMN,ROW>>

• Define the upper end-fitting bottom surface.

CURRENTSURF=SPACERDIST(DESNUM(COLUMN,ROW),l)+

c ENDFITHEIGHT(DESNUM(COLUMN,ROW),2)

CURRENTSURFLABEL=O DO 9077 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 9077 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN UEFBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE UEFBOTTOMSURF=CURRENTSURFLABEL ENDIF

• Define the upper end-fitting top surface.

CURRENTSURF=SPACERDIST(DESNUM(COLUMN,ROW),1)+

c ENDFITHEIGHT(DESNUM(COLUMN,ROW),l)+

c ENDFITHEIGHT(DESNUM(COLUMN,ROW),2)

CURRENTSURFLABEL=O DO 9078 Vel, (SN-l)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN

. CURRENTSURFLABEL=V EXIT ENDIF

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculatioils for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-021 0-00006 REV 00 Attachment I, Page 365 of 656 ENDIF 9078 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN UEFTOPSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE UEFTOPSURF=CURRENTSURFLABEL ENDIF

• Define the BP node bounding surfaces.

IF (MCNPNODE.EQ.1) THEN TOTBPHEIGHT=O.O DO 9079 Z=l,NUMOFBPRANODES(BANKNUM(COLUMN,ROW>>

TOTBPHEIGHT=TOTBPHEIGHT+

c MCNPBPRAHEIGHT(BANKNUM(COLUMN,ROW),Z) 9079 CONTINUE CURRENTSURF=BOTBPNODEHEIGHT(BANKNUM(COLUMN,ROW>>+

c TOTBPHEIGHT IF (CURRENTSURF.GE.SURFVALUESPEC(UEFTOPSURF>> THEN CURRENTSURF=SURFVALUESPEC(UEFTOPSURF)

ENDIF CURRENTSURFLABEL=O DO 9080 V=l, (SN-1)-

,) IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 9080 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN TOPBPNODETOPSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE TOPBPNODETOPSURF=CURRENTSURFLABEL ENDIF BPNODETOPSURF=TOPBPNODETOPSURF CURRENTSURF=SURFVALUESPEC(BPNODETOPSURF)-

c MCNPBPRAHEIGHT(BANKNUM(COLUMN,ROW),MCNPNODE)

IF (CURRENTSURF.GE.SURFVALUESPEC(UEFTOPSURF>> THEN CURRENTSURF=SURFVALUESPEC(UEFTOPSURF)

ENDIF CURRENTSURFLABEL=O DO 9082 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 9082 CONTINUE

Waste Package Operations Engineering Calculation

Title:

CRe Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 366 of 656 IF (CURRENTSURFLABEL.EQ.O) THEN BPNODEBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+l ELSE BPNODEBOTTOMSURF=CURRENTSURFLABEL ENDIF CURRENTSURF=BPRDIM(BANKNQM(COLUMN,ROW),l)

CURRENTSURFLABEL=O DO 9083 Vel, (SN-l)

IF (SURFTYPESPEC(V) .EQ.'CZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 9083 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN BPRADIUS=SN SURFTYPESPEC(SN)='CZ' SURFVALUESPEC(SN)-CURRENTSURF SN=SN+l ELSE BPRADIUS=CURRENTSURFLABEL ENDIF .

ELSEIF (MCNPNODE.NE.l) THEN BPNODETOPSURF=BPNODEBOTTOMSURF CURRENTSURF=SURFVALUESPEC(BPNODETOPSURF)-

c MCNPBPRAHEIGHT(BANKNUM(COLUMN,ROW),MCNPNODE)

IF (CURRENTSURF.GE.SURFVALUESPEC(UEFTOPSURF>> THEN CURRENTSURF=SURFVALUESPEC(UEFTOPSURF)

ENDIF .

CURRENTSURFLABEL=O DO 9084 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>>) THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 9084 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN BPNODEBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+l ELSE BPNODEBOTTOMSURF=CURRENTSURFLABEL ENDIF ENDIF IF (SURFVALUESPEC(BPNODEBOTTOMSURF).LT.

c SURFVALUESPEC(UEFTOPSURF>> THEN

• Write the BP node cells in this BPR universe.

Waste Package Operations . Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 367 of 656 IF <<BPRABSNODE(BANKNUM(COLUMN,ROW),MCNPNODE).EQ.'Y') .AND.

c (BPNONABSMAT{BANKNUM(COLUMN,ROW>>.EQ.l>> THEN WRITE(30,9085) LN, BPNODEML, c (-1*AL203DENSITY(BANKNUM(COLUMN,ROW>>), (-l*BPRADIUS),

c (-l*BPNODETOPSURF), BPNODEBOTTOMSURF, c BPRAUNIV(COLUMN,ROW), MCNPNODE 9085 FORMAT(Tl,I4,T6,I4,Tll,G14.6,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Burnable poison node ',12)

LN=LN+l BPNODEML=BPNODEML+l ELSEIF <<BPRABSNODE(BANKNUM(COLUMN,ROW),MCNPNODE).EQ.'Y') .AND.

c (BPNONABSMAT(BANKNUM(COLUMN,ROW>> .NE.l>> THEN WRITE (30, 9086) LN, BPNODEML, c (-l*NONBPMATDATA(BANKNUM(COLUMN,ROW),l>>, (-l*BPRADIUS),

c (-l*BPNODETOPSURF), BPNODEBOTTOMSURF, c BPRAUNIV (*COLUMN, ROW), MCNPNODE 9086 FORMAT(Tl,I4,T6,I4,Tll,G14.6,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Burnable poison node ',12)

LN=LN+l BPNODEML=BPNODEML+l ELSE WRITE(30,9088) LN, BPNODEML, c (-l*BPDENTOGO(COLUMN,ROW,MCNPNODE>>, (-l*BPRADIUS),

c (-l*BPNODETOPSURF), BPNODEBOTTOMSURF, c BPRAUNIV(COLUMN,ROW), MCNPNODE 9088 FORMAT(Tl,I4,T6,I4,Tll,G14.6,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Burnable poison node ',12)

LN=LN+l BPNODEML=BPNODEML+l ENDIF ENDIF 9090 CONTINUE

• Define the BPR cladding inner radius.

CURRENTSURF=BPRDIM(BANKNUM(COLUMN,ROW),2)

CURRENTSURFLABEL=O DO 9092 V=l, (SN-l)

IF (SURFTYPESPEC(V) .EQ.'CZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 9092 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN BPCLADIRSURF=SN SURFTYPESPEC(SN)='CZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+l ELSE BPCLADIRSURF=CURRENTSURFLABEL ENDIF

• Define the BPR cladding outer radius.

CURRENTSURF=BPRDIM(BANKNUM(COLUMN,ROW),3)

CURRENTSURFLABEL=O

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 368 of 656 DO 9094 V=l, (SN-l)

IF (SURFTYPESPEC(V).EQ.'CZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF),LT.(O.OOOl>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 9094 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN BPCLADORSURF=SN SURFTYPESPEC(SN)='CZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+l ELSE BPCLADORSURF=CURRENTSURFLABEL ENDIF

• Define the BPR cladding top surface.

CURRENTSURF=TOTBPHEIGHT+

c BOTBPNODEHEIGHT(BANKNUM(COLUMN,ROW>>+

c BPRPLEN(BANKNUM(COLUMN,ROW),l)

IF (CURRENTSURF.GE.SURFVALUESPEC(UEFTOPSURF>> THEN CURRENTSURF=SURFVALUESPEC(UEFTOPSURF)

ENDIF CURRENTSURFLABEL=O DO 9096 V=l, (SN-l) 1 IF (SURFTYPESPEC(V).EQ.'PZ') THEN J

IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 9096 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN BPCLADTOPSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPE~(SN)=CURRENTSURF SN=SN+l ELSE BPCLADTOPSURF=CURRENTSURFLABEL ENDIF

• Define the BPR cladding bottom surface.

CURRENTSURF=BOTBPNODEHEIGHT(BANKNUM(COLUMN,ROW>>-

c BPRPLEN(BANKNUM(COLUMN,ROW),2)

CURRENTSURFLABEL=O DO 9098 V=l, (SN-l)

IF (SURFTYPESPEC(V) .EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT, (0,0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 9098 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN BPCLADBOTTOMSURF=SN

Waste Package Ope~a~ions Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah l!~t 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 369 of 656 SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE BPCLADBOTTOMSURF=CURRENTSURFLABEL ENDIF

• Write the BP-to-cladding gap cell in this BPR universe.

WRITE(30,9104) LN, (-l*BPCLADIRSURF), BPRADIUS, c (-l*TOPBPNODETOPSURF),

c BPNODEBOTTOMSURF, BPRAUNIV(COLUMN,ROW) 9104 FORMAT(T1,I4,T6, '0',T25,I4,lX,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3, c $ Burnable poison-to-cladding gap')

LN=LN+1

• Write the BPR cladding cell in this BPR universe.

• Determine if the BPR cladding material specification has

• previously been defined. If it has been previously defined, determine

• the cladding material specification label.

CLADMLUNIQUE=.TRUE.

LEAVE=.FALSE.

IF <<COLUMN.NE.1).AND. (ROW.NE.1>> THEN DO 9107 RO=I, (ROW-1)

DO 9106 CO=1,50 IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKDES(BANKNUM(CO,RO>> .EQ.'BPRA ') THEN IF (BPRCLADMAT(BANKNUM(COLUMN,ROW>>.EQ.

c BPRCLADMAT(BANKNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPCLADML(COLUMN, ROW) =BPCLADML (CO,RO)

EXIT ENDIF ENDIF ENDIF 9106 CONTINUE IF (LEAVE.EQ .* TRUE.) THEN EXIT ENDIF 9107 CONTINUE IF (LEAVE.EQ .. FALSE.) THEN DO 9109 RO=ROW,ROW DO 9108 CO=l, (COLUMN-I)

IF'(BANKNUM(CO,RO) .NE.O) THEN IF (BANKDES(BANKNUM(CO,RO>> .EQ.'BPRA ') THEN IF (BPRCLADMAT(BANKNUM(COLUMN,ROW>>.EQ.

c BPRCLADMAT(BANKNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPCLADML(COLUMN,ROW)=BPCLADML(CO,RO)

EXIT ENDIF ENDIF ENDIF 9108 CONTINUE

Waste Package Operations Engineering Calculation.

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 370 of656 IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 9109 CONTINUE ENDIF ELSEIF <<COLUMN.EQ.1).AND. (ROW.NE.1>> THEN DO 9111 RO=l, (ROW-I)

DO 9110 CO=1,50 IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKDES(BANKNUM(CO,RO>> .EQ.'BPRA ') THEN IF (BPRCLADMAT(BANKNUM(COLUMN,ROW>>.EQ.

c BPRCLADMAT(BANKNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPCLADML(COLUMN, ROW) =BPCLADML (CO, RO)

EXIT ENDIF ENDIF

/ ENDIF 9110 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 9111 CONTINUE ELSEIF <<ROW.EQ.1) .AND. (COLUMN.NE.1>> THEN DO 9113 RO=l,l DO 9112 CO=l, (COLUMN-I)

IF (BANKNUM(CO,RO) .NE.O) THEN IF (BANKDES(BANKNUM(CO,RO>>.NE.'BPRA ') THEN IF (BPRCLADMAT(BANKNUM(COLUMN,ROW>> .EQ.

c BPRCLADMAT(BANKNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPCLADML(COLUMN, ROW) =BPCLADML (CO,RO)

EXIT ENDIF ENDIF ENDIF 9112 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 9113 CONTINUE ENDIF IF (CLADMLUNIQUE.EQ .. TRUE.) THEN BPCLADML (COLUMN, ROW) =MN

• Check BPR Cladding Material IF (BPRCLADMAT(BANKNUM(COLUMN,ROW>> .EQ.1) THEN DO 9115 C=1,2 IF (C.EQ.1) THEN WRITE(200,9300) BPCLADML (COLUMN, ROW)

ELSEIF (C.EQ.2) THEN WRITE(200,9301)

WRITE(200,7000)

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Uitit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 371 of 656 WRITE (200, 7001)

WRITE(200,7002)

WRITE(200,9302)

.WRITE(200,7003)

WRITE(200,7004)

WRITE (200, 7005)

WRITE(200,9303)

WRITE (200, 9304)

ENDIF 9115 CONTINUE ELSEIF (BPRCLADMAT(BANKNUM(COLUMN,ROW>>

c .EQ.2) THEN DO 9117 C==1,2 IF (C.EQ.1) THEN WRITE (200, 9305) BPCLADML(COLUMN,ROW)

ELSEIF (C.EQ.2) THEN WRITE(200,9306)

WRITE (200, 9307)

WRITE (200, 9308)

WRITE (200,9309)

WRITE (200, 9310)

WRITE(200,7006)

WRITE(200,7007)

WRITE (200, 7008)

WRITE (200, 9311)

WRITE (200, 9312)

WRITE(200,7009)

WRITE(200,7010)

WRITE (200, 7011)

WRITE(200,9313)

WRITE (200, 7012)

WRITE(200,7013)

WRITE (200, 7014)

WRITE (200, 7015)

ENDIF 9117 CONTINU~

ELSEIF (BPRCLADMAT(BANKNUM(COLUMN,ROW>>

c .EQ.3) THEN DO 9119 C=1,2 IF (C.EQ.1) THEN WRITE(200,9314) BPCLADML(COLUMN,ROW)

ELSEIF (C.EQ.2) THEN WRITE (200, 9315)

WRITE(200,9316)

WRITE(200,9317)

WRITE (200, 931"8)

WRITE(200,7016)

WRITE (200, 7017)

WRITE(200,7018)

WRITE(200,9319)

WRITE (200, 9320)

WRITE(200,7019)

WRITE(200,7020)

WRITE(200,7021)

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 372 of 656 WRITE (200, 9321)

WRI'J:E(200,7022)

WRITE (200, 7023)

WRITE(200,7024)

WRITE(200,7025)

WRITE(200,9322)

WRITE (200, 9323)

WRITE (200, 9324)

WRITE (200, 9325)

WRITE (200,9326)

WRITE (200, 9327)

WRITE{200,7026)

WRITE (200, 9328)

WRITE (200,9329)

WRITE (200, 9330)

ENDIF 9119 CONTINUE ENDIF MN=MN+1 ENDIF IF (BPRCLADMAT(BANKNUM(COLUMN,ROW>>.EQ.1) THEN CLADRHO=6.56 ELSEIF (BPRCLADMAT(BANKNUM(COLUMN,ROW>>.EQ.2) THEN CLADRHO=7.90 ELSEIF (BPRCLADMAT(BANKNUM(COLUMN,ROW>>.EQ.3) THEN

} ENDIF CLADRHO=8.19 WRITE (30, 9131) LN, BPCLADML(COLUMN,ROW), (-l*CLADRHO),

c BPCLADIRSURF, c (-l*BPCLADORSURF), (-l*BPCLADTOPSURF), BPCLADBOTTOMSURF, c BPRAUNIV (COLUMN, ROW) 9131 FORMAT(T1,I4,T6,I4,T11,FS.5,T25,I4,lX,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ BPR cladding')

LN=LN+l

• Write the BPR upper plenum cell in this BPR universe.

• Determine if the BPR upper plenum material specification has

• previously been defined. If it has been previously defined, determine

• the upper plenum material specification label.

BPRUPMLUNIQUE=.TRUE.

LEAVE=.FALSE.

IF <<COLUMN.NE.l) .AND. (ROW.NE.l>> THEN DO 9133 RO=I, (ROW-I)

DO 9132 CO=I,50 IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKNUM(COLUMN,ROW).EQ.

c BANKNUM(CO,RO>> THEN BPRUPMLUNIQUE=.FALSE.

LEAVE=.TRUE. .

BPRUPML(COLUMN,ROW)=BPRUPML(CO,RO)

EXIT ENDIF ENDIF 9132 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN

Waste Package -Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 373 of656

_f EXIT ENDIF 9133 CONTINUE IF (LEAVE.EQ .. FALSE.) THEN DO 9135 RO=ROW,ROW DO 9134 CO=I, (COLUMN-I)

IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKNUM (COLUMN, ROW) .EQ.

c BANKNUM(CO,RO>> THEN BPRUPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPRUPML(COLUMN,ROW)=BPRUPML(CO,RO)

EXIT ENDIF ENDIF 9134 CONTINUE IF (LEAVE.EQ .* TRUE.) THEN EXIT ENDIF 9135 CONTINUE ENDIF ELSEIF <<COLUMN.EQ.l).AND. (ROW.NE.l>> THEN DO 9137 RO=I, (ROW-I)

DO 9136 CO=I,50 IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKNUM(COLUMN,ROW).EQ.

c BANKNUM(CO,RO>> THEN BPRUPMLUNIQUE=.FALSE.

LEAVE-.TRUE.

BPRUPML(COLUMN,ROW)=BPRUPML(CO,RO)

EXIT ENDIF ENDIF 9136 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 9137 CONTINUE ELSEIF <<ROW.EQ.l) .AND. (COLUMN.NE.l>> THEN DO 9139 RO=I,1 DO 9138 CO=I, (COLUMN-I)

IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKNUM(COLUMN,ROW).EQ.

c BANKNUM(CO,RO>> THEN BPRUPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPRUPML(COLUMN,ROW)=BPRUPML(CO,RO)

EXIT ENDIF ENDIF 9138 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-021 0-00006 REV 00 Attachment I, Page 374 of 656 9139 CONTINUE ENDIF IF (SURFVALUESPEC(TOPBPNODETOPSURF).LT.

c SURFVALUESPEC(UEFTOPSURF>> THEN IF (BPRUPMLUNIQUE.EQ .. TRUE.) THEN BPRUPML(COLUMN,ROW)=MN

• Check Burnable Poison Rod Upper Plenum Regions DO 9143 C=1,BPRUPLENMAT(BANKNUM(COLUMN,ROW),2)

IF (C.EQ.1) THEN WRITE(200,9140) BPRUPML(COLUMN,ROW),

c BPRUPLENZAIDS(BANKNUM(COLUMN,ROW),C),

c (-1*BPRUPLENWTS(BANKNUM(COLUMN,ROW),C>>

9140 FORMAT(T1,'M',I4,T9,A9,3X,G14.6, c $ Burnable Poison Rod Upper Plenum')

ELSE WRITE (200,9142) c BPRUPLENZAIDS(BANKNUM(COLUMN,ROW),C),

c (-1*BPRUPLENWTS(BANKNUM(COLUMN,ROW),C>>

9"142 FORMAT(T9,A9,3X,G14.6)

ENDIF 9143 CONTINUE MN=MN+1 ENDIF WRITE (30, 9144) LN, BPRUPML(COLUMN,ROW),

c (-1*BPRUPLENMAT(BANKNUM(COLUMN,ROW),1>>,

c TOPBPNODETOPSURF, c (-1*BPCLADTOPSURF), (-1*BPCLADIRSURF),

c BPRAUNIV (COLUMN, ROW) 9144 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,1X,I4,1X,I4, c , IMP:N=1 U=',I3,' $ BPR upper plenum region')

LN=LN+1 ENDIF

• Write the BPR lower plenum cell (lower end plug) in this BPR universe.

• Determine if the BPR lower plenum material specification has

• previously been. defined. If it has been previously defined, determine

• the lower plenum material specification label.

BPRLPMLUNIQUE=.TRUE.

LEAVE=.FALSE.

IF ((COLUMN.NE.1) .AND. (ROW.NE.1>> THEN DO 9146 RO=1, (ROW-1)

DO 9145 CO=1,50 IF (BANKNUM(CO,RO) .NE.O) THEN IF (BANKNUM (COLUMN, ROW) .EQ.BANKNUM(CO,RO>> THEN BPRLPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPRLPML(COLUMN,ROW)=BPRLPML(CO,RO)

EXIT ENDIF ENDIF 9145 CONTINUE IF (LEAVE.EQ .* TRUE. ) THEN

. EXIT ENDIF 9146 CONTINUE

Waste Package Operations Engineering Calculation

Title:

eRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: 800000000-01717-0210-00006 REV 00 Attachment I, Page 375 of 656 IF (LEAVE.EQ ** FALSE.) THEN DO 9148 RO=ROW,ROW DO 9147 CO=I, (COLUMN-I)

IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKNUM(COLUMN,ROW).EQ.

c BANKNUM(CO,RO>> THEN BPRLPMLUNIQUE-.FALSE.

LEAVE=.TRUE.

BPRLPML (COLUMN, ROW)=BPRLPML (CO, RO)

EXIT ENDIF ENDIF 9147 CONTINUE IF (LEAVE.EQ *. TRUE.) THEN EXIT ENDIF 9148 CONTINUE ENDIF ELSEIF <<COLUMN.EQ.l).AND. (ROW.NE.l>> THEN DO 9150 RO=I, (ROW-I)

DO 9149 CO=I,50 _

IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKNUM (COLUMN, ROW) . EQ.

c BANKNUM(CO,RO>> THEN BPRLPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPRLPML(COLUMN, ROW) =BPRLPML (CO, RO)

EXIT ENDIF ENDIF 9149 CONTINUE IF (LEAVE.EQ .* TRUE.) THEN EXIT ENDIF 9150 CONTINUE ELSEIF <<ROW.EQ.l).AND. (COLUMN.NE.l>> THEN DO 9152 RO=I,1 DO 9151 CO=I, (COLUMN-I)

IF (BANKNUM(CO,RO) .NE.O) THEN IF (BANKNUM(COLUMN,ROW).EQ.

c BANKNUM(CO,RO>> THEN BPRLPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPRLPML(COLUMN,ROW)=BPRLPML(CO,RO)

EXIT ENDIF ENDIF 9151 CONTINUE IF (LEAVE.EQ *. TRUE.) THEN EXIT ENDIF 9152 CONTINUE ENDIF IF (BPRLPMLUNIQUE.EQ .. TRUE.) THEN

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 376 of656 BPRLPML(COLUMN,ROW)=MN

• Check Burnable Poison Rod Lower Plenum Regions DO 9155 C=I,BPRLPLENMAT(BANKNUM(COLUMN,ROW),2)

IF (C.EQ.1) THEN WRITE(200,9153) BPRLPML(COLUMN,ROW),

c BPRLPLENZAIDS(BANKNUM(COLUMN,ROW),C),

c (-l*BPRLPLENWTS(BANKNUM(COLUMN,ROW),C>>

9153 FORMAT (Tl, 'M',I4,T9,A9,3X,GI4.6, c ' $ Burnable Poison Rod Lower* Plenum')

ELSE WRITE(200,9154) c BPRLPLENZAIDS(BANKNUM(COLUMN,ROW),C),

c (-I*BPRLPLENWTS(BANKNUM(COLUMN,ROW),C>>

9154 FORMAT(T9,A9,3X,GI4.6)

ENDIF 9155 CONTINUE MN=MN+1 ENDIF WRITE(30,9156) LN, BPRLPML(COLUMN,ROW),

c (-1*BPRLPLENMAT(BANKNUM(COLUMN,ROW),I>>, BPCLADBOTTOMSURF, c (-1*BPNODEBOTTOMSURF), (-I*BPCLADIRSURF),

c BPRAUNIV(COLUMN,ROW) 9156 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,IX,I4,1X,I4, c , IMP:N=1 U=',I3,' $ BPR lower plenum region')

LN=LN+1

• Define the GT top surface.

CURRENTSURF=GTDATA(DESNUM(COLUMN,ROW),3)

IF (CURRENTSURF.GE.SURFVALUESPEC(UEFTOPSURF>> THEN CURRENTSURF=SURFVALUESPEC(UEFTOPSURF)

ENDIF CURRENTSURFLABEL=O DO 9157 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 9157 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN GTTOPSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+l ELSE GTTOPSURF=CURRENTSURFLABEL ENDIF

• Define the GT bottom surface.

CURRENTSURF=GTDATA(DESNUM(COLUMN,ROW),4)

CURRENTSURFLABEL=O DO 9158 V=I, (SN-l)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V

Waste Package Operations Engineering Calculation

Title:

eRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 377 of656 EXIT ENDIF ENDIF 9158 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN GTBOTSURF==SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)==CURRENTSURF SN=SN+1 ELSE GTBOTSURF=CURRENTSURFLABEL ENDIF

• Define the GT outer radius surface.

CURRENTSURF=GTDATA(DESNUM(COLUMN,ROW),2)

CURRENTSURFLABEL=O DO 9159 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'CZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL==V EXIT ENDIF ENDIF 9159 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN GTORSURF=SN SURFTYPESPEC(SN)='CZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE GTORSURF=CURRENTSURFLABEL ENDIF

• Define the GT inner radius surface.

CURRENTSURF=GTDATA(DESNUM(COLUMN,ROW),l)

CURRENTSURFLABEL=0 DO 9160 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'CZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 9160 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN GTIRSURF=SN SURFTYPESPEC(SN)='CZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+1 ELSE GTIRSURF=CURRENTSURFLABEL ENDIF

• Define the lower end-fitting top surface.

CURRENTSURF=ENDFITHEIGHT(DESNUM(COLUMN,ROW),2)

CURRENTSURFLABEL=O DO 9161 V=l, (SN-1)

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2

-, Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 378 of 656 IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 9161 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN BPI,.EFTOPSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE BPLEFTOPSURF=CURRENTSURFLABEL ENDIF

• Write the lower end-fitting cell specification for this BPR universe.

IF (SURFVALUESPEC(GTBOTSURF).GE.

c ENDFITHEIGHT(DESNUM(COLUMN,ROW),2>> THEN WRITE(30,9162) LN, FRLEFML(COLUMN,ROW),

c (-1*LEFMAT(DESNUM(COLUMN,ROW),1>>, (-1*BPLEFTOPSURF),

c BPRAUNIV(COLUMN,ROW) 9162 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,' IMP:N=1 U=',I3, c $ Assembly lower end-fitting')

LN=LN+1 ELSE WRITE (30, 9163) LN, FRLEFML(COLUMN,ROW),

J c (-1*LEFMAT(DESNUM(COLUMN,ROW),1>>, (-1*BPLEFTOPSURF),

c GTORSURF, BPRAUNIV(COLUMN,ROW) 9163 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,1X,I4, c , IMP:N=1 U=',I3,' $ Assembly lower end-fitting')

LN=LN+1 WRITE (30, 9164) LN,FRLEFML(COLUMN,ROW),

c (-1*LEFMAT(DESNUM(COLUMN,ROW),1>>, (-1*GTBOTSURF),

c (-1*GTORSURF), BPRAUNIV(COLUMN,ROW) 9164 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,1X,I4, c , IMP:N=1 U=',I3,' $ Assembly lower end-fitting')

LN=LN+l ENDIF

• Write the upper end-fitting cell specification for this BPR universe.

IF <<SURFVALUESPEC(BPCLADTOPSURF).LE.

c SURFVALUESPEC(UEFBOTTOMSURF>> .AND.

c (SURFVALUESPEC(GTTOPSURF).LE.

c SURFVALUESPEC(UEFBOTTOMSURF>>) THEN WRITE (30, 9170) LN, FRUEFML(COLUMN,ROW),

c (-1*UEFMAT(DESNUM(COLUMN,ROW),1>>, UEFBOTTOMSURF, c (-1*UEFTOPSURF), BPRAUNIV(COLUMN,ROW) 9170 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,1X,I4, c , IMP:N=1 U=',I3,' $ Assembly upper end-fitting')

LN=LN+1 ELSEIF <<SURFVALUESPEC(BPCLADTOPSURF) .GT.

c SURFVALUESPEC(UEFBOTTOMSURF>> .AND.

c (SURFVALUESPEC(BPCLADTOPSURF) .LT.

c SURFVALUESPEC(UEFTOPSURF>>.AND.

c (SURFVALUESPEC(GTTOPSURF) .LE.

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 379 of 656 c SURFVALUESPEC(UEFBOTTOMSURF>>) THEN WRITE(30,9172) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF), BPCLADORSURF~ BPRAUNIV(COLUMN,ROW) 9172 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Assembly upper end-fitting')

LN=LN+1 WRITE(30,9174) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, BPCLADTOPSURF, c (-l*UEFTOPSURF), (-l*BPCLADORSORF),

c BPRAUNIV(COLUMN,ROW) 9174 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Assembly upper end-fitting')

LN=LN+1 ELSEIF <<SURFVALUESPEC(BPCLADTOPSURF).LE.

c SURFVALUESPEC(GTTOPSURF>>.AND.

c (SURFVALUESPEC(GTTOPSURF).LT.

c SURFVALUESPEC(UEFTOPSURF>>.AND.

c (SURFVALUESPEC(GTTOPSURF).GT.

c SURFVALUESPEC(UEFBOTTOMSURF>>) THEN WRITE(30,9176) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF), GTORSURF, BPRAUNIV(COLUMN,ROWr 9176 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Assembly upper end-fitting')

LN=LN+l

.i WRITE(30,9178)LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, GTTOPSURF, c (-l*UEFTOPSURF), (-l*GTORSURF),

c BPRAUNIV (COLUMN, ROW) 9178 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Assembly upper end-fitting')

LN=LN+1 WRITE (30, 9180) LN, BMODML, c (-l*MODDENSITY), BPCLADTOPSURF, c (-l*GTTOPSURF), (-l*GTIRSURF),

c BPRAUNIV(COLUMN,ROW) 9180 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Assembly upper end-fitting')

LN=LN+1 ELSE1F <<SURFVALUESPEC(BPCLADTOPSURF).LE.

c SURFVALUESPEC(GTTOPSURF>> .AND.

c (SURFVALUESPEC(GTTOPSURF) .EQ.

c SURFVALUESPEC(UEFTOPSURF>>) THEN WR1TE(30,9182) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF), GTORSURF, BPRAUN1V(COLUMN,ROW) 9182 FORMAT(T1,I4,T6,14,T11,F8.5,T25,14,lX,14,lX,14, c , IMP:N=l U=',13,' $ Assembly upper end-fitting')

LN=LN+l IF (SURFVALUESPEC(BPCLADTOPSURF) .LT.

c SURFVALUESPEC(GTTOPSURF>> THEN WR1TE(30,9184) LN, BMODML, c (-l*MODDENSITY), BPCLADTOPSURF,

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 380 of 656 c (-I*UEFTOPS~RF), (-I*GTIRSURF),

c BPRAUNIV(COLUMN,ROW) 9184 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,IX,I4,IX,I4, c , IMP:N=1 U=',I3,' $ Assembly upper end-fitting')

LN=LN+l ENDIF ELSEIF <<SURFVALUESPEC(BPCLADTOPSURF).GT.

c SURFVALUESPEC(UEFBOTTOMSURF>>.AND.

c (SURFVALUESPEC(BPCLADTOPSURF).LT.

c SURFVALUESPEC(UEFTOPSURF>>.AND.

c (SURFVALUESPEC(GTTOPSURF).GT.

c SURFVALUESPEC(UEFBOTTOMSURF>>.AND.

c (SURFVALUESPEC(GTTOPSURF).LT.

c SURFVALUESPEC(BPCLADTOPSURF>>) THEN WRITE(30,9186) LN, FRUEFML(COLUMN,ROW),

c (-I*UEFMAT(DESNUM(COLUMN,ROW),I), UEFBOTTOMSURF, c (-I*UEFTOPSURF), GTORSURF, BPRAUNIV(COLUMN,ROW) 9186 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,IX,I4,IX,I4, c , IMP:N=1 U=',I3,' $ Assembly upper end-fitting')

LN=LN+l WRITE(30,9188) LN, FRUEFML(COLUMN,ROW),

c (-I*UEFMAT(DESNUM(COLUMN,ROW),I>>, GTTOPSURF, c (-I*UEFTOPSURF), (-I*GTORSURF),

c BPCLADORSURF, BPRAUNIV (COLUMN, ROW) 9188 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,IX,I4,IX,I4, j c lX,14,' 1MP:N=l U=',13, C $ Assembly upper end-fitting')

LN=LN+l WRITE (30, 9190) LN, FRUEFML(COLUMN,ROW),

C (-I*UEFMAT(DESNUM(COLUMN,ROW),I>>, BPCLADTOPSURF, C (-I*UEFTOPSURF), (-I*BPCLADORSURF),

c BPRAUNIV(COLUMN,ROW) 9190 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,IX,14,lX,I4, c , IMP:N=1 U=',I3,' $ Assembly upper end-fitting')

LN=LN+l ELSEIF <<SURFVALUESPEC(BPCLADTOPSURF).EQ.

c SURFVALUESPEC(UEFTOPSURF>>.AND.

c (SURFVALUESPEC(GTTOPSURF).GT.

c SURFVALUESPEC(UEFBOTTOMSURF>>.AND.

c (SURFVALUESPEC(GTTOPSURF) .LT.

c SURFVALUESPEC(BPCLADTOPSURF>>) THEN WRITE(30,9192) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF), GTORSURF, BPRAUNIV(COLUMN,ROW) 9192 FORMAT(Tl,14,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Assembly upper end-fitting')

LN=LN+l WRITE(30,9194) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, GTTOPSURF, c (~l*UEFTOPSURF), (-l*GTORSURF),

c BPCLADORSURF, BPRAUNIV(COLUMN,ROW) 9194 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4, c lX,I4,' IMP:N=l U=',I3, c , $ Assembly upper end-fitting')

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-021 0-00006 REV 00 AttachmentI,Page381 of 656

)

LN=LN+1 ELSEIF <<SURFVALUESPEC(BPCLADTOPSURF).GT.

c SURFVALUESPEC(UEFBOTTOMSURF>>.AND.

c (SURFVALUESPEC(BPCLADTOPSURF).LT.

.c SURFVALUESPEC(UEFTOPSURF>>.AND .

c (SURFVALUESPEC(GTTOPSURF) .EQ.

c SURFVALUESPEC(BPCLADTOPSURF>>) THEN WRITE (30, 9196) LN, ~RUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF), GTORSURF, BPRAUNIV(COLUMN,ROW) 9196 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Assembly upper end-fitting')

LN=LN+1 WRITE(30,9198) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, GTTOPSURF, c (-l*UEFTOPSURF), (-l*GTORSURF),

c BPCLADORSURF, BPRAUNIV(COLUMN,ROW) 9198 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4, c 1X,I4,' IMP:N=l U=',I3, c $ Assembly upper end-fitting')

LN=LN+1 ENDIF

• Write the GT material cell in this BPR universe.

• Determine if the GT material specification has

.* previously been defined. If it has been previously defined, determine

• the material specification label.

CLADMLUNIQUE=.TRUE.

LEAVE=.FALSE.

IF <<COLUMN.NE.1).AND. (ROW.NE.1>> THEN DO 9201 RO=l, (ROW-1)

DO 9200 CO=1,50 IF (DESNUM(CO,RO).NE.O) THEN IF (GTMAT(DESNUM(COLUMN,ROW>>.EQ.

c GTMAT(DESNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTML(COLUMN, ROW) =GTML (CO, RO)

EXIT ENDIF ENDIF 9200 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 9201 CONTINUE IF (LEAVE.EQ .. FALSE.) THEN DO 9203 RO=ROW,ROW DO 9202 CO=l, (COLUMN-1)

IF (DESNUM(CO,RO) .NE.O) THEN IF (GTMAT(DESNUM(COLUMN,ROW>>.EQ.

c GTMAT(DESNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTML (COLUMN, ROW) =GTML (CO, RO)

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-021 0-00006 REV 00 Attachment I, Page 382 of 656 EXIT ENDIF ENDIF 9202 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 9203 CONTINUE ENDIF ELSEIF <<COLUMN.EQ.1) .AND. (ROW.NE.1>> THEN DO 9205 RO=l, (ROW-1)

DO 9204 CO=1,50 IF (DESNUM(CO,RO).NE.O) THEN IF (GTMAT(DESNUM(COLUMN,ROW>>.EQ.

c GTMAT(DESNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTML(COLUMN,ROW)=GTML(CO,RO)

EXIT ENDIF ENDIF 9204 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF J 9205 CONTINUE ELSEIF <<ROW.EQ.1).AND. (COLUMN.NE.1>> THEN DO 9207 RO=l,l DO 9206 CO=l, (COLUMN-1)

IF (DESNUM(CO,RO) .NE.O) THEN IF (GTMAT(DESNUM(COLUMN,ROW>>.EQ.

c GTMAT(DESNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTML(COLUMN,ROW)=GTML(CO,RO)

EXIT ENDIF ENDIF 9206 CONTINUE IF (LEAVE.EQ *. TRUE.) THEN EXIT ENDIF 9207 CONTINUE ENDIF IF (CLADMLUNIQUE.EQ .. TRUE.) THEN GTML(COLUMN,ROW)=MN

• Check Guide Tube Material IF (GTMAT(DESNUM(COLUMN,ROW>>.EQ.1) THEN DO 9210 C=1,2 IF (C.EQ.1) THEN WRITE(200,9300) GTML(COLUMN,ROW)

ELSEIF (C.EQ.2) THEN WRITE(200,9301)

WRITE(200,7000)

Waste Package Operations Engineering Calculation

Title:

CRe Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 383 of 656 WRITE (200, 7001)

WRITE (200, 7002)

WRITE (200,'9302)

WRITE (200, 7003)

WRITE(200,7004)

WRITE (200, 7005)

WRITE(200,9303)

WRITE (200, 9304)

ENDIF 9210 CONTINUE ELSEIF (GTMAT(DESNUM(COLUMN,ROW>>

c .EQ.2) THEN DO 9212 C=1,2 IF (C.EQ.1) THEN WRITE (200, 9305) GTML (COLUMN, ROW)

ELSEIF (C.EQ.2) THEN WRITE (200, 9306)

WRITE(200,9307)

WRITE (200, 9308)

WRITE(200,9309)

WRITE(200,9310)

WRITE(200,7006)

WRITE (200, 7007)

WRITE(200,7008)

WRITE (200, 9311)

WRITE (200, 9312)

WRITE (200, 7009)

WRITE (200, 7010)

WRITE(200,7011)

WRITE (200, 9313)

WRITE(200,7012)

WRITE(200,7013)

WRITE(200,7014)

WRITE(200,7015)

ENDIF 9212 CONTINUE ELSEIF (GTMAT(DESNUM(COLUMN,ROW>>

c .EQ.3) THEN DO 9214 C=1,2 IF (C.EQ.1) THEN WRITE (200, 9314) GTML(COLUMN,ROW)

ELSEIF (C.EQ.2) THEN WRITE(200,9315)

WRITE(200,9316)

WRITE (200,9317)

WRITE (200, 9318)

WRITE (200, 7016)

WRITE (200, 7017)

WRITE(200,7018)

WRITE(200,9319)

WRITE(200,9320)

WRITE(200,7019)

WRITE(200,7020)

WRITE(200,7021)

Waste Package Operations Engineering Calculation

Title:

CRe Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-021 0-00006 REV 00 Attachment I, Page 384 of 656 WRITE (200, 9321)

WRITE (200, 7022)

WRITE (200, 7023)

WRITE(200,7024)

WRITE (200, 7025)

WRITE(200,9322)

WRITE(200,9323)

WRITE(200,9324)

WRITE(200,9325)

WRITE (200, 9326)

WRITE (200, 9327)

WRITE(200,7026)

WRITE(200,9328)

WRITE (200,9329)

WRITE (200, 9330)

ENDIF 9214 CONTINUE ENDIF MN=MN+1 ENDIF IF (GTMAT(DESNUM(COLUMN,ROW>>.EQ.1) THEN CLADRHO=6.56 ELSEIF (GTMAT(DESNUM(COLUMN,ROW>>.EQ.2) THEN CLADRHO=7.90 ELSEIF (GTMAT(DESNUM(COLUMN,ROW>>.EQ.3) THEN l

CLADRHO=8.19 ENDIF WRITE (30, 9225) LN, GTML(COLUMN,ROW), (-l*CLADRHO),

c GTIRSURF, c (-l*GTORSURF), (-l*GTTOPSURF), GTBOTSURF, c BPRAUNIV(COLUMN,ROW) 9225 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Guide tube region')

LN=LN+l

• Write the moderator cells within the GT in this BPR universe.

IF (SURFVALUESPEC(BPCLADTOPSURF) .GE.

c SURFVALUESPEC(GTTOPSURF>> THEN WRITE(30,9226) LN, BMODML, (-l*MODDENSITY),

c (-l*GTIRSURF) ,

c BPCLADORSURF, (-l*GTTOPSURF), GTBOTSURF, c BPRAUNIV(COLUMN,ROW) 9226 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4,lX,I4, c , JMP:N=l U=',I3, c $ Borated moderator inside guide tube')

LN=LN+1 ELSEIF (SURFVALUESPEC(BPCLADTOPSURF).LT.

c SURFVALUESPEC(GTTOPSURF>> THEN WRITE(30,9227) LN, BMODML, (-l*MODDENSITY),

.c (-1 *GTIRSURF) ,

c BPCLADORSURF, (-l*BPCLADTOPSURF), GTBOTSURF, c BPRAUNIV(COLUMN,ROW) 9227 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3~

c $ Borated moderator inside guide tube')

Waste Package Operations Engineering Calculation

Title:

CRe Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 385 of 656 LN=LN+l ENDIF WRITE (30, 9228) LN, BMODML, (-l*MODDENSITY),

c (-l*BPCLADORSURF), (-l*BPCLADBOTTOMSURF), GTBOTSURF, c BPRAUNIV (COLUMN, ROW) 9228 FORMAT(Tl,I4,T6,I4,Tll,F8.S,T2S,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Borated moderator inside guide tube' )

LN=LN+l

• Loop through the regions above the BPR (i.e. the appropriate upper core regions)

• Define the upper region lower surface.

DO 9232 REGION=l,NUMREGABOVEBPRA

• Determine the current upper region's lower surface specification.

IF (REGION.EQ.l) THEN REGIONTOPSURF=SYSTEMTOP CURRENTSURF=SURFVALUESPEC(SYSTEMTOP)-

c REGABOVEBPRA(REGION,l)

ENDIF CURRENTSURF=SURFVALUESPEC(REGIONTOPSURF)-

c REGABOVEBPRA(REGION,l)

IF (REGION.EQ.NUMREGABOVEBPRA) THEN REGIONBOTTOMSURF=UEFTOPSURF ELSE CURRENTSURFLABEL=O DO 9229 V=l, (SN-l)

} IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 9229 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN REGIONBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+l ELSE REGIONBOTTOMSURF=CURRENTSURFLABEL ENDIF ENDIF

• Write the cell specification for the BPR universe upper region.

IF (REGION.EQ.l) THEN WRITE (30, 9230) LN, FRUREGIONML(COLUMN,ROW,REGION),

c (-1*REGABOVEBPRA(REGION,2>>,

c REGIONBOTTOMSURF, BPRAUNIV(COLUMN,ROW), REGION 9230 FORMAT(TI,I4,T6,I4,Tll,F8.5,T25,I4, c , IMP:N=l U=',I3,' $ Upper core region ',12)

LN=LN+l REGIONTOPSURF=REGIONBOTTOMSURF ELSE WRITE(30,923l) LN, FRUREGIONML(COLUMN,ROW,REGION),

c (-1*REGABOVEBPRA(REGION,2>>, (-!*REGIONTOPSURF),

c REGIONBOTTOMSURF, BPRAUNIV(COLUMN,ROW), REGION

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 386 of 656 9231 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4, c ' IMP:N=l U=',I3,' $ Upper core region ',12)

LN=LNtl REGIONTOPSURF=REGIONBOTTOMSURF ENDIF 9232 CONTINUE SPACHEIGHT=O.O

• Loop through the spacer and moderator regions along the axial

• length of the BPR (from top to bottom).

DO 9233 SPN=l,NUMOFSPACERS(DESNUM(COLUMN,ROW>>

SPACHEIGHT=SPACHEIGHT+SPACERHEIGHT(DESNUM(COLUMN,ROW),SPN) 9233 CONTINUE DO 9270 SPN=l,NUMOFSPACERS(DESNUM(COLUMN,ROW>>

• Define th~ homogenized spacer region bounding surfaces.

IF (SPN.EQ.l) THEN SPACERTOPSURF=UEFBOTTOMSURF CURRENTSURF=SURFVALUESPEC(UEFBOTTOMSURF)-

c SPACERHEIGHT(DESNUM(COLUMN,ROW),SPN)

CURRENTSURFLABEL=O DO 9234 Vel, (SN-l)

IF (SURFTYPESPEC (V) . EQ .. ' PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF

) ENDIF 9234 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN SPACERBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+l ELSE SPACERBOTTOMSURF=CURRENTSURFLABEL ENDIF WATERREGIONTOPSURF=SPACERBOTTOMSURF CURRENTSURF=SPACERDIST(DESNUM(COLUMN,ROW), (SPN+l>>

CURRENTSURFLABEL=O DO 9236 Vel, (SN-l)

IF (SURFTYPESPEC(V) .EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V

. EXIT ENDIF ENDIF 9236 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN WATERREGIONBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+l ELSE WATERREGIONBOTTOMSURF=CURRENTSURFLABEL ENDIF '

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 387 of 656

. ELSEIF <<SPN.NE.1) .AND. (SPN.NE.

c NUMOFSPACERS(DESNUM(COLUMN,ROW))) THEN SPACERTOPSURF=WATERREGIONBOTTOMSURF CURRENTSURF=SURFVALUESPEC(WATERREGIONBOTTOMSURF)-

c SPACERHEIGHT(DESNUM(COLUMN,ROW),SPN)

CURRENTSURFLABEL=O DO 9238 Vel, (SN-1)

IF (SURFTYPESPEC (V) *EQ. ' PZ ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001) THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 9238 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN SPACERBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+1 ELSE SPACERBOTTOMSURF=CURRENTSURFLABEL ENDIF WATERREGIONTOPSURF=SPACERBOTTOMSURF CURRENTSURF=SPACERDIST(DESNUM(COLUMN,ROW), (SPN+1>>)

CURRENTSURFLABEL=O

\

DO 9240 V=l, (SN-1)

J IF (SURFTYPESPEC(V) .EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 9240 CONTINUE IF (CURRENTSURFLABEL.EQ'.O) THEN WATERREGIONBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC!SN)=CURRENTSURF SN=SN+1 ELSE WATERREGIONBOTTOMSURF=CURRENTSURFLABEL ENDIF ELSEIF (SPN.EQ.NUMOFSPACERS(DESNUM(COLUMN,ROW>>) THEN SPACERTOPSURF=WATERREGIONBOTTOMSURF CURRENTSURF=SURFVALUESPEC(WATERREGIONBOTTOMSURF)-

c SPACERHEIGHT(DESNUM(COLUMN,ROW),SPN)

CURRENTSURFLABEL=O DO 9242 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>>) THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 9242 CONTINUE

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-021 0-00006 REV 00 Attachment I, Page 388 of656 IF (CURRENTSURFLABEL.EQ.O) THEN SPACERBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+l ELSE SPACERBOTTOMSURF=CURRENTSURFLABEL ENDIF WATERREGIONTOPSURF=SPACERBOTTOMSURF WATERREGIONBOTTOMSURF=NODEBOTTOMSURF ENDIF

• Write the current homogenized spacer region cell in this BPR universe.

WRITE (30, 9268) LN, HOMOSPACMLNUM(DESNUM(COLUMN,ROW),SPN),

c (-l*HOMOSPACERDEN(DESNUM(COLUMN,ROW),SPN>>, GTORSURF, c (-l*SPACERTOPSURF), SPACERBOTTOMSURF, BPRAUNIV(COLUMN,ROW),

c SPN 9268 FORMAT (T1, 14, T6, 14, T11, G14. 8, T25', 14, lX, 14, lX, 14, c ' IMP:N=l U=',I3,' $ Homogenized region for spacer ',12)

LN=LN+l

• Write the water region cell below the current homogenized spacer cell in this BPR universe.

WRITE (30, 9269) LN, BMODML, (-l*MODDENSITY), GTORSURF, c (-l*WATERREGIONTOPSURF), WATERREGIONBOTTOMSURF, c BPRAUNIV(COLUMN,ROW) 9269 FORMAT(T1,I4,T6,I4,Tll,F10.8,T25,I4,lX,I4,lX,I4,

} c ' IMP:N=l U=',I3,' $ Borated moderator')

, LN=LN+l 9270 CONTINUE ELSE CALL WESTBPR(BANKNUM, BMODML, BPCLADML, BPNODEML, c BPRAUNIV, BPRCLADMAT, BPRLPML, BPRUPML, COLUMN, DESNUM, c FRLEFML, FRUEFML, FRUREGIONML, GTAXMAT, GTAXML, GTDATA, c GTMAT, GTML, GTSPLIT, HOMOSPACMLNUM, LN, MN, c NUMOFBPRANODES, NUMOFGTAXS, NUMOFSPACERS, c NUMREGABOVEBPRA, ROW, SN, SYSTEMTOP, WBPRA, c WBPRATYPE, AL203B4CDENSITY, AL203DENSITY, c BOTBPNODEHEIGHT, BPDENTOGO, BPNONABSMAT, c BPRAXDIM, BPRDIM, BPRLPLENMAT, BPRLPLENWTS, c BPRPLEN, BPRUPLENMAT, BPRUPLENWTS, ENDFITHEIGHT, c GTAXDATA, HOMOSPACERDEN, LEFMAT, MCNPBPRAHEIGHT, c MODDENSITY, NONB PMATDATA, REGABOVEBPRA, c SPACERDIST, SPACERHEIGHT, SURFVALUESPEC, UEFMAT, c BANKDES, BPRABSNODE, BPRLPLENZAIDS, c BPRUPLENZAIDS, CURRENTSURFLABEL, SURFTYPESPEC, c NODEBOTTOMSURF)

ENDIF ENDIF 9280 CONTINUE 9290 CONTINUE CLOSE (UNIT=30)

RETURN END

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity CaIcu1at~ohs for Sequoyah Unit 2

)

)

Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 389 of 656

• SUBROUTINE SURFSECTION *

• This subroutine writes the introduction section of the MCNP *

• input deck.

• SUBROUTINE SURFSECTION (SN, EFPD, SURFVALUESPEC, SURFTYPESPEC, c PREFIX, CYCLE, SURFFILE, PVOUTERSURF, SYSTEMSOUTH, c SYSTEMWEST, SYSTEMTOP, SYSTEMBOTTOM, NPLOWDEG, NPHIGHDEG)

INTEGER SN, NUMSTPTl, NUMSTPT2, NUMSTPT3, PVOUTERSURF, c SYSTEMSOUTH, SYSTEMWEST, SYSTEMTOP, SYSTEMBOTTOM, c SURFCOUNT REAL EFPD, SURFVALUESPEC(200), NPLOWDEG, NPHIGHDEG, A, PI CHARACTER SURFTYPESPEC(200) *2,. PREFIX*3, CYCLE*2, SURFFILE*15, c CHSTPTl*l, CHSTPT2*1, CHSTPT3*1 PI=3.l4l59265359

• Open the file to contain the surface specification section of the MCNP input deck.

SURFFILE(1:3)-PREFIX SURFFILE(4:4)='C' SURFFILE(5:6)=CYCLE SURFFILE(7:7)='T' NUMSTPTl=INT(EFPD/lOO.O)

CHSTPTl=CHAR(NUMSTPTl+48)

NUMSTPT2=INT<<EFPD-(NUMSTPTl*100>>/lO.0)

CHSTPT2=CHAR(NUMSTPT2+48)

NUMSTPT3=INT(EFPD-(NUMSTPTl*100)-

c (NUMSTPT2*10>>

CHSTPT3=CHAR(NUMSTPT3+48)

SURFFILE(8:8)=CHSTPTI SURFFILE (9: 9)=CHSTPT2 SURFFILE(10:10)=CHSTPT3 SURFFILE(11:15)='.surf' OPEN (UNIT=40, FILE=SURFFILE, STATUS='UNKNOWN')

REWIND (UNIT=40)

WRITE(40,*)

WRITE(40,lO) 10 FORMAT(Tl,'C SURFACE SPECIFICATIONS')

WRITE(40,20) 20 FORMAT (Tl, 'C')

DO 70 SURFCOUNT=l, (SN-l)

IF (SURFTYPESPEC(SURFCOUNT).NE.'P ') THEN IF <<SURFCOUNT.EQ.PVOUTERSURF).OR.

c (SURFCOUNT.EQ.SYSTEMSOUTH).OR.

c (SURFCOUNT.EQ.SYSTEMWEST) .OR.

c (SURFCOUNT.EQ.SYSTEMTOP).OR.

c (SURFCOUNT.EQ.SYSTEMBOTTOM)) THEN WRITE(40,30) SURFCOUNT, SURFTYPESPEC(SURFCOUNT),

c SURFVALUESPEC(SURFCOUNT) 30 FORMAT(Tl,I4, '*',T8,A2,T13,Fll.6)

ELSE

Waste Package qperations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-021 0-00006 REV 00 Attachment I, Page 390 of 656 WRITE(40,40) SURFCOUNT, SURFTYPESPEC(SURFCOUNT),

c SURFVALUESPEC(SURFCOUNT) 40 FORMAT(T1,I4,T8,A2,T13,F11.6)

ENDIF ELSEIF (SURFTYPESPEC(SURFCOUNT) .EQ.'P ') THEN IF <<SURFCOUNT.EQ.PVOUTERSURF).OR.

c (SURFCOUNT.EQ.SYSTEMSOUTH).OR.

c (SURFCOUNT .EQ. SYSTEMWEST) .OR.

c (SURFCOUNT.EQ.SYSTEMTOP) .OR.

c (SURFCOUNT.EQ.SYSTEMBOTTOM>> THEN WRITE(40,50) SURFCOUNT, SURFTYPESPEC(SURFCOUNT) 50 FORMAT(T1,I4,'*',T8,A2,T13,'1 -1 0 0')

ELSEIF (SURFVALUESPEC(SURFCOUNT) .EQ.8000) THEN NPLOWDEG=NPLOWDEG*(PI/180)

A=l/(TAN(NPLOWDEG>>

WRITE(40,60) SURFCOUNT, SURFTYPESPEC(SURFCOUNT), A 60 FORMAT(T1,I4,T8,A2,T13,F8.4,lX, '-1 0 0')

ELSEIF (SURFVALUESPEC(SURFCOUNT) .EQ.80l0) THEN NPHIGHDEG=NPHIGHDEG*(PI/180)

A=l/(TAN(NPHIGHDEG>>

WRITE(40,80) SURFCOUNT, SURFTYPESPEC(SURFCOUNT), A 80 FORMAT(T1,I4,T8,A2,T13,F8.4,lX,'-1 0 0')

ELSEIF (SURFVALUESPEC(SURFCOUNT).EQ.8020) THEN A=l/(TAN(NPLOWDEG>>

WRITE (40, 90) SURFCOUNT, SURFTYPESPEC(SURFCOUNT), A

\.

.t 90 FORMAT(T1,I4,T8,A2,T13,F8.4,lX, '1 0 0')

ELSEIF (SURFVALUESPEC(SURFCOUNT).EQ.8030) THEN A=l/(TAN(NPHIGHDEG>>

WRITE(40,100) SURFCOUNT, SURFTYPESPEC(SURFCOUNT), A 100 FORMAT(T1,I4,T8,A2,T13,F8.4,lX, '1 0 0')

ENDIF ENDIF 70 CONTINUE CLOSE (UNIT=40)

RETURN END

• This subroutine writes the control and initial source *

• specification for this MCNP calculation. .

• SUBROUTINE CONTROL (NPERCYC, TOTCYCS, GARBCYCS, c PITCH, ASSYPITCH, NUMOFNODES, NODEHEIGHT, c BANDW, WESTINGHOUSE, CE, EIGHTH, QUARTER, FULL, c PREFIX, CYCLE, EFPD, CONTFILE)

INTEGER NUMOFNODES, COLUMN, ROW, NUMSTPTl, NUMSTPT2, c NUMSTPT3, NODE, NPERCYC, TOTCYCS, GARBCYCS REAL PITCH, ASSYPITCH, NODEHEIGHT(50), EFPD, TOTALHEIGHT, c XVAL, YVAL, ZVAL, TH CHARACTER PREFIX*3, CYCLE*2, CHSTPT1*1,

Waste Package Ope~ations Engineering Calculation

Title:

CRe Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-021 0-00006 REV 00 Attachment I, Page 391 of656 c CHSTPT2*1, CHSTPT3*1, CONTFILE*15 LOGICAL BANDW, WESTINGHOUSE, CE, EIGHTH, QUARTER, FULL

• Open th~ file to contain the control and source specifications.

CONTFILE(1:3)=PREFIX CONTFILE(4:4)='C' CONTFILE(5:6)=CYCLE CONTFILE(7:7)='T' NUMSTPTl=INT(EFPD/100.0)

CHSTPT1=CHAR(NUMSTPTl+48)

NUMSTPT2=INT<<(EFPD-(NUMSTPT1*lOO>>/10.0)

CHSTPT2=CHAR(NUMSTPT2+48)

NUMSTPT3=INT(EFPD-(NUMSTPTl*100)-

c (NUMSTPT2*10>>

CHSTPT3=CHAR(NUMSTPT3+48)

CONTFILE(8:8)=CHSTPT1 CONTFILE(9:9)=CHSTPT2 CONTFILE(10:10)=CHSTPT3 CONTFILE(11:15)='.cont' OPEN (UNIT=230, FILE=CONTFILE, STATUS='UNKNOWN')

REWIND (UNIT=230)

• Write the control card specifications WRITE(230,1) 1 FORMAT (Tl, 'C' )

WRITE(230,2) 2 FORMAT (T1, 'C CONTROL CARD SPECIFICATIONS')

WRITE(230,3) 3 FORMAT (Tl, 'C')

WRITE (230, 10) 10 FORMAT (Tl, 'MODE N')

WRITE(230,20) NPERCYC, GARBCYCS, TOTCYCS 20 FORMAT(Tl,'KCODE ',I6,3X,'l.O',3X,I3,3X,I6)

• Write the source specifications WRITE(230,30) 30 FORMAT(T1,'C')

WRITE(230,40) 40 FORMAT(T1,'C INITIAL SOURCE SPECIFICATIONS')

WRITE(230,50) 50 FORMAT (T1, 'C')

WRITE (230, 60) 60 FORMAT (T1, 'KSRC',T8,$)

TOTALHEIGHT=O.O DO 70 NODE=l,NUMOFNODES TOTALHEIGHT=TOTALHEIGHT+NODEHEIGHT(NODE) 70 CONTINUE TH=TOTALHEIGHT IF (BANDW.EQ *. TRUE.) .AND. (EIGHTH.EQ *. TRUE.>> THEN DO 130 ROW=1,6 IF (ROW.LE.3) THEN DO 90 COLUMN=ROW,8 TH=TOTALHEIGHT

Waste Package Operation,s Engineering Calculation

Title:

eRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 392 of 656 DO 80 NODE=l,NUMOFNODES XVAL=<<COLUMN-1)*ASSYPITCH)+PITCH YVAL=<<ROW-l)*ASSYPITCH)+PITCH ZVAL=TH-(NODEHEIGHT(NODE) 12.0)

TH=TH-NODEHEIGHT(NODE)

WRITE (230, 72) XVAL, YVAL, ZVAL 72 FORMAT (F7 . 3,' " F7

• 3,' " F7 . 3,' " $ )

IF <<MOD(NODE,2).EQ.0) .AND.

c (NODE.NE.NUMOFNODES>> THEN WRITE(230,*)

WRITE(230,75) 75 FORMAT (T8,$)

ENDIF IF (NODE.EQ.NUMOFNODES) THEN WRITE(230,*)

WRITE(230,75)

ENDIF 80 CONTINUE 90 CONTINUE ELSEIF <<ROW.GT.3) .AND. (ROW.LE.5>> THEN DO 110 COLUMN=ROW,7 TH=TOTALHEIGHT DO 100 NODE=l,NUMOFNODES XVAL=<<COLUMN-1)*ASSYPITCH)+PITCH YVAL=<<ROW-1)*ASSYPITCH)+PITCH

) ZVAL=TH-(NODEHEIGHT(NODE) 12.0)

TH=TH-NODEHEIGHT(NODE)

WRITE(230,92) XVAL, YVAL, ZVAL 92 FORMAT (F7 . 3,' " F7 .3,' " F7 . 3,' " $)

IF <<MOD(NODE,2).EQ.0).AND.

c (NODE.NE.NUMOFNODES>> THEN WRITE(230,*)

WRITE(230,95) 95 FORMAT(T8,$)

ENDIF IF (NODE.EQ.NUMOFNODES) THEN WRITE(230,*)

WRITE(230,95)

ENDIF 100 CONTINUE 110 CONTINUE ELSEIF (ROW.EQ.6) THEN DO 125 COLUMN=ROW,6 TH=TOTALHEIGHT DO 120 NODE=l,NUMOFNODES XVAL=<<COLUMN-1)*ASSYPITCH)+PITCH YVAL= ( (ROW-1) *ASSYPITCH)+PITCH ZVAL=TH-(NODEHEIGHT(NODE) 12.0)

TH=TH-NODEHEIGHT(NODE)

WRITE(230,l12) XVAL, YVAL, ZVAL 112 FORMAT (F7 . 3,' " F7 . 3,' " F7 . 3,' " $ )

IF <<(MOD(NODE,2) .EQ.O).AND.

c (NODE.NE.NUMOFNODES>>.OR. <<NODE.EQ.NUMOFNODES) c .AND. (COLUMN.NE.6>>) THEN

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 393 of 656 WRITE(230,*)

WRITE (230,115) 115 FORMAT(T8,$)

ENDIF IF <<NODE.EQ.NUMOFNODES).AND. (COLUMN.EQ.6>> THEN WRITE(230,*)

ENDIF 120 CONTINUE 125 CONTINUE ENDIF 130 CONTINUE WRITE (230, 132) 132 FORMAT (T1, 'PRINT')

WRITE(230,*)

WRITE(230,*)

ELSEIF <<BANDW.EQ .. TRUE.).AND.(QUARTER.EQ .. TRUE.>> THEN DO 250 ROW=1,8 IF (ROW.LE.3) THEN DO 160 COLUMN=1,8 TH=TOTALHEIGHT 00150 NODE=l,NUMOFNODES XVAL=<<COLUMN-1)*ASSYPITCH)+PITCH YVAL=<<ROW-1)*ASSYPITCH)+PITCH ZVAL=TH-(NODEHEIGHT(NODE)/2.0)

TH=TH-NODEHEIGHT(NODE)

WRITE(230,142) XVAL, YVAL, ZVAL 14 2 FORMAT (F7 . 3,' " F7 . 3,' " F7 . 3,' " $ )

IF <<MOD(NODE,2).EQ.0).AND.

c (NODE.NE.NUMOFNODES>> THEN WRITE(230,*)

WRITE (230,145) 145 FORMAT (T8,$)

ENDIF IF (NODE.EQ.NUMOFNODES) THEN WRITE(230,*)

WRITE(230,145)

ENDIF 150 CONTINUE 160 CONTINUE ELSEIF <<ROW.GT.3).AND. (ROW.LE.5>> THEN DO 180 COLUMN=1,7 TH=TOTALHEIGHT DO 170 NODE=l,NUMOFNODES XVAL=<<COLUMN-1)*ASSYPITCH)+PITCH YVAL=<<ROW-1)*ASSYPITCH)+PITCH ZVAL=TH-(NODEHEIGHT(NODE)/2.0)

TH=TH-NODEHEIGHT(NODE)

WRITE (230, 162) XVAL, YVAL,ZVAL 162 FORMAT (F7.3, , ',F7.3,' ',F7.3,' ',$)

IF <<MOD(NODE,2).EQ.0).AND.

c (NODE.NE.NUMOFNODES>> THEN WRITE(230,*)

WRITE (230, 165) 165 FORMAT (T8,$)

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2

, Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 394 of 656 ENDIF IF (NODE.EQ.NUMOFNODES) THEN WRITE(230,*)

WRITE (230, 165)

ENDIF 170 CONTINUE 180 CONTINUE ELSEIF (ROW.EQ.6) THEN DO 200 COLUMN=1,6 TH=TOTALHEIGHT DO 190 NODE=l,NUMOFNODES XVAL-(COLUMN-l)*ASSYPITCH)+PITCH YVAL=((ROW-1)*ASSYPITCH)+PITCH ZVAL=TH-(NODEHEIGHT(NODE) 12.0)

TH=TH-NODEHEIGHT(NODE)

WRITE(230,182) XVAL, YVAL, ZVAL 182 FORMAT (F7 . 3,' " F7 . 3, I I , F7 . 3,' " $)

IF <<(MOD(NODE,2).EQ.0).AND.

c (NODE.NE.NUMOFNODES>> THEN WRITE(230,*)

WRITE (230, 185) 185 FORMAT (T8,$)

ENDIF IF (NODE.EQ.NUMOFNODES) THEN WRITE(230,*)

j WRITE(230,185)

ENDIF 190 CONTINUE 200 CONTINUE ELSEIF (ROW.EQ.7) THEN DO 220 COLUMN=1,5 TH=TOTALHEIGHT DO 210 NODE=l,NUMOFNODES XVAL=((COLUMN-1)*ASSYPITCH)+PITCH YVAL=(ROW-1)*ASSYPITCH)+PITCH ZVAL=TH-(NODEHEIGHT(NODE) 12.0)

TH=TH-NODEHEIGHT(NODE)

WRITE (230, 202) XVAL, YVAL, ZVAL 202 FORMAT (F7 . 3, I " F7

• 3, I " F7 . 3, I I , $ )

IF ((MOD(NODE,2).EQ.0).AND.

c (NODE.NE.NUMOFNODES>> THEN WRITE(230,*)

WRITE(230,205) 205 FORMAT (T8,$)

ENDIF IF (NODE.EQ.NUMOFNODES) THEN WRITE(230,*)

WRITE(230,205)

ENDIF 210 CONTINUE 220 CONTINUE ELSEIF (ROW.EQ.8) THEN DO 240 COLUMN=1,3 TH=TOTALHEIGHT

Waste Package Operations Engineering Calculation

Title:

eRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-021 0-00006 REV 00 Atta~hment I, Page 395 of656 DO 230 NODE=l,NUMOFNODES XVAL=<<COLUMN-l)*ASSYPITCH)+PITCH YVAL=<<ROW-l)*ASSYPITCH)+PITCH ZVAL=TH-(NODEHEIGHT(NODE)/2.0)

TH=TH-NODEHEIGHT(NODE)

WRITE (230, 222) XVAL, YVAL, ZVAL 222 FORMAT (F7.3,, ',F7.3,' ',F7.3,' ',$)

IF <<(MOD(NODE,2).EQ.0).AND.

c (NODE.NE.NUMOFNODES>>.OR. <<NODE.EQ.NUMOFNODES) c .AND. (COLUMN.NE.3>>) THEN WRITE(230,*)

WRITE(230,225) 225 FORMAT (T8,$)

ENDIF IF <<NODE.EQ.NUMOFNODES).AND.

c (COLUMN.EQ.3>> THEN WRITE(230,*)

ENDIF 230 CONTINUE 240 CONTINUE ENDIF 250 CONTINUE WRITE (230, 252) 252 FORMAT (Tl, 'PRINT')

WRITE(230,*)

WRITE(230,*)

ELSEIF <<BANDW.EQ .. TRUE.) .AND. (FULL.EQ .. TRUE.>> THEN DO 374 ROW=l,lS IF (ROW.EQ.l) THEN DO 260 COLUMN=6,10 TH=TOTALHEIGHT DO 258 NODE=l,NUMOFNODES XVAL=<<COLUMN-8)*ASSYPITCH)+PITCH YVAL= (7*ASSYPITCH) +PITCH ZVAL=TH-(NODEHEIGHT(NODE)/2.0)

TH-TH-NODEHEIGHT(NODE)

WRITE (230, 254) XVAL, YVAL, ZVAL 254 FORMAT(F8.3,' ',F8.3,' ',F8.3,' ',$)

IF <<MOD(NODE,2) .EQ.O).AND.

c (NODE.NE.NUMOFNODES>> THEN WRITE(230,*)

WRITE(230,256) 256 FORMAT (T8,$)

ENDIF IF (NODE.EQ.NUMOFNODES) THEN WRITE(230,*)

WRITE(230,256)

ENDIF 258 CONTINUE 260 CONTINUE ELSEIF (ROW.EQ.2) THEN DO 268 COLUMN=4,12 TH=TOTALHEIGHT DO 266 NODE=l,NUMOFNODES

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 396 of 656 XVAL=<<COLUMN-8)*ASSYPITCH)+PITCH YVAL=(6*ASSYPITCH)+PITCH ZVAL=TH-(NODEHEIGHT(NODE)/2.0)

TH=TH-NODEHEIGHT(NODE)

WRITE(230,262) XVAL, YVAL, ZVAL 262 FORMAT (F8 .3,' " F8 .3,' " F8 . 3,' " $ )

IF <<MOD(NODE,2).EQ.0).AND.

c (NODE.NE.NUMOFNODES>> THEN WRITE(230,*)

WRITE(230,264) 264 FORMAT(T8,$)

ENDIF IF (NODE.EQ.NUMOFNODES) THEN WRITE(230,*)

WRITE(230,264)

ENDIF 266 CONTINUE 268 CONTINUE ELSEIF (ROW.EQ.3) THEN DO 276 COLUMN=3,13 TH=TOTALHEIGHT DO 274 NODE=l,NUMOFNODES XVAL=<<COLUMN-8)*ASSYPITCH)+PITCH YVAL=(S*ASSYPITCH)+PITCH ZVAL=TH-(NODEHEIGHT(NODE)/2.0)

TH=TH-NODEHEIGHT(NODE)

WRITE(230,270) XVAL, YVAL, ZVAL 270 FORMAT (F8 . 3,' " F8 .3,' " F8 . 3,' " $)

IF <<MOD(NODE,2) .EQ.O).AND.

c (NODE.NE.NUMOFNODES>> THEN WRITE(230,*)

WRITE(230,272) 272 FORMAT(T8,$)

ENDIF IF (NODE.EQ.NUMOFNODES) THEN WRITE(230,*)

WRITE (230, 272)

ENDIF 274 CONTINUE 276 CONTINUE ELSEIF (ROW.EQ.4) THEN DO 284 COLUMN=2,14 TH=TOTALHEIGHT DO 282 NODE=l,NUMOFNODES XVAL=<<COLUMN-8)*ASSYPITCH)+PITCH YVAL=(4*ASSYPITCH)+PITCH ZVAL=TH-(NODEHEIGHT(NODE)/2.0)

TH=TH-NODEHEIGHT(NODE)

WRITE(230,278) XVAL, YVAL, ZVAL 278 FORMAT (F8 . 3,' " Fa

• 3,' " Fa . 3,' " $ )

IF <<MOD(NODE,2).EQ.O) .AND.

c (NODE.NE.NUMOFNODES>> THEN WRITE(230,*)

WRITE (230, 280)

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 397 of 656 280 FORMAT (T8,$)

ENDIF IF (NODE.EQ.NUMOFNODES) THEN WRITE(230,*)

WRITE(230,280)

ENDIF 282 CONTINUE 284 CONTINUE ELSEIF (ROW.EQ.S) THEN DO 292 COLUMN=2,14 TH=TOTALHEIGHT DO 290 NODE=l,NUMOFNODES XVAL=<<COLUMN-8)*ASSYPITCH)+PITCH YVAL=(3*ASSYPITCH)+PITCH ZVAL=TH-(NODEHEIGHT(NODE)/2.0)

TH=TH-NODEHEIGHT(NODE)

WRITE(230,286) XVAL, YVAL, ZVAL 286 FORMAT (F8 . 3,' '; F8 . 3,' ., F8 . 3,' ., $ )

IF <<MOD(NODE,2).EQ.0).AND.

c (NODE.NE.NUMOFNODES>> THEN WRITE(230,*)

WRITE (230, 288) 288 FORMAT (T8,$)

ENDIF IF (NODE.EQ.NUMOFNODES) THEN J WRITE(230,*)

WRITE(230,288)

ENDIF 290 CONTINUE 292 CONTINUE ELSEIF (ROW.EQ.6) THEN DO 300 COLUMN=l,lS TH=TOTALHEIGHT DO 298 NODE=l,NUMOFNODES XVAL=<<COLUMN-8)*ASSYPITCH)+PITCH YVAL=(2*ASSYPITCH)+PITCH ZVAL=TH-(NODEHEIGHT(NODE)/2.0)

TH=TH-NODEHEIGHT(NODE)

WRITE(230,294) XVAL, YVAL, ZVAL 294 FORMAT (F8 . 3,' I , F8 . 3, I . , F8 . 3,' ., $ )

IF <<MOD(NODE,2) .EQ.O).AND.

c (NODE.NE.NUMOFNODES>> THEN WRITE(230,*)

WRITE(230,296) 296 FORMAT(T8,$)

ENDIF IF (NODE.EQ.NUMOFNODES) THEN WRITE(230,*)

WRITE(230,296)

ENDIF 298 CONTINUE 300 CONTINUE ELSEIF (ROW.EQ.?) THEN DO 308 COLUMN=l,lS

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2

....~

Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 398 of 656

}

TH=TOTALHEIGHT DO 306 NODE=l,NUMOFNODES XVAL=<<COLUMN-8)*ASSYPITCH)+PITCH YVAL=(l*ASSYPITCH)+PITCH ZVAL=TH-(NODEHEIGHT(NODE)/2.0)

TH=TH-NODEHEIGHT(NODE)

WRITE(230,302) XVAL, YVAL, ZVAL 302 FORMAT (F8 . 3,' " F8 .3, I " F8 . 3, I I , $ )

IF <<MOD(NODE,2).EQ.0).AND.

c (NODE.NE.NUMOFNODES)) THEN WRITE(230,*)

WRITE(230,304) 304 FORMAT (T8,$)

ENDIF IF (NODE.EQ.NUMOFNODES) THEN WRITE(230,*)

WRITE(230,304)

ENDIF 306 CONTINUE 308 CONTINUE ELSEIF (ROW.EQ.8) THEN DO 316 COLUMN=1,15 TH=TOTALHEIGHT DO 314 NODE=l,NUMOFNODES XVAL=<<COLUMN-8)*ASSYPITCH)+PITCH

) YVAL=(O*ASSYPITCH)+PITCH ZVAL=TH-(NODEHEIGHT(NODE)/2.0)

TH=TH-NODEHEIGHT(NODE)

WRITE(230,310) XVAL, YVAL, ZVAL 310 FORMAT (F8 . 3, I I , F8 . 3,' " F8 . 3,' I , $ )

IF <<MOD(NODE,2).EQ.0).AND.

c (NODE.NE.NUMOFNODES>> THEN WRITE(230,*)

WRITE(230,312) 312 FORMAT (T8,$)

ENDIF IF (NODE.EQ.NUMOFNODES) THEN WRITE(230,*)

WRITE(230,312)

ENDIF 314 CONTINUE 316 CONTINUE ELSEIF (ROW.EQ.9) THEN DO 324 COLUMN=1,15 TH=TOTALHEIGHT DO 322 NODE=l,NUMOFNODES XVAL=<<COLUMN-8)*ASSYPITCH)+PITCH YVAL=(-l*ASSYPITCH)+PITCH ZVAL=TH-(NODEHEIGHT(NODE)/2.0)

TH=TH-NODEHEIGHT(NODE)

WRITE(230,318) XVAL, YVAL, ZVAL 318 FORMAT (F8 . 3,' " F8 . 3, I " F8 . 3, I " $ )

IF <<MOD(NODE,2).EQ.0) .AND.

c (NODE.NE.NUMOFNODES>> THEN

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 399 of 656 WRITE(230,*)

WRITE (230, 320) 320 FORMAT (T8,$)

ENDIF IF (NODE.EQ.NUMOFNODES) THEN WRITE(230,*)

WRITE(230,320)

ENDIF 322 CONTINUE 324 CONTINUE ELSEIF (ROW.EQ.l0) THEN DO 332 COLUMN=1,15 TH=TOTALHEIGHT DO 330 NODE=l,NUMOFNODES .

XVAL= ((COLUMN-8) *ASSYPITCH) +PITCH YVAL=(-2*ASSYPITCH)+PITCH ZVAL=TH-(NODEHEIGHT(NODE)/2.0)

TH=TH~NODEHEIGHT(NODE)

WRITE(230,326) XVAL, YVAL, ZVAL 326 FORMAT (F8 . 3,' " F8

• 3,' " F8 . 3,' " $ )

IF <<(MOD(NODE,2).EQ.0).AND.

c (NODE.NE.NUMOFNODES>> THEN WRITE(230,*)

WRITE (230, 328) 328 FORMAT (T8,$)

ENDIF IF (NODE. EQ. NUMOFNODES) THEN WRITE(230,*)

WRITE(230,328)

ENDIF 330 CONTINUE 332 CONTINUE ELSEIF (ROW.EQ.ll) THEN DO 340 COLUMN=2,14 TH=TOTALHEIGHT DO 338 NODE=l,NUMOFNODES XVAL=((COLUMN-8)*ASSYPITCH)+PITCH YVAL= (-3*ASSYPITCH) +PITCH ZVAL=TH-(NODEHEIGHT(NODE)/2.0)

TH=TH-NODEHEIGHT(NODE)

WRITE(230,334) XVAL, YVAL, ZVAL 334 FORMAT(F8.3,' ',F8.3,' ',F8.3,' ',$)

IF (MOD(NODE,2).EQ.0).AND.

c (NODE.NE.NUMOFNODES>> THEN WRITE(230,*)

WRITE(230,336) 336 FORMAT (T8,$)

ENDIF IF (NODE.EQ.NUMOFNODES) THEN WRITE(230,*)

WRITE(230,336)

ENDIF 338 CONTINUE 340 CONTINUE

Waste Package Operations Engineering Calculation.

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment!, Page 400 of 656 ELSEIF (ROW.EQ.12) THEN DO 34B COLUMN=2,14 TH=TOTALHEIGHT DO 346 NODE=I,NUMOFNODES XVAL=<<COLUMN-B)*ASSYPITCH)+PITCH YVAL=(-4*ASSYPITCH)+PITCH ZVAL=TH-(NODEHEIGHT(NODE)/2.0)

TH-TH-NODEHEIGHT(NODE)

WRITE(230,342) XVAL, YVAL, ZVAL 342 FORMAT (FB . 3,' " FB . 3,' " FB *3,' " $ )

IF <<MOD(NODE,2).EQ.0).AND.

c (NODE.NE.NUMOFNODES>> THEN WRITE(230,*)

WRITE (230, 344) 344 FORMAT (TB,$)

ENDIF IF (NODE.EQ.NUMOFNODES) THEN WRITE(230,*)

.WRITE(230,344)

ENDIF 346 CONTINUE 34B CONTINUE ELSEIF (ROW.EQ.13) THEN DO 356 COLUMN=3,13 TH=TOTALHEIGHT DO 354 NODE=I,NUMOFNODES XVAL=<<COLUMN-B)*ASSYPITCH)+PITCH YVAL=(-5*ASSYPITCH)+PITCH ZVAL=TH-(NODEHEIGHT(NODE)/2.0)

TH=TH-NODEHEIGHT(NODE)

WRITE(230,350) XVAL, YVAL, ZVAL 350 FORMAT (FB .3, I I , FB . 3,' I , FB

• 3, I " $ )

IF <<MOD(NODE,2).EQ.0).AND.

c (NODE.NE.NUMOFNODES>> THEN WRITE(230,*)

WRITE (230, 352) 352 FORMAT(TB,$)

ENDIF IF (NODE.EQ.NUMOFNODES) THEN WRITE(230,*)

WRITE (230, 352)

ENDIF 354 CONTINUE 356 CONTINUE ELSEIF (ROW.EQ.14) THEN DO 364 COLUMN=4,12 TH=TOTALHEIGHT DO 362 NODE=I,NUMOFNODES XVAL=<<COLUMN-B)*ASSYPITCH)+PITCH YVAL=(-6*ASSYPITCH)+PITCH ZVAL=TH-(NODEHEIGHT(NODE)/2.0)

TH=TH-NODEHEIGHT(NODE)

WRITE(230,358) XVAL, YVAL, ZVAL 35B FORMAT (F8 . 3,' I , FB

• 3, I I , F8 . 3,' " $ )

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2

> Document Identifier

BOOOOOOOO-01717-021 0-00006 REV 00 Attachment I, Page 401 of 656 t

IF <<MOD(NODE,2).EQ.0).AND.

c (NODE.NE.NUMOFNODES>> THEN WRITE(230,*)

WRITE(230,360) 360 FORMAT (T8,$)

ENDIF IF (NODE.EQ.NUMOFNODES) THEN WRITE(230,*)

WRITE(230,360)

ENDIF 362 CONTINUE 364 CONTINUE ELSEIF (ROW.EQ.1S) THEN DO 372 COLUMN=6,lO TH=TOTALHEIGHT DO 370 NODE=l,NUMOFNODES XVAL=<<COLUMN-8)*ASSYPITCH)+PITCH YVAL= (-7*ASSYPITCH) +PITCH ZVAL=TH-(NODEHEIGHT(NODE)/2.0)

TH=TH-NODEHEIGHT(NODE)

WRITE(230,366) XVAL, YVAL, ZVAL 366 FORMAT(F8.3,' ',F8.3,' ',F8.3,' ',$)

IF <<(MOD(NODE,2).EQ.0) .AND.

c (NODE.NE.NUMOFNODES>>.OR. <<NODE.EQ.NUMOFNODES) c .AND. (COLUMN.NE.10>>) THEN WRITE(230,*)

WRITE(230,368) 368 FORMAT (T8,$)

ENDIF IF <<NODE.EQ.NUMOFNODES).AND. (COLUMN.EQ.10>> THEN WRITE(230,*)

ENDIF 370 CONTINUE 372 CONTINUE ENDIF 374 CONTINUE WRITE (230, 376) 376 FORMAT (Tl, 'PRINT')

WRITE(230,*)

WRITE(230,*)

ELSEIF <<WESTINGHOUSE.EQ .. TRUE.).AND.

c (EIGHTH.EQ .. TRUE.>> THEN DO 460 ROW=1,6 IF (ROW.LE.4) THEN DO 410 COLUMN=ROW,8 TH=TOTALHEIGHT DO 400 NODE=l,NUMOFNODES XVAL=<<COLUMN-l)*ASSYPITCH)+(2*PITCH)

YVAL=<<ROW-l)*ASSYPITCH)+PITCH ZVAL=TH-(NODEHEIGHT(NODE)/2.0)

TH=TH-NODEHEIGHT(NODE)

WRITE (230, 380) XVAL, YVAL, ZVAL 380 FORMAT (F7.3, , ',F7.3,' ',F7.3,' ',$)

IF <<MOD(NODE,2) .EQ.O) .AND.

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity CalcuUitions for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-021 0-00006 REV 00 Attachment I, Page 402 of 656 c (NODE.NE.NUMOFNODES>> THEN WRITE(230,*)

WRITE(230,390) 390 FORMAT(T8,$)

ENDIF IF (NODE.EQ.NUMOFNODES) THEN WRITE(230,*)

WRITE(230,390)

ENDIF 400 CONTINUE 410 CONTINUE ELSEIF <<ROW.GT.4).AND. (ROW.LE.6>> THEN DO 450 COLUMN=ROW,7 TH=TOTALHEIGHT DO 440 NODE-l,NUMOFNODES XVAL=<<COLUMN-l)*ASSYPITCH)+(2*PITCH)

YVAL= <<ROW-I) *ASSYPITCH) +PITCH ZVAL=TH-(NODEHEIGHT(NODE)/2.0)

TH=TH-NODEHEIGHT(NODE)

WRITE (230, 420) XVAL, YVAL, ZVAL 420 FORMAT (F7.3,, ',F7.3,' ',F?3,' ',$)

IF <<MOD(NODE,2).EQ.0).AND.

c (NODE.NE.NUMOFNODES>> THEN WRITE(230,*)

WRITE(230,430) 430 FORMAT(TB,$)

ENDIF IF <<NODE.EQ.NUMOFNODES).AND. (ROW. LT. 6) c .AND. (COLUMN.LT.?>> THEN WRITE(230,*)

WRITE (230, 430)

ELSEIF <<NODE.EQ.NUMOFNODES).AND.

c (ROW.EQ.6).AND. (COLUMN.EQ.?>> THEN WRITE(230,*)

ENDIF 440 CONTINUE 450 CONTINUE ENDIF 460 CONTINUE WRITE(230,470) 470 FORMAT (Tl, 'PRINT')

WRITE(230,*)

WRITE(230,*)

ELSEIF <<WESTINGHOUSE.EQ .. TRUE.).AND.

c (QUARTER.EQ .. TRUE.>> THEN DO 640 ROW=I,8 IF (ROW.LE.4) THEN DO 510 COLUMN=I,8 TH=TOTALHEIGHT DO 500 NODE=I,NUMOFNODES XVAL=<<COLUMN-l)*ASSYPITCH)+PITCH YVAL=<<ROW-l)*ASSYPITCH)+PITCH ZVAL=TH-(NODEHEIGHT(NODE)/2.0)

TH=TH-NODEHEIGHT(NODE)

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 403 of 656 WRITE(230,480) XVAL, YVAL, ZVAL 480 FORMAT (F7 . 3,' " F7. 3,' " F7 .3,' " $)

IF <<MOD(NODE,2).EQ.0).AND.

c (NODE.NE.NUMOFNODES)) THEN WRITE(230,*)

WRITE(230,490) 490 FORMAT (T8,$)

ENDIF IF (NODE.EQ.NUMOFNODES) THEN WRITE(230,*)

WRITE(230,490)

ENDIF 500 CONTINUE 510 CONTINUE ELSEIF <<(ROW.GT.4).AND. (ROW.LE.6>>) THEN DO 550 COLUMN=1,7 TH=TOTALHEIGHT DO 540 NODE=l,NUMOFNODES XVAL={(COLUMN-l)*ASSYPITCH)+PITCH YVAL=<<ROW-l)*ASSYPITCH)+PITCH ZVAL=TH-(NODEHEIGHT(NODE)/2.0)

TH=TH-NODEHEIGHT(NODE)

WRITE(230,520) XVAL, YVAL, ZVAL 520 FORMAT (F7 . 3,' " F7

• 3,' I , F7 . 3, I I , $ )

IF <<(MOD(NODE,2) .EQ.O).AND.

) c (NODE.NE.NUMOFNODES>> THEN WRITE(230,*)

WRITE (230, 530) 530 FORMAT(T8,$)

ENDIF IF (NODE.EQ.NUMOFNODES) THEN WRITE(230,*)

WRITE(230,530)

ENDIF 540 CONTINUE 550 CONTINUE ELSEIF (ROW.EQ.7) THEN DO 590 COLUMN=1,6 TH=TOTALHEIGHT DO 580 NODE=l,NUMOFNODES XVAL=((COLUMN-l)*ASSYPITCH)+PITCH YVAL=(ROW-l)*ASSYPITCH)+PITCH ZVAL=TH-(NODEHEIGHT(NODE)/2.0)

TH=TH-NODEHEIGHT(NODE)

WRITE (230, 560) XVAL, YVAL, ZVAL 560 FORMAT(F7.3,' ',F7."3, I ',F7.3,' ',$)

IF ((MOD(NODE,2) .EQ.O)'.AND.

c (NODE.NE.NUMOFNODES>> THEN WRITE(230,*)

WRITE (230, 570) 570 FORMAT (T8,$)

ENDIF IF (NODE.EQ.NUMOFNODES) THEN WRITE(230,*)

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-021 0-00006 REV 00 Attachment I, Page 404 of 656 WRITE (230, 570)

ENDIF 580 CONTINUE 590 CONTINUE ELSEIF (ROW.EQ.8) THEN DO 630 COLUMN=1,4 TH=TOTALHEIGHT DO 620 NODE=l,NUMOFNODES XVAL== (.(COLUMN-1) *ASSYPITCH) +PITCH YVAL=<<ROW-1)*ASSYPITCH)+PITCH ZVAL=TH-(NODEHEIGHT(NODE)/2.0)

TH=TH-NODEHEIGHT(NODE)

WRITE(230,600) XVAL, YVAL, ZVAL 600 FORMAT(F7.3,' ',F7.3,' ',F7.3,' ',$)

IF <<(MOD(NODE,2).EQ.0).AND.

e (NODE.NE.NUMOFNODES>> .OR. <<NODE.EQ.NUMOFNODES) e .AND. (COLUMN.NE.4>>) THEN WRITE(230,*)

WRITE(230,610) 610 FORMAT (T8,$)

ENDIF IF <<NODE.EQ.NUMOFNODES).AND.(COLUMN.EQ.4>> THEN WRITE(230,*)

ENDIF 620 CONTINUE j 630 CONTINUE ENDIF 640 CONTINUE WRITE (230, 650) 650 FORMAT (T1, 'PRINT')

WRITE(230,*)

WRITE(230,*) .

ELSEIF <<WESTINGHOUSE.EQ .. TRUE.).AND.

e (FULL.EQ .. TRUE.>> THEN DO 1020 ROW=I,15 IF (ROW.EQ.l) THEN DO 690 COLUMN=5,11 TH=TOTALHEIGHT DO 680 NODE=l,NUMOFNODES XVAL=<<COLUMN-8)*ASSYPITCH)+PITCH YVAL= (7*ASSYPITCH) +PITCH ZVAL=TH-(NODEHEIGHT(NODE)/2.0)

TH=TH-NODEHEIGHT(NODE)

WRITE(230,660) XVAL, YVAL, ZVAL 660 FORMAT(FB.3,' ',F8.3,' ',FB.3,' ',$)

IF <<MOD(NODE,2) .EQ.O) .AND.

e (NODE.NE.NUMOFNODES>> THEN WRITE(230,*)

WRITE (230, 670) 670 FORMAT(TB,$)

. ENDIF IF (NODE.EQ.NUMOFNODES) THEN WRITE(230,*)

WRITE(230,670)

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 405 of 656 ENDIF 680 CONTINUE 690 CONTINUE ELSEIF (ROW.EQ.2) THEN DO 730 COLUMN=3,13 TH=TOTALHEIGHT DO 720 NODE=1,NUMOFNODES XVAL=<<(COLUMN-8)*ASSYPITCH)+PITCH YVAL= (6*ASSYPITCH) +PITCH ZVAL=TH-(NODEHEIGHT(NODE) 12.0)

TH=TH-NODEHEIGHT(NODE)

WRITE (230, 700) XVAL, YVAL, ZVAL 700 FORMAT (F8 .3,' I , F8

• 3,' I , F8

• 3, I " $ )

IF <<MOD(NODE,2).EQ.0).AND.

c (NODE.NE.NUMOFNODES>> THEN WRITE(230,*)

WRITE (230, 710) 710 FORMAT(T8,$)

ENDIF IF (NODE.EQ.NUMOFNODES) THEN WRITE(230,*)

WRITE (230,710)

ENDIF 720 CONTINUE 730 CONTINUE ELSEIF (ROW.EQ.3) THEN DO 770 COLUMN=2,14 TH=TOTALHEIGHT DO 760 NODE=1,NUMOFNODES XVAL=(COLUMN-8)*ASSYPITCH)+PITCH YVAL=(5*ASSYPITCH)+PITCH ZVAL=TH-(NODEHEIGHT(NODE) 12.0)

TH=TH-NODEHEIGHT(NODE)

WRITE(230,740) XVAL, YVAL, ZVAL 740 FORMAT (F8 . 3, I I , F8 *3,' I , F8

• 3, I " $ )

IF ((MOD(NODE,2).EQ.0).AND.

c (NODE.NE.NUMOFNODES>> THEN WRITE(230,*)

WRITE (230, 750) 750 FORMAT (T8,$)

ENDIF IF (NODE.EQ.NUMOFNODES) THEN WRITE(230,*)

WRITE (230, 750)

ENDIF 760 CONTINUE 770 CONTINUE ELSEIF (ROW.EQ.4) THEN DO 810COLUMN=2,14 TH=TOTALHEIGHT DO 800 NODE=l,NUMOFNODES XVAL=(COLUMN-8)*ASSYPITCH)+PITCH YVAL=(4*ASSYPITCH)+PITCH ZVAL=TH- (NODEHEIGHT'(NODE) 12.0)

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calcuia.tidns for Sequoyah Unit 2 Document Identifier: BOOOOOOOo-OI717-0210-00006 REV 00 Attachment I, Page 406 of 656 TH=TH-NODEHEIGHT(NODE)

WRITE(230,780) XVAL, YVAL, ZVAL 780 FORMAT (F8

• 3,' " F8 . 3,' " F8 . 3,' " $ )

IF <<MOD(NODE,2).EQ.0) .AND.

c (NODE.NE.NUMOFNODES>> THEN WRITE(230,*)

WRITE ('230, 790) 790 FORMAT(T8,$)

ENDIF IF (NODE.EQ.NUMOFNODES) THEN WRITE(230,*)

WRITE(230,790)

ENDIF 800 CONTINUE 810 CONTINUE ELSEIF <<ROW.GE.5).AND. (ROW.LE.11>>) THEN DO 850 COLUMN=1,15 TH=TOTALHEIGHT DO 840 NODE=l,NUMOFNODES XVAL=<<COLUMN-8)*ASSYPITCH)+PITCH YVAL=(3*ASSYPITCH)+PITCH ZVAL=TH-(NODEHEIGHT(NODE)/2.0)

TH=TH-NODEHEIGHT(NODE)

WRITE (230, 820) XVAL, YVAL, ZVAL 820 FORMAT (F8 *3,' " F8 *3,' " F8 . 3,' " $ )

IF <<MOD(NODE,2).EQ.O) .AND.

c (NODE.NE.NUMOFNODES>> THEN WRITE(230,*)

WRITE(230,830) 830 FORMAT (T8,$)

ENDIF IF (NODE.EQ.NUMOFNODES) THEN WRITE(230,*)

WRITE(230,830)

ENDIF 840 CONTINUE 850 CONTINUE ELSEIF (ROW.EQ.12) THEN DO 890 COLUMN=2,14 TH=TOTALHEIGHT DO 880 NODE=l,NUMOFNODES XVAL=<<COLUMN-8)*ASSYPITCH)+PITCH YVAL= (2*ASSYPITCH) +PITCH ZVAL=TH-(NODEHEIGHT(NODE)/2.0)

TH=TH-NODEHEIGHT(NODE)

WRITE(230,B60) XVAL, YVAL, ZVAL 860 FORMAT (FB . 3,' " F8 .3,' " F8

• 3,' " $ )

IF <<MOD(NODE,2).EQ.0).AND.

c (NODE.NE.NUMOFNODES) THEN WRITE(230,*)

WRITE(230,870) 870 FORMAT (TB,$)

ENDIF IF (NODE.EQ.NUMOFNODES) THEN

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 407 of 656 WRITE(230,*)

WRITE (230, 870)

ENDIF 880 CONTINUE 890 CONTINUE ELSEIF (ROW.EQ.13) THEN DO 930 COLUMN=2,14 TH=TOTALHEIGHT DO 920 NODE=1,NUMOFNODES XVAL=<<COLUMN-8)*ASSYPITCH)+PITCH YVAL= (l*ASSYPITCH) +PITCH ZVAL=TH-(NODEHEIGHT(NODE)/2.0)

TH=TH-NODEHEIGHT(NODE)

WRITE (230, 900), XVAL, YVAL, ZVAL 900 FORMAT (F8 . 3,' I , F8 *3,' I , F8 . 3, I . , $ )

IF <<MOD(NODE,2).EQ.0).AND.

c (NODE.NE.NUMOFNODES>> THEN WRITE(230,*)

WRITE (230, 910) 910 FORMAT(T8,$)

ENDIF IF (NODE.EQ.NUMOFNODES) THEN

.WRITE (230, *)

WRITE(230,9l0)

ENDIF

} 920 930 CONTINUE CONTINUE ELSEIF (ROW.EQ.14) THEN DO 970 COLUMN=3,13 TH=TOTALHEIGHT DO 960 NODE=l,NUMOFNODES XVAL=<<COLUMN-8)*ASSYPITCH)+PITCH YVAL=(O*ASSYPITCH)+PITCH ZVAL=TH-(NODEHEIGHT(NODE)/2.0)

TH=TH-NODEHEIGHT(NODE)

WRITE (230, 940) XVAL, YVAL, ZVAL 940 FORMAT (F8

• 3, I " F8 .3,' I , F8 . 3, I I , $ )

IF <<MOD(NODE,2) .EQ.O).AND.

c (NODE.NE.NUMOFNODES>> THEN WRITE(230,*)

WRITE(230,950) 950 FORMAT (T8,$)

ENDIF IF (NODE.EQ.NUMOFNODES) THEN WRITE(230,*)

WRITE (230, 950)

ENDIF 960 CONTINUE 970 CONTINUE ELSEIF '(ROW.EQ.15) THEN DO 1010 COLUMN=5,11 TH=TOTALHEIGHT DO 1000 NODE=l,NUMOFNODES XVAL=<<COLUMN-8)*ASSYPITCH)+PITCH

Waste Package Operations Engineering Calculation

Title:

eRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 408 of 656 YVAL-(-l*ASSYPITCH)+PITCH ZVAL=TH-(NODEHEIGHT(NODE)/2.0)

TH=TH-NODEHEIGHT(NODE)

WRITE (230, 980) XVAL, YVAL, ZVAL 980 FORMAT (F8. 3,' " F8. 3,' " F8. 3,' " $)

IF <<(MOD(NODE,2).EQ.0).AND.

c * (NODE.NE.NUMOFNODES>>.OR. (NODE.EQ.NUMOFNODES) c .AND. (COLUMN.NE.11>>) THEN WRITE(230,*)

WRITE(230,990) 990 FORMAT (T8,$)

ENDIF IF <<NODE.EQ.NUMOFNODES).AND. (COLUMN.EQ.11>> THEN WRITE(230,*)

ENDIF 1000 CONTINUE 1010 CONTINUE ENDIF 1020 CONTINUE WRITE(230,1030) 1030 FORMAT (T1, 'PRINT')

WRITE(230,*)

WRITE(230,*)

ELSEIF (CE.EQ .. ~RUE.) THEN WRITE(*,*) 'THE CE SOURCE SPECIFICATION IS',

) c ' NOT AVAILABLE AT THIS TIME.'

ENDIF RETURN END SUBROUTINE WESTONE(EIGHTH, QUARTER, FULL, ASSYID, NUMOFFADESIGNS, c DESNUM, NUMOFBANKS, BANKDES, BANKID, BANKHEIGHT, BANKNUM, c ENRICHMENT, STAT)

INTEGER NUMOFFADESIGNS, DESNUM(SO,SO), NUMOFBANKS, c BANKID(20), BANKNUM(SO,SO), C, R, BANK REAL BANKHEIGHT(20), ENRICHMENT (SO, SO)

CHARACTER ASSYID(SO,SO)*S, STAT(SO,SO)*l, BANKDES(20)*S LOGICAL EIGHTH, QUARTER, FULL IF (EIGHTH.EQ .. TRUE.) THEN

• Read in the fuel assembly archive identifiers for retrieval of isotopics.

READ(lS,10) ASSYID(l,l), ASSYID(2,1), ASSYID(3,1),

c ASSYID(4,1), ASSYID(S,l), ASSYID(6,1), ASSYID(7,1),

c ASSYID(8,1) 10 FORMAT(T1,AS,lX,AS,lX,AS,lX,AS,lX,AS,lX,AS,lX, cAS,lX,AS)

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: Boooodddd-o 1717-0210-00006 REV 00 Attachment I, Page 409 of 656 READ(15,20) ASSYID(2,2), ASSYID(3,2), ASSYID(4,2),

c ASSYID(5,2), ASSYID(6,2), ASSYID(7,2), ASSYID(8,2) 20 FORMAT (T1, 5X,"lX,A5, 1X,A5, 1X,A5, 1X,A5, lX, AS, lX, c A5,lX,A5)

READ(15,30) ASSYID(3,3), ASSYID(4,3), ASSYID(5,3),

c ASSYID(6,3), ASSYID(7,3), ASSYID(8,3) 30 FORMAT(T1,5X,lX,5X,lX,A5,lX,A5,lX,A5,lX,A5,lX, c A5,lX,A5)

READ(15,40) ASSYID(4,4), ASSYID(5,4), ASSYID(6,4),

c ASSYID(7,4), ASSYID(8,4) 40 FORMAT(T1,5X,lX,5X,lX,5X,lX,A5,lX,A5,lX,A5,lX,A5, c .lX,A5)

READ (15, 50) ASSYID(5,5), ASSYID(6,5), ASSYID(7,5) 50 FORMAT(T1,5X,lX,5X,lX,5X,lX,5X,lX,A5,lX,A5,lX,A5)

READ (15, 60) ASSYID(6,6), ASSYID(7,6) 60 FORMAT(T1,5X,lX,5X,lX,5X,lX,5X,lX,5X,lX,A5,lX,A5)

• Read in the number of different fuel assembly designs to be included

• in the MCNP calculation.

READ(15,*) NUMOFFADESIGNS

• Read in the fuel assembly relative design designations.

READ(15,*) DESNUM(l,l), DESNUM(2,1), DESNUM(3,1),

c DESNUM(4,1), DESNUM(5,1), DESNUM(6,1), DESNUM(7,1),

c DESNUM(8,1)

READ(15,*) DESNUM(2,2), DESNUM(3,2), DESNUM(4,2),

c DESNUM(5,2), DESNUM(6,2), DESNUM(7,2), DESNUM(8,2)

} READ(15,*) DESNUM(3,3), DESNUM(4,3), DESNUM(5,3),

c DESNUM(6,3), DESNUM(7,3), DESNUM(8,3)

READ(15,*) DESNUM(4,4), DESNUM(5,4), DESNUM(6,4),

c DESNUM(7,4), DESNUM(8,4)

READ(15,*) DESNUM(5,5), DESNUM(6,5), DESNUM(7,5)

READ(15,*) DESNUM(6,6), DESNUM(7,6)

DO 80 C==1,50 DO 70 R=1,50 IF (DESNUM(C,R).GT.NUMOFFADESIGNS) THEN WRITE(*,*) 'THE FUEL ASSEMBLY DESIGN NUMBER "

c 'SPECIFIED FOR THE ASSEMBLY IN RELATIVE POSITION '

c C,',',R,' IS LARGER THAN THE NUMBER OF FUEL "

c 'ASSEMBLY DESIGNS SPECIFIED.'

STOP ENDIF 70 CONTINUE 80 CONTINUE

• Read in the number of different insertion rod assembly bank designations and

• bank insertion heights for the statepoint calculation. The insertion height

• values should be the distances (em) between the bottom of the absorber material

• in the insertion rods and the bottom of the active fuel region.

READ(15,*) NUMOFBANKS DO 100 BANK==l,NUMOFBANKS READ(15,90) BANKID(BANK), BANKDES(BANK),

c BANKHEIGHT(BANK) 90 FORMAT(T1,I2,lX,A5,lX,F7.3)

Waste Package Operations Engineering Calculation

Title:

eRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-021 0-00006 REV 00 Attachment I, Page 410 of656 100 CONTINUE

• Read in the insertion rod assembly core layout.

READ(lS,*) BANKNUM(l,l), BANKNUM(2,1), BANKNUM(3,1),

c BANKNUM(4,1), BANKNUM(S,l), BANKNUM(6,1), BANKNUM(7,1),

c BANKNUM(S,l)

.READ(lS,*) BANKNUM(2,2), BANKNUM(3,2), BANKNUM(4,2),

c BANKNUM(S,2), BANKNUM(6,2), BANKNUM(7,2), BANKNUM(S,2)

READ(lS,*) BANKNUM(3,3), BANKNUM(4,3), BANKNUM(S,3),

c BANKNUM(6,3), BANKNUM(7,3), BANKNUM(S,3)

READ(lS,*) BANKNUM(4,4), BANKNUM(S,4), BANKNUM(6,4),

c BANKNUM(7,4), BANKNUM(B,4)

READ(lS,*) BANKNUM(S,S), BANKNUM(6,S), BANKNUM(7,S)

READ(lS,*) BANKNUM(6,6), BANKNUM(7,6)

• Read in initial enrichments.

READ(lS,*) ENRICHMENT (1, 1), ENRICHMENT(2,1),

c ENRICHMENT(3,1), ENRICHMENT (4, 1), ENRICHMENT(S,l),

c ENRICHMENT(6,1), ENRICHMENT(7,1), ENRICHMENT(S,l)

READ(lS~*) ENRICHMENT(2,2), ENRICHMENT(3,2),

c ENRICHMENT(4,2), ENRICHMENT(S,2), ENRICHMENT(6,2),

c ENRICHMENT (7, 2) , ENRICHMENT(S,2)

READ(lS,*) ENRICHMENT(3,3), ENRICHMENT(4,3),

c ENRICHMENT(S,3), ENRICHMENT (6, 3), ENRICHMENT(7,3),

c ENRICHMENT(S,3)

READ(lS,*) ENRICHMENT(4,4), ENRICHMENT(S,4),

c ENRICHMENT(6,4), ENRICHMENT(7,4), ENRICHMENT(S,4)

READ(lS,*) ENRICHMENT(S,S), ENRICHMENT(6,S),

c ENRICHMENT(7,S)

READ(lS,*) ENRICHMENT(6,6), ENRICHMENT (7, 6)

• Read in fuel status (fresh or burned).

READ (lS, 101) STAT(l,l), STAT(2,l),

c STAT(3,1), STAT(4,1), STAT(S,l),

c STAT(6,1), STAT(7,1), STAT(S,l) 101 FORMAT(T1,A1,lX,A1,lX,A1,lX,Al,lX,A1,lX,A1,lX,Al,lX,A1)

READ (IS, 102) STAT(2,2), STAT(3,2),

c STAT(4,2), STAT(S,2), STAT(6,2),

c STAT(7,2), STAT(B,2) 102 FORMAT(T3,A1,lX,Al,lX,A1,lX,A1,lX,A1,lX,Al,lX,A1)

READ(lS,103) STAT(3,3), STAT(4,3),

c STAT(S,3), STAT(6,3), STAT(7,3),

c STAT (S, 3) .

103 FORMAT(TS,A1,lX,A1,lX,A1,lX,A1,lX,Al,lX,A1)

READ(lS,104) STAT(4,4), STAT(S,4),

c STAT(6,4), STAT(7,4), STAT(B,4) 104 FORMAT(T7,A1,lX,Al,lX,Al,lX,A1,lX,A1)

READ(lS,lOS) STATeS,S), STAT(6,S),

c STAT (7, S) lOS FORMAT(T9,Al,lX,A1,lX,A1)

READ(lS,106) STAT(6,6), STAT (7, 6) 106 FORMAT(T11,Al,lX,A1)

ELSEIF (QUARTER.EQ .. TRUE.) THEN

• Read in the fuel assembly archive identifiers for retrieval of isotopics.

READ(lS,ll0) ASSYID(l,l), ASSYID(2,1), ASSYID(3,1),

c ASSYID(4,1), ASSYID(S,l), ASSYID(6,1), ASSYID(7,1),

Waste Package Operations Engineering Calculation

Title:

CRe Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 . Attachment I, Page 411 of 656 c ASSYID(B,l) 110 FORMAT(Tl,AS,lX,AS,lX,AS,lX,AS,lX,AS,lX,AS,lX, c AS,lX,AS)

READ(lS,120) ASSYID(1,2), ASSYID(2,2), ASSYID(3,2),

c ASSYID(4,2), ASSYID(S,2), ASSYID(6,2), ASSYID(7,2),

c ASSYID(B,2) 120 FORMAT(Tl,AS,lX,AS,lX,AS,lX,AS,lX,AS,lX,AS,lX, c AS,lX,AS)

READ(lS,130) ASSYID(1,3), ASSYID(2,3), ASSYID(3,3),

c ASSYID(4,3), ASSYID(S,3), ASSYID(6,3), ASSYID(7,3),

c ASSYID(B,3) 130 FORMAT(Tl,AS,lX,AS,lX,AS,lX,AS,lX,AS,lX,AS,lX, c AS,lX,AS)

READ(lS,140) ASSYID(1,4), ASSYID(2,4), ASSYID(3,4),

c ASSYID(4,4), ASSYID(S,4), ASSYID(6,4), ASSYID(7,4),

c ASSYID(B,4) 140 FORMAT(Tl,AS,lX,AS,lX,AS,lX,AS,lX,AS,lX,AS,lX,AS, c lX, AS)

READ(lS,lSO) ASSYID(l,S), ASSYID(2,S), ASSYID(3,S),

c ASSYID(4,S), ASSYID(S,S), ASSYID(6,S), ASSYID(7,S) lSO FORMAT(Tl,AS,lX,AS,lX,AS,lX,AS,lX,AS,lX,AS,lX,AS)

READ(lS,160) ASSYID(1,6), ASSYID(2,6), ASSYID(3,6),

c ASSYID(4,6), ASSYID(S,6), ASSYID(6,6), ASSYID(7,6) 160 FORMAT(Tl,AS,lX,AS,lX,AS,lX,AS,lX,AS,lX,AS,lX,AS)

READ (lS, 170) ASSYID(1,7), ASSYID(2,7), ASSYID(3,7),

c ASSYID(4,7), ASSYID(S,7), ASSYID(6,7) 170 FORMAT(Tl,AS,lX,AS,lX,AS,lX,AS,lX,AS,lX,AS)

READ(lS,lBO) ASSYID(l,B), ASSYID(2,B), ASSYID(3,8),

c ASSYID(4,8) 180 FORMAT(Tl,AS,lX,AS,lX,AS,lX,AS)

• Read in the number of different fuel assembly designs to be included

• in the MCNP calculation.

READ(lS,*) NUMOFFADESIGNS

• Read in the fuel assembly relative design designations.

READ(lS,*) DESNUM(l,l), DESNUM(2,l), DESNUM(3,1),

c DESNUM(4,1), DESNUM(S,l), DESNUM(6,1), DESNUM(7,1),

c DESNUM(8,l)

READ(lS,*) DESNUM(1,2), DESNUM(2,2), DESNUM(3,2),

c DESNUM(4,2), DESNUM(S,2), DESNUM(6,2), DESNUM(7,2),

c DESNUM(B,2)

READ(lS,*) DESNUM(1,3), DESNUM(2,3), DESNUM(3,3),

c DESNUM(4,3), DESNUM(S,3), DESNUM(6,3), DESNUM(7,3),

c DESNUM(8,3)

READ(lS,*) DESNUM(l,4), DESNUM(2,4), DESNUM(3,4),

c DESNUM(4,4), DESNUM(S,4), DESNUM(6,4), DESNUM(7,4),

c DESNUM(8,4)

READ(lS,*) DESNUM(l,S), DESNUM(2,S), DESNUM(3,S),

c DESNUM(4"S), DESNUM(S,S), DESNUM(6,S), DESNUM(7,S)

READ(lS,*) DESNUM(1,6), DESNUM(2,6), DESNUM(3,6),

c DESNUM(4,6), DESNUM(S,6), DESNUM(6,6), DESNUM(7,6)

READ(lS,*) DESNUM(1,7), DESNUM(2,7), DESNUM(3,7),

c DESNUM(4,7), DESNUM(S,7), DESNUM(6,7)

READ(lS,*) DESNUM(l,8), DESNUM(2,8), DESNUM(3,B),

c DESNUM(4,8)

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 412 of 656 DO 200 C=l,SO DO 190 R=l,SO IF (DESNUM(C,R).GT.NUMOFFADESIGNS) THEN WRITE (*, *) .'THE FUEL ASSEMBLY DESIGN NUMBER "

c 'SPECIFIED FOR THE ASSEMBLY IN RELATIVE POSITION' c C, ',',R,' IS LARGER THAN THE NUMBER OF FUEL' c 'ASSEMBLY DESIGNS SPECIFIED.'

STOP ENDIF 190 CONTINUE 200 CONTINUE

• Read in the number of different insertion rod assembly bank designations and

• bank insertion heights for the statepoint calculation. The insertion height

• values should be the distances (ern) between the bottom of the absorber material

• in the insertion rods and the bottom of the active fuel region.

READ(lS,*) NUMOFBANKS DO 220 BANK=l,NUMOFBANKS READ(15,210) BANKID(BANK), BANKDES(BANK),

c BANKHEIGHT(BANK) 210 FORMAT(T1,I2,lX,AS,lX,F7.3) 220 CONTINUE

• Read in the insertion rod assembly core layout.

j READ(lS,*) BANKNUM(l,l), BANKNUM(2,1), BANKNUM(3,1),

c BANKNUM(4,1), BANKNUM(S,l), BANKNUM(6,l), BANKNUM(7,l),

c BANKNUM(8,l)

READ(15,*) BANKNUM(1,2), BANKNUM(2,2), BANKNUM(3,2),

c BANKNUM(4,2), BANKNUM(5,2),BANKNUM(6,2), BANKNUM(7,2),

c BANKNUM(8,2)

READ(15,*) BANKNUM(1,3), BANKNUM(2,3), BANKNUM(3,3),

c BANKNUM(4,3), BANKNUM(5,3), BANKNUM(6,3), BANKNUM(7,3),

c BANKNUM (8,3)

READ(15,*) BANKNUM(1,4), BANKNUM(2,4), BANKNUM(3,4),

c BANKNUM(4,4), BANKNUM(S,4), BANKNUM(6,4),

c BANKNUM(7,4), BANKNUM(8,4)

READ(lS,*) BANKNUM(l,S), BANKNUM(2,S), BANKNUM(3,S),

c BANKNUM(4,5), BANKNUM(5,5), BANKNUM(6,5),

c BANKNUM(7,5)

READ(15,*) BANKNUM(1,6), BANKNUM(2,6), BANKNUM(3,6),

c BANKNUM(4,6), BANKNUM(5,6), BANKNUM(6,6), BANKNUM(7,6)

READ(15,*) BANKNUM(l,7), BANKNUM(2,7), BANKNUM(3,7),

c BANKNUM(4,7), BANKNUM(5,7), BANKNUM(6,7)

READ(15,*) BANKNUM(l,8), BANKNUM(2,8), BANKNUM(3,8),

c BANKNUM(4,8)

• Read in initial enrichments if it is a BOC or BOL case.

READ(15,*) ENRICHMENT(l,l), ENRICHMENT(2,1),

c ENRICHMENT(3,l), ENRICHMENT(4,l), ENRICHMENT (5, 1),

c ENRICHMENT(6,l), ENRICHMENT(7,l), ENRICHMENT (8, 1)

READ(15,*) ENRICHMENT(l,2), ENRICHMENT(2,2),

c ENRICHMENT(3,2)~ ENRICHMENT(4,2), ENRICHMENT(S,2),

c ENRICHMENT(6,2), ENRICHMENT(7,2), ENRICHMENT (8, 2)

READ(15,*) ENRICHMENT(1,3), ENRICHMENT(2,3),

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculatibhs for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 413 of656 c ENRICHMENT(3,3), ENRICHMENT(4,3), ENRICHMENT(5,3),

c ENRICHMENT (6, 3), ENRICHMENT (7, 3), ENRICHMENT (8, 3)

READ(15,*) ENRICHMENT(1,4), ENRICHMENT(2,4),

c ENRICHMENT(3,4), ENRICHMENT(4,4), ENRICHMENT(5,4),

c ENRICHMENT(6,4), ENRICHMENT(7,4), ENRICHMENT (8, 4)

READ(15,*) ENRICHMENT(1,5), ENRICHMENT(2,5),

c ENRICHMENT(3,5), ENRICHMENT(4,5), ENRICHMENT(5,5),

c ENRICHMENT(6,5), ENRICHMENT (7, 5)

READ(15,*) ENRICHMENT(1,6), ENRICHMENT(2,6),

c ENRICHMENT(3,6), ENRICHMENT(4,6), ENRICHMENT(5,6),

c ENRICHMENT(6,6), ENRICHMENT (7, 6)

READ(15,*) ENRICHMENT(1,7), ENRICHMENT(2,7),

c ENRICHMENT(3,7), ENRICHMENT(4,7), ENRICHMENT (5, 7),

c ENRICHMENT (6, 7)

READ(15,*) ENRICHMENT (1, 8), ENRICHMENT(2,8),

C ENRICHMENT(3,8), ENRICHMENT (4, 8)

• Read in fuel status (fresh or burned).

READ(15,221) STAT(l,l), STAT(2,1),

c STAT(3,1), STAT(4,1), STAT(5,1),

c STAT (6,1), STAT (7,1), STAT (8,1) 221 FORMAT(T1,A1,lX,A1,lX,A1,lX,A1,lX,Al,lX,A1,lX,A1,lX,Al)

READ(15,222) STAT(1,2), STAT(2,2),

c STAT(3,2), STAT(4,2), STAT(5,2),

c STAT(6,2), STAT(7,2), STAT(8,2) 222 FORMAT(Tl,Al,lX,Al,lX,A1,lX,A1,lX,Al,lX,A1,lX,A1,lX,A1)

READ(15,223) STAT(1,3), STAT(2,3),

c STAT(3,3), STAT(4,3), STAT(5,~),

c STAT(6,3), STAT(7,3), STAT(8,3) 223 FORMAT(Tl,Al,lX,A1,lX,A1,lX,A1,lX,A1,lX,Al,lX,A1,lX,Al)

READ(15,224) STAT(1,4), STAT(2,4),

c STAT(3,4), STAT(4,4), STAT(5,4),

c STAT(6,4), STAT(7,4), STAT(8,4) 224 FORMAT(Tl,A1,lX,A1,lX,Al,lX,A1,lX,A1,lX,A1,lX,A1,lX,Al)

READ (15, 225) STAT(1,5),STAT(2,5),

c STAT(3,5), STAT(4,5), STAT(5,5),

c STAT(6,5), STAT(7,5) 225 FORMAT(Tl,Al,lX,A1,lX,Al,lX,Al,lX,Al,lX,Al,lX,A1)

READ(15,226) STAT(1,6), STAT(2,6),

c STAT(3,6), STAT(4,6), STAT(5,6),

c STAT(6,6), STAT(7,6) 226 FORMAT(T1,A1,lX,Al,lX,A1,lX,Al,lX,A1,lX,Al,lX,Al)

READ(15,227) STAT(1,7), STAT(2,7),

c STAT(3,7), STAT(4,7), STAT(5,7), STAT(6,7) 227 FORMAT(Tl,Al,lX,Al,lX,Al,lX,Al,lX,A1,lX,A1)

READ(15,228) STAT(1,8); STAT(2,8),

c STAT(3,8), STAT(4,8) 228 FORMAT(T1,Al,lX,A1,lX,A1,lX,A1)

ELSEIF (FULL.EQ .. TRUE.) THEN

• Read in the fuel assembly arcRive identifiers for retrieval of isotopics.

READ(15,230) ASSYID(5,1), ASSYID(6,1), ASSYID(7,1),

c ASSYID(8,1), ASSYID(9,1), ASSYID(10,1), ASSYID(ll,l)'

230 FORMAT(T25,A5,lX,A5,lX,A5,lX,A5,lX,A5,lX,A5,lX,A5)

READ(15,240) ASSYID(3,2), ASSYID(4,2), ASSYID(5,2),

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 414 of656 c ASSYID.(6,2), ASSYID(7,2), ASSYID(8,2), ASSYID(9,2),

c ASSYID(lO,2)~ ASSYID(1l,2), ASSYID(12,2), ASSYID(13,2) 240 FORMAT(T13,AS,lX,A5,lX,A5,lX,A5,IX,A5,lX,A5,1X, c A5,lX,AS,lX,A5,1X,A5,IX,A5,lX,A5,lX,A5)

READ(15,2S0) ASSYID(2,3), ASSYID(3,3), ASSYID(4,3),

c ASSYID(5,3), ASSYID(6,3), ASSYID(7,3), ASSYID(8,3),

c ASSYID(9,3), ASSYID(10,3), ASSYID(ll,3), ASSYID(12,3),

c ASSYID(13,3), ASSYID(14,3) 250 FORMAT(T7,A5,lX,AS,1X,A5,lX,A5,lX,A5,lX,A5,lX, c A5,IX,AS,lX,A5,1X,A5,lX,A5,lX,AS,lX,A5)

READ(15,260) ASSYID(2,4), ASSYID(3,4), ASSYID(4,4),

c ASSYID(5,4), ASSYID(6,4), ASSYID(7,4), ASSYID(8,4),

c ASSYID(9,4), ASSYID(10,4), ASSYID(11,4), ASSYID(12,4),

c ASSYID(13,4), ASSYID(14,4) 260 FORMAT(T7,A5,lX,AS,lX,A5,lX,A5,1X,A5,lX,A5,lX, c A5,1X,AS,lX,A5,lX,A5,lX,A5,lX,AS,lX,AS)

READ(lS,270)ASSYID(1,5), ASSYID(2,S), ASSYID(3,S),

c ASSYID(4,5), ASSYID(5,5), ASSYID(6,5), ASSYID(7,5),

c ASSYID(8,S), ASSYID(9,S), ASSYID(10,5), ASSYID(ll,5),

c ASSYID(12,S), ASSYID(13,5), ASSYID(14,5), ASSYID(15,5) 270 FORMAT(Tl,A5,1X,A5,lX,AS,lX,A5,1X,A5,lX,A5,lX,A5,lX, c A5,lX,A5,lX,AS,lX,A5,1X,A5,lX,AS,lX,AS,lX,A5)

READ(lS,280) ASSYID(1,6), ASSYID(2,6), ASSYID(3,6),

c ASSYID(4,6), ASSYID(S,6), ASSYID(6,6), ASSYID(7,6),

c ASSYID(8,6), ASSYID(9,6), ASSYID(10,6), ASSYID(ll,6),

.~

c ASSYID(12,6), ASSYID(13,6), ASSYID(14,6), ASSYID(15,6) 280 FORMAT(T1,AS,lX,A5,lX,A5,lX,A5,lX,A5,1X,A5,lX,A5,lX, c AS, lX,A5, lX,A5, lX,AS,lX,A5,1X,A5, lX,A5,lX,AS)

READ (15, 290) ASSYID(l,7), ASSYID(2,7), ASSYID(3,7),

c ASSYID(4,7), ASSYID(S,7), ASSYID(6,7), ASSYID(7,7),

c ASSYID(8,7), ASSYID(9,7), ASSYID(10,7), ASSYID(11,7),

c ASSYID(12,7), ASSYID(13,7), ASSYID(14,7), ASSYID(lS,7) 290 FORMAT(Tl,A5,lX,A5,1X,A5,lX,A5,lX,AS,lX,A5,lX,A5,lX, c AS,lX,A5,lX,A5,1X,A5,lX,A5,lX,A5,1X,A5,lX,A5)

READ(15,300) ASSYID(l,8), ASSYID(2,8), ASSYID(3,8),

c ASSYID(4,8), ASSYID(5,8), ASSYID(6,8), ASSYID(7,8),

c ASSYID(8,8), ASSYID(9,8), ASSYID(10,8), ASSYID(ll,8),

c ASSYID(12,8), ASSYID(13,8), ASSYID(14,8), ASSYID(15,8) 300 FORMAT (Tl,A5, lX,A5, lX,A5, lX,A5,lX,AS, lX,A5,lX,A5, IX, c AS, lX,A5, lX,A5, lX,A5,lX,A5,lX,AS,lX,A5, 1X,A5)

READ(15,310) ASSYID(1,9), ASSYID(2,9), ASSYID(3,9),

c ASSYID(4,9), ASSYID(5,9), ASSYID(6,9), ASSYID(7,9),

c ASSYID(8,9), ASSYID(9,9), ASSYID(lO,9), ASSYID(ll,9),

c ASSYID(12,9), ASSYID(13,9), ASSYID(14,9), ASSYID(15,9) 310 FORMAT(Tl,A5,lX,A5,lX,AS,lX,A5,lX,A5,lX,A5,IX,A5,lX, c A5,IX,A5,IX,A5,lX,A5,IX,A5,lX,A5,lX,A5,lX,A5)

READ(15,320) ASSYID(l,lO), ASSYID(2,10), ASSYID(3,lO),

c ASSYID(4,10), ASSYID(5,10l, ASSYID(6,lO), ASSYID(7,10),

c ASSYID(8,10), ASSYID(9,10), ASSYID(lO,lO), ASSYID(ll,10),

c ASSYID (12,10),' ASSYID (13,10), ASSYID (14,10), ASSYID (15,10) 320 FORMAT(Tl,A5,lX,A5,IX,A5,IX,A5,lX,AS,IX,A5,IX,A5,lX, C c A5,lX,A5,lX,A5,lX,A5,lX,A5,lX,A5,lX,A5,lX,A5)

READ(15,330) ASSYID(l,ll), ASSYID(2,11), ASSYID(3,11),

c ASSYID(4,11), ASSYID(S,ll), ASSYID(6,11), ASSYID(7,11),

Waste Package Operations Engineering Calculation Title; CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier; BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 415 of 656 c ASSYID(8,llj, ASSYID(9,ll), ASSYID(10,11), ASSYID(ll,ll),

c ASSYID(12,11), ASSYID(13,ll), ASSYID(14,11), ASSYID(15,ll) 330 FORMAT(T1,A5,lX,A5,lX,A5,lX,A5,lX,A5,lX,A5,lX,A5,lX, c A5,lX,A5,lX,A5,lX,A5,lX,A5,lX,A5,lX,A5,lX,A5)

READ (15, 340) ASSYID(2,12), ASSYID(3,12), ASSYID(4,12),

c ASSYID(5,12), ASSYID(6,12), ASSYID(7,12), ASSYID(8,12),

c ASSYID(9,12), ASSYID(10,12), ASSYID(11,12), ASSYID(12,12),

c ASSYID(13,12), ASSYID(14,12) 340 FORMAT(T7,A5,lX,A5,lX,A5,lX,A5,lX,A5,lX,A5,lX,A5,lX, c A5,lX,A5,lX,A5,lX,A5,lX,A5,lX,A5)

READ (15, 350) ASSYID(2,13), ASSYID(3,13), ASSYID(4,13),

c ASSYID(5,13), ASSYID(6,13), ASSYID(7,13), 'ASSYID(8,13),

c ASSYID(9,13), ASSYID(lO,13), ASSYID(11,13), ASSYID(12,13),

c ASSYID(13,13), ASSYID(14,13) 350 FORMAT(T7,A5,lX,A5,lX,A5,lX,A5,lX,A5,lX,A5,lX, c A5,lX,A5,lX,A5,lX,A5,lX,A5,lX,A5,lX,A5)

READ (15, 360) ASSYID(3,14), ASSYID(4,14), ASSYID(5,14),

c ASSYID(6,14), ASSYID(7,14), ASSYID(8,14), ASSYID(9,14),

c ASSYID(10,14), ASSYID(1l,14), ASSYID(12,1.4), ASSYID(13,14) 360 FORMAT(T13,A5,lX,A5,lX,A5,lX,A5,lX,A5,lX,A5,lX, c A5,lX,A5,lX,A5,lX,A5,lX,A5)

READ(15,370) ASSYID(5,15), ASSYID(6,15), ASSYID(7,15),

c ASSYID(8,15), ASSYID(9,15), ASSYID(10,15), ASSYID(1l,15) 370 FORMAT(T25,A5,lX,A5,lX,A5,lX,A5,lX,A5,lX,A5,lX,A5)

• Read in the number of different fuel assembly designs to be included

)

• in the MCNP calculation.

READ(15,*) NUMOFFADESIGNS

• Read in the fuel assembly relative design designations.

READ(15,*) DESNUM(S,l), DESNUM(6,1), DESNUM(7,1),

c DESNUM(8,l), DESNUM(9,1), DESNUM(lO,l), DESNUM(ll,l)

READ(15,*) DESNUM(3,2), DESNUM(4,2), DESNUM(5,2),

c DESNUM(6,2), DESNUM(7,2), DESNUM(8,2), DESNUM(9,2),

c DESNUM(lO,2), DESNUM(11,2), DESNUM(12,2), DESNUM(13,2)

READ(15,*) DESNUM(2,3), DESNUM(3,3), DESNUM(4,3),

c DESNUM(5,3), DESNUM(6,3), DESNUM(7,3), DESNUM(8,3),

c DESNUM(9,3), DESNUM(10,3), DESNUM(1l,3),. DESNUM(12,3),

c DESNUM(13,3), DESNUM(14,3)

READ(15,*) DESNUM(2,4), DESNUM(3,4), DESNUM(4,4),

c DESNUM(5,4), DESNUM(6,4), DESNUM(7,4), DESNUM(8,4),

c DESNUM(9,4), DESNUM(10,4), DESNUM(11,4), DESNUM(12,4),

c DESNUM(13,4), DESNUM(14,4)

READ(15,*) DESNUM(1,5), DESNUM(2,5), DESNUM(3,5),

c DESNUM(4,5), DESNUM(5,5), DESNUM(6,5), DESNUM(7,5),

c DESNUM(8,5), DESNUM(9,5), DESNUM(10,5), DESNUM(ll,S),

c DESNUM(12,5), DESNUM(13,5), DESNUM(14,S), DESNUM(15,5)

READ(15,*) DESNUM(1,6), DESNUM(2,6), DESNUM(3,6),

c DESNUM(4,6), DESNUM(5,6), DESNUM(6,6), DESNUM(7,6),

c DESNUM(8,6), DESNUM(9,6), DESNUM(10,6), DESNUM(11,6),

c DESNUM(12,6), DESNUM(13,6), DESNUM(14,6), DESNUM(15,6)

READ(15,*) DESNUM(1,7), DESNUM(2,7), DESNUM(3,7),

c DESNUM(4,7), DESNUM(5,7), DESNUM(6,7), DESNUM(7,7),

c DESNUM(8,7), DESNUM(9,7), DESNUM(10,7), DESNUM(11,7),

c DESNUM(12,7), DESNUM(13,7), DESNUM(14,7), DESNUM(15,7)

READ(15,*) DESNUM(1,8), DESNUM(2,8), DESNUM(3,8),

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: Boooooood-o 1717-0210-00006 REV 00 Attachment I, Page 416 of 656 c DESNUM(4,8), DESNUM(5,8), DESNUM(6,8), DESNUM(7,8),

c DESNUM(8,8), DESNUM(9,8), DESNUM(10,8), DESNUM(11,8),

c DESNUM(12,8), DESNUM(13,8), DESNUM(14,8), DESNUM(15,8)

READ(15,*) DESNUM(1,9), DESNUM(2,9), DESNUM(3,9),

c DESNUM(4,9), DESNUM(5,9), DESNUM(6,9), DESNUM(7,9),

c DESNUM(8,9), DESNUM(9,9), DESNUM(10,9), DESNUM(11,9),

c DESNUM(12,9), DESNUM(13,9), DESNUM(14,9), DESNUM(15,9)

READ(15,*) DESNUM(l,lO), DESNUM(2,10), DESNUM(3,10),

c DESNUM(4,10), DESNUM(5,10), DESNUM(6,10), DESNUM(7,10),

c DESNUM(8,10), DESNUM(9,10), DESNUM(lO,lO), DESNUM(ll,lO),

c DESNUM(12,10), DESNUM(13,10), DESNUM(14,10), DESNUM(15,10)

READ(15,*) DESNUM(l,ll), DESNUM(2,ll), DESNUM(3,1l),

c DESNUM(4,11), DESNUM(5,11), DESNUM(6,11), DESNUM(7,11),

c DESNUM(8,11), DESNUM(9,11), DESNUM(lO,ll), DESNUM(ll,ll),

c DESNUM(12,11), DESNUM(13,ll), DESNUM(14,11), DESNUM(15,ll)

READ(15,*) DESNUM(2,12), DESNUM(3,12), DESNUM(4,12),

c DESNUM(5,12), DESNUM(6,12), DESNUM(7,12), DESNUM(8,12),

c DESNUM(9,12), DESNUM(10,12), DESNUM(11,12), DESNUM(12,12),

c DESNUM(13,12), DESNUM(14,12)

READ(15,*) DESNUM(2,13), DESNUM(3,13), DESNUM(4,13),

c DESNUM(5,13), DESNUM(6,13), DESNUM(7,13), DESNUM(8,13),

c DESNUM(9,13), DESNUM(10,13), DESNUM(11,13), DESNUM(12,13),

c DESNUM(13,13), DESNUM(14,13)

READ(15,*) DESNUM(3,14), DESNUM(4,14), DESNUM(5,14),

c DESNUM (6,14), DESNUM (7',14), DESNUM (8,14), DESNUM (9,14) ,

c DESNUM(10,14), DESNUM(11,14), DESNUM(12,14), DESNUM(13,14)

READ(15,*) DESNUM(5,15), DESNUM(6,15), DESNUM(7,15),

c DESNUM(8,15), DESNUM(9,15), DESNUM(10,15), DESNUM(11,15)

DO 390 C=1,50 DO 380 R=1,50 IF (DESNUM(C,R) .GT.NUMOFFADESIGNS) THEN WRITE(*,*) 'THE FUEL ASSEMBLY DESIGN NUMBER' c 'SPECIFIED FOR THE ASSEMBLY IN POSITION "

c C, ',',R,' IS LARGER THAN THE NUMBER OF FUEL ','

c 'ASSEMBLY DESIGNS SPECIFIED.'

STOP ENDIF 380 CONTINUE 390 CONTINUE

• Read in the number of different insertion rod assembly bank designations and

• bank insertion heights for the statepoint calculation. The insertion height

• values should be the distances (em) between the bottom of the absorber material

• in the insertion rods and the bottom of the active fuel region.

READ(15,*) NUMOFBANKS DO 392 BANK=l,NUMOFBANKS READ(15,391) BANKID(BANK), BANKDES(BANK),

c BANKHEIGHT(BANK) 391 FORMAT(Tl,I2,lX,A5,lX,F7.3) 392 CONTINUE

• Read in the insertion rod assembly core layout.

READ(15,*) BANKNUM(5,1), BANKNUM(6,1), BANKNUM(7,1),

Waste Package Oper~tions Engineering Calculation

Title:

. eRe Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 417 of 656 c BANKNUM(8,l), BANKNUM(9,1), BANKNUM(10,1), BANKNUM(ll,l)

READ(15,*) BANKNUM(3,2), BANKNUM(4,2), BANKNUM(5,2),

c BANKNUM(6,2), BANKNUM(7,2), BANKNUM(8,2), BANKNUM(9,2),

c BANKNUM(10,2), BANKNUM(ll,2), BANKNUM(12,2), BANKNUM(13,2)

READ(15,*) BANKNUM(2,3), BANKNUM(3,3), BANKNUM(4,3),

c BANKNUM(5,3), BANKNUM(6,3), BANKNUM(7,3), BANKNUM(8,3),

c BANKNUM(9,3), BANKNUM(10,3), BANKNUM(ll,3), BANKNUM(12,3),

c BANKNUM(13,3), BANKNUM(14,3)

READ(15,*) BANKNUM(2,4), BANKNUM(3,4), BANKNUM(4,4),

c BANKNUM(5,4), BANKNUM(6,4), BANKNUM(7,4), BANKNUM(8,4),

c BANKNUM(9,4), BANKNUM(10,4), BANKNUM(11,4), BANKNUM(12,4),

c BANKNUM(13,4), BANKNUM(14,4)

READ(15,*) BANKNUM(l,5), BANKNUM(2,5), BANKNUM(3,5),

c BANKNUM(4,5), BANKNUM(5,5), BANKNUM(6,5), BANKNUM(7,5),

c BANKNUM(8,5), BANKNUM(9,5), BANKNUM(lO,5), BANKNUM(ll,5),

c BANKNUM(12,5), BANKNUM(13,5), BANKNUM(14,5), BANKNUM(15,5)

READ(15,*) BANKNUM(l,6), BANKNUM(2,6), BANKNUM(3,6),

c BANKNUM(4,6), BANKNUM(5,6); BANKNUM(6,6), BANKNUM(7,6),

c BANKNUM(8,6), BANKNUM(9,6), BANKNUM(10,6), BANKNUM(11,6),

c BANKNUM(12,6), BANKNUM(13,6), BANKNUM(14,6), BANKNUM(15,6)

READ(15,*) BANKNUM(l,7}, BANKNUM(2,7), BANKNUM(3,7),

c BANKNUM(4,7), BANKNUM(5,7), BANKNUM(6,7), BANKNUM(7,7),

c BANKNUM(8,7), BANKNUM(9,7), BANKNUM(lO,7), BANKNUM(ll,7),

c BANKNUM(12,7), BANKNUM(13,7), BANKNUM(14,7), BANKNUM(15,7)

READ(15,*) BANKNUM(l,8), BANKNUM(2,8), BANKNUM(3,8),

c BANKNUM(4,8), BANKNUM(5,8), BANKNUM(6,8), BANKNUM(7,8),

c BANKNUM(8,8), BANKNUM(9,8), BANKNUM(10,8), BANKNUM(11,8),

c BANKNUM(12,8), BANKNUM(13,8), BANKNUM(14,8), BANKNUM(15,8)

READ(15,*) BANKNUM(1,9), BANKNUM(2,9), BANKNUM(3,9),

c BANKNUM(4,9), BANKNUM(5,9), BANKNUM(6,9), BANKNUM(7,9),

c BANKNUM(8,9), BANKNUM(9,9), BANKNUM(10,9), BANKNUM(11,9),

c BANKNUM(12,9), BANKNUM(13,9), BANKNUM(14,9), BANKNUM(15,9)

READ(15,*) BANKNUM(l,10), BANKNUM(2,lO), BANKNUM(3,lO),

c BANKNUM(4,lO), BANKNUM(5,lO), BANKNUM(6,10), BANKNUM(7,lO),

c BANKNUM(8,10), BANKNUM(9,10), BANKNUM(10,10),

c BANKNUM(11,10), BANKNUM(12,10), BANKNUM(13,10),

c BANKNUM(14,lO), BANKNUM(15,lO)

READ(15,*) BANKNUM(l,ll), BANKNUM(2,11), BANKNUM(3,11),

c BANKNUM(4,11), BANKNUM(5,11), BANKNUM(6,11), BANKNUM(7,11),

c BANKNUM(8,11), BANKNUM(9,11), BANKNUM(10,11),

c BANKNUM(ll,ll), BANKNUM(12,11), BANKNUM(13,11),

c BANKNUM(14,11), BANKNUM(15,11)

READ(15,*) BANKNUM(2,12), BANKNUM(3,12), BANKNUM(4,12),

c BANKNUM(5,12), BANKNUM(6,12), BANKNUM(7,12), BANKNUM(8,12),

c BANKNUM(9,12), BANKNUM(10,12), BANKNUM(11,12),

c BANKNUM(12,12), BANKNUM(13,12), BANKNUM(14,12)

READ(15,*) BANKNUM(2,13), BANKNUM(3,13), BANKNUM(4,13),

c BANKNUM(5,13), BANKNUM(6,13), BANKNUM(7,13), BANKNUM(8,13),

c BANKNUM(9,13), BANKNUM(10,13), BANKNUM(11,13),

c BANKNUM(12,13), BANKNUM(13,13), BANKNUM(14,13)

READ(15,*) BANKNUM(3,14), BANKNUM(4,14), BANKNUM(5,14),

c BANKNUM(6,14), BANKNUM(7,14), BANKNUM(8,14), BANKNUM(9,14),

c BANKNUM(lO,14), BANKNUM(ll,14), BANKNUM(12,14),

c BANKNUM(13,14)

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 418 of 656 READ(15,*) BANKNUM(5,15), BANKNUM(6,15), BANKNUM(7,15),

c BANKNUM(S,15), BANKNUM(9,15), BANKNUM(10,15),

c BANKNUM (11,15)

• Read in initial enrichments if it is a BOC or BOL case.

READ(15,*) ENRICHMENT(5,1), ENRICHMENT(6,1),

c "ENRICHMENT(7,1), ENRICHMENT(S,l), ENRICHMENT(9,1),

c ENRICHMENT(lO,l), ENRICHMENT (11, 1)

READ(15,*) ENRICHMENT(3,2), ENRICHMENT(4,2),

c ENRICHMENT(5,2), ENRICHMENT(6,2), ENRICHMENT(7,2),

c ENRICHMENT(S,2), ENRICHMENT(9,2), ENRICHMENT(10,2),

c ENRICHMENT(11,2), ENRICHMENT(12,2), ENRICHMENT (13, 2)

READ(15,*) ENRICHMENT(2,3), ENRICHMENT(3,3),

c ENRICHMENT(4,3), ENRICHMENT(5,3), ENRICHMENT(6,3),

c ENRICHMENT(7,3), ENRICHMENT(S,3), ENRICHMENT(9,3),

c ENRICHMENT(10,3), ENRICHMENT(11,3), ENRICHMENT(12,3),

c ENRICHMENT (-13, 3), ENRICHMENT (14,3)

READ(15,*) ENRICHMENT(2,4),

c ENRICHMENT (3, 4), ENRICHMENT(4,4), ENRICHMENT(5,4),

c ENRICHMENT(6,4), ENRICHMENT(7,4), ENRICHMENT(S,4),

c ENRICHMENT(9,4), ENRICHMENT(10,4), ENRICHMENT(11,4),

c ENRICHMENT(12,4), ENRICHMENT(13,4), ENRICHMENT (14, 4)

READ(15,*) ENRICHMENT(1,5), ENRICHMENT(2,5),

c ENRICHMENT(3,5),

c ENRICHMENT(4,5), ENRICHMENT(5,5), ENRICHMENT(6,5),

C ENRICHMENT(7,5), ENRICHMENT(S,5), ENRICHMENT(9,5),

t:

C ENRICHMENT(lO,5), ENRICHMENT(11,5), ENRICHMENT(12,5),

J c ENRICHMENT(13,5), ENRICHMENT(14,5), ENRICHMENT (15, 5)

READ(15,*) ENRICHMENT(1,6), ENRICHMENT(2,6),

c ENRICHMENT (3, 6), ENRICHMENT (4, 6), ENRICHMENT(5,6),

c ENRICHMENT(6,6), ENRICHMENT (7, 6), ENRICHMENT(S,6),

c ENRICHMENT(9,6), ENRICHMENT(10,6), ENRICHMENT(11,6),

c ENRICHMENT(12,6), ENRICHMENT(13,6), ENRICHMENT(14,6),

c ENRICHMENT (15, 6)

READ(15,*) ENRICHMENT(1,7), ENRICHMENT(2,7),

c ENRICHMENT(3,7), ENRICHMENT(4,7), ENRICHMENT(5,7),

c ENRICHMENT(6,7), ENRICHMENT(7,7), ENRICHMENT(S,7),

c ENRICHMENT(9,7), ENRICHMENT(10,7), ENRICHMENT(11,7),"

c ENRICHMENT(12,7), ENRICHMENT(13,7), ENRICHMENT(14,7),

c ENRICHMENT (15,7) .

READ(15,*) ENRICHMENT(l,S), ENRICHMENT(2,S),

c ENRICHMENT(3,S), ENRICHMENT(4,S), ENRICHMENT(5,S),

c ENRICHMENT(6,S), ENRICHMENT(7,S), ENRICHMENT(S,S),

c ENRICHMENT(9,S), ENRICHMENT(lO,S), ENRICHMENT(ll,S),

c ENRICHMENT(12,S), ENRICHMENT(13,S), ENRICHMENT(14,S),

c ENRICHMENT (15,S)

READ(15,*) ENRICHMENT(1,9), ENRICHMENT(2,9),

c ENRICHMENT (3, 9), ENRICHMENT (4, 9), ENRICHMENT(5,9),

c ENRICHMENT(6,9), ENRICHMENT (7, 9), ENRICHMENT(S,9),

c ENRICHMENT(9,9), ENRICHMENT(10,9), ENRICHMENT (11, 9),

c ENRICHMENT(12,9), ENRICHMENT(13,9), ENRICHMENT(14,9),

c ENRICHMENT (15, 9)

READ(15,*) ENRICHMENT(l,lO), ENRICHMENT(2,10),

c ENRICHMENT (3, 10), ENRICHMENT(4,10), ENRICHMENT(5,10),

c ENRICHMENT (6, 10), ENRICHMENT (7, 10), ENRICHMENT(S,lO),

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 419 of 656 c ENRICHMENT(9,lO), ENRICHMENT(lO,lO), ENRICHMENT(ll,lO),

c ENRICHMENT(l2,lO), ENRICHMENT(l3,lO), ENRICHMENT(l4,lO),

c ENRICHMENT(l5,lO)

READ(l5,*) ENRICHMENT (I, II), ENRICHMENT(2,ll),

c ENRICHMENT(3,ll),

c ENRICHMENT(4,ll), ENRICHMENT(S,II), ENRICHMENT(6,ll),

c ENRICHMENT(7,ll), ENRICHMENT (8, II), ENRICHMENT (9, II),

c ENRICHMENT(IO,ll), ENRICHMENT(ll,ll), ENRICHMENT(l2,ll),

c ENRICHMENT(13,il), ENRICHMENT(14,ll), ENRICHMENT(IS,ll)

READ(l5,*) ENRICHMENT(2,l2), ENRICHMENT(3,l2),

c ENRICHMENT(4,12), ENRICHMENT(S,12), ENRICHMENT(6,12),

c ENRICHMENT (7, 12), ENRICHMENT(8,12), ENRICHMENT(9,12),

c ENRICHMENT(10,12), ENRICHMENT(11,12), ENRICHMENT(12,12),

c ENRICHMENT(13,12), ENRICHMENT(14,12)

READ(IS,*) ENRICHMENT(2,13), ENRICHMENT(3,13),

c ENRICHMENT (4, 13),

c ENRICHMENT(S,l3), ENRICHMENT(6,13), ENRICHMENT(7,13),

c ENRICHMENT(8,13), ENRICHMENT(9,13), ENRICHMENT(IO,13),

c ENRICHMENT(11,13), ENRICHMENT(12,13),

c ENRICHMENT(13,l3), ENRICHMENT (14, 13)

READ(lS,*) ENRICHMENT(3,14), ENRICHMENT(4,14),

c ENRICHMENT(S,14),

c ENRICHMENT(6,14), ENRICHMENT(7,14), ENRICHMENT(8,l4),

c ENRICHMENT(9,14), ENRICHMENT(10,14), ENRICHMENT(11,14),

c ENRICHMENT(12,14), ENRICHMENT(13,14) j READ(lS,*) ENRICHMENT(S,lS), ENRICHMENT(6,lS),

c ENRICHMENT(7,lS), ENRICHMENT(8,IS), ENRICHMENT(9,lS),

c ENRICHMENT(IO,lS), ENRICHMENT (Il, IS)

• Read ~n fuel status (fresh or burned) .

READ(IS,393) STAT(S,I), STAT(6,1), STAT(7,1),

c STAT(8,1), STAT(9,1), STATClO,I), STAT(ll,l) 3'93 FORMAT(T9,AI,IX,AI,IX,AI,IX,AI,IX,AI,IX,AI, c IX, AI)

READ(lS,394) STAT(3,2), STAT(4,2), STAT(S,2),

c STAT(6,2), STAT(7,2), STAT(8,2), STATC9,2),

c STAT(IO,2), STAT(II,2), STAT(12,2), STAT(13,2) 394 FORMAT(T5,AI,lX,AI,IX,Al,IX,AI,IX,AI,lX,AI,lX, c AI,IX,AI,IX,AI,lX,Al,IX,Al)

READ(l5,39S) STAT(2,3), STAT(3,3), STAT(4,3),

c STAT(S,3), STAT(6,3), STAT(7,3), STAT(8,3),

c STAT(9,3), STAT(lO,3), STAT(11,3), STATCI2,3),

c STAT(13,3), STAT(l4,3) 39S FORMAT(T3,Al,lX,AI,IX,Al,IX,AI,lX,Al,IX,AI,lX, c AI,IX,AI,IX,Al,IX,Al,lX,Al,IX,Al,lX,Al)

READ(IS,396) STAT(2,4), STAT(3,4), STAT(4,4),

c STAT(S,4), STAT(6,4), STAT(7,4), STAT(8,4),

c STAT(9,4), STAT(IO,4), STAT(ll,4), STAT(l2,4),

c STAT(l3,4), STAT(14,4) 396 FORMAT(T3,Al,lX,AI,lX,Al,lX,Al,IX,Al,lX,Al,lX,AI, c IX,AI,lX,AI,lX,Al,IX,Al,IX,Al,lX,Al)

READ(lS,397) STAT(l,S), STAT(2,S), STAT(3,S),

c STAT(4,5), STAT(5,S), STAT(6,5), STAT(7,S),

c STAT(8,5), STAT~9,5), STAT(lO,5), STAT(ll,5),

c STAT(12,5), STAT(l3,5), STAT(l4,5), STAT(15,S)

Waste Package Operations ,Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-021 0-00006 REV 00 Attachment I, Page 420 of 656 397 FORMAT(Tl,Al,lX,Al,lX,Al,lX,Al,lX,Al,lX,Al,lX,Al, c lX,Al,lX,Al,lX,Al,lX,Al,lX,Al,lX,Al,lX,Al,lX,Al)

READ (l5, 398) STAT(l,6), STAT(2,6), STAT(3,6),

c STAT(4,6), STAT(5,6), STAT(6,6), STAT(7,6),

c STAT(8,6), STAT(9,6), STAT(lO,6), STAT(11,6),

c STAT(l2,6), STAT(l3,6), STAT(l4,6), STAT(l5,6) 398 FORMAT(Tl,Al,lX,Al,lX,Al,lX,Al,lX,Al,lX,Al,lX,Al, c lX,Al,lX,Al,lX,Al,lX,Al,lX,Al,lX,Al,lX,Al,lX,Al)

READ(l5,399) STAT(l,7), STAT(2,7), STAT(3,7),

c STAT(4,7), STAT(S,7), STAT(6,7), STAT(7,7),

c STAT(8,7), STAT(9,7), STAT(lO,7), STAT(11,7),

c STAT(l2,7), STAT(l3,7), STAT(l4,7), STAT(l5,7) 399 FORMAT(Tl,Al,lX,Al,lX,Al,lX,Al,lX,Al,lX,Al,lX,Al, c lX,Al,lX,Al,lX,Al,lX,Al,lX,Al,lX,Al,lX,Al,lX,Al)

READ(l5,400) STAT(l,8), STAT(2,8), STAT(3,8),

c STAT(4,8), STAT(5,8), STAT(6,8), STAT(7,8),

c STAT(8,8), STAT(9,8), STAT(lO,8), STAT(ll,8),

c STAT(l2,8), STAT(l3,8), STAT(l4,8), STAT(l5,8) 400 FORMAT(Tl,Al,lX,Al,lX,Al,lX,Al,lX,Al,lX,Al,lX,Al, c lX,Al,lX,Al,lX,Al,lX,Al,lX,Al,lX,Al,lX,Al,lX,Al)

READ(l5,40l) STAT(l,9), STAT(2,9), STAT(3,9),

c STAT(4,9), STAT(5,9), STAT(6,9), STAT(7,9),

c STAT(8,9), STAT(9,9), STAT(lO,9), STAT(ll,9),

c STAT(l2,9), STAT(l3,9), STAT(l4,9), STAT(l5,9) 40l FORMAT(Tl,Al,lX,Al,lX,Al,lX,Al,lX,Al,lX,Al,lX,Al, c lX,Al,lX,Al,lX,Al,lX,Al,lX,Al,lX,Al,lX,Al,lX,Al)

READ (l5, 402) STAT(l,lO), STAT(2,lO), STAT(3,lO),

c STAT(4,lO), STAT(5,lO), STAT(6,lO), STAT(7,lO),

c ST~T(8,lO), STAT(9,lO), STAT(lO,lO), STAT(ll,lO),

c STAT(l2,lO), STAT(l3,lO), STAT(l4,lO), STAT(l5,lO) 402 FORMAT(Tl,Al,lX,Al,lX,Al,lX,Al,lX,Al,lX,Al,lX,Al, c lX,Al,lX,Al,lX,Al,lX,Al,lX,Al,lX,Al,lX,Al,lX,Al)

READ (l5, 403) STAT(l,ll), STAT(2,ll), ~TAT(3,ll),

c STAT (4, 11), STAT (5, 11 ), STAT (6, 11), STAT (7, 11) ,

c STAT(8,ll), STAT(9,ll), STAT(lO,ll), STAT(ll,ll),

c STAT(l2,ll), STAT(l3,ll), STAT(l4,ll), STAT(l5,ll) 403 FORMAT(Tl,Al,lX,Al,lX,Al,lX,Al,lX,Al,lX,Al,lX,Al, c lX,Al,lX,Al,lX,Al,lX,Al,lX,Al,lX,Al,lX,Al,lX,Al)

READ(l5,404) STAT(2,l2), STAT(3,l2), STAT(4,l2),

c STAT(5,l2), STAT(6,l2), STAT(7,l2), STAT(8,l2),

c STAT(9,l2), STAT(lO,l2), STAT(ll,l2), STAT(l2,l2),

c STAT(l3,l2), STAT(l4,l2) 404 FORMAT(T3,Al,lX,Al,lX,Al,lX,Al,lX,Al,lX,Al,lX,Al, c lX,Al,lX,Al,lX,Al,lX,Al,lX,Al,lX,Al)

READ (l5, 405) STAT(2,l3), STAT(3,l3), STAT(4,l3),

c STAT(5,l3), STAT(6,l3), STAT(7,l3), STAT(8,l3),

c STAT(9,l3), STAT(lO,l3), STAT(ll,l3), STAT(l2,l3),

c STAT(l3,l3), STAT(l4,l3) 405 FORMAT(T3,Al,lX,Al,lX,Al,lX,Al,lX,Al,lX,Al,lX, c Al,lX,Al,lX,Al,lX,Al,lX,Al,lX,Al,lX,Al)

READ(l5,406) STAT(3,l4), STAT(4,l4), STAT(5,l4),

c STAT(6,l4), STAT(7,l4), STAT(8,l4), STAT(9,l4),

c STAT(lO,l4), STAT(ll,l4), STAT(l2,l4), STAT(l3,l4) 406 FORMAT(T5,Al,lX,Al,lX,Al,lX,Al,lX,Al,lX,Al,lX,

Waste Package Operations 's'::

Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 421 of 656 c Al,lX,Al,lX,Al,lX,Al,lX,Al)

READ(lS,407) STAT(S,lS), STAT(6,lS), STAT(7,lS),

c STAT(S,lS), STAT(9,lS), STAT(10,15), STAT(ll,lS) 407 FORMAT{T9,Al,lX,Al,lX,Al,lX,Al,lX,Al,lX,Al,lX,Al)

ENDIF RETURN END SUBROUTINE WESTCRA(SPACERDIST, ENDFITHEIGHT, SURFVALUESPEC, c CRADIM, CRABSMAT, CRABSWTS, CRUPLENMAT, CRUPLENWTS, c CRLPLENMAT, CRLPLENWTS, GTDATA, LEFMAT, c UEFMAT, MODDENSITY, REGABOVECRA, SPACERHEIGHT, c HOMOSPACERDEN, MN, LN, CRAUNIV, BANKNUM, CRCLADMAT, c CRCLADML, CRUPML, CRLPML, FRLEFML, FRUEFML, DESNUM, c GTMAT, GTML, BMODML, NUMREGABOVECRA, SYSTEMTOP, c FRUREGIONML, NUMOFSPACERS, HOMOSPACMLNUM, ASSYID, c SURFTYPESPEC, CRABSZAIDS, BANKDES, CRUPZS, CRLPLENZAIDS, c CRUNIQUE, HYBRID, SN, CRAXCLADML, GTAXML, NUMCRAXS, c GTAXMAT, NUMOFGTAXS, CRAXCLADMAT, GTUNIV, c CRABSAXWTS, CRAXDIM, GTAXDATA, CRABSAXMAT, c CRABSAXZAIDS, GTSPLIT, NODEBOTTOMSURF)

I INTEGER MN, LN, CRAUNIV(SO,50), BANKNUM(SO,SO),

c CRCLADMAT (20),

c CRCLADML(50,SO), CRUPML(50,SO), CRLPML{50,50),

c FRLEFML(SO,SO), FRUEFML(50,50), DESNUM(50,50),

c GTMAT(20), GTML(50,SO), BMODML, NUMREGABOVECRA, c SYSTEMTOP, c FRUREGIONML(50,50,20), NUMOFSPACERS(20),

c HOMOSPACMLNUM(20,15),

c ROW, COLUMN, CURRENTSURFLABEL, V, SN, UEFBOTTOMSURF, c UEFTOPSURF, CRABSML, CRABS SURF, CRABSTOPSURF, c CRABSBOTTOMSURF, c CRCLADIRSURF, CRCLADORSURF, CRCLADTOPSURF, c CRCLADBOTTOMSURF, c C, RO, CO, GTTOPSURF, GTBOTSURF, GTORSURF, GTIRSURF, c CRLEFTOPSURF, REGION, REGIONTOPSURF, REGIONBOTTOMSURF, c SPN, SPACERTOPSURF, SPACERBOTTOMSURF, c WATERREGIONTOPSURF, c WATERREGIONBOTTOMSURF, HYBRID, CRAXABSSURF(5),

c CRAXABSTOPSURF(5), CRAXABSBOTTOMSURF(S),

c CRAXCLADIRSURF(5), CRAXCLADORSURF(5),

c CRAXCLADTOPSURF(5), CR;XCLADBOTTOMSURF(5),

c GTSECTBOTSURF(5), GTSECTTOPSURF(5),

c GTSECTORSURF(S), GTSECTIRSURF(5),

c CRAXCLADML{50,SO,S), GTAXML(50,50,5), NUMCRAXS(20),

c GTAXMAT(20,5), NUMOFGTAXS(20), CRAXCLADMAT(20,20),

c GTUNIV(50,50), GTSPLIT, NODEBOTTOMSURF REAL SPACERDIST(20,lO), ENDFITHEIGHT(20,2),

Waste Package Operations Engjneering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2

", Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 422 of 656

~

c SURFVALUESPEC(200),

c CRADIM(20,7), CRABSMAT(20,2), CRABSWTS(20,35),

c CRUPLENMAT(20,2),

c CRUPLENWTS(20,35), CRLPLENMAT(20,2), CRLPLENWTS(20,35),

c GTDATA(20,4), LEFMAT(20,2),

c UEFMAT (20, 2) ,

c MODDENSITY, REGABOVECRA(20,3), SPACERHEIGHT(20,10),

c HOMOSPACEROEN(20,15), CURRENTSURF, CLADRHO, c SPACHEIGHT, CRABSAXWTS(20,35,20), CRAXDIM(20,5,20),

c GTAXDATA(20,4,5), CRABSAXMAT(20,2,20)

CHARACTER ASSYID(50,50)*5, SURFTYPESPEC(200) *2, c CRABSZAIDS(20,35)*9, BANKDES(20) *5, CRUPZS(20,35)*9, c CRLPLENZAIDS(20,35)*9, CRABSAXZAIDS(20,35,20)*9 LOGICAL CRUNIQUE(50,50), CLADMLUNIQUE, LEAVE, c CRUPMLUNIQUE, CRLPMLUNIQUE

• Write the specifications for the CR universes that are

• required to fill the assembly layout specifications previously defined.

DO 3730 ROW=1,50 DO 3720 COLUMN=1,50

• Write the CR universe specification for the assembly if it

• contains a unique CR material or unique CR position.

I IF (CRUNIQUE(COLUMN,ROW).EQ *. TRUE.) THEN

• Write the CR specification header.

WRITE(30,10) 10 FORMAT (Tl, 'C')

WRITE(30,20) ASSYID(COLUMN,ROW) 20 FORMAT (Tl, c 'C CONTROL ROD UNIVERSE SPECIFICATION FOR ASSEMBLY ',A5)

WRITE(30,30) 30 FORMAT (Tl, 'C')

• Define the upper end-fitting bottom surface.

CURRENTSURF=SPACERDIST(DESNUM(COLUMN,ROW),l)+

c ENDFITHEIGHT(DESNUM(COLUMN,ROW),2)

CURRENTSURFLABEL=O DO 40 V=l, (SN-l)

IF (SURFTYPESPEC(V) .EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 40 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN UEFBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+l ELSE UEFBOTTOMSURF=CURRENTSURFLABEL ENDIF

Waste Package Operations Engineering Calculation

Title:

CRe Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 423 of 656

• Define the upper end-fitting top surface.

CURRENTSURF=SPACERDIST(DESNUM(COLUMN,ROW),l)+

c ENDFITHEIGHT(DESNUM(COLUMN,ROW),l)+

c ENDFITHEIGHT(DESNUM(COLUMN,ROW),2)

CURRENTSURFLABEL=O DO 50 V=l, (SN-l)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 50 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN UEFTOPSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+l ELSE UEFTOPSURF=CURRENTSURFLABEL ENDIF

• Define the lower end-fitting top surface.

CURRENTSURF=ENDFITHEIGHT(DESNUM(COLUMN,ROW),2)

CURRENTSURFLABEL=O DO 60 V=l, (SN-l)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 60 CONTINUE IF (CURRENTSURFLABEL~EQ.O) THEN CRLEFTOPSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+l ELSE CRLEFTOPSURF=CURRENTSURFLABEL ENDIF

• Loop through the regions above the CR (i.e. the appropriate upper core regions)

• Define the upper region lower surface.

DO 100 REGION=l, NUMREGABOVECRA

• Determine the current upper region's lower surface specification.

IF (REGION.EQ.l) THEN REGIONTOPSURF=SYSTEMTOP CURRENTSURF=SURFVALUESPEC(SYSTEMTOP)-

c REGABOVECRA(REGION,l)

ENDIF CURRENTSURF=SURFVALUESPEC(REGIONTOPSURF)-

c REGABOVECRA(REGION,l)

IF (REGION.EQ.NUMREGABOVECRA) THEN REGIONBOTTOMSURF=UEFTOPSURF

Waste Package Ope~ations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-021 0-00006 REV 00 Attachment I, Page 424 of 656 ELSE CURRENTSURFLABEL=O DO 70 V=l, CSN-1)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT.(O.OOOl>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 70 CONTINUE IF CCURRENTSURFLABEL.EQ.O) THEN REGIONBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+I ELSE REGIONBOTTOMSURF=CURRENTSURFLABEL ENDIF ENDIF

• Write the cell specification for the CR universe upper region.

IF (REGION.EQ.I) THEN WRITEC30,80) LN, FRUREGIONMLCCOLUMN,ROW,REGION),

c (-I*REGABOVECRA(REGION,2>>,

c REGIONBOTTOMSURF, CRAUNIV(COLUMN,ROW), REGION 80 FORMAT(T1,I4,T6,I4,T1I,F8.5,T25,I4, c , IMP:N=I U=',I3,' $ Upper core region ',I2)

LN=LN+I REGIONTOPSURF=REGIONBOTTOMSURF ELSE WRITE (30,90) LN, FRUREGIONML CCOLUMN,"ROW, REGION),

c (-I*REGABOVECRACREGION,2>>, (-I*REGIONTOPSURF),

c REGIONBOTTOMSURF, CRAUNIV(COLUMN,ROW), REGION 90 FORMATCTI,I4,T6,I4,T1I,F8.5,T25,I4,IX,I4, c , IMP:N=I U=',I3,' $ Upper core region ',I2)

LN=LN+I REGIONTOPSURF=REGIONBOTTOMSURF ENDIF 100 CONTINUE

• • • • • • • • • • • • • • • • • • ~*****************************************************

Waste Package Operat~ons Engineering Calculation

Title:

CRe Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-021 0-00006 REV 00 Attachment I, Page 425 of 656

• SPECIFICATIONS FOR HYBRID=l AND GTSPLIT=l

• • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • ~************************

• Define the CR and GT section surfaces IF <<HYBRID.EQ.1) .AND. (GTSPLIT.EQ.1>> THEN DO 200 SECT=l,NUMCRAXS(BANKNUM(COLUMN,ROW>>

• Define the CR absorber radius.

CURRENTSURF=CRAXDIM(BANKNUM(COLUMN,ROW),l,SECT)

CURRENTSURFLABEL=O DO 110 V=l, (SN-1)

IF (SURFTYPESPEC(V) .EQ. 'CZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF

Waste Package Operations ~ngineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 426 of 656 ENDIF 110 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN CRAXABSSURF(SECT)=SN SURFTYPESPEC(SN)='CZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE CRAXABSSURF(SECT)=CURRENTSURFLABEL ENDIF

• Define the CR absorber top surface.

CURRENTSURF=ENDFITHEIGHT(DESNUM(COLUMN,ROW),2)+

c CRAXDIM(BANKNUM(COLUMN,ROW),4,SECT)+

c CRAXDIM(BANKNUM(COLUMN,ROW),S,SECT)

IF (CURRENTSURF.GE.SURFVALUESPEC(UEFTOPSURF>> THEN CURRENTSURF=SURFVALUESPEC(UEFTOPSURF)

ENDIF CURRENTSURFLABEL=O DO 120 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001) THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 120 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN CRAXABSTOPSURF(SECT)=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE CRAXABSTOPSURF(SECT)=CURRENTSURFLABEL ENDIF

• Define the CR absorber bottom surface.

CURRENTSURF=ENDFITHEIGHT(DESNUM(COLUMN,ROW),2)+

c CRAXDIM(BANKNUM(COLUMN,ROW),4,SECT)

IF (CURRENTSURF.GE.SURFVALUESPEC(UEFTOPSURF>>) THEN CURRENTSURF=SURFVALUESPEC(UEFTOPSURF)

ENDIF CURRENTSURFLABEL=O DO 130 V=l, (SN-1)

IF (SURFTYPESPEC(V) .EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 130 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN CRAXABSBOTTOMSURF(SECT)=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1

Waste Package Operat~.ons Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 427 of 656 ELSE CRAXABSBOTTOMSURF(SECT)=CURRENTSURFLABEL ENDIF

• Define the CR cladding inner radius.

CURRENTSURF=CRAXDIM(BANKNUM(COLUMN,ROW),2,SECT)

CURRENTSURFLABEL=O DO 140 V=I, (SN-l) .

IF (SURFTYPESPEC(V).EQ.'CZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 140 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN CRAXCLADIRSURF(SECT)=SN SURFTYPESPEC(SN)='CZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+l ELSE CRAXCLADIRSURF(SECT)=CURRENTSURFLABEL ENDIF

• Define the CR cladding outer radius.

CURRENTSURF=CRAXDIM(BANKNUM(COLUMN,ROW),3,SECT)

CURRENTSURFLABEL=O

) DO 150 V=I, (SN-l)

IF (SURFTYPESPEC(V).EQ.'CZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. CO.OOOl>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 150 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN CRAXCLADORSURF(SECT)=SN SURFTYPESPEC(SN)='CZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE CRAXCLADORSURF(SECT)=CURRENTSURFLABEL ENDIF TOPSECT=1 DO 160 C=2,NUMCRAXS(BANKNUMCCOLUMN,ROW>>

IF (SURFVALUESPEC(CRAXCLADTOPSURF(C>>.GT.

c SURFVALUESPECCCRAXCLADTOPSURFCTOPSECT>>) THEN TOPSECT=C ENDIF 160 CONTINUE

• Define the CR cladding top surface.

IF CSECT.EQ.TOPSECT) THEN CURRENTSURF=CRAXDIM(BANKNUM(COLUMN,ROW),4,SECT)+

c CRAXDIM(BANKNUMCCOLUMN,ROW),5,SECT)+

C ENDFITHEIGHT(DESNUM(COLUMN,ROW),2)+

c CRADIM(BANKNUMCCOLUMN,ROW),7)

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 428 of 656 ELSE CURRENTSURF=CRAXDIM(BANKNUM(COLUMN,ROW),4,SECT)+

c CRAXDIM(BANKNUM(COLUMN,ROW),S,SECT)+

c ENDFITHEIGHT(DESNUM(COLUMN,ROW),2)

ENDIF IF (CURRENTSURF.GE.SURFVALUESPEC(UEFTOPSURF>> THEN CURRENTSURF=SURFVALUESPEC(UEFTOPSURF)

ENDIF CURRENTSURFLABEL=O DO 170 V=l, (SN-1)

IF (SURFTYPESPEC(V) .EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 170 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN CRAXCLADTOPSURF(SECT)=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE CRAXCLADTOPSURF(SECT)=CURRENTSURFLABEL ENDIF BOTSECT=l DO 180 C=2,NUMCRAXS(BANKNUM(COLUMN,ROW>>

IF (SURFVALUESPEC(CRAXCLADBOTTOMSURF(C>>.LT.

c SURFVALUESPEC(CRAXCLADBOTTOMSURF(BOTSECT>>) THEN BOTSECT=C ENDIF 180 CONTINUE

• Define the CR cladding bottom surface.

IF (SECT.EQ.BOTSECT) THEN CURRENTSURF=CRAXDIM(BANKNUM(COLUMN,ROW),4,SECT)+

c ENDFITHEIGHT(DESNUM(COLUMN,ROW),2)+

c CRADIM(BANKNUM(COLUMN,ROW),6)

ELSE CURRENTSURF=CRAXDIM(BANKNUM(COLUMN,ROW),4,SECT)+

c ENDFITHEIGHT(DESNUM(COLUMN,ROW),2)

ENDIF IF (CURRENTSURF.GE.SURFVALUESPEC(UEFTOPSURF>> THEN CURRENTSURF=SURFVALUESPEC(UEFTOPSURF)

ENDIF CURRENTSURFLABEL=O DO 190 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.00015) THEN CURRENTSURFLABEL=V EXIT' ENDIF ENDIF 190 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-021 0-00006 REV 00 AttachmentI,Page4290f656 CRAXCLADBOTTOMSURF(SECT)=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+l ELSE CRAXCLADBOTTOMSURF(SECT)=CURRENTSURFLABEL ENDIF 200 CONTINUE DO 250 SECT=l,NUMOFGTAXS(DESNUM(COLUMN,ROW>>

• Define the GT section top surface.

CURRENTSURF=GTAXDATA(DESNUM(COLUMN,ROW),3,SECT)

IF (CURRENTSURF.GT.SURFVALUESPEC(UEFTOPSURF>> THEN CURRENTSURF=SURFVALUESPEC(UEFTOPSURF)

ENDIF CURRENTSURFLABEL=O DO 210 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)~CURRENTSURF).LT. ( 0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 210 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN GTSECTTOPSURF(SECT)=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+l ELSE GTSECTTOPSURF(SECT)=CURRENTSURFLABEL ENDIF

• Define the GT section bottom surface.

CURRENTSURF=GTAXDATA(DESNUM(COLUMN,ROW),4,SECT)

CURRENTSURFLABEL=O DO 220 V=l, (SN-l)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS (SURFVALUESPEC (V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 220 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN GTSECTBOTSURF(SECT)=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+l ELSE GTSECTBOTSURF (SECT) =CURRENTSURFLABEL ENDIF

• Define the GT section outer radius surface.

CURRENTSURF=GTAXDATA(DESNUM(COLUMN,ROW),2,SECT)

CURRENTSURFLABEL=O DO 230 V=l, (SN-l)

Waste Package Operations Engineering Calculation

Title:

CRe Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 430 of656 IF (SURFTYPESPEC(V) .EQ.'CZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001) THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 230 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN GTSECTORSURF (SECT) =SN SURFTYPESPEC(SN)~'CZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE GTSECTORSURF(SECT)=CURRENTSURFLABEL .

ENDIF

• Define the GT section inner radius surface.

CURRENTSURF=GTAXDATA(DESNUM(COLUMN,ROW),l,SECT)

CURRENTSURFLABEL=O DO 240 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'CZ') THEN

. IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 240 CONTINUE

.- IF (CURRENTSURFLABEL.EQ.O) THEN GTSECTIRSURF(SECT)=SN SURFTYPESPEC(SN)='CZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE GTSECTIRSURF (SECT) =CURRENTSURFLABEL ENDIF 2S0 CONTINUE DO 670 SECT=l,NUMCRAXS(BANKNUM(COLUMN,ROW>>)

IF (SURFVALUESPEC(CRAXABSBOTTOMSURF(SECT).LT.

c SURFVALUESPEC(UEFTOPSURF>> THEN

• Check Control Rod Absorber Material CRABSML=MN DO 280 C=1,CRABSAXMAT(BANKNUM(COLUMN,ROW),2,SECT)

IF (C.EQ.1) THEN WRITE (200, 260) CRABSML, c CRABSAXZAIDS(BANKNUM(COLUMN,ROW),C,SECT),

c (-l*CRABSAXWTS(BANKNUM(COLUMN,ROW),C,SECT),

c ASSYID (COLUMN, ROW) 260 FORMAT(T1,'M',I4,T9,A9,3X,G14.6, c ' $ Control Rod Absorber Material in Assembly ,

c AS)

ELSE WRITE(200,270) c CRABSAXZAIDS(BANKNUM(COLUMN,ROW),C,SECT),

c (-l*CRABSAXWTS(BANKNUM(COLUMN,ROW),C,SECT>>

270 FORMAT(T9,A9,3X,G14.6)

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2

, Document Identifier: BOOOOOOOo-OI717-0210-00006 REV 00 Attachment I, Page 431 of 656 j

ENDIF 280 CONTINUE MN=MN+1

• Write the CR absorber cell in this CR universe.

WRITE(30,290) LN, CRABSML, c (-l*CRABSAXMAT(BANKNUM(COLUMN,ROW),l,SECT>>,

c (-l*CRAXABSSURF(SECT>>,

c (-l*CRAXABSTOPSURF(SECT>>, CRAXABSBOTTOMSURF(SECT),

c CRAUNIV (COLUMN, ROW) 290 FORMAT(T1,I4,T6,I4,T11,F10.6,T25,I4,lX,I4,lX,I4, c , IMP:N=1.U=',I3,' $ Control rod absorber material')

LN=LN+1

• Write the absorber-to-cladding gap cell in this CR universe.

WRITE (30, 300) LN, (-l*CRAXCLADIRSURF(SECT>>,

c CRAXABSSURF(SECT), (-l*CRAXABSTOPSURF(SECT>>,

c CRAXABSBOTTOMSURF(SECT), CRAUNIV (COLUMN, ROW) 300 FORMAT(T1,I4,T6,'0',T25,I4,lX,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Absorber-to-cladding gap')

LN=LN+1 ENDIF

• Write the CR cladding cell in this CR universe.

• Determine if the CR cladding material specification has

• previously been defined. If it has been previously defined, determine

• the cladding material specification label.

CLADMLUNIQUE=.TRUE.

LEAVE=.FALSE.

IF <<COLUMN.NE.1).AND.(ROW.NE.1>> THEN DO 320 RO=l, (ROW-1)

DO 310 CO=1,50 IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKDES(BANKNUM(CO,RO>>.EQ.'CRA ') THEN IF (CRAXCLADMAT(BANKNUM(COLUMN,ROW),SECT) .EQ.

c CRCLADMAT(BANKNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

CRAXCLADML(COLUMN,ROW,SECT)=CRCLADML(CO,RO)

EXIT ENDIF IF (CRAXCLADMAT(BANKNUM(COLUMN,ROW),SECT) .EQ.

c CRAXCLADMAT(BANKNUM(CO,RO),SECT>> THEN CLADMLUNIQUE=.FALSE.

LEAVE=,'TRUE.

CRAXCLADML(COLUMN,ROW,SECT)=

c CRAXCLADML(CO, RO, SECT)

EXIT ENDIF ENDIF ENDIF 310 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 320 CONTINUE IF (LEAVE.EQ .* FALSE.) THEN

Waste Package Operat,ions Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 432 of 656 DO 340 RO=ROW,ROW DO 330 CO=l, (COLUMN-l)

IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKDES(BANKNUM(CO,RO>>.EQ.'CRA ') THEN IF (CRCLADMAT(BANKNUM(COLUMN,ROW>>.EQ.

c CRAXCLADMAT(BANKNUM(CO,RO),SECT>> THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

CRAXCLADML(COLUMN,ROW,SECT)=CRCLADML(CO,RO)

EXIT ENDIF IF (CRAXCLADMAT(BANKNUM(COLUMN,ROW),SECT) .EQ.

c CRAXCLADMAT(BANKNUM(CO,RO),SECT>> THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

CRAXCLADML(COLUMN,ROW,SECT)=

c CRAXCLADML (CO, RO, SECT)

EXIT ENDIF ENDIF ENDIF "330 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 340 CONTINUE ENDIF ELSEIF <<COLUMN.EQ.l) .AND. (ROW.NE.l>> THEN DO 360 RO=l, (ROW-l)

DO 350 CO=1,50 IF (BANKNUM(CO,RO) .NE.O) THEN IF (BANKDES(BANKNUM(CO,RO>>.EQ.'CRA ') THEN IF (CRCLADMAT(BANKNUM(COLUMN,ROW>>.EQ.

c CRAXCLADMAT(BANKNUM(CO,RO),SECT>> THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

CRAXCLADML(COLUMN,ROW,SECT)=CRCLADML(CO,RO)

EXIT ENDIF IF (CRAXCLADMAT(BANKNUM(COLUMN,ROW),SECT).EQ.

c CRAXCLADMAT(BANKNUM(CO,RO),SECT>> THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

CRAXCLADML (COLUMN, ROW, SECT)=

c CRAXCLADML(CO,RO,SECT)

EXIT ENDIF ENDIF ENDIF 350 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 360 CONTINUE

Waste Package Ope~ati~ons ~ngineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-021 0-00006 REV 00 Attachment I, Page 433 of 656 ELSEIF <<ROW.EQ.l).AND. (COLUMN.NE.l) THEN DO 380 RO=l,l DO 370 CO=l, (COLUMN-l)

IF (BANKNUM(CO,RO) .NE.O) THEN IF (BANKDES(BANKNUM(CO,RO>>).EQ. 'CRA ') THEN IF (CRCLADMAT(BANKNUM(COLUMN,ROW>>.EQ.

c CRAXCLADMAT(BANKNUM(CO,RO),SECT>> THEN CLADMLUNIQUE=.FALSE.

LEAVE.... TRUE.

CRAXCLADML (COLUMN, ROW, SECT) =CRCLADML (CO, RO)

EXIT ENDIF IF (CRAXCLADMAT(BANKNUM(COLUMN,ROW),SECT).EQ.

c CRAXCLADMAT(BANKNUM(CO,RO),SECT) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

CRAXCLADML(COLUMN,ROW,SECT)=

c CRAXCLADML (CO, RO, SECT)

EXIT ENDIF ENDIF ENDIF 370 CONTINUE iF (LEAVE.EQ *. TRUE.) THEN EXIT ENDIF 380 CONTINUE

. ENDIF IF (SURFVALUESPEC(CRAXCLADBOTTOMSURF(SECT>>.LT.

c SURFVALUESPEC(UEFTOPSURF) THEN IF (CLADMLUNIQUE.EQ *. TRUE.) THEN CRAXCLADML (COLUMN, ROW, SECT)=MN

• Check Control Rod Cladding IF (CRAXCLADMAT(BANKNUM(COLUMN,ROW),SECT).EQ.l) THEN 00 390 C=l,2 IF (C.EQ.l) THEN WRITE (200, 9300) CRAXCLADML (COLUMN, ROW, SECT)

ELSEIF (C.EQ.2) THEN WRITE(200,930l)

WRITE(200,7000)

WRITE(200,700l)

WRITE(200,7002)

WRITE(200,9302)

WRITE (200, 7003)

WRITE(200,7004)

WRITE(200,700S)

WRITE (200, 9303)

WRITE(200,9304)

ENDIF 390 CONTINUE ELSEIF (CRAXCLADMAT(BANKNUM(COLUMN,ROW),SECT) c .EQ.2) THEN DO 400 C=l,2 IF (C.EQ.l) THEN

Waste Package Operations i"*,

Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 434 of 656 WRITE(200,9305) CRAXCLADML(COLUMN,ROW,SECT)

ELSEIF (C.EQ.2) THEN WRITE (200,9306)

WRITE(200,9307)

WRITE (200, 9308)

WRITE (200, 9309)

WRITE (200, 9310)

WRITE(200,7006)

WRITE(200,7007)

WRITE(200,7008)

WRITE (200, 9311)

WRITE (200, 9312)

WRITE(200,7009)

WRITE(200,7010)

WRITE(200,7011)

WRITE(200,9313)

WRITE (200, 7012)

WRITE (200, 7013)

WRITE (200, 7014)

WRITE(200,7015)

ENDIF 400 CONTINUE ELSEIF (CRAXCLADMAT(BANKNUM(COLUMN,ROW),SECT) c .EQ.3) THEN DO 410 C=1,2

..\ IF (C.EQ.l) THEN WRITE(200,9314) CRAXCLADML (COLUMN, ROW, SECT)

ELSEIF (C.EQ.2) THEN WRITE (200, 9315)

WRITE (200, 9316)

WRITE(200,9317)

WRITE(200,9318)

WRITE(200,7016)

WRITE(200,7017)

WRITE (200, 7018)

WRITE(200,9319)

WRITE(200,9320)

WRITE(200,7019)

WRITE(200,7020)

WRITE(200,7021)

WRITE (200, 9321)

WRITE(200,7022)

WRITE(200,7023)

WRITE(200,7024)

WRITE (200, 7025)

WRITE (200, 9322)

WRITE(200,9323)

WRITE(200,9324)

WRITE(200,9325)

WRITE (200, 9326)

WRITE(200,9327)

WRITE(200,7026)

WRITE(200,9328)

WRITE (200, 9329)

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2

) Document Identifier: BOOOOOOOO-01717-021 0-00006 REV 00 Attachment I, Page 435 of 656 WRITE (200, 9330)

ENDIF 410 CONTINUE ENDIF MN=MN+I ENDIF IF (CRAXCLADMAT(BANKNUM(COLUMN,ROW),SECT).EQ.I) THEN CLADRHO=6.56 ELSEIF (CRAXCLADMAT(BANKNUM(COLUMN,ROW),SECT) .EQ.2) THEN CLADRHO=7.90 ELSEIF (CRAXCLADMAT(BANKNUM(COLUMN,ROW),SECT).EQ.3) THEN CLADRHO=B.19 ENDIF WRITE (30, 420) LN, CRAXCLADML(COLUMN,ROW,SECT),

c (-I*CLADRHO), CRAXCLADIRSURF(SECT),

c (-I*CRAXCLADORSURF(SECT>>, (-I*CRAXCLADTOPSURF(SECT>>,

c CRAXCLADBOTTOMSURF(SECT), CRAUNIV (COLUMN, ROW) 420 FORMAT(TI,I4,T6,I4,TII,FB.5,T25,I4,IX,I4,IX,I4,IX,I4, c , IMP:N=I U=',I3,' $ Control rod cladding')

LN=LN+l

. ENDIF

• Write the CR upper plenum cell in this CR universe.

• Determine if the CR upper plenum material specification has

• previously been defined. If it has been previously defined, determine

• the upper plenum material specification label.

)

CRUPMLUNIQUE=.TRUE.

". LEAVE=.FALSE.

IF <<COLUMN.NE.I) .AND.(ROW.NE.I>> THEN DO 440 RO=I, (ROW-I) .

DO 430 CO=I,50 IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKNUM(COLUMN,ROW).EQ.

c BANKNUM(CO,RO>> THEN CRUPMLUNIQUE=.FALSE.

LEAVE-.TRUE.

CRUPML (COLUMN, ROW) =CRUPML (CO, RO)

EXIT ENDIF ENDIF 430 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 440 CONTINUE IF (LEAVE.EQ .. FALSE.) THEN DO 460 RO=ROW,ROW DO 450 CO=I, (COLUMN-I)

IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKNUM(COLUMN,ROW).EQ.

c BANKNUM(CO,RO>> THEN

.CRUPMLUNIQUE-.FALSE.

LEAVE=.TRUE.

CRUPML(COLUMN,ROW)=CRUPML(CO,RO)

EXIT

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: 800000000-01717-0210-00006 REV 00 Attachment I, Page 436 of 656 ENDIF ENDIF 450 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 460 CONTINUE ENDIF ELSEIF <<COLUMN.EQ.l).AND. (ROW.NE.l>> THEN DO 480 RO=l, (ROW-I)

DO 470 CO=1,50 IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKNUM(COLUMN,ROW).EQ.

c BANKNUM(CO,RO>> THEN CRUPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

CRUPML(COLUMN,ROW)=CRUPML(CO,RO)

EXIT ENDIF ENDIF 470 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 480 CONTINUE ELSEIF <<ROW.EQ.l).AND. (COLUMN.NE.l>> THEN DO 500 RO=l,l DO 490 CO=l, (COLUMN-I)

IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKNUM(COLUMN,ROW).EQ.

c BANKNUM(CO,RO>> THEN CRUPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

CRUPML (COLUMN, ROW) =CRUPML (CO,RO)

EXIT ENDIF ENDIF 490 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 500 CONTINUE ENDIF IF (SURFVALUESPEC(CRAXABSTOPSURF(TOPSECT>>.LT.

c SURFVALUESPEC(UEFTOPSURF>> THEN IF (CRUPMLUNIQUE.EQ .* TRUE.) THEN CRUPML(COLUMN, ROW) =MN

• Check Control Rod Upper Plenum Regions DO 530 C=l,CRUPLENMAT(BANKNUM(COLUMN,ROW),2)

IF (C.EQ.l) THEN WRITE(200,5l0) CRUPML(COLUMN,ROW),

c CRUPZS(BANKNUM(COLUMN,ROW),C),

c (-l*CRUPLENWTS(BANKNUM(COLUMN,ROW),C>>

510 FORMAT (Tl, 'M',I4,T9,A9,3X,G14.6,

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 437 of 656 c $ Control Rod Upper Plenum')

ELSE WRITE (200, 520) c CRUPZS(BANKNUM(COLUMN,ROW),C),

c (-l*CRUPLENWTS(BANKNUM(COLUMN,ROW),C>>

520 FORMAT(T9,A9,3X,Gl4.6)

ENDIF 530 CONTINUE MN=MN+l ENDIF WRITE (30, 540) LN, CRUPML(COLUMN,ROW),

c (-l*CRUPLENMAT(BANKNUM(COLUMN,ROW),l>>,

c CRAXABSTOPSURF(TOPSECT),

c (-l*CRAXCLADTOPSURF(TOPSECT>>,

c (-l*CRAXCLADIRSURF(TOPSECT>>,

c* CRAUNIV (COLUMN, ROW) 540 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Control rod upper plenum')

LN=LN+l ENDIF

• Write the CR lower plenum cell in this CR universe.

• Determine if the CR lower plenum material specification has

• previously been defined. If it has been previously defined, determine

• the lower plenum material specification label.

CRLPMLUNIQUE=.TRUE.

LEAVE=.FALSE.

IF << COLUMN. NE. l) *AND . (ROW. NE . l>> THEN DO 560 RO=l, (ROW-l)

DO 550 CO=l,50 IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKNUM(COLUMN,ROW) .EQ.BANKNUM(CO,RO>> THEN CRLPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

CRLPML(COLUMN, ROW) =CRLPML(CO,RO)

EXIT ENDIF ENDIF 550 CONTINUE IF (LEAVE.EQ .* TRUE.) THEN EXIT ENDIF 560 CONTINUE IF (LEAVE.EQ *. FALSE.) THEN DO 580 RO=ROW,ROW DO 570 CO=l, (COLUMN-l)

IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKNUM(COLUMN,ROW).EQ.

c BANKNUM(CO,RO>> THEN CRLPMLUNIQUE=.FALSE.

L~VE=.TRUE.

CRLPML(COLUMN,ROW)=CRLPML(CO,RO)

EXIT ENDIF ENDIF

Waste Package Operations Engineering Calculation

Title:

eRe Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 438 of 656 570 CONTINUE IF (LEAVE.EQ .* TRUE.) THEN EXIT ENDIF 580 CONTINUE ENDIF ELSEIF <<COLUMN.EQ.1).AND. (ROW.NE.1>> THEN DO 600 RO=l, (ROW-1)

DO 590 CO=1,50 IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKNUM(COLUMN,ROW).EQ.

c BANKNUM(CO,RO>> THEN CRLPMLUNIQUE~.FALSE.

LEAVE=.TRUE.

CRLPML(COLUMN, ROW) =CRLPML (CO, RO)

EXIT ENDIF ENDIF 590 CONTINUE IF (LEAVE.EQ ** TRUE.) THEN EXIT ENDIF 600 CONTINUE ELSEIF <<ROW.EQ.1).AND. (COLUMN.NE.1>> THEN DO 620 RO=l,l DO 610 CO=l, (COLUMN-1)

IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKNUM(COLUMN,ROW).EQ.

c BANKNUM(CO,RO>> THEN CRLPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

CRLPML(COLUMN, ROW)=CRLPML (CO,RO)

EXIT ENDIF ENDIF 610 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 620 CONTINUE ENDIF IF (SURFVALUESPEC(CRAXCLADBOTTOMSURF(BOTSECT>>.LT.

c SURFVALUESPEC(UEFTOPSURF>> THEN IF (CRLPMLUNIQUE.EQ ** TRUE.) THEN CRLPML(COLUMN,ROW)=MN

.* Check Control Rod Lower Plenum Regions DO 650 C=l,CRLPLENMAT(BANKNUM(COLUMN,ROW),2)

IF (C.EQ.1) THEN WRITE (200, 630) CRLPML(COLUMN,ROW),

c CRLPLENZAIDS(BANKNUM(COLUMN,ROW),C),

c (-l*CRLPLENWTS(BANKNUM(COLUMN,ROW),C>>

630 FORMAT (T1, 'M',I4,T9,A9,3X,G14.6, c , $ Control Rod Lower Plenum')

ELSE

Waste Package Operations "!-. ~

Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 439 of 656 WRITE (200, 640) c CRLPLENZAIDS(BANKNUM(COLUMN,ROW),C),

c (-I*CRLPLENWTS(BANKNUM(COLUMN,ROW),C>>

640 FORMAT(T9,A9,3X,GI4.6)

ENDIF 650 CONTINUE MN=MN+l ENDIF WRITE(30,660) LN, CRLPML(COLUMN,ROW),

c (-I*CRLPLENMAT(BANKNUM(COLUMN,ROW),I>>,

c CRAXCLADBOTTOMSURF(BOTSECT),

c (-I*CRAXABSBOTTOMSURF(BOTSECT>>,

c (-I*CRAXCLADIRSURF(BOTSECT>>,

c CRAUNIV (COLUMN, ROW) 660 FORMAT(TI,I4,T6,I4,TII,F8.5,T25,I4,IX,I4,IX,I4, c , IMP:N=l U=',I3,' $ Control rod lower plenum')

LN=LN+l ENDIF 670 CONTINUE

• Write the GT material cell DO 800 SECT=l,NUMOFGTAXS(DESNUM(COLUMN,ROW>>

• Determine if the GT material specification has

• " previously been defined. If it has been previously defined, determine

• the material specification label.

CLADMLUNIQUE=.TRUE.

..}

LEAVE=. FALSE

• IF <<COLUMN.NE.1).AND. (ROW.NE.1>> THEN DO 690 RO=I, (ROW-I) 00 680 CO=I,50 IF <<DESNUM(CO,RO).NE.O).AND.

c (BANKNUM(CO, RO) .EQ. 0>> THEN IF (GTAXMAT(DESNUM(COLUMN,ROW),SECT).EQ.

c GTMAT(DESNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTAXML (COLUMN, ROW, SECT)=GTML (CO, RO)

EXIT ELSEIF (GTAXMAT(DESNUM(COLUMN,ROW),SECT).EQ.

c GTAXMAT(DESNUM(CO,RO),SECT) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTAXML(COLUMN,ROW, SECT)=GTAXML(CO, RO,SECT)

EXIT ENDIF ENDIF 680 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 690 CONTINUE IF (LEAVE.EQ .* FALSE.) THEN DO 710 RO=ROW,ROW DO 700 CO=I, (COLUMN-1)

IF <<DESNUM(CO,RO) .NE.O).AND.

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity' Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 440 of 656 c (BANKNUM(CO,RO).EQ.O>> THEN IF (GTAXMAT(DESNUM(COLUMN,ROW),SECT) .EQ.

c GTMAT(DESNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTAXML(COLUMN,ROW,SECT)=GTML(CO,RO)

EXIT ELSEIF (GTAXMAT(DESNUM(COLUMN,ROW),SECT) .EQ.

c GTAXMAT(DESNUM(CO,RO),SECT>> THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTAXML (COLUMN, ROW, SECT) =GTAXML(CO, RO, SECT)

EXIT ENDIF ENDIF 700 CONTINUE IF (LEAVE.EQ *. TRUE.) THEN EXIT ENDIF 710 CONTINUE ENDIF ELSEIF <<COLUMN.EQ.l).AND.(ROW.NE.l>> THEN DO 730 RO=l, (ROW-l)

DO 720 CO=1,50 IF <<DESNUM(CO,RO).NE.O).AND.

c (BANKNUM(CO,RO).EQ.O>> THEN IF (GTAXMAT(DESNUM(COLUMN,ROW),SECT).EQ.

c GTMAT(DESNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE. .

GTAXML(COLUMN, ROW, SECT) =GTML (CO, RO)

EXIT .

ELSEIF (GTAXMAT(DESNUM(COLUMN,ROW),SECT) .EQ.

c GTAXMAT(DESNUM(CO,RO),SECT>> THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTAXML(COLUMN,ROW, SECT)=GTAXML(CO,RO, SECT)

EXIT ENDIF ENDIF 720 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 730 CONTINUE ELSEIF <<ROW.EQ.l).AND. (COLUMN.NE.l>> THEN DO 750 RO=l,l DO 740 CO=l, (COLUMN-l)

IF <<DESNUM(CO,RO).NE.O).AND.

c (BANKNUM(CO,RO).EQ.O>> THEN IF (GTAXMAT(DESNUM(COLUMN,ROW),SECT).EQ.

c GTMAT (DESNUM (CO, RO) >> THEN' CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calcuiations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-021 0-00006 REV 00 Attachment I, Page 441 of 656 GTAXML(COLUMN,ROW,SECT)cGTML(CO,RO)

EXIT ELSEIF (GTAXMAT(DESNUM(COLUMN,ROW),SECT).EQ.

c GTAXMAT(DESNUM(CO,RO),SECT>> THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTAXML (COLUMN, ROW, SECT) =GTAXML (CO, RO, SECT)

EXIT ENDIF ENDIF 740 CONTINUE IF (LEAVE.EQ ** TRUE.) THEN EXIT ENDIF 750 CONTINUE ENDIF IF (CLADMLUNIQUE.EQ .* TRUE.) THEN GTAXML(COLUMN,ROW,SECT)=MN

• Check Guide Tube Material IF (GTAXMAT(DESNUM(COLUMN,ROW)~SECT).EQ.1)THEN DO 760 C=1,2 IF (C.EQ.1) THEN

'WRITE(200,9300) GTAXML(COLUMN,ROW,SECT)

ELSEIF (C.EQ.2) THEN WRITE (200,9301)'

) WRITE (200, 7000)

WRITE(200,7001)

WRITE(200,7002)

WRITE (200, 9302)

WRITE (200, 7003)

WRITE(200,7004)

WRITE(200,7005)

WRITE(200,9303)

WRITE (200, 9304)

ENDIF 760 CONTINUE ELSEIF (GTAXMAT(DESNUM(COLUMN,ROW),SECT) c .EQ.2) THEN DO 770 C=1,2 IF (C.EQ.1) THEN WRITE(200,9305) GTAXML (COLUMN, ROW, SECT)

ELSEIF (C.EQ.2) THEN WRITE(200,9306)

WRITE(200,9307)

WRITE(200,9308)

WRITE (200, 9309)

WRITE (200, 9310)

WRITE(200,7006)

WRITE (200, 7007)

WRITE(200,7008)

WRITE (200, 9311)

WRITE(200,9312)

WRITE(200,7009)

WRITE(200,7010)

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 442 of 656 WRITE (200, 7011)

WRITE (200, 9313)

WRITE(200,7012)

WRITE(200,7013)

WRITE(200,7014)

WRITE(200,7015)

ENDIF 770 CONTINUE ELSEIF (GTAXMAT(DESNUM(COLUMN,ROW),SECT) c .EQ.3) THEN DO 780 C=1,2 IF (C.EQ.1) THEN WRITE (200, 9314) GTAXML(COLUMN,ROW,SECT)

ELSEIF (C.EQ.2) THEN WRITE (200, 9315)

WRITE (200, 9316)

WRITE (200, 9317)

WRITE(200,9318)

WRITE(200,7016)

WRITE (200, 7017)

WRITE (200, 7018)

WRITE (200, 9319)

WRITE (200, 9320)

WRITE(200,7019)

WRITE(200,7020)

WRITE (200, 7021)

WRITE (200, 9321)

WRITE (200, 7022)

WRITE(200,7023)

WRITE(200,7024)

WRITE (200, 7025)

WRITE (200, 9322)

WRITE(200,9323)

WRITE(200,9324)

WRITE (200, 9325)

WRITE (200, 9326)

WRITE (200, 9327)

WRITE(200,7026)

WRITE(200,9328)

WRITE(200,9329)

WRITE(200,9330)

ENDIF 780 CONTINUE ENDIF MN=MN+1 ENDIF .

IF (GTAXMAT(DESNUM(COLUMN,ROW),SECT).EQ.1) THEN CLADRHO=6.56 ELSEIF (GTAXMAT(DESNUM(COLUMN,ROW),SECT).EQ.2) THEN CLADRHO=7.90 ELSEIF (GTAXMAT(DESNUM(COLUMN,ROW),SECT).EQ.3) THEN CLADRHO=8.19 ENDIF WRITE(30,790) LN,GTAXML(COLUMN,ROW,SECT), (-l*CLADRHO),

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calcutatiolls for Sequoyah Unit 2 J Document Identifier: BOOOOOOOO-Ol717-0210-00006 REV 00 Attachment I, Page 443 of 656 c GTSECTIRSURF(SECT),

c (-l*GTSECTORSURF(SECT>>, (-l*GTSECTTOPSURF(SECT>>,

c GTSECTBOTSURF(SECT), CRAUNIV(COLUMN,ROW) 790 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4,lX,I4, c ' IMP:N=l U=',I4,' $ Guide tube')

LN=LN+l 800 CONTINUE

• Loop through the spacer and moderator regions along the axial

• length of the GT (from top to bottom).

SPACHEIGHT=O.O DO 810 SPN=l,NUMOFSPACERS(DESNUM(COLUMN,ROW>>

SPACHEIGHT=SPACHEIGHT+SPACER¥EIGHT(DESNUM(COLUMN,ROW),SPN) 810 CONTINUE DO 1000 SPN=l,NUMOFSPACERS(DESNUM(COLUMN,ROW>>

• Define the homogenized spacer region bounding surfaces.

IF (SPN.EQ.l) THEN SPACERTOPSURF=UEFBOTTOMSURF CURRENTSURF=SURFVALUESPEC(UEFBOTTOMSURF)-

c SPACERHEIGHT(DESNUM(COLUMN,ROW),SPN)

CURRENTSURFLABEL-O DO 820 Val, (SN-l)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 820 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN SPACERBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+l ELSE SPACERBOTTOMSURF=CURRENTSURFLABEL ENDIF WATERREGIONTOPSURF=SPACERBOTTOMSURF CURRENTSURF=SPACERDIST(DESNUM(COLUMN,ROW), (SPN+l>>

CURRENTSURFLABEL=O DO 830 V=l, (SN-l)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 830 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN WATERREGIONBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+l .

ELSE WATERREGIONBOTTOMSURF-CURRENTSURFLABEL

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculatiohs for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 444 of 656 ENDIF ELSEIF <<SPN.NE.1).AND.(SPN.NE.

c NUMOFSPACERS(DESNUM(COLUMN,ROW>>>> THEN SPACERTOPSURF=WATERREGIONBOTTOMSURF CURRENTSURF=SURFVALUESPEC(WATERREGIONBOTTOMSURF)-

c SPACERHEIGHT(DESNUM(COLUMN,ROW),SPN)

CURRENTSURFLABEL=O DO 840 V-1, (SN-1)

IF (SURFTYPESPEC(V).EQ.*PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 840 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN SPACERBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' .

SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE SPACERBOTTOMSURF=CURRENTSURFLABEL ENDIF WATERREGIONTOPSURF=SPACERBOTTOMSURF CURRENTSURF=SPACERDIST(DESNUM(COLUMN,ROW), (SPN+1>>

) CURRENTSURFLABEL=O DO 850 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 850 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN WATERREGIONBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE WATERREGIONBOTTOMSURF=CURRENTSURFLABEL ENDIF ELSEIF (SPN.EQ.NUMOFSPACERS(DESNUM(COLUMN,ROW>>) THEN SPACERTOPSURF=WATERREGIONBOTTOMSURF CURRENTSURF=SURFVALUESPEC(WATERREGIONBOTTOMSURF)-

c SPACERHEIGHT(DESNUM(COLUMN,ROW),SPN)

CURRENTSURFLABEL=O DO 860 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF

Waste Package Operations Engineering Calculation

Title:

eRe Reactivity Calcuiations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attacpment I, Page 445 of 656 860 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN SPACERBOTTOMSURF~SN SURFTYPESPEC(SN)~'PZ' SURFVALUESPEC(SN)~CURRENTSURF SN=SN+l ELSE SPACERBOTTOMSURF=CURRENTSURFLABEL ENDIF WATERREGIONTOPSURF=SPACERBOTTOMSURF WATERREGIONBOTTOMSURF=NODEBOTTOMSURF ENDIF

• Write the current homogenized spacer region cell in this GT universe.

DO 990 SECT~l,NUMOFGTAXS(DESNUM(COLUMN,ROW>>

IF <<(SURFVALUESPEC(GTSECTTOPSURF(SECT>> .GT.

c SURFVALUESPEC(SPACERTOPSURF>>.AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>> .LT.

c SURFVALUESPEC(SPACERBOTTOMSURF>>) THEN WRITE (30, 870) LN, HOMOSPACMLNUM(DESNUM(COLUMN,ROW),SPN),

c (-l*HOMOSPACERDEN(DESNUM(COLUMN,ROW),SPN>>,

c GTSECTORSURF(SECT),

c (-l*SPACERTOPSURF), SPACERBOTTOMSURF, CRAUNIV(COLUMN,ROW),

c SPN 870 FORMAT(Tl,I4,T6,I4,Tll,G14.8,T25,I4,lX,I4,lX,I4, c , IMP:N~l U=',I4, 1 c LN=LN+l

$ Homogenized region for spacer ',12)

ELSEIF <<SURFVALUESPEC(GTSECTTOPSURF(SECT>>.EQ.

c SURFVALUESPEC(SPACERTOPSURF>>.AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>> .LT.

c SURFVALUESPEC(SPACERBOTTOMSURF>>) THEN WRITE(30,880) LN, HOMOSPACMLNUM(DESNUM(COLUMN,ROW),SPN),

c (-l*HOMOSPACERDEN(DESNUM(COLUMN,ROW),SPN>>,

c GTSECTORSURF(SECT),

c (-l*SPACERTOPSURF), SPACERBOTTOMSURF, CRAUN1V(COLUMN,ROW),

c SPN 880 FORMAT(Tl,I4,T6,I4,Tll,Gl4.8,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I4, c $ Homogenized region for spacer ',12)

LN=LN+l ELSEIF <<(SURFVALUESPEC(GTSECTTOPSURF(SECT>> .EQ.

c SURFVALUESPEC(SPACERTOPSURF>> .AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>>.EQ.

c SURFVALUESPEC(SPACERBOTTOMSURF>>) THEN WR1TE(30,890) LN, HOMOSPACMLNUM(DESNUM(COLUMN,ROW),SPN),

c (-l*HOMOSPACERDEN(DESNUM(COLUMN,ROW),SPN>>,

c GTSECTORSURF(SECT),

c (-l*SPACERTOPSURF), SPACERBOTTOMSURF, CRAUN1V(COLUMN,ROW),

c SPN 890 FORMAT (Tl, 14, T6, 14, Tll, GU. 8, T25, 14, lX, 14, lX, 14, c , IMP:N~l U=',14, c $ Homogenized region for spacer ',12)

LN=LN+l ELSEIF <<(SURFVALUESPEC(GTSECTTOPSURF(SECT>> .GT.

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-021 0-00006 REV 00 Attachment I, Page 446 of 656 c SURFVALUESPEC(SPACERTOPSURF>>.AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>>.EQ.

c SURFVALUESPEC(SPACERBOTTOMSURF>>) THEN WRITE(30,900) LN, HOMOSPACMLNUM(DESNUM(COLUMN,ROW),SPN),

c (-l*HOMOSPACERDEN(DESNUM(COLUMN,ROW),SPN>>,

c GTSECTORSURF(SECT),

c (-l*SPACERTOPSURF), SPACERBOTTOMSURF, CRAUNIV(COLUMN,ROW),

c SPN 900 FORMAT(T1,I4,T6,I4,T11,G14.8,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I4, c $ Homogenized region for spacer ',12)

LN=LN+1 ELSEIF <<SURFVALUESPEC(GTSECTTOPSURF(SECT>>.GT.

c SURFVALUESPEC(SPACERTOPSURF>>.AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>> .GT.

c SURFVALUESPEC(SPACERBOTTOMSURF>>.AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>> .LT.

c SURFVALUESPEC(SPACERTOPSURF>>) THEN WRITE (30, 910) LN, HOMOSPACMLNUM(DESNUM(COLUMN,ROW),SPN),

c (-l*HOMOSPACERDEN(DESNUM(COLUMN,ROW),SPN>>,

c GTSECTORSURF(SECT),

c (-l*SPACERTOPSURF), GTSECTBOTSURF(SECT),

c CRAUNIV(COLUMN,ROW), SPN 910 FORMAT(T1,I4,T6,I4,T11,G14.8,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I4, c , $ Homogenized region for spacer ',12)

LN=LN+1 ELSEIF <<SURFVALUESPEC(GTSECTTOPSURF(SECT>>.LT.

c SURFVALUESPEC(SPACERTOPSURF>> .AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>>.LT.

c SURFVALUESPEC(SPACERBOTTOMSURF>> .AND.

c (SURFVALUESPEC(GTSECTTOPSURF(SECT>> .GT.

c SURFVALUESPEC(SPACERBOTTOMSURF>>) THEN WRITE (30, 920) LN, HOMOSPACMLNUM(DESNUM(COLUMN,ROW),SPN),

c (-l*HOMOSPACERDEN(DESNUM(COLUMN,ROW),SPN>>,

c GTSECTORSURF(SECT), .

c (-l*GTSECTTOPSURF(SECT>>, SPACERBOTTOMSURF, c CRAUNIV(COLUMN,ROW), SPN 920 FORMAT(T1,I4,T6,I4,T11,G14.8,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I4, c $ Homogenized region for spacer ',12)

LN=LN+1 ENDIF

• Write the water region cell below the current homogenized spacer cell in this GT universe.

• IF <<SURFVALUESPEC(GTSECTTOPSURF(SECT>> .GT ..

c SURFVALUESPEC(WATERREGIONTOPSURF>>.AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>> .LT.

c SURFVALUESPEC(WATERREGIONBOTTOMSURF>>) THEN WRITE(30,930) LN, BMODML, (-l*MODDENSITY),

c GTSECTORSURF(SECT),

c (-l*WATERREGIONTOPSURF), WATERREGIONBOTTOMSURF, c CRAUNIV(COLUMN,ROW) 930 FORMAT(Tl,I4,T6,I4,T1l,FlO.8,T25,I4,lX,I4,lX,I4,

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 447 of656 c , 1MP:N=l U=',14,' $ Borated moderator region')

LN=LN+l ELSE1F <<SURFVALUESPEC(GTSECTTOPSURF(SECT>>.EQ.

c SURFVALUESPEC(WATERREG10NTOPSURF>>.AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>>.LT.

c SURFVALUESPEC(WATERREG10NBOTTOMSURF>>) THEN WR1TE(30,940) LN, BMODML, (-l*MODDENS1TY),

c GTSECTORSURF(SECT),

c (-l*WATERREG10NTOPSURF), WATERREG10NBOTTOMSURF, c CRAUN1V(COLUMN,ROW) 940 FORMAT(Tl,14,T6,14,Tll,F10.8,T25,I4,lX,I4,lX,14, c , 1MP:N=l U~',I4,' $ Borated moderator region')

LN=LN+l ELSEIF <<SURFVALUESPEC(GTSECTTOPSURF(SECT>>.EQ.

c SURFVALUESPEC(WATERREGIONTOPSURF>> .AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>>.EQ.

c SURFVALUESPEC(WATERREGIONBOTTOMSURF>>) THEN WRITE (30, 950) LN, BMODML, (-l*MODDENSITY),

c GTSECTORSURF(SECT),

c (-l*WATERREGIONTOPSURF), WATERREGIONBOTTOMSURF, c CRAUNIV (COLUMN, ROW) 950 FORMAT(Tl,I4,T6,I4,Tll,F10.8,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I4,' $ Borated moderator region')

LN=LN+l ELSEIF <<SURFVALUESPEC(GTSECTTOPSURF(SECT>>.GT.

,j . c SURFVALUESPEC(WATERREG10NTOPSURF>>.AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>>.EQ.

c SURFVALUESPEC(WATERREGIONBOTTOMSURF>>) THEN WRITE(30,960) LN, BMODML, (-l*MODDENS1TY),

c GTSECTORSURF(SECT),

c (-l*WATERREGIONTOPSURF), WATERREGIONBOTTOMSURF, c CRAUN1V (COLUMN, ROW) 960 FORMAT(Tl,I4,T6,I4,Tll,F10.8,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I4,' $ Borated moderator region')

LN=LN+l ELSEIF <<SURFVALUESPEC(GTSECTTOPSURF(SECT>> .GT.

c SURFVALUESPEC(WATERREGIONTOPSURF>> .AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>> .~T.

c SURFVALUESPEC(WATERREGIONBOTTOMSURF>>.AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>>.LT.

c SURFVALUESPEC(WATERREGIONTOPSURF>>) THEN WRITE (30, 970) LN, BMODML, (-l*MODDENSITY),

c GTSECTORSURF(SECT),

c (-l*WATERREGIONTOPSURF), GTSECTBOTSURF(SECT),

c CRAUNIV (COLUMN, ROW) 970 FORMAT(Tl,I4,T6,I4,Tll,F10.8,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I4i' $ Borated moderator region')

LN=LN+l ELSEIF <<(SURFVALUESPEC(GTSECTTOPSURF(SECT>> .LT.

c SURFVALUESPEC(WATERREGIONTOPSURF>>.AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>> .LT.

c SURFVALUESPEC(WATERREGIONBOTTOMSURF>>.AND.

c (SURFVALUESPEC(GTSECTTOPSURF(SECT>>.GT.

c SURFVALUESPEC(WATERREGIONBOTTOMSURF>>) THEN

Waste Package Operations Engineering Calculation

Title:

CRe Reactivity Calcuiations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 448 of 656 WRITE(30,980) LN, BMODML, (-l*MODDENSITY),

c GTSECTORSURF(SECT),

c (-l*GTSECTTOPSURF(SECT>>, WATERREGIONBOTTOMSURF, c CRAUNIV (COLUMN, ROW) 980 FORMAT(T1,I4,T6,I4,T11,F10.8,T25,I4,lX,I4,lX,I4, c ' IMP:N=l U=',I4,' $ Borated moderator region')

LN=LN+1 ENDIF 990 CONTINUE 1000 CONTINUE

• Write the moderator inside of the GT in the CR universe DO 1060 CRSECT=l,NUMCRAXS(BANKNUM(COLUMN,ROW>>

DO 1050 GTSECT=l,NUMOFGTAXS(DESNUM(COLUMN,ROW>>

IF <<SURFVALUESPEC(GTSECTTOPSURF(GTSECT>>.GE.

c SURFVALUESPEC(CRAXCLADTOPSURF(CRSECT>>).AND.

c (SURFVALUESPEC(GTSECTBOTSURF(GTSECT>>.LE.

c SURFVALUESPEC(CRAXCLADBOTTOMSURF(CRSECT>>>> THEN

• Write the moderator cells within the GT in this CR universe.

WRITE(30,1010) LN, BMODML, (-l*MODDENSITY),

c (-l*GTSECTIRSURF{GTSECT>>,

c CRAXCLADORSURF(CRSECT), (-l*CRAXCLADTOPSURF(CRSECT>>,

c CRAXCLADBOTTOMSURF(CRSECT),

c CRAUNIV{COLUMN,ROW) 1010 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4,lX,I4,

, c , IMP:N=l U=',I3, t c , $ Borated moderator inside guide tube')

LN=LN+1 J

ELSEIF <<SURFVALUESPEC(GTSECTTOPSURF(GTSECT>> .GE.

C SURFVALUESPEC(CRAXCLADTOPSURF(CRSECT>>).AND.

C (SURFVALUESPEC(GTSECTBOTSURF(GTSECT>> .LT.

C SURFVALUESPEC(CRAXCLADTOPSURF(CRSECT>>).AND.

C (SURFVALUESPEC(GTSECTBOTSURF(GTSECT>>.GT.

C SURFVALUESPEC(CRAXCLADBOTTOMSURF(CRSECT>>>> THEN WRITE(30,1020) LN, BMODML, (-l*MODDENSITY),

C (-l*GTSECTIRSURF(GTSECT>>,

C CRAXCLADORSURF(CRSECT), (-l*CRAXCLADTOPSURF(CRSECT>>,

C GTSECTBOTSURF(GTSECT),

c CRAUNIV(COLUMN,ROW) 1020 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4,lX,I4,

.c , IMP:N=1 U=',I3, c $ Borated moderator inside guide tube')

LN=LN+1 ELSEIF <<SURFVALUESPEC(GTSECTTOPSURF(GTSECT>> .LT.

c SURFVALUESPEC(CRAXCLADTOPSURF(CRSECT>>).AND.

c (SURFVALUESPEC(GTSECTBOTSURF(GTSECT>>.LE.

c SURFVALUESPEC(CRAXCLADBOTTOMSURF(CRSECT>>).AND.

c (SURFVALUESPEC(GTSECTTOPSURF(GTSECT>>.GT.

c SURFVALUESPEC(CRAXCLADBOTTOMSURF(CRSECT>>>> THEN WRITE(30,1030) LN, BMODML, (-l*MODDENSITY),

c (-l*GTSECTIRSURF(GTSECT>>,

c CRAXCLADORSURF(CRSECT), (-l*GTSECTTOPSURF{GTSECT>>,

c CRAXCLADBOTTOMSURF{CRSECT),

c CRAUNIV(COLUMN,ROW) 1030 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4,lX,I4,

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculatidhs for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 449 of 656 c , IMP:N=l U=',I3, c $ Borated moderator inside guide tube')

LN=LN+1 ELSEIF <<SURFVALUESPEC(GTSECTTOPSURF(GTSECT>> .LT.

c SURFVALUESPEC(CRAXCLADTOPSURF(CRSECT>>).AND.

c (SURFVALUESPEC(GTSECTBOTSURF(GTSECT>> .GT.

c SURFVALUESPEC(CRAXCLADBOTTOMSURF(CRSECT>>>> THEN WRITE(30,1040) LN, BMODML, (-l*MODDENSITY),

c (-l*GTSECTIRSURF(GTSECT>>,

c CRAXCLADORSURF(CRSECT), (-l*GTSECTTOPSURF(GTSECT>>,

c GTSECTBOTSURF(GTSECT),

c CRAUNIV(COLUMN,ROW) 1040 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3, c , $ Borated moderator inside guide tube')

LN=LN+1 ENDIF 1050 CONTINUE 1060 CONTINUE

• Determine the axial GT section which contains the lowest CR axial section DO 1070 GTSECT=l,NUMOFGTAXS(DESNUM(COLUMN,ROW>>

IF <<SURFVALUESPEC(GTSECTBOTSURF(GTSECT>> .LT.

c SURFVALUESPEC(CRAXCLADBOTTOMSURF c (NUMCRAXS(BANKNUM(COLUMN,ROW>>>>).AND.

c (SURFVALUESPEC(GTSECTTOPSURF(GTSECT>>.GE.

c SURFVALUESPEC(CRAXCLADBOTTOMSURF c (NUMCRAXS(BANKNUM(COLUMN,ROW>>>>>> THEN BGT=GTSECT EXIT ENDIF 1070 CONTINUE DO 1100 GTSECT=BGT,NUMOFGTAXS(DESNUM(COLUMN,ROW>>

IF (GTSECT.EQ.BGT) THEN WRITE(30,1080) LN, BMODML, (-l*MODDENSITY),

c (-l*GTSECTIRSURF(GTSECT>>,

c (-l*CRAXCLADBOTTOMSURF(NUMCRAXS(BANKNUM(COLUMN,ROW>>>>,

c GTSECTBOTSURF(GTSECT),

c CRAUNIV (COLUMN, ROW) 1080 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3, c $ Borated moderator inside guide tube')

LN=LN+1 ELSE i\

WRITE (30, 1090) LN, BMODML, (-l*MODDENSITY),

c (-l*GTSECTIRSURF(GTSECT>>,

c (-l*GTSECTTOPSURF(GTSECT>>,

c GTSECTBOTSURF(GTSECT),

c CRAUNIV(COLUMN,ROW) .

1090 FORMAT(T1,I4,T6,I4,Tl1,FB.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3, c $ Borated moderator inside guide tube')

LN=LN+1 ENDIF

. 1100 CONTINUE

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 450 of 656

• Write the lower end-fitting cell specification for this CR universe.

GTBOTSURF=GTSECTBOTSURF(NUMOFGTAXS(DESNUM(COLUMN,ROW>>)

IF (SURFVALUESPEC(GTBOTSURF).GE.

c ENDFITHEIGHT(DESNUM(COLUMN,ROW),2>> THEN WRITE (30, 1110) LN, FRLEFML(COLUMN,ROW),

c (-1 *LEFMAT (DESNUM (COLUMN, ROW) , 1) ) ,(-1 *CRLEFTOPSURF) ,

c CRAUNIV(COLUMN,ROW) 1110 FORMAT(Tl,I4,T6,I4,Tll,FB.5,T25,I4,' IMP:N=1 U=',I3, c , $ Lower end-fitting')

LN=LN+l ELSE WRITE (30, 1120) LN, FRLEFML(COLUMN,ROW),

c (-I*LEFMAT(DESNUM(COLUMN,ROW),I>>, (-I*CRLEFTOPSURF),

c GTSECTORSURF(NUMOFGTAXS(DESNUM(COLUMN~ROW>>),

c CRAUNIV(COLUMN,ROW) 1120 FORMAT(Tl,I4,T6,I4,Tll,FB.5,T25,I4,IX,I4, c , IMP:N=1 U=',I3,' $ Lower end-fitting')

LN=LN+l WRITE (30, 1130) LN, FRLEFML(COLUMN,ROW),

c (-I*LEFMAT(DESNUM(COLUMN,ROW),I>>,

c (-I*GTSECTBOTSURF(NUMOFGTAXS(DESNUM(COLUMN,ROW>>>>,

c (-I*GTSECTORSURF(NUMOFGTAXS(DESNUM(COLUMN,ROW>>>>,

c CRAUNIV(COLUMN,ROW) 1130 FORMAT(Tl,I4,T6,I4,Tll,FB.5,T25,I4,IX,I4, c , IMP:N=1 U=',I3,' $ Lower end-fitting')

1 j'

LN=LN+l ENDIF

• Write the upper end-fitting cell specification for this CR universe.

GTTOPSURF=GTSECTTOPSURF(I) ,

GTSECTORSURF(I) =GTSECTORSURF (1)

GTSECTIRSURF(I)=GTSECTIRSURF(I)

CRCLADTOPSURF=CRAXCLADTOPSURF(I)

CRCLADIRSURF=CRAXCLADIRSURF(I)

CRCLADORSURF=CRAXCLADORSURF(I)

IF <<SURFVALUESPEC(GTTOPSURF) .GE.

c SURFVALUESPEC(UEFTOPSURF>> .AND.

c (SURFVALUESPEC(CRCLADTOPSURF).GE.

c SURFVALUESPEC(UEFTOPSURF>>) THEN WRITE(30,1131) LN, FRUEFML(COLUMN,ROW),

c (-I*UEFMAT(DESNUM(COLUMN,ROW),I>>, UEFBOTTOMSURF, c (-I*UEFTOPSURF), GTSECTORSURF(I), CRAUNIV(COLUMN,ROW) 1131 FORMAT(Tl,I4,T6,I4,Tll,FB.5,T25,I4,IX,I4,IX,I4, c , IMP:N=1 U=',I3,' $ Upper end-fitting')

LN=LN+l ELSEIF <<SURFVALUESPEC(GTTOPSURF) .LT.

c SURFVALUESPEC(UEFTOPSURF>>.AND.

c (SURFVALUESPEC(GTTOPSURF) .GT.

c SURFVALUESPEC(UEFBOTTOMSURF>> .AND.

c (SURFVALUESPEC(CRCLADTOPSURF).GE.

c SURFVALUESPEC(UEFTOPSURF>>) THEN WRITE (30, 1132) LN, FRUEFML(COLUMN,ROW)~

c (-I*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-I*UEFTOPSURF), GTSECTORSURF(I), CRAUNIV(COLUMN,ROW) 1132 FORMAT(Tl,I4,T6,I4,Tll,FB.5,T25,I4,IX,I4,lX,I4,

Waste Package Operations Engineering Calculation

Title:

CRe Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 451 of656 c , IMP:N=l U=',I3,' $ Upper end-fitting')

LN=LN+l WRITE(30,ll33) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, GTTOPSURF, c (-l*UEFTOPSURF), CRCLADORSURF, (-l*GTSECTORSURF(l>>,

c CRAUNIV (COLUMN, ROW) 1133 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4,lX,I4, c , IMP:N=l U-',I3,' $ Upper end-fitting')

LN=LN+l ELSEIF <<SURFVALUESPEC(GTTOPSURF).LE.

c SURFVALUESPEC(UEFBOTTOMSURF>> .AND.

c (SURFVALUESPEC(CRCLADTOPSURF) .GE.

c SURFVALUESPEC(UEFTOPSURF>>) THEN WRITE(30,ll34) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF), CRCLADORSURF, CRAUNIV(COLUMN,ROW) 1134 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Upper end-fitting')

LN=LN+l ELSEIF <<SURFVALUESPEC(GTTOPSURF).GE.

c SURFVALUESPEC(UEFTOPSURF>> .AND.

c (SURFVALUESPEC(CRCLADTOPSURF).GT.

c SURFVALUESPEC(UEFBOTTOMSURF>>.AND.

c (SURFVALUESPEC(CRCLADTOPSURF).LT.

c SURFVALUESPEC(UEFTOPSURF>>) THEN

) WRITE(30,l135) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF), GTSECTORSURF(l), CRAUNIV(COLUMN,ROW) 1135 FORMAT (Tl, 14, T6, 14, Tll, F8. 5, T25, 14, lX, 14, lX, 14, c , IMP:N=l U=',I3,' $ Upper end-fitting')

LN=LN+l WRITE(30,ll36) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, CRCLADTOPSURF, c (-l*UEFTOPSURF), (-l*GTSECTIRSURF(l>>,

c CRAUNIV (COLUMN, ROW)

• 1136 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Upper end-fitting')

LN=LN+l ELSEIF <<SURFVALUESPEC(GTTOPSURF).LT.

c SURFVALUESPEC(UEFTOPSURF>> .AND.

c (SURFVALUESPEC(GTTOPSURF).GT.

c SURFVALUESPEC(CRCLADTOPSURF>>.AND.

c (SURFVALUESPEC(CRCLADTOPSURF).GT.

c SURFVALUESPEC(UEFBOTTOMSURF>>.AND.

c (SURFVALUESPEC(CRCLADTOPSURF).LT.

c SURFVALUESPEC(UEFTOPSURF>>) THEN WR1TE(30,ll37) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF), GTSECTORSURF(l), CRAUNIV (COLUMN, ROW) 1137 FORMAT(Tl,~4,T6,14,Tll,F8.5,T25,I4,lX,14,lX,I4, c , 1MP:N=l U=',13,' $ Upper end-fitting')

LN=LN+l WR1TE(30,1138) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, CRCLADTOPSURF,

Waste Package Operations .Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 DocumentIdentifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 452 of 656 J

c (-l*UEFTOPSURF), (-l*GTSECTIRSURF(l>>,

c CRAUNIV(COLUMN,ROW) 1138 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Upper end-fitting')

LN=LN+l WRITE(30,1139) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, GTTOPSURF, c (-l*UEFTOPSURF), GTSECTIRSURF(l),

c (-l*GTSECTORSURF(l>>, CRAUNIV(COLUMN,ROW) 1139 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Upper end-fitting')

LN=LN+l ELSEIF <<SURFVALUESPEC(GTTOPSURF).EQ.

c SURFVALUESPEC(CRCLADTOPSURF>> .AND.

c (SURFVALUESPEC(CRCLADTOPSURF).GT.

c SURFVALUESPEC(UEFBOTTOMSURF>>.AND.

c (SURFVALUESPEC(CRCLADTOPSURF).LT.

c SURFVALUESPEC(UEFTOPSURF>>) THEN WRITE(30,1140) ~N, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF), GTSECTORSURF(l), CRAUNIV (COLUMN, ROW) 1140 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Upper end-fitting')

LN=LN+l

, WRITE(30,l141) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, CRCLADTOPSURF, 1 c (-l*UEFTOPSURF), (-l*GTSECTORSURF(l>>,

c CRAUNIV(COLUMN,ROW) 1141 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4, c ,0 IMP:N=l U=',I3,' $ Upper end-fitting')

LN=LN+l ELSEIF <<SURFVALUESPEC(GTTOPSURF).LT.

c SURFVALUESPEC(CRCLADTOPSURF>>.AND.

c (SURFVALUESPEC(GTTOPSURF).GT.

c SURFVALUESPEC(UEFBOTTOMSURF>> .AND.

c (SURFVALUESPEC(CRCLADTOPSURF) .GT.

c SURFVALUESPEC(UEFBOTTOMSURF>> .AND.

c (SURFVALUESPEC(CRCLADTOPSURF).LT.

c SURFVALUESPEC(UEFTOPSURF>>) THEN WRITE(30,1142) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF), GTSECTORSURF(l), CRAUNIV (COLUMN, ROW) 1142 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Upper end-fitting')

LN=LN+l WRITE(30,1143)LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, CRCLADTOPSURF, c (-l*UEFTOPSURF), (-l*GTSECTORSURF(l>>,

c CRAUNIV (COLUMN, ROW) 1143 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Upper end-fitting')

LN=LN+l WRITE(30,1144) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, GTTOPSURF,

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 DocumentIdentifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 453 of 656 c (-l*CRCLADTOPSURF), CRCLADORSURF, c (-l*GTSECTORSURF(l>>, CRAUNIV(COLUMN,ROW) 1144 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Upper 'end-fitting')

LN=LN+l ELSEIF <<SURFVALUESPEC(GTTOPSURF).LE.

c SURFVALUESPEC(UEFBOTTOMSURF>>.AND.

c (SURFVALUESPEC(CRCLADTOPSURF).GT.

c SURFVALUESPEC(UEFBOTTOMSURF>>.AND.

c (SURFVALUESPEC(CRCLADTOPSURF).LT.

c SURFVALUESPEC(UEFTOPSURF>>) THEN WRITE(30,1145) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF), CRCLADORSURF, CRAUNIV(COLUMN,ROW) 1145 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4, C , IMP:N=l U=',I3,' $ Upper end-fitting')

LN=LN+l WRITE(30,1146) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, CRCLADTOPSURF, c (-l*UEFTOPSURF), (-l*CRCLADORSURF),

c CRAUNIV (COLUMN, ROW) 1146 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Upper end-fitting')

LN=LN+l ELSEIF <<(SURFVALUESPEC(CRCLADTOPSURF).LE .

J c SURFVALUESPEC(UEFBOTTOMSURF>>.AND.

c (SURFVALUESPEC(GTTOPSURF).GE.

c SURFVALUESPEC(UEFTOPSURF>>) THEN WRITE(30,1147) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF), GTSECTORSURF(l), CRAUNIV (COLUMN, ROW) 1147 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Upper end-fitting')

LN=LN+l WRITE(30,1148) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, CRCLADTOPSURF, c (-l*UEFTOPSURF), (-l*GTSECTIRSURF(l>>,

c CRAUNIV(COLUMN,ROW) 1148 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Upper end-fitting')

LN=LN+l ELSEIF <<SURFVALUESPEC(CRCLADTOPSURF) .LE.

c SURFVALUESPEC(UEFBOTTOMSURF>>.AND.

c (SURFVALUESPEC(GTTOPSURF) .LT.

c SURFVALUESPEC(UEFTOPSURF>>.AND.

c (SURFVALUESPEC(GTTOPSURF).GT.

c SURFVALUESPEC(UEFBOTTOMSURF>>) THEN WRITE(30,1149) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF), GTSECTORSURF(l), CRAUNIV (COLUMN, ROW) 1149 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Upper end-fitting')

LN=LN+l WRITE(30,1150) LN, FRUEFML(COLUMN,ROW),

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 454 of 656 c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>), CRCLADTOPSURF, c (-l*UEFTOPSURF), (-l*GTSECTIRSURF(l)),

c CRAUNIV(COLUMN,ROW) 1150 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Upper end-fitting')

LN=LN+1 WRITE (30, 1151) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l)), GTTOPSURF, c (-l*UEFTOPSURF), (-l*GTSECTORSURF(l)),

c GTSECTIRSURF(l), CRAUNIV (COLUMN, ROW) 1151 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ *Upper end-fitting')

LN=LN+1 ELSEIF <<SURFVALUESPEC(CRCLADTOPSURF).LE.

c SURFVALUESPEC(UEFBOTTOMSURF).AND.

c (SURFVALUESPEC(GTTOPSURF).LE.

c SURFVALUESPEC(UEFBOTTOMSURF>>)) THEN

. WRITE (30, 1152) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF),CRAUNIV(COLUMN,ROW) 1152 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4, c , IMP:N=l U=',I3,' $ Upper end-fitting')

LN=LN+1 ENDIF j ************************************************************************

• • • • • • • • • • • • • ~**********************************************************

• SPECIFICATIONS FOR HYBRID=l AND GTSPLIT<>l

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity CalculatIons for Sequoyah Unit 2

-I Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 455 of 656 ELSEIF <<HYBRID.EQ.1).AND. (GTSPLIT.NE.1>> THEN DO 1280 SECT~1,NUMCRAXS(BANKNUM(COLUMN,ROW>>

• Define the CR absorber radius.

CURRENTSURF=CRAXDIM(BANKNUM(COLUMN,ROW),1,SECT)

CURRENTSURFLABEL=O DO 1190 V=1, (SN-1)

IF (SURFTYPESPEC(V).EQ.'CZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 1190 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN CRAXABSSURF(SECT)~SN SURFTYPESPEC(SN)-'CZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE CRAXABSSURF(SECT)=CURRENTSURFLABEL ENDIF

• Define the CR absorber top surface.

CURRENTSURF=ENDFITHEIGHT(DESNUM(COLUMN,ROW),2)+

c CRAXDIM(BANKNUM(COLUMN,ROW),4,SECT)+

c CRAXDIM(BANKNUM(COLUMN,ROW),5,SECT)

IF (CURRENTSURF.GE.SURFVALUESPEC(UEFTOPSURF>> THEN

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calcuiat10hs for Sequoyah Unit 2

':: Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 456 of 656 CURRENTSURF=SURFVALUESPEC(UEFTOPSURF)

ENDIF CURRENTSURFLABEL=O DO 1200 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENT5URF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 1200 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN CRAXABSTOPSURF(SECT)-SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+1 ELSE CRAXABSTOPSURF(SECT)=CURRENTSURFLABEL ENDIF

• Define the CR absorber bottom surface.

CURRENTSURF=ENDFITHEIGHT(DESNUM(COLUMN,ROW),2)+

c CRAXDIM(BANKNUM(COLUMN,ROW),4,SECT)

IF (CURRENTSURF.GE.SURFVALUESPEC(UEFTOPSURF>> THEN CURRENTSURF=SURFVALUESPEC(UEFTOPSURF)

ENDIF

.- }

CURRENTSURFLABEL=O DO 1210 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 1210 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN CRAXABSBOTTOMSURF(SECT)=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE CRAXABSBOTTOMSURF(SECT)=CURRENTSURFLABEL ENDIF

• Define the CR cladding inner radius *

. CURRENTSURF=CRAXDIM(BANKNUM(COLUMN,ROW),2,SECT)

CURRENTSURFLABEL=O DO 1220 V=l, (SN-1)

IF. (SURFTYPESPEC(V) .EQ.'CZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 1220 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 457 of 656 l

CRAXCLADIRSURF (SECT) =SN SURFTYPESPEC(SN)='CZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+1 ELSE CRAXCLADIRSURF(SECT)=CURRENTSURFLABEL ENDIF*

• Define the CR cladding outer radius.

CURRENTSURF=CRAXDIM(BANKNUM(COLUMN,ROW),3,SECT)

CURRENTSURFLABEL=O DO 1230 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'CZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 1230 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN CRAXCLADORSURF(SECT)=SN SURFTYPESPEC(SN)='CZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE

.' -" CRAXCLADORSURF(SECT)=CURRENTSURFLABEL

) ENDIF TOPSECT=l DO 1240 C=2,NUMCRAXS(BANKNUM(COLUMN,ROW>>

IF (SURFVALUESPEC(CRAXCLADTOPSURF(C>>.GT.

c SURFVALUESPEC(CRAXCLADTOPSURF(TOPSECT>>) THEN TOPSECT..C ENDIF 1240 CONTINUE

• Define the CR cladding top surface.

IF (SECT.EQ.TOPSECT) THEN CURRENTSURF=CRAXDIM(BANKNUM(COLUMN,ROW),4,SECT)+

c CRAXDIM(BANKNUM(COLUMN,ROW),5,SECT)+

c ENDFITHEIGHT(DESNUM(COLUMN,ROW),2)+

c CRADIM(BANKNUM(COLUMN,ROW),7)

ELSE CURRENTSURF=CRAXDIM(BANKNUM(COLUMN,ROW),4,SECT)+

c CRAXDIM(BANKNUM(COLUMN,ROW),5,SECT)+

c ENDFITHEIGHT(DESNUM(COLUMN,ROW),2)

ENDIF IF (CURRENTSURF.GE.SURFVALUESPEC(UEFTOPSURF>> THEN CURRENTSURF=SURFVALUESPEC(UEFTOPSURF)

ENDIF CURRENTSURFLABEL=O DO 1250 V=I, (SN-1)

IF (SURFTYPESPEC(V) .EQ. 'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2

') Document Identifier: 800000000-01717-0210-00006 REV 00 .Attachment I, Page 458 of656 ENDIF 1250 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN CRAXCLADTOPSURF(SECT)~SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+l ELSE CRAXCLADTOPSURF(SECT)=CURRENTSURFLABEL ENDIF BOTSECT-l DO 1260 C~2,NUMCRAXS(BANKNUM(COLUMN,ROW>>)

IF (SURFVALUESPEC(CRAXCLADBOTTOMSURF(C) .LT.

c SURFVALUESPEC(CRAXCLADBOTTOMSURF(BOTSECT))) THEN BOTSECT=C ENDIF 1260 CONTINUE

• Define the CR cladding bottom surface.

IF (SECT.EQ~BOTSECT) THEN CURRENTSURF=CRAXDIM(BANKNUM(COLUMN,ROW),4,SECT)+

c ENDFITHEIGHT(DESNUM(COLUMN,ROW),2)+

c CRADIM(BANKNUM(COLUMN,ROW),6)

ELSE CURRENTSURF=CRAXDIM{BANKNUM(COLUMN,ROW),4,SECT)+

c ENDFITHEIGHT(DESNUM(COLUMN,ROW),2)

ENDIF IF (CURRENTSURF.GE.SURFVALUESPEC{UEFTOPSURF)) THEN CURRENTSURF=SURFVALUESPEC(UEFTOPSURF)

ENDIF CURRENTSURFLABEL=O DO 1270 V=I, (SN-1)

IF '(SURFTYPESPEC (V) .EQ. 'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001)) THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 1270 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN CRAXCLADBOTTOMSURF(SECT)=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE CRAXCLADBOTTOMSURF(SECT)=CURRENTSURFLABEL ENDIF 1280 CONTINUE

• Define the GT top surface.

CURRENTSURF=GTDATA(DESNUM(COLUMN,ROW),3)

IF (CURRENTSURF.GT.SURFVALUESPEC(UEFTOPSURF)) THEN CURRENTSURF=SURFVALUESPEC(UEFTOPSURF)

ENDIF CURRENTSURFLABEL=O DO 1290 V=1, (SN-l)

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-021 0-00006 REV 00 A~chment I, Page 459 of 656 IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 1290 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN GTTOPSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+l ELSE GTTOPSURF=CURRENTSURFLABEL ENDIF

• D~fine the GT bottom surface.

CURRENTSURF=GTDATA(DESNUM(COLUMN,ROW),4)

CURRENTSURFLABEL=O DO 1300 V=I, (SN-l)

IF (SURFTYPESPEC(V) .EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 1300 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN GTBOTSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESP~C(SN)=CURRENTSURF SN=SN+!

ELSE GTBOTSURF=CURRENTSURFLABEL ENDIF

• Define the GT outer radius surface.

CURRENTSURF=GTDATA(DESNUM(COLUMN,ROW),2)

CURRENTSURFLABEL=O DO 1310 V=I, (SN-l)

IF (SURFTYPESPEC(V).EQ.'CZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 1310 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN GTORSURF=SN SURFTYPESPEC(SN)='CZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+l ELSE GTORSURF=CURRENTSURFLABEL ENDIF

• Define the GT inner radius surface.

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 460 of 656 CURRENTSURF=GTDATA(DESNUM(COLUMN,ROW),I)

CURRENTSURFLABEL=O DO 1320 V=I, (SN-l)

IF (SURFTYPESPEC(V).EQ.'CZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT

,ENDIF ENDIF 1320 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN GTIRSURF=SN SURFTYPESPEC(SN)='CZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+l ELSE GTIRSURF=CURRENTSURFLABEL ENDIF

• Write the GT material cell in this GT universe.

• Determine if the GT material specification has

• previously been defined. If it has been previously defined, determine

• the material specification label.

CLADMLUNIQUE=.TRUE.

LEAVE=.FALSE.

IF <<COLUMN.NE.l).AND. (ROW.NE.l>> THEN i

0' DO 1340 RO=I, (ROW-I)

DO 1330 CO=I,50 IF <<DESNUM(CO,RO).NE.O) .AND.

c (BANKNUM(CO,RO).EQ.O>> THEN IF (GTMAT(DESNUM(COLUMN,ROW>> .EQ.

c GTMAT(DESNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTML(COLUMN,ROW)=GTML(CO,RO)

EXIT ENDIF ENDIF 1330 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 1340 CONTINUE IF (LEAVE.EQ.. FALSE.) THEN DO 1360 RO=ROW,ROW DO 1350 CO=I, (COLUMN-I)

IF <<DESNUM(CO,RO).NE.O) .AND.

c (BANKNUM(CO,RO).EQ.O>> THEN IF (GTMAT(DESNUM(COLUMN,ROW>> .EQ.

c GTMAT(DESNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTML(COLUMN,ROW)=GTML(CO,RO)

EXIT ENDIF

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 461 of656 ENDIF 1350 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 1360 CONTINUE ENDIF ELSEIF <<COLUMN.EQ.1).AND. (ROW.NE.1>> THEN DO 1380 RO=1, (ROW-1)

DO 1370 CO=1,50 IF <<DESNUM(CO,RO).NE.O).AND.

c (BANKNUM(CO,RO).EQ.O>> THEN IF (GTMAT(DESNUM(COLUMN,ROW>>.EQ.

c GTMAT(DESNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTML (COLUMN, ROW) =GTML (CO, RO)

EXIT

'ENDIF ENDIF 1370 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 1380 CONTINUE ELSEIF <<ROW,EQ.1).AND.(COLUMN.NE.1>> THEN DO 1400 RO=1,1 DO 1390 CO=1, (COLUMN-1)

IF <<DESNUM(CO,RO).NE.O) .AND .

.c (BANKNUM(CO,RO).EQ.O>> THEN IF (GTMAT(DESNUM(COLUMN,ROW>> .EQ.

c GTMAT(DESNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTML(COLUMN,ROW)=GTML(CO,RO)

EXIT ENDIF ENDIF 1390 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 1400 CONTINUE ENDIF IF (CLADMLUNIQUE.EQ .. TRUE.) THEN GTML(COLUMN,ROW)=MN

• Check Guide Tube Material IF (GTMAT(DESNUM(COLUMN,ROW>>.EQ.1) THEN DO 1410 C=1,2 IF (C.EQ.1) THEN WRITE(200,9300) GTML (COLUMN, ROW)

ELSEIF (C.EQ.2) THEN WRITE(200,9301)

WRITE(200,7000)

Waste Package Operations Engineering Calculation.

Title:

CRC Reactivity Calcuttitions for Sequoyah Unit 2

.'. Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 462 of 656 j

WRITE (200, 7001)

WRITE(200,7002)

WRITE(200,9302)

WRITE(200,7003)

WRITE(200,7004)

WRITE(200,7005)

WRITE (200, 9303)

WRITE (200, 9304)

ENDIF 1410 CONTINUE ELSEIF (GTMAT(DESNUM(COLUMN,ROW>>

c .EO.2) THEN DO 1420 C=1,2 IF (C.EO.1) THEN WRITE (200, 9305) GTML (COLUMN, ROW)

ELSEIF (C.EO.2) THEN WRITE(200,9306)

WRITE(200,9307)

WRITE (200, 9308)

WRITE(200,9309)

WRITE (200, 9310)

WRITE(200,7006)

WRITE (200, 7007)

WRITE(200,7008)

..... WRITE (200, 9311)

} WRITE(200,9312)

WRITE(200,7009)

WRITE (200, 7010)

WRITE (200, 7011)

WRITE(200,9313)

WRITE(200,7012)

WRITE(200,7013)

WRITE (200, 7014)

WRITE(200,7015)

ENDIF 1420 CONTINUE ELSEIF (GTMAT(DESNUM(COLUMN,ROW>>

c .EO.3) THEN DO 1430 C=1,2 IF (C.EO.1) THEN

. WRITE(200,9314) GTML(COLUMN,ROW)

ELSEIF (C.EO.2) THEN WRITE (200, 9315)

WRITE (200, 9316)

WRITE(200,9317)

WRITE(200,9318)

WRITE (200, 7016)

WRITE (200, 7017)

WRITE(200,7018)

WRITE(200,9319)

WRITE(200,9320)

WRITE(200,7019)

WRITE (200, 7020)

WRITE(200,7021)

Waste Package Operations Engineering Calculation

Title:

CRe Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 463 of 656 WRITE (200, 9321)

WRITE(200,7022)

WRITE(200,7023)

WRITE (200, 7024)

WRITE(200,7025)

WRITE(200,9322)

WRITE(200,9323)

WRITE(200,9324)

WRITE(200,9325) ,

WRITE (200, 9326)

WRITE (200, 9327)

WRITE(200,7026)

WRITE (200, 932S)

WRITE (200, 9329)

, WRITE (200,9330)

ENDIF 1430 CONTINUE

'ENDIF MN=MN+1 ENDIF IF (GTMAT(DESNUM(COLUMN,ROW>>.EQ.1) THEN CLADRH0=6.56 ELSEIF (GTMAT(DESNUM(COLUMN,ROW>>.EQ.2) THEN CLADRHO=7.90 ELSEIF (GTMAT(DESNUM(COLUMN,ROW>>.EQ.3) THEN j CLADRHO=S .19 ENDIF WRITE (30, 1440) LN, GTML(COLUMN,ROW), (-1*CLADRHO),

c GTIRSURF, c (-1*GTORSURF), (-l*GTTOPSURF), GTBOTSURF, c GTUNIV(COLUMN,ROW) 1440 FORMAT(T1,I4,T6,I4,T11,FS.5,T25,I4,lX,I4,lX,I4,lX,I4, c , IMP:N=1 U=',I4,' $ Guide tube')

LN=LN+1 SPACHEIGHT=O.O

• Loop through the spacer and moderator regions along the axial

• length of the GT (from top to bottom) .

DO 1450 SPN=1,NUMOFSPACERS(DESNUM(COLUMN,ROW>>

SPACHEIGHT=SPACHEIGHT+SPACERHEIGHT(D~SNUM(COLUMN,ROW),SPN) 1450 CONTINUE DO 1530 SPN=1,NUMOFSPACERS(DESNUM(COLUMN,ROW>>

• Define the homogenized spacer region bounding surfaces.

IF (SPN.EQ.1) THEN SPACERTOPSURF=UEFBOTTOMSURF CURRENTSURF=SURFVALUESPEC(UEFBOTTOMSURF)-

c SPACERHEIGHT(DESNUM(COLUMN,ROW),SPN)

CURRENTSURFLABEL=O DO 1460 V=1, (SN-1)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2

. Document Identifier: BOOOOOOOO-01717-021 0-00006 REV 00 Attachment I, Page 464 of 656 1460 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN SPACERBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE SPACERBOTTOMSURF=CURRENTSURFLABEL ENDIF WATERREGIONTOPSURF=SPACERBOTTOMSURF CURRENTSURF=SPACERDIST(DESNUM(COLUMN,ROW), (SPN+1>>

CURRENTSURFLABEL=O DO 1470 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 1470 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN WATERREGIONBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE WATERREGIONBOTTOMSURF=CURRENTSURFLABEL ENDIF ELSEIF <<SPN.NE.1).AND. (SPN.NE.

c NUMOFSPACERS(DESNUM(COLUMN,ROW>>>> THEN SPACERTOPSURF-WATERREGIONBOTTOMSURF CURRENTSURF=SURFVALUESPEC(WATERREGIONBOTTOMSURF)-

c SPACERHEIGHT(DESNUM(COLUMN,ROW),SPN)

CURRENTSURFLABEL=O DO 1480 V=l, (SN-I)

IF (SURFTYPESPEC(V) .EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN*

CURRENTSURFLABEL=V EXIT ENDIF ENDIF 1480 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN SPACERBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+1 ELSE SPACERBOTTOMSURF=CURRENTSURFLABEL ENDIF WATERREGIONTOPSURF=SPACERBOTTOMSURF CURRENTSURF=SPACERDIST(DESNUM(COLUMN,ROW), (SPN+1>>

CURRENTSURFLABEL=O DO 1490 Vel, (SN-1)

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyab Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 465 of 656 IF (SURFTYPESPEC(V) .EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001)) THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 1490 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN WATERREGIONBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE WATERREGIONBOTTOMSURF=CURRENTSURFLABEL ENDIF ELSEIF (SPN.EQ.NUMOFSPACERS(DESNUM(COLUMN,ROW))) THEN SPACERTOPSURF=WATERREGIONBOTTOMSURF CURRENTSURF=SURFVALUESPEC(WATERREGIONBOTTOMSURF)-

c SPACERHEIGHT(DESNUM(COLUMN,ROW),SPN)

CURRENTSURFLABEL=O DO 1500 V=l, (SN-l)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001)) THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 1500 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN SPACERBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE SPACERBOTTOMSURF=CURRENTSURFLABEL ENDIF WATERREGIONTOPSURF=SPACERBOTTOMSURF WATERREGIONBOTTOMSURF=NODEBOTTOMSURF ENDIF

• Write the current homogenized spacer region cell in this GT universe.

WRITE(30,1510) LN, HOMOSPACMLNUM(DESNUM(COLUMN,ROW),SPN),

c (-l*HOMOSPACERDEN(DESNUM(COLUMN,ROW),SPN)), GTORSURF, c (-l*SPACERTOPSURF), SPACERBOTTOMSURF, GTUNIV(COLUMN,ROW),

c SPN 1510 FORMAT(Tl,I4,T6,I4,T1l,G14.8,T25,I4,lX,I4,IX,I4, c , IMP:N=l U=',I4, c $ Homogenized region for spacer ',12)

LN=LN+l

• Write the water region cell below the current homogenized spacer cell in this GT universe.

WRITE(30,1520) LN, BMODML, (-l*MODDENSITY), GTORSURF, c (-l*WATERREGIONTOPSURF), WATERREGIONBOTTOMSURF, c GTUNIV(COLUMN,ROW) 1520 FORMAT(Tl,I4,T6,I4,T1l,FlO.8,T25,I4,lX,I4,lX,I4,

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 466 of 656 c , IMP:N=l U=',I4,' $ Borated moderator region')

LN=LN+l 1530 CONTINUE DO 1950 SECT=l,NUMCRAXS(BANKNUM(COLUMN,ROW>>

IF (SURFVALUESPEC{CRAXABSBOTTOMSURF(SECT>>.LT.

c SURFVALUESPEC(UEFTOPSURF>> THEN

• Check Control Rod Absorber Material CRABSML=MN DO 1560 C=1,CRABSAXMAT(BANKNUM(COLUMN,ROW),2,SECT)

IF (C.EQ.l) THEN WRITE (200, 1540) CRABSML, c CRABSAXZAIDS(BANKNUM(COLUMN,ROW),C,SECT),

c (-l*CRABSAXWTS(BANKNUM(COLUMN,ROW),C,SECT>>,

c ASSYID (COLUMN, ROW) 1540 FORMAT(Tl,'M',I4,T9,A9,3X,G14.6, c $ Control Rod Absorber Material in Assembly ,

c AS)

ELSE WRITE (200, 1550) c CRABSAXZAIDS(BANKNUM(COLUMN,ROW),C,SECT),

c (-l*CRABSAXWTS(BANKNUM(COLUMN,ROW),C,SECT>>

1550 FORMAT(T9,A9,3X,G14.6)

ENDIF 1560 CONTINUE MN=MN+l

• Write the CR absorber cell in this CR universe.

WRITE (30, 1570) LN, CRABSML, c (-l*CRABSAXMAT(BANKNUM(COLUMN,ROW),I,SECT>>,

c (-l*CRAXABSSURF(SECT>>,

c (-l*CRAXABSTOPSURF(SECT>>, CRAXABSBOTTOMSURF(SECT),

c CRAUNIV (COLUMN, ROW) 1570 FORMAT(Tl,I4,T6,I4,Tll,F10.6,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Control rod absorber material')

LN=LN+l

• Write the absorber-to-cladding gap cell in this CR universe.

WRITE(30,1580) LN, (-l*CRAXCLADIRSURF(SECT>>,

c CRAXABSSURF(SECT), (-l*CRAXABSTOPSURF(SECT>>,

c CRAXABSBOTTOMSURF(SECT), CRAUNIV(COLUMN,ROW) 1580 FORMAT(Tl,I4,T6, '0',T25,I4,lX,I4,.lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Absorber-to-cladding gap')

LN=LN+l ENDIF

• Write the CR cladding cell in this CR universe.

• Determine if the CR cladding material specification has

• previously been defined. If it has been previously defined, determine

• the cladding material specification label.

CLADMLUNIQUE=.TRUE.

LEAVE=.FALSE.

IF <<COLUMN.NE.I).AND.(ROW.NE.I>> THEN DO 1600 RO=I, (ROW-I)

DO 1590 CO=1,50 IF (BANKNUM(CO,RO) .NE.O) THEN IF (BANKDES(BANKNUM(CO,RO>>.EQ.'CRA ') THEN IF (CRAXCLADMAT(BANKNUM(COLUMN,ROW),SECT) .EQ.

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 467 of 656 c CRCLADMAT(BANKNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

CRAXCLADML (COLUMN, ROW, SECT) =CRCLADML (CO, RO)

EXIT ENDIF IF (CRAXCLADMAT(BANKNUM(COLUMN,ROW),SECT).EQ.

c CRAXCLADMAT(BANKNUM(CO,RO),SECT>> THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

CRAXCLADML(COLUMN,ROW,SECT)=

c CRAXCLADML (CO, RO, SECT)

EXIT ENDIF ENDIF ENDIF 1590 CONTINUE IF (LEAVE.EQ *. TRUE.) THEN EXIT ENDIF 1600 . CONTINUE IF (LEAVE.EQ .* FALSE.) THEN DO 1620 RO=ROW,ROW DO 1610 CO=I, (COLUMN-I)

IF (BANKNUM(CO,RO).NE.O) THEN J IF (BANKDES(BANKNUM(CO,RO>>.EQ.'CRA ') THEN IF (CRCLADMAT(BANKNUM(COLUMN,ROW>>.EQ.

c CRAXCLADMAT(BANKNUM(CO,RO),SECT>> THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

CRAXCLADML (COLUMN, ROW, SECT)=CRCLADML (CO, RO)

EXIT ENDIF IF (CRAXCLADMAT(BANKNUM(COLUMN,ROW),SECT).EQ.

c CRAXCLADMAT(BANKNUM(CO,RO),SECT>> THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

CRAXCLADML(COLUMN,ROW,SECT)=

c CRAXCLADML(CO,RO,SECT)

EXIT ENDIF ENDIF ENDIF 1610 CONTINUE IF (LEAVE.EQ *. TRUE.) THEN EXIT ENDIF 1620 CONTINUE ENDIF ELSEIF <<COLUMN.EQ.l).AND. (ROW.NE.1>> THEN DO 1640 RO=1, (ROW-1)

DO 1630 CO=1,50 IF (BANKNUM (CO, RO) .NE.O) THEN IF (BANKDES(BANKNUM(CO,RO>>.EQ.'CRA ') THEN

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-021 0-00006 REV 00 Attachment I, Page 468 of 656 IF (CRCLADMAT(BANKNUM(COLUMN,ROW>>.EQ.

c CRAXCLADMAT(BANKNUM(CO,RO),SECT>> THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

CRAXCLADML (COLUMN, ROW, SECT)=CRCLADML (CO, RO)

EXIT ENDIF IF (CRAXCLADMAT(BANKNUM(COLUMN,ROW),SECT) .EQ.

c CRAXCLADMAT(BANKNUM(CO,RO),SECT>> THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

CRAXCLADML(COLUMN,ROW,SECT)=

c CRAXCLADML(CO, RO, SECT)

EXIT ENDIF ENDIF

. ENDIF 1630 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 1640 CONTINUE ELSEIF <<ROW.EQ.1).AND. (COLUMN.NE.1>> THEN DO 1660 RO=l,l DO 1650 CO=l, (COLUMN-1)

.t IF (BANKNUM(CO,RO).NE.O) THEN

.~-- IF (BANKDES(BANKNUM(CO,RO>> .EQ. 'CRA ') THEN IF (CRCLADMAT(BANKNUM(COLUMN,ROW>>.EQ.

c CRAXCLADMAT(BANKNUM(CO,RO),SECT>> THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

CRAXCLADML(COLUMN,ROW,SECT)=CRCLADML(CO,RO)

EXIT ENDIF IF (CRAXCLADMAT(BANKNUM(COLUMN,ROW),SECT).EQ.

c CRAXCLADMAT(BANKNUM(CO,RO),SECT>> THEN

~LADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

CRAXCLADML(COLUMN,ROW,SECT)=

c CRAXCLADML(CO, RO, SECT)

EXIT ENDIF ENDIF ENDIF 1650 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 1660 CONTINUE ENDIF IF (SURFVALUESPEC(CRAXCLADBOTTOMSURF(SECT>>.LT.

c SURFVALUESPEC(UEFTOPSURF>> THEN IF (CLADMLUNIQUE.EQ .. TRUE.) THEN CRAXCLADML(COLUMN,ROW,SECT)=MN

Waste Package Operations

~~

Engineering Calculation

Title:

CRC Reactivity Cal~ulations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-021 0-00006 REV 00 Attachment I, Page 469 of 656

• Check Control Rod Cladding IF (CRAXCLADMAT(BANKNUM(COLUMN,ROW),SECT).EQ.1) THEN DO 1670 C...1,2 IF (C.EQ.1) THEN WRITE (200, 9300) CRAXCLADML(COLUMN,ROW,SECT)

ELSEIF (C.EQ.2) THEN WRITE (200, 9301)

WRITE (200, 7000)

WRITE(200,7001)

WRITE(200,7002)

WRITE (200, 9302)

WRITE (200, 7003)

WRITE (200, 7004)

WRITE (200, 7005)

WRITE(200,9303)

WRITE (200, 9304)

ENDIF 1670 CONTINUE ELSEIF (CRAXCLADMAT(BANKNUM(COLUMN,ROW),SECT) c .EQ.2) THEN DO 1680 C=1,2 IF (C. EQ.1') THEN WRITE (200, 9305) CRAXCLADML(COLUMN,ROW,SECT)

ELSEIF (C.EQ.2) THEN WRITE (200, 9306)

WRITE(200,9307)

WRITE(200,9308)

WRITE (200, 9309)

WRITE (200, 9310)

WRITE (200, 7006)

WRITE (200, 7007)

WRITE(200,7008)

WRITE (200, 9311)

WRITE(200,9312)

WRITE(200,7009)

WRITE(200,7010)

WRITE (200, 7011)

WRITE(200,9313)

WRITE (200, 7012)

WRITE (200, 7013)

WRITE (200, 7014)

WRITE (200, 7015)

ENDIF 1680 CONTINUE ELSEIF (CRAXCLADMAT(BANKNUM(COLUMN,ROW),SECT) c . EQ. 3) THEN DO 1690 C=1,2 IF (C.EQ.1) THEN WRITE(200,9314) CRAXCLADML(COLUMN, ROW, SECT)

ELSEIF (C.EQ.2) THEN WRITE (200, 9315)

WRITE (200, 9316)

WRITE(200,9317)

WRITE(200,9318)

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOO()O-O1717-0210-00006 REV 00 Attachment I, Page 470 of 656 WRITE (200, 7016)

WRITE(200,7017)

WRITE(200,7018)

WRITE(200,9319)

WRITE(200,9320)

WRITE(200,7019)

WRITE (200, 7020)

WRITE (200, 7021)

WRITE (200, 9321)

WRITE(200,7022)

WRITE(200,7023)

WRITE(200,7024)

WRITE (200, 7025)

WRITE (200, 9322)

WRITE(200,9323)

WRITE(200,9324)

WRITE(200,9325)

WRITE (200, 9326)

WRITE(200,9327)

WRITE(200,7026)

WRITE (200, 9328)

WRITE (200, 9329)

WRITE (200, 9330)

ENDIF 1690 CONTINUE

\ ENDIF J

MN=MN+l ENDIF IF (CRAXCLADMAT(BANKNUM(COLUMN,ROW),SECT) .EQ.l) THEN CLADRHO=6.56 ELSEIF (CRAXCLADMAT(BANKNUM(COLUMN,ROW),SECT).EQ.2) THEN CLADRHO=7.90 ELSEIF (CRAXCLADMAT(BANKNUM(COLUMN,ROW),SECT).EQ.3) THEN CLADRHO=8.19 ENDIF WRITE (30, 1700) LN, CRAXCLADML(COLUMN,ROW,SECT),

c (-I*CLADRHO), CRAXCLADIRSURF(SECT),

c (-I*CRAXCLADORSURF(SECT>>, (-I*CRAXCLADTOPSURF(SECT>>,

c CRAXCLADBOTTOMSURF(SECT), CRAUNIV (COLUMN, ROW) 1700 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,IX,I4,IX,I4,lX,I4, c , IMP:N=1 U=',I3,' $ Control rod cladding')

LN=LN+l ENDIF

• Write the CR upper plenum cell in this CR universe.

• Determine if the CR upper plenum material specification has

• previously been defined. If it has been previously defined, determine

• the upper plenum material specification label.

CRUPMLUNIQUE=.TRUE.

LEAVE=.FALSE.

IF <<COLUMN.NE.l).AND. (ROW.NE.l>> THEN DO 1720 RO=I, (ROW-I)

DO 1710 CO=I,50 IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKNUM(COLUMN,ROW) .EQ.

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2

".t Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 AttachmentI,Page471 of 656 c BANKNUM (CO, RO>> THEN CRUPMLUNIQUE=.FALSE.

LEAVE.... TRUE.

CRUPML(COLUMN, ROW) =CRUPML (CO, RO)

EXIT' ENDIF ENDIF 1710 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 1720 CONTINUE IF (LEAVE.EQ ** FALSE.) THEN DO 1740 RO=ROW,ROW DO 1730 CO=I, (COLUMN-l)

IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKNUM(COLUMN,ROW).EQ.

c BANKNUM (CO, RO>> THEN CRUPMLUNIQUE.... FALSE.

LEAVE"'. TRUE.

CRUPML (COLUMN, ROW) =CRUPML (CO, RO)

EXIT ENDIF ENDIF 1730 CONTINUE

• I IF (LEAVE.EQ ** TRUE.) THEN EXIT ENDIF 1740 CONTINUE ENDIF ELSEIF ((COLUMN.EQ.l).AND. (ROW.NE.l>> THEN DO 1760 RO=I, (ROW-I)

DO 1750 CO=I,50 IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKNUM(COLUMN,ROW).EQ.

c BANKNUM(CO,RO>> THEN CRUPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

CRUPML(CO~UMN,ROW)=CRUPML(CO,RO)

EXIT ENDIF ENDIF 1750 CONTINUE IF (LEAVE.EQ *. TRUE.) THEN EXIT ENDIF 1760 CONTINUE ELSEIF (ROW.EQ.l).AND. (COLUMN.NE.l>> THEN DO 1780 RO=l,1 DO 1770 CO=1, (COLUMN-I)

IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKNUM(COLUMN,ROW).EQ.

c BANKNUM(CO,RO>> THEN CRUPMLUNIQUE=.FALSE.

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-'00006 REV 00 Attachment I, Page 472 of 656 LEAVE=.TRUE.

CRUPML (COLUMN, ROW) =CRUPML (CO, RO)

EXIT ENDIF ENDIF 1770 CONTINUE IF (LEAVE.EQ ** TRUE.) THEN EXIT

'.. ". ENDIF 1780 CONTINUE ENDIF IF (SURFVALUESPEC(CRAXABSTOPSURF(TOPSECT>> .LT.

c SURFVALUESPEC(UEFTOPSURF>> THEN IF (CRUPMLUNIQUE.EQ.;TRUE.) THEN CRUPML (COLUMN, ROW)=MN

• Check Control Rod Upper Plenum Regions DO 1810 C-1,CRUPLENMAT(BANKNUM(COLUMN,ROW),2)

IF (C.EQ.1) THEN WRITE(200,1790) CRUPML(COLUMN,ROW),

c CRUPZS(BANKNUM(COLUMN;ROW),C),

c (-l*CRUPLENWTS(BANKNUM(COLUMN,ROW),C>>

1790 FORMAT (T1, 'M',I4,T9,A9,3X,G14.6, c , $ Control Rod Upper Plenum')

ELSE WRITE (200, 1800) c CRUPZS(BANKNUM(COLUMN,ROW),C),

c (-l*CRUPLENWTS(BANKNUM(COLUMN,ROW),C>>

1800 FORMAT(T9,A9,3X,G14.6)

ENDIF 1810 CONTINUE MN=MN+1 ENDIF WRITE(30,1820) LN, CRUPML(COLUMN,ROW),

c (-l*CRUPLENMAT(BANKNUM(COLUMN,ROW),l>>,

c CRAXABSTOPSORF(TOPSECT),

c (-l*CRAXCLADTOPSURF(TOPSECT>>,

c (-l*CRAXCLADIRSURF(TOPSECT>>,

c CRAUNIV(COLUMN,ROW) 1820 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Control rod upper plenum')

LN=LN+l ENDIF

• Write the CR lower plenum cell in this CR universe.

• Determine if the CR lower plenum material specification has

• previously been defined. If it has been previously defined, determine

• the lower plenum material specification label.

CRLPMLUNIQUE=.TRUE.

LEAVE=.FALSE.

IF <<COLUMN.NE.l).AND. (ROW.NE.l>> THEN DO 1840 RO=l, (ROW-I)

DO 1830 CO=1,50 .

IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKNUM(COLUMN,ROW) .EQ.BANKNUM(CO,RO>> THEN CRLPMLUNIQUE=.FALSE.

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-021 0-00006 REV 00 Attachment I, Page 473 of 656 LEAVE=.TRUE.

CRLPML(COLUMN, ROW)=CRLPML (CO, RO)

EXIT ENDIF ENDIF 1830 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 1840 CONTINUE IF (LEAVE.EQ .* FALSE.) THEN DO 1860 RO=ROW,ROW DO 1850 CO=l, (COLUMN-I)

IF (BANKNUM(CO,RO) .NE.O) THEN IF (BANKNUM(COLUMN,ROW).EQ.

c BANKNUM(CO,RO>> THEN CRLPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

CRLPML(COLUMN, ROW) =CRLPML (CO, RO)

EXIT ENDIF ENDIF 1850 CONTINUE IF (LEAVE.EQ ** TRUE.) THEN EXIT ENDIF 1860 CONTINUE ENDIF ELSEIF <<COLUMN.EQ.1).AND. (ROW.NE.1>> THEN DO 1880 RO=l, (ROW-I)

DO 1870 CO=l,50 IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKNUM(COLUMN,ROW) .EQ.

c BANKNUM(CO,RO>> THEN CRLPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

CRLPML(COLUMN, ROW)=CRLPML (CO, RO)

EXIT ENDIF ENDIF 1870 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN

. EXIT ENDIF 1880 CONTINUE ELSEIF (ROW.EQ.1).AND. (COLUMN.NE.1>> THEN DO 1900 RO=l,l DO 1890 CO=l, (COLUMN-I)

IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKNUM(COLUMN,ROW) .EQ.

c BANKNUM(CO,RO>> THEN CRLPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

CRLPML(COLUMN,ROW)=CRLPML(CO,RO)

Waste Package Operations Engineering Calculation

Title:

CRe Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 474 of656 EXIT ENDIF ENDIF 1890 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 1900 CONTINUE ENDIF IF (SURFVALUESPEC(CRAXCLADBOTTOMSURF(BOTSECT>>.LT.

c SURFVALUESPEC(UEFTOPSURF>> THEN IF (CRLPMLUNIQUE.EQ .* TRUE.) THEN CRLPML(COLUMN,ROW)=MN

• Check Control Rod Lower Plenum Regions DO 1930 C=1,CRLPLENMAT(BANKNUM(COLUMN,ROW),2)

IF (C.EQ.1) THEN WRITE (200, 1910) CRLPML(COLUMN,ROW),

c CRLPLENZAIDS(BANKNUM(COLUMN,ROW),C),

c (-1*CRLPLENWTS(BANKNUM(COLUMN,ROW),C>>

1910 FORMAT (T1, 'M',I4,T9,A9,3X,G14.6, c ' $ Control Rod Lower Plenum')

ELSE WRITE (200, 1920) c CRLPLENZAIDS(BANKNUM(COLUMN,ROW),C),

c (-1*CRLPLENWTS(BANKNUM(COLUMN,ROW),C>>

1920 FORMAT(T9,A9,3X,G14.6)

ENDIF 1930 CONTINUE MN=MN+1 ENDIF WRITE(30,1940) LN, CRLPML(COLUMN,ROW),

c (-1*CRLPLENMAT(BANKNUM(COLUMN,ROW),1>>,

c CRAXCLADBOTTOMSURF(BOTSECT),

c (-1*CRAXABSBOTTOMSURF(BOTSECT>>,

c (-1*CRAXCLADIRSURF(BOTSECT>>,

c CRAUNIV (COLUMN, ROW) 1940 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,1X,I4,1X,I4, c , IMP:N=1 U=',I3,' $ Control rod lower plenum')

LN=LN+1 ENDIF 1950 CONTINUE

• Write the moderator inside of the GT in the CR universe DO 2000CRSECT=1,NUMCRAXS(BANKNUM(COLUMN,ROW>>

IF <<SURFVALUESPEC(GTTOPSURF).GE.

c SURFVALUESPEC(CRAXCLADTOPSURF(CRSECT>>).AND.

c (SURFVALUESPEC(GTBOTSURF) .LE.

c SURFVALUESPEC(CRAXCLADBOTTOMSURF(CRSECT>>>> THEN

• Write the moderator cells within the GT in this CR universe.

WRITE (30,1960) LN, BMODML, (-1 *MODDENSITY),

c (-1 *GTIRSURF) ,

c CRAXCLADORSURF(CRSECT), (-1*CRAXCLADTOPSURF(CRSECT>>,

c CRAXCLADBOTTOMSURF(CRSECT),

c CRAUNIV (COLUMN, ROW) 1960 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,1X,I4,1X,I4,1X,I4,

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO"O1717-0210-00006 REV 00 Attachment I, Page 475 of 656 c , IMP:N=1 U=',13, c $ Borated moderator inside guide tube')

LN=LN+1 ELSEIF <<SURFVALUESPEC(GTTOPSURF).GE.

c SURFVALUESPEC(CRAXCLADTOPSURF(CRSECT>>).AND.

c (SURFVALUESPEC(GTBOTSURF).LT.

c SURFVALUESPEC(CRAXCLADTOPSURF(CRSECT>>) .AND.

c (SURFVALUESPEC(GTBOTSURF).GT.

c SURFVALUESPEC(CRAXCLADBOTTOMSURF(CRSECT>>>> THEN WRITE (30, 1970) LN, BMODML, (-1*MODDENS1TY),

c (-1*GTIRSURF) ,

c CRAXCLADORSURF(CRSECT), (-1*CRAXCLADTOPSURF(CRSECT>>,

c GTBOTSURF, c CRAUNIV (COLUMN, ROW) 1970 FORMAT(T1,I4,T6,14,T11,F8.5,T25,I4,1X,I4,1X,I4,1X,I4, c , IMP:N=1 U=',I3, c $ Borated moderator inside guide tube')

LN=LN+1 ELSE1F <<SURFVALUESPEC(GTTOPSURF).LT.

c SURFVALUESPEC(CRAXCLADTOPSURF(CRSECT>>).AND.

c (SURFVALUESPEC(GTBOTSURF).LE.

c SURFVALUESPEC(CRAXCLADBOTTOMSURF(CRSECT>>).AND.

c (SURFVALUESPEC(GTTOPSURF).GT.

c SURFVALUESPEC(CRAXCLADBOTTOMSURF(CRSECT>>>> THEN WRITE (30, 1980) LN, BMODML, (-1*MODDENS1TY),

) c (-1*GTIRSURF) ,

c CRAXCLADORSURF{CRSECT), (-1*GTTOPSURF),

c CRAXCLADBOTTOMSURF(CRSECT),

c CRAUNIV (COLUMN, ROW) 1980 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,14,1X,I4,1X,I4,1X,I4, c , IMP:N=1 U=',I3, c $ Borated moderator inside guide tube')

LN=LN+1 ELSEIF <<SURFVALUESPEC(GTTOPSURF).LT.

c SURFVALUESPEC(CRAXCLADTOPSURF(CRSECT>>) .AND.

c (SURFVALUESPEC(GTBOTSURF).GT.

c SURFVALUESPEC(CRAXCLADBOTTOMSURF(CRSECT>>>> THEN WRITE (30, 1990) LN, BMODML, (-1*MODDENS1TY),

c (-1 *GTIRSURF) ,

c CRAXCLADORSURF(CRSECT), (-1*GTTOPSURF),

c GTBOTSURF, c CRAUN1V(COLUMN,ROW) 1990 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,14,1X,14,1X,I4,1X,I4, c , 1MP:N=1 U=',I3, c , $ Borated moderator inside guide tube')

LN=LN+1 ENDIF 2000 CONTINUE WRITE (30, 2010) LN, BMODML, (-1 *MODDENSITY) ,

c (-1 *GT1RSURF),

c (-1*CRAXCLADBOTTOMSURF(NUMCRAXS(BANKNUM(COLUMN,ROW>>>>,

c GTBOTSURF, c CRAUNI V(COLUMN, ROW) 2010 FORMAT(T1,14,T6,I4,T11,F8.5,T25,14,1X,14,1X,I4,

'Yaste Package Operations Engineering Calculation

Title:

CRC Reactivity Calcuiations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-021 0-00006 REV 00 Attachment I, Page 476 of 656 c , IMP:N=l U=',I3, c $ Borated moderator inside guide tube')

LN=LN+1

• Write the lower end-fitting cell specification for this CR universe.

IF (SURFVALUESPEC(GTBOTSURF).GE.

c ENDFITHEIGHT(DESNUM(COLUMN,ROW),2>> THEN WRITE(30,2020) LN, FRLEFML(COLUMN,ROW),

c (-l*LEFMAT(DESNUM(COLUMN,ROW),l>>, (-l*CRLEFTOPSURF),

c CRAUNIV (COLUMN, ROW) .

2020 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,' IMP:N=l U=',I3, c $ Lower end-fitting')

LN=LN+1 ELSE WRITE(30,2030) LN, FRLEFML(COLUMN,ROW),

c (-l*LEFMAT(DESNUM(COLUMN,ROW),l>>, (-l*CRLEFTOPSURF),

c GTORSURF, c CRAUNIV (COLUMN, ROW) 2030 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4, c , IMP:N=l U=',I3,' $ Lower end-fitting')

LN=LN+1 WRITE(30,2040) LN, FRLEFML(COLUMN,ROW),

c (-l*LEFMAT(DESNUM(COLUMN,ROW),l>>,

c (-l*GTBOTSURF) ,

c (-l*GTORSURF) ,

c CRAUNIV (COLUMN, ROW)

) 2040 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,

, IMP:N=l U=',I3,' $ Lower end-fitting')

c LN=LN+1 ENDIF

• Write the upper end-fitting cell specification for this CR universe.

GTTOPSURF=GTTOPSURF GTSECTORSURF(l)=GTORSURF "GTSECTIRSURF (1) =GTIRSURF CRCLADTOPSURF=CRAXCLADTOPSURF(l)

CRCLADIRSURF=CRAXCLADIRSURF(l)

CRCLADORSURF=CRAXCLADORSURF(l)

IF <<SURFVALUESPEC(GTTOPSURF).GE.

c SURFVALUESPEC(UEFTOPSURF>>.AND.

c (SURFVALUESPEC(CRCLADTOPSURF).GE.

c SURFVALUESPEC(UEFTOPSURF>>) THEN WRITE(30,2050) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF), GTSECTORSURF(l), CRAUNIV (COLUMN, ROW) 2050 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Upper end-fitting')

LN=LN+1 ELSEIF <<SURFVALUESPEC(GTTOPSURF) .LT.

c SURFVALUESPEC(UEFTOPSURF>> .AND.

c (SURFVALUESPEC(GTTOPSURF).GT.

c SURFVALUESPEC(UEFBOTTOMSURF>>.AND.

c (SURFVALUESPEC(CRCLADTOPSURF).GE.

c SURFVALUESPEC(UEFTOPSURF>>) THEN WRITE(30,2051) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF,

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOtJOO"'01717-021O-00006 REV 00 Attachment I, Page 477 of6S6 e (-l*UEFTOPSURF), GTSECTORSURF(l), CRAUNIV(COLUMN,ROW) 2051 FORMAT(Tl,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4, e , IMP:N=l U=',I3,' $ Upper end-fitting')

LN=LN+l WRITE (30, 2052) LN, FRUEFML(COLUMN,ROW),

e (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, GTTOPSURF, e (-l*UEFTOPSURF), CRCLADORSURF, (-l*GTSECTORSURF(l>>,

e CRAUNIV (COLUMN, ROW) 2052 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4,lX,I4, e , IMP:N=l U=',I3,' $ Upper end-fitting')

LN=LN+l ELSEIF <<SURFVALUESPEC(GTTOPSURF).LE.

e SURFVALUESPEC(UEFBOTTOMSURF>>.AND.

e (SURFVALUESPEC(CRCLADTOPSURF).GE.

e SURFVALUESPEC(UEFTOPSURF>>) THEN WRITE(30,2053) LN, FRUEFML(COLUMN,ROW),

e (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, e (-l*UEFTbPSURF), CRCLADORSURF, CRAUNIV(COLUMN,ROW) 2053 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4, e , IMP:N=l U=',I3,' $ Upper end-fitting')

LN=LN+l ELSEIF <<SURFVALUESPEC(GTTOPSURF).GE.

e SURFVALUESPEC(UEFTOPSURF>>.AND.

e (SURFVALUESPEC(CRCLADTOPSURF).GT.

e SURFVALUESPEC(UEFBOTTOMSURF>>.AND.

1. e e

(SURFVALUESPEC(CRCLADTOPSURF) .LT.

SURFVALUESPEC(UEFTOPSURF>>) THEN WRITE(30,2054) LN, FRUEFML(COLUMN,ROW),

e (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, e (-l*UEFTOPSURF), GTSECTORSURF(l), CRAUNIV(COLUMN,ROW) 2054 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4, e , IMP:N=l U=',I3,' $ Upper end-fitting')

LN=LN+l WRITE(30,2055) LN, FRUEFML(COLUMN,ROW),

e (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, CRCLADTOPSURF, e (-l*UEFTOPSURF), (-l*GTSECTIRSURF(l>>,

e CRAUNIV (COLUMN, ROW) 2055 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4, e , IMP:N=l U=',I3,' $ Upper end-fitting')

LN=LN+l .

ELSEIF <<SURFVALUESPEC(GTTOPSURF).LT.

e SURFVALUESPEC(UEFTOPSURF>>.AND.

e (SURFVALUESPEC(GTTOPSURF).GT.

e SURFVALUESPEC(CRCLADTOPSURF>>.AND.

e (SURFVALUESPEC(CRCLADTOPSURF).GT.

e SURFVALUESPEC(UEFBOTTOMSURF>>.AND.

e (SURFVALUESPEC(CRCLADTOPSURF) .LT.

e SURFVALUESPEC(UEFTOPSURF>>) THEN WRITE(30,2056) LN, FRUEFML(COLUMN,ROW),

e (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, e (-l*UEFTOPSURF), GTSECTORSURF(l), CRAUNIV (COLUMN, ROW) 2056 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4, e , IMP:N=l U=',I3,' $ Upper end-fitting')

LN=LN+l

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 478 of 656 WRITE (30, 2057) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, CRCLADTOPSURF, c (-l*UEFTOPSURF), (-l*GTSECTIRSURF(l>>,

c CRAUNIV (COLUMN, ROW) 2057 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ 'Upper end-fitting')

LN=LN+l WRITE(30,2058) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, GTTOPSURF, c (-l*UEFTOPSURF), GTSECTIRSURF(l),

c (-l*GTSECTORSURF(l>>, CRAUNI V(COLUMN, ROW) 2058 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Upper end-fitting')

LN=LN+l ELSEIF <<SURFVALUESPEC(GTTOPSURF).EQ.

c SURFVALUESPEC(CRCLADTOPSURF>>.AND.

c (SURFVALUESPEC(CRCLADTOPSURF).GT.

c SURFVALUESPEC(UEFBOTTOMSURF>>.AND.

c (SURFVALUESPEC(CRCLADTOPSURF).LT.

c SURFVALUESPEC(UEFTOPSURF>>) THEN WRITE(30,2059) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, C (-l*UEFTOPSURF), GTSECTORSURF(l), CRAUNIV (COLUMN, ROW) 2059 FORMAT(Tl,I4,T6,I4,Tl1,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Upper end-fitting')

} LN=LN+l WRITE(30,2060) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, CRCLADTOPSURF, c (-l*UEFTOPSURF), (-l*GTSECTORSURF(l>>,

c CRAUNIV(COLUMN,ROW) 2060 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Upper end-fitting')

LN=LN+l ELSEIF <<SURFVALUESPEC(GTTOPSURF).LT.

c SURFVALUESPEC(CRCLADTOPSURF>> .AND.

c (SURFVALUESPEC(GTTOPSURF).GT.

c SURFVALUESPEC(UEFBOTTOMSURF>>.AND.

c (SURFVALUESPEC(CRCLADTOPSURF).GT.

c SURFVALUESPEC(UEFBOTTOMSURF>>.AND.

c (SURFVALUESPEC(CRCLADTOPSURF).LT.

c SURFVALUESPEC(UEFTOPSURF>>) THEN WRITE(30,2061) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF), GTSECTORSURF(l), CRAUNIV(COLUMN,ROW) 2061 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Upper end-fitting')

LN=LN+l WRITE(30,2062) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, CRCLADTOPSURF, c (-l*UEFTOPSURF), (-l*GTSECTORSURF(l>>,

c CRAUNIV (COLUMN, ROW) 2062 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Upper end-fitting')

LN=LN+l

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 479 of 656 WRITE(30,2063) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, GTTOPSURF, c (-l*CRCLADTOPSURF), CRCLADORSURF, c (-l*GTSECTORSURF(l>>, CRAUN1V(COLUMN,ROW) 2063 FORMAT(Tl,I4,T6,14,Tll,F8.5,T25,I4,lX,14,lX,14,lX,14, c , IMP:N=l U=',I3,' $ Upper end-fitting')

LN=LN+l ELSEIF <<SURFVALUESPEC(GTTOPSURF) .LE.

c SURFVALUESPEC(UEFBOTTOMSURF>>.AND.

c (SURFVALUESPEC(CRCLADTOPSURF).GT.

c SURFVALUESPEC(UEFBOTTOMSURF>>.AND.

c .(SURFVALUESPEC (CRCLADTOPSURF) .LT.

c SURFVALUESPEC(UEFTOPSURF>>) THEN WRITE(30,2064) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF), CRCLADORSURF, CRAUNIV(COLUMN,ROW) 2064 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,14,lX,14,lX,I4, c , IMP:N=l U=',I3,' $ Upper end-fitting')

LN=LN+l WR1TE(30,2065) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, CRCLADTOPSURF, c (-l*UEFTOPSURF), (-l*CRCLADORSURF),

c CRAUNIV(COLUMN,ROW) 2065 FORMAT(Tl,14,T6,14,Tll,F8.5,T25,I4,lX,14,lX,I4, c , IMP:N=l U=',I3,' $ Upper end-fitting')

) LN=LN+l ELSEIF <<SURFVALUESPEC(CRCLADTOPSURF).LE.

c SURFVALUESPEC(UEFBOTTOMSURF>>.AND.

c (SURFVALUESPEC(GTTOPSURF).GE.

c SURFVALUESPEC(UEFTOPSURF>>) THEN WRITE(30,2066) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF), GTSECTORSURF(l), CRAUNIV (COLUMN, ROW) 2066 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,14,lX,I4,lX,14, c , IMP:N=l U=',I3,' $ Upper end-fitting')

LN=LN+l WRITE(30,2067) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, CRCLADTOPSURF, c (-l*UEFTOPSURF), (-l*GTSECTIRSURF(l>>,

c CRAUNIV(COLUMN,ROW) 2067 FORMAT(Tl,14,T6,14,Tll,F8.5,T25,I4,lX,I4,lX,I4, c , 1MP:N=l U=',I3,' $ Upper end-fitting')

LN=LN+l ELSE1F <<SURFVALUESPEC(CRCLADTOPSURF).LE.

c SURFVALUESPEC(UEFBOTTOMSURF>>.AND.

c (SURFVALUESPEC(GTTOPSURF).LT.

c SURFVALUESPEC(UEFTOPSURF>> .AND.

c (SURFVALUESPEC(GTTOPSURF).GT.

c SURFVALUESPEC(UEFBOTTOMSURF>>) THEN WR1TE(30,2068) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM{COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF), GTSECTORSURF(l), CRAUN1V(COLUMN,ROW) 2068 FORMAT(Tl,I4,T6,14,Tll,F8.5,T25,14,lX,14,lX,I4, c , 1MP:N=l U=',13,' $ Upper end-fitting')

Waste Package Operations Engineering C~lculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 480 of 656 LN=LN+l WRITE (30, 2069) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, CRCLADTOPSURF, c (-l*UEFTOPSURF), (-l*GTSECTIRSURF(l>>,

c CRAUNIV(COLUMN,ROW) 2069 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Upper end-fitting')

LN=LN+l WRITE(30,2070) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, GTTOPSURF, c (-l*UEFTOPSURF), (-l*GTSECTORSURF(l>>,

c GTSECTIRSURF(l), CRAUN IV (COLUMN, ROW) 2070 FORMAT(Tl,I4,T6,I4,Tll,FB.5,T25,I4,lX,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Upper end-fitting')

LN=LN+l ELSEIF <<SURFVALUESPEC(CRCLADTOPSURF).LE.

c SURFVALUESPEC(UEFBOTTOMSURF>>.AND.

c (SURFVALUESPEC(GTTOPSURF).LE.

c SURFVALUESPEC(UEFBOTTOMSURF>>) THEN WRITE(30,2071) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF), CRAUNIV(COLUMN,ROW) 2071 FORMAT(Tl,I4,T6,I4,Tll,FB.5,T25,I4,lX,I4, c , IMP:N=l U=',I3,' $ Upper end-fitting')

LN=LN+l

\

~

ENDIF 0************************************************************************

Waste Package Operations Engineering Calculation

Title:

CRe Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717*-0210-00006 REV 00 Attachment I, Page 481 of 656

• SPECIFICATIONS FOR HYBRID<>l AND GTSPLIT=l

• • • • • • • • • ~**************************************************************

ELSEIF <<HYBRID.NE.1).AND. (GTSPLIT.EQ.1>> THEN

• Define the CR absorber radius.

CURRENTSURF=CRADIM(BANKNUM(COLUMN,ROW),l)

CURRENTSURFLABEL=O DO 2100 V-1, (SN-l)

, IF (SURFTYPESPEC(V).EQ.'CZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 2100 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN CRABSSURF=SN SURFTYPESPEC(SN)='CZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE CRABSSURF=CURRENTSURFLABEL ENDIF

• Define the CR absorber top surface.

CURRENTSURF=ENDFITHEIGHT(DESNUM(COLUMN,ROW),2)+

c CRADIM(BANKNUM(COLUMN,ROW),4)+

c CRADIM(BANKNUM(COLUMN,ROW),5)

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for ~equoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 482 of 656 IF (CURRENTSURF.GE.SURFVALUESPEC(UEFTOPSURF>> THEN CURRENTSURF=SURFVALUESPEC(UEFTOPSURF)

ENDIF CURRENTSURFLABEL=O DO 2110 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 2110 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN

.CRABSTOPSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE CRABSTOPSURF=CURRENTSURFLABEL ENDIF

• Define the CR absorber bottom surface.

CURRENTSURF=ENDFITHEIGHT(DESNUM(COLUMN,ROW),2)+

c CRADIM(BANKNUM (COLUMN, ROW), 4) .

IF (CURRENTSURF.GE.SURFVALUESPEC(UEFTOPSURF>> THEN CURRENTSURF=SURFVALUESPEC(UEFTOPSURF)

J ENDIF CURRENTSURFLABEL=O DO 2120 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 2120 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN CRABSBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE CRABSBOTTOMSURF=CURRENTSURFLABEL ENDIF

• Define the CR cladding inner radius.

CURRENTSURF=CRADIM(BANKNUM(COLUMN,ROW),2)

CURRENTSURFLABEL=O DO 2130 V=1, (SN-1)

IF (SURFTYPESPEC(V).EQ.'CZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 2130 CONTINUE

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 483 of 656 IF (CURRENTSURFLABEL.EQ.O) THEN CRCLADIRSURF=SN SURFTYPESPEC(SN)='CZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+1 ELSE CRCLADIRSURF=CURRENTSURFLABEL ENDIF

• Define the CR cladding outer radius.

CURRENTSURF=CRADIM(BANKNUM(COLUMN,ROW),3)

CURRENTSURFLABEL=O DO 2140 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'CZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 2140 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN CRCLADORSURF=SN SURFTYPESPEC(SN)='CZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE

) CRCLADORSURF=CURRENTSURFLABEL ENDIF

• Define the CR cladding top surface.

CURRENTSURF=ENDFITHEIGHT(DESNUM(COLUMN,ROW),2)+

c CRADIM(BANKNUM(COLUMN,ROW),4)+

C CRADIM(BANKNUM(COLUMN,ROW),5)+

c CRADIM(BANKNUM(COLUMN,ROW),7)

IF (CURRENTSURF.GE.SURFVALOESPEC(UEFTOPSURF>> THEN CURRENTSURF=SURFVALUESPEC(UEFTOPSURF)

ENDIF CURRENTSURFLABEL=O DO 2150 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 2150 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN CRCLADTOPSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE CRCLADTOPSURF=CURRENTSURFLABEL ENDIF

• Define the CR cladding bottom surface.

CURRENTSURF=ENDFITHEIGHT(DESNUM(COLUMN,ROW),2)+

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 484 of 656 c CRADIM(BANKNUM(COLUMN,ROW),4)-

c CRADIM(BANKNUM(COLUMN,ROW),6)

IF (CURRENTSURF.GE.SURFVALUESPEC(UEFTOPSURF)) THEN CURRENTSURF=SURFVALUESPEC(UEFTOPSURF)

ENDIF CURRENTSURFLABEL=O DO 2160 V=I, (SN-l)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001)) THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 2160 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN CRCLADBOTTOMSURF=SN SURFTYPESPEC(SN)-'PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+l ELSE CRCLADBOTTOMSURF=CURRENTSURFLABEL ENDIF IF (SURFVALUESPEC(CRABSBOTTOMSURF).LT.

c SURFVALUESPEC(UEFTOPSURF)) THEN

• Check Control Rod Absorber Material j CRABSML=MN DO 2190 C=I,CRABSMAT(BANKNUM(COLUMN,ROW),2)

IF (C.EQ.l) THEN WRITE (200, 2170) CRABSML, c CRABSZAIDS(BANKNUM(COLUMN,ROW),C),

c (-I*CRABSWTS(BANKNUM(COLUMN,ROW),C)),

c ASSYID (COLUMN, ROW) 2170 FORMAT (Tl, 'M',I4,T9,A9,.3X,GI4.6, c ' $ Control Rod Absorber Material in Assembly',

c AS)

ELSE WRITE(200,2180) CRABSZA1DS(BANKNUM(COLUMN,ROW),C),

c (-I*CRABSWTS(BANKNUM(COLUMN,ROW),C))

2180 FORMAT(T9,A9,3X,GI4.6)

ENDIF 2190 CONTINUE MN=MN+l .

• Write the'CR absorber cell in this CR universe.

WR1TE(30,2200) LN, CRABSML, c (-I*CRABSMAT(BANKNUM(COLUMN,ROW),I)), (-I*CRABSSURF),

c (-I*CRABSTOPSURF), CRABSBOTTOMSURF, c CRAUNI V(COLUMN, ROW) 2200 FORMAT(Tl,I4,T6,I4,Tll,FI0.6,T25,14,IX,14,IX,I4, c , 1MP:N=1 U=',13,' $ Control rod absorber material')

LN=LN+l

• Write the absorber-to-cladding gap cell in this CR universe.

WRITE(30,2210) LN, (-I*CRCLADIRSURF), CRABSSURF, c (-I*CRABSTOPSURF),

c CRABSBOTTOMSURF, CRAUN1V(COLUMN,ROW)

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 485 of 656 2210 FORMAT(Tl,I4,T6, 'O',T25,I4,lX,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Absorber-to-cladding gap')

LN=LN+l ENDIF

• Write the CR cladding cell in this CR universe.

• Determine if the CR cladding material specification has

• previously been defined. If it has been previously defined, determine

• the cladding material specification label.

CLADMLUNIQUE=.TRUE.

LEAVE=.FALSE.

IF ((COLUMN.NE.I) .AND.(ROW.NE.l>> THEN DO 2230 RO=l, (ROW-l)

DO 2220 CO=1,50 IF (BANKNUM(CO,RO).NE.O) ,THEN IF (BANKDES(BANKNUM(CO,RO>>.EQ. 'CRA ') THEN IF (CRCLADMAT(BANKNUM(COLUMN,ROW>> .EQ.

c CRCLADMAT(BANKNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

CRCLADML (COLUMN, ROW) =CRCLADML (CO, RO)

EXIT ENDIF ENDIF ENDIF 2220 CONTINUE IF (LEAVE.EQ *. TRUE.) THEN EXIT ENDIF 2230 CONTINUE IF (LEAVE.EQ *. FALSE.) THEN DO 2250 RO=ROW,ROW DO 2240 CO=l, (COLUMN-l)

IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKDES(BANKNUM(CO,RO>>.EQ.'CRA ') THEN IF (CRCLADMAT(BANKNUM(COLUMN,ROW>>.EQ.

c CRCLADMAT(BANKNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

CRCLADML(COLUMN,ROW)=CRCLADML(CO,RO)

EXIT ENDIF ENDIF ENDIF 2240 CONTINUE IF (LEAVE.EQ .* TRUE.) THEN EXIT ENDIF 2250 CONTINUE ENDIF ELSEIF ((COLUMN.EQ.l).AND. (ROW.NE.l>> THEN DO 2270 RO=l, (ROW-l)

DO 2260 CO=1,50 IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKDES(BANKNUM(CO,RO>> .EQ. 'CRA ') THEN

Waste Package Operations Engineering Calculation 1:'- .

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 486 of6S6 IF (CRCLADMAT(BANKNUM(COLUMN,ROW>> .EQ.

c CRCLADMAT(BANKNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

CRCLADML(COLUMN,ROW)=CRCLADML(CO,RO)

EXIT ENDIF ENDIF ENDIF 2260 CONTINUE IF (LEAVE.EQ .* rRUE.) THEN EXIT ENDIF 2270 CONTINUE ELSEIF <<ROW.EQ.I).AND. (COLUMN.NE.I>> THEN DO 2290 RO=I,I DO 2280 CO=I, (COLUMN-I)

IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKDES(BANKNUM(CO,RO>>.EQ.'CRA ') THEN IF (CRCLADMAT(BANKNUM(COLUMN,ROW>>.EQ.

c CRCLADMAT(BANKNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE-.TRUE.

CRCLADML (COLUMN, ROW) =CRCLADML (CO,RO)

EXIT

} ENDIF ENDIF ENDIF 2280 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 2290 CONTINUE ENDIF IF (SURFVALUESPEC(CRCLADBOTTOMSURF) .LT.

c SURFVALUESPEC(UEFTOPSURF>> THEN .

IF (CLADMLUNIQUE.EQ .* TRUE.) THEN CRCLADML(COLUMN,ROW)=MN

• Check Control Rod Cladding IF (CRCLADMAT(BANKNUM(COLUMN,ROW>>.EQ.I) THEN DO 2300 C=1,2 IF (C.EQ.l) THEN WRITE (200, 9300) CRCLADML (COLUMN, ROW)

ELSEIF (C.EQ.2) THEN WRITE(200,9301)

WRITE(200,7000)

WRITE(200,7001)

WRITE (200, 7002)

WRITE (200, 9302)

WRITE(200,7003)

WRITE(200,7004)

WRITE(200,7005) .

WRITE(200,9303)

WRITE(200,9304)

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 487 of 656 ENDIF 2300 CONTINUE ELSEIF (CRCLADMAT(BANKNUM(COLUMN,ROW>>

c .EQ.2) THEN DO 2310 C=l,2 IF (C.EQ.1) THEN WRITE(200,9305) CRCLADML (COLUMN, ROW)

ELSEIF (C.EQ.2) THEN WRITE (200, 9306)

WRITE (200, 9307)

WRITE (200, 9308)

WRITE (200, 9309)

WRITE(200,9310)

WRITE(200,7006)

WRITE(200,7007)

WRITE(200,7008)

WRITE (200, 9311)

WRITE(200,9312)

WRITE(200,7009)

WRITE(200,7010)

WRITE (200, 7011)

WRITE (200, 9313)

WRITE(200,7012)

WRITE(200,7013)

WRITE(200,7014)

WRITE (200, 7015)

ENDIF 2310 CONTINUE ELSEIF (CRCLADMAT(BANKNUM(COLUMN,ROW>>

c .EQ.3) THEN DO 2320 C=1,2 IF (C.EQ.1) THEN WRITE (200, 9314) CRCLADML(COLUMN,ROW)

ELSEIF (C.EQ.2) THEN WRITE(200,9315)

WRITE(200,9316)

WRITE (200, 9317)

WRITE (200, 9318)

WRITE(200,7016)

WRITE(200,7017)

WRITE(200,7018)

WRITE (200, 9319)

WRITE (200, 9320)

WRITE (200, 7019)

WRITE(200,7020)

WRITE(200,7021)

WRITE(200,9321)

WRITE (200, 7022)

WRITE(200,7023)

WRITE(200,7024)

WRITE(200,7025)

WRITE (200, 9322)

WRITE (200, 9323)

WRITE(200,9324)

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 AttachmentI,Page488of656 WRITE (200, 9325)

WRITE (200, 9326)

WRITE(200,9327)

WRITE(200,7026)

WRITE(200,9328)

WRITE (200, 9329)

WRITE (200, 9330)

ENDIF 2320 CONTINUE ENDIF MN=MN+I ENDIF IF (CRCLADMAT(BANKNUM(COLUMN,ROW>>.EQ.I) THEN CLADRHO=6.56 ELSEIF (CRCLADMAT(BANKNUM(COLUMN,ROW>>.EQ.2) THEN CLADRHO=7.90 ELSEIF (CRCLADMAT(BANKNUM(COLUMN,ROW>>.EQ.3) THEN CLADRHO=8.19 ENDIF WRITE (30, 2330) LN, CRCLADML(COLUMN,ROW), (-I*CLADRHO),

c CRCLADIRSURF, c (-l*CRCLADORSURF), (-l*CRCLADTOPSURF), CRCLADBOTTOMSURF, c CRAUNIV(COLUMN,ROW) 2330 FORMAT(Tl,I4,T6,I4,TII,F8.5,T25,I4,lX,I4,IX,I4,IX,I4, c , IMP:N=l U=',I3,' $ Control rod cladding')

J LN=LN+l ENDIF

• Write the CR upper plenum cell in this CR universe.

• Determine if the CR upper plenum material specification has

• previously been defined. If it has been previously defined, determine

• the upper plenum material specification label.

CRUPMLUNIQUE=.TRUE.

LEAVE=.FALSE.

IF <<COLUMN.NE.I).AND. (ROW.NE.I>> THEN DO 2350 RO=I, (ROW-I)

DO 2340 CO=1,50 IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKNUM(COLUMN,ROW).EQ.

c BANKNUM(CO,RO>> THEN CRUPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

CRUPML(COLUMN,ROW)=CRUPML(CO,RO)

EXIT ENDIF ENDIF 2340 CONTINUE IF (LEAVE.EQ .* TRUE.) THEN EXIT ENDIF 2350 CONTINUE IF (LEAVE.EQ .. FALSE.) THEN DO 2370 RO=ROW,ROW DO 2360 CO=I, (COLUMN-I)

IF (BANKNUM(CO,RO).NE.O) THEN

Waste Package Ope~a~ions Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 489 of 656 IF (BANKNUM(COLUMN,ROW).EQ.

c BANKNUM(CO,RO>> THEN CRUPMLUNIQUE=.FALSE.

LEAVE.... TRUE.

CRUPML (COLUMN, ROW) =CRUPML (CO, RO)

EXIT ENDIF ENDIF 2360 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 2370 CONTINUE ENDIF ELSEIF <<COLUMN.EQ.1).AND. (ROW.NE.1>> THEN DO 2390 RO=I, (ROW-I)

DO 2380 CO=1,SO .

IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKNUM(COLUMN,ROW).EQ.

c BANKNUM(CO,RO>> THEN CRUPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

CRUPML (COLUMN, ROW)"'CRUPML (CO, RO)

EXIT 0'- 0) ENDIF ENDIF

_.~

2380 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 2390 CONTINUE ELSEIF <<ROW.EQ.l).AND. (COLUMN.NE.l>> THEN DO 2410 RO=I,1 DO 2400 CO=1, (COLUMN-I)

IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKNUM(COLUMN,ROW).EQ.

c BANKNUM(CO,RO>> THEN CRUPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

~RUPML(COLUMN,ROW)=CRUPML(CO,RO)

EXIT ENDIF ENDIF 2400 CONTINUE 0 IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 2410 CONTINUE ENDIF .

IF (SURFVALUESPEC(CRABSTOPSURF).LT.

c SURFVALUESPEC(UEFTOPSURF>> THEN IF (CRUPMLUNIQUE.EQ .. TRUE.) THEN CRUPML (COLUMN, ROW) =MN

• Check Control Rod Upper Plenum Regions

Waste Package Operations Engineering Calculation

Title:

eRe Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 490 of 656 Db 2440C=I,CRUPLENMAT(BANKNUM(COLUMN,ROW),2)

IF (C.EQ.I) THEN WRITE(200,2420) CRUPML(COLUMN,ROW),

c CRUPZS(BANKNUM(COLUMN,ROW),C),

c (-I*CRUPLENWTS(BANKNUM(COLUMN,ROW),C>>

2420 FORMAT (Tl, 'M',I4,T9,A9,3X,GI4.6, c , $ Control Rod Upper Plenum')

ELSE WRITE(200,2430) c CRUPZS(BANKNUM(COLUMN,ROW),C),

c (-I*CRUPLENWTS(BANKNUM(COLUMN,ROW),C>>

2430 FORMAT(T9,A9,3X,GI4.6)

ENDIF 2440 CONTINUE MN=MN+I ENDIF WRITE (30, 2450) LN, CRUPML(COLUMN,ROW),

c (-I*CRUPLENMAT(BANKNUM(COLUMN,ROW),I>>,

c CRABSTOPSURF, c . (-l*CRCLADTOPSURF), (-l*CRCLADIRSURF),

c CRAUNIV (COLUMN, ROW) 2450 FORMAT(Tl,I4,T6,I4,Tll,FB.S,T25,I4,lX,I4,lX,I4, c , IMP:N=l U='~I3,' $ Control rod upper plenum')

LN=LN+l ENDIF

• Write the CR lower plenum cell in this CR universe.

.. Determine if the CR lower plenum material specification has

• previously been defined. If it has been previously defined, determine

• the lower plenum material specificatiQn label.

CRLPMLUNIQUE=.TRUE.

LEAVE=.FALSE.

IF <<COLUMN.NE.l).AND. (ROW.NE.l>> THEN DO 2470 RO=l, (ROW-I)

DO 2460 CO=l,SO IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKNUM(COLUMN,ROW).EQ.BANKNUM(CO,RO>> THEN CRLPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

CRLPML (COLUMN, ROW) =CRLPML (CO, RO)

EXIT ENDIF ENDIF 2460 CONTINUE IF (LEAVE.EQ *. TRUE.) THEN EXIT ENDIF 2470 CONTINUE IF (LEAVE.EQ .. FALSE.) THEN DO 2490 RO=ROW,ROW DO 2480 CO=l, (COLUMN-I)

IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKNUM(COLUMN,ROW) .EQ.

c BANKNUM(CO,RO>> THEN CRLPMLUNIQUE=.FALSE.

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 491 of 656 LEAVE=.TRUE.

CRLPML(COLUMN, ROW) =CRLPML(CO, RO)

EXIT ENDIF ENDIF 2480 CONTINUE IF (LEAVE.EQ *. TRUE.) THEN EXIT ENDIF 2490 CONTINUE ENDIF ELSEIF <<COLUMN.EQ.l).AND. (ROW.NE.l) THEN DO 2510 RO=l, (ROW-I)

DO 2500 CO=1,50 IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKNUM(COLUMN,ROW).EQ.

c BANKNUM(CO,RO) THEN CRLPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

CRLPML (COLUMN,ROW)=CRLPML(CO, RO)

EXIT ENDIF ENDIF 2500 CONTINUE.

IF (LEAVE.EQ .* TRUE.) THEN EXIT ENDIF 2510 CONTINUE ELSEIF <<ROW.EQ.l).AND. (COLUMN.NE.l>> THEN DO 2530 RO=l,l DO 2520 CO=l, (COLUMN-I)

IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKNUM(COLUMN,ROW).EQ.

c BANKNUM(CO,RO>> THEN CRLPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

CRLPML(COLUMN,ROW)=CRLPML (CO, RO)

EXIT ENDIF ENDIF 2520 CONTINUE IF (LEAVE.EQ *. TRUE.) THEN EXIT ENDIF

, 2530 CONTINUE ENDIF IF (SURFVALUESPEC(CRCLADBOTTOMSURF).LT.

c SURFVALUESPEC(UEFTOPSURF>> THEN IF (CRLPMLUNIQUE.EQ .* TRUE.) THEN CRLPML(COLUMN,ROW)=MN

• Check Control Rod Lower Plenum Regions DO 2560 C=1,CRLPLENMAT(BANKNUM(COLUMN,ROW),2)

IF (C.EQ.l) THEN WRITE(200,2540) CRLPML(COLUMN,ROW),

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2

-. Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 492 of 656

)

c CRLPLENZAIDS(BANKNUM(COLUMN,ROW),C),

c (-l*CRLPLENWTS(BANKNUM(COLUMN,ROW),C>>

2540 FORMAT (Tl, 'M',I4,T9,A9,3X,G14.6, c $ Control Rod Lower Plenum')

ELSE WRITE (200, 2550) c CRLPLENZAIDS(BANKNUM(COLUMN,ROW),C),

c (-l*CRLPLENWTS(BANKNUM(COLUMN,ROW),C>>

2550 FORMAT(T9,A9,3X,G14.6)

ENDI-F 2560 CONTINUE MN=MN+l ENDIF WRITE (30, 2570) LN, CRLPML(COLUMN,ROW),

c (-l*CRLPLENMAT(BANKNUM(COLUMN,ROW),l>>, CRCLADBOTTOMSURF, c (-l*CRABSBOTTOMSURF), (-l*CRCLADIRSURF),

c CRAUNIV(COLUMN,ROW) 2570 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4, c ' IMP:N=l U=',I3,' $ Control rod lower plenum')

LN=LN+l ENDIF DO 2620 SECT=l,NUMOFGTAXS(DESNUM(COLUMN,ROW>>

• Define the GT section top surface.

CURRENTSURF=GTAXDATA(DESNUM(COLUMN,ROW),3,SECT)

IF (CURRENTSURF.GT.SURFVALUESPEC(UEFTOPSURF>> THEN

} CURRENTSURF=SURFVALUESPEC(UEFTOPSURF)

ENDIF CURRENTSURFLABEL=O DO 2580 Vel, (SN-l)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 2580 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN GTSECTTOPSURF(SECT)=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+I ELSE GTSECTTOPSURF(SECT)=CURRENTSURFLABEL ENDIF

• Define the GT section bottom surface.

CURRENTSURF=GTAXDATA(DESNUM(COLUMN,ROW),4,SECT)

CURRENTSURFLABEL=O DO 2590 Vel, (SN-l)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 493 of 656 2590 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN GTSECTBOTSURF(SECT)=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+1 ELSE GTSECTBOTSURF (SECT) =CURRENTSURFLABEL ENDIF

• Define the GT section outer radius surface.

CURRENTSURF=GTAXDATA(DESNUM(COLUMN,ROW),2,SECT)

CURRENTSURFLABEL=O DO 2600 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'CZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 2600 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN GTSECTORSURF(SECT)=SN SURFTYPESPEC(SN)='CZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1

.i ELSE.

GTSECTORSURF(SECT)-CURRENTSURFLABEL ENDIF

• Define the GT section inner radius surface.

CURRENTSURF=GTAXDATA(DESNUM(COLUMN,ROW),l,SECT)

CURRENTSURFLABEL=O DO 2610 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'CZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 2610 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN GTSECTIRSURF (SECT) =SN SURFTYPESPEC(SN)='CZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+1 ELSE GTSECTIRSURF(SECT)=CURRENTSURFLABEL ENDIF 2620 CONTINUE

• Write the GT material cell DO 2750 SECT=l, NUMOFGTAXS(DESNUM (COLUMN, ROW) )

• Determine if the GT material specification has

• previously been defined. If it has been previously defined, determine

• the material specification label.

CLADMLUNIQUE=.TRUE.

Waste Package Operations E":gineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 494 of 656 LEAVE=.FALSE.

IF <<COLUMN.NE.I) .AND.(ROW.NE.I>> THEN DO 2640 RO=I, (ROW-I)

DO 2630 CO=I,50 IF <<DESNUM(CO,RO).NE.O).AND.

c (BANKNUM(CO,RO).EQ.O>> THEN IF .( GTAXMAT (DESNUM (COLUMN, ROW) , SECT) *EQ.

c GTMAT(DESNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTAXML(COLUMN,ROW,SECT)=GTML(CO,RO)

EXIT ELSEIF (GTAXMAT(DESNUM(COLUMN,ROW),SECT).EQ.

c GTAXMAT(DESNUM(CO,RO),SECT>> THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE. .

GTAXML (COLUMN, ROW, SECT)=GTAXML (CO, RO,SECT)

EXIT ENDIF ENDIF 2630 CONTINUE IF (LEAVE.EQ ** TRUE.) THEN EXIT ENDIF 2640 CONTINUE

.J IF (LEAVE.EQ ** FALSE.) THEN DO 2660 RO=ROW,ROW DO 2650 CO=I, (COLUMN-I)

IF <<DESNUM(CO,RO).NE.O) .AND.

c (BANKNUM(CO,RO).EQ.O>> THEN IF (GTAXMAT(DESNUM(COLUMN,ROW),SECT).EQ.

c GTMAT(DESNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTAXML (COLUMN, ROW, SECT)=GTML (CO, RO)

EXIT ELSEIF (GTAXMAT(DESNUM(COLUMN,ROW),SECT).EQ.

c GTAXMAT(DESNUM(CO,RO),SECT>> THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTAXML (COLUMN, ROW, SECT)=GTAXML(CO,RO, SECT)

EXIT ENDIF ENDIF 2650 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 2660 CONTINUE ENDIF ELSEIF <<COLUMN.EQ.I).AND. (ROW.NE.I>> THEN DO 2680 RO=I, (ROW-I)

DO 2670 CO=I,50 IF <<DESNUM(CO,RO).NE.O) .AND.

Waste Package Operations Engineering Calculation

Title:

CRe Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 495 of656 c CBANKNUMCCO~RO).EQ.O>> THEN IF CGTAXMATCDESNUMCCOLUMN,ROW),SECT).EQ.

c GT~TCDESNUMCCO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTAXMLCCOLUMN,ROW,SECT)=GTML(CO,RO)

EXIT ELSEIF (GTAXMAT(DESNUM(COLUMN,ROW),SECT) .EQ.

c GTAXMAT(DESNUM(CO,RO),SECT>> THEN' CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTAXML (COLUMN, ROW, SECT) =GTAXML CCO, RO, SECT)

EXIT ENDIF ENDIF 2670 CONTINUE IF (LEAVE.EQ ** TRUE.) THEN EXIT ENDIF 2680 CONTINUE ELSEIF <<ROW.EQ.I).AND. (COLUMN.NE.I>> THEN DO 2700 RO=I,l DO 2690 CO=I, CCOLUMN-I)

IF (CDESNUM(CO,RO).NE.O).AND.

c CBANKNUMCCO,RO).EQ.O>> THEN IF CGTAXMATCDESNUMCCOLUMN,ROW),SECT).EQ.

c GTMAT(DESNUMCCO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTAXML(COLUMN,ROW,SECT)=GTMLCCO,RO)

EXIT ELSEIF CGTAXMATCDESNUM(COLUMN,ROW),SECT) .EQ.

c GTAXMAT(DESNUM(CO,RO),SECT>> THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTAXML CCOLUMN, ROW, SECT)=GTAXML (CO, RO, SECT)

EXIT ENDIF ENDIF.

2690 CONTINUE IF (LEAVE.EQ ** TRUE.) THEN EXIT ENDIF 2700 CONTINUE ENDIF IF CCLADMLUNIQUE.EQ .. TRUE.) THEN GTAXMLCCOLUMN,ROW,SECT)=MN

• Check Guide Tube Material IF (GTAXMAT(DESNUM(COLUMN,ROW),SECT) .EQ.I) THEN DO 2710 C-=I,2 IF CC.EQ.l) THEN WRITEC200,9300) GTAXML CCOLUMN, ROW, SECT)

ELSEIF CC.EQ.2) THEN WRITEC200,9301)

---

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

Waste Package Operations Engineering

. '~.

Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 496 of656 WRITE(200,7000)

WRITE (200, 7001)

WRITE (200, 7002)

WRITE(200,9302)

WRITE (200, 7003)

WRITE(200,7004)

WRITE (200, 7005)

WRITE (200, 9303)

WRITE (200, 9304)

ENDIF 2710 CONTINUE ELSEIF (GTAXMAT(DESNUM(COLUMN,ROW),SECT) c .EQ.2) THEN DO 2720 C=1,2 IF (C.EQ.1) THEN WRITE (200, 9305) GTAXML(COLUMN, ROW, SECT)

ELSEIF (C.EQ.2) THEN WRITE(200,9306)

WRITE (200, 9307)

WRITE (200, 9308)

WRITE (200, 9309)

WRITE (200, 9310)

WRITE(200,7006)

WRITE(200,7007)

WRITE(200,7008)

) WRITE (200, 9311)

--- WRITE (200, 9312)

WRITE (200, 7009)

WRITE(200,7010)

WRITE(200,7011)

WRITE (200, 9313)

WRITE(200,7012)

WRITE (200, 7013)

WRITE (200,7014)

WRITE(200,7015)

ENDIF 2720 CONTINUE ELSEIF (GTAXMAT(DESNUM(COLUMN,ROW),SECT) c .EQ.3) THEN DO 2730 C=1,2 IF (C.EQ.1) THEN WRITE (200, 9314) GTAXML (COLUMN, ROW, SECT)

ELSEIF (C.EQ.2) THEN WRITE (200, 9315)

WRITE(200,9316)

WRITE(200,9317)

WRITE(200,9318)

WRITE(200,7016)

WRITE(200,7017)

WRITE(200,7018)

WRITE (200, 9319)

WRITE (200, 9320)

WRITE (200, 7019)

WRITE(200,7020)

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calcuiations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 497 of 656 WRITE(200,7021)

WRITE (200, 9321)

WRITE (200, (7022)

WRITE (200, 7023)

WRITE (200, 7024)

WRITE (200, 7025)

WRITE(200,9322)

WRITE(200,9323)

WRITE (200, 9324)

WRITE(~00,9325)

WRITE (200, 9326)

WRITE(200,9327)

WRITE (200, 7026)

WRITE (200, 9328)

WRITE (200, 9329)

WRITE (200, 9330)

ENDIF 2730 CONTINUE ENDIF MN=MN+1 ENDIF IF (GTAXMAT(DESNUM(COLUMN,ROW),SECT).EQ.1) THEN CLADRHO=6.56 ELSEIF (GTAXMAT(DESNUM(COLUMN,ROW),SECT).EQ.2) THEN CLADRHO=7.90 ELSEIF (GTAXMAT(DESNUM(COLUMN,ROW),SECT).EQ.3) THEN CLADRHO=8.19 ENDIF WRITE (30, 2740) LN, GTAXML(COLUMN,ROW,SECT), (-l*CLADRHO),

c GTSECTIRSURF(SECT),

c (-l*GTSECTORSURF(SECT>>, (-l*GTSECTTOPSURF(SECT>>,

c GTSECTBOTSURF(SECT), CRAUNIV(COLUMN,ROW) 2740 FORMAT(Tl,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4,lX,I4, c , IMP:N=l U=',I4,' $ Guide tube')

LN=LN+1 2750 CONTINUE

• Loop through the spacer and moderator regions along the axial

• length of the GT (from top to bottom).

SPACHEIGHT=O.O DO 2760 SPN=l,NUMOFSPACERS(DESNUM(COLUMN,ROW>>

SPACHEIGHT=SPACHEIGHT+SPACERHEIGHT(DESNUM(COLUMN,ROW),SPN) 2760 CONTINUE DO 2950 SPN=l,NUMOFSPACERS(DESNUM(COLUMN,ROW>>

• Define the homogenized spacer region bounding surfaces.

IF (SPN.EQ.l) THEN SPACERTOPSURF=UEFBOTTOMSURF CURRENTSURF=SURFVALUESPEC(UEFBOTTOMSURF)-

c SPACERHEIGHT(DESNUM(COLUMN,ROW),SPN)

CURRENTSURFLABEL=O DO 2770 V=l, (SN-1)

IF (SURFTYPESPEC(V) .EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT

---

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

Waste Package Operations .,

Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: 800000000-01717-0210-00006 REV 00 Attachment I, Page 494 of 656 LEAVE=.FALSE.

IF ((COLUMN.NE.l).AND. (ROW.NE.l) THEN DO 2640 RO=l, (ROW-l)

DO 2630 CO=l,50 IF ((DESNUM(CO,RO).NE.O) .AND.

c (BANKNUM(CO,RO) .EQ.O>> THEN IF (GTAXMAT(DESNUM(COLUMN,ROW) ,SECT) .EQ.

c GTMAT(DESNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTAXML(COLUMN,ROW,SECT)=GTML(CO,RO)

EXIT ELSEIF (GTAXMAT(DESNUM(COLUMN,ROW),SECT).EQ.

c GTAXMAT(DESNUM(CO,RO),SECT>> THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTAXML (COLUMN,ROW, SECT) =GTAXML (CO, RO, SECT)

EXIT ENDIF ENDIF 2630 CONTINUE IF (LEAVE.EQ .* TRUE.) THEN EXIT ENDIF 2640 CONTINUE IF (LEAVE.EQ .* FALSE.) THEN DO 2660 RO=ROW,ROW DO 2650 CO=l, (COLUMN~l)

IF ((DESNUM(CO,RO).NE.O) .AND.

c (BANKNUM(CO,RO) .EQ.O>> THEN IF (GTAXMAT(DESNUM(COLUMN,ROW) ,SECT) .EQ.

c GTMAT(DESNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTAXML(COLUMN,ROW,SECT)=GTML(CO,RO)

EXIT ELSEIF (GTAXMAT(DESNUM(COLUMN,ROW) ,SECT) .EQ.

c GTAXMAT(DESNUM(CO,RO),SECT>> THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTAXML (COLUMN,ROW,SECT) =GTAXML (CO,RO,SECT)

EXIT .

ENDIF ENDIF 2650 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 2660 CONTINUE ENDIF ELSEIF <<(COLUMN.EQ.1).AND. (ROW.NE.l>> THEN DO 2680 RO=l, (ROW-l)

DO 2670 CO=1, 50 ~

IF ((DESNUM(CO,RO).NE.O) .AND.

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 495 of 656 c (BANKNUM(CO,RO) .EQ.O>> THEN IF (GTAXMAT(DESNUM(COLUMN,ROW),SECT).EQ.

c GTMAT(DESNUM(CO,RO)) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTAXML(COLUMN, ROW, SECT) =GTML (CO, RO)

EXIT ELSEIF (GTAXMAT(DESNUM(COLUMN,ROW),SECT) .EQ.

c GTAXMAT(DESNUM(CO,RO),SECT>> THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTAXML(COLUMN, ROW, SECT)=GTAXML (CO, RO, SECT)

EXIT ENDIF ENDIF 2670 CONTINUE IF (LEAVE.EQ .* TRUE.) THEN EXIT ENDIF 2680 CONTINUE ELSEIF <<ROW.EQ.l).AND. (COLUMN.NE.l>> THEN DO 2700 RO=l,l DO 2690 CO=l, (COLUMN-l)

IF <<DESNUM(CO,RO) .NE.O).AND.

c (BANKNUM(CO,RO).EQ.O>>) THEN IF (GTAXMAT(DESNUM(COLUMN,ROW),SECT) .EQ.

c GTMAT(DESNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTAXML (COLUMN, ROW, SECT) =GTML (CO, RO)

EXIT ELSEIF (GTAXMAT(DESNUM(COLUMN,ROW),SECT).EQ.

c GTAXMAT(DESNUM(CO,RO),SECT>> THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTAXML (COLUMN, ROW, SECT) =GTAXML(CO, RO,SECT)

EXIT ENDIF ENDIF.

2690 CONTINUE IF (LEAVE.EQ .* TRUE.) THEN EXIT ENDIF 2700 CONTINUE ENDIF IF (CLADMLUNIQUE.EQ *. TRUE.) THEN GTAXML (COLUMN, ROW, SECT)=MN

• Check Guide Tube Material IF (GTAXMAT(DESNUM(COLUMN,ROW),SECT) .EQ.l) THEN DO 2710 C=1,2 IF (C.EQ.l) THEN WRITE (200, 9300) GTAXML(COLUMN, ROW, SECT)

ELSEIF (C.EQ.2) THEN WRITE(200,9301)

Waste Package Operations Engineering Calculation

Title:

CRe Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-021 0-00006 REV 00 Attachment I, Page 498 of 656 ENDIF ENDIF 2770 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN SPACERBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+l ELSE SPACERBOTTOMSURF=CURRENTSURFLABEL ENDIF WATERREGIONTOPSURF=SPACERBOTTOMSURF CURRENTSURF=SPACERDIST(DESNUM(COLUMN,ROW), (SPN+l>>

CURRENTSURFLABEL=O DO 2780 V=l, (SN-l)

IF (SURFTYPESPEC(V) .EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT~ ( 0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 2780 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN WATERREGIONBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+l ELSE

• WATERREGIONBOTTOMSURF=CURRENTSURFLABEL ENDIF ELSEIF <<SPN.NE.l) .AND.(SPN.NE.

c NUMOFSPACERS(DESNUM(COLUMN,ROW>>>> THEN SPACERTOPSURF=WATERREGIONBOTTOMSURF CURRENTSURF=SURFVALUESPEC(WATERREGIONBOTTOMSURF)-

c SPACERHEIGHT(DESNUM(COLUMN,ROW),SPN)

CURRENTSURFLABEL=O DO 2790 V=l, (SN-l)

JF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 2790 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN SPACERBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+l ELSE SPACERBOTTOMSURF=CURRENTSURFLABEL ENDIF WATERREGIONTOPSURF=SPACERBOTTOMSURF CURRENTSURF=SPACERDIST(DESNUM(COLUMN,ROW), (SPN+l>>

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: 800000000-01717-0210-00006 REV 00 Attachment I, Page 499 of 656 CURRENTSURFLABEL=O DO 2800 V=l, (SN-1)

IF (SURFTYPESPEC(V) .EQ. 'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 2800 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN WATERREGIONBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE WATERREGIONBOTTOMSURF=CURRENTSURFLABEL ENDIF ELSEIF (SPN.EQ.NUMOFSPACERS(DESNUM(COLUMN,ROW>>) THEN SPACERTOPSURF=WATERREGIONBOTTOMSURF CURRENTSURF=SURFVALUESPEC(WATERREGIONBOTTOMSURF)-

c SPACERHEIGHT(DESNUM(COLUMN,ROW),SPN)

CURRENTSURFLABEL=O DO 2810 V=l, (SN-l)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 2810 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN SPACERBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+l ELSE SPACERBOTTOMSURF=CURRENTSURFLABEL ENDIF WATERREGIONTOPSURF=SPACERBOTTOMSURF WATERREGIONBOTTOMSURF=NODEBOTTOMSURF ENDIF

• Write the current homogenized spacer region cell in this GT universe.

DO 2940 SECT=l,NUMOFGTAXS(DESNUM(COLUMN,ROW>>

IF <<SURFVALUESPEC(GTSECTTOPSURF(SECT>>.GT.

c SURFVALUESPEC(SPACERTOPSURF>>.AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>>.LT.

c SURFVALUESPEC(SPACERBOTTOMSURF>>) THEN WRITE (30, 2820) LN, HOMOSPACMLNUM(DESNUM(COLUMN,ROW),SPN),

c (-l*HOMOSPACERDEN(DESNUM(COLUMN,ROW),SPN>>,

c GTSECTORSURF(SECT),

c (-l*SPACERTOPSURF), SPACERBOTTOMSURF, CRAUNIV(COLUMN,ROW),

c SPN 2820 FORMAT(T1,I4,T6,I4,T11,G14.8,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I4,

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 500 of 656 c $ Homogenized region for spacer ',12)

LN=LN+l ELSEIF ((SURFVALUESPEC(GTSECTTOPSURF(SECT).EQ.

c SURFVALUESPEC(SPACERTOPSURF>>.AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>> .LT.

c SURFVALUESPEC(SPACERBOTTOMSURF>>) THEN WRITE(30,2830) LN, HOMOSPACMLNUM(DESNUM(COLUMN,ROW),SPN),

c (-l*HOMOSPACERDEN(DESNUM(COLUMN,ROW),SPN),

c GTSECTORSURF(SECT),

c (-l*SPACERTOPSURF), SPACERBOTTOMSURF, CRAUNIV(COLUMN,ROW),

c SPN 2830 FORMAT(Tl,I4,T6,I4,Tll,G14.8,T25,I4,lX,I4,lX,I4, c , 1MP:N=l U=',14, c $ Homogenized region for spacer ',12)

LN=LN+l ELSEIF (SURFVALUESPEC(GTSECTTOPSURF(SECT>>.EQ.

c SURFVALUESPEC(SPACERTOPSURF>>.AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>> .EQ.

c SURFVALUESPEC(SPACERBOTTOMSURF>>) THEN WR1TE(30,2840) LN, HOMOSPACMLNUM(DESNUM(COLUMN,ROW),SPN),

c (-l*HOMOSPACERDEN(DESNUM(COLUMN,ROW),SPN>>,

c GTSECTORSURF(SECT),

c (-l*SPACERTOPSURF), SPACERBOTTOMSURF, CRAUNIV(COLUMN,ROW),

c SPN 2840 FORMAT(Tl,I4,T6,I4,Tll,G14.8,T25,14,lX,14,lX,14, c , IMP:N=l U=',14, c $ Homogenized region for spacer ',12)

LN=LN+l ELSEIF ((SURFVALUESPEC(GTSECTTOPSURF(SECT>>.GT.

c SURFVALUESPEC(SPACERTOPSURF>> .AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>>.EQ.

c SURFVALUESPEC(SPACERBOTTOMSURF>>) THEN WRITE(30,2850) LN, HOMOSPACMLNUM(DESNUM(COLUMN,ROW),SPN),

c (-l*HOMOSPACERDEN(DESNUM(COLUMN,ROW),SPN>>,

c GTSECTORSURF(SECT),

c (-l*SPACERTOPSURF), SPACERBOTTOMSURF, CRAUNIV(COLUMN,ROW),

c SPN 2850 FORMAT(Tl,I4,T6,I4,Tll,G14.8,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I4, c , $ Homogenized region for spacer ',12)

LN=LN+l ELSEIF (SURFVALUESPEC(GTSECTTOPSURF(SECT>>.GT.

c SURFVALUESPEC(SPACERTOPSURF>>.AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>>.GT.

c SURFVALUESPEC(SPACERBOTTOMSURF>> .AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>>.LT.

c SURFVALUESPEC(SPACERTOPSURF>>) THEN WR1TE(30,2860) LN, HOMOSPACMLNUM(DESNUM(COLUMN,ROW),SPN),

c (-l*HOMOSPACERDEN(DESNUM(COLUMN,ROW),SPN>>),

c GTSECTORSURF(SECT),

c (-l*SPACERTOPSURF), GTSECTBOTSURF(SECT),

c CRAUNIV(COLUMN,ROW), SPN

~860 FORMAT(Tl,I4,T6,I4,Tll,G14.8,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I4,

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: 800000000-01717-0210-00006 REV 00 Attachment I, Page 501 of656 c $ Homogenized region for spacer ',12)

LN=LN+l ELSE1F <<SURFVALUESPEC(GTSECTTOPSURF(SECT)).LT.

c SURFVALUESPEC(SPACERTOPSURF>>) .AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>>.LT.

c SURFVALUESPEC(SPACERBOTTOMSURF).AND.

c (SURFVALUESPEC(GTSECTTOPSURF(SECT).GT.

c SURFVALUESPEC(SPACERBOTTOMSURF)) THEN WR1TE(30,2870) LN, HOMOSPACMLNUM(DESNUM(COLUMN,ROW),SPN),

c (-l*HOMOSPACERDEN(DESNUM(COLUMN,ROW),SPN),

c GTSECTORSURF(SECT),

c (-l*GTSECTTOPSURF(SECT>>), SPACERBOTTOMSURF, c CRAUN1V(COLUMN,ROW), SPN 2870 FORMAT(Tl,14,T6,14,Tll,G14.8,T25,14,lX,14,lX,14, c , 1MP:N=l U=',14, c $ Homogenized region for spacer ',12)

LN=LN+l ENDIF

• Write the water region cell below the current homogenized spacer cell in this GT universe.

IF <<SURFVALUESPEC(GTSECTTOPSURF(SECT) .GT.

c SURFVALUESPEC(WATERREGIONTOPSURF>>.AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT).LT.

c SURFVALUESPEC(WATERREGIONBOTTOMSURF>>) THEN WRITE(30,2880) LN, BMODML, (-l*MODDENSITY),

c GTSECTORSURF(SECT),

c (-l*WATERREGIONTOPSURF), WATERREG10NBOTTOMSURF, c CRAUNIV (COLUMN, ROW) 2880 FORMAT(Tl,I4,T6,I4,Tll,FlO.8,T25,I4,lX,I4,lX,14, c , 1MP:N=l U=',I4,' $ Borated moderator region')

LN=LN+l ELSEIF <<SURFVALUESPEC(GTSECTTOPSURF(SECT).EQ.

c SURFVALUESPEC(WATERREG10NTOPSURF>>.AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>>.LT.

c SURFVALUESPEC(WATERREGIONBOTTOMSURF>>) THEN WRITE(30,2890) LN, BMODML, (-l*MODDENSITY),

c GTSECTORSURF(SECT),

c (-l*WATERREGIONTOPSURF), WATERREGIONBOTTOMSURF, c CRAUNIV(COLUMN,ROW) 2890 FORMAT(Tl,I4,T6,I4,Tll,FlO.8,T25,I4,lX,14,lX,14, c , 1MP:N=l U=',14,' $ Borated moderator region')

LN=LN+l ELSEIF <<SURFVALUESPEC(GTSECTTQPSURF(SECT>>) ;EQ.

c SURFVALUESPEC(WATERREG10NTOPSURF) .AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>>.EQ.

c SURFVALUESPEC(WATERREGIONBOTTOMSURF>>) THEN WRITE(30,2900) LN, BMODML, (-l*MODDENS1TY),

c GTSECTORSURF(SECT),

c (-l*WATERREG10NTOPSURF), WATERREG10NBOTTOMSURF, c CRAUN1VCCOLUMN,ROW) 2900 FORMAT(Tl,14,T6,14,Tll,F10.8,T25,14,lX,14,lX,14, c , 1MP:N=l U=',14,' $ Borated moderator region')

LN=LN+l ELSE1F <<SURFVALUESPEC(GTSECTTOPSURF(SECT>>) .GT.

Waste Package Op~rations Engineering Calculation

Title:

CRC Reactivity 'Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 502 of 656 c SURFVALUESPEC(WATERREGIONTOPSURF>> .AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>> .EO.

c SURFVALUESPEC(WATERREGIONBOTTOMSURF>>) THEN WRITE(30,2910) LN, BMODML, (-l*MODDENSITY),

c GTSECTORSURF(SECT),

c (-l*WATERREGIONTOPSURF), WATERREGIONBOTTOMSURF, c CRAUNIV(COLUMN,ROW) 2910 FORMAT(T1,I4,T6,I4,T11,FIO.8,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I4,' $ Borated moderator region')

LN=LN+1 ELSEIF ((SURFVALUESPEC(GTSECTTOPSURF(SECT>> .GT.

c SURFVALUESPEC(WATERREGIONTOPSURF>> .AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>> .GT.

c SURFVALUESPEC(WATERREGIONBOTTOMSURF>> .AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>>.LT.

c SURFVALUESPEC(WATERREGIONTOPSURF>>) THEN WRITE(30,2920) LN, BMODML, (-l*MODDENSITY),

c GTSECTORSURF(SECT),

c (-l*WATERREGIONTOPSURF), GTSECTBOTSURF(SECT),

c CRAUNIV (COLUMN, ROW) 2920 FORMAT(T1,I4,T6,I4,T11,FIO.8,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I4,' $ Borated moderator region')

LN=LN+1 ELSEIF ((SURFVALUESPEC(GTSECTTOPSURF(SECT>> .LT.

c SURFVALUESPEC(WATERREGIONTOPSURF>> .AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>> .LT.

c SURFVALUESPEC(WATERREGIONBOTTOMSURF>>.AND.

c (SURFVALUESPEC(GTSECTTOPSURF(SECT>>.GT.

c SURFVALUESPEC(WATERREGIONBOTTOMSURF>>) THEN WRITE (30,2930) LN, BMODML, (-1 *MODDENSITY) ,

c GTSECTORSURF(SECT),

c (-l*GTSECTTOPSURF(SECT>>, WATERREGIONBOTTOMSURF, c CRAUNIV(COLUMN,ROW) 2930 FORMAT(Tl,I4,T6,I4,Tl1,F10.8,T25,I4,lX,I4,lX,I4, c , 1MP:N=l U=',14,' $ Borated moderator region')

LN=LN+1 ENDIF 2940 CONTINUE 2950 CONTINUE

• Write the moderator inside of the GT in the CR universe DO 3000 GTSECT=l,NUMOFGTAXS(DESNUM(COLUMN,ROW>>

IF ((SURFVALUESPEC(GTSECTTOPSURF(GTSECT>> .GE.

c SURFVALUESPEC(CRCLADTOPSURF>>.AND.

c (SURFVALUESPEC(GTSECTBOTSURF(GTSECT>> .LE.

c SURFVALUESPEC(CRCLADBOTTOMSURF>>) THEN

• Write the moderator cells within the GT in this CR universe.

WRITE(30,2960) LN, BMODML, (-l*MODDENSITY),

c (-l*GTSECTIRSURF(GTSECT>>,

c CRCLADORSURF, (-l*CRCLADTOPSURF),

c CRCLADBOTTOMSURF, c CRAUNIV(COLUMN,ROW) 2960 FORMAT(Tl,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3, c $ Borated moderator inside guide tube')

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-021 0-00006 REV 00 Attachment I, Page 503 of 656 LN=LN+1 ELSEIF <<SURFVALUESPEC(GTSECTTOPSURF(GTSECT).GE.

c SURFVALUESPEC(CRCLADTOPSURF>>) .AND.

c (SURFVALUESPEC(GTSECTBOTSURF(GTSECT)).LT.

c SURFVALUESPEC(CRCLADTOPSURF).AND.

c (SURFVALUESPEC(GTSECTBOTSURF(GTSECT)) .GT.

c SURFVALUESPEC(CRCLADBOTTOMSURF))) THEN WRITE(30,2970) LN, BMODML, (-l*MODDENSITY),

c (-l*GTSECTIRSURF(GTSECT>>,

c CRCLADORSURF, (-l*CRCLADTOPSURF),

c GTSECTBOTSURF(GTSECT),

c CRAUNIV(COLUMN,ROW) 2970 FORMAT(T1,I4,T6,I4,T11,FS.5,T25,I4,lX,I4,lX,I4,lX,I4, c ' IMP:N=l U=',I3, c $ Borated moderator inside guide tube')

LN=LN+1 ELSEIF <<SURFVALUESPEC(GTSECTTOPSURF(GTSECT>>.LT.

c SURFVALUESPEC(CRCLADTOPSURF>>.AND.

c (SURFVALUESPEC(GTSECTBOTSURF(GTSECT) .LE.

c SURFVALUESPEC(CRCLADBOTTOMSURF>>.AND.

c (SURFVALUESPEC(GTSECTTOPSURF(GTSECT>> .GT.

c SURFVALUESPEC(CRCLADBOTTOMSURF>>) THEN WRITE(30,29S0) LN, BMODML, (-l*MODDENSITY),

c (-l*GTSECTIRSURF(GTSECT>>,

c CRCLADORSURF, (-l*GTSECTTOPSURF(GTSECT>>,

c CRCLADBOTTOMSURF, c CRAUNIV(COLUMN, ROW) 29S0 FORMAT(T1,I4,T6,I4,Tl1,FS.5,T25,I4,lX,I4,lX,I4,lX,I4, c ' IMP:N=l U=',I3, c $ Borated moderator inside guide tube')

LN=LN+1 ELSEIF <<SURFVALUESPEC(GTSECTTOPSURF(GTSECT>> .LT.

c SURFVALUESPEC(CRCLADTOPSURF>>.AND.

c (SURFVALUESPEC(GTSECTBOTSURF(GTSECT>>.GT.

c SURFVALUESPEC(CRCLADBOTTOMSURF>>) THEN WRITE(30,2990) LN, BMODML, (-l*MODDENSITY),

c (~l*GTSECTIRSURF(GTSECT>>,

c CRCLADORSURF, (-l*GTSECTTOPSURF(GTSECT>>,

c GTSECTBOTSURF(GTSECT),

c CRAUNIV(COLUMN,ROW) 2990 FORMAT(T1,I4,T6,I4,T11,FS.5,T25,I4,lX,I4,lX,I4,lX,I4, c ' IMP:N=l U=',I3, c ' $ Borated moderator inside guide tube')

LN=LN+1 ENDIF 3000 CONTINUE

• Determine the axial GT section which contains the lowest CR axial section DO 3010 GTSECT=l,NUMOFGTAXS(DESNUM(COLUMN,ROW>>

IF <<SURFVALUESPEC(GTSECTBOTSURF(GTSECT>>.LT.

c SURFVALUESPEC(CRCLADBOTTOMSURF>>.AND.

c (SURFVALUESPEC(GTSECTTOPSURF(GTSECT>>.GE.

c SURFVALUESPEC(CRCLADBOTTOMSURF>>) THEN BGT=GTSECT EXIT

Waste Package Operations Engineering Calculation,

Title:

CRe Reactivity Calculations for Sequoyah Unit 2 Document Identifier: 800000000-01717-0210-00006 REV 00 Attachment I, Page 504 of 656 ENDIF 3010 CONTINUE DO 3040 GTSECT=BGT,NUMOFGTAXS(DESNUM(COLUMN,ROW>>

IF (GTSECT.EQ.BGT) THEN WRITE(30,3020) LN, BMODML, (-l*MODDENSITY),

c (-l*GTSECT1RSURF(GTSECT>>,

c (-l*CRCLADBOTTOMSURF),

c GTSECTBOTSURF(GTSECT),

c CRAUNIV (COLUMN, ROW) 3020 FORMAT(Tl,I4,T6,I4,Tll,FS.5,T25,I4,lX,14,lX,I4, c , 1MP:N=~ U=',13, c $ Borated moderator inside guide tube')

LN=LN+l ELSE WRITE{30,3030) LN, BMODML, (-~*MODDENSITY),

c (-l*GTSECTIRSURF(GTSECT>>,

c (-l*GTSECTTOPSURF(GTSECT>>,

c GTSECTBOTSURF(GTSECT),

c CRAUNIV(COLUMN,ROW) 3030 FORMAT(Tl,I4,T6,I4,Tll,FS.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3, c $ Borated moderator inside guide tube')

LN=LN+l ENDIF 3040 CONTINUE

• Write the lower end-fitting cell specification for this CR universe.

GTBOTSURF=GTSECTBOTSURF(NUMOFGTAXS{DESNUM(COLUMN,ROW>>)

IF (SURFVALUESPEC(GTBOTSURF).GE.

c ENDFITHEIGHT(DESNUM(COLUMN,ROW),2>> THEN WRITE (30, 3050) LN, FRLEFML(COLUMN,ROW),

c (-l*LEFMAT(DESNUM{COLUMN,ROW),l>>, (-l*CRLEFTOPSURF),

c CRAUNIV(COLUMN,ROW) 3050 FORMAT(Tl,I4,T6,I4,Tll,FS.5,T25,I4,' IMP:N=l U=',I3, c , $ Lower end-fitting')

LN=LN+l ELSE WRITE(30,3060) LN, FRLEFML(COLUMN,ROW),

c (-l*LEFMAT(DESNUM(COLUMN,ROW),l>>, (-l*CRLEFTOPSURF),

c GTSECTORSURF (NUMOFGTAXS (DESNUM (COLUMN, ROW) ).) ,

c CRAUNIV{COLUMN,ROW) 3060 FORMAT(T1,I4,T6,I4,T11,FS.5,T25,I4,lX,I4, c , IMP:N=l U=',I3,' $ Lower end-fitting')

LN=LN+l WRITE (30, 3070) LN, FRLEFML(COLUMN,ROW),

c (-l*LEFMAT(DESNUM(COLUMN,ROW),l>>,

c (-l*GTSECTBOTSURF{NUMOFGTAXS(DESNUM(COLUMN,ROW>>>>,

c (-l*GTSECTORSURF(NUMOFGTAXS(DESNUM(COLUMN,ROW>>>>,

c CRAUNIV(COLUMN,ROW) 3070 FORMAT(Tl,I4,T6,I4,T11,F8.5,T25,I4,lX,I4, c , IMP:N=l U=',I3,' $ Lower end-fitting')

LN=LN+l ENDIF

• Write the upper end-fitting cell specification for this CR universe.

GTTOPSURF=GTSECTTOPSURF(l)

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 505 of656 IF <<SURFVALUESPEC(GTTOPSURF).GE.

c SURFVALUESPEC(UEFTOPSURF>>.AND.

c (SURFVALUESPEC(CRCLADTOPSURF).GE.

c SURFVALUESPEC(UEFTOPSURF>>) THEN WRITE(30,3080) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF), GTSECTORSURF(l), CRAUNIV(COLUMN,ROW) 3080 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Upper end-fitting')

LN=LN+1 ELSEIF <<SURFVALUESPEC(GTTOPSURF).LT.

c SURFVALUESPEC(UEFTOPSURF>> .AND.

c (SURFVALUESPEC(GTTOPSURF) .GT.

c SURFVALUESPEC(UEFBOTTOMSURF>>.AND.

c (SURFVALUESPEC(CRCLADTOPSURF) .GE.

c SURFVALUESPEC(UEFTOPSURF>>) THEN WRITE (30, 3090) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF), GTSECTORSURF(l), CRAUNIV(COLUMN,ROW) 3090 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Upper end-fitting')

LN=LN+1 WRITE(30,3100) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, GTTOPSURF, c (-l*UEFTOPSURF), CRCLADORSURF, (-l*GTSECTORSURF(l>>,

c CRAUNIV (COLUMN, ROW) 3100 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Upper end-fitting')

LN=LN+1 ELSEIF <<SURFVALUESPEC(GTTOPSURF).LE.

c SURFVALUESPEC(UEFBOTTOMSURF>> .AND.

c (SURFVALUESPEC(CRCLADTOPSURF).GE.

c SURFVALUESPEC(UEFTOPSURF>>) THEN WRITE(30,3110) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF), CRCLADORSURF, CRAUNIV (COLUMN, ROW) 3110 FORMAT(Tl,I4,T6,I4,T1l,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Upper end-fitting')

LN=LN+1 ELSEIF <<SURFVALUESPEC (GTTOPSURF) .GE.

c SURFVALUESPEC(UEFTOPSURF>>.AND.

c (SURFVALUESPEC(CRCLADTOPSURF).GT.

c SURFVALUESPEC(UEFBOTTOMSURF>>.AND.

c (SURFVALUESPEC(CRCLADTOPSURF).LT.

c SURFVALUESPEC(UEFTOPSURF>>) THEN WRITE(30,3120) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF), GTSECTORSURF(l), CRAUNIV (COLUMN, ROW) 3120 FORMAT(T1,I4,T6,I4,Tl1,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Upper end-fitting')

LN=LN+l WRITE(30,3130) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, CRCLADTOPSURF, c (-l*UEFTOPSURF), (-l*GTSECTIRSURF(l>>,

Waste Package Operations Engineering Calculation

Title:

eRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 506 of 656 c CRAUNIV (COLUMN, ROW) 3130 FORMAT(Tl,I4,T6,I4,T11,F8.5,T25,I4,IX,I4,1X,I4, c , IMP:N=1 U=',I3,' $ Upper end-fitting')

LN=LN+l ELSEIF <<SURFVALUESPEC(GTTOPSURF) .LT.

c SURFVALUESPEC(UEFTOPSURF>> .AND.

c (SURFVALUESPEC(GTTOPSURF) .GT.

c SURFVALUESPEC(CRCLADTOPSURF>> .AND.

c (SURFVALUESPEC(CRCLADTOPSURF) .GT.

c SURFVALUESPEC(UEFBOTTOMSURF>> .AND.

c (SURFVALUESPEC(CRCLADTOPSURF).LT.

c SURFVALUESPEC(UEFTOPSURF>>) THEN WRITE(30,3140) LN, FRUEFML(COLUMN,ROW),

c (-I*UEFMAT(DESNUM(COLUMN,ROW),I>>, UEFBOTTOMSURF, c (-1*UEFTOPSURF), GTSECTORSURF(1), CRAUNIV(COLUMN,ROW) 3140 FORMAT(Tl,I4,T6,I4,T11,F8.5,T25,I4,IX,I4,1X,I4, c , IMP:N=1 U=',I3,' $ Upper end-fitting')

LN=LN+l

-- WRITE (30, 3150) LN, FRUEFML (COLUMN, ROW),

c (-I*UEFMAT(DESNUM(COLUMN,ROW),I>>, CRCLADTOPSURF, c (-I*UEFTOPSURF), (-1*GTSECTIRSURF(1>>,

c CRAUNIV(COLUMN,ROW) 3150 FORMAT(Tl,I4,T6,I4,T11,F8.5,T25,I4,IX,I4,IX,I4, c , IMP:N=1 U=',I3,' $ Upper end-fitting')

LN=LN+l WRITE(30,3160) LN, FRUEFML(COLUMN,ROW),

c (-I*UEFMAT(DESNUM(COLUMN,ROW),1>>, GTTOPSURF, c (-1*UEFTOPSURF), GTSECTIRSURF(I),

c (-I*GTSECTORSURF(I>>, CRAUNIV (COLUMN, ROW) 3160 FORMAT(T1,I4,T6,I4,Tl1,F8.5,T25,I4,IX,I4,1X,I4,IX,I4, c , IMP:N=1 U=',I3,' $ Upper end-fitting')

LN=LN+1 ELSEIF <<SURFVALUESPEC(GTTOPSURF) .EQ.

c SURFVALUESPEC(CRCLADTOPSURF>>.AND.

c (SURFVALUESPEC(CRCLADTOPSURF).GT.

c SURFVALUESPEC(UEFBOTTOMSURF>>.AND.

c (SURFVALUESPEC(CRCLADTOPSURF) .LT.

c SURFVALUESPEC(UEFTOPSURF>>) THEN WRITE(30,3170) LN, FRUEFML(COLUMN,ROW),

c (-I*UEFMAT(DESNUM(COLUMN,ROW),I>>, UEFBOTTOMSURF, c (-1*UEFTOPSURF), GTSECTORSURF(1), CRAUNIV(COLUMN,ROW) 3170 FORMAT(Tl,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=1 U=',I3,' $ Upper end-fitting')

LN=LN+1 WRITE(30,3180) LN, FRUEFML(COLUMN,ROW),

c (-1*UEFMAT(DESNUM(COLUMN,ROW),1>>, CRCLADTOPSURF, c (-l*UEFTOPSURF), (-1*GTSECTORSURF(1>>,

c CRAUNIV(COLUMN,ROW) 3180 FORMAT(Tl,I4,T6,I4,T11,F8.5,T25,I4,1X,I4,1X,I4, c , IMP:N=l U=',I3,' $ Upper end-fitting')

LN=LN+l ELSEIF <<SURFVALUESPEC(GTTOPSURF).LT.

c SURFVALUESPEC(CRCLADTOPSURF>> .AND.

c (SURFVALUESPEC(GTTOPSURF) .GT.

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: 800000000-01717-0210-00006 REV 00 Attachment I, Page 507 of 656 c SURFVALUESPEC(UEFBOTTOMSURF>> .AND.

c (SURFVALUESPEC(CRCLADTOPSURF).GT.

c SURFVALUESPEC(UEFBOTTOMSURF>>.AND.

c (SURFVALUESPEC(CRCLADTOPSURF).LT.

c SURFVALUESPEC(UEFTOPSURF>>) THEN WRITE (30,*3190) LN, FRUEFML (COLUMN, ROW) ,

c (-1*UEFMAT(DESNUM(COLUMN,ROW),1>>, UEFBOTTOMSURF, c (-1*UEFTOPSURF), GTSECTORSURF(1), CRAUNIV(COLUMN,ROW) 3190 FORMAT(T1,I4,T6,I4,T11,FS.5,T25,I4,1X,I4,lX,I4, c , IMP:N=1 U=', 13,' . $ Upper end-fitting')

LN=LN+1 WRITE(30,3200) LN, FRUEFML(COLUMN,ROW),

c (-1*UEFMAT(DESNUM(COLUMN,ROW),1>>, CRCLADTOPSURF, c '-l*UEFTOPSURF), (-1*GTSECTORSURF(1>>,

c CRAUNIV(COLUMN,ROW) 3200 FORMAT(T1,I4,T6,I4,T11,FS.5,T25,I4,1X,I4,lX,I4, c , IMP:N=l U=',I3,' $ Upper end-fitting')

LN=LN+1 WRITE(30,3210) LN, FRUEFML(COLUMN,ROW),

c (-1*UEFMAT(DESNUM(COLUMN,ROW),1>>, GTTOPSURF, c (-1*CRCLADTOPSURF), CRCLADORSURF, c (-1*GTSECTORSURF(1>>, CRAUNIV(COLUMN,ROW) 3210 FORMAT(T1,I4,T6,I4,T11,FS.5,T25,I4,1X,I4,lX,I4,1X,I4, c , IMP:N=l U=',I3,' $ Upper end-fitting')

LN=LN+l ELSEIF (SURFVALUESPEC(GTTOPSURF).LE.

c SURFVALUESPEC(UEFBOTTOMSURF>> .AND.

c (SURFVALUESPEC(CRCLADTOPSURF).GT.

c SURFVALUESPEC(UEFBOTTOMSURF>>.AND.

c (SURFVALUESPEC(CRCLADTOPSURF).LT.

c SURFVALUESPEC(UEFTOPSURF>>) THEN WRITE(30,3220) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF), CRCLADORSURF, CRAUNIV(COLUMN,ROW) 3220 FORMAT(T1,I4,T6,I4,T11,FS.5,T25,I4,1X,I4,1X,I4, c , IMP:N=1 U=',I3,' $ Upper end-fitting')

LN=LN+1 WRITE (30, 3230) LN, FRUEFML(COLUMN,ROW),

c (-1*UEFMAT(DESNUM(COLUMN,ROW),1>>, CRCLADTOPSURF, c (-l*UEFTOPSURF), (-l*CRCLADORSURF),

c CRAUNIV (COLUMN, ROW) 3230 FORMAT(T1,I4,T6,I4,T11,FS.5,T25,I4,lX,I4,1X,I4, c , IMP:N=1 U=',I3,' $ Upper end-fitting')

LN=LN+1 ELSEIF (SURFVALUESPEC(CRCLADTOPSURF).LE.

c SURFVALUESPEC(UEFBOTTOMSURF>>.AND.

c (SURFVALUESPEC(GTTOPSURF).GE.

c SURFVALUESPEC(UEFTOPSURF>>) THEN WRITE(30,3240) LN, FRUEFML(COLUMN,ROW),

c (-1*UEFMAT(DESNUM(COLUMN,ROW),1>>, UEFBOTTOMSURF, c (-1*UEFTOPSURF), GTSECTORSURF(l), CRAUNIV(COLUMN,ROW) 3240 FORMAT(Tl,I4,T6,I4,Tll,FS.5,T25,I4,lX,I4,lX,I4, c , IMP:N=1 U=',I3,' $ Upper end-fitting')

LN=LN+1

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 508 of 656 WRITE(30,3250) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, CRCLADTOPSURF, c (-l*UEFTOPSURF), (-l*GTSECTIRSURF(1>>,

c CRAUNIV(COLUMN,ROW) 3250 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Upper end-fitting')

LN=LN+1 ELSEIF <<SURFVALUESPEC(CRCLADTOPSURF) .LE.

c SURFVALUESPEC(UEFBOTTOMSURF>> .AND.

c (SURFVALUESPEC(GTTOPSURF).LT.

c SURFVALUESPEC(UEFTOPSURF>> .AND.

c (SURFVALUESPEC(GTTOPSURF).GT.

c SURFVALUESPEC(UEFBOTTOMSURF>>) THEN WRITE(30,3260) LN, FRUEf.ML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF), GTSECTORSURF(l), CRAUNIV(COLUMN,ROW) 3260 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Upper end-fitting')

LN=LN+1 WRITE(30,3270) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, CRCLADTOPSURF, c (-l*UEFTOPSURF), (-l*GTSECTIRSURF(l>>,

c CRAUNIV(COLUMN,ROW) 3270 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Upper end-fitting')

LN=LN+1 WRITE (30,.3275) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, GTTOPSURF, c (-l*UEFTOPSURF), (-l*GTSECTORSURF(l>>,

c GTSECTIRSURF(l), CRAUNIV(COLUMN,ROW) 3275 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Upper end-fitting')

LN=LN+1 ELSEIF <<SURFVALUESPEC(CRCLADTOPSURF) .LE.

c SURFVALUESPEC(UEFBOTTOMSURF>> .AND.

c (SURFVALUESPEC(GTTOPSURF).LE.

c SURFVALUESPEC(UEFBOTTOMSURF>>) THEN WRITE(30,3280) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF), CRAUNIV(COLUMN,ROW) 3280 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4, c , IMP:N=l U=',I3,' $ Upper end-fitting')

LN=LN+1 ENDIF ENDIF 9300 FORMAT(T1,'M',I4,T9,' 8016.50c -0.120',

c , $ Zirc-4 Cladding')

9301 FORMAT (T9, '24050.60c -0.004')

7000 FORMAT (T9, '24052.60c -0.084')

7001 FORMAT (T9, '24053.60c -0.010')

7002 FORMAT(T9,'24054.60c -0.002')

9302 FORMAT (T9, '26054.60c -0.011')

7003 FORMAT (T9, '26056.60c -0.184')

7004 FORMAT (T9, '26057.60c -0.004')

Waste Package Opetadons ~tigineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 509 of 656 7005 FORMAT(T9,'26058.60c -0.001')

9303 FORMAT(T9,'40000.60c -98.180' )

9304 FORMAT (T9, '50000.35c -1.400')

9305 FORMAT (T1, 'M',I4,T9, '6000.50c -0.080',

c , $ 55304 Cladding')

9306 FORMAT (T9, '7014.50c -0.100')

9307 FORMAT (T9, '14000.50c -0.750')

9308 FORMAT (T9, '15031.50c -0.045')

9309 FORMAT (T9, '16032.50c -0.030')

9310 FORMAT (T9, '24050.60c -0.793')

7006 FORMAT(T9,'24052.60c -15.903')

7007 FORMAT (T9,' 24053. 60c -1. 838' )

7008 FORMAT (T9, '24054.60c -0.466')

9311 FORMAT (T9, '25055.50c -2.000')

9312 FORMAT (T9, '26054.60c -3.918')

7009 FORMAT (T9, '26056.60c -63.156')

7010 FORMAT (T9, '26057.60c -1.472')

7011 FORMAT (T9, '26058.60c -0.200')

9313 FORMAT(T9,'28058.60c -6.234')

7012 FORMAT(T9,'28060.60c -2.465')

7013 FORMAT (T9, '28061.60c -0.109')

7014 FORMAT (T9, '28062.60c -0.350')

7015 FORMAT (T9, '28064.60c -0.092')

9314 FORMAT (Tl, 'M',I4,T9, '6000.50c -0.080',

c $ Inconel Cladding') .

9315 FORMAT(T9,'14000.50c -0.350')

9316 FORMAT(T9,'15031.50c -0.015')

9317 FORMAT(T9,'16032.50c -0.015')

9318 FORMAT (T9, '24050.60c -0.793')

7016 FORMAT (T9, '24052.60c -15.903')

• 7017 FORMAT (T9, '24053.60c -1.838')

7018 FORMAT (T9, '24054.60c -0.466')

9319 FORMAT(T9,'25055.50c -0.350')

9320 FORMAT(T9,'26054.60c -0.958')

7019 FORMAT(T9,'26056.60c -15.442')

7020 FORMAT(T9,'26057.60c -0.360')

7021 FORMAT (T9, '26058.60c -0.049')

9321 FORMAT (T9, '28058.60c -35.382')

7022 FORMAT (T9, '28060.60c -13~993')

7023 FORMAT (T9, '28061.60c -0.616')

7024 FORMAT(T9,'28062.60c -1.989')

7025 FORMAT(T9,'28064.60c -0.520')

9322 FORMAT (T9, '5010.50c -1.078E-3')

9323 FORMAT (T9, '5011.56c -4.925E-3')

9324 FORMAT (T9, '13027.50c -0.500')

9325 FORMAT (T9, '22000.50c -0.900')

9326 FORMAT(T9,'27059.50c -1.000')

9327 FORMAT(T9,'29063.60c -0.205')

7026 FORMAT (T9, '29065.60c -0.095')

9328 FORMAT (T9, '41093.50c -2.563')

9329 FORMAT (T9, '42000.50c -3.050')

9330 FORMAT (T9, '73181.50c -2.563')

ENDIF 3720 CONTINUE

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 510 of656 3730 CONTINUE RETURN END SUBROUTINE WESTBPR(BANKNUM, BMODML, BPCLADML, BPNODEML, c BPRAUNIV, BPRCLADMAT, BPRLPML, BPRUPML, COLUMN, DESNUM, c FRLEFML, FRUEFML, FRUREGIONML, GTAXMAT, GTAXML, GTDATA, c GTMAT, GTML, GTSPLIT, HOMOSPACMLNUM, LN, MN, c NUMOFBPRANODES, NUMOFGTAXS, NUMOFSPACERS, c NUMREGABOVEBPRA, ROW, SN, SYSTEMTOP, WBPRA, c WBPRATYPE, AL203B4CDENSITY, AL203DENSITY, c BOTBPNODEHEIGHT, BPDENTOGO, BPNONABSMAT, c BPRAXDIM, BPRDIM, BPRLPLENMAT, BPRLPLENWTS, c BPRPLEN, BPRUPLENMAT, BPRUPLENWTS, ENDFITHEIGHT, c GTAXDATA, HOMOSPACERDEN, LEFMAT, MCNPBPRAHEIGHT, c MODDENSITY, NONBPMATDATA, REGABOVEBPRA, c SPACERDIST, SPACERHEIGHT, SURFVALUESPEC, UEFMAT, c BANKDES, BPRABSNODE, BPRLPLENZAIDS, c BPRUPLENZAIDS, CURRENTSURFLABEL, SURFTYPESPEC, c NODEBOTTOMSURF)

INTEGER BANKNUM(SO,SO), BGT, BMODML, BPCLADBOTTOMSURF, c BPCLADIRSURF, BPCLADML(SO,SO), BPCLADORSURF, BPCLADTOPSURF, c BPICIRSURF, BPICORSURF, BPIRSURF, BPLEFTOPSURF, c BPNODEBOTTOMSURF, BPNODEML, BPNODETOPSURF, BPNONABSMAT(20),

c BPOCIRSURF, c BPOCORSURF, BPORSURF, BPRADIUS, BPRAUNIV(SO,SO),

c BPRCLADMAT(20), BPRLPML(SO,SO), BPRUPML(SO,SO), C, CO, c COLUMN, CURRENTSURFLABEL, c DESNUM(SO,SO), FRLEFML(SO,SO), FROEFML(50,50),

c FRUREGIONML(50,SO,20), GTAXMAT(20,S), GTAXML(50,SO,S),

c GTBOTSURF, GTIRSURF, GTMAT(20), GTML(50,50), GTORSURF, c GTSECT, GTSECTBOTSURF(5), GTSECTIRSURF(S), GTSECTORSURF(S),

c GTSECTTOPSURF(S), GTSPLIT, GTTOPSURF, HOMOSPACMLNUM(20(15),

c LN, MCNPNODE, MN, NODEBOTTOMSORF, NUMOFBPRANODES(20),'

c NUMOFGTAXS(20), NUMOFSPACERS(20), NUMREGABOVEBPRA, REGION, c REGIONBOTTOMSURF, REGIONTOPSORF, RO, ROW, SECT, SN, c SPACERBOTTOMSURF, SPACERTOPSURF, SPN, SYSTEMTOP, c TOPBPNODETOPSURF, UEFBOTTOMSURF, UEFTOPSURF, V, c WATERREGIONBOTTOMSURF, WATERRE~IONTOPSORF, WBPRA(20),

c WBPRATYPE(20), Z

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 511 of 656 REAL AL203B4CDENSITY(20), AL203DENSITY(20),

c BOTBPNODEHEIGHT(20), BPDENTOGO(50,50,50),

c BPRAXDIM(20,6), BPRDIM(20,3), BPRLPLENMAT(20,2),

c BPRLPLENWTS(20,35), BPRPLEN(20,2), BPRUPLENMAT(20,2),

c BPRUPLENWTS(20,35), CLADRHO, CURRENTSURF, c ENDFITHEIGHT(20,2), GTAXDATA(20,4,5), GTDATA(20,4),

c HOMOSPACERDEN(20,15),

c LEFMAT(20,2), MCNPBPRAHEIGHT(20,50), MODDENSITY, c NONBPMATDATA(20,2), REGABOVEBPRA(20,3), SPACERDIST(20,10),

c SPACERHEIGHT(20,10), SPACHEIGHT, SURFVALUESPEC(200),

c TOTBPHEIGHT, UEFMAT(20,2)

CHARACTER BANKDES(20) *5, BPRABSNODE(20,50) *1, c BPRLPLENZAIDS(20,35)*9, BPRUPLENZAIDS(20,35)*9, c SURFTYPESPEC(200)*2 LOGICAL BPRLPMLUNIQUE, BPRUPMLUNIQUE, CLADMLUNIQUE, 'LEAVE IF (GTSPLIT.EQ.1) THEN IF (WBPRA(BANKNUM(COLUMN,ROW>>.EQ.1) THEN DO 110 MCNPNODE=l,NUMOFBPRANODES(BANKNUM(COLUMN,ROW>>

• Define the upper end-fitting bottom surface.

CURRENTSURF=SPACERDIST(DESNUM(COLUMN,ROW),l)+

c ENDFITHEIGHT(DESNUM(COLUMN,ROW),2)

CURRENTSURFLABEL=O DO 10 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL~V EXIT ENDIF ENDIF 10 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN UEFBOTTOMSURF-SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)-CURRENTSURF SN=SN+1 ELSE UEFBOTTOMSURF~CURRENTSURFLABEL ENDIF

• Define the upper end-fitting top surface.

CURRENTSURF=SPACERDIST(DESNUM(COLUMN,ROW),l)+

c ENDFITHEIGHT(DESNUM(COLUMN,ROW),l)+

c ENDFITHEIGHT(DESNUM(COLUMN,ROW),2)

CURRENTSURFLABEL-O DO 20 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001) THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 512 of 656 20 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN UEFTOPSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+l ELSE UEFTOPSURF=CURRENTSURFLABEL ENDIF

• Define the BP node bounding surfaces.

IF (MCNPNODE.EQ.l) THEN TOTBPHEIGHT=O.O DO 30 Z=l,NUMOFBPRANODES(BANKNUM(COLUMN,ROW>>

TOTBPHEIGHT=TOTBPHEIGHT+

c MCNPBPRAHEIGHT(BANKNUM(COLUMN,ROW),Z) 30 CONTINUE CURRENTSURF=BOTBPNODEHEIGHT(BANKNUM(COLUMN,ROW>>+

c TOTBPHEIGHT IF (CURRENTSURF.GE.SURFVALUESPEC'UEFTOPSURF>> THEN CURRENTSURF=SURFVALUESPEC(UEFTOPSURF)

ENDIF CURRENTSURFLABEL=O DO 40 V=l, (SN-l)

IF (SURFTYPESPEC(V) .EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 40 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN TOPBPNODETOPSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+l ELSE TOPBPNODETOPSURF=CURRENTSURFLABEL ENDIF BPNODETOPSURF=TOPBPNODETOPSURF CURRENTSURF=SURFVALUESPEC(BPNODETOPSURF)-

c MCNPBPRAHEIGHT(BANKNUM(COLUMN,ROW),MCNPNODE)

IF (CURRENTSURF.GE.SURFVALUESPEC(UEFTOPSURF>> THEN CURRENTSURF=SURFVALUESPEC(UEFTOPSURF)

ENDIF CURRENTSURFLABEL=O DO 50 V=l, (SN-l)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 50 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN

Waste Package Operations ~ngineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 513 of 656 BPNODEBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+l ELSE BPNODEBOTTOMSURF=CURRENTSURFLABEL ENDIF CURRENTSURF=BPRDIM(BANKNUM(COLUMN,ROW),l)

CURRENTSURFLABEL=O DO 60 V=l, (SN-l)

IF (SURFTYPESPEC(V) .EQ. 'CZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V .

EXIT ENDIF ENDIF

.60 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN BPRADIUS=SN SURFTYPESPEC(SN)='CZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+l ELSE BPRADIUS=CURRENTSURFLABEL ENDIF ELSEIF (MCNPNODE.NE.l) THEN BPNODETOPSURF=BPNODEBOTTOMSURF CURRENTSURF=SURFVALUESPEC(BPNODETOPSURF)-

c MCNPBPRAHEIGHT(BANKNUM(COLUMN,ROW),MCNPNODE)

IF (CURRENTSURF.GE.SURFVALUESPEC(UEFTOPSURF>> THEN CURRENTSURF=SURFVALUESPEC(UEFTOPSURF)

ENDIF CURRENTSURFLABEL=O DO 70 V=l, (SN-l)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT.(O.OOOl>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 70 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN BPNODEBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+l ELSE BPNODEBOTTOMSURF=CURRENTSURFLABEL ENDIF ENDIF IF (SURFVALUESPEC(BPNODEBOTTOMSURF) .LT.

c SURFVALUESPEC(UEFTOPSURF>> THEN

• Write the BP node cells in this BPR universe.

IF <<BPRABSNODE(BANKNUM(COLUMN,ROW),MCNPNODE).EQ.'Y').AND.

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 514 of 656 c (BPNONABSMAT(BANKNUM(COLUMN,ROW>>.EQ.l>>) THEN WRITE(30,80) LN, BPNODEML, c (-I*AL203DENSITY(BANKNUM(COLUMN,ROW>>), (-I*BPRADIUS),

c (-I*BPNODETOPSURF), BPNODEBOTTOMSURF, c BPRAUNIV(COLUMN,ROW), MCNPNODE 80 FORMAT(T1,I4,T6,I4,Tll,GI4.6,T25,I4,IX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Burnable poison node ',12)

LN=LN+l BPNODEML=BPNODEML+l ELSEIF <<BPRABSNODE(BANKNUM(COLUMN,ROW),MCNPNODE).EQ.'Y') .AND.

c (BPNONABSMAT(BANKNUM(COLUMN,ROW) .NE.l)) THEN WRITE(30,90) LN, BPNODEML, c (-I*NONBPMATDATA(BANKNUM(COLUMN,ROW),I>>), (-I*BPRADIUS),

c (-I*BPNODETOPSURF), BPNODEBOTTOMSURF, c BPRAUNIV(COLUMN,ROW), MCNPNODE 90 FORMAT(Tl,I4,T6,I4,Tll,GI4.6,T25,I4,IX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Burnable poison node ',12)

LN=LN+l BPNODEML=BPNODEML+1 ELSE WRITE (30, 100) LN, BPNODEML, c (-I*BPDENTOGO(COLUMN,ROW,MCNPNODE), (-l*BPRADIUS),

c (-l*BPNODETOPSURF), BPNODEBOTTOMSURF, .

c BPRAUNIV(COLUMN,ROW), MCNPNODE 100 FORMAT(T1,I4,T6,I4,T11,G14.6,T25,I4,lX,I4,lX,I4, c , IMP:N=1 U=',I3,' $ Burnable poison node ',12)

LN=LN+l BPNODEML=BPNODEML+l ENDIF ENDIF 110 CONTINUE

• Define the BPR cladding inner radius.

CURRENTSURF=BPRDIM(BANKNUM(COLUMN,ROW),2)

CURRENTSURFLABEL=O DO 120 V=I, (SN-l)

IF (SURFTYPESPEC(V).EQ.'CZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT.(O.OOOl)) THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 120 CONTINUE IF (CU~ENTSURFLABEL.EQ.O) THEN BPCLADIRSURF=SN SURFTYPESPEC(SN)='CZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE BPCLADIRSURF=CURRENTSURFLABEL ENDIF

• Define the BPR cladding outer radius.

CURRENTSURF=BPRDIM(BANKNUM(COLUMN,ROW),3)

CURRENTSURFLABEL=O DO 130 V=l, (SN-l)

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit.2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 AttacIiment I, Page 515 of 656 IF (SURFTYPESPEC(V) .EQ.'CZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001)) THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 130 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN BPCLADORSURF=SN SURFTYPESPEC(SN)='CZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+l ELSE BPCLADORSURF=CURRENTSURFLABEL ENDIF

• Define the BPR cladding top surface.

CURRENTSURF=TOTBPHEIGHT+

c BOTBPNODEHEIGHT(BANKNUM(COLUMN,ROW>>+

c BPRPLEN(BANKNUM(COLUMN,ROW),I)

IF (CURRENTSURF.GE.SURFVALUESPEC(UEFTOPSURF>> THEN CURRENTSURF=SURFVALUESPEC(UEFTOPSURF)

ENDIF CURRENTSURFLABEL=O DO 140 V~l, (SN-l)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF CABSCSURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 140 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN BPCLADTOPSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)~CURRENTSURF SN=SN+l ELSE BPCLADTOPSURF=CURRENTSURFLABEL ENDIF

• Define the BPR cladding bottom surface.

CURRENTSURF=BOTBPNODEHEIGHT(BANKNUM(COLUMN,ROW>>-

c BPRPLENCBANKNUM(COLUMN,ROW),2)

CURRENTSURFLABEL=O DO 150 V=1, CSN-l)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN.

IF CABSCSURFVALUESPEC(V)-CURRENTSURF) .LT. CO.OOOl>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 150 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN BPCLADBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ'

Waste Package Operations Engineering Calculation

Title:

CRe Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 516 of 656 SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE BPCLADBOTTOMSURF=CURRENTSURFLABEL ENDIF

• Write the BP-to-cladding gap cell in this BPR universe.

WRITE(30,160) L~, (-l*BPCLADIRSURF), BPRADIUS, c (-l*TOPBPNODETOPSURF),

c BPNODEBOTTOMSURF, BPRAUNIV(COLUMN,ROW) 160 FORMAT(Tl,I4,T6, '0',T25,I4,lX,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3, c $ Burnable poison-to-cladding gap')

LN=LN+1

• Write the BPR cladding cell in this BPR universe.

• Determine if the BPR cladding material specification has

• previously been defined. If it has been previously defined, determine

• the cladding material specification label.

CLADMLUNIQUE=.TRUE.

LEAVE=.FALSE.

IF <<COLUMN.NE.1).AND. (ROW.NE.1>> THEN DO 180 RO=l, (ROW-1)

DO 170 CO=l,50 IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKDES(BANKNUM(CO,RO>>.EQ.'BPRA ') THEN IF (BPRCLADMAT(BANKNUM(COLUMN,ROW>> .EQ.

c BPRCLADMAT(BANKNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPCLADML(COLUMN, ROW)=BPCLADML (CO, RO)

EXIT ENDIF ENDIF ENDIF 170 CONTINUE IF (LEAVE.EQ .* TRUE.) THEN EXIT ENDIF 180 CONTINUE IF (LEAVE.EQ .* FALSE.) THEN DO 200 RO=ROW,ROW DO 190 CO=l, (COLUMN-1)

IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKDES(BANKNUM(CO,RO>>.EQ.'BPRA ') THEN IF (BPRCLADMAT(BANKNUM(COLUMN,ROW>> .EQ.

c BPRCLADMAT(BANKNUM(CO,RO>>) THEN CLADMLUNIQUE=. -FALSE.

LEAVE=.TRUE.

BPCLADML (COLUMN, ROW) =BPCLADML (CO,RO)

EXIT '

ENDIF ENDIF ENDIF 190 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: 800000000-01717-0210-00006 REV 00 Attachment I, Page 517 of 656 EXIT ENDIF 200 CONTINUE ENDIF ELSEIF (COLUMN.EQ.l) .AND. (ROW.NE.l>> THEN DO 220 RO=l, (ROW-I)

DO 210 CO=l,50 IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKDES(BANKNUM(CO,RO>> .EQ.'BPRA ') THEN IF (BPRCLADMAT(BANKNUM(COLUMN,ROW>> .EQ.

c BPRCLADMAT(BANKNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPCLADML(COLUMN,ROW)=BPCLADML(CO,RO)

EXIT ENDIF ENDIF ENDIF 210 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 220 CONTINUE ELSEIF (ROW.EQ.l).AND. (COLUMN.NE.l>> THEN DO 240 RO=l,1 DO 230 CO=I, (COLUMN-I)

IF (BANKNUM(CO,RO) .NE.O) THEN IF (BANKDES(BANKNUM(CO,RO>> .NE.'BPRA ') THEN IF (BPRCLADMAT(BANKNUM(COLUMN,ROW>> .EQ.

c BPRCLADMAT(BANKNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPCLADML(COLUMN, ROW)=BPCLADML (CO, RO)

EXIT ENDIF ENDIF ENDIF 230 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 240 CONTINUE ENDIF IF (CLADMLUNIQUE.EQ .* TRUE.) THEN BPCLADML (COLUMN, ROW) =MN

• Check BPR Cladding Material IF (BPRCLADMAT(BANKNUM(COLUMN,ROW>>.EQ.I) THEN DO 250 C=I,2 IF (C.EQ.I) THEN WRITE (200, 9300) BPCLADML(COLUMN,ROW)

ELSEIF (C.EQ.2) THEN WRITE (200, 9301)

WRITE(200,7000)

WRITE(200,7001)

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-021 0-00006 REV 00 Attachment I, Page 518 of656 WRITE(200,7002)

.WRITE (200,9302)

WRITE (2,00, 7003)

WRITE(200,7004)

WRITE(200,7005)

WRITE(200,9303)

WRITE(200,9304)

ENDIF 250 CONTINUE ELSEIF (BPRCLADMAT(BANKNUM(COLUMN,ROW>>

c .EQ.2) THEN DO 260 C=1,2 IF (C.EQ.1) THEN WRITE(200,9305) BPCLADML(COLUMN,ROW)

ELSEIF (C.EQ.2) THEN WRITE (200, 9306)

WRITE(200,9307)

WRITE(200,9308)

WRITE(200,9309)

WRITE (200, 9310)

WRITE(200,7006)

WRITE (200, 7007)

WRITE(200,7008)

WRITE (200,9311)

WRITE(200,9312)

WRITE(200,7009)

WRITE (200, 7010)

WRITE(200,7011)

WRITE (200, 9313)

WRITE(200,7012)

WRITE(200,7013)

WRITE(200,7014)

WRITE(200,7015)

ENDIF 260 CONTINUE ELSEIF (BPRCLADMAT(BANKNUM(COLUMN,ROW>>

c .EQ.3) THEN DO 270 C=1,2 IF (C.EQ.1) THEN WRITE (200, 9314) BPCLADML (COLUMN, ROW)

ELSEIF (C.EQ.2) THEN WRITE (200, 9315)

WRITE(200,9316)

WRITE (200, 9317)

WRITE(200,9318)

WRITE (200, 7016)

WRITE(200,7017)

WRITE(200,7018)

WRITE (200, 9319)

WRITE (200, 9320)

WRITE(200,7019)

WRITE(200,7020)

WRITE (200, 7021)

WRITE(200,9321)

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 519 of 656 WRITE(200,7022)

WRITE(200,7023)

WRITE(200,7024)

WRITE(200,7025)

WRITE(200,9322)

WRITE(200,9323)

WRITE(200,9324)

WRITE(200,9325)

WRITE(200,9326)

WRITE (200, 9327)

WRITE (200, 7026)

WRITE(200,9328)

WRITE(200,9329)

WRITE(200,9330)

ENDIF 270 CONTINUE ENDIF MN=MN+l ENDIF IF (BPRCLADMAT(BANKNUM(COLUMN,ROW>>.EQ.l) THEN CLADRHO=6.56 ELSEIF (BPRCLADMAT(BANKNUM(COLUMN,ROW>> .EQ.2) THEN CLADRHO=7.90 ELSEIF (BPRCLADMAT(BANKNUM(COLUMN,ROW>>.EQ.3) THEN CLADRHO=8.19 ENDIF WRITE(30,280) LN, BPCLADML(COLUMN,ROW), (-l*CLADRHO),

c BPCLADIRSURF, c (-l*BPCLADORSURF), (-l*BPCLADTOPSURF), BPCLADBOTTOMSURF, c BPRAUNIV(COLUMN,ROW) 280 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ BPR cladding')

LN=LN+l

• Write the BPR upper plenum cell in this BPR universe.

• Determine if the BPR upper plenum material specification has

• previously been defined. If it has been previously defined, determine

• the upper plenum material specification label.

BPRUPMLUNIQUE=.TRUE.

LEAVE=.FALSE.

IF ((COLUMN.NE.l).AND. (ROW.NE.l>> THEN DO 300 RO=l, (ROW-I)

DO 290 CO=1,50 IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKNUM(COLUMN,ROW).EQ.

c BANKNUM(CO,RO>> THEN BPRUPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPRUPML(COLUMN,ROW)=BPRUPML(CO,RO)

EXIT ENDIF ENDIF 290 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT.

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 520 of 656 ENDIF 300 CONTINUE IF (LEAVE.EQ .. FALSE.) THEN DO 320 RO=ROW,ROW DO 310 CO=I, (COLUMN-I)

IF (BANKNUM(CO,RO) .NE.O) THEN IF (BANKNUM(COLUMN,ROW) .EQ.

c BANKNUM(CO,RO>> THEN BPRUPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPRUPML (COLUMN, ROW) =BPRUPML (CO,RO)

EXIT ENDIF ENDIF 310 CONTINUE IF (LEAVE.EQ *. TRUE.) THEN EXIT ENDIF 320 CONTINUE ENDIF ELSEIF <<COLUMN.EQ.l).AND. (ROW.NE.l>> THEN DO 340 RO=I, (ROW-I)

DO 330 CO=I,50 .

IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKNUM(COLUMN,ROW).EQ.

c BANKNUM(CO,RO>>) THEN BPRUPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPRUPML(COLUMN,ROW)=BPRUPML(CO,RO)

EXIT ENDIF ENDIF 330 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 340 CONTINUE ELSEIF <<ROW.EQ.l).AND. (COLUMN.NE.l>> THEN DO 360 RO=l,l DO 350 CO=I, (COLUMN-I)

IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKNUM(COLUMN,ROW).EQ.

c BANKNUM(CO,RO>> THEN BPRUPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPRUPML (COLUMN, ROW) =BPRUPML (CO,RO)

EXIT ENDIF ENDIF 350 CONTINUE IF (LEAVE.EQ .* TRUE.) THEN EXIT ENDIF 360 CONTINUE

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: 800000000-01717-0210-00006 REV 00 Attachment I, Page 521 of656 ENDIF IF (SURFVALUESPEC(TOPBPNODETOPSURF).LT.

c SURFVALUESPEC(UEFTOPSURF>> THEN IF (BPRUPMLUNIQUE.EQ .. TRUE.) THEN BPRUPML(COLUMN, ROW) =MN .

• Check Burnable Poison Rod Upper Plenum Regions DO 390 C=I,BPRUPLENMAT(BANKNUM(COLUMN,ROW),2)

IF (C.EQ.I) THEN WRITE(200,370) BPRUPML(COLUMN,ROW),

c BPRUPLENZAIDS(BANKNUM(COLUMN,ROW),C),

c (-I*BPRUPLENWTS(BANKNUM(COLUMN,ROW),C>>

370 FORMAT(TI,'M',I4,T9,A9,3X,GI4.6, c , $ Burnable Poison Rod Upper Plenum')

ELSE WRITE(200,380) c BPRUPLENZAIDS(BANKNUM(COLUMN,ROW),C),

c (-I*BPRUPLENWTS(BANKNUM(COLUMN,ROW),C>>

380 FORMAT(T9,A9,3X,GI4.6)

ENDIF 390 CONTINUE MN=MN+I ENDIF WRITE(JO,400) LN, BPRUPML(COLUMN,ROW),

c (-I*BPRUPLENMAT(BANKNUM(COLUMN,ROW),I>>,

c TOPBPNODETOPSURF, c (-I*BPCLADTOPSURF), (-I*BPCLADIRSURF),

c BPRAUNIV(COLUMN,ROW) 400 FORMAT(TI,I4,T6,I4,TII,F8.5,T25,I4,IX,I4,IX,I4, c , IMP:N=I U=',I3,' $ BPR upper plenum region')

LN=LN+I ENDIF

• Write the BPR lower plenum cell (lower end plug) in this BPR universe.

• Determine if the BPR lower plenum material specification has

• previously been defined. If it has been previously defined, determine

• the lower plenum material specification label.

BPRLPMLUNIQUE=.TRUE.

LEAVE=. FALSE.

IF <<COLUMN.NE.I).AND. (ROW.NE.I>> THEN DO 420 RO=I, (ROW-I)

DO 410 CO=I,50 IF (BANKNUM(CO,RO) .NE.O) THEN IF (BANKNUM(COLUMN,ROW).EQ.BANKNUM(CO,RO>> THEN BPRLPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPRLPML(COLUMN,ROW)=BPRLPML(CO,RO)

EXIT ENDIF ENDIF 410 CONTINUE IF (LEAVE.EQ ** TRUE.) THEN EXIT ENDIF 420 CONTINUE IF (LEAVE.EQ .* FALSE.) THEN

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: 800000000-01717-0210-00006 REV 00 Attachment I, Page 522 of656 DO 440 RO=ROW,ROW DO 430 CO=I, (COLUMN-I)

IF (BANKNUM(CO,RO).NE.O). THEN IF (BANKNUM(COLUMN,ROW) .EQ.

c BANKNUM(CO,RO>> THEN BPRLPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPRLPML (COLUMN, ROW)=BPRLPML (CO, RO)

EXIT ENDIF ENDIF 430 CONTINUE IF (LEAVE.EQ *. TRUE.) THEN EXIT ENDIF 440 CONTINUE ENDIF ELSEIF <<COLUMN.EQ.I).AND. (ROW.NE.I>> THEN DO 460 RO=I, (ROW-l)

DO 450 CO=l,50 IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKNUM(COLUMN,ROW).EQ.

c BANKNUM(CO,RO>> THEN BPRLPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPRLPML(COLUMN,ROW)=BPRLPML(CO,RO)

EXIT ENDIF ENDIF 450 CONTINUE IF (LEAVE.EQ *. TRUE.) THEN EXIT ENDIF 460 CONTINUE ELSEIF <<ROW.EQ.l) .AND. (COLUMN.NE.l) THEN DO 480 RO=I,I DO 470 CO=I, (COLUMN-I)

IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKNUM(COLUMN,ROW).EQ.

c BANKNUM(CO,RO) THEN BPRLPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPRLPML(COLUMN, ROW) =BPRLPML (CO,RO)

EXIT ENDIF ENDIF 470 CONTINUE IF (LEAVE.EQ ** TRUE.) THEN EXIT ENDIF 480 CONTINUE ENDIF IF (BPRLPMLUNIQUE.EQ .* TRUE.) THEN BPRLPML(COLUMN,ROW)=MN

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 523 of 656

• Check Burnable Poison Rod Lower Plenum Regions DO 510 C=1,BPRLPLENMAT(BANKNUM(COLUMN,ROW),2)

IF (C.EQ.1) THEN WRITE(200,490) BPRLPML(COLUMN,ROW),

c BPRLPLENZAIDS(BANKNUM(COLUMN,ROW),C),

c (-l*BPRLPLENWTS(BANKNUM(COLUMN,ROW),C>>

490 FORMAT(T1,'M',I4,T9,A9,3X,G14.6, c $ Burnable Poison. Rod Lower Plenum')

ELSE WRITE(200,500) c BPRLPLENZAIDS(BANKNUM(COLUMN,ROW),C),

c (-l*BPRLPLENWTS(BANKNUM(COLUMN,ROW),C>>

500 FORMAT(T9,A9,3X,G14.6)

ENDIF 510 CONTINUE MN=MN+1 ENDIF WRITE(30,520) LN, BPRLPML(COLUMN,ROW),

c (-l*BPRLPLENMAT(BANKNUM(COLUMN,ROW);l>>, BPCLADBOTTOMSURF, c (-l*BPNODEBOTTOMSURF), (-l*BPCLADIRSURF),

c BPRAUNIV(COLUMN,ROW) 520 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ BPR lower plenum region')

LN=LN+1

• Loop through the regions above the BPR (i.e. the appropriate upper core regions)

• Define the upper region lower surface.

DO 560 REGION=l,NUMREGABOVEBPRA

• Determine the current upper region's lower surface specification.

IF (REGION.EQ.1) THEN REGIONTOPSURF=SYSTEMTOP CURRENTSURF=SURFVALUESPEC(SYSTEMTOP)-

c REGABOVEBPRA(REGION,l)

ENDIF CURRENTSURF=SURFVALUESPEC(REGIONTOPSURF)-

c REGABOVEBPRA(REGION,l)

IF (REGION. EQ. NUMREGABOVEBPRA) THEN REGIONBOTTOMSURF=UEFTOPSURF.

ELSE CURRENTSURFLABEL=O DO 530 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 530 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN REGIONBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 524 of 656 REGIONBOTTOMSURF=CURRENTSURFLABEL ENDIF ENDIF

• Write the cell specification for the BPR universe upper region.

IF (REGION.EQ.1) THEN WRITE(30,540) LN, FRUREGIONML(COLUMN,ROW,REGION),

c (-1*REGABOVEBPRA(REGION,2>>,

c REGIONBOTTOMSURF, BPRAUNIV(COLUMN,ROW), REGION 540 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4, c , IMP:N=l U=',I3,' $ Upper core region ',12)

LN=LN+1 REGIONTOPSURF=REGIONBOTTOMSURF ELSE WRITE (30, 550) LN, FRUREGIONML(COLUMN,ROW,REGION),

c (-1*REGABOVEBPRA(REGION,2>>, (-l*REGIONTOPSURF),

c REGIONBOTTOMSURF, BPRAUNIV(COLUMN,ROW), REGION 550 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4, c , IMP:N=l U=',I3,' $ Upper core region ',12)

LN=LN+1 REGIONTOPSURF=REGIONBOTTOMSURF ENDIF 560 CONTINUE DO 610 SECT=l,NUMOFGTAXS(DESNUM(COLUMN,ROW>>

• Define the GT section top surface.

CURRENTSURF=GTAXDATA(DESNUM(COLUMN,ROW),3,SECT)

IF (CURRENTSURF.GT.SURFVALUESPEC(UEFTOPSURF>> THEN CURRENTSURF=SURFVALUESPEC(UEFTOPSURF)

ENDIF CURRENTSURFLABEL=O DO 570 V=l, (SN-l)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 570 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN GTSECTTOPSURF(SECT)=SN

. SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+l ELSE GTSECTTOPSURF(SECT)=CURRENTSURFLABEL ENDIF

• Define the GT section bottom surface.

CURRENTSURF=GTAXDATA(DESNUM(COLUMN,ROW),4,SECT)

CURRENTSURFLABEL=O DO 580 V=l, (SN-l)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF

Waste Package Operations Engineering Calculation

Title:

CRe Reactivity Calculations for Sequoyah Unit 2 Document Identifier: 800000000-01717-0210-00006 REV 00 Attachment I, Page 525 of 656 ENDIF 580 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN GTSECTBOTSURF(SECT)=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE GTSECTBOTSURF(SECT)=CURRENTSURFLABEL ENDIF

• Define the GT section outer radius surface.

CURRENTSURF=GTAXDATA(DESNUM(COLUMN,ROW),2,SECT)

CURRENTSURFLABEL=O DO 590 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'CZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001)) THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 590 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN GTSECTORSURF(SECT)=SN SURFTYPESPEC(SN)='CZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+1 ELSE GTSECTORSURF(SECT)=CURRENTSURFLABEL ENDIF

• Define the GT section inner radius surface.

CURRENTSURF=GTAXDATA(DESNUM(COLUMN,ROW),l,SECT)

CURRENTSURFLABEL=O DO 600 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'CZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001) THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 600 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN GTSECTIRSURF(SECT)=SN SURFTYPESPEC(SN)='CZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE GTSECTIRSURF(SECT)=CURRENTSURFLABEL ENDIF 610 CONTINUE

• Write the GT material cell DO 740 SECT=l,NUMOFGTAXS(DESNUM(COLUMN,ROW>>)

• Determine if the GT material specification has

• previous~y been defined. If it has been previously defined, determine

• the material specification label.

Waste Package Operations ~ngineering Calculation

Title:

eRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 .Attachment I, Page 526 of656 CLADMLUNIQUE=.TRUE.

LEAVE=.FALSE.

IF (COLUMN.NE.I) .AND. (ROW.NE.I) THEN DO 630 RO=I, (ROW-I)

DO 620 CO=I,SO IF <<(DESNUM(CO,RO).NE.O).AND.

c (BANKNUM(CO,ROl .EQ.O) THEN IF (GTAXMAT(DESNUM(COtUMN,ROW),SECT) .EQ.

c GTMAT(DESNUM(CO,RO)) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTAXML(COLUMN,ROW,SECT)=GTML(CO,RO)

EXIT ELSEIF (GTAXMAT(DESNUM(COLUMN,ROW),SECT) .EQ.

c GTAXMAT(DESNUM(CO,RO),SECT) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTAXML(COLUMN,ROW, SECT) =GTAXML (CO, RO, SECT)

EXIT ENDIF ENDIF 620 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 630 CONTINUE IF (LEAVE.EQ ** FALSE.) THEN DO 6S0 RO=ROW,ROW DO 640 CO=I, (COLUMN-I)

IF (DESNUM(CO,RO).NE.O).AND.

c (BANKNUM(CO,RO).EQ.O) THEN IF (GTAXMAT(DESNUM(COLUMN,ROW),SECT).EQ.

c GTMAT(DESNUM(CO,RO)) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTAXML (COLUMN, ROW, SECT) =GTML (CO,RO)

EXIT ELSEIF (GTAXMAT(DESNUM(COLUMN,ROW),SECT).EQ.

c GTAXMAT(DESNUM(CO,~O),SECT) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTAXML(COLUMN, ROW, SECT) =GTAXML (CO, RO, SECT)

EXIT ENDIF ENDIF 640 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 650 CONTINUE ENDIF ELSEIF <<COLUMN.EQ.I).AND. (ROW.NE.I>> THEN DO 670 RO=I, (ROW-I)

DO 660 CO=I,50

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 527 of 656 IF <<DESNUM(CO,RO).NE.O).AND.

c (BANKNUM(CO,RO).EQ.O>> THEN IF (GTAXMAT(DESNUM(COLUMN,ROW),SECT).EQ.

c GTMAT(DESNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTAXML(COLUMN,ROW,SECT)=GTML(CO,RO)

EXIT ELSEIF (GTAXMAT(DESNUM(COLUMN,ROW),SECT) .EQ.

c GTAXMAT(DESNUM(CO,RO),SECT>> THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTAXML(COLUMN, ROW, SECT) =GTAXML (CO, RO, SECT)

EXIT ENDIF ENDIF 660 CONTINUE IF (LEAVE.EQ .* TRUE.) THEN EXIT ENDIF 670 CONTINUE ELSEIF <<ROW.EQ.l) .AND. (COLUMN.NE.l>> THEN DO 690 RO=l,l DO 680 CO=l, (COLUMN-l)

IF <<DESNUM(CO,RO) .NE.O) .AND.

c (BANKNUM (CO, RO) .EQ.O>> THEN IF (GTAXMAT(DESNUM(COLUMN,ROW),SECT) .EQ.

c GTMAT(DESNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTAXML(COLUMN,ROW,SECT)=GTML(CO,RO)

EXIT ELSEIF (GTAXMAT(DESNUM(COLUMN,ROW),SECT) .EQ.

c GTAXMAT(DESNUM(CO,RO),SECT>> THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTAXML (COLUMN, ROW, SECT) =GTAXML(CO, RO, SECT)

EXIT ENDIF ENDIF 680 CONTINUE IF (LEAVE.EQ .* TRUE.) THEN EXIT ENDIF 690 CONTINUE ENDIF IF (CLADMLUNIQUE.EQ .* TRUE.) THEN GTAXML(COLUMN,ROW,SECT)=MN

• Check Guide Tube Material IF (GTAXMAT(DESNUM(COLUMN,ROW),SECT) .EQ.l) THEN DO 700 C=l,2

....., IF (C.EQ.l) THEN WRITE (200, 9300) GTAXML(COLUMN,ROW,SECT)

ELSEIF (C.EQ.2) THEN

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 528 of 656 WRITE(200,9301)

WRITE(200,7000)

WRITE(200,7001)

WRITE(200,7002)

WRITE(200,9302)

WRITE(200,7003)

WRITE(200,7004)

WRITE(200,700S)

WRITE(200,9303)

WRITE(200,9304)

ENDIF 700 CONTINUE ELSEIF (GTAXMAT(DESNUM(COLUMN,ROW),SECT) c .EQ.2) THEN DO 710 C=1,2 IF (C.EQ.l) THEN WRITE(200,930S) GTAXML (COLUMN, ROW, SECT)

ELSEIF (C.EQ.2) THEN WRITE (200,9306)

WRITE(200,9307)

WRITE(200,9308)

WRITE(200,9309)

WRITE(200,9310)

WRITE(200,7006)

WRITE(200,7007)

WRITE(200,7008)

WRITE (200, 9311)

WRITE(200,9312)

WRITE(200,7009)

WRITE(200,7010)

WRITE(200,7011)

WRITE(200,9313)

WRITE(200,7012)

WRITE(200,7013)

WRITE(200,7014)

WRITE(200,701S)

ENDIF 710 CONTINUE ELSEIF (GTAXMAT(DESNUM(COLUMN,ROW),SECT) c .EQ.3) THEN DO 720 C=1,2 IF (C.EQ.l) THEN WRITE(200,9314) GTAXML(COLUMN, ROW, SECT)

ELSEIF (C.EQ.2) THEN WRITE(200,931S)

WRITE(200,9316)

WRITE(200,9317)

WRITE(200,9318)

WRITE(200,7016)

WRITE(200,7017)

WRITE(200,7018)

WRITE(200,9319)

WRITE(200,9320)

WRITE(200,7019)

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 529 of 656 WRITE(200,7020)

WRITE(200,7021)

WRITE(200,9321)

WRITE(200,7022)

WRITE(200,7023)

WRITE(200,7024)

WRITE(200,7025)

WRITE(200,9322)

WRITE (200,9323)

WRITE(200,9324)

WRITE(200,9325)

WRITE(200,9326)

WRITE(200,9327)

WRITE(200,7026)

WRITE(200,9328)

WRITE(200,9329)

WRITE;(200,9330)

ENDIF 720 CONTINUE ENDIF MN=MN+l ENDIF IF (GTAXMAT(DESNUM(COLUMN,ROW),SECT) .EQ.l) THEN CLADRHO=6.56 ELSEIF (GTAXMAT(DESNUM(COLUMN,ROW),SECT) .EQ.2) THEN CLADRHO=7.90 ELSEIF (GTAXMAT(DESNUM(COLUMN,ROW),SECT) .EQ.3) THEN CLADRHO=8.19 ENDIF WRITE(30,730) LN, GTAXML(COLUMN,ROW,SECT), (-l*CLADRHO),

c GTSECTIRSURF(SECT),

c (-1 *GTSECTORSURF (SECT) ), (-1 *GTSECTTOPSURF (SECT) ) ,

c GTSECTBOTSURF(SECT), BPRAUNIV(COLUMN,ROW) 730 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4,lX,I4, c ' IMP:N=l U=',I4,' $ Guide tube')

LN=LN+1 740 CONTINUE

• Loop through the spacer and moderator regions along the axial

• length of the GT (from top to bottom) .

SPACHEIGHT=O.O DO 750 SPN=l,NUMOFSPACERS(DESNUM(COLUMN,ROW)

SPACHEIGHT=SPACHEIGHT+SPACERHEIGHT(DESNUM(COLUMN,ROW),SPN) 750 CONTINUE DO 940 SPN=l,NUMOFSPACERS(DESNUM(COLUMN,ROW>>)

• Define the homogenized spacer region bounding surfaces.

IF (SPN.EQ.1) THEN SPACERTOPSURF=UEFBOTTOMSURF CURRENTSURF=SURFVALUESPEC(UEFBOTTOMSURF)-

c SPACERHEIGHT(DESNUM(COLUMN,ROW),SPN)

CURRENTSURFLABEL=O DO 760 V=l, (SN-1)

IF (SURFTYPESPEC(V) .EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001)) THEN CURRENTSURFLABEL=V

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O 1717-021 0-00006 REV 00 Attachment I, Page 530 of 656 EXIT ENDIF ENDIF 760 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN SPACERBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+l ELSE SPACERBOTTOMSURF=CURRENTSURFLABEL ENDIF WATERREGIONTOPSURF=SPACERBOTTOMSURF CURRENTSURF=SPACERDIST(DESNUM(COLUMN,ROW) , (SPN+l))

CURRENTSURFLABEL=O DO 770 V=l, (SN-l)

IF (SURFTYPESPEC(V) .EQ. 'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001)) THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 770 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN WATERREGIONBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+l ELSE WATERREGIONBOTTOMSURF=CURRENTSURFLABEL ENDIF ELSEIF ((SPN.NE.l) .AND. (SPN.NE.

c NUMOFSPACERS(DESNUM(COLUMN,ROW)))) THEN SPACERTOPSURF=WATERREGIONBOTTOMSURF CURRENTSURF=SURFVALUESPEC(WATERREGIONBOTTOMSURF)-

c SPACERHEIGHT(DESNUM(COLUMN,ROW),SPN)

CURRENTSURFLABEL=O DO 780 V=l, (SN-l)

IF (SURFTYPESPEC(V) .EQ. 'PZ') THEN IF (ABS (SURFVALUESPEC (V)-CURRENTSURF) .LT. (0.0001)) THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 780 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN SPACERBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+l ELSE SPACERBOTTOMSURF=CURRENTSURFLABEL ENDIF WATERREGIONTOPSURF=SPACERBOTTOMSURF

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-OI717-0210-00006 REV 00 Attachment I, Page 531 of 656 CURRENTSURF=SPACERDIST(DESNUM(COLUMN,ROW), (SPN+l))

CURRENTSURFLABEL=O DO 790 V=l, (SN-l)

IF (SURFTYPESPEC{V) .EQ. 'PZ') THEN IF (ABS(SURFVALUESPEC{V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 790 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN WATERREGIONBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+l ELSE WATERREGIONBOTTOMSURF=CURRENTSURFLABEL ENDIF ELSEIF (SPN.EQ.NUMOFSPACERS(DESNUM(COLUMN,ROW))) THEN SPACERTOPSURF=WATERREGIONBOTTOMSURF CURRENTSURF=SURFVALUESPEC{WATERREGIONBOTTOMSURF)-

c SPACERHEIGHT(DESNUM(COLUMN,ROW),SPN)

CURRENTSURFLABEL=O DO 800 V=l, (SN-l)

IF (SURFTYPESPEC{V) .EQ. 'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 800 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN SPACERBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+l ELSE SPACERBOTTOMSURF=CURRENTSURFLABEL ENDIF WATERREGIONTOPSURF=SPACERBOTTOMSURF WATERREGIONBOTTOMSURF=NODEBOTTOMSURF ENDIF

• Write the current homogenized spacer region cell in this GT universe.

DO 930 SECT=l,NUMOFGTAXS(DESNUM(COLUMN,ROW>>

IF ({SURFVALUESPEC{GTSECTTOPSURF(SECT) .GT.

c SURFVALUESPEC(SPACERTOPSURF>> .AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>>) .LT.

c SURFVALUESPEC(SPACERBOTTOMSURF)) THEN WRITE{30,8l0) LN, HOMOSPACMLNUM{DESNUM(COLUMN,ROW),SPN),

c (-l*HOMOSPACERDEN{DESNUM(COLUMN,ROW),SPN)),

c GTSECTORSURF{SECT),

c (-l*SPACERTOPSURF), SPACERBOTTOMSURF, BPRAUNIV(COLUMN,ROW),

c SPN 810 FORMAT(Tl,I4,T6,I4,Tll,G14.8,T25,I4,lX,I4,lX,I4,

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 532 of 656 c , IMP:N=l U=',I4, c $ Homogenized region for spacer ',I2)

LN=LN+l ELSEIF <<SURFVALUESPEC(GTSECTTOPSURF(SECT)) .EQ.

c SURFVALUESPEC(SPACERTOPSURF)) .AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT)) .LT.

c SURFVALUESPEC(SPACERBOTTOMSURF))) THEN WRITE(30,820) LN, HOMOSPACMLNUM(DESNUM(COLUMN,ROW),SPN),

c (-l*HOMOSPACERDEN(DESNUM(COLUMN,ROW),SPN)),

c GTSECTORSURF(SECT),

c (-l*SPACERTOPSURF), SPACERBOTTOMSURF, BPRAUNIV(COLUMN,ROW),

c SPN 820 FORMAT(Tl,I4,T6,I4,Tll,G14.8,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I4, c $ Homogenized region for spacer ',I2)

LN=LN+l ELSEIF <<SURFVALUESPEC(GTSECTTOPSURF(SECT)) .EQ.

c SURFVALUESPEC(SPACERTOPSURF)) .AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT)) .EQ.

c SURFVALUESPEC(SPACERBOTTOMSURF))) THEN WRITE(30,830) LN, HOMOSPACMLNUM(DESNUM(COLUMN,ROW),SPN),

c (-l*HOMOSPACERDEN(DESNUM(COLUMN,ROW),SPN)),

c GTSECTORSURF(SECT),

c (-l*SPACERTOPSURF), SPACERBOTTOMSURF, BPRAUNIV(COLUMN,ROW),

c SPN 830 FORMAT(Tl,I4,T6,I4,Tll,G14.8,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I4, c $ Homogenized region for spacer ',I2)

LN=LN+l ELSEIF <<SURFVALUESPEC(GTSECTTOPSURF(SECT)) .GT.

c SURFVALUESPEC(SPACERTOPSURF)) .AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT)) .EQ.

c SURFVALUESPEC(SPACERBOTTOMSURF))) THEN WRITE(30,840) LN, HOMOSPACMLNUM{DESNUM(COLUMN,ROW),SPN),

c (-l*HOMOSPACERDEN{DESNUM(COLUMN,ROW),SPN)),

c GTSECTORSURF{SECT),

c (-l*SPACERTOPSURF), SPACERBOTTOMSURF, BPRAUNIV(COLUMN,ROW),

c SPN 840 FORMAT(Tl,I4,T6,I4,Tll,G14.8,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I4, c $ Homogenized region for spacer ',I2)

LN=LN+l ELSEIF <<SURFVALUESPEC(GTSECTTOPSURF(SECT)).GT.

c SURFVALUESPEC(SPACERTOPSURF)) .AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT)) .GT.

c SURFVALUESPEC(SPACERBOTTOMSURF)) .AND.

c (SURFVALUESPEC(GTSECTBOTSURF{SECT)) .LT.

c SURFVALUESPEC(SPACERTOPSURF))) THEN WRITE(30,850) LN, HOMOSPACMLNUM(DESNUM(COLUMN,ROW),SPN),

c (-l*HOMOSPACERDEN(DESNUM(COLUMN,ROW),SPN)),

c GTSECTORSURF(SECT),

c (-l*SPACERTOPSURF), GTSECTBOTSURF(SECT),

c BPRAUNIV(COLUMN,ROW), SPN 850 FORMAT(Tl,I4,T6,I4,Tll,G14.8,T25,I4,lX,I4,lX,I4,

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-021 0-00006 REV 00 Attachment I, Page 533 of 656 c , IMP:N=l U=',I4, c $ Homogenized region for spacer ',12)

LN=LN+1 ELSEIF <<SURFVALUESPEC(GTSECTTOPSURF(SECT>> .LT.

c SURFVALUESPEC(SPACERTOPSURF>> .AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>>.LT.

c *SURFVALUESPEC(SPACERBOTTOMSURF>>.AND.

c (SURFVALUESPEC(GTSECTTOPSURF(SECT>>.GT.

c SURFVALUESPEC(SPACERBOTTOMSURF>>) THEN WRITE(30,860) LN, HOMOSPACMLNUM(DESNUM(COLUMN,ROW),SPN),

c (-l*HOMOSPACERDEN(DESNUM(COLUMN,ROW),SPN>>,

c GTSECTORSURF(SECT),

c (-l*GTSECTTOPSURF(SECT>>, SPACERBOTTOMSURF, c BPRAUNIV(COLUMN,ROW), SPN 860 FORMAT(Tl,I4,T6,I4,Tll,G14.8,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I4, c $ Homogenized region for spacer ',12)

LN=LN+l ENDIF

• Write the water region cell below the current homogenized spacer cell in this GT universe.

IF <<SURFVALUESPEC(GTSECTTOPSURF(SECT>> .GT.

c SURFVALUESPEC(WATERREGIONTOPSURF>>.AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>> .LT.

c SURFVALUESPEC(WATERREGIONBOTTOMSURF>>) THEN WRITE(30,870) LN, BMODML, (-l*MODDENSITY),

c GTSECTORSURF(~ECT),

c (-l*WATERREGIONTOPSURF), WATERREGIONBOTTOMSURF, c BPRAUNIV(COLUMN,ROW) 870 FORMAT(Tl,I4,T6,I4,Tll,FlO.8,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I4,' $ Borated moderator region')

LN=LN+l ELSEIF <<SURFVALUESPEC(GTSECTTOPSURF(SECT>>.EQ.

c SURFVALUESPEC(WATERREGIONTOPSURF>>.AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>>.LT.

c* SURFVALUESPEC(WATERREGIONBOTTOMSURF>>) THEN WRITE (30, 880) LN, BMODML, (-l*MODDENSITY),

c GTSECTORSURF(SECT),

c (-l*WATERREGIONTOPSURF), WATERREGIONBOTTOMSURF, c BPRAUNIV (COLUMN, ROW) 880 FORMAT(Tl,I4,T6,I4,Tll,FlO.8,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I4,' $ Borated moderator region')

LN=LN+l ELSEIF <<SURFVALUESPEC(GTSECTTOPSURF(SECT>>.EQ.

c SURFVALUESPEC(WATERREGIONTOPSURF>>.AND.

• c (SURFVALUESPEC(GTSECTBOTSURF(SECT>>.EQ.

c SURFVALUESPEC(WATERREGIONBOTTOMSURF>>) THEN WR1TE(30,890) LN, BMODML, (-l*MODDENS1TY),

c GTSECTORSURF(SECT),

c (-l*WATERREG10NTOPSURF), WATERREG10NBOTTOMSURF, c BPRAUN1V(COLUMN,ROW) 890 FORMAT(Tl,14,T6,14,Tll,FlO.8,T25,14,lX,14,lX,14, c , 1MP:N=l U=',14,' $ Borated moderator region')

LN=LN+l

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 534 of 656 ELSEIF <<SURFVALUESPEC(GTSECTTOPSURF(SECT>> .GT.

c SURFVALUESPEC(WATERREGIONTOPSURF>>.AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>>.EQ.

c SURFVALUESPEC(WATERREGIONBOTTOMSURF>>) THEN WRITE(30,900) LN, BMODML, (-l*MODDENSITY),

c GTSECTORSURF(SECT),

c (-l*WATERREGIONTOPSURF), WATERREGIONBOTTOMSURF, c BPRAUNIV(COLUMN,ROW) 900 FORMAT(T1,I4,T6,I4,T11,F10.S,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I4,' $ Borated moderator region')

LN=LN+l ELSEIF <<SURFVALUESPEC(GTSECTTOPSURF(SECT>> .GT.

c SURFVALUESPEC(WATERREGIONTOPSURF>> .AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>>.GT.

c SURFVALUESPEC(WATERREGIONBOTTOMSURF>> .AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>>.LT.

c SURFVALUESPEC(WATERREGIONTOPSURF>>) THEN WRITE (30, 910) LN, BMODML, (-l*MODDENSITY),

c GTSECTORSURF(SECT),

c (-l*WATERREGIONTOPSURF), GTSECTBOTSURF(SECT),

c BPRAUNIV(COLUMN,ROW) 910 FORMAT(T1,I4,T6,I4,Tl1,F10.S,T25,I4,lX,I4,lX,I4, c , IMP£N=l U=',I4,' $ Borated moderator region')

LN=LN+1 ELSEIF <<SURFVALUESPEC(GTSECTTOPSURF(SECT>> .LT.

c SURFVALUESPEC(WATERREGIONTOPSURF>>.AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>>.LT.

c SURFVALUESPEC(WATERREGIONBOTTOMSURF>> .AND.

c (SURFVALUESPEC(GTSECTTOPSURF(SECT>>.GT.

c SURFVALUESPEC(WATERREGIONBOTTOMSURF>>) THEN WRITE(30,920) LN, BMODML, (-l*MODDENSITY),

c GTSECTORSURF(SECT),

c (-l*GTSECTTOPSURF(SECT>>, WATERREGIONBOTTOMSURF, c BPRAUNIV(COLUMN,ROW) 920 FORMAT(T1,I4,T6,I4,Tl1,F10.S,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I4,' $ Borated moderator region')

LN=LN+1 ENDIF 930 CONTINUE 940 CONTINUE

• Write the moderator inside of the GT in the BPR universe DO 990 GTSECT=l,NUMOFGTAXS(DESNUM(COLUMN,ROW>>

IF <<SURFVALUESPEC(GTSECTTOPSURF(GTSECT>>.GE.

c SURFVALUESPEC(BPCLADTOPSURF>>.AND.

c (SURFVALUESPEC(GTSECTBOTSURF(GTSECT>> .LE.

c SURFVALUESPEC(BPCLADBOTTOMSURF>>) THEN

• Write the moderator cells within the GT.in this BPR universe.

WRITE(30,950) LN, BMODML, (-l*MODDENSITY),

c (-l*GTSECTIRSURF(GTSECT>>,

c BPCLADORSURF, (-l*BPCLADTOPSURF),

c BPCLADBOTTOMSURF, c BPRAUNIV(COLUMN,ROW) 950 FORMAT(T1,I4,T6,I4,Tl1,FS.5,T25,I4,lX,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity' Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 535 of 656 c $ Borated moderator inside guide tube')

LN=LN+1 ELSEIF <<SURFVALUESPEC(GTSECTTOPSURF(GTSECT>> .GE.

c SURFVALUESPEC(BPCLADTOPSURF>> .AND.

c (SURFVALUESPEC(GTSECTBOTSURF(GTSECT>>.LT.

c SURFVALUESPEC(BPCLADTOPSURF>> .AND.

c (SURFVALUESPEC(GTSECTBOTSURF(GTSECT>>.GT.

c SURFVALUESPEC(BPCLADBOTTOMSURF>>) THEN WRITE (30, 960) LN, BMODML, (-l*MODDENSITY),

c (-l*GTSECTIRSURF(GTSECT>>,

c BPCLADORSURF, (-l*BPCLADTOPSURF),

c GTSECTBOTSURF(GTSECT),

c BPRAUNIV(COLUMN,ROW) 960 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3, c $ Borated moderator inside guide tube')

LN=LN+1 ELSEIF <<SURFVALUESPEC(GTSECTTOPSURF(GTSECT>>.LT.

c SURFVALUESPEC(BPCLADTOPSURF>>.AND.

c (SURFVALUESPEC(GTSECTBOTSURF(GTSECT>> .LE.

c SURFVALUESPEC(BPCLADBOTTOMSURF>>.AND.

c (SURFVALUESPEC(GTSECTTOPSURF(GTSECT>>.GT.

c SURFVALUESPEC(BPCLADBOTTOMSURF>>) THEN WRITE (30, 970) LN, BMODML, (-l*MODDENSITY),

c (-l*GTSECTIRSURF(GTSECT>>;

c BPCLADORSURF, (-l*GTSECTTOPSURF(GTSECT>>,

c BPCLADBOTTOMSURF, c BPRAUNIV(COLUMN,ROW) 970 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3, c , $ Borated moderator inside guide tube')

LN=LN+1 ELSEIF <<SURFVALUESPEC(GTSECTTOPSURF(GTSECT>>.LT.

c SURFVALUESPEC(BPCLADTOPSURF>>.AND.

c (SURFVALUESPEC(GTSECTBOTSURF(GTSECT>>.GT.

c SURFVALUESPEC(BPCLADBOT-TOMSURF>>) THEN WRITE (30, 980) LN, BMODML, (-l*MODDENSITYl, c (-l*GTSECTIRSURF(GTSECT>>,

c* BPCLADORSURF, (-l*GTSECTTOPSURF(GTSECT>>,

c GTSECTBOTSURF(GTSECT),

c BPRAUNIV(COLUMN,ROW) 980 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3, c $ Borated moderator inside guide tube')

LN=LN+1 ENDIF 990 CONTINUE

• Determine the axial GT section which contains the lowest BPR axial section DO 1000 GTSECT=!,NUMOFGTAXS(DESNUM(COLUMN,ROW>>

IF <<SURFVALUESPEC(GTSECTBOTSURF(GTSECT>> .LT.

c SURFVALUESPEC(BPCLADBOTTOMSURF>>.AND.

c (SURFVALUESPEC(GTSECTTOPSURF(GTSECT>>.GE.

c SURFVALUESPEC(BPCLADBOTTOMSURF>>) THEN

Waste Package Operations l':Iigineering Calculation

Title:

CRe Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 536 of 656 BGT=GTSECT EXIT ENDIF 1000 CONTINUE DO 1030 GTSECT=BGT,NUMOFGTAXS(DESNUM(COLUMN,ROW)

IF (GTSECT.EQ.BGT) THEN WRITE (30, 1010) LN, BMODML, (-l*MODDENSITY),

c (-l*GTSECTIRSURF(GTSECT),

c (-l*BPCLADBOTTOMSURF),

c GTSECTBOTSURF(GTSECT),

c BPRAUNIV(COLUMN,ROW) 1010 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3, c $ Borated moderator inside guide tube')

LN=LN+1 .

ELSE WRITE(30,1020) LN, BMODML, (-l*MODDENSITY),

c (-l*GTSECTIRSURF(GTSECT>>),

c (-l*GTSECTTOPSURF(GTSECT>>,

c GTSECTBOTSURF(GTSECT),

c BPRAUNIV (COLUMN, ROW) 1020 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3, c $ Borated moderator inside guide tube')

LN=LN+1 ENDIF 1030 CONTINUE

• Define the lower end-fitting top surface.

CURRENTSURF=ENDFITHEIGHT(DESNUM(COLUMN,ROW),2)

CURRENTSURFLABEL=O DO 1040 V=l, (SN-l)

IF (SURFTYPESPEC(V) .EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 1040 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN BPLEFTOPSURF-SN SURFTYPESPEC(SN)-'PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE BPLEFTOPSURF=CURRENTSURFLABEL ENDIF

• Write the lower end-fitting cell specification for this BPR universe.

GTBOTSURF=GTSECTBOTSURF(NUMOFGTAXS(DESNUM(COLUMN,ROW>>)

IF (SURFVALUESPEC(GTBOTSURF) .GE.

c ENDFITHEIGHT{DESNUM(COLUMN,ROW),2>> THEN WRITE(30,1050) LN, FRLEFML{COLUMN,ROW),

c (-l*LEFMAT(DESNUM(COLUMN,ROW),l>>, (-l*BPLEFTOPSURF),

c BPRAUNIV(COLUMN,ROW) 1050 FORMAT(Tl,I4,T6,I4,T11,F8.5,T25,I4,' IMP:N=l U=',I3,

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 537 of656 c $ Lower end-fitting')

LN=LN+1 ELSE WR1TE(30,1060) LN, FRLEFML{COLUMN,ROW),

c (-l*LEFMAT(DESNUM(COLUMN,ROW),l>>, (-l*BPLEFTOPSURF),

c GTSECTORSURF(NUMOFGTAXS(DESNUM(COLUMN,ROW>>),

c BPRAUN1V(COLUMN,ROW) 1060 FORMAT(T1,14,T6,14,T11,F8.5,T25,14,lX,14, c , IMP:N=l U=',13,' $ Lower end-fitting')

LN=LN+1 WR1TE(30,1070) LN, FRLEFML(COLUMN,ROW),

c (-l*LEFMAT(DESNUM(COLUMN,ROW),l>>,

c (-l*GTSECTBOTSURF(NUMOFGTAXS(DESNUM(COLUMN,ROW>>>>,

c (-l*GTSECTORSURF(NUMOFGTAXS(DESNUM(COLUMN,ROW>>>>,

c BPRAUN1V(COLUMN,ROW) 1070 FORMAT(T1,I4,T6,14,T11,F8.5,T25,14,lX,14, c , 1MP:N=l U=',13,' $ Lower end-fitting')

LN=LN+1 END1F

• . Write the upper end-fitting cell specification for this BPR universe.

IF <<SURFVALUESPEC(BPCLADTOPSURF).LE.

c SURFVALUESPEC(UEFBOTTOMSURF>> .AND.

c (SURFVALUESPEC(GTSECTTOPSURF(l>> .LE.

\ C SURFVALUESPEC(UEFBOTTOMSURF>>) THEN WR1TE(30,1080) LN, FRUEFML(COLUMN,ROW),

C (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF), BPRAUN1V (COLUMN, ROW) 1080 FORMAT(T1,14,T6,I4,T11,F8.5,T25,14,lX,14, c , IMP:N=l U=',I3,' $ Assembly upper end-fitting')

LN=LN+1 ELSE1F <<SURFVALUESPEC(BPCLADTOPSURF).GT.

c SURFVALUESPEC(UEFBOTTOMSURF>>.AND.

c (SURFVALUESPEC(BPCLADTOPSURF).LT.

c SURFVALUESPEC(UEFTOPSURF>>.AND.

c (SURFVALUESPEC(GTSECTTOPSURF(l>>.LE.

c SURFVALUESPEC(UEFBOTTOMSURF>>) THEN WRITE (30, 1090) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF), BPCLADORSURF, BPRAUN1V(COLUMN,ROW) 1090 FORMAT(T1,14,T6,14,T11,F8.5,T25,14,lX,I4,lX,I4, c , 1MP:N=l U=',13,' $ Assembly upper end-fitting')

LN=LN+1 .

WR1TE(30,1100) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, BPCLADTOPSURF, c (-l*UEFTOPSURF), (-l*BPCLADORSURF),

c BPRAUN1V (COLUMN, ROW) 1100 FORMAT(T1,14,T6,14,T11,F8.5,T25,14,lX,14,lX,I4, c , IMP:N=l U=',I3,' $ Assembly upper end-fitting')

LN=LN+1 ELSE1F <<SURFVALUESPEC(BPCLADTOPSURF) .LE.

c SURFVALUESPEC(GTSECTTOPSURF(l>>) .AND.

c (SURFVALUESPEC(GTSECTTOPSURF(l>> .LT.

c SURFVALUESPEC(UEFTOPSURF>>.AND.

c (SURFVALUESPEC(GTSECTTOPSURF(l>> .GT.

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 538 of 656 c SURFVALUESPEC(UEFBOTTOMSURF>>) THEN WRITE(30,1110) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROWI,l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF), GTSECTORSURF(l), BPRAUNIV(COLUMN,ROW) 1110 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Assembly upper* end-fitting')

LN=LN+1 WRITE (30, 1120) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, GTSECTTOPSURF(l),

c (-l*UEFTOPSURF), (-l*GTSECTORSURF(l>>,

c BPRAUNIV(COLUMN,ROW) 1120 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Assembly upper end-fitting')

LN=LN+1 WRITE(30,1130) LN, BMODML, c (-l*MODDENSITY), BPCLADTOPSURF, c (-l*GTSECTTOPSURF(l>>, (-l*GTSECTIRSURF(l>>,

c BPRAUNIV (COLUMN, ROW) 1130 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Assembly upper end-fitting')

LN=LN+1 ELSEIF <<SURFVALUESPEC(BPCLADTOPSURF).LE.

c SURFVALUESPEC(GTSECTTOPSURF(l>>).AND.

c (SURFVALUESPEC(GTSECTTOPSURF(l>> .EQ.

c SURFVALUESPEC(UEFTOPSURF>>) THEN WRITE(30,1140) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTqMSURF, c (-l*UEFTOPSURF), GTSECTORSURF(l),

c BPRAUNIV(COLUMN,ROW) 1140 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Assembly upper end-fitting')

LN=LN+1 IF (SURFVALUESPEC(BPCLADTOPSURF) .LT.

c SURFVALUESPEC(GTSECTTOPSURF(l>>) THEN WRITE(30,1150) LN, BMODML, c (-l*MODDENSITY), BPCLADTOPSURF, c (-l*UEFTOPSURF), (-l*GTSECTIRSURF(l>>,

c BPRAUNIV (COLUMN, ROW) 1150 FORMAT(T1,I4,T6,I4,Tl1,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Assembly upper end-fitting')

LN=LN+1 ENDIF ELSEIF <<SURFVALUESPEC(BPCLADTOPSURF) .GT.

c SURFVALUESPEC(UEFBOTTOMSURF>>.AND.

c (SURFVALUESPEC(BPCLADTOPSURF).LT.

c SURFVALUESPEC(UEFTOPSURF>>.AND.

c (SURFVALUESPEC(GTSECTTOPSURF(l>>.GT.

c SURFVALUESPEC(UEFBOTTOMSURF>>.AND.

c (SURFVALUESPEC(GTSECTTOPSURF(l>> .LT.

c SURFVALUESPEC(BPCLADTOPSURF>>) THEN WRITE(30,1160) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF), GTSECTORSURF(l),

c BPRAUNIV (COLUMN, ROW)

Waste Package Operati,ons ~ngineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 539 of 656 1160 FORMAT(T1,I4,T6,I4,T11,FS.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Assembly upper end-fitting')

LN=LN+1 WRITE(30,1170) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>,

c GTSECTTOPSURF(l),

c (-l*UEFTOPSURF), (-l*GTSECTORSURF(l>>,

c BPCLADORSURF, BPRAUNIV(COLUMN,ROW) 1170 FORMAT(T1,I4,T6,I4,T11,FS.5,T25,I4,lX,I4,lX,I4, c 1X,I4,' IMP:N=l U=',I3, c $ Assembly upper end-fitting')

LN=LN+1 WRITE (30, 11S0) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, BPCLADTOPSURF, c (-l*UEFTOPSURF), (-l*BPCLADORSURF),

c BPRAUNIV(COLUMN,ROW) 1180 FORMAT(T1,I4,T6,I4,T1l,FS.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=,', 13, , $ Assembly upper end-fitting')

LN=LN+1 ,

ELSEIF <<SURFVALUESPEC(BPCLADTOPSURF) .EQ.

c SURFVALUESPEC(UEFTOPSURF>> .AND.

c (SURFVALUESPEC(GTSECTTOPSURF(l>>.GT.

c SURFVALUESPEC(UEFBOTTOMSURF>>.AND ..

c (SURFVALUESPEC(GTSECTTOPSURF(l>>.LT.

c SURFVALUESPEC(BPCLADTOPSURF>>) THEN WRITE (30, 1190) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF), GTSECTORSURF(l),

c BPRAUNIV(COLUMN,ROW) 1190 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Assembl¥upper end-fitting')

LN=LN+1 WRITE (30, 1200) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>,

c GTSECTTOPSURF(l),

c (-l*UEFTOPSURF), (-l*GTSECTORSURF(l>>,

c BPCLADORSURF, BPRAUNIV(COLUMN,ROW) 1200 FORMAT(T1,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4, c 1X,I4,' IMP:N=l U=',I3, c , $ Assembly upper end-fitting')

LN=LN+l ELSEIF <<SURFVALUESPEC(BPCLADTOPSURF).GT.

c SURFVALUESPEC(UEFBOTTOMSURF>>.AND.

c (SURFVALUESPEC(BPCLADTOPSURF) .LT.

c SURFVALUESPEC(UEFTOPSURF>> .AND.

c (SURFVALUESPEC(GTSECTTOPSURF(l>>.EQ.

c SURFVALUESPEC(BPCLADTOPSURF>>) THEN WRITE(30,1210) LN, FRUEFML(COLUMN,ROW), .

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF), GTSECTORSURF(l),

c BPRAUNIV(COLUMN,ROW) 1210 FORMAT(Tl,I4,T6,I4,T11,FS.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Assembly upper end-fitting')

LN=LN+1

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 540 of 656 WRITE(30,1220) LN, FRUEFML(COLUMN,ROW),

c (-1*UEFMAT(DESNUM(COLUMN,ROW),1>>,

c GTSECTTOPSURF(1),

c (-1*UEFTOPSURF), (-1*GTSECTORSURF(1>>,

c BPCLADORSURF, BPRAUNIV(COLUMN,ROW) 1220 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,1X,I4,lX,I4, c 1X,I4,' IMP:N=1 U=',I3, c $ Assembly upper end-fitting')

LN=LN+l ENDIF ELSEIF (WBPRA(BANKNUM(COLUMN,ROW>>.EQ.2) THEN DO 1390 MCNPNODE=l,NUMOFBPRANODES(BANKNUM(COLUMN,ROW>>

• Define the upper end-fitting bottom surface.

CURRENTSURF=SPACERDIST(DESNUM(COLUMN,ROW),1)+

c ENDFITHEIGHT(DESNUM(COLUMN,ROW),2)

CURRENTSURFLABEL=O DO 1230 V=1, (SN-1)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT.(0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 1230 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN UEFBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+1 ELSE UEFBOTTOMSURF=CURRENTSURFLABEL ENDIF

• Define the upper end-fitting top surface.

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 541 of 656 CURRENTSURF=SPACERDIST(DESNUM(COLUMN,ROW),l)+

C ENDFITHEIGHT(DESNUM(COLUMN,ROW),l)+

c ENDFITHEIGHT(DESNUM(COLUMN,ROW),2)

CURRENTSURFLABEL=O DO 1240 V=l, (SN-l)

IF (SURFTYPESPEC(V) .EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 1240 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN UEFTOPSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+1 ELSE UEFTOPSURF=CURRENTSURFLABEL ENDIF

• Define the inner BPR cladding inner radius.

CURRENTSURF=BPRAXDIM(BANKNUM(COLUMN,ROW),l)

CURRENTSURFLABEL=O DO 1250 Val, (SN-1)

IF (SURFTYPESPEC(V) .EQ.'CZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT.{O.OOOl>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 1250 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN BPICIRSURF=SN SURFTYPESPEC(SN)='CZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE BPICIRSURF=CURRENTSURFLABEL ENDIF

• Define the inner BPR cladding outer radius.

CURRENTSURF=BPRAXDIM(BANKNUM(COLUMN,ROW),2)

CURRENTSURFLABEL=O DO 1260 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'CZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 1260 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN BPICORSURF=SN SURFTYPESPEC(SN)='CZ' SURFVALUESPEC(SN)=CURRENTSURF

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-021 0-00006 REV 00 Attachment I, Page 542 of656 SN=SN+1 ELSE BPICORSURF=CURRENTSURFLABEL ENDIF

• Define the BP absorber inner radius.

CURRENTSURF=BPRAXDIM(BANKNUM(COLUMN,ROW),3)

CURRENTSURFLABEL=O DO 1270 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ. 'CZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 1270 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN BPIRSURF=SN SURFTYPESPEC(SN)='CZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE BPIRSURF=CURRENTSURFLABEL ENDIF

• Define the BP absorber outer radius.

CURRENTSURF=BPRAXDIM(BANKNUM(COLUMN,ROW),4)

CURRENTSURFLABEL=O DO 1280 V=l, (SN-l)

IF (SURFTYPESPEC(V).EQ.'CZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 1280 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN BPORSURF=SN SURFTYPESPEC(SN)='CZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+1 ELSE BPORSURF=CURRENTSURFLABEL ENDIF

• Define the outer BPR cladding inner radius.

CURRENTSURF=BPRAXDIM(BANKNUM(COLUMN,ROW),5)

CURRENTSURFLABEL=O DO 1290 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'CZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 1290 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 543 of 656 BPOCIRSURF';'SN SURFTYPESPEC(SN)='CZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+l ELSE BPOCIRSURF=CURRENTSURFLABEL ENDIF

• Define the outer BPR cladding outer radius.

CURRENTSURF=BPRAXDIM(BANKNUM(COLUMN,ROW),6)

CURRENTSURFLABEL=O DO 1300 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'CZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 1300 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN BPOCORSURF=SN SURFTYPESPEC(SN)='CZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+l ELSE BPOCORSURF=CURRENTSURFLABEL ENDIF

• Define the BP node bounding surfaces.

IF (MCNPNODE.EQ.l) THEN TOTBPHEIGHT=O.O DO 1310 Z=l,NUMOFBPRANODES(BANKNUM(COLUMN,ROW>>

TOTBPHEIGHT=TOTBPHEIGHT+

c MCNPBPRAHEIGHT(BANKNUM(COLUMN,ROW),Z) 1310 CONTINUE CURRENTSURF=BOTBPNODEHEIGHT(BANKNUM(COLUMN,ROW>>+

c TOTBPHEIGHT IF (CURRENTSURF.GE.SURFVALUESPEC(UEFTOPSURF>> THEN CURRENTSURF=SURFVALUESPEC(UEFTOPSURF)

ENDIF CURRENTSURFLABEL=O DO 1320 V=l, (SN-l)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 1320 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN TOPBPNODETOPSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE TOPBPNODETOPSURF=CURRENTSURFLABEL

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: 800000000-01717-0210-00006 REV 00 Attachment I, Page 544 of 656 ENDIF BPNODETOPSURF=TOPBPNODETOPSURF CURRENTSURF=SURFVALUESPEC(BPNODETOPSURF)-

e MCNPBPRAHEIGHT(BANKNUM(COLUMN,ROW),MCNPNODE)

IF (CURRENTSURF.GE.SURFVALUESPEC(UEFTOPSURF>> THEN CURRENTSURF=SURFVALUESPEC(UEFTOPSURF)

ENDIF CURRENTSURFLABEL=O DO 1330 V=l, (SN-1)

IF (SURFTYPESPEC(V) ,EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0,0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 1330 CONTINUE IF (CURRENTSURFLABEL.EQ,O) THEN BPNODEBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+1 ELSE BPNODEBOTTOMSURF=CURRENTSURFLABEL ENDIF ELSEIF (MCNPNODE.NE.1) THEN BPNODETOPSURF=BPNODEBOTTOMSURF CURRENTSURF=SURFVALUESPEC(BPNODETOPSURF)-

e MCNPBPRAHEIGHT(BANKNUM(COLUMN,ROW),MCNPNODE)

IF (CURRENTSURF.GE.SURFVALUESPEC(UEFTOPSURF>> THEN CURRENTSURF=SURFVALUESPEC(UEFTOPSURF)

ENDIF CURRENTSURFLABEL=0 DO 1350 V=1, (SN-1)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 1350 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN BPNODEBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+1 ELSE BPNODEBOTTOMSURF=CURRENTSURFLABEL ENDIF ENDIF IF (SURFVALUESPEC(BPNODEBOTTOMSURF).LT, e SURFVALUESPEC(UEFTOPSURF>> THEN

• Write the BP node cells in this BPR universe.

IF <<BPRABSNODE(BANKNUM(COLUMN,ROW),MCNPNODE) .EQ.'Y') .AND.

e (BPNONABSMAT(BANKNUM(COLUMN,ROW>>.EQ.1>> THEN

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment!, Page 545 of656 WRITE(30,1360) LN, BPNODEML, c (-1*AL203DENSITY(BANKNUM(COLUMN,ROW))), (-l*BPORSURF),

c BPIRSURF, (-l*BPNODETOPSURF), BPNODE80TTOMSURF, c BPRAUNIV(COLUMN,ROW), MCNPNODE 1360 FORMAT(Tl,I4,T6,I4,Tll,G14.6,T25,I4,lX,I4,lX,I4, c lX,I4,' IMP:N=l U=',I3,' $ Burnable poison node ',12)

LN=LN+l BPNODEML=BPNODEML+l ELSEIF <<BPRABSNODE(BANKNUM(COLUMN,ROW),MCNPNODE) .EQ.'Y') .AND.

c (BPNONABSMAT(BANKNUM(COLUMN,ROW>>) .NE.l) THEN WRITE(30,1370) LN, BPNODEML, c (-l*NONBPMATDATA(BANKNUM(COLUMN,ROW),l>>, (-l*BPORSURF),

c BPIRSURF, (-l*BPNODETOPSURF), BPNODEBOTTOMSURF, c BPRAUNIV(COLUMN,ROW), MCNPNODE 1370 FORMAT(Tl,I4,T6,I4,Tll,G14.6,T25,I4,lX,I4,lX,I4, c lX,I4,' IMP:N=l U=',I3,' $ Burnable poison node ',12)

LN=LN+l BPNODEML=BPNODEML+l ELSE WRITE (30, 1380) LN, BPNODEML, c (-l*BPDENTOGO(COLUMN,ROW,MCNPNODE), (-l*BPORSURF),

c BPIRSURF, (-l*BPNODETOPSURF), BPNODEBOTTOMSURF, c BPRAUNIV (COLUMN,'ROW), MCNPNODE 1380 FORMAT(Tl,I4,T6,I4,Tll,G14.6,T25,I4,lX,I4,lX,I4, c lX,I4,' IMP:N=1 U=',I3,' $ Burnable poison node ',12)

LN=LN+l BPNODEML=BPNODEML+l ENDIF ENDIF 1390 CONTINUE .

• Define the BPR cladding top surface.

CURRENTSURF=TOTBPHEIGHT+

c BOTBPNODEHEIGHT(BANKNUM(COLUMN,ROW>>+

c BPRPLEN(BANKNUM(COLUMN,ROW),l)

IF (CURRENTSURF.GE.SURFVALUESPEC(UEFTOPSURF>> THEN CURRENTSURF=SURFVALUESPEC(UEFTOPSURF)

ENDIF CURRENTSURFLABEL=O DO 1400 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 1400 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN BPCLADTOPSURF-SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+1 ELSE BPCLADTOPSURF=CURRENTSURFLABEL ENDIF

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculatiohs for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O 1717-0210-00006 REV 00 Attachment I, Page 546 of 656

• Define the BPR cladding bottom surface.

CURRENTSURF=BOTBPNODEHEIGHT(BANKNUM(COLUMN,ROW>>-

c BPRPLEN(BANKNUM(COLUMN,ROW),2)

CURRENTSURFLABEL=O DO 1410 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 1410 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN BPCLADBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE BPCLADBOTTOMSURF=CURRENTSURFLABEL ENDIF

• Write the inner BP-to-cladding gap cell in this BPR universe.

WRITE(30,1420) LN, (-l*BPIRSURF), BPICORSURF, c (-l*TOPBPNODETOPSURF),

c BPNODEBOTTOMSURF, BPRAUNIV (COLUMN, ROW) 1420 FORMAT(T1,I4,T6, 'O',T25,I4,1X,I4,1X,I4,1X,I4, c , IMP:N=1 U=',I3, c $ Burnable poison-to-cladding gap')

LN=LN+1

• Write the outer BP-to-cladding gap cell in this BPR universe.

WRITE(30,1430) LN, (-1*BPOCIRSURF), BPORSURF, c (-1*TOPBPNODETOPSURF),

c BPNODEBOTTOMSURF, BPRAUNIV(COLUMN,ROW) 1430 FORMAT(T1,I4,T6, 'O',T25,I4,1X,I4,1X,I4,1X,I4, c , IMP:N=l U=',I3, c , $ Burnable poison-to-cladding gap')

LN=LN+1

• Write the annular gap cell in this BPR universe.

WRITE (30, 1440) LN, (-1*BPICIRSURF),

c (-1*TOPBPNODETOPSURF),

c BPNODEBOTTOMSURF, BPRAUNIV(COLUMN,ROW) 1440 FORMAT(T1,I4,T6, 'O',T25,I4,1X,I4,1X,I4, c , IMP:N=1 U=',I3, c $ Burnable poison-to-cladding gap')

LN=LN+1

• Write the BPR cladding cell in this BPR universe.

• Determine if the BPR cladding material specification has

• previously been defined. If it has been previously defined, determine

• the cladding material specification label.

CLADMLUNIQUE=.TRUE.

LEAVE.... FALSE.

IF ((COLUMN.NE.1).AND. (ROW.NE.1>> THEN DO 1460 RO=1, (ROW-1)

DO 1450 CO=1,50 IF (BANKNUM(CO,RO).NE.O) THEN

Waste Package Operations Engineering Calculation

Title:

eRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 547 of656 IF (BANKDES(BANKNUM(CO,RO>>.EQ.'BPRA ') THEN IF (BPRCLADMAT(BANKNUM(COLUMN,ROW>>.EQ.

c BPRCLADMAT(BANKNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPCLADML (COLUMN, ROW) =BPCLADML (CO, RO)

EXIT ENDIF ENDIF ENDIF 1450 CONTINUE IF (LEAVE.EQ *. TRUE.) THEN EXIT ENDIF 1460 CONTINUE IF (LEAVE.EQ *. FALSE.) THEN DO 1480 RO=ROW,ROW DO 1470 CO=l, (COLUMN-1)

IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKDES(BANKNUM(CO,RO>> .EQ.'BPRA ') THEN IF (BPRCLADMAT(BANKNUM(COLUMN,ROW>>.EQ.

c BPRCLADMAT(BANKNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPCLADML(COLUMN, ROW)=BPCLADML (CO, RO)

EXIT ENDIF ENDIF ENDIF 1470 CONTINUE IF (LEAVE.EQ .* TRUE.) THEN EXIT ENDIF 1480 CONTINUE

. ENDIF ELSEIF <<COLUMN.EQ.l).AND. (ROW.NE.1>> THEN DO 1500 RO=l, (ROW-1)

DO 1490 CO=l,SO IF (BANKNUM (CO, RO) .NE.O) THEN IF (BANKDES(BANKNUM(CO,RO>> .EQ.'BPRA I) THEN IF (BPRCLADMAT(BANKNUM(COLUMN,ROW>> .EQ.

c BPRCLADMAT(BANKNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPCLADML (COLUMN, ROW) =BPCLADML (CO, RO)

EXIT ENDIF ENDIF ENDIF 1490 CONTINUE IF (LEAVE.EQ .* TRUE.) THEN EXIT ENDIF 1500 CONTINUE

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: 800000000-01717-0210-00006 REV 00 Attachment I, Page 549 of 656 WRITE(200,9311)

WRITE(200,9312)

WRITE(200,7009)

WRITE(200,7010)

WRITE(200,7011)

WRITE(200,9313)

WRITE(200,7012)

WRITE(200,7013)

WRITE(200,7014)

WRITE(200,7015)

ENDIF 1540 CONTINUE ELSEIF (BPRCLADMAT(BANKNUM(COLUMN,ROW>>

c .EQ.3) THEN DO 1550 C=1,2 IF (C.EQ.1) THEN WRITE(200,9314) BPCLADML (COLUMN, ROW)

ELSEIF (C.EQ.2) THEN WRITE (200, 9315)

WRITE(200,9316)

WRITE (200, 9317)

WRITE (200, 9318)

WRITE (200, 7016)

WRITE(200,7017)

WRITE(200,7018)

WRITE(200,9319)

WRITE (200, 9320)

WRITE(200,7019)

WRITE (200, 7020)

WRITE(200,7021)

WRITE(200,9321)

WRITE(200,7022)

WRITE(200,7023)"

WRITE(200,7024)

WRITE(200,7025)

WRITE (200, 9322)

WRITE (200, 9323)

WRITE(200,9324)

WRITE(200,9325)

WRITE(200,9326)

WRITE(200,9327)

WRITE (200, 7026)

WRITE(200,9328)

WRITE (200, 9329)

WRITE (200, 9330)

ENDIF 1550 CONTINUE ENDIF MN=MN+1 ENDIF IF (BPRCLADMAT(BANKNUM(COLUMN,ROW>> .EQ.1) THEN CLADRHO=6.56 ELSEIF (BPRCLADMAT(BANKNUM(COLUMN,ROW>> .EQ.2) THEN CLADRHO=7.90

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 550 of 656 ELSEIF (BPRCLADMAT(BANKNUM(COLUMN,ROW>>.EQ.3) THEN CLADRHO=8.19 ENDIF WRITE(30,1560) LN, BPCLADML(COLUMN,ROW), (-l*CLADRHO),

c BPOCIRSURF, c (-l*BPOCORSURF), (-l*BPCLADTOPSURF), BPCLADBOTTOMSURF, c BPRAUNIV(COLUMN,ROW) 1560 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ BPR cladding')

LN=LN+l WRITE (30, 1570) LN, BPCLADML(COLUMN,ROW), (-l*CLADRHO),

c BPICIRSURF, c (-l*BPICORSURF), (-l*TOPBPNODETOPSURF), BPNODEBOTTOMSURF, c BPRAUNIV(COLUMN,ROW) 1570 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ BPR cladding')

LN=LN+l

• Write the BPR upper plenum cell in this BPR universe.

• Determine if the BPR upper plenum material specification has

• previously been defined. If it has been previously defined, determine

• the upper plenum material specification label.

BPRUPMLUNIQUE=.TRUE.

LEAVE=.FALSE.

IF <<COLUMN.NE.l).AND. (ROW.NE.l>> THEN DO 1590 RO=l, (ROW-I)

DO 1580 CO=1,50 IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKNUM(COLUMN,ROW).EQ.

c BANKNUM(CO,RO>> THEN BPRUPMLUNIQUE=.FALSE.

LEAVE=;TRUE.

BPRUPML(COLUMN,ROW)=BPRUPML(CO,RO)

EXIT ENDIF ENDIF 1580 CONTINUE IF (LEAVE.EQ .* TRUE.) THEN EXIT ENDIF 1590 CONTINUE IF (LEAVE.EQ *. FALSE.) THEN DO 1610 RO=ROW,ROW DO 1600 CO=l, (COLUMN-I)

IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKNUM(COLUMN,ROW).EQ.

c BANKNUM(CO,RO>> THEN BPRUPMLUNIQUE=.FALSE.

• LEAVE=.TRUE.

BPRUPML (COLUMN, ROW) =BPRUPML(CO, RO)

EXIT .

ENDIF ENDIF 1600 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-Ol 717-021 0-00006 REV 00 Attachment I, Page 551 of656 EXIT ENDIF 1610 CONTINUE ENDIF ELSEIF <<COLUMN.EQ.1).AND. (ROW.NE.1>> THEN DO 1630 RO=l, (ROW-I)

DO 1620 CO=l,SO IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKNUM(COLUMN,ROW) .EQ.

c BANKNUM(CO,RO>> THEN BPRUPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPRUPML (COLUMN, ROW) =BPRUPML (CO,RO)

EXIT ENDIF ENDIF 1620 CONTINUE IF (LEAVE.EQ *. TRUE.) THEN EXIT ENDIF 1630 CONTINUE ELSEIF <<ROW.EQ.1).AND. (COLUMN.NE.1>> THEN DO 1650 RO=l,l DO 1640 CO=l, (COLUMN-I)

IF (BANKNUM(CO,RO) .NE.O) THEN IF (BANKNUM(COLUMN,ROW).EQ.

c BANKNUM (CO, RO>> THEN BPRUPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPRUPML (COLUMN, ROW) =BPRUPML (CO, RO)

EXIT ENDIF ENDIF

• 1640 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 1650 CONTINUE ENDIF IF (SURFVALUESPEC(TOPBPNODETOPSURF).LT.

c SURFVALUESPEC(UEFTOPSURF>> THEN IF (BPRUPMLUNIQUE.EQ .. TRUE.) THEN BPRUPML(COLUMN,ROW)=MN

• Check Burnable Poison Rod Upper Plenum Regions DO 1680 C=1,BPRUPLENMAT(BANKNUM(COLUMN,ROW),2)

IF (C.EQ.1) THEN WRITE(200,1660) BPRUPML(COLUMN,ROW),

c BPRUPLENZAIDS(BANKNUM(COLUMN,ROW),C),

c (-l*BPRUPLENWTS(BANKNUM(COLUMN,ROW),C>>

1660 FORMAT (Tl, 'M',I4,T9,A9,3X,G14.6, c , $ Burnable Poison Rod Upper Plenum')

ELSE WRITE(200,1670) c BPRUPLENZAIDS(BANKNUM(COLUMN,ROW),C),

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 552 of 656 c (~l*BPRUPLENWTS(BANKNUM(COLUMN,ROW),C) 1670 FORMAT(T9,A9,3X,G14.6)

ENDIF 1680 CONTINUE MN=MN+l ENDIF WRITE (30, 1690) LN, BPRUPML(COLUMN,ROW),

c (-I*BPRUPLENMAT(BANKNUM(COLUMN,ROW),1>>,

c TOPBPNODETOPSURF, c (-1*BPCLADTOPSURF), (-1*BPOCIRSURF),

c BPRAUNIV(COLUMN,ROW) 1690 FORMAT(T1,I4,T6,I4,T11,F8.S,T25,I4,1X,I4,1X,I4, c , IMP:N=1 U=',I3,' $ BPR upper plenum region')

LN=LN+1 ENDIF

• Write the BPR lower plenum cell (lower end plug) in this BPR universe.

• Determine if the BPR lower plenum material specification has

• previously been defined. If it has been previously defined, determine

• the lower plenum material specification label.

BPRLPMLUNIQUE=.TRUE.

LEAVE=.FALSE.

IF (COLUMN.NE.1).AND.(ROW.NE.1>> THEN DO 1710 RO=1, (ROW-1)

DO 1700 CO=I,SO IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKNUM (COLUMN, ROW) .EQ.BANKNUM(CO,RO>> THEN BPRLPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPRLPML(COLUMN,ROW)=BPRLPML(CO,RO)

EXIT ENDIF ENDIF 1700 CONTINUE IF (LEAVE.EQ *. TRUE.) THEN EXIT ENDIF 1710 CONTINUE IF (LEAVE.EQ .* FALSE.) THEN DO 1730 RO=ROW,ROW DO 1720 CO=I, (COLUMN-I)

IF (BANKNUM(CO,RO) .NE.O) THEN IF (BANKNUM(COLUMN,ROW).EQ.

c BANKNUM(CO,RO>> THEN BPRLPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPRLPML (COLUMN, ROW) =BPRLPML (CO, RO)

EXIT ENDIF ENDIF 1720 CONTINUE IF (LEAVE.EQ .* TRUE.) THEN EXIT ENDIF 1730 CONTINUE

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 553 of 656 ENDIF ELSEIF <<COLUMN.EQ.1).AND. (ROW.NE.1>> THEN DO 1750 RO=l, (ROW-I)

DO 1740 CO=l, 50 IF (BANKNUM(CO,RO) .NE.O) THEN IF (BANKNUM(COLUMN,ROW).EQ.

c BANKNUM(CO,RO>> THEN BPRLPM~UNIQUE=.FALSE.

LEAVE=.TRUE.

BPRLPML (COLUMN, ROW) =BPRLPML (CO, RO)

EXIT ENDIF ENDIF 1740 CONTINUE IF (LEAVE.EQ *. TRUE.) THEN EXIT ENDIF 1750 CONTINUE ELSEIF <<ROW.EQ.1) .AND. (COLUMN.NE.1>> THEN DO 1770 RO=l,l DO 1760 CO=l, (COLUMN-I)

IF (BANKNUM(CO,RO) .NE.O) THEN IF (BANKNUM(COLUMN,ROW).EQ.

c BANKNUM(CO,RO>> THEN BPRLPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPRLPML (COLUMN, ROW) =BPRLPML (CO, RO)

EXIT ENDIF ENDIF 1760 CONTINUE IF (LEAVE.EQ .* TRUE.) THEN EXIT ENDIF 1770 CONTINUE ENDIF IF (BPRLPMLUNIQUE.EQ *. TRUE.) THEN BPRLPML(COLUMN, ROW) =MN

• Check Burnable Poison Rod Lower Plenum Regions DO 1800 C=l,BPRLPLENMAT(BANKNUM(COLUMN,ROW),2)

IF (C.EQ.1) THEN WRITE (200, 1780) BPRLPML(COLUMN,ROW),

c BPRLPLENZAIDS(BANKNUM(COLUMN,ROW),C),

c (-l*BPRLPLENWTS(BANKNUM(COLUMN,ROW),C>>

1780 FORMAT (T1, 'M' ,14, T9,A9, 3X, G14. 6, c , $ Burnable Poison Rod Lower Plenum')

ELSE WRITE (200, 1790) c BPRLPLENZAIDS(BANKNUM(COLUMN,ROW),C),

c (-l*BPRLPLENWTS(BANKNUM(COLUMN,ROW),C>>

1790 FORMAT(T9,A9,3X,G14.6)

ENDIF 1800 CONTINUE MN=MN+l

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: 800000000-01717-0210-00006 REV 00 Attachment I, Page 554 of 656 ENDIF WRITE(30,1810) LN, BPRLPML(COLUMN,ROW),

c (-l*BPRLPLENMAT(BANKNUM(COLUMN,ROW),l>>, BPCLADBOTTOMSURF, c (-l*BPNODEBOTTOMSURF), (-l*BPOCIRSURF),

c BPRAUNIV(COLUMN,ROW) 1810 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ BPR lower plenum region')

LN=LN+l

• Loop through the regions above the BPR (i.e. the appropriate upper core regions)

• Define the upper region lower surface.

DO 1850 REGION=l,NUMREGABOVEBPRA

• Determine the current upper region's lower surface specification.

IF (REGION.EQ.l) THEN REGIONTOPSURF=SYSTEMTOP CURRENTSURF=SURFVALUESPEC(SYSTEMTOP)-

c REGABOVEBPRA(REGION,l)

ENDIF CURRENTSURF=SURFVALUESPEC(REGIONTOPSURF)-

c REGABOVEBPRA(REGION,l)

IF (REGION.EQ.NUMREGABOVEBPRA) THEN REGIONBOTTOMSURF=UEFTOPSURF ELSE CURRENTSURFLABEL=O DO 1820 V=l, (SN-l)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 1820 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN REGIONBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+l ELSE REGIONBOTTOMSURF=CURRENTSURFLABEL ENDIF ENDIF

• Write the cell specification for the BPR universe upper region.

IF (REGION.EQ.l) THEN WRITE (30, 1830) LN, FRUREGIONML(COLUMN,ROW,REGION),

c (-1*REGABOVEBPRA(REGION,2>>,

c REGIONBOTTOMSURF, BPRAUNIV(COLUMN,ROW), REGION 1830 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4, c , IMP:N=l U=',I3,' $ Upper core region ',I2)

LN=LN+1 REGIONTOPSURF=REGIONBOTTOMSURF ELSE WRITE (30, 1840) LN, FRUREGIONML(COLUMN,ROW,REGION),

c (-1*REGABOVEBPRA(REGION,2>>, (-l*REGIONTOPSURF),

c REGIONBOTTOMSURF, BPRAUNIV(COLUMN,ROW), REGION

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: 800000000-01717-0210-00006 REV 00 Attachment I, Page 555 of 656 1840 FORMAT (T1, I4, T6, I4, Tll, F8. 5, T2S, I4,"lX, 14, c ' IMP:N=l U=',I3,' $ Upper core region ',12)

LN=LN+l REGIONTOPSURF=REGIONBOTTOMSURF ENDIF 1850 CONTINUE DO 1900 SECT=l,NUMOFGTAXS(DESNUM(COLUMN,ROW>>

• Define the GT section top surface.

CURRENTSURF=GTAXDATA(DESNUM(COLUMN,ROW),3,SECT)

IF (CURRENTSURF.GT.SURFVALUESPEC(UEFTOPSURF>> THEN CURRENTSURF=SURFVALUESPEC(UEFTOPSURF)

ENDIF CURRENTSURFLABEL=O DO 1860 V=l, (SN-1)

IF (SURFTYPESPEC(V) .EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 1860 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN GTSECTTOPSURF(SECT)=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)~CURRENTSURF SN=SN+l ELSE GTSECTTOPSURF(SECT)=CURRENTSURFLABEL ENDIF

• Define the GT section bottom surface.

CURRENTSURF=GTAXDATA(DESNUM(COLUMN,ROW),4,SECT)

CURRENTSURFLABEL=O DO 1870 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT

.ENDIF ENDIF 1870 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN GTSECTBOTSURF (SECT) =SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+l ELSE GTSECTBOTSURF(SECT)=CURRENTSURFLABEL ENDIF

• Define the GT section outer radius surface.

CURRENTSURF=GTAXDATA(DESNUM(COLUMN,ROW),2,SECT)

CURRENTSURFLABEL=O DO 1880 V=l, (SN-l)

IF (SURFTYPESPEC(V) .EQ.'CZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN

Waste Package Operat~ons Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 556 of6S6 CURRENTSURFLABEL=V EXIT ENDIF ENDIF 1880 CONTINUE IF .(CURRENTSURFLABEL.EQ.O) THEN GTSECTORSURF(SECT)=SN SURFTYPESPEC(SN)='CZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+1 ELSE GTSECTORSURF(SECT)=CURRENTSURFLABEL ENDIF

• Define the GT section inner radius surface.

CURRENTSURF~GTAXDATA(DESNUM(COLUMN,ROW),l,SECT)

CURRENTSURFLABEL=O DO 1890 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'CZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 1890 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN GTSECTIRSURF(SECT)=SN SURFTYPESPEC(SN)='CZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+1 ELSE GTSECTIRSURF(SECT)=CURRENTSURFLABEL ENDIF 1900 CONTINUE

• Write the GT material cell DO 2030 SECT=l,NUMOFGTAXS(DESNUM(COLUMN,ROW>>

• Determine if the GT material specification has

• previously been defined. If it has been previously defined, determine

• the material specification label.

CLADMLUNIQUE=.TRUE.

LEAVE=.FALSE.

IF <<COLUMN.NE.1).AND. (ROW.NE.l>> THEN DO 1920 RO=l, (ROW-1)

DO 1910 CO=l,SO IF <<DESNUM(CO,RO) .NE.O) .AND.

c (BANKNUM(CO,RO).EQ.O>> THEN IF (GTAXMAT(DESNUM(COLUMN,ROW),SECT) .EQ.

c GTMAT(DESNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTAXML(COLUMN,ROW,SECT)=GTML(CO,RO)

EXIT ELSEIF (GTAXMAT(DESNUM(COLUMN,ROW),SECT) .EQ.

c GTAXMAT(DESNUM(CO,RO),SECT>> THEN CLADMLUNIQUE=.FALSE.

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 DocumentIdentifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 557 of 656 LEAVE=.TRUE.

GTAXML (COLUMN,ROW, SECT) =GTAXML (CO,RO,SECT)

EXIT ENDIF ENDIF 1910 CONTINUE IF (LEAVE.EQ .* TRUE.) THEN EXIT ENDIF 1920 CONTINUE IF (LEAVE.EQ *. FALSE.) THEN DO 1940 RO=ROW,ROW DO 1930 CO=l, (COLUMN-I)

IF <<DESNUM(CO,RO).NE.O) .AND.

c (BANKNUM(CO,RO).EQ.O>> THEN IF (GTAXMAT(DESNUM(COLUMN,ROW),SECT).EQ.

c GTMAT(DESNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTAXML (COLUMN,ROW,SECT)=GTML (CO,RO)

EXIT .

ELSEIF (GTAXMAT(DESNUM(COLUMN,ROW) ,SECT) .EQ.

c GTAXMAT(DESNUM(CO,RO) ,SECT>> THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTAXML(COLUMN,ROW,SECT)=GTAXML(CO,RO,SECT)

EXIT ENDIF ENDIF 1930 CONTINUE IF (LEAVE.EQ *. TRUE.) THEN EXIT ENDIF 1940 CONTINUE ENDIF ELSEIF <<COLUMN.EQ.l).AND. (ROW.NE.l>> THEN DO 1960 RO=I, (ROW-I)

DO 1950 CO=I,50 IF <<DESNUM(CO,RO) .NE.O) .AND.

c (BANKNUM(CO,RO).EQ.O>> THEN IF (GTAXMAT(DESNUM(COLUMN,ROW),SECT).EQ.

c GTMAT(DESNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTAXML(COLUMN,ROW,SECT)=GTML(CO,RO)

EXIT ELSEIF (GTAXMAT(DESNUM(COLUMN,ROW) ,SECT) .EQ.

c GTAXMAT(DESNUM(CO,RO),SECT>> THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTAXML (COLUMN,ROW,SECT)=GTAXML (CO,RO,SECT)

EXIT ENDIF ENDIF

Waste Package Operations Engineering Calculation

Title:

eRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 558 of 656 1950 CONTINUE IF (LEAVE.EQ *. TRUE.) THEN EXIT ENDIF 1960 CONTINUE ELSEIF <<ROW.EQ.l) .AND. (COLUMN.NE.l>> THEN DO 1980 RO=I,1 DO 1970 CO=I, (COLUMN-I)

IF <<DESNUM(CO,RO) .NE.O) .AND.

c (BANKNUM(CO,RO) .EQ.O>> THEN IF (GTAXMAT(DESNUM(COLUMN,ROW),SECT).EQ.

c GTMAT(DESNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTAXML (COLUMN, ROW, SECT) =GTML (CO, RO)

EXIT ELSEIF (GTAXMAT(DESNUM(COLUMN,ROW),SECT).EQ.

c GTAXMAT(DESNUM(CO,RO),SECT>> THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTAXML (COLUMN, ROW, SECT) =GTAXML (CO, RO, SECT)

EXIT ENDIF ENDIF 1970 CONTINUE IF (LEAVE.EQ ** TRUE.) THEN EXIT ENDIF 1980 CONTINUE ENDIF IF (CLADMLUNIQUE.EQ .* TRUE.) THEN GTAXML(COLUMN, ROW, SECT) =MN

• Check Guide Tube Material IF (GTAXMAT(DESNUM(COLUMN,ROW),SECT) .EQ.l) THEN DO 1990 C=I,2 IF (C.EQ.l) THEN WRITE(200,9300) GTAXML (COLUMN, ROW, SECT)

ELSEIF (C.EQ.2) THEN WRITE(200,9301)

WRITE(200,7000)

WRITE (200, 7001)

WRITE(200,7002)

WRITE(200,9302)

WRITE(200,7003)

WRITE(200,7004)

WRITE(200,700S)

WRITE (200, 9303)

WRITE(200,9304)

ENDIF 1990 CONTINUE ELSEIF (GTAXMAT(DESNUM(COLUMN,ROW),SECT) c .EQ.2) THEN DO 2000 C=1,2 IF (C.EQ.l) THEN

Waste Package Ope~ations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 559 of 656 WRITE (200, 9305) GTAXML(COLUMN,ROW,SECT)

ELSEIF (C.EQ.2) THEN WRITE (200, 9306)

WRITE (200, 9307)

WRITE(200,9308)

WRITE(200,9309)

WRITE(200,9310)

WRITE(200,7006)

WRITE (200, 7007.)

WRITE(200,7008)

WRITE(200,9311)

WRITE(200,9312)

WRITE (200, 7009)

WRITE(200,7010)

WRITE (200,7011)

WRITE(200,9313)

WRITE(200,7012)

WRITE(200,7013)

WRITE(200,7014)

WRITE(200,7015)

ENDIF 2000 CONTINUE ELSEIF (GTAXMAT(DESNUM(COLUMN,ROW),SECT) c .EQ.3) THEN DO 2010 C=1,2 IF (C.EQ.1) THEN WRITE(200,9314) GTAXML (COLUMN, ROW, SECT)

ELSEIF (C.EQ.2) THEN WRITE (200, 9315)

WRITE(200,9316)

WRITE (200, 9317)

WRITE (200, 9318)

WRITE(200~7016)

WRITE(200,7017)

WRITE(200,7018)

WRITE (200, 9319)

WRITE(200,9320)

WRITE(200,7019)

WRITE (200, 7020)

WRITE (200, 7021)

WRITE(200,9321)

WRITE(200,7022)

WRITE (200, 7023)

WRITE(200,7024)

WRITE(200,7025)

WRITE (200, 9322)

WRITE (200, 9323)

WRITE (200, 9324)

WRITE(200,9325)

WRITE (200, 9326)

WRITE(200,9327)

WRITE(200,7026)

WRITE(200,9328)

WRITE(200,9329)

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 560 of 656 WRITE(200,9330)

ENDIF 2010 CONTINUE ENDIF MN=MN+l ENDIF IF (GTAXMAT(DESNUM(COLUMN,ROW),SECT).EQ.l) THEN CLADRHO=6.56 ELSEIF (GTAXMAT(DESNUM(COLUMN,ROW),SECT).EQ.2) THEN CLADRHO=7.90 ELSEIF (GTAXMAT(DESNUM(COLUMN,ROW),SECT) .EQ.3) THEN CLADRHO=8.19 ENDIF WRITE(30,2020) LN, GTAXML(COLUMN,ROW,SECT), (-l*CLADRHO),

c GTSECTIRSURF(SECT),

c (-l*GTSECTORSURF(SECT>>, (-l*GTSECTTOPSURF(SECT>>,

c GTSECTBOTSURF(SECT), BPRAUNIV(COLUMN,ROW) 2020 FORMAT(T1,I4,T6,I4,Tl1,F8.5,T25,I4,lX,I4,lX,I4,lX,I4, c , IMP:N=l U=',I4,' $ Guide tube')

LN=LN+1 2030 CONTINUE

• Loop through the spacer and moderator regions along the axial

• length of the GT (from top to bottom).

SPACHEIGHT=O.O DO 2040 SPN=l,NUMOFSPACERS(DESNUM(COLUMN,ROW>>

SPACHEIGHT=SPACHEIGHT+SPACERHEIGHT(DESNUM(COLUMN,ROW),SPN) 2040 CONTINUE DO 2230 SPN=l,NUMOFSPACERS(DESNUM(COLUMN,ROW>>

• Define the homogenized spacer region bounding surfaces.

IF (SPN.EQ.1) THEN SPACERTOPSURF=UEFBOTTOMSURF CURRENTSURF=SURFVALUESPEC(UEFBOTTOMSURF)-

c SPACERHEIGHT(DESNUM(COLUMN,ROW),SPN)

CURRENTSURFLABEL=O DO 2050 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 2050 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN SPACERBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+l ELSE SPACERBOTTOMSURF=CURRENTSURFLABEL ENDIF WATERREGIONTOPSURF=SPACERBOTTOMSURF CURRENTSURF=SPACERDIST(DESNUM(COLUMN,ROW), (SPN~l>>

CURRENTSURFLABEL=O DO 2060 V=l, (SN-l)

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-021 0-00006 REV 00 Attachment I, Page 561 of656 IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 2060 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN WATERREGIONBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+l ELSE WATERREGIONBOTTOMSURF=CURRENTSURFLABEL ENDIF ELSEIF <<SPN.NE.l).AND. (SPN.NE.

c NUMOFSPACERS(DESNUM(COLUMN,ROW>>>> THEN SPACERTOPSURF=WATERREGIONBOTTOMSURF CURRENTSURF=SURFVALUESPEC(WATERREGIONBOTTOMSURF)-

c SPACERHEIGHT(DESNUM(COLUMN,ROW),SPN)

CURRENTSURFLABEL=O DO 2070 V=l, (SN-l)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 2070 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN SPACERBOTTOMSURF=SN

. SURFTYPESPEC(SN)~'PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+l ELSE SPACERBOTTOMSURF=CURRENTSURFLABEL ENDIF WATERREGIONTOPSURF=SPACERBOTTOMSURF CURRENTSURF~SPACERDIST(DESNUM(COLUMN,ROW), (SPN+l>>

CURRENTSURFLABEL=O DO 2080 V=l, (SN-l)

IF (SURFTYPESPEC(V) .EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 2080 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN WATERREGIONBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+l ELSE

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 562 of 656 WATERREGIONBOTTOMSURF=CURRENTSURFLABEL ENDIF ELSEIF (SPN.EQ.NUMOFSPACERS(DESNUM(COLUMN,ROW>>) THEN SPACERTOPSURF=WATERREGIONBOTTOMSURF CURRENTSURF=SURFVALUESPEC(WATERREGIONBOTTOMSURF)-

c SPACERHEIGHT(DESNUM(COLUMN,ROW),SPN)

CURRENTSURFLABEL=O DO 2090 V=l, (SN-l)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 2090 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN SPACERBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+l ELSE SPACERBOTTOMSURF=CURRENTSURFLABEL ENDIF WATERREGIONTOPSURF=SPACERBOTTOMSURF WATERREGIONBOTTOMSURF=NODEBOTTOMSURF ENDIF

• Write the current homogenized spacer region cell in this GT universe.

DO 2220 SECT=l,NUMOFGTAXS(DESNUM(COLUMN,ROW>>

'IF <<SURFVALUESPEC(GTSECTTOPSURF(SECT>>.GT.

c SURFVALUESPEC(SPACERTOPSURF>> .AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>>.LT.

c SURFVALUESPEC(SPACERBOTTOMSURF>>) THEN WRITE (30, 2100) LN, HOMOSPACMLNUM(DESNUM(COLUMN,ROW),SPN),

c (-l*HOMOSPACERDEN(DESNUM(COLUMN,ROW),SPN>>,

c GTSECTORSURF(SECT),

c (-l*SPACERTOPSURF), SPACERBOTTOMSURF, BPRAUNIV(COLUMN,ROW),

c SPN 2100 FORMAT(Tl,I4,T6,I4,Tll,G14.8,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I4, c , $ Homogenized region for spacer ',I2)

LN=LN+l ELSEIF <<SURFVALUESPEC(GTSECTTOPSURF(SECT>> .EQ.

c SURFVALUESPEC(SPACERTOPSURF>> .AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>>.LT.

c SURFVALUESPEC(SPACERBOTTOMSURF>>) THEN WRITE(30,2110) LN, HOMOSPACMLNUM(DESNUM(COLUMN,ROW),SPN),

c (-l*HOMOSPACERDEN(DESNUM(COLUMN,ROW),SPN>>,

c GTSECTORSURF(SECT),

c (-l*SPACERTOPSURF), SPACERBOTTOMSURF, BPRAUNIV(COLUMN,ROW),

c SPN 2110 FORMAT(Tl,I4,T6,I4,Tll,G14.8,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I4, c , $ Homogenized region for spacer ',I2)

LN=LN+l

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2

.Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 563 of 656 ELSE1F <<SURFVALUESPEC(GTSECTTOPSURF(SECT>> .EQ.

c SURFVALUESPEC(SPACERTOPSURF>>.AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>> .EQ.

c SURFVALUESPEC(SPACERBOTTOMSURF>>) THEN WR1TE(30,2120) LN, HOMOSPACMLNUM(DESNUM(COLUMN,ROW),SPN),

c (-l*HOMOSPACERDEN(DESNUM(COLUMN,ROW),SPN>>,

c GTSECTORSURF(SECT),

c (-l*SPACERTOPSURF), SPACERBOTTOMSURF, BPRAUN1V(COLUMN,ROW),

c SPN 2120 FORMAT (T1, 14, T6, 14, Tll, G14. 8, T25, 14, lX, 14, lX, 14, c , 1MP:N=1 U=',14, c $ Homogenized region for spacer ',12)

LN=LN+1 ELSE1F <<SURFVALUESPEC(GTSECTTOPSURF(SECT>> .GT.

c SURFVALUESPEC(SPACERTOPSURF>> .AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>>.EQ.

c SURFVALUESPEC(SPACERBOTTOMSURF>>) THEN WR1TE(30,2130) LN, HOMOSPACMLNUM(DESNUM(COLUMN,ROW),SPN),

c (-l*HOMOSPACERDEN(DESNUM(COLUMN,ROW),SPN>>,

c GTSECTORSURF(SECT),

c (-l*SPACERTOPSURF), SPACERBOTTOMSURF, BPRAUN1V(COLUMN,ROW),

c SPN 2130 FORMAT(T1,14,T6,14,T11,G14.8,T25,14,lX,14,lX,14, c , 1MP:N=l U=',14, c $ Homogenized region for spacer ',12)

LN=LN+1 ELSE1F <<SURFVALUESPEC(GTSECTTOPSURF(SECT>> .GT.

c SURFVALUESPEC(SPACERTOPSURF>>.AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>>.GT.

c SURFVALUESPEC(SPACERBOTTOMSURF>>.AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>>.LT.

c SURFVALUESPEC(SPACERTOPSURF>>) THEN WR1TE(30,2140) LN, HOMOSPACMLNUM(DESNUM(COLUMN,ROW),SPN),

c (-l*HOMOSPACERDEN(DESNUM(COLUMN,ROW),SPN>>,

c GTSECTORSURF(SECT),

c (-l*SPACERTOPSURF), GTSECTBOTSURF(SECT),

c BPRAUN1V(COLUMN,ROW), SPN 2140 FORMAT(T1,14,T6,14,T11,G14.8,T25,14;lX,14,lX,14, c , 1MP:N=l U=',14, c , $ Homogenized region for spacer ',12)

LN=LN+1 ELSE1F <<SURFVALUESPEC(GTSECTTOPSURF(SECT>>.LT.

c SURFVALUESPEC(SPACERTOPSURF>>.AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>>.LT.

c SURFVALUESPEC(SPACERBOTTOMSURF>>.AND.

c (SURFVALUESPEC(GTSECTTOPSURF(SECT>>.GT.

c SURFVALUESPEC(SPACERBOTTOMSURF>>) THEN WR1TE(30,2150) LN, HOMOSPACMLNUM(DESNUM(COLUMN,ROW),SPN),

c (-l*HOMOSPACERDEN(DESNUM(COLUMN,ROW),SPN>>,

c GTSECTORSURF(SECT),

c (-l*GTSECTTOPSURF(SECT>>, SPACERBOTTOMSURF, c BPRAUN1V(COLUMN,ROW), SPN 2150 FORMAT(T1,14,T6,14,T11,G14.8,T25,14,lX,14,lX,14, c , 1MP:N=l U=',14,

Waste Package Operations Engineering Calculation

"f  ;'.,

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 564 of 656 c $ Homogenized region for spacer ',12)

LN=LN+1 ENDIF

• Write the water region cell below the current homogenized spacer cell in this GT universe.

IF <<SURFVALUESPEC(GTSECTTOPSURF(SECT>> .GT.

c SURFVALUESPEC(WATERREGIONTOPSURF>> .AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>> .LT.

c SURFVALUESPEC(WATERREGIONBOTTOMSURF>>) THEN WRITE(30,2160) LN, BMODML, (-l*MODDENSITY),

c GTSECTORSURF(SECT),

c (-l*WATERREGIONTOPSURF), WATERREGIONBOTTOMSURF, c BPRAUNIV(COLUMN,ROW) 2160 FORMAT(T1,I4,T6,I4,T11,F10.8,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I4,' $ Borated moderator region')

LN=LN+1 ELSEIF <<SURFVALUESPEC(GTSECTTOPSURF(SECT>>.EQ.

c SURFVALUESPEC(WATERREGIONTOPSURF>>.AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>>.LT.

c SURFVALUESPEC(WATERREGIONBOTTOMSURF>>) THEN WR1TE(30,2170) LN, BMODML, (-l*MODDENSITY),

c GTSECTORSURF(SECT),

c (-l*WATERREGIONTOPSURF), WATERREGIONBOTTOMSURF, c BPRAUN1V(COLUMN,ROW) 2170 FORMAT(T1,14,T6,I4,T11,F10.8,T25,I4,lX,14,lX,14, c , IMP:N=l U=',I4,' $ Borated moderator region')

LN=LN+1 ELSEIF <<SURFVALUESPEC(GTSECTTOPSURF(SECT>> .EQ.

c SURFVALUESPEC(WATERREG10NTOPSURF>> .AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>> .EQ.

c SURFVALUESPEC(WATERREG10NBOTTOMSURF>>) THEN WRITE(30,2180) LN, BMODML, (-l*MODDENSITY),

c GTSECTORSURF(SECT),

c (-l*WATERREGIONTOPSURF), WATERREGIONBOTTOMSURF, c BPRAUNIV(COLUMN,ROW) 2180 FORMAT(T1,14,T6,14,T11,F10.8,T25,14,lX,14,lX,I4, c , IMP:N=l U=',14,' $ Borated moderator region')

LN=LN+1 ELSE1F <<SURFVALUESPEC(GTSECTTOPSURF(SECT>>.GT.

c SURFVALUESPEC(WATERREGIONTOPSURF>>.AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>>.EQ.

c SURFVALUESPEC(WATERREG10NBOTTOMSURF>>) THEN WRITE(30,2190) LN, BMODML, (-l*MODDENSITY),

c GTSECTORSURF(SECT),

c (-l*WATERREGIONTOPSURF), WATERREGIONBOTTOMSURF, c BPRAUNIV(COLUMN,ROW) 2190 FORMAT(Tl,I4,T6,I4,T11,F10.8,T25,I4,lX,I4,lX,14, c , IMP:N=l U=',14,' $ Borated moderator region')

LN=LN+1 ELSEIF <<SURFVALUESPEC(GTSECTTOPSURF(SECT>>.GT.

c SURFVALUESPEC(WATERREGIONTOPSURF>>.AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>> .GT.

c SURFVALUESPEC(WATERREGIONBOTTOMSURF>> .AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>> .LT.

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 565 of656 c SURFVALUESPEC(WATERREGIONTOPSURF>>) THEN WRITE(30,2200) LN, BMODML, (-l*MODDENSITY),

c GTSECTORSURF(SECT),

c (-l*WATERREGIONTOPSURF), GTSECTBOTSURF(SECT),

c BPRAUNIV(COLUMN,ROW) 2200 FORMAT(T1,I4,T6,I4,T11,F10.8,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I4,' $ Borated moderator region')

LN=LN+l ELSEIF <<SURFVALUESPEC(GTSECTTOPSURF(SECT>> .LT.

c SURFVALUESPEC(WATERREGIONTOPSURF>> .AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>> .LT.

c SURFVALUESPEC(WATERREGIONBOTTOMSURF>>.AND.

c (SURFVALUESPEC(GTSECTTOPSURF(SECT>> .GT.

c SURFVALUESPEC(WATERREGIONBOTTOMSURF>>) THEN WRITE (30, 2210) LN, BMODML, (-l*MODDENSITY),

c GTSECTORSURF(SECT),

c (-l*GTSECTTOPSURF(SECT>>, WATERREGIONBOTTOMSURF, c BPRAUNIV(COLUMN,ROW) 2210 FORMAT(Tl,I4,T6,I4,Tl1,F10.8,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I4,' $ Borated moderator region')

LN=LN+l ENDIF 2220 CONTINUE 2230 CONTINUE

• Write the moderatQr inside of the GT in the BPR universe DO 2280 GTSECT=l,NUMOFGTAXS(DESNUM(COLUMN,ROW>>

IF <<SURFVALUESPEC(GTSECTTOPSURF(GTSECT>>.GE.

c SURFVALUESPEC(BPCLADTOPSURF>>.AND.

c (SURFVALUESPEC(GTSECTBOTSURF(GTSECT>>.LE.

c SURFVALUESPEC(BPCLADBOTTOMSURF>>) THEN .

• Write the moderator cells within the GT in this BPR universe.

WRITE (30, 2240) LN, BMODML, (-l*MODDENSITY),

c (-l*GTSECTIRSURF(GTSECT>>,

c BPOCORSURF, (-l*BPCLADTOPSURF),

c BPCLADBOTTOMSURF, c BPRAUNIV(COLUMN,ROW) 2240 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3, c $ Borated moderator inside guide tube')

LN=LN+l ELSEIF <<SURFVALUESPEC(GTSECTTOPSURF(GTSECT>> .GE.

c SURFVALUESPEC(BPCLADTOPSURF>> .AND.

c (SURFVALUESPEC(GTSECTBOTSURF(GTSECT>>.~T.

c SURFVALUESPEC(BPCLADTOPSURF>>.AND.

c (SURFVALUESPEC(GTSECTBOTSURF(GTSECT>> .GT.

c SURFVALUESPEC(BPCLADBOTTOMSURF>>) THEN WRITE(30,2250) LN, BMODML, (-l*MODDENSITY),

c (-l*GTSECTIRSURF(GTSECT>>,

c BPOCORSURF, (-l*BPCLADTOPSURF),

c GTSECTBOTSURF(GTSECT),

c BPRAUNIV (COLUMN, ROW) 2250 FORMAT(T1,I4,T6,I4,Tl1,F8.5,T25,I4,lX,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3, c $ Borated moderator inside guide tube')

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 566 of 656 LN=LN+l ELSEIF <<SURFVALUESPEC(GTSECTTOPSURF(GTSECT)) .LT.

c SURFVALUESPEC(BPCLADTOPSURF>>) .AND.

c (SURFVALUESPEC(GTSECTBOTSURF(GTSECT>> .LE.

c SURFVALUESPEC(BPCLADBOTTOMSURF>>).AND.

c (SURFVALUESPEC(GTSECTTOPSURF(GTSECT) .GT.

c SURFVALUESPEC(BPCLADBOTTOMSURF>>)) THEN WRITE(30,2260) LN, BMODML, (-l*MODDENSITY),

c (-l*GTSECTIRSURF(GTSECT),

c BPOCORSURF, (-l*GTSECTTOPSURF(GTSECT>>),

c BPCLADBOTTOMSURF, c BPRAUNIV (COLUMN, ROW) 2260 FORMAT(Tl,I4,T6,I4,Tll,F8.S,T2S,I4,lX,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3, c $ Borated moderator inside guide tube')

LN=LN+l ELSEIF <<SURFVALUESPEC(GTSECTTOPSURF(GTSECT).LT.

c SURFVALUESPEC(BPCLADTOPSURF).AND.

c (SURFVALUESPEC(GTSECTBOTSURF(GTSECT)).GT.

c SURFVALUESPEC(BPCLADBOTTOMSURF)) THEN WRITE(30,2270) LN, BMODML, (-l*MODDENSITY),

c (-l*GTSECTIRSURF(GTSECT>>,

c BPOCORSURF, (-l*GTSECTTOPSURF(GTSECT>>,

c GTSECTBOTSURF(GTSECT),

c BPRAUNIV (COLUMN, ROW) 2270 FORMAT(Tl,I4,T6,I4,Tll,F8.S,T2S,I4,lX,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3, c $ Borated moderator inside guide tube')

LN=LN+l ENDIF 2280 CONTINUE

• Determine the axial GT section which contains the lowest BPR axial section DO 2290 GTSECT=l,NUMOFGTAXS(DESNUM(COLUMN,ROW>>

IF <<SURFVALUESPEC(GTSECTBOTSURF(GTSECT>>.LT.

c SURFVALUESPEC (BPCLADBOTTOMSURF) ) .AND. '

c (SURFVALUESPEC(GTSECTTOPSURF(GTSECT>>.GE.

c SURFVALUESPEC(BPCLADBOTTOMSURF>>)) THEN BGT=GTSECT EXIT ENDIF 2290 CONTINUE DO 2320 GTSECT=BGT,NUMOFGTAXS(DESNUM(COLUMN,ROW))

IF (GTSECT.EQ.BGT) THEN WRITE (30, 2300) LN, BMODML, (-l*MODDENSITY),

c (-l*GTSECTIRSURF(GTSECT>>),

c (-l*BPCLADBOTTOMSURF),

c GTSECTBOTSURF(GTSECT),

c BPRAUNIV (COLUMN, ROW) 2300 FORMAT(Tl,I4,T6,I4,Tl1,F8.S,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3, c , $ Borated moderator inside guide tube')

LN=LNtl ELSE

Waste Package Operations Engineering Calculation

Title:

CRe Reactivity Calculations for Sequoyah Unit 2 Document Identifier: 800000000-01717-0210-00006 REV 00 Attachment I, Page 567 of 656 WRITE(30,23l0) LN, BMODML, (-l*MODDENSITY),

c (-l*GTSECTIRSURF(GTSECT>>,

c (-l*GTSECTTOPSURF(GTSECT>>,

c GTSECTBOTSURF(GTSECT),

c BPRAUNIV(COLUMN,ROW) 2310 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3, c $ Borated moderator inside guide tube')

LN=LN+l ENDIF 2320 CONTINUE

• Define the lower end-fitting top surface.

CURRENTSURF=ENDFITHEIGHT(DESNUM(COLUMN,ROW),2)

CURRENTSURFLABEL=O DO 2330 V=l, (SN-l)

IF (SURFTYPESPEC(V) .EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 2330 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN BPLEFTOPSURF=SN SURFTYPESPEC(SN)c'PZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+l ELSE BPLEFTOPSURF=CURRENTSURFLABEL ENDIF

• Write the lower end-fitting cell specification for this BPR universe.

GTBOTSURF~GTSECTBOTSURF(NUMOFGTAXS(DESNUM(COLUMN,ROW>>)

IF (SURFVALUESPEC(GTBOTSURF).GE.

c ENDFITHEIGHT(DESNUM(COLUMN,ROW),2>> THEN WRITE(30,2340) LN, FRLEFML(COLUMN,ROW),

c (-l*LEFMAT(DESNUM(COLUMN,ROW),l>>, (-l*BPLEFTOPSURF),

c BPRAUNIV(COLUMN,ROW) 2340 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,' IMP:N=l U=',I3, c $ Lower end-fitting')

LN=LN+l ELSE WRITE(30,2350) LN, FRLEFML(COLUMN,ROW),

c (-l*LEFMAT(DESNUM(COLUMN,ROW),l>>, (-l*BPLEFTOPSURF),

c GTSECTORSURF(NUMOFGTAXS(DESNUM(COLUMN,ROW>>),

c BPRAUNIV(COLUMN,ROW) 2350 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4, c , IMP:N=l U=',I3,' $ Lower end-fitting')

LN=LN+l WRITE(30,2360) LN, FRLEFML(COLUMN,ROW),

c (-l*LEFMAT(DESNUM(COLUMN,ROW),l>>,

c (-l*GTSECTBOTSURF(NUMOFGTAXS(DESNUM(COLUMN,ROW>>>>,

c (-l*GTSECTORSURF(NUMOFGTAXS(DESNUM(COLUMN,ROW>>>>,

c BPRAUNIV(COLUMN,ROW) 2360 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-021 0-00006 REV 00 Attachment I, Page 568 of656 c , 1MP:N=l U=',I3,' $ Lower end-fitting')

LN=LN+1 ENDIF

• Write the upper end-fitting cell specification for this BPR universe.

IF ((SURFVALUESPEC(BPCLADTOPSURF).LE.

c SURFVALUESPEC(UEFBOTTOMSURF>> .AND.

c (SURFVALUESPEC(GTSECTTOPSURF(l>>.LE.

c SURFVALUESPEC(UEFBOTTOMSURF>>) THEN WRITE(30,2370) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF), BPRAUNIV(COLUMN,ROW) 2370 FORMAT(T1,I4,T6,14,Tl1,F8.5,T25,I4,lX,I4, c , IMP:N=l U=',I3,' $ Assembly upper end-fitting')

LN=LN+1 ELSE1F (SURFVALUESPEC(BPCLADTOPSURF) .GT.

c SURFVALUESPEC(UEFBOTTOMSURF>>.AND.

c (SURFVALUESPEC(BPCLADTOPSURF) .LT.

c SURFVALUESPEC(UEFTOPSURF>>.AND.

c (SURFVALUESPEC(GTSECTTOPSURF(l>>.LE.

c SURFVALUESPEC(UEFBOTTOMSURF>>) THEN WR1TE(30,2380) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF), BPOCORSURF, BPRAUNIV (COLUMN, ROW) 2380 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4, c , 1MP:N=l U=',I3,' $ Assembly upper end-fitting')

LN=LN+l WRITE(30,2390) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, BPCLADTOPSURF, c (-l*UEFTOPSURF), (-l*BPOCORSURF),

c BPRAUNIV(COLUMN,ROW) 2390 FORMAT(Tl,14,T6,I4,T1l,F8.5,T25,I4,lX,14,lX,I4, c , IMP:N=l U=',I3,' $ Assembly upper end-fitting')

LN=LN+l ELSEIF <<(SURFVALUESPEC(BPCLADTOPSURF) .LE.

c SURFVALUESPEC(GTSECTTOPSURF(l>>).AND.

c (SURFVALUESPEC(GTSECTTOPSURF(l>>.LT.

c SURFVALUESPEC(UEFTOPSURF>>.AND.

c (SURFVALUESPEC(GTSECTTOPSURF(l>>.GT.

c SURFVALUESPEC(UEFBOTTOMSURF>>) THEN WRITE(30,2400) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF), GTSECTORSURF(l), BPRAUNIV(COLUMN,ROW) 2400 FORMAT(Tl,I4,T6,14,Tll,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',13,' $ Assembly upper end-fitting')

LN=LN+l WRITE(30,2410) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, GTSECTTOPSURF(l),

c (-l*UEFTOPSURF), (-l*GTSECTORSURF(l>>,

c BPRAUNIV(COLUMN,ROW) 2410 FORMAT(Tl,I4,T6,14,Tl1,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',13,' $ Assembly upper end-fitting')

LN=LN+1 WRITE(30,2420) LN, BMODML, c (-l*MODDENSITY), BPCLADTOPSURF,

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 569 of 656 c (-l*GTSECTTOPSURF(1>>, (-l*GTSECTIRSURF(l),

c BPRAUNIV(COLUMN,ROW) 2420 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,14,lX,I4, c , 1MP:N=l U=',13,' $ Assembly upper end-fitting')

LN=LN+l ELSEIF <<SURFVALUESPEC(BPCLADTOPSURF) .LE.

c SURFVALUESPEC(GTSECTTOPSURF(l>>)).AND.

c (SURFVALUESPEC(GTSECTTOPSURF(l>> .EQ.

c SURFVALUESPEC(UEFTOPSURF>>)) THEN WR1TE(30,2430) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF), GTSECTORSURF(l),

c BPRAUN1V(COLUMN,ROW) 2430 FORMAT(Tl,I4,T6,14,Tll,F8.5,T25,14,lX,14,lX,I4, c , 1MP:N=l U=',13,' $ Assembly upper end-fitting')

LN=LN+l IF (SURFVALUESPEC(BPCLADTOPSURF).LT.

c SURFVALUESPEC(GTSECTTOPSURF(l>>) THEN WRITE(30,2440) LN, BMODML, c (-l*MODDENSITY), BPCLADTOPSURF, c (-1 *UEFTOPSURF), (-1 *GTSECT1RSURF (1>> ,

c BPRAUN1V(COLUMN,ROW) 2440 FORMAT(Tl,14,T6,14,T11,F8.5,T25,14,lX,14,lX,14, c , IMP:N=l U=',13,' $ Assembly upper end-fitting')

LN=LN+l END1F ELSE1F <<SURFVALUESPEC(BPCLADTOPSURF).GT.

c SURFVALUESPEC(UEFBOTTOMSURF>>.AND.

c (SURFVALUESPEC(BPCLADTOPSURF) .LT.

c SURFVALUESPEC(UEFTOPSURF>>.AND.

c (SURFVALUESPEC(GTSECTTOPSURF(l>>.GT, c SURFVALUESPEC(UEFBOTTOMSURF>>.AND.

c (SURFVALUESPEC(GTSECTTOPSURF(l>>).LT.

c SURFVALUESPEC(BPCLADTOPSURF>>) THEN WR1TE(30,2450) LN, FRUEFML(COLUMN,RO~),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l),UEFBOTTOMSURF, c (-l*UEFTOPSURF), GTSECTORSURF(l),

c BPRAUN1V(COLUMN,ROW) 2450 FORMAT(Tl,I4,T6,14,Tll,F8.5,T25,I4,lX,14,lX,I4, c , 1MP:N=l U=',13,' $ Assembly upper end-fitting')

LN=LN+l WRITE(30,2460) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>,

c GTSECTTOPSURF(l),

c (-l*UEFTOPSURF), (-l*GTSECTORSURF(l>>,

c BPOCORSURF, BPRAUNIV(COLUMN,ROW) 2460 FORMAT(Tl,14,T6,I4,Tll,F8.5,T25,I4,lX,14,lX,14, c lX,I4,' IMP:N=l U=',13, c , $ Assembly upper end-fitting')

LN=LN+l WR1TE(30,2470) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, BPCLADTOPSURF, c (-l*UEFTOPSURF), (-l*BPOCORSURF),

c BPRAUN1V(COLUMN,ROW)

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-02 I0-00006 REV 00 Attachment I, Page 570 of656 2470 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Assembly upper end-fitting')

LN=LN+1 ELSEIF <<SURFVALUESPEC(BPCLADTOPSURF).EQ.

c SURFVALUESPEC(UEFTOPSURF>>.AND.

c (SURFVALUESPEC(GTSECTTOPSURF(l>> .GT.

c SURFVALUESPEC(UEFBOTTOMSURF>> .AND.

c (SURFVALUESPEC(GTSECTTOPSURF{l>>.LT.

c SURFVALUESPEC{BPCLADTOPSURF>>) THEN WRITE{30,2480) LN, FRUEFML{COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF), GTSECTORSURF{l),

c BPRAUNIV (COLUMN, ROW) 2480 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Assembly upper end-fitting')

LN=LN+1 WRITE(30,2490) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>,

c GTSECTTOPSURF(l),

c (-l*UEFTOPSURF), (-l*GTSECTORSURF(l>>,

c BPOCORSURF, BPRAUNIV{COLUMN,ROW) 2490 FORMAT(Tl,I4,T6,I4,T1l,F8.5,T25,I4,lX,I4,lX,I4, c 1X,I4,' IMP:N=l U=',I3, c , $ Assembly upper end-fitting')

LN=LN+1 ELSEIF ({SURFVALUESPEC{BPCLADTOPSURF) .GT.

c SURFVALUESPEC(UEFBOTTOMSURF>>.AND.

c {SURFVALUESPEC(BPCLADTOPSURF).LT.

c SURFVALUESPEC{UEFTOPSURF>>.AND.

c (SURFVALUESPEC(GTSECTTOPSURF(l>>.EQ.

c SURFVALUESPEC{BPCLADTOPSURF>>) THEN WRITE(30,2500) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-1 *UEFTOPSURF), GTSECTORSURF (1) ,

c BPRAUN1V(COLUMN,ROW) 2500 FORMAT(T1,I4,T6,14,Tl1,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',13,' $ Assembly upper end-fitting')

LN=LN+1 WRITE (30, 2510) LN, FRUEFML{COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>,

c GTSECTTOPSURF(l),

c (-l*UEFTOPSURF), (-l*GTSECTORSURF(l>>,

c BPOCORSURF, BPRAUNIV(COLUMN,ROW) 2510 FORMAT(Tl,I4,T6,I4,T11,F8.5,T25,14,lX,I4,lX,I4, c 1X,I4,' IMP:N=l U=',r3, c $ Assembly upper end-fitting')

LN=LN+1 ENDIF

• • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • ~*********************************

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-021 0-00006 REV 00 Attachment I, Page 571 of 656

• • • • • • • • • • • • • • • • • • • • • • • • • • ~*****************************************

ELSEIF (WBPRA(BANKNUM(COLUMN,ROW>>.EQ.3) THEN DO 2680 MCNPNODE=l,NUMOFBPRANODES(BANKNUM(COLUMN,ROW>>

• Define the upper end-fitting bottom surface.

CURRENTSURF=SPACERDIST(DESNUM(COLUMN,ROW),l)+

c ENDFITHEIGHT(DESNUM(COLUMN,ROW),2)

CURRENTSURFLABEL=O DO 2520 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ. 'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 2520 CONTINUE -

IF (CURRENTSURFLABEL.EQ.O) THEN UEFBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+1 ELSE UEFBOTTOMSURF=CURRENTSURFLABEL ENDIF

• Define the upper end-fitting top surface.

CURRENTSURF=SPACERDIST(DESNUM(COLUMN,ROW),l)+

c ENDFITHEIGHT(DESNUM(COLUMN,ROW),l)+

c ENDFITHEIGHT(DESNUM(COLUMN,ROW),2)

CURRENTSURFLABEL=O DO 2530 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 2530 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN UEFTOPSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 572 of 656 SN=SN+l ELSE UEFTOPSURF=CURRENTSURFLABEL ENDIF

• Define the inner BPR cladding inner radius.

CURRENTSURF=BPRAXDIM(BANKNUM(COLUMN,ROW),l)

CURRENTSURFLABEL=O DO 2540 V=l, (SN-l)

IF (SURFTYPESPEC(V) .EQ.'CZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001) THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 2540 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN BPICIRSURF=SN SURFTYPESPEC(SN)='CZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+l ELSE BPICIRSURF=CURRENTSURFLABEL ENDIF

• Define the inner BPR cladding outer radius.

CURRENTSURF=BPRAXDIM(BANKNUM(COLUMN,ROW),2)

CURRENTSURFLABEL=O DO 2550 V=l, (SN-l)

IF (SURFTYPESPEC(V).EQ.'CZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 2550 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN BPICORSURF=SN SURFTYPESPEC(SN)='CZ' SURFVALUESPEC(~N)=CURRENTSURF SN=SN+l ELSE BPICORSURF=CURRENTSURFLABEL ENDIF

• Define the BP absorber inner radius.

CURRENTSURF=BPRAXDIM(BANKNUM(COLUMN,ROW),3)

CURRENTSURFLABEL=O DO 2560 V=l, (SN-l)

IF (SURFTYPESPEC(V).EQ.'CZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 2560 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: 800000000-01717-0210-00006 REV 00 Attachment I, Page 573 of 656 BPIRSURF=SN SURFTYPESPEC(SN)='CZ' SURFVALUESPEC(SN)=CURRENTSURF.

SN=SN+l ELSE BPIRSURF=CURRENTSURFLABEL ENDIF

• Define the BP absorber outer radius.

CURRENTSURF=BPRAXDIM(BANKNUM(COLUMN,ROW),4)

CURRENTSURFLABEL=O DO 2570 V=l, (SN-l)

IF (SURFTYPESPEC(V) .EQ.'CZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 2570 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN BPORSURF=SN SURFTYPESPEC(SN)='CZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+l ELSE BPORSURF=CURRENTSURFLABEL ENDIF

• Define the outer BPR cladding inner radius.

CURRENTSURF=BPRAXDIM(BANKNUM(COLUMN,ROW),5)

. CURRENTSURFLABEL=O DO 2580 V=l, (SN-l)

IF (SURFTYPESPEC(V).EQ.'CZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 2580 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN BPOCIRSURF=SN SURFTYPESPEC(SN)='CZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+l ELSE BPOCIRSURF=CURRENTSURFLABEL ENDIF

• Define the outer BPR cladding outer radius.

CURRENTSURF=BPRAXDIM(BANKNUM(COLUMN,ROW),6)

CURRENTSURFLABEL=O DO 2590 V=l, (SN-l)

IF (SURFTYPESPEC(V).EQ.'CZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: 800000000-01717-0210-00006 REV 00 Attachment I, Page 574 of 656 ENDIF 2590 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN BPOCORSURF=SN SURFTYPESPEC(SN)='CZ'

, SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE BPOCORSURF=CURRENTSURFLABEL ENDIF

• Define the BP node bounding surfaces.

IF (MCNPNODE.EQ.1) THEN TOTBPHEIGHT=O.O DO 2600 Z=l,NUMOFBPRANODES(BANKNUM(COLUMN,ROW>>

TOTBPHEIGHT=TOTBPHEIGHT+

c MCNPBPRAHEIGHT(BANKNUM(COLUMN,ROW),Z) 2600 CONTINUE CURRENTSURF=BOTBPNODEHEIGHT(BANKNUM(COLUMN,ROW>>+

c TOTBPHEIGHT IF (CURRENTSURF.GE.SURFVALUESPEC(UEFTOPSURF>> THEN CURRENTSURF=SURFVALUESPEC(UEFTOPSURF)

ENDIF CURRENTSURFLABEL=0 DO 2610 V=l, (SN-1)

IF (SURFTYPESPEC (V) :EQ. 'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V .

EXIT ENDIF ENDIF 2610 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN TOPBPNODETOPSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE TOPBPNODETOPSURF=CURRENTSURFLABEL ENDIF BPNODETOPSURF=TOPBPNODETOPSURF CURRENTSURF=SURFVALUESPEC(BPNODETOPSURF)-

c MCNPBPRAHEIGHT(BANKNUM(COLUMN,ROW),MCNPNODE)

IF (CURRENTSURF.GE.SURFVALUESPEC(UEFTOPSURF>> THEN CURRENTSURF=SURFVALUESPEC(UEFTOPSURF)

ENDIF CURRENTSURFLABEL=O DO 2620 V=1,(SN-1)

IF (SURFTYPESPEC(V) .EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 2620 CONTINt,JE

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: 800000000-01717-0210-00006 REV 00 Attachment I, Page 575 of 656 IF (CURRENTSURFLABEL.EQ.O) THEN BPNODEBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+1 ELSE BPNODEBOTTOMSURF=CURRENTSURFLABEL ENDIF ELSEIF (MCNPNODE.NE.1) THEN BPNODETOPSURF=BPNODEBOTTOMSURF CURRENTSURF=SURFVALUESPEC(BPNODETOPSURF)-

c MCNPBPRAHEIGHT(BANKNUM(COLUMN,ROW),MCNPNODE)

IF (CURRENTSURF.GE.SURFVALUESPEC(UEFTOPSURF>> THEN CURRENTSURF=SURFVALUESPEC(UEFTOPSURF)

ENDIF CURRENTSURFLABEL=O DO 2640 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 2640 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN BPNODEBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+1 .

ELSE BPNODEBOTTOMSURF=CURRENTSURFLABEL ENDIF ENDIF IF '(SURFVALUESPEC(BPNODEBOTTOMSURF).LT.

c SURFVALUESPEC(UEFTOPSURF>> THEN

• Write the BP node cells in this BPR universe.

IF <<BPRABSNODE(BANKNUM(COLUMN,ROW),MCNPNODE) .EQ.'Y') .AND.

c (BPNONABSMAT(BANKNUM(COLUMN,ROW>> .EQ.1>> THEN WRITE(30,2650) LN, BPNODEML, c (-1*AL203DENSITY(BANKNUM(COLUMN,ROW>>), (-l*BPORSURF),

c BPIRSURF, (-l*BPNODETOPSURF), BPNODEBOTTOMSURF, c BPRAUNIV(COLUMN,ROW), MCNPNODE 2650 FORMAT(T1,I4,T6,I4,T11,G14.6,T25,I4,lX,I4,lX,I4, c 1X,I4,' IMP:N=l U=',I3,' $ Burnable poison node ',I2)

LN=LN+1 BPNODEML=BPNODEML+1 ELSEIF <<BPRABSNODE(BANKNUM(COLUMN,ROW),MCNPNODE) .EQ.'Y') .AND.

c (BPNONABSMAT(BANKNUM(COLUMN,ROW>>.NE.1>> THEN WRITE(30,2660) LN, BPNODEML, c (-l*NONBPMATDATA(BANKNUM(COLUMN,ROW),l>>, (-l*BPORSURF),

c BPIRSURF, (-l*BPNODETOPSURF), BPNODEBOTTOMSURF, c BPRAUNIV(COLUMN,ROW), MCNPNODE 2660 FORMAT(T1,I4,T6,I4,T11,G14.6,T25,I4,lX,I4,lX,I4, c lX,I4,' IMP:N=l U=',I3,' $ Burnable poison node ',I2)

Waste P~ckage Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: 800000000-01717-0210-00006 REV 00 Attachment I, Page 576 of656 LN=LN+l BPNODEML=BPNODEML+1 ELSE WRITE(30,2670) LN, BPNODEML, c (-1*BPDENTOGO(COLUMN,ROW,MCNPNODE>>, (-1*BPORSURF),

c BPIRSURF, (-1*BPNODETOPSURF), BPNODEBOTTOMSURF, c BPRAUNIV(COLUMN,ROW), MCNPNODE 2670 FORMAT(T1,I4,T6,I4,T11,G14.6,T2S,I4,1X,I4,1X,I4, c 1X,I4,' IMP:N=1 U=',I3,' $ Burnable poison node ',12)

LN=LN+1 BPNODEML=BPNODEML+1 ENDIF ENDIF 2680 CONTINUE

• Define the BPR cladding top surface.

CURRENTSURF=TOTBPHEIGHT+

c BOTBPNODEHEIGHT(BANKNUM(COLUMN,ROW>>+

c BPRPLEN(BANKNUM(COLUMN,ROW),1)

IF (CURRENTSURF.GE.SURFVALUESPEC(UEFTOPSURF>> THEN CURRENTSURF-SURFVALUESPEC(UEFTOPSURF)

ENDIF CURRENTSURFLABEL=O DO 2690 V=1, (SN-1)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 2690 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN BPCLADTOPSURF=SN SURFTYPESPEC(SN)-'PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=;oSN+l ELSE BPCLADTOPSURF-CURRENTSURFLABEL ENDIF

• Define the BPR cladding bottom surface.

CURRENTSURF=BOTBPNODEHEIGHT(BANKNUM(COLUMN,ROW>>-

c BPRPLEN(BANKNUM(COLUMN,ROW),2)

CURRENTSURFLABEL=O DO 2700 V=1, (SN-l)

IF (SURFTYPESPEC(V) .EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 2700 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN BPCLADBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC (SN) =CURRENTSURF

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 577 of 656 SN=SN+l ELSE BPCLADBOTTOMSURF=CURRENTSURFLABEL ENDIF

• Write the inner BP-to-cladding gap cell in this BPR universe.

WRITE(30,27l0) LN, (-l*BPIRSURF), BPICORSURF, c (-l*TOPBPNODETOPSURF),

c BPNODEBOTTOMSURF, BPRAUNIV(COLUMN,ROW) 2710 FORMAT (Tl, 14, T6, '0' , T25, 14, lX, 14, lX, 14, lX, 14, c , IMP:N=l U=',I3, c $ Burnable poison-to-cladding gap')

LN=LN+l

• Write the outer BP-to-cladding gap cell in this BPR universe.

WRITE(30,2720) LN, (-l*BPOCIRSURF), BPORSURF, c (-l*TOPBPNODETOPSURF),

c BPNODEBOTTOMSURF, BPRAUNIV(COLUMN,ROW) 2720 FORMAT (Tl, 14, T6, '0' , T25, 14, lX, 14, lX, 14, lX, 14, c , IMP:N=l U=',I3, c $ Burnable poison-to-cladding gap')

LN=LN+l

• Write the annular water cell in this BPR universe.

WRITE(30,2730) LN, BMODML,

• c (-l*MODDENSITY), (-l*BPICIRSURF),

c . (-l*TOPBPNODETOPSURF),

c BPNODEBOTTOMSURF, BPRAUNIV (COLUMN, ROW) 2730 FORMAT(Tl,I4,T6,I4,Tll,Gl4.6,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3, c $ Burnable poison-to-cladding gap')

LN=LN+l

• Write the BPR cladding cell in this BPR universe.

• Determine if the BPR cladding material specification has

• previously been defined. If it has been previously defined, determine

• the cladding material specification label.

CLADMLUNIQUE=.TRUE.

LEAVE=.FALSE.

IF <<COLUMN.NE.l).AND. (ROW.NE.1>> THEN DO 2750 RO=l, (ROW-l)

DO 2740 CO=l,50 IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKDES(BANKNUM(CO,RO>>.EQ.'BPRA ') THEN IF (BPRCLADMAT(BANKNUM(COLUMN,ROW>> .EQ.

c BPRCLADMAT(BANKNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPCLADML(COLUMN,ROW)=BPCLADML(CO,RO)

EXIT ENDIF ENDIF ENDIF 2740 CONTINUE IF (LEAVE.EQ .* TRUE.) THEN EXIT ENDIF 2750 CONTINUE

Waste Package Operations* Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: 800000000-01717-0210-00006 REV 00 Attachment I, Page 578 of 656 IF (LEAVE.EQ *. FALSE.) THEN DO 2770 RO=ROW,ROW DO 2760 CO=I, (COLUMN-I)

IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKDES(BANKNUM(CO,RO>> .EQ.'BPRA ') THEN IF (BPRCLADMAT{BANKNUM(COLUMN,ROW>>.EQ.

c BPRCLADMAT{BANKNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPCLADML{COLUMN,ROW)=BPCLADML(CO,RO)

EXIT ENDIF ENDIF ENDIF 2760 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 2770 CONTINUE ENDIF ELSEIF {(COLUMN.EQ.I) .AND. (ROW.NE.I>> THEN DO 2790 RO=I, (ROW-I)

DO 2780 CO=I,SO IF (BANKNUM{CO,RO).NE.O) 'THEN IF (BANKDES(BANKNUM{CO,RO>>.EQ.'BPRA ') THEN IF (BPRCLADMAT(BANKNUM(COLUMN,ROW>>.EQ.

c BPRCLADMAT(BANKNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPCLADML{COLUMN, ROW)=BPCLADML (CO,RO)

EXIT.

ENDIF ENDIF ENDIF 2780 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 2790 CONTINUE ELSEIF ((ROW.EQ.I) .AND.(COLUMN.NE.I>> THEN DO 2810 RO=l,1 DO 2800 CO=I, (COLUMN-I)

IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKDES(BANKNUM(CO,RO>> .NE.'BPRA ') THEN I~ (BPRCLADMAT(BANKNUM(COLUMN,ROW>> .EQ.

c BPRCLADMAT(BANKNUM{CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPCLADML(COLUMN, ROW)=BPCLADML (CO,RO)

EXIT ENDIF ENDIF ENDIF 2800 CONTINUE

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 579 of 656 IF (LEAVE.EQ *. TRUE.) THEN EXIT ENDIF 2810 CONTINUE ENDIF IF (CLADMLUNIQUE.EQ .* TRUE.) THEN BPCLADML (COLUMN, ROW)=MN

• Check BPR Cladding Material IF (BPRCLADMAT(BANKNUM(COLUMN,ROW>> .EQ.1) THEN DO 2820 C=1,2 IF (C.EQ.1) THEN WRITE(200,9300) BPCLADML (COLUMN, ROW)

ELSEIF (C.EQ.2) THEN WRITE (200, 9301)

WRITE (200, 7000)

WRITE(200,7001)

WRITE(200,7002)

WRITE(200,9302)

WRITE (200, 7003)

WRITE (200, 7004)

WRITE(200,7005)

WRITE(200,9303)

WRITE(200,9304)

ENDIF 2820 CONTINUE ELSEIF (BPRCLADMAT(BANKNUM(COLUMN,ROW>>

c .EQ.2) THEN DO 2830 C=1,2 IF (C.EQ.1) THEN WRITE (200, 9305) BPCLADML (COLUMN, ROW)

ELSEIF (C.EQ.2) THEN WRITE(200,9306)

WRITE(200,9307)

WRITE (200, 9308)

WRITE (200, 9309)

WRITE (200, 9310)

WRITE(200,7006)

WRITE (200, 7007)

WRITE(200,7008)

WRITE (200, 9311)

WRITE (200, 9312)

WRITE(200,7009)

WRITE(200,7010)

WRITE(200,7011)

WRITE (200, 9313)

WRITE(200,7012)

WRITE(200,7013)

WRITE(200,7014)

WRITE (200, 7015)

ENDIF 2830 CONTINUE ELSEIF (BPRCLADMAT(BANKNUM(COLUMN,ROW>>

c .EQ.3) THEN DO 2840 C=1,2

Waste Package Operations Engineering Calculation

Title:

eRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 580 of 656 IF (C.EQ.l) THEN WRITE(200,9314) BPCLADML(COLUMN,ROW)

ELSEIF (C.EQ.2) THEN WRITE(200,9315)

WRITE(200,9316)

WRITE(200,9317)

WRITE(200,9318)

WRITE(200,7016)

WRITE(200,7017)

WRITE(200,7018)

WRITE(200,9319)

WRITE (200, 9320)

WRITE(200,7019)

WRITE(200,7020)

WRITE(200,7021)

WRITE(200,9321)

WRITE(200,7022)

WRITE(200,7023)

WRITE(200,7024)

WRITE (200, 7025)

WRITE (200, 9322)

WRITE(200,9323)

WRITE(200,9324)

WRITE(200,9325)

WRITE (200,9326) .

WRITE (200, 9327)

WRITE (200, 7026)

WRITE(200,9328)

WRITE (200, 9329)

WRITE(200,9330)

ENDIF 2840 CONTINUE ENDIF MN=MN+l ENDIF IF (BPRCLADMAT(BANKNUM(COLUMN,ROW>>.EQ.l) THEN CLADRHO=6.56 ELSEIF (BPRCLADMAT(BANKNUM(COLUMN,ROW>>.EQ.2) THEN CLADRHO=7.90 ELSEIF (BPRCLADMAT(BANKNUM(COLUMN,ROW>> .EQ.3) THEN CLADRHO=8.19 ENDIF WRITE(30,2850) LN, BPCLADML(COLUMN,ROW), (-l*CLADRHO),

c BPOCIRSURF, c (-l*BPOCORSURF), (-l*BPCLADTOPSURF), BPCLADBOTTOMSURF, c BPRAUNIV(COLUMN,ROW) 2850 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ BPR cladding')

LN=LN+l WRITE (30, 2860) LN, BPCLADML(COLUMN,ROW), (-l*CLADRHO),

c BPICIRSURF, c (-l*BPICORSURF), (-l*TOPBPNODETOPSURF),

c BPNODEBOTTOMSURF, c BPRAUNIV(COLUMN,ROW)

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-021 0-00006 REV 00 Attachment I, Page 581 of 656 2860 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4,lX,I4, c ' IMP:N=l U=',I3,' $ BPR cladding')

LN=LN+l

• Write the BPR upper plenum cell in this BPR universe.

• Determine if the BPR upper plenum material specification has

• previously been defined. If it has been previously defined, determine

• the upper plenum material specification label.

BPRUPMLUNIQUE=.TRUE.

LEAVE=.FALSE.

IF <<COLUMN.NE.l).AND.(ROW.NE.l>> THEN DO 2880 RO=l, (ROW-I)

DO 2870 CO=1,50 IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKNUM(COLUMN,ROW).EQ.

c BANKNUM(CO,RO>> THEN BPRUPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPRUPML (COLUMN, ROW) =BPRUPML (CO, RO)

EXIT ENDIF ENDIF 2870 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 2880 CONTINUE IF (LEAVE.EQ *. FALSE.) THEN DO 2900 RO=ROW,ROW DO 2890 CO=l, (COLUMN-I)

IF (BANKNUM (CO, RO) .NE.O) THEN IF (BANKNUM(COLUMN,ROW).EQ.

c BANKNUM(CO,RO>> THEN BPRUPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPRUPML(COLUMN,ROW) =BPRUPML (CO, RO)

EXIT ENDIF ENDIF 2890 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 2900 CONTINUE ENDIF ELSEIF <<COLUMN.EQ.l) .AND. (ROW.NE.l>> THEN DO 2920 RO=l, (ROW-I)

DO 2910 CO=1,50 IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKNUM(COLUMN,ROW).EQ.

c BANKNUM(CO,RO>> THEN BPRUPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPRUPML(COLUMN,ROW)=BPRUPML(CO,RO)

EXIT

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 582 of656 ENDIF ENDIF 2910 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 2920 CONTINUE ELSEIF <<(ROW.EQ.1) .AND. (COLUMN.NE.1>> THEN DO 2940 RO=l,l DO 2930 CO=l, (COLUMN-1)

IF (BANKNUM(CO,RO) .NE.O) THEN IF (BANKNUM(COLUMN,ROW) .EQ.

c BANKNUM(CO,RO) THEN BPRUPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPRUPML(COLUMN, ROW) =BPRUPML (CO, RO)

EXIT ENDIF ENDIF 2930 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 2940 CONTINUE ENDIF IF (SURFVALUESPEC(TOPBPNODETOPSURF).LT.

c SURFVALUESPEC(UEFTOPSURF>> THEN IF (BPRUPMLUNIQUE.EQ .* TRUE.) THEN BPRUPML(COLUMN,ROW)=MN

• Check Burnable Poison Rod Upper Plenum Regions DO 2970 C=1,BPRUPLENMAT(BANKNUM(COLUMN,ROW),2)

IF (C.EQ.l) THEN WRITE(200,2950) BPRUPML(COLUMN,ROW),

c BPRUPLENZAIDS(BANKNUM(COLUMN,ROW),C),

c (-l*BPRUPLENWTS(BANKNUM(COLUMN,ROW),C) 2950 FORMAT(Tl,'M',I4,T9,A9,3X,G14.6, c , $ Burnable Poison Rod Upper Plenum')

ELSE WRITE(200,2960) c BPRUPLENZAIDS(BANKNUM(COLUMN,ROW),C),

c (-l*BPRUPLENWTS(BANKNUM(COLUMN,ROW),C>>

2960 FORMAT(T9,A9,3X,G14.6)

ENDIF 2970 CONTINUE MN=MN+l ENDIF WRITE(30,2980) LN, BPRUPML(COLUMN,ROW),

c (-l*BPRUPLENMAT(BANKNUM(COLUMN,ROW),l>>,

c TOPBPNODETOPSURF, c (-l*BPCLADTOPSURF), (-l*BPOCIRSURF),

c BPRAUNIV(COLUMN,ROW) 2980 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ BPR upper plenum region')

LN=LN+1

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 583 of656 ENDIF

• Write the BPR lower plenum cell (lower end plug) in this BPR universe.

• Determine if the BPR lower plenum material specification has

• previously been defined. If it has been previously defined, determine

• the lower plenum material specification label.

BPRLPMLUNIQUE=.TRUE.

LEAVE=.FALSE.

IF <<COLUMN.NE.1) .AND. (ROW.NE.1) THEN DO 3000 RO=l, (ROW-1)

DO 2990 CO=1,50 IF (BANKNUM(CO,RO) .NE.O) THEN IF (BANKNUM(COLUMN,ROW).EQ.BANKNUM(CO,RO) THEN BPRLPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPRLPML(COLUMN,ROW)=BPRLPML(CO,RO)

EXIT ENDIF ENDIF 2990 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 3000 CONTINUE IF (LEAVE.EQ .* FALSE.) THEN DO 3020 RO=ROW,ROW DO 3010 CO=l, (COLUMN-1)

IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKNUM(COLUMN,ROW).EQ.

c BANKNUM(CO,RO>>) THEN BPRLPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPRLPML (COLUMN, ROW) =BPRLPML (CO,RO)

EXIT ENDIF ENDIF 3010 .CONTINUE IF (LEAVE.EQ .. T~UE.) THEN EXIT ENDIF 3020 CONTINUE ENDIF ELSEIF <<COLUMN.EQ.1) .AND.(ROW.NE.1>> THEN DO 3040 RO=l, (ROW-1)

DO 3030 CO=1,50 IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKNUM(COLUMN,ROW) .EQ.

c BANKNUM(CO,RO>> THEN BPRLPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPRLPML (COLUMN, ROW) =BPRLPML (CO, RO)

EXIT ENDIF ENDIF 3030 CONTINUE

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: 800000000-01717-0210-00006 REV 00 Attachment I, Page 584 of 656 IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 3040 CONTINUE ELSEIF <<ROW.EQ.1).AND.(COLUMN.NE.1>> THEN DO 3060 RO=1,1 DO 3050 CO=1, (COLUMN-1)

IF (BANKNUM (CO, RO) .NE.O) THEN IF (BANKNUM(COLUMN,ROW) .EQ.

c BANKNUM(CO,RO>> THEN BPRLPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPRLPML(COLUMN,ROW)=BPRLPML(CO,RO)

EXIT ENDIF ENDIF 3050 CONTINUE IF (LEAVE.EQ *. TRUE.) THEN, EXIT ENDIF 3060 CONTINUE ENDIF IF (BPRLPMLUNIQUE.EQ *. TRUE.) THEN BPRLPML(COLUMN,ROW)=MN

• Check Burnable Poison Rod Lower Plenum Regions DO 3090 C=1,BPRLPLENMAT(BANKNUM(COLUMN,ROW),2)

IF (C.EQ.1) THEN WRITE(200,3070) BPRLPML(COLUMN,ROW),

c BPRLPLENZAIDS(BANKNUM(COLUMN,ROW),C),

c (-1*BPRLPLENWTS(BANKNUM(COLUMN,ROW),C>>

3070 FORMAT (T1, 'M' , 14, T9,A9, 3X, G14 .6, c , $ Burnable Poison Rod Lower Plenum')

ELSE WRITE (200, 3080) c BPRLPLENZAIDS(BANKNUM(COLUMN,ROW),C),

c (-1*BPRLPLENWTS(BANKNUM(COLUMN,ROW),C>>

3080 FORMAT(T9,A9,3X,G14.6)

ENDIF 3090 CONTINUE MN=MN+1 ENDIF WRITE(30,3100) LN, BPRLPML(COLUMN,ROW),

c (-1*BPRLPLENMAT(BANKNUM(COLUMN,ROW),1>>, BPCLADBOTTOMSURF, c (-1*BPNODEBOTTOMSURF), (-1*BPOCIRSURF),

c BPRAUNIV(COLUMN,ROW) 3100 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,1X,I4,1X,I4, c , IMP:N=1 U=',I3,' $ BPR lower plenum region')

LN=LN+l

• Loop through the regions above the BPR (i.e. the appropriate upper core regions)

• Define the upper region lower surface.

DO 3140 REGION=1,NUMREGABOVEBPRA

• Determine the current upper region's lower surface specification.

IF (REGION.EQ.1) THEN

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 585 of 656 REGIONTOPSURF=SYSTEMTOP CURRENTSURF=SURFVALUESPEC(SYSTEMTOP)-

c REGABOVEBPRA(REGION,l)

ENDIF CURRENTSURF=SURFVALUESPEC(REGIONTOPSURF)-

c REGABOVEBPRA(REGION,l)

IF (REGION.EQ.NUMREGABOVEBPRA) "THEN REGIONBOTTOMSURF=UEFTOPSURF ELSE CURRENTSURFLABEL=O DO 3110 V=l, (SN-1)

IF (SURFTYPESPEC(V) .EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 3110 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN REGIQNBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+1 ELSE REGIONBOTTOMSURF=CURRENTSURFLABEL ENDIF ENDIF

• Write the cell specification for the BPR universe upper region.

IF (REGION.EQ.1) THEN WRITE (30, 3120) LN, FRUREGIONML(COLUMN,ROW,REGION),

c (-1*REGABOVEBPRA(REGION,2>>,

c REGIONBOTTOMSURF, BPRAUNIV(COLUMN,ROW), REGION 3120 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4, c , IMP:N=l U=',I3,' $ Upper core region ',12)

LN=LN+1 REGIONTOPSURF=REGIONBOTTOMSURF ELSE WRITE(30,3130) LN, FRUREGIONML(COLUMN,ROW,REGION),

c (-1*REGABOVEBPRA(REGION,2>>, (-l*REGIONTOPSURF),

c REGIONBOTTOMSURF, BPRAUNIV(COLUMN,ROW), REGION 3130 FORMAT(T1,I4,T6,I4,Tl1,FB.5,T25,I4,lX,I4, c , IMP:N=l U=',I3,' $ Upper core region ',12)

LN=LN+1 REGIONTOPSURF=REGIONBOTTOMSURF ENDIF 3140 CONTINUE DO 3190 SECT=l,NUMOFGTAXS(DESNUM(COLUMN,ROW>>

• Define the GT section top surface.

CURRENTSURF=GTAXDATA(DESNUM(COLUMN,ROW),3,SECT)

IF (CURRENTSURF.GT.SURFVALUESPEC(UEFTOPSURF>> THEN CURRENTSURF=SURFVALUESPEC(UEFTOPSURF)

ENDIF CURRENTSURFLABEL=O DO 3150 V=l, (SN-1)

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-021 0-00006 REV 00 Attachment I, Page 586 of 656 IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001)) THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 3150 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN GTSECTTOPSURF(SECT)=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE GTSECTTOPSURF (SECT) =CURRENTSURFLABEL ENDIF

• Define the GT section bottom surface.

CURRENTSURF=GTAXDATA(DESNUM(COLUMN,ROW),4,SECT)

CURRENTSURFLABEL=O DO 3160 V=l, (SN-1)

IF (SURFTYPESPEC(V) .EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 3160 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN GTSECTBOTSURF(SECT)=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+1 ELSE GTSECTBOTSURF (SECT) =CURRENTSURFLABEL ENDIF

• Define the GT section outer radius surface.

CURRENTSURF=GTAXDATA(DESNUM(COLUMN,ROW),2,SECT)

CURRENTSURFLABEL=O DO 3170 V-1, (SN-1)

IF (SURFTYPESPEC(V) .EQ.'CZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 3170 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN GTSECTORSURF(SECT)=SN SURFTYPESPEC(SN)='CZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE GTSECTORSURF(SECT)=CURRENTSURFLABEL ENDIF

• Define the GT.section inner radius surface.

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 587 of 656 CURRENTSURF=GTAXDATA(DESNUM(COLUMN,ROW),I,SECT)

CURRENTSURFLABEL=O DO 3180 V=I, (SN-l)

IF (SURFTYPESPEC(V).EQ.'CZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 3180 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN GTSECTIRSURF(SECT)=SN SURFTYPESPEC(SN)='CZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+l ELSE GTSECTIRSURF(SECT)=CURRENTSURFLABEL ENDIF 3190 CONTINUE

• Write the GT material cell DO 3320 SECT=I,NUMOFGTAXS(DESNUM(COLUMN,ROW>>

• Determine if the GT material specification has

• previously been defined. If it has been previously defined, determine

• the material specification label.

CLADMLUNIQUE=.TRUE.

LEAVE=.FALSE.

IF <<COLUMN.NE.l).AND. (ROW.NE.l>> THEN DO 3210 RO=I, (ROW-I)

DO 3200 CO=I,50 IF <<DESNUM(CO,RO).NE.O).AND.

c (BANKNUM(CO,RO).EQ.O>> THEN IF (GTAXMAT(DESNUM(COLUMN,ROW),SECT).EQ.

c GTMAT(DESNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTAXML(COLUMN,ROW, SECT)=GTML (CO, RO)

EXIT ELSEIF (GTAXMAT(DESNUM(COLUMN,ROW) ,SECT) .EQ.

c GTAXMAT(DESNUM(CO,RO),SECT>> THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTAXML(COLUMN,ROW, SECT) =GTAXML(CO, RO, SECT)

EXIT ENDIF ENDIF 3200 CONTINUE IF (LEAVE.EQ .* TRUE.) THEN EXIT ENDIF 3210 CONTINUE IF (LEAVE.EQ .. FALSE.) THEN DO 3230 RO=ROW,ROW DO 3220 CO=I, (COLUMN-I)

IF <<DESNUM(CO,RO) .NE.O) .AND.

Waste Package Operati~ns Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-021 0-00006 REV 00 Attachment I, Page 588 of 656 c (BANKNUM(CO,RO).EQ.O>> THEN IF (GTAXMAT(DESNUM(COLUMN,ROW),SECT).EQ.

c GTMAT(DESNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTAXML(COLUMN,ROW,SECT)=GTML(CO,RO)

EXIT ELSEIF (GTAXMAT(DESNUM(COLUMN,ROW),SECT).EQ.

c GTAXMAT(DESNUM(CO,RO),SECT>> THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTAXML (COLUMN, ROW, SECT) =GTAXML (CO, RO, SECT)

EXIT ENDIF ENDIF 3220 CONTINUE IF (LEAVE.EQ .* TRUE.) THEN EXIT ENDIF 3230 CONTINUE ENDIF ELSEIF <<COLUMN.EQ.l).AND. (ROW.NE.l>> THEN DO 3250 RO=l, (ROW-l)

DO 3240 CO=l,50 IF <<DESNUM(CO,RO).NE.O) .AND.

c (BANKNUM(CO,RO) .EQ.O>> THEN IF (GTAXMAT(DESNUM(COLUMN,ROW),SECT).EQ.

c GTMAT(DESNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTAXML (COLUMN, ROW, SECT) =GTML (CO, RO)

EXIT ELSEIF (GTAXMAT(DESNUM(COLUMN,ROW),SECT) .EQ.

c GTAXMAT(DESNUM(CO,RO),SECT>> THEN .

CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTAXML (COLUMN, ROW, SECT)=GTAXML(CO,RO, SECT)

EXIT ENDIF ENDIF 3240 CONTINUE IF '(LEAVE.EQ .* TRUE.) THEN EXIT ENDIF 3250 CONTINUE ELSEIF <<ROW.EQ.l).AND. (COLUMN.NE.l) THEN DO 3270 RO=l,l DO 3260 CO=l, (COLUMN-l)

IF <<DESNUM(CO,RO).NE.O).AND.

c CBANKNUMCCO,RO) .EQ.O>> THEN IF (GTAXMATCDESNUM(COLUMN,ROW),SECT).EQ.

c GTMAT(DESNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 589 of 656 GTAXML(COLUMN,ROW,SECT)=GTML(CO,RO)

EXIT ELSEIF (GTAXMAT(DESNUM(COLUMN,ROW),SECT) .EQ.

c GTAXMAT(DESNUM(CO,RO),SECT>> THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTAXML(COLUMN, ROW, SECT) =GTAXML(CO, RO, SECT)

EXIT ENDIF ENDIF 3260 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 3270 CONTINUE ENDIF IF (CLADMLUNIQUE.EQ *. TRUE.) THEN GTAXML(COLUMN, ROW, SECT)=MN

• Check Guide Tube Material IF (GTAXMAT(DESNUM(COLUMN,ROW),SEC~).EQ.1) THEN DO 3280 C=1,2 IF (C.EQ.1) THEN WRITE (200, 9300) GTAXML (COLUMN, ROW, SECT)

ELSEIF (C.EQ.2) THEN WRITE (200, 9301)

WRITE(200,7000)

WRITE(200,7001)

WRITE(200,7002)

WRITE (200, 9302)

WRITE (200, 7003)

WRITE~200,7004)

WRITE(200,700S)

WRITE(200,9303)

WRITE(200,9304)

ENDIF 3280 CONTINUE ELSEIF (GTAXMAT(DESNUM(COLUMN,ROW),SECT) c .EQ.2) THEN .

DO 3290 C=1,2 IF (C.EQ.1) THEN WRITE(200,930S) GTAXML(COLUMN, ROW, SECT)

ELSEIF (C.EQ.2) THEN WRITE(200,9306)

WRITE (200, 9307)

WRITE (200, 9308)

WRITE(200,9309)

WRITE (200, 9310)

WRITE(200,7006)

WRITE(200,7007)

WRITE(200,7008)

WRITE (200,9311)

WRITE(200,9312)

WRITE(200,7009)

WRITE(200,7010)

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-021 0-00006 REV 00 Attachment I, Page 590 of 656 WRITE(200,7011)

WRITE(200,9313)

WRITE(200,7012)

WRITE(200,7013)

WRITE (200,7014)

WRITE(200,701S)

ENDIF 3290 CONTINUE ELSEIF (GTAXMAT(DESNUM(COLUMN,ROW),SECT) c .EQ.3) THEN DO 3300 C=1,2 IF (C.EQ.l) THEN WRITE(200,9314) GTAXML (COLUMN, ROW, SECT)

ELSEIF (C.EQ.2) THEN WRITE(200,931S)

WRITE(200,9316)

WRITE(200,9317)

WRITE(200,9318)

WRITE(200,7016)

WRITE(200,7017)

WRITE(200,7018)

WRITE(200,9319)

WRITE (200, 9320)

WRITE(200,7019)

WRITE(200,7020)

WRITE(200,7021)

WRITE(200,9321)

WRITE(200,7022)

WRITE (200, 7023)

WRITE (200, 7024)

WRITE(200,7025)

WRITE(200,9322)

WRITE(200,9323)

WRITE(200,9324)

WRITE(200,9325)

WRITE(200,9326)

WRITE(200,9327)

WRITE(200,7026)

WRITE(200,9328)

WRITE (200, 9329)

WRITE(200,9330)

ENDIF 3300 CONTINUE ENDIF MN=MN+l ENDIF IF (GTAXMAT(DESNUM(COLUMN,ROW),SECT).EQ.l) THEN CLADRHO=6.56 ELSEIF (GTAXMAT(DESNUM(COLUMN,ROW),SECT).EQ.2) THEN CLADRHO=7.90 ELSEIF (GTAXMAT(DESNUM(COLUMN,ROW),SECT).EQ.3) THEN ClJ\.DRHO=8.19 ENDIF WRITE(30,3310) LN, GTAXML(COLUMN,ROW,SECT), (-l*CLADRHO),

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 591 of 656 c GTSECTIRSURF(SECT),

c (-1*GTSECTORSURF(SECT>>, (-1*GTSECTTOPSURF(SECT>>,

c GTSECTBOTSURF(SECT), BPRAUNIV(COLUMN,ROW) 3310 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,1X,I4,1X,I4,1X,I4, c , IMP:N=1 U=',I4,' $ Guide tube')

LN=LN+1 3320 CONTINUE

• Loop through the spacer and moderator regions along the axial

• length of the GT (from top to bottom).

SPACHEIGHT=O.O DO 3330 SPN=1,NUMOFSPACERS(DESNUM(COLUMN,ROW>>

SPACHEIGHT=SPACHEIGHT+SPACERHEIGHT(DESNUM(COLUMN,ROW),SPN) 3330 CONTINUE DO 3520 SPN=1,NUMOFSPACERS(DESNUM{COLUMN,ROW>>

• Define the homogenized spacer region bounding surfaces.

IF (SPN.EQ.1) THEN SPACERTOPSURF=UEFBOTTOMSURF CURRENTSURF=SURFVALUESPEC(UEFBOTTOMSURF)-

c SPACERHEIGHT(DESNUM(COLUMN,ROW),SPN)

CURRENTSURFLABEL=O DO 3340 V=1, (SN-1)

IF (SURFTYPESPEC(V) .EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF

. 3340 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN SPACERBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE SPACERBOTTOMSURF=CURRENTSURFLABEL ENDIF WATERREGIONTOPSURF=SPACERBOTTOMSURF CURRENTSURF=SPACERDIST(DESNUM(COLUMN,ROW), (SPN+1>>

CURRENTSURFLABEL=O DO 3350 V=1, (SN-1)

IF (SURFTYPESPEC(V).EQ. 'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF)~LT. ( 0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 3350 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN WATERREGIONBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE WATERREGIONBOTTOMSURF=CURRENTSURFLABEL

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 592 of 656 ENDIF ELSEIF ((SPN.NE.l).AND. (SPN.NE.

c NUMOFSPACERS(DESNUM(COLUMN,ROW>>>> THEN SPACERTOPSURF=WATERREGIONBOTTOMSURF CURRENTSURF=SURFVALUESPEC(WATERREGIONBOTTOMSURF)-

c SPACERHEIGHT(DESNUM(COLUMN,ROW),SPN)

CURRENTSURFLABEL=O DO 3360 V=l, (SN-l)

IF (SURFTYPESPEC(V) .EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT.(O.OOOl>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 3360 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN SPACERBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+l ELSE SPACERBOTTOMSURF=CURRENTSURFLABEL ENDIF WATERREGIONTOPSURF=SPACERBOTTOMSURF CURRENTSURF=SPACERDIST(DESNUM(COLUMN,ROW), (SPN+l>>

CURRENTSURFLABEL=O DO 3370 V=l, (SN-l)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 3370 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN WATERREGIONBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+l ELSE WATERREGIONBOTTOMSURF=CURRENTSURFLABEL ENDIF ELSEIF (SPN.EQ.NUMOFSPACERS(DESNUM(COLUMN,ROW>>) THEN SPACERTOPSURF=WATERREGIONBOTTOMSURF CURRENTSURF=SURFVALUESPEC(WATERREGIONBOTTOMSURF)-

c SPACERHEIGHT(DESNUM(COLUMN,ROW),SPN)

CURRENTSURFLABEL=O DO 3380 V=l, (SN-l)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 593 of 656 3380 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN SPACERBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+l ELSE SPACERBOTTOMSURF=CURRENTSURFLABEL ENDIF WATERREGIONTOPSURF=SPACERBOTTOMSURF WATERREGIONBOTTOMSURF=NODEBOTTOMSURF ENDIF

• Write the current homogenized spacer region cell in this GT universe.

DO 3510 SECT=l,NUMOFGTAXS(DESNUM(COLUMN,ROW>>

IF <<SURFVALUESPEC(GTSECTTOPSURF(SECT>>.GT.

c SURFVALUESPEC(SPACERTOPSURF>>.AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>>.LT.

c SURFVALUESPEC(SPACERBOTTOMSURF>>) THEN .

WRITE(30,3390) LN, HOMOSPACMLNUM(DESNUM(COLUMN,ROW),SPN),

c (-l*HOMOSPACERDEN(DESNUM(COLUMN,ROW),SPN>>,

c GTSECTORSURF(SECT),

c (-l*SPACERTOPSURF), SPACERBOTTOMSURF, BPRAUNIV(COLUMN,ROW),

c SPN 3390 FORMAT(Tl,I4,T6,I4,Tll,G14.8,T2S,I4,lX,I4,lX,I4, c , IMP:N=l U=',14, c $ Homogenized region for spacer ',12)

LN=LN+l ELSEIF <<SURFVALUESPEC(GTSECTTOPSURF(SECT>>.EQ.

c SURFVALUESPEC(SPACERTOPSURF>> .AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>>.LT.

c SURFVALUESPEC(SPACERBOTTOMSURF>>) THEN WRITE(30,3400) LN, HOMOSPACMLNUM(DESNUM(COLUMN,ROW),SPN),

c (-l*HOMOSPACERDEN(DESNUM(COLUMN,ROW),SPN>>,

c GTSECTORSURF(SECT),

c (-l*SPACERTOPSURF), SPACERBOTTOMSURF, BPRAUNIV(COLUMN,ROW),

c SPN 3400 FORMAT(Tl,14,T6,I4,Tll,G14.8,T2S,I4,lX,I4,lX,I4, c , IMP:N=l U=',14, c , $ Homogenized region for spacer ',12)

LN=LN+l ELSEIF <<SURFVALUESPEC(GTSECTTOPSURF(SECT>>.EQ.

c SURFVALUESPEC(SPACERTOPSURF>> .AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>>.EQ.

c SURFVALUESPEC(SPACERBOTTOMSURF>>) THEN WRITE(30,34l0) LN, HOMOSPACMLNUM(DESNUM(COLUMN,ROW),SPN),

c (-1 *HOMOSPACERDEN (DESNUM (COLUMN, ROW) , SPN)") ,

c GTSECTORSURF(SECT),

c (-l*SPACERTOPSURF), SPACERBOTTOMSURF, BPRAUN1V(COLUMN,ROW),

c SPN 3410 FORMAT(Tl,I4,T6,14,Tll,G14.8,T2S,14,lX,14,lX,I4, c , IMP:N=l U=',I4, c $ Homogenized region for spacer ',12)

LN=LN+l ELSEIF <<SURFVALUESPEC(GTSECTTOPSURF(SECT>>.GT.

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-021 0-00006 REV 00 Attachment I, Page 594 of656 c SURFVALUESPEC(SPACERTOPSURF>> .AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>> .EQ.

c SURFVALUESPEC(SPACERBOTTOMSURF>>) THEN WR1TE(30,3420)LN, HOMOSPACMLNUM(DESNUM(COLUMN,ROW),SPN),

c (-l*HOMOSPACERDEN(DESNUM(COLUMN,ROW),SPN>>,

c GTSECTORSURF(SECT),

c (-l*SPACERTOPSURF), SPACERBOTTOMSURF, BPRAUN1V(COLUMN,ROW),

c SPN 3420 FORMAT(Tl,14,T6,14,Tll,G14.8,T25,14,lX,I4,lX,I4, c , IMP:N=l U=',14, c $ Homogenized region for spacer ',12)

LN=LN+l ELSE1F <<SURFVALUESPEC(GTSECTTOPSURF(SECT>> .GT.

c SURFVALUESPEC(SPACERTOPSURF>>.AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>>.GT.

c SURFVALUESPEC(SPACERBOTTOMSURF>>.AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>>.LT.

c SURFVALUESPEC(SPACERTOPSURF>>) THEN WRITE (30, 3430) LN, HOMOSPACMLNUM(DESNUM(COLUMN,ROW),SPN),

c (-l*HOMOSPACERDEN(DESNUM(COLUMN,ROW),SPN>>,

c GTSECTORSURF(SECT),

c (-l*SPACERTOPSURF), GTSECTBOTSURF(SECT),

c BPRAUN1V(COLUMN,ROW), SPN 3430 FORMAT(Tl,14,T6,I4,Tll,G14.8,T25,14,lX,I4,lX,I4, c , IMP:N=l U=',I4, c $ Homogenized region for spacer ',12)

"LN=LN+l ELSEIF <<SURFVALUESPEC(GTSECTTOPSURF(SECT>>.LT.

c SURFVALUESPEC(SPACERTOPSURF>>.AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>>).LT.

c SURFVALUESPEC(SPACERBOTTOMSURF).AND.

c (SURFVALUESPEC(GTSECTTOPSURF(SECT>>.GT.

c SURFVALUESPEC(SPACERBOTTOMSURF>>) THEN WRITE (30, 3440) LN, HOMOSPACMLNUM(DESNUM(COLUMN,ROW),SPN),

c (-1*HOMOSPACERDEN(DESNUM(COLUMN,ROW)7 SPN >>,

c GTSECTORSURF(SECT),

c (-l*GTSECTTOPSURF(SECT>>, SPACERBOTTOMSURF, c BPRAUNIV(COLUMN,ROW), SPN 3440 FORMAT(Tl,I4,T6,14,Tll,G14.8,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I4, c , $ Homogenized region for spacer ',12)

LN=LN+l ENDIF

• Write the water region cell below the current homogenized spacer cell in this GT universe.

IF <<SURFVALUESPEC(GTSECTTOPSURF(SECT>> .GT.

c SURFVALUESPEC(WATERREG10NTOPSURF>>.AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>>.LT.

c SURFVALUESPEC(WATERREG10NBOTTOMSURF>>) THEN WR1TE(30,3450)* LN, BMODML, (-l*MODDENS1TY),

c GTSECTORSURF(SECT),

c (-l*WATERREGIONTOPSURF), WATERREG10NBOTTOMSURF, c BPRAUNIV(COLUMN,ROW) 3450 FORMAT(Tl,14,T6,14,Tll,FlO.8,T25,I4,lX,14,lX,I4,

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 595 of 656 c , IMP:N=l U=',I4,' $ Borated moderator region')

LN=LN+l ELSEIF <<SURFVALUESPEC(GTSECTTOPSURF(SECT>> .EQ.

c SURFVALUESPEC(WATERREGIONTOPSURF>> .AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT) .LT.

c SURFVALUESPEC(WATERREGIONBOTTOMSURF>>) THEN WRITE(30,3460) LN, BMODML, (-l*MODDENSITY),

c GTSECTORSURF(SECT),

c (-l*WATERREGIONTOPSURF), WATERREGIONBOTTOMSURF, c BPRAUNIV(COLUMN,ROW) 3460 FORMAT(Tl,I4,T6,I4,Tll,FlO.8,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I4,' $ Borated moderator region')

LN=LN+l ELSEIF <<SURFVALUESPEC(GTSECTTOPSURF(SECT>> .EQ.

c SURFVALUESPEC(WATERREGIONTOPSURF>> .AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>> .EQ.

c SURFVALUESPEC(WATERREGIONBOTTOMSURF>>) THEN WRITE(30,3470) LN, BMODML, (-l*MODDENSITY),

c GTSECTORSURF(SECT),

c (-l*WATERREGIONTOPSURF), WATERREGIONBOTTOMSURF, c BPRAUNIV(COLUMN,ROW) 3470 FORMAT(Tl,I4,T6,I4,Tll,FlO.8,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I4,' $ Borated moderator region')

LN=LN+l ELSEIF <<SURFVALUESPEC(GTSECTTOPSURF(SECT).GT.

c SURFVALUESPEC(WATERREGIONTOPSURF).AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>>.EQ.

c SURFVALUESPEC(WATERREGIONBOTTOMSURF>>)) THEN WRITE (30, 3480) LN, BMODML, (-l*MODDENSITY),

c GTSECTORSURF(SECT),

c (-l*WATERREGIONTOPSURF), WATERREGIONBOTTOMSURF, c BPRAUNIV(COLUMN,ROW) 3480 FORMAT(Tl,I4,T6,I4,Tll,FlO.8,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I4,' $ Borated moderator region')

LN=LN+l .

ELSEIF <<SURFVALUESPEC(GTSECTTOPSURF(SECT>>.GT.

c SURFVALUESPEC(WATERREGIONTOPSURF>>.AND.

c (SURFVALUESPEC (GTSECTBOTSURF(SECT>> .(;T.

c SURFVALUESPEC(WATERREGIONBOTTOMSURF).AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>>.LT.

c SURFVALUESPEC(WATERREGIONTOPSURF>>)) THEN WRITE(30,3490) LN, BMODML, (-l*MODDENSITY),

c GTSECTORSURF(SECT),

c (-l*WATERREGIONTOPSURF), GTSECTBOTSURF(SECT),

c BPRAUNIV(COLUMN,ROW) 3490 FORMAT(Tl,I4,T6,I4,Tll,FlO.8,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I4,' $ Borated moderator region')

LN=LN+l ELSEIF <<SURFVALUESPEC(GTSECTTOPSURF(SECT>>.LT.

c SURFVALUESPEC(WATERREGIONTOPSURF>>.AND.

c (SURFVALUESPEC(GTSECTBOTSURF(SECT>>.LT.

c SURFVALUESPEC(WATERREGIONBOTTOMSURF).AND.

c (SURFVALUESPEC(GTSECTTOPSURF(SECT).GT.

c SURFVALUESPEC(WATERREGIONBOTTOMSURF>>)) THEN

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: 800000000-01717-0210-00006 REV 00 Attachment I, Page 596 of656 WRITE(30,3500) LN, BMODML, (-l*MODDENSITY),

c GTSECTORSURF(SECT),

c (-l*GTSECTTOPSURF(SECT>>, WATERREGIONBOTTOMSURF, c BPRAUNIV(COLUMN,ROW) 3500 FORMAT(T1,I4,T6,I4,T1l,FlO.B,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I4,' $ Borated moderator region')

LN=LN+1 ENDIF 3510 CONTINUE 3520 CONTINUE

• Write the moderator inside of the GT in the BPR universe DO 3570 GTSECT=l,NUMOFGTAXS(DESNUM(COLUMN,ROW>>

IF <<SURFVALUESPEC(GTSECTTOPSURF(GTSECT>>.GE.

c SURFVALUESPEC(BPCLADTOPSURF>> .AND.

c (SURFVALUESPEC(GTSECTBOTSURF(GTSECT>>.LE.

c SURFVALUESPEC(BPCLADBOTTOMSURF>>) THEN

• Write the moderator cells within tpe GT in this BPR universe.

WRITE (30, 3530) LN, BMODML, (-l*MODDENSITY),

c (-l*GTSECTIRSURF(GTSECT>>,

c BPOCORSURF, (-l*BPCLADTOPSURF),

c BPCLADBOTTOMSURF, c BPRAUNIV(COLUMN,ROW) 3530 FORMAT(T1,I4,T6,I4,Tll,FB.5,T25,I4,lX,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3, c , $ Borated moderator inside guide tube')

LN=LN+l ELSEIF <<SURFVALUESPEC(GTSECTTOPSURF(GTSECT>>.GE.

c SURFVALUESPEC(BPCLADTOPSURF>>.AND.

c (SURFVALUESPEC(GTSECTBOTSURF(GTSECT>> .LT.

c SURFVALUESPEC(BPCLADTOPSURFl) .AND.

c (SURFVALUESPEC(GTSECTBOTSURF(GTSECT>> .GT.

c SURFVALUESPEC(BPCLADBOTTOMSURF>>) THEN WRITE (30, 3540) LN, BMODML, (-l*MODDENSITY),

c (-l*GTSECTIRSURF(GTSECT>>,

c BPOCORSURF, (-l*BPCLADTOPSURF),

c GTSECTBOTSURF(GTSECT),

c BPRAUNIV(COLUMN,ROW) 3540 FORMAT(Tl,I4,T6,I4,Tl1,FB.5,T25,I4,lX,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3, c $ Borated moderator inside guide tube')

LN=LN+l ELSEIF <<SURFVALUESPEC(GTSECTTOPSURF(GTSECT>>.LT.

c SURFVALUESPEC(BPCLADTOPSURF>>.AND.

c (SURFVALUESPEC(GTSECTBOTSURF(GTSECT>> .LE.

c SURFVALUESPEC(BPCLADBOTTOMSURF>>.AND.

c (SURFVALUESPEC(GTSECTTOPSURF(GTSECT>> .GT.

c SURFVALUESPEC(BPCLADBOTTOMSURF>>) THEN WRITE (30, 3550) LN, BMODML, (-l*MODDENSITY),

c (-l*GTSECTIRSURF(GTSECT>>,

c BPOCORSURF, (-l*GTSECTTOPSURF(GTSECT>>,

c BPCLADBOTTOMSURF, c BPRAUNIV(COLUMN,ROW) 3550 FORMAT(T1,I4,T6,I4,Tll,FB.5,T25,I4,lX,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 597 of656 c $ Borated moderator inside guide tube')

LN=LN+l ELSEIF <<SURFVALUESPEC(GTSECTTOPSURF(GTSECT)) .LT.

c SURFVALUESPEC(BPCLADTOPSURF)).AND.

c (SURFVALUESPEC(GTSECTBOTSURF(GTSECT)) .GT.

c SURFVALUESPEC(BPCLADBOTTOMSURF))) THEN WRITE(30,3560) LN, BMODML, (-1*MODDENSITY),

c (-1*GTSECTIRSURF(GTSECT)),

c BPOCORSURF, (-1*GTSECTTOPSURF(GTSECT)),

c GTSECTBOTSURF(GTSECT),

c BPRAUNIV(COLUMN,ROW) 3560 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,1X,I4,lX,I4,1X,I4, c , IMP:N=1 U=',I3, c $ Borated moderator inside guide tube')

LN=LN+1 ENDIF 3570 CONTINUE

• Determine the axial GT section which contains the lowest BPR axial section DO 3580 GTSECT=1,NUMOFGTAXS(DESNUM(COLU~,ROW))

IF <<SURFVALUESPEC(GTSECTBOTSURF(GTSECT)) .LT.

c SURFVALUESPEC(BPCLADBOTTOMSURF)).AND.

c (SURFVALUESPEC(GTSECTTOPSURF(GTSECT)).GE.

c SURFVALUESPEC(BPCLADBOTTOMSURF))) THEN BGT-GTSECT EXIT ENDIF 3580 CONTINUE DO 3610 GTSECT=BGT,NUMOFGTAXS(DESNUM(COLUMN,ROW))

IF (GTSECT.EQ.BGT) THEN WRITE(30,3590) LN, BMODML, (-1*MODDENSITY),

c (-1*GTSECTIRSURF(GTSECT)),

c (-1*BPCLADBOTTOMSURF),

c GTSECTBOTSURF(GTSECT),

c BPRAUNIV(COLUMN,ROW) 3590 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,1X,I4,lX,I4, c , IMP:N=1 U=',I3, c , $ Borated moderator inside guide tube')

LN=LN+l ELSE WRITE(30,3600) LN, BMODML, (-1*MODDENSITY),

c (-l*GTSECTIRSURF(GTSECT}),

c (-1*GTSECTTOPSURF(GTSECT)),

c GTSECTBOTSURF(GTSECT),

c BPRAUNIV(COLUMN,ROW) 3600 FORMAT(T1,I4,T6,I4,T11,F8.S,T25,I4,lX,I4,1X,I4, c , IMP:N=1 U=',I3, c , $ Borated moderator inside guide tube')

LN=LN+l ENDIF 3610 CONTINUE

• Define the lower end-fitting top surface.

CURRENTSURF=ENDFITHEIGHT(DESNUM(COLUMN,ROW),2)

CURRENTSURFLABEL=O

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 598 of 656 DO 3620 V=l, (SN-1) .

IF (SURFTYPESPEC(V) .EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 3620 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN BPLEFTOPSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE BPLEFTOPSURF=CURRENTSURFLABEL ENDIF

• Write the lower end-fitting cell specification for this BPR universe.

GTBOTSURF=GTSECTBOTSURF(NUMOFGTAXS(DESNUM(COLUMN,ROW>>)

IF (SURFVALUESPEC(GTBOTSURF) .GE.

c ENDFITHEIGHT(DESNUM(COLUMN,ROW),2>> THEN.

WRITE(30,3630) LN, FRLEFML(COLUMN,ROW),

c (-l*LEFMAT(DESNUM(COLUMN,ROW),l>>, (-l*BPLEFTOPSURF),

c BPRAUNIV(COLUMN,ROW) 3630 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,' IMP:N=l U=',I3, c , $ Lower end-fitting')

LN=LN+1 ELSE WRITE(30,3640) LN, FRLEFML(COLUMN,ROW),

c (-l*LEFMAT(DESNUM(COLUMN,ROW),l>>, (-l*BPLEFTOPSURF),

c GTSECTORSURF(NUMOFGTAXS(DESNUM(COLUMN,ROW>>),

c BPRAUNIV (COLUMN, ROW) 3640 FORMAT(~l,I4,T6,I4,T11,F8.5,T25,I4,lX,I4, c , IMP:N=l U=', 13, , $ Lower end-fitting')

LN=LN+1 WRITE(30,3650) LN, FRLEFML(COLUMN,ROW),

c (-l*LEFMAT(DESNUM(COLUMN,ROW),l>>,

c (-l*GTSECTBOTSURF(NUMOFGTAXS(DESNUM(COLUMN,ROW>>>>,

c (-l*GTSECTORSURF(NUMOFGTAXS(DESNUM(COLUMN,ROW>>>>,

c BPRAUNIV(COLUMN,ROW) 3650 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4, c , IMP:N=l U=',I3,' $ Lower end-fitting')

LN=LN+1 ENDIF

• Write the upper end-fitting cell specification for this BPR universe.

IF <<SURFVALUESPEC(BPCLADTOPSURF).LE.

c SURFVALUESPEC(UEFBOTTOMSURF>> .AND.

c (SURFVALUESPEC(GTSECTTOPSURF(l>>.LE.

c SURFVALUESPEC(UEFBOTTOMSURF>>) THEN WRITE (30, 3660) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF), BPRAUNIV(COLUMN,ROW) 3660 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4, c , IMP:N=l U=',I3,' $ Assembly upper end-fitting')

LN=LN+1

Waste Package Operations Engineering Calculation

Title:

eRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 599 of 656 ELSEIF <<SURFVALUESPEC(BPCLADTOPSURF) .GT.

c SURFVALUESPEC(UEFBOTTOMSURF>>.AND.

c (SURFVALUESPEC(BPCLADTOPSURF).LT.

c SURFVALUESPEC(UEFTOPSURF>>) .AND.

c (SURFVALUESPEC(GTSECTTOPSURF(l).LE.

c SURFVALUESPEC(UEFBOTTOMSURF)) THEN WRITE(30,3670) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF), BPOCORSURF, BPRAUNIV(COLUMN,ROW) 3670 FORMAT(Tl,I4,T6,I4,Tll,FS.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Assembly upper end-fitting')

LN=LN+l WRITE(30,36S0) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, BPCLADTOPSURF, c (-l*UEFTOPSURF), (-l*BPOCORSURF),

c BPRAUNIV(COLUMN,ROW) 36S0 FORMAT(Tl,I4,T6,I4,Tll,FS.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Assembly upper end-fitting')

LN=LN+l ELSEIF <<SURFVALUESPEC(BPCLADTOPSURF) .LE.

c SURFVALUESPEC(GTSECTTOPSURF(l>>)).AND.

c (SURFVALUESPEC(GTSECTTOPSURF(l>> .LT.

c SURFVALUESPEC(UEFTOPSURF>> .AND.

c (SURFVALUESPEC(GTSECTTOPSURF(l>>.GT.

c SURFVALUESPEC(UEFBOTTOMSURF>>) THEN WRITE(30,3690) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l), UEFBOTTOMSURF, c (-l*UEFTOPSURF), GTSECTORSURF(l), BPRAUNIV(COLUMN,ROW) 3690 FORMAT(Tl,I4,T6,I4,Tll,FS.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Assembly upper end-fitting')

LN=LN+l WRITE(30,3700) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, GTSECTTOPSURF(l),

c (-l*UEFTOPSURF), (-l*GTSECTORSURF(l>>,

c BPRAUNIV(COLUMN,ROW) 3700 FORMAT(T1,I4,T6,I4,Tll,FS.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Assembly upper end-fitting')

LN=LN+1 WRITE (30, 3710) LN, BMODML, c (-l*MODDENSITY), BPCLADTOPSURF, c (-l*GTSECTTOPSURF(l>>, (-l*GTSECTIRSURF(l>>,

c BPRAUNIV(COLUMN,ROW) 3710 FORMAT(T1,I4,T6,I4,Tll,FS.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Assembly upper end-fitting')

LN=LN+l ELSEIF <<SURFVALUESPEC(BPCLADTOPSURF) .LE.

c SURFVALUESPEC(GTSECTTOPSURF(l>>).AND.

c (SURFVALUESPEC(GTSECTTOPSURF(l>>.EQ.

c SURFVALUESPEC(UEFTOPSURF>>) THEN WRITE (30, 3720) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF), GTSECTORSURF(l),

c BPRAUNIV(COLUMN,ROW) 3720 FORMAT(Tl,I4,T6,I4,Tl1,FS.5,T25,I4,lX,I4,lX,I4,

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 600 of 656 c

• IMP:N=l U=',I3,' $ Assembly upper end-fitting')

LN=LN+l IF (SURFVALUESPEC(BPCLADTOPSURF) .LT.

c SURFVALUESPEC(GTSECTTOPSURF(l>>)) THEN WRITE(30,3730) LN, BMODML, c (-l*MODDENSITY), BPCLADTOPSURF, c (-l*UEFTOPSURF), (-l*GTSECTIRSURF(l),

c BPRAUNIV(COLUMN,ROW) 3730 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4, .

c

• IMP:N=l U=',I3,' $ Assembly upper end-fitting')

LN=LN+l ENDIF ELSEIF <<SURFVALUESPEC(BPCLADTOPSURF) .GT.

c SURFVALUESPEC(UEFBOTTOMSURF>>) .AND.

c (SURFVALUESPEC(BPCLADTOPSURF) .LT.

c SURFVALUESPEC(UEFTOPSURF).AND.

c (SURFVALUESPEC(GTSECTTOPSURF(l).GT.

c SURFVALUESPEC(UEFBOTTOMSURF>>.AND.

c (SURFVALUESPEC(GTSECTTOPSURF(l)).LT.

c SURFVALUESPEC(BPCLADTOPSURF>>) THEN WRITE(30,3740) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF), GTSECTORSURF(l),

c BPRAUNIV(COLUMN,ROW) 3740 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4, c

• IMP:N=l U=',I3,' $ Assembly upper end-fitting')

LN=LN+l WRITE(30,3750) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>,

c GTSECTTOPSURF(l),

c (-l*UEFTOPSURF), (-l*GTSECTORSURF(l>>),

c BPOCORSURF, BPRAUNIV (COLUMN, ROW) 3750 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4, c lX,I4,' IMP:N=l U=',I3, c $ Assembly upper end-fitting')

LN=LN+l WRITE (30, 3760) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l), BPCLADTOPSURF, c (-l*UEFTOPSURF), (-l*BPOCORSURF),

c BPRAUNIV(COLUMN,ROW) 3760 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Assembly upper end-fitting')

LN=LN+l ELSEIF <<SURFVALUESPEC(BPCLADTOPSURF) .EQ.

c SURFVALUESPEC(UEFTOPSURF>>).AND.

c (SURFVALUESPEC(GTSECTTOPSURF(l).GT.

c SURFVALUESPEC(UEFBOTTOMSURF>>) .AND.

c (SURFVALUESPEC(GTSECTTOPSURF(l).LT.

c SURFVALUESPEC(BPCLADTOPSURF)) THEN WRITE(30,3770) LN, FRUErML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l), UEFBOTTOMSURF, c (-l*UEFTOPSURF), GTSECTORSURF(l),

c BPRAUNIV(COLUMN,ROW) 3770 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4,

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 601 of 656 c , IMP:N=l U=',I3, I $ Assembly upper end-fitting')

LN=LN+l WRITE (30, 3780) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>,

c GTSECTTOPSURF(l),

c (-l*UEFTOPSURF), (-l*GTSECTORSURF(l>>,

c BPOCORSURF, BPRAUNIV (COLUMN, ROW) 3780 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,14,lX,I4, c lX,14, I IMP:N=l U=',13, c $ Assembly upper end-fitting')

LN=LN+l ELSEIF <<SURFVALUESPEC(BPCLADTOPSURF) .GT.

c SURFVALUESPEC(UEFBOTTOMSURF>> .AND.

c (SURFVALUESPEC(BPCLADTOPSURF) .LT.

c SURFVALUESPEC(UEFTOPSURF>>.AND.

c (SURFVALUESPEC(GTSECTTOPSURF(l>>.EQ.

c SURFVALUESPEC(BPCLADTOPSURF>>) THEN WRITE(30,3790) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF), GTSECTORSURF(l),

c BPRAUNIV (COLUMN, ROW) 3790 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4, c , 1MP:N=l U=',I3,' $ Assembly upper end-fitting')

LN=LN+l WRITE(30,3800) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>,

c GTSECTTOPSURF(l),

c (-l*UEFTOPSURF), (-l*GTSECTORSURF(l>>,

c BPOCORSURF, BPRAUNIV(COLUMN,ROW) 3800 FORMAT(Tl,14,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4, c lX,14,' 1MP:N=l U=',I3, c $ Assembly upper end-fitting')

LN=LN+l ENDIF ENDIF ELSE

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 602 of 656 IF (WBPRA(BANKNUM(COLUMN,ROW>> .EQ.2) THEN DO 3970 MCNPNODE=1,NUMOFBPRANODES(BANKNUM(COLUMN,ROW>>

• Define the upper end-fitting bottom surface.

CURRENTSURF=SPACERDIST(DESNUM(COLUMN,ROW),1)+

c ENDFITHEIGHT(DESNUM(COLUMN,ROW),2)

CURRENTSURFLABEL=O DO 3810 V=1, (SN-1)

IF (SURFTYPESPEC(V) .EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 3810 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN UEFBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)-CURRENTSURF SN=SN+1 ELSE UEFBOTTOMSURF=CURRENTSURFLABEL ENDIF

• Define the upper end-fitting top surface.

CURRENTSURF=SPACERDIST(DESNUM(COLUMN,ROW),1)+

c ENDFITHEIGHT(DESNUM(COLUMN,ROW),1)+

c ENDFITHEIGHT(DESNUM(COLUMN,ROW),2)

CURRENTSURFLABEL=O DO 3820 V=l, (SN-l)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V

.EXIT ENDIF ENDIF 3820 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN UEFTOPSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+1 '

ELSE UEFTOPSURF=CURRENTSURFLABEL ENDIF

• Define the inner BPR cladding inner radius.

CURRENTSURF=BPRAXDIM(BANKNUM(COLUMN,ROW),l)

CURRENTSURFLABEL=O DO 3830 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'CZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 603 of 656 ENDIF ENDIF 3830 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN BPICIRSURF=SN SURFTYPESPEC(SN)='CZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+l ELSE BPIC~RSURF=CURRENTSURFLABEL ENDIF

• Define the inner BPR cladding outer radius.

CURRENTSURF=BPRAXDIM(BANKNUM(COLUMN,ROW),2)

CURRENTSURFLABEL=O DO 3840 V=l, (SN-l)

IF (SURFTYPESPEC(V).EQ.'CZ') THEN IF (ABS (SURFVALUESPEC (V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 3840 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN BPICORSURF=SN SURFTYPESPEC(SN)='CZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+l ELSE BPICORSURF=CURRENTSURFLABEL ENDIF

• Define the BP absorber inner radius.

CURRENTSURF=BPRAXDIM(BANKNUM(COLUMN,ROW),3)

CURRENTSURFLABEL=O DO 3850 V=l, (SN-l)

IF (SURFTYPESPEC(V).EQ.'CZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT.(O.OOOl>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 3850 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN BPIRSURF=SN SURFTYPESPEC(SN)='CZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+l ELSE BPI RSURF=CURRENTSURFLABEL ENDIF

• Define the BP absorber outer. radius.

CURRENTSURF=BPRAXDIM(BANKNUM(COLUMN,ROW),4)

CURRENTSURFLABEL=O DO 3860 V=l, (SN-l)

IF (SURFTYPESPEC(V) .EQ.'CZ') THEN

Waste Package Opera~ions Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O 1717-0210-00006 REV 00 Attachment I, Page 604 of 656 IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001) THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 3860 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN BPORSURF=SN SURFTYPESPEC(SN)='CZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+l ELSE BPORSURF=CURRENTSURFLABEL ENDIF

• Define the outer BPR cladding inner radius ..

CURRENTSURF=BPRAXDIM(BANKNUM(COLUMN,ROW),S)

CURRENTSURFLABEL=O DO 3870 V=l, (SN-1)

IF (SURFTYPESPEC(V) .EQ.'CZ') THEN IF (ABS(SURFVALUESPEC{V)-CURRENTSURF) .LT. (0.0001>>) THEN CURRENTSURFLABEL=V i EXIT ENDIF ENDIF 3870 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN BPOCIRSURF=SN SURFTYPESPEC(SN)='CZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+l ELSE BPOCIRSURF=CURRENTSURFLABEL ENDIF

• Define the outer BPR cladding outer radius.

CURRENTSURF=BPRAXDIM(BANKNUM(COLUMN,ROW),6)

CURRENTSURFLABEL=O DO 3880 V=l, (SN-I)

IF (SURFTYPESPEC(V) .EQ.'CZ') THEN IF (ABS(SURFVALUESPEC{V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 3880 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN BPOCORSURF=SN SURFTYPESPEC(SN)='CZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+l ELSE BPOCORSURF=CURRENTSURFLABEL ENDIF

• Define the BP node bounding surfaces.

IF (MCNPNODE.EQ.l) THEN

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 605 of 656 TOTBPHEIGHT=O.O DO 3890 Z=I,NUMOFBPRANODES(BANKNUM(COLUMN,ROW>>

TOTBPHEIGHT=TOTBPHEIGHT+

c MCNPBPRAHEIGHT(BANKNUM(COLUMN,ROW),Z) 3890 CONTINUE CURRENTSURF=BOTBPNODEHEIGHT(BANKNUM(COLUMN,ROW>>+

c TOTBPHEIGHT IF (CURRENTSURF.GE.SURFVALUESPEC(UEFTOPSURF>> THEN CURRENTSURF=SURFVALUESPEC(UEFTOPSURF)

ENDIF CURRENTSURFLABEL=O DO 3900 V=I, (SN-l)

IF (SURFTYPESPEC(V) .EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL-V EXIT ENDIF ENDIF 3900 CONTINUE .

IF (CURRENTSURFLABEL.EQ.O) THEN TOPBPNODETOPSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+l ELSE TOPBPNODETOPSURF=CURRENTSURFLABEL ENDIF BPNODETOPSURF=TOPBPNODETOPSURF CURRENTSURF=SURFVALUESPEC(BPNODETOPSURF)-

c MCNPBPRAHEIGHT(BANKNUM(COLUMN,ROW),MCNPNODE)

IF (CURRENTSURF.GE.SURFVALUESPEC(UEFTOPSURF>> THEN CURRENTSURF=SURFVALUESPEC(UEFTOPSURF)

ENDIF CURRENTSURFLABEL=0 DO 3910 V-I, (SN-l)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 3910 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN BPNODEBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)-CURRENTSURF SN=SN+l ELSE BPNODEBOTTOMSURF=CURRENTSURFLABEL ENDIF ELSEIF (MCNPNODE.NE.l) THEN BPNODETOPSURF=BPNODEBOTTOMSURF CURRENTSURF=SURFVALUESPEC(BPNODETOPSURF)-

c MCNPBPRAHEIGHT(BANKNUM(COLUMN,ROW),MCNPNODE)

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 606 of 656 IF (CURRENTSURF.GE.SURFVALUESPEC(UEFTOPSURF>> THEN CURRENTSURF=SURFVALUESPEC(UEFTOPSURF)

ENDIF CURRENTSURFLABEL=O DO 3930 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001) THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 3930 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN BPNODEBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE BPNODEBOTTOMSURF=CURRENTSURFLABEL ENDIF ENDIF IF (SURFVALUESPEC(BPNODEBOTTOMSURF).LT.

c SURFVALUESPEC(UEFTOPSURF>> THEN

• Write the BP node cells in this BPR universe.

IF <<BPRABSNODE(BANKNUM(COLUMN,ROW),MCNPNODE).EQ. 'Y') .AND.

c (BPNONABSMAT(BANKNUM(COLUMN,ROW>>).EQ.l>>) THEN WRITE(30,3940) LN, BPNODEML, c (-1*AL203DENS1TY(BANKNUM(COLUMN,ROW))~ (-l*BPORSURF),

c BP1RSURF, (-l*BPNODETOPSURF), BPNODEBOTTOMSURF, c BPRAUN1V(COLUMN,ROW), MCNPNODE 3940 FORMAT(T1,14,T6,14,TII,GI4.6,T25,14,lX,14,IX,14, c IX,14,' 1MP:N=1 U=',13,' $ Burnable poison node ',12)

LN=LN+I BPNODEML=BPNODEML+1 ELSEIF <<BPRABSNODE(BANKNUM(COLUMN,ROW),MCNPNODE) .EQ.'Y').AND.

c (BPNONABSMAT(BANKNUM(COLUMN,ROW>>.NE.1>>) THEN WR1TE(30,3950) LN, BPNODEML, c (-l*NONBPMATDATA(BANKNUM(COLUMN,ROW),l>>), (-l*BPORSURF),

c BP1RSURF, (-l*BPNODETOPSURF), BPNODEBOTTOMSURF, c BPRAUN1V(COLUMN,ROW), MCNPNODE 3950 FORMAT(TI,14,T6,14,T11,G14.6,T25,14,lX,14,lX,I4, c IX,14,' 1MP:N=l U=',13,' $ Burnable poison node ',12)

LN=LN+I BPNODEML=BPNODEML+I ELSE WR1TE(30,3960)LN, BPNODEML, c (-l*BPDENTOGO(COLUMN,ROW,MCNPNODE>>), (-l*BPORSURF),

c BP1RSURF, (-l*BPNODETOPSURF), BPNODEBOTTOMSURF, c BPRAUN1V(COLUMN,ROW), MCNPNODE 3960 FORMAT(Tl,14,T6,14,Tll,G14.6,T25,14,lX,14,lX,14, c IX,14,' 1MP:N=l U=',13,' $ Burnable poison node ',12)

LN=LN+I BPNODEML=BPNODEML+1 ENDIF

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 607 of 656 ENDIF 3970 CONTINUE

• Define the BPR cladding top surface.

CURRENTSURF=TOTBPHEIGHT+

c BOTBPNODEHEIGHT(BANKNU~(COLUMN,ROW>>+

c BPRPLEN(BANKNUM(COLUMN,ROW),l)

IF (CURRENTSURF.GE.SURFVALUESPEC(UEFTOPSURF>> THEN CURRENTSURF=SURFVALUESPEC(UEFTOPSURF)

ENDIF CURRENTSURFLABEL=O DO 3980 V=l, (SN-l)

IF (SURFTYPESPEC(V) .EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 3980 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN BPCLADTOPSURF=SN SURFTYPESPEC(SN)='PZ' SURFYALUESPEC(SN)=CURRENTSURF SN=SN+l ELSE BPCLADTOPSURF=CURRENTSURFLABEL ENDIF

• Define the BPR cladding bottom surface.

CURRENTSURF=BOTBPNODEHEIGHT(BANKNUM(COLUMN,ROW>>-

c BPRPLEN(BANKNUM(COLUMN,ROW),2)

CURRENTSURFLABEL~O DO 3990 V=l, (SN-l)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 3990 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN BPCLADBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+l ELSE BPCLADBOTTOMSURF=CURRENTSURFLABEL ENDIF

• Write the inner BP-to-cladding gap cell in this BPR universe.

WRITE(30,4000) LN, (-l*BPIRSURF), BPICORSURF, c (-l*TOPBPNODETOPSURF),

c BPNODEBOTTOMSURF, BPRAUNIV(COLUMN,ROW) 4000 FORMAT(Tl,I4,T6, 'O',T25,I4,lX,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3, c , $ Burnable poison-to-cladding gap')

LN=LN+l

Waste Package Operations Engineering Cal~ulation

Title:

eRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 608 of 656

• Write the outer BP-to-cladding gap cell in this BPR universe.

WRITE(30,40l0) LN, (-l*BPOCIRSURF), BPORSURF, c (-l*TOPBPNODETOPSURF),

c BPNODEBOTTOMSURF, BPRAUNIV(COLUMN,ROW) 4010 FORMAT (Tl, 14, T6, '0' , T25, 14, IX, 14, IX, 14, IX, I4, c , IMP:N=l U=',I3, c $ Burnable poison-to-cladding gap')

LN=LN+l

• Write the annular gap cell in this BPR universe.

WRITE (30,4020) LN, (-1 *BPICIRSURF),

c (-l*TOPBPNODETOPSURF),

c BPNODEBOTTOMSURF, BPRAUNIV(COLUMN,ROW) 4020 FORMAT (TI, 14, T6, '0' , T25, 14, IX, 14, IX, 14, c , IMP:N=l U=',I3, c $ Burnable poison-to-cladding gap')

LN=LN+l

• Write the BPR cladding cell in this BPR universe.

• Determine if the BPR cladding material specification has

• previously been defined. If it has been previously defined, determine

• the cladding material specification label ..

CLADMLUNIQUE=.TRUE.

LEAVE=.FALSE.

IF <<COLUMN.NE.l).AND. (ROW.NE.l>> THEN DO 4040 RO=I, (ROW-I)

DO 4030 CO=l,50 IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKDES(BANKNUM(CO,RO>>.EQ.'BPRA ') THEN IF (BPRCLADMAT(BANKNUM(COLUMN,ROW>> .EQ.

c BPRCLADMAT(BANKNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPCLADML (COLUMN, ROW) =BPCLADML(CO, RO)

EXIT ENDIF ENDIF ENDIF 4030 CONTINUE IF (LEAVE.EQ .* TRUE.) THEN EXIT ENDIF 4040 CONTINUE IF (LEAVE.EQ *. FALSE.) THEN DO 4060 RO=ROW,ROW DO 4050 CO=l, (COLUMN-I)

IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKDES(BANKNUM(CO,RO>> .EQ.'BPRA ') THEN IF (BPRCLADMAT(BANKNUM(COLUMN,ROW>> .EQ.

c BPRCLADMAT(BANKNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPCLADML(COLUMN, ROW)=BPCLADML (CO, RO)

EXIT ENDIF ENDIF

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 609 of 656 ENDIF 4050 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 4060 CONTINUE ENDIF ELSEIF <<COLUMN.EQ.1) .AND.(ROW.NE.1>> THEN DO 4080 RO=1, (ROW-I)

DO 4070 CO=1,SO IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKDES(BANKNUM(CO,RO>>.EQ.'BPRA ') THEN IF (BPRCLADMAT(BANKNUM(COLUMN,ROW>> .EQ.

c BPRCLADMAT(BANKNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPCLADML(COLUMN, ROW)=BPCLADML (CO, RO)

EXIT ENDIF ENDIF ENDIF 4070 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 4080 CONTINUE ELSEIF <<ROW.EQ.l).AND. (COLUMN.NE.l>> THEN DO 4100 RO=l,l DO 4090 CO=l, (COLUMN-I)

IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKDES(BANKNUM(CO,RO>>.NE.'BPRA ') THEN IF (BPRCLADMAT(BANKNUM(COLUMN,ROW>>.EQ.

c BPRCLADMAT(BANKNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPCLADML(COLUMN,ROW)=BPCLADML(CO,RO)

EXIT ENDIF ENDIF ENDIF 4090 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 4100 CONTINUE ENDIF IF (CLADMLUNIQUE.EQ *. TRUE.) THEN BPCLADML (COLUMN, ROW) =MN

• Check BPR Cladding Material IF (BPRCLADMAT(BANKNUM(COLUMN,ROW>>.EQ.1) THEN DO 4110 C=1,2 IF (C.EQ.l) THEN WRITE(200,9300) BPCLADML (COLUMN, ROW)

ELSEIF (C.EQ.2) THEN

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 610 of 656 WRITE(200,9301)

WRITE(200,7000)

WRITE (200" 7001)

WRITE(200,7002)

WRITE(200,9302)

WRITE(200,7003)

WRITE(200,7004)

WRITE(200,7005)

WRITE (200, 9303)

WRITE(200,9304)

ENDIF 4110 CONTINUE ELSEIF (BPRCLADMAT(BANKNUM(COLUMN,ROW>>

c .EQ.2) THEN DO 4120 C=1,2 IF (C.EQ.1) THEN WRITE(200,9305) BPCLADML (COLUMN, ROW)

ELSEIF (C.EQ.2) THEN WRITE(200,9306)

WRITE(200,9307)

WRITE (200, 9308)

WRITE (200,9309)

WRITE(200,9310)

WRITE (200, 7006)

WRITE(200,7007)

WRITE(200,7008)

WRITE(200,9311)

WRITE(200,9312)

WRITE(200,7009)

WRITE(200,7010)

WRITE(200,7011)

WRITE(200,9313)

WRITE(200,7012)

WRITE(200,7013)

WRITE(200,7014)

WRITE(200,7015)

ENDIF 4120 CONTINUE ELSEIF (BPRCLADMAT(BANKNUM(COLUMN,ROW>>

c .EQ.3) THEN DO 4130 C=1,2 IF (C.EQ.1) THEN WRITE(200,9314) BPCLADML (COLUMN, ROW)

ELSEIF (C.EQ.2) THEN WRITE(200,9315)

WRITE (200, 9316)

WRITE (200, 9317)

WRITE (200, 9318)

WRITE (200, 7016)

WRITE (200, 7017)

WRITE(200,7018)

WRITE(200,9319)

WRITE(200,9320)

WRITE (200, 7019)

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: 800000000-01717-0210-00006 REV 00 Attachment I, Page 611 of 656 WRITE(200,7020)

WRITE(200,7021)

WRITE (200, 9321)

WRITE(200,7022)

WRITE(200,7023)

WRITE(200,7024)

WRITE(200,7025)

WRITE(200,9322)

WRITE(200,9323)

WRITE (200, 9324)

WRITE (200, 9325)

WRITE(200,9326)

WRITE(200,9327)

WRITE(200,7026)

WRITE(200,9328)

WRITE(200,9329)

WRITE (200, 9330)

ENDIF 4130 CONTINUE ENDIF MN=MN+1 ENDIF IF (BPRCLADMAT(BANKNUM(COLUMN,ROW>>.EQ.1) THEN CLADRHO=6.56 ELSEIF (BPRCLADMAT(BANKNUM(COLUMN,ROW>>.EQ.2) THEN CLADRHO=7.90 ELSEIF (BPRCLADMAT(BANKNUM(COLUMN,ROW>>.EQ.3) THEN CLADRHO=8.19 ENDIF WRITE(30,4140) LN, BPCLADML(COLUMN,ROW), (-1*CLADRHO),

c BPOCIRSURF, c (-1*BPOCORSURF), (-l*BPCLADTOPSURF), BPCLADBOTTOMSURF, c BPRAUNIV(COLUMN,ROW) 4140 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,1X,I4,1X,I4,lX,I4, c , IMP:N=l U=',I3,' $ BPR cladding')

LN=LN+l WRITE(30,4ls0) LN, BPCLADML(COLUMN,ROW), (-1*CLADRHO),

c BPICIRSURF, c (-l*BPICORSURF), (-l*TOPBPNODETOPSURF), BPNODEBOTTOMSURF, c BPRAUNIV(COLUMN,ROW) 4150 FORMAT(Tl,I4,T6,I4,Tll,F8.s,T25,I4,1X,I4,1X,I4,1X,I4, c , IMP:N=1 U=',I3,' $ BPR cladding')

LN=LN+l

• Write the BPR upper plenum cell in this BPR universe.

• Determine if the BPR upper plenum material specification has

• previously ~een defined. If it has been previously defined, determine

• the upper plenum material specification label.

BPRUPMLUNIQUE=.TRUE.

LEAVE=.FALSE.

IF <<COLUMN.NE.l).AND. (ROW.NE.1>> THEN DO 4170 RO=l, (ROW-I)

DO 4160 CO=1,50 IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKNUM(COLUMN,ROW) .EQ.

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 612 of 656 c BANKNUM(CO,RO>> THEN BPRUPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPRUPML(COLUMN,ROW)=BPRUPML(CO,RO)

EXIT ENDIF ENDIF 4160 CONTINUE IF (LEAVE.EQ .* TRUE.) THEN EXIT ENDIF 4170 CONTINUE IF (LEAVE.EQ .* FALSE.) THEN DO 4190 RO=ROW,ROW DO 4180 CO=I, (COLUMN-I)

IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKNUM(COLUMN,ROW).EQ.

c BANKNUM(CO,RO>> THEN BPRUPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPRUPML(COLUMN,ROW)=BPRUPML(CO,RO)

EXIT ENDIF ENDIF 4180 CONTINUE IF (LEAVE.EQ ** TRUE.) THEN EXIT ENDIF 4190 CONTINUE ENDI*F ELSEIF <<COLUMN.EQ.l).AND.(ROW.NE.l>> THEN DO 4210 RO=I, (ROW-I)

DO 4200 CO=I,50 IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKNUM(COLUMN,ROW) .EQ.

c BANKNUM(CO,RO>> THEN BPRUPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPRUPML (COLUMN, ROW) =BPRUPML (CO, RO)

EXIT ENDIF ENDIF 4200 CONTINUE IF (LEAVE.EQ *. TRUE.) THEN EXIT ENDIF 4210 CONTINUE ELSEIF <<ROW.EQ.l).AND. (COLUMN.NE.l>> THEN DO 4230 RO=I,1 DO 4220 CO~I, (COLUMN-I)

IF (BANKNUM(CO,RO) .NE.O) THEN IF (BANKNUM(COLUMN,ROW).EQ.

c BANKNUM(CO,RO>> THEN BPRUPMLUNIQUE=.FALSE.

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 613 of 656 LEAVE=.TRUE.

BPRUPML(COLUMN, ROW) =BPRUPML (CO, RO)

EXIT ENDIF ENDIF 4220 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 4230 CONTINUE ENDIF IF (SURFVALUESPEC(TOPBPNODETOPSURF) .LT.

c SURFVALUESPEC(UEFTOPSURF>> THEN IF (BPRUPMLUNIQUE.EQ .. TRUE.) THEN BPRUPML(COLUMN,ROW)=MN

• Check Burnable Poison Rod Upper Plenum Regions DO 4260 C=I,BPRUPLENMAT(BANKNUM(COLUMN,ROW),2)

IF eC.EQ.I) THEN WRITEe200,4240) BPRUPML(COLUMN,ROW),

c BPRUPLENZAIDS(BANKNUM(COLUMN,ROW),C),

c (-I*BPRUPLENWTS(BANKNUM(COLUMN,ROW),C)~

4240 FORMATeTI, 'M',I4,T9,A9,3X,GI4.6, c $ Burnable Poison Rod Upper Plenum')

ELSE WRITE (200, 4250) c BPRUPLENZAIDS(BANKNUM(COLUMN,ROW),C),

c (-I*BPRUPLENWTS(BANKNUM(COLUMN,ROW),C>>

4250 FORMAT(T9,A9,3X,GI4.6)

ENDIF 4260 CONTINUE MN=MN+l ENDIF WRITE(30,4270) LN, "BPRUPML(COLUMN,ROW),

c (-I*BPRUPLENMAT(BANKNUM(COLUMN,ROW),l>>,

c TOPBPNODETOPSURF, c (-I*BPCLADTOPSURF), (-I*BPOCIRSURF),

c BPRAUNIV (COLUMN, ROW) 4270 FORMAT(TI,I4,T6,I4,TII,F8.5,T25,I4,lX,I4,IX,I4, c , IMP:N=I U=',I3,' $ BPR upper plenum region')

LN=LN+I ENDIF

• Write the BPR lower plenum cell (lower end plug) in this BPR universe.

• Determine if the BPR lower plenum material specification has

• previously been defined. If it has been previously defined, determine

• "the lower plenum material specification label.

BPRLPMLUNIQUE=.TRUE.

LEAVE=.FALSE.

IF ((COLUMN.NE.I).AND. (ROW.NE.l>> THEN DO 4290 RO=I, (ROW-I)

DO 4280 CO=I,50 IF (BANKNUM(CO,RO) .NE.O) THEN IF (BANKNUM(COLUMN,ROW).EQ.BANKNUM(CO,RO>> THEN BPRLPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 614 of 656 BPRLPML (COLUMN, ROW)=BPRLPML (CO,RO)

EXIT ENDIF ENDIF 4280 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 4290 CONTINUE IF (LEAVE.EQ *. FALSE.) THEN DO 4310 RO=ROW,ROW DO 4300 CO=I, (COLUMN-I)

IF (BANKNUM(CO,RO) .NE.O) THEN IF (BANKNUM(COLUMN,ROW).EQ.

c BANKNUM(CO,RO>> THEN BPRLPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPRLPML(COLUMN,ROW)=BPRLPML(CO,RO)

EXIT ENDIF ENDIF 4300 CONTINUE IF (LEAVE.EQ .* TRUE.) THEN EXIT ENDIF 4310 CONTINUE ENDIF ELSEIF <<COLUMN.EQ.l).AND. (ROW.NE.l>> THEN DO 4330 RO=I, (ROW-I)

DO 4320 CO=I,50 IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKNUM(COLUMN,ROW).EQ.

c BANKNUM (CO, RO>> THEN BPRLPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPRLPML(COLUMN,ROW)=BPRLPML(CO,RO)

EXIT ENDIF ENDIF 4320 CONTINUE IF (LEAVE.EQ *. TRUE.) THEN EXIT ENDIF 4330 CONTINUE ELSEIF <<ROW.EQ.I).AND. (COLUMN.NE.l>> THEN DO 4350 RO=I,1 DO 4340 CO=I, (COLUMN-I)

IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKNUM(COLUMN,ROW) .EQ.

c BANKNUM(CO,RO>> THEN BPRLPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPRLPML(COLUMN,ROW)=BPRLPML(CO,RO)

EXIT

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calcul.ations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 615 of 656 ENDIF ENDIF 4340 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 4350 CONTINUE ENDIF IF (BPRLPMLUNIQUE.EQ .. TRUE.) THEN BPRLPML (COLUMN, ROW) =MN

• Check Burnable Poison Rod Lower Plenum Regions DO 4380 C=1,BPRLPLENMAT(BANKNUM(COLUMN,ROW),2)

IF (C.EQ.1) THEN WRITt(200,4360) BPRLPML(COLUMN,ROW),

c BPRLPLENZAIDS(BANKNUM(COLUMN,ROW),C),

c (-l*BPRLPLENWTS(BANKNUM(COLUMN,ROW),C>>

4360 FORMAT (T1, 'M',I4,T9,A9,3X,G14.6, c $ Burnable Poison Rod Lower Plenum')

ELSE WRITE(200,4370) c BPRLPLENZAIDS(BANKNUM(COLUMN,ROW),C),

c (-l*BPRLPLENWTS(BANKNUM(COLUMN,ROW),C>>

4370 FORMAT(T9,A9,3X,G14.6)

ENDIF 4380 CONTINUE MN=MN+1 ENDIF WRITE(30,4390) LN, BPRLPML(COLUMN,ROW),

c (-l*BPRLPLENMAT(BANKNUM(COLUMN,ROW),l>>, BPCLADBOTTOMSURF, c (-l*BPNODEBOTTOMSURF), (-l*BPOCIRSURF),

c BPRAUNIV(COLUMN,ROW) 4390 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ BPR lower plenum region')

LN=LN+1

• Loop through the regions above the BPR (i.e. the appropriate upper core regions)

• Define the upper region lower surface.

DO 4430 REGION=l,NUMREGABOVEBPRA

• Determine the current upper region's lower surface specification.

IF (REGION.EQ.1) THEN REGIONTOPSURF=SYSTEMTOP CURRENTSURF=SURFVALUESPEC(SYSTEMTOP)-

c REGABOVEBPRA(REGION,l)

ENDIF CURRENTSURF=SURFVALUESPEC(REGIONTOPSURF)-

c REGABOVEBPRA(REGION,l)

IF (REGION.EQ.NUMREGABOVEBPRA) THEN REGIONBOTTOMSURF=UEFTOPSURF ELSE CURRENTSURFLABEL=O DO 4400 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS (SURFVALUESPEC (V) -CURRENTSURF)'. LT; (0.0001>> THEN CURRENTSURFLABEL=V

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 DocumentIdentifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 616 of656 EXIT ENDIF ENDIF 4400 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN REGIONBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+l ELSE REGIONBOTTOMSURF=CURRENTSURFLABEL ENDIF ENDIF

• Write the cell specification for the BPR universe upper region.

IF (REGION.EQ.l) THEN WRITE(30,4410) LN, FRUREGIONML(COLUMN,ROW,REGION),

c (-1*REGABOVEBPRA(REGION,2>>),

c REGIONBOTTOMSURF, BPRAUNIV(COLUMN,ROW), REGION 4410 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4, c , IMP:N=l U=',I3,' $ Upper core region ',I2)

LN=LN+l REGIONTOPSURF=REGIONBOTTOMSURF ELSE WRITE(30,4420) LN, FRUREGIONML(COLUMN,ROW,REGION),

c (-1*REGABOVEBPRA(REGION,2>>, (-l*REGIONTOPSURF),

c REGIONBOTTOMSURF, BPRAUNIV(COLUMN,ROW), REGION 4420 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4, c , IMP:N=l U=',I3,' $ Upper core region ',I2)

LN=LN+l REGIONTOPSURF=REGIONBOTTOMSURF ENDIF 4430 CONTINUE

• Define the GT top surface.

CURRENTSURF=GTDATA(DESNUM(COLUMN,ROW),3)

IF (CURRENTSURF.GE.SURFVALUESPEC(UEFTOPSURF>> THEN CURRENTSURF=SURFVALUESPEC(UEFTOPSURF)

ENDIF CURRENTSURFLABEL=O DO 4440 V=l, (SN-l)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001) THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 4440 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN GTTOPSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+l ELSE GTTOPSURF=CURRENTSURFLABEL ENDIF

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: 800000000-01717-0210-00006 REV 00 Attachment I, Page 617 of 656

• Define the GT bottom surface.

CURRENTSURF=GTDATA(DESNUM(COLUMN,ROW),4)

CURRENTSURFLABEL=O DO 4450 V=l, (SN-l)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 4450 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN GTBOTSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+l ELSE GTBOTSURF=CURRENTSURFLABEL ENDIF

• Define the GT outer radius surface.

CURRENTSURF-GTDATA(DESNUM(COLUMN,ROW),2)

CURRENTSURFLABEL=O DO 4460 V=l, (SN-l)

IF (SURFTYPESPEC(V).EQ.'CZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V-EXIT ENDIF ENDIF 4460 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN GTORSURF=SN SURFTYPESPEC(SN)='CZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+l ELSE GTORSURF=CURRENTSURFLABEL ENDIF

• Define the GT inner radius surface.

CURRENTSURF=GTDATA(DESNUM(COLUMN,ROW),l)

CURRENTSURFLABEL=O DO 4470 V=l, (SN-l)

IF (SURFTYPESPEC(V).EQ.'CZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 4470 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN GTIRSURF=SN SURFTYPESPEC(SN)='CZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+l

Waste Package Operations . ~ngineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 618 of 656 ELSE GTIRSURF=CURRENTSURFLABEL ENDIF

• Define the lower end-fitting top surface.

CURRENTSURF=ENDFITHEIGHT(DESNUM(COLUMN,ROW),2)

CURRENTSURFLABEL=O DO 4480 V=l, (SN-l)

IF (SURFTYPESPEC(V) .EQ. 'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 4480 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN BPLEFTOPSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+l '

ELSE BPLEFTOPSURF=CURRENTSURFLABEL ENDIF

• Write the lower end-fitting cell specification for this BPR universe.

IF (SURFVALUESPEC(GTBOTSURF).GE.

c ENDFITHEIGHT(DESNUM(COLUMN,ROW),2>> THEN WRITE(30,4490) LN, FRLEFML(COLUMN,ROW),

c (-l*LEFMAT(DESNUM(COLUMN,ROW),l>>, (-l*BPLEFTOPSURF),

c BPRAUNIV(COLUMN,ROW) 4490 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,' IMP:N=l U=',I3, c , $ Assembly lower end-fitting')

LN=LN+l ELSE WRITE (30, 4500) LN, FRLEFML(COLUMN,ROW),

c (-l*LEFMAT(DESNUM(COLUMN,ROW),l>>, (-l*BPLEFTOPSURF),

c GTORSURF, BPRAUNIV(COLUMN,ROW) 4500 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4, c , IMP:N=l U=',I3,' $ Assembly lower end-fitting')

LN=LN+l WRITE(30,4510) LN, FRLEFML(COLUMN,ROW),

c (-l*LEFMAT(DESNUM(COLUMN,ROW),l>>, (-l*GTBOTSURF),

c (-l*GTORSURF), BPRAUNIV(COLUMN,ROW) 4510 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4, c , IMP:N=l U=',I3, I $ Assembly lower end-fitting')

LN=LN+l ENDIF

• Write the upper end-fitting cell specification for this BPR universe.

IF <<SURFVALUESPEC(BPCLADTOPSURF).LE.

c SURFVALUESPEC(UEFBOTTOMSURF>>.AND.

c (SURFVALUESPEC(GTTOPSURF).LE.

c SURFVALUESPEC(UEFBOTTOMSURF>>) THEN WRITE(30,4520) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF), BPRAUNIV(COLUMN,ROW) 4520 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 619 of656 c , IMP:N=l U=',I3,' $ Assembly upper end-fitting')

LN=LN+l ELSEIF <<SURFVALUESPEC(BPCLADTOPSURF) .GT.

c SURFVALUESPEC(UEFBOTTOMSURF>>.AND.

c (SURFVALUESPEC(BPCLADTOPSURF).LT.

c SURFVALUESPEC(UEFTOPSURF>>.AND.

c (SURFVALUESPEC(GTTOPSURF).LE.

c SURFVALUESPEC(UEFBOTTOMSURF>>) THEN WRITE (30, 4530) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF), BPOCORSURF, BPRAUNIV(COLUMN,ROW) 4530 FORMAT (Tl, 14, T6, 14, TIl, F8. 5, T25,"I4, IX, 14, IX, 14, c , IMP:N=l U=',I3,' $ Assembiy upper end-fitting')

LN=LN+l WRITE(30,4540) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, BPCLADTOPSURF, c (-l*UEFTOPSURF), (-l*BPOCORSURF),

c BPRAUNIV (COLUMN, ROW) 4540 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Assembly upper end-fitting')

LN=LN+l ELSEIF <<SURFVALUESPEC(BPCLADTOPSURF).LE.

c SURFVALUESPEC(GTTOPSURF>>.AND.

c (SURFVALUESPEC(GTTOPSURF).LT.

c SURFVALUESPEC(UEFTOPSURF>>.AND.

c (SURFVALUESPEC(GTTOPSURF) .GT.

c SURFVALUESPEC(UEFBOTTOMSURF>>) THEN WRITE (30, 4550) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF), GTORSURF, BPRAUNIV(COLUMN,ROW) 4550 . FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Assembly upper end-fitting')

LN=LN+l WRITE (30, 4560) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, GTTOPSURF, c (-l*UEFTOPSURF), (-l*GTORSURF),

c BPRAUNIV(COLUMN,ROW) 4560 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Assembly upper end-fitting')

LN=LN+l WRITE(30,4570) LN, BMODML, c (-l*MODDENSITY), BPCLADTOPSURF, c (-l*GTTOPSURF), (-l*GTIRSURF),

c BPRAUNIV(COLU~,ROW) 4570 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',13,' $ Assembly upper end-fitting')

LN=LN+l ELSE1F <<SURFVALUESPEC(BPCLADTOPSURF).LE.

c SURFVALUESPEC(GTTOPSURF>>.AND.

c (SURFVALUESPEC(GTTOPSURF).EQ.

c SURFVALUESPEC(UEFTOPSURF>>) THEN WRITE(30,4580) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF), GTORSURF, BPRAUNIV(COLUMN,ROW)

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 .

Document Identifier: BOOOOOOOO-O1717-0210-00006. REV 00 Attachment I, Page 620 of 656 4580 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Assembly upper end-fitting')

LN=LN+l IF (SURFVALUESPEC(BPCLADTOPSURF) .LT.

c SURFVALUESPEC(GTTOPSURF) THEN WRITE(30,4590) LN, BMODML, c (-l*MODDENSITY), BPCLADTOPSURF, c (-l*UEFTOPSURF), (-l*GTIRSURF),

c BPRAUNIV(COLUMN,ROW) 4590 FORMAT (Tl,14, T6,14, Tll, F8. 5, T25, I4, IX, 14, IX, 14, c , IMP:N=l U=',I3,' $ Assembly upper end-fitting')

LN=LN+l ENDIF ELSEIF <<SURFVALUESPEC(BPCLADTOPSURF) .GT.

c SURFVALUESPEC(UEFBOTTOMSURF>>) .AND.

c (SURFVALUESPEC(BPCLADTOPSURF).LT.

c SURFVALUESPEC(UEFTOPSURF>>.AND.

c (SURFVALUESPEC(GTTOPSURF).GT.

c SURFVALUESPEC(UEFBOTTOMSURF>>.AND.

c (SURFVALUESPEC(GTTOPSURF).LT.

c SURFVALUESPEC(BPCLADTOPSURF>>) THEN WRITE (30, 4600) LN, FRUEFML(COLUMN,RO~),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF), GTORSURF, BPRAUNIV(COLUMN,ROW) 4600 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Assembly upper end-fitting')

LN=LN+l WRITE(30,4610) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, GTTOPSURF, c (-l*UEFTOPSURF), (~l*GTORSURF),

c BPOCORSURF, BPRAUNIV(COLUMN,ROW) 4610 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4, c lX,I4,' IMP:N=l U=',I3, c , $ Assembly upper end-fitting')

LN=LN+l .

WRITE (30, 4620) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l), BPCLADTOPSURF, c (-l*UEFTOPSURF), (-l*BPOCORSURF),

c BPRAUNIV (COLUMN, ROW) 4620 FORMAT(Tl,I4,T6,14,Tll,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Assembly upper end-fitting')

LN=LN+l ELSEIF <<SURFVALUESPEC(BPCLADTOPSURF).EQ.

c SURFVALUESPEC(UEFTOPSURF>>).ANb.

c (SURFVALUESPEC(GTTOPSURF).GT.

c SURFvALUESPEC(UEFBOTTOMSURF>>.AND.

c (SURFVALUESPEC(GTTOPSURF).LT.

c SURFVALUESPEC(BPCLADTOPSURF>>) THEN

• WRITE(30,4630) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF), GTORSURF, BPRAUNIV(COLUMN,ROW) 4630 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Assembly upper end-fitting')

LN=LN+l

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 621 of 656 WRITE(30,4640) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>), GTTOPSURF, c (-l*UEFTOPSURF), (-l*GTORSURF),

c BPOCORSURF, BPRAUNIV (COLUMN, ROW) 4640 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4, c lX,I4,' IMP:N=l U=',I3, c $ Assembly upper end-fitting')

LN=LN+l ELSEIF <<SURFVALUESPEC(BPCLADTOPSURF) .GT.

c SURFVALUESPEC(UEFBOTTOMSURF>> .AND.

c (SURFVALUESPEC(BPCLADTOPSURF) .LT.

c SURFVALUESPEC(UEFTOPSURF)).AND.

c (SURFVALUESPEC(GTTOPSURF).EQ.

c SURFVALUESPEC(BPCLADTOPSURF)) THEN WRITE(30,4650) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>), UEFBOTTOMSURF, c (-l*UEFTOPSURF), GTORSURF, BPRAUNIV(COLUMN,ROW) 4650 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Assembly upper end-fitting')

LN=LN+l WRITE(30,4660) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, GTTOPSURF, c (-l*UEFTOPSURF), (-l*GTORSURF),

c BPOCORSURF, BPRAUNIV(COLUMN,ROW) 4660 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4, c lX,I4,' IMP:N=l U=',I3, c , $ Assembly upper end-fitting')

LN=LN+l ENDIF

• Write the GT material cell in this BPR universe.

• Determine if the GT material specification has

• previously been defined. If it has been previously defined, determine

• the material specification label.

CLADMLUNIQUE=.TRUE.

LEAVE=.FALSE.

IF <<COLUMN.NE.l).AND. (ROW.NE.l>> THEN DO 4680 RO=l, (ROW-l)

DO 4670 CO=1,50 IF (DESNUM(CO,RO).NE.O) THEN IF (GTMAT(DESNUM(COLUMN,ROW)).EQ.

c GTMAT(DESNUM(CO,RO))) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTML (COLUMN, ROW) =GTML(CO, RO)

EXIT ENDIF ENDIF 4670 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 4680 CONTINUE IF (LEAVE.EQ .* FALSE.) THEN DO 4700 RO=ROW,ROW

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-021 0-00006 REV 00 Attachment I, Page 622 of 656 DO 4690 CO=l, (COLUMN-1)

IF (DESNUM(CO,RO) .NE.O) THEN IF (GTMAT(DESNUM(COLUMN,ROW>> .EQ.

c GTMAT(DESNUM(CO,RO>>)) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTML(COLUMN,ROW)=GTML(CO,RO)

EXIT ENDIF ENDIF 4690 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 4700 CONTINUE ENDIF ELSEIF <<COLUMN.EQ.1).AND. (ROW.NE.1>> THEN DO 4720 RO=l, (ROW-1)

DO 4*710 CO=1,50 IF (DESNUM(CO,RO).NE.O) THEN IF (GTMAT(DESNUM(COLUMN,ROW>> .EQ.

c GTMAT(DESNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTML(COLUMN, ROW) =GTML (CO, RO)

EXIT ENDIF ENDIF 4710 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 4720 CONTINUE ELSEIF <<ROW.EQ.1).AND. (COLUMN.NE.1>> THEN DO 4740 RO=l,l DO 4730 CO=l, (COLUMN-1)

IF (DESNUM(CO,RO'.NE.O) THEN IF (GTMAT(DtSNUM(COLUMN,ROW>>.EQ.

c GTMAT(DESNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTML (COLUMN, ROW) =GTML (CO, RO)

EXIT ENDIF ENDIF 4730 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 4740 CONTINUE ENDIF IF (CLADMLUNIQUE.EQ .. TRUE.) THEN GTML(COLUMN,ROW)=MN

• Check Guide Tube Material

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 623 of 656 IF (GTMAT(DESNUM(COLUMN,ROW>> .EQ.1) THEN DO 4750 C=1,2 IF (C.EQ.1) THEN WRITE(200,9300) GTML(COLUMN,ROW)

ELSEIF (C.EQ.2) THEN WRITE (200, 9301)

WRITE(200,7000)

WRITE(200,7001)

WRITE(200,7002)

WRITE(200,9302)

WRITE(200,7003)

WRITE(200,7004)

WRITE*(200,7005)

WRITE(200,9303)

WRITE(200,9304)

ENDIF 4750 CONTINUE ELSEIF (GTMAT(DESNUM(COLUMN,ROW>>

c .EQ.2) THEN DO 4760 C=1,2 IF (C.EQ.1) THEN WRITE (200, 9305) GTML(COLUMN,ROW)

ELSEIF (C.EQ.2) THEN WRITE(200,9306)

WRITE (200, 9307)

WRITE(200,9308)

WRITE (200, 9309)

WRITE (200, 9310)

WRITE(200,7006)

WRITE(200,7007)

WRITE(200,7008)

WRITE (200, 9311)

WRITE (200, 9312)

WRITE (200, 7009)

WRITE(200,7010)

WRITE(200,7011)

WRITE (200, 9313)

WRITE (200, 7012)

WRITE(200,7013)

WRITE(200,7014)

WRITE(200,7015)

ENDIF 4760 CONTINUE ELSEIF (GTMAT(DESNUM(COLUMN,ROW>>

c .EQ.3) THEN DO 4770 C=1,2 .

IF (C.EQ.1) THEN WRITE(200,9314) GTML(COLUMN,ROW)

ELSEIF (C.EQ.2) THEN .

WRITE (200, 9315)

WRITE (200, 9316)

WRITE(200,9317)

WRITE(200,9318)

WRITE(200,7016)

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 624 of 656 WRITE(200,7017)

WRITE(200,70lS)

WRITE(200,93l9)

WRITE (200, 9320)

WRITE(200,70l9)

.WRITE (200,7020)

WRITE(200,702l)

WRITE(200,932l)

WRITE(200,7022)

WRITE(200,7023)

WRITE (200, 7024)

WRITE(200,7025)

WRITE (200, 9322)

WRITE(200,9323)

WRITE(200,9324)

WRITE (200, 9325)

WRITE (200, 9326)

WRITE(200,9327)

WRITE(200,7026)

WRITE(200,932S)

WRITE (200, 9329)

WRITE (200, 9330)

ENDIF 4770 CONTINUE ENDIF MN=MN+l ENDIF IF (GTMAT(DESNUM(COLUMN,ROW>> .EQ.l) THEN CLADRHO=6.56 .

ELSEIF (GTMAT(DESNUM(COLUMN,ROW>> .EQ.2) THEN CLADRHO=7.90 ELSEIF (GTMAT(DESNUM(COLUMN,ROW>>.EQ.3) THEN CLADRHO=S.l9 ENDIF WRITE(30,47S0) LN, GTML(COLUMN,ROW), (-l*CLADRHO),

c GTIRSURF, .

c (-l*GTORSURF), (-l*GTTOPSURF), GTBOTSURF, c BPRAUNIV(COLUMN,ROW) 4780 FORMAT(Tl,I4,T6,I4,Tll,FS.5,T25,I4,lX,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Guide tube region')

LN=LN+l

• Write the moderator cells within the GT in this BPR universe.

IF (SURFVALUESPEC(BPCLADTOPSURF) .GE.

c SURFVALUESPEC(GTTOPSURF>> THEN .

WRITE(30,4790) LN, BMODML, (-l*MODDENSITY),

c (-l*GTIRSURF) ,

c BPOCORSURF, (-l*GTTOPSURF), GTBOTSURF, c BPRAUNIV (COLUMN, ROW) 4790 FORMAT(Tl,I4,T6,I4,Tll,FS.S,T2S,I4,lX,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3, c * $ Borated moderator inside guide tube')

LN=LN+l ELSEIF (SURFVALUESPEC(BPCLADTOPSURF).LT.

c SURFVALUESPEC(GTTOPSURF>> THEN

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 625 of 656 WRITE(30,4800) LN, BMODML, (-l*MODDENSITY),

c (-1 *GTIRSURF) ,

c BPOCORSURF, (-l*BPCLADTOPSURF), GTBOTSURF, c BPRAUNIV(COLUMN,ROW) 4800 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3, c $ Borated moderator inside guide tube')

LN=LN+1 ENDIF WRITE (30, 4810) LN, BMODML, .(-1 *MODDENSITY) ,

c (-l*BPOCORSURF), (-l*BPCLADBOTTOMSURF), GTBOTSURF, c BPRAUNIV(COLUMN,ROW) 4810 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Borated moderator inside guide tube')

LN=LN+1

• Loop through the regions above the BPR (i.e. the appropriate upper core regions)

• Define the upper region lower surface.

DO 4850 REGION=l,NUMREGABOVEBPRA

• Determine the current upper region's lower surface specification.

IF (REGION.EQ.1) THEN REGIONTOPSURF=SYSTEMTOP CURRENTSURF=SURFVALUESPEC(SYSTEMTOP)-

c REGABOVEBPRA(REGION,l)

ENDIF CURRENTSURF=SURFVALUESPEC(REGIONTOPSURF)-

c REGABOVEBPRA(REGION,l)

IF (REGION.EQ.NUMREGABOVEBPRA) THEN REGIONBOTTOMSURF=UEFTOPSURF ELSE CURRENTSURFLABEL=O DO 4820 V=l, (SN-1)

IF (SURFTYPESPEC(V) .EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT.(O.OOOl>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 4820 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN REGIONBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+1 ELSE REGIONBOTTOMSURF=CURRENTSURFLABEL ENDIF ENDIF

• Write the cell specification for the BPR universe upper region.

IF (REGION.EQ.1) THEN WRITE(30,4830) LN, FRUREGIONML(COLUMN,ROW,REGION),

c (-1*REGABOVEBPRA(REGION,2>>,

c REGIONBOTTOMSURF, BPRAUNIV(COLUMN,ROW), REGION 4830 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,

\Vaste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-021 0-00006 REV 00 Attachment I, Page 626 of 656 c , IMP:N=l U=',I3,' $ Upper core region ',12)

LN=LN+l REGIONTOPSURF=REGIONBOTTOMSURF ELSE WRITE(30,4840) LN, FRUREGIONML(COLUMN,ROW,REGION),

c (-1*REGABOVEBPRA(REGION,2>>, (-l*REGIONTOPSURF),

c REGIONBOTTOMSURF, BPRAUNIV(COLUMN,ROW), REGION 4840 FORMAT (Tl, 14, T6, 14, Tll, F8. 5, T25, 14, IX, 14, c , IMP:N=l U=',I3,' $ Upper core region ',12)

LN=LN+l REGIONTOPSURF=REGIONBOTTOMSURF ENDIF 4850 CONTINUE SPACHEIGHT=O.O

• Loop through the spacer and moderator regions along the axial

• length of the BPR (from top to bottom) .

DO 4860 SPN=l,NUMOFSPACERS(DESNUM(COLUMN,ROW>>

SPACHEIGHT=SPACHEIGHT+SPACERHEIGHT(DESNUM(COLUMN,ROW),SPN) 4860 CONTINUE DO 4940 SPN=l,NUMOFSPACERS(DESNUM(COLUMN,ROW>>

• Define the homogenized spacer region bounding surfaces.

IF (SPN.EQ.l) THEN SPACERTOPSURF=UEFBOTTOMSURF CURRENTSURF=SURFVALUESPEC(UEFBOTTOMSURF)-

c SPACERHEIGHT(DESNUM(COLUMN,ROW),SPN)

CURRENTSURFLABEL=O DO 4870 V=l, (SN-l)

IF (SURFTYPESPEC(V) .EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 4870 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN SPACERBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+l ELSE SPACERBOTTOMSURF=CURRENTSURFLABEL ENDIF WATERREGIONTOPSURF=SPACERBOTTOMSURF CURRENTSURF=SPACERDIST(DESNUM(COLUMN,ROW), (SPN+l>>

CURRENTSURFLABEL=O DO 4880 V=l, (SN-l)

IF (SURFTYPESPEC(V) .EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 4880 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN

Waste Package Operations .~,

Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 627 of 656 WATERREGIONBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+I ELSE WATERREGIONBOTTOMSURF=CURRENTSURFLABEL ENDIF ELSEIF <<SPN.NE.I) .AND. (SPN.NE.

c NUMOFSPACERS(DESNUM(COLUMN,ROW>>>> THEN SPACERTOPSURF=WATERREGIONBOTTOMSURF CURRENTSURF=SURFVALUESPEC(WATERREGIONBOTTOMSURF)-

c SPACERHEIGHT(DESNUM(COLUMN,ROW),SPN)

CURRENTSURFLABEL=O DO 4890 V=l, (SN-I)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 4890 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN SPACERBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN++

ELSE SPACERBOTTOMSURF=CURRENTSURFLABEL ENDIF WATERREGIONTOPSURF=SPACERBOTTOMSURF CURRENTSURF=SPACERDIST(DESNUM(COLUMN,ROW), (SPN+1>>

CURRENTSURFLABEL=O DO 4900 V=l, (SN-1)

IF (SURFTYPESPEC(V) .EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 4900 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN WATERREGIONBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+1 ELSE WATERREGIONBOTTOMSURF=CURRENTSURFLABEL' ENDIF ELSEIF (SPN.EQ.NUMOFSPACERS(DESNUM(COLUMN,ROW>>) THEN SPACERTOPSURF=WATERREGIONBOTTOMSURF CURRENTSURF=SURFVALUESPEC(WATERREGIONBOTTOMSURF)-

c SPACERHEIGHT(DESNUM(COLUMN,ROW),SPN)

CURRENTSURFLABEL=O DO 4910 V=l, (SN-1)

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 628 of 656 IF (SURFTYPESPEC(V) .EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 4910 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN SPACERBOTTOMSURF=SN SURFTYPESPEC(SN)-'PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE SPACERBOTTOMSURF=CURRENTSURFLABEL ENDIF WATERREGIONTOPSURF=SPACERBOTTOMSURF WATERREGIONBOTTOMSURF=NODEBOTTOMSURF ENDIF

• Write the current homogenized spacer region cell in this BPR universe.

WRITE(30,4920) LN, HOMOSPACMLNUM(DESNUM(COLUMN,ROW),SPN),

c (-l*HOMOSPACERDEN(DESNUM(COLUMN,ROW),SPN>>, GTORSURF, c (-1*SPACERTOPSURF), SPACERBOTTOMSURF, BPRAUNIV(COLUMN,ROW),

c SPN 4920 FORMAT(T1,I4,T6,I4,T11,G14.8,T25,14,lX,I4,lX,I4, c

• IMP:N=l U-',13,' $ Homogenized region for spacer ',12)

LN=LN+1

• Write the water region cell below the current homogenized spacer cell in this BPR universe.

WRITE(30,4930) LN, BMODML, (-l*MODDENSITY), GTORSURF, c (-1*WATERREGIONTOPSURF), WATERREGIONBOTTOMSURF, c BPRAUNIV(COLUMN,ROW) 4930 FORMAT(T1,I4,T6,14,T11,F10.8,T25,I4,1X,I4,1X,I4, c

• IMP :N=1 U=', 13, , $ Borated moderator')

LN=LN+1 4940 CONTINUE

Waste Package Operations _f Engineering Calculation

Title:

eRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I. Page 629 of 656 ELSEIF (WBPRA(BANKNUM(COLUMN,ROW>> .EQ.3) THEN DO 5110 MCNPNODE=l,NUMOFBPRANODES(BANKNUM(COLUMN,ROW>>

• Define the upper end-fitting bottom surface.

CURRENTSURF=SPACERDIST(DESNUM(COLUMN,ROW),l)+

c ENDFITHEIGHT(DESNUM(COLUMN,ROW),2)

CURRENTSURFLABEL=O DO 4950 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 4950 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN UEFBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+1 ELSE UEFBOTTOMSURF=CURRENTSURFLABEL ENDIF

• Define the upper end-fitting top surface.

CURRENTSURF=SPACERDIST(DESNUM(COLUMN,ROW),l)+

c ENDFITHEIGHT(DESNUM(COLUMN,ROW),l)+

c ENDFITHEIGHT(DESNUM(COLUMN,ROW),2)

CURRENTSURFLABEL=O DO 4960 V=l, (SN-l)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 4960 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN UEFTOPSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+1 ELSE UEFTOPSURF=CURRENTSURFLABEL ENDIF

• Define the inner BPR cladding inner radius.

CURRENTSURF=BPRAXDIM(BANKNUM(COLUMN,ROW),l)

CURRENTSURFLABEL=O DO 4970 V=l, (SN-l)

IF (SURFTYPESPEC(V).EQ.'CZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT.(O.OOOl>> THEN

Waste Package Operations .-:.' .

Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 630 of 656 CURRENTSURFLABEL=V EXIT ENDIF ENDIF 4970 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN BPICIRSURF=SN SURFTYPESPEC(SN)='CZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+l ELSE BPICIRSURF=CURRENTSURFLABEL ENDIF

• Define the inner BPR cladding outer radius.

CURRENTSURF=BPRAXDIMCBANKNUMCCOLUMN,ROW),2)

CURRENTSURFLABEL=O DO 4980 Vel, CSN-l)

IF (SURFTYPESPEC(V) .EQ.'CZ') THEN IF (ABSCSURFVALUESPEC(V)-CURRENTSURF).LT. CO.OOOl>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 4980 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN BPICORSURF=SN SURFTYPESPECCSN)='CZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE BPICORSURF=CURRENTSURFLABEL ENDIF

• Define the BP absorber inner radius.

CURRENTSURF=BPRAXDIMCBANKNUMCCOLUMN,ROW),3)

CURRENTSURFLABEL=Q DO 4990 V=l, CSN-l)

IF CSURFTYPESPECCV).EQ.'CZ') THEN IF (ABSCSURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 4990 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN BPIRSURF=SN SURFTYPESPECCSN)='CZ' SURFVALUESPEC CSN) =CURRENTSURF SN=SN+l ELSE BPIRSURF=CURRENTSURFLABEL ENDIF

• Define the BP absorber outer radius.

CURRENTSURF=BPRAXDIM(BANKNUMCCOLUMN,ROW),4)

CURRENTSURFLABEL=O

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 631 of 656 DO 5000 V=l, (SN-1)

IF (SURFTYPESPEC(V) .EQ.'CZ') THEN IF (ABS (SURFVALUESPEC (V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 5000 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN BPORSURF=SN SURFTYPESPEC(SN)='CZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+1 ELSE BPORSURF=CURRENTSURFLABEL ENDIF

• Define the outer BPR cladding inner radius.

CURRENTSURF=BPRAXDIM(BANKNUM(COLUMN,ROW),5)

CURRENTSURFLABEL=O DO 5010 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'CZ') THEN IF (ABS (SURFVALUESPEC (V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 5010 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN BPOCIRSURF=SN SURFTYPESPEC(SN)='CZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+1 ELSE BPOCIRSURF=CURRENTSURFLABEL ENDIF

• Define the outer BPR cladding outer radius.

CURRENTSURF=BPRAXDIM(BANKNUM(COLUMN,ROW),6)

CURRENTSURFLABEL=O DO 5020 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'CZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 5020 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN BPOCORSURF=SN SURFTYPESPEC(SN)='CZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE BPOCORSURF=CURRENTSURFLABEL ENDIF

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 632 of 656

• Define the BP node bounding surfaces.

IF (MCNPNODE.EQ.1) THEN TOTBPHEIGHT=O.O DO 5030 Z=l,NUMOFBPRANODES(BANKNUM(COLUMN,ROW>>

TOTBPHEIGHT=TOTBPHEIGHT+

c MCNPBPRAHEIGHT(BANKNUM(COLUMN,ROW),Z) 5030 CONTINUE CURRENTSURF=BOTBPNODEHEIGHT(BANKNUM(COLUMN,ROW>>+

c TOTBPHEIGHT IF (CURRENTSURF.GE.SURFVALUESPEC(UEFTOPSURF>> THEN CURRENTSURF=SURFVALUESPEC(UEFTOPSURF)

ENDIF CURRENTSURFLABEL=O DO 5040 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 5040 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN TOPBPNODETOPSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE TOPBPNODETOPSURF=CURRENTSURFLABEL ENDIF BPNODETOPSURF=TOPBPNODETOPSURF CURRENTSURF=SURFVALUESPEC(BPNODETOPSURF)-

c MCNPBPRAHEIGHT(BANKNUM(COLUMN,ROW),MCNPNODE)

IF (CURRENTSURF.GE.SURFVALUESPEC(UEFTOPSURF>> THEN CURRENTSURF=SURFVALUESPEC(UEFTOPSURF)

ENDIF CURRENTSURFLABEL=O DO 5050 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 5050 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN BPNODEBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+l ELSE BPNODEBOTTOMSURF=CURRENTSURFLABEL ENDIF ELSEIF (MCNPNODE.NE.l) THEN BPNODETOPSURF=BPNODEBOTTOMSURF

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-021 0-00006 REV 00 Attachment I, Page 633 of656 CURRENTSURF=SURFVALUESPEC(BPNODETOPSURF)-

c MCNPBPRAHEIGHT(BANKNUM(COLUMN,ROW),MCNPNODE)

IF (CURRENTSURF.GE.SURFVALUESPEC(UEFTOPSURF>> THEN CURRENTSURF=SURFVALUESPEC(UEFTOPSURF)

ENDIF CURRENTSURFLABEL=O DO 5070 V=l, (SN-l)

IF (SURFTYPESPEC(V) .EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 5070 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN BPNODEBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+l ELSE BPNODE60TTOMSURF=CURRENTSURFLABEL ENDIF ENDIF IF (SURFVALUESPEC(BPNODEBOTTOMSURF).LT.

c SURFVALUESPEC(UEFTOPSURF>> THEN

• Write the BP node cells in this BPR universe.

IF <<BPRABSNODE(BANKNUM(COLUMN,ROW),MCNPNODE) .EQ.'Y').AND.

c (BPNONABSMAT(BANKNUM(COLUMN,ROW>>.EQ.l>> THEN WRITE(30,5080) LN, BPNODEML, c (-l*AL203DENSITY(BANKNUM(COLUMN,ROW>>), (-l*BPORSURF),

c BPIRSURF, (-l*BPNODETOPSURF), BPNODEBOTTOMSURF, c BPRAUNIV(COLPMN,ROW), MCNPNODE 5080 FORMAT(Tl,I4,T6,I4,Tll,Gl4.6,T25,I4,lX,I4,lX,I4, c lX,I4,' 1MP:N=l U=',13,' $ Burnable poison node ',12)

LN=LN+l BPNODEML=BPNODEML+l ELSEIF <<BPRABSNODE(BANKNUM(COLUMN,ROW),MCNPNODE).EQ.'Y') .AND.

c (BPNONABSMAT(BANKNUM(COLUMN,ROW>>.NE.l>> THEN WR1TE(30,5090) LN, BPNODEML, c (-l*NONBPMATDATA(BANKNUM(COLUMN,ROW),l>>, (-l*BPORSURF),

c BP1RSURF, (-l*BPNODETOPSURF), BPNODEBOTTOMSURF, c BPRAUNIV(COLUMN,ROW), MCNPNODE 5090 FORMAT(Tl,14,T6,14,Tll,G14.6,T25,I4,lX,I4,lX,14, c lX,14,' IMP:N=l U=',13,' $ Burnable poison node ',12)

LN=LN+l BPNODEML=BPNODEML+l ELSE WRITE(30,5100) LN, BPNODEML, c (-l*BPDENTOGO(COLUMN,ROW,MCNPNODE>>, (-l*BPORSURF),

c BP1RSURF, (-l*BPNODETOPSURF), BPNODEBOTTOMSURF, c BPRAUNIV(COLUMN,ROW), MCNPNODE 5100 FORMAT(Tl,I4,T6,I4,T11,G14.6,T25,I4,lX,I4,lX,14, c lX,14,' 1MP:N=l U=',I3,' $ Burnable poison node ',12)

LN=LN+l

Waste Package Operations Engineering Calculation

• . '.*!i

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 634 of 656 BPNODEML=BPNODEML+l ENDIF ENDIF 5110 CONTINUE

• Define the BPR cladding top surface.

CURRENTSURF=TOTBPHEIGHT+

c BOTBPNODEHEIGHT(BANKNUM(COLUMN,ROW>>+

c BPRPLEN(BANKNUM(COLUMN,ROW),I)

IF (CURRENTSURF.GE.SURFVALUESPEC(UEFTOPSURF>> THEN CURRENTSURF=SURFVALUESPEC(UEFTOPSURF)

ENDIF CURRENTSURFLABEL=O DO 5120 V=I, (SN-l)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 5120 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN BPCLADTOPSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE BPCLADTOPSURF=CURRENTSURFLABEL ENDIF

• Define the BPR cladding bottom surface.

CURRENTSURF=BOTBPNODEHEIGHT(BANKNUM(COLUMN,ROW>>-

c BPRPLEN(BANKNUM(COLUMN,ROW),2)

CURRENTSURFLABEL=O DO 5130 V=I, (SN-1)

IF (SURFTYPESPEC (V) . EQ. 'PZ ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 5130 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN BPCLADBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+l ELSE BPCLADBOTTOMSURF=CURRENTSURFLABEL ENDIF

• Write the inner BP-to-cladding gap cell in this BPR universe.

WRITE(30,5140) LN, (-I*BPIRSURF), BPICORSURF, c (-I*TOPBPNODETOPSURF),

c BPNODEBOTTOMSURF, BPRAUNIV(COLUMN,ROW) 5140 FORMAT(Tl,I4,T6,'O',T25,I4,IX,I4,1X,I4,1X,I4, c , IMP:N=1 U=',I3,

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 635 of 656 c $ Burnable poison-to-cladding gap')

LN=LN+1

• Write the outer BP-to-cladding gap cell in this BPR universe.

WRITE(30,5150) LN, (-l*BPOCIRSURF), BPORSURF, c (-l*TOPBPNODETOPSURF),

c BPNODEBOTTOMSURF, BPRAUNIV(COLUMN,ROW) 5150 FORMAT (T1, 14, T6, , 0' , T25, 14, IX, I4, IX, 14, IX, 14, c , IMP:N=l U=',I3, c $ Burnable poison-to-cladding gap')

LN=LN+1

• Write the annular water cell in this BPR universe.

WRITE(30,5160) LN, BMODML, c (-l*MODDENSITY), (-l*BPICIRSURF),

c (-l*TOPBPNODETOPSURF),

c BPNODEBOTTOMSURF, BPRAUNIV(COLUMN,ROW) 5160 FORMAT(T1,I4,T6,I4,T11,G14.6,T25,I4,1~,I4,lX,I4, c

• IMP:N=l U=',I3, c $ Burnable poison~to-cladding gap')

LN=LN+1 .

• Write the BPR cladding cell in this BPR universe.

• Determine if the BPR cladding material specification has

• previously been defined. If it has been previously defined, determine

• the cladding material specification label.

CLADMLUNIQUE=.TRUE.

LEAVE=.FALSE.

IF <<COLUMN.NE.1).AND. (ROW.NE.1>> THEN DO 5180 RO=l, (ROW-I)

DO 5170 CO=1,50 IF (BANKNUM(CO,RO) .NE.O) THEN IF (BANKDES(BANKNUM(CO,RO>>.EQ.'BPRA ') THEN IF (BPRCLAD~T(BANKNUM(COLUMN,ROW>> .EQ.

c BPRCLADMAT(BANKNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPCLADML(COLUMN,ROW)=BPCLADML(CO,RO)

EXIT ENDIF ENDIF ENDIF 5170 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 5180 CONTINUE IF (LEAVE.EQ .. FALSE.) THEN DO 5200 RO=ROW,ROW DO 5190 CO=l, (COLUMN-I)

IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKDES(BANKNUM(CO,RO>>.EQ.'BPRA ') THEN IF (BPRCLADMAT(BANKNUM(COLUMN,ROW>>.EQ.

c BPRCLADMAT(BANKNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPCLADML(COLUMN,ROW)=BPCLADML(CO,RO)

Waste Package Operations ~ngineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 636 of 656 EXIT ENDIF ENDIF ENDIF 5190 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 5200 CONTINUE ENDIF ELSEIF <<COLUMN.EQ.l).AND. (ROW.NE.l>> THEN 005220 RO=I, (ROW-I)

DO 5210 CO=I,50 IF (BANKNUM(CO,RO) .NE.O) THEN IF (BANKDES(BANKNUM(CO,RO>> .EQ.'BPRA ') THEN IF (BPRCLADMAT(BANKNUM(COLUMN,ROW>>.EQ.

c BPRCLADMAT(BANKNUM(CO,RO>>). THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPCLADML(COLUMN, ROW) =BPCLADML (CO, RO)

EXIT ENDIF ENDIF ENDIF 5210 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 5220 CONTINUE ELSEIF <<ROW.EQ.l).AND. (COLUMN.NE.l>> THEN DO 5240 RO=I,1 DO 5230 CO=I, (COLUMN-I)

IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKDES(BANKNUM(CO,RO>>.NE.'BPRA ') THEN IF (BPRCLADMAT(BANKNUM(COLUMN,ROW>>.EQ.

c BPRCLADMAT(BANKNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPCLADML(COLUMN,ROW)=BPCLADML(CO,RO)

EXIT ENDIF ENDIF ENDIF 5230 CONTINUE IF (LEAVE.EQ .* TRUE.) THEN EXIT ENDIF 5240 CONTINUE ENDIF IF (CLADMLUNIQUE.EQ .. TRUE.) THEN BPCLADML(COLUMN,ROW)=MN

• Check BPR Cladding Material IF (BPRCLADMAT(BANKNUM(COLUMN,ROW>> .EQ.l) THEN DO 5250 C=I,2

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: 800000000-01717-0210-00006 REV 00 Attachment I, Page 637 of 656 IF (C.EQ.1) THEN WRITE(200,9300) BPCLADML(COLUMN,ROW)

ELSEIF (C.EQ.2) THEN WRITE(200,9301)

WRITE(200,7000)

WRITE(200,7001)

WRITE (200, 7002)

WRITE(200,9302)

WRITE(200,7003)

WRITE(200,7004)

WRITE(200,7005)

WRITE(200,9303)

WRITE(200,9304)

ENDIF 5250 CONTINUE ELSEIF (BPRCLADMAT(BANKNUM(COLUMN,ROW))

c .EQ.2) THEN DO 5260 C=1,2 IF (C.EQ.l) THEN WRITE (200, 9305) BPCLADML(COLUMN,ROW)

ELSEIF (C.EQ.2) THEN WRITE(200,9306)

WRITE (200, 9307)

WRITE(200,930S)

WRITE (200, 9309)

WRITE (200, 9310)

WRITE(200,7006)

WRITE(200,7007)

WRITE(200,700S)

WRITE(200,9311)

WRITE (200, 9312)

WRITE (200, 7009)

WRITE (200, 7010)

WRITE (200, 7011)

WRITE(200,9313)

WRITE(200,7012)

WRITE(200,7013)

WRITE (200, 7014)

WRITE (200, 7015)

ENDIF 5260 CONTINUE ELSEIF (BPRCLADMAT(BANKNUM(COLUMN,ROW>>

c .EQ.3) THEN DO 5270 C=1,2 IF (C.EQ.1) THEN WRITE(200,9314) BPCLADML(COLUMN,ROW)

ELSEIF (C.EQ.2) THEN WRITE(200,9315)

WRITE(200,9316)

WRITE (200, 9317)

WRITE(200,931S)

WRITE(200,7016)

WRITE(200,7017)

WRITE (200, 701S')

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 638 of 656 WRITE(200,9319)

WRITE (200, 9320)

WRITE (200, 7019)*

WRITE(200,7020)

WRITE(200,7021)

WRITE(200,9321)

WRITE(200,7022)

WRITE(200,7023)

WRITE(200,7024)

WRITE (200, 7025)

WRITE (200, 9322)

WRITE (200, 9323)

WRITE(200,9324)

WRITE(200,9325)

WRITE(200,9326)

WRITE(200,9327)

WRITE(200,7026)

WRITE (200, 9328)

WRITE (200, 9329)

WRITE (200, 9330)

ENDIF 5270 CONTINUE ENDIF MN=MN+l ENDIF IF (BPRCLADMAT(BANKNUM(COLUMN,ROW>>.EQ.l) THEN CLADRHO=6.56 ELSEIF (BPRCLADMAT(BANKNUM(COLUMN,ROW>>.EQ.2) THEN CLADRHO=7.90 ELSEIF (BPRCLADMAT(BANKNUM(COLUMN,ROW>> .EQ.3) THEN CLADRHO=8.19 ENDIF WRITE(30,5280) LN,BPCLADML(COLUMN,ROW), (-l*CLADRHO),

c BPOCIRSURF, c (-l*BPOCORSURF), (-l*BPCLADTOPSURF), BPCLADBOTTOMSURF, c BPRAUNIV(COLUMN,ROW) 5280 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,1X,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $*BPR cladding')

LN=LN+l WRITE(30,5290) LN, BPCLADML(COLUMN,ROW), (-1*CLADRHO),

c BPICIRSURF, c (-l*BPICORSURF), (-!*BPCLADTOPSURF), BPCLADBOTTOMSURF, c BPRAUNIV (COLUMN, ROW) 5290 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ BPR cladding')

LN=LN+l

• . Write the BPR upper plenum cell in this BPR universe.

• Determine if the BPR upper plenum material specification has

• previously been defined. If it has been previously defined, determine

.* the upper plenum material specification label .

BPRUPMLUNIQUE=.TRUE.

LEAVE=.FALSE.

IF ((COLUMN.NE.1).AND. (ROW.NE.l>> THEN DO 5310 RO=l, (ROW-1)

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-017 I7-0210-00006 REV 00 Attachment I, Page 639 of656 DO 5300 CO=1,50 IF (BANKNUM(CO,RO) .NE.O) THEN IF (BANKNUM(COLUMN,ROW).EQ.

c BANKNUM(CO,RO>> THEN BPRUPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPRUPML (COLUMN, ROW)=BPRUPML (CO, RO)

EXIT ENDIF ENDIF 5300 .CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 5310 CONTINUE IF (LEAVE.EQ *. FALSE.) THEN DO 5330 RO=ROW,ROW DO 5320 CO=l, (COLUMN-I)

IF (BANKNUM{CO,RO).NE.O) THEN IF (BANKNUM(COLUMN,ROW).EQ.

c BANKNUM(CO,RO>> THEN BPRUPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPRUPML(COLUMN,ROW)=BPRUPML(CO,RO)

EXIT ENDIF ENDIF 5320 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 5330 CONTINUE ENDIF ELSEIF {(COLUMN.EQ.l).AND. (ROW.NE.l>> THEN DO 5350 RO=l, (ROW-I)

DO 5340 CO=1,50 IF (BANKNUM (CO, RO) .NE.O) THEN IF (BANKNUM(COLUMN,ROW).EQ.

c BANKNUM(CO,RO>> THEN BPRUPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPRUPML (COLUMN, ROW)=BPRUPML (CO,RO)

EXIT ENDIF ENDIF 5340 CONTINUE IF (LEAVE.EQ *. TRUE.) THEN EXIT ENDIF 5350 CONTINUE ELSEIF <<ROW.EQ.l).AND. (COLUMN.NE.l>> THEN DO 5370 RO=l,l DO 5360 CO=l, (COLUMN-I)

IF (BANKNUM(CO,RO).NE.O) THEN

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 640 of 656 IF (BANKNUM(COLUMN,ROW).EQ.

c BANKNUM(CO,RO>> THEN BPRUPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPRUPML(COLUMN,ROW)=BPRUPML(CO,RO)

EXIT ENDIF ENDIF 5360 CONTINUE IF (LEAVE.EQ *. TRUE.) THEN EXIT ENDIF 5370 CONTINUE ENDIF IF (SURFVALUESPEC(TOPBPNODETOPSURF).LT.

c SURFVALUESPEC(UEFTOPSURF>> THEN IF (BPRUPMLUNIQUE.EQ .. TRUE.) THEN BPRUPML(COLUMN,ROW)=MN

• Check Burnable Poison Rod Upper Plenum Regions DO 5400 C=I,BPRUPLENMAT(BANKNUM(COLUMN,ROW),2)

IF (C.EQ.l) THEN WRITE (200, 5380) BPRUPML(COLUMN,ROW),

c BPRUPLENZAIDS(BANKNUM(COLUMN,ROW),C),

c (-l*BPRUPLENWTS(BANKNUM(COLUMN,ROW),C>>

5380 FORMAT (Tl, 'M',I4,T9,A9,3X,G14.6, c $ Burnable Poison Rod Upper Plenum')

ELSE WRITE(200,5390) c BPRUPLENZAIDS(BANKNUM(COLUMN,ROW),C),

c (-I*BPRUPLENWTS(BANKNUM(COLUMN,ROW),C>>

5390 FORMAT (T9, A9, 3X,.G14. 6)

ENDIF 5400 CONTINUE MN=MN+l ENDIF WRITE(30,5410) LN, BPRUPML(COLUMN,ROW),

c (-l*BPRUPLENMAT(BANKNUM(COLUMN,ROW),l>>,

c TOPBPNODETOPSURF, .

c (-l*BPCLADTOPSURF), (-I*BPCLADIRSURF),

c BPRAUNIV(COLUMN,ROW) 5410 FORMAT(TI,I4,T6,I4,Tll,F8.5,T25,I4,IX,I4,IX,I4, c , IMP:N=I U=',I3,' $ BPR upper plenum region')

LN=LN+I ENDIF

• Write the BPR lower plenum cell (lower end plug) in this BPR universe.

• Determine if the BPR lower plenum material specification has

• previously been defined. If it has been previously defined, determine

• the lower plenum material specification label.

BPRLPMLUNIQUE=.TRUE.

LEAVE=.FALSE.

IF <<COLUMN.NE.I) .AND.(ROW.NE.I>> THEN DO 5430 RO=l, (ROW-I)

DO 5420 CO=I,50 IF (BANKNUM(CO,ROi .NE.O) THEN

Waste Package Ope~at~ons Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 641 of 656 IF (BANKNUM(COLUMN,ROW).EQ.BANKNUM(CO,RO>> THEN BPRLPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPRLPML (COLUMN, ROW) =BPRLPML (CO, RO)

EXIT ENDIF ENDIF 5420 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 5430 CONTINUE IF (LEAVE.EQ .* FALSE.) THEN DO 5450 RO=ROW,ROW DO 5440 CO=I, (COLUMN-I)

IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKNUM(COLUMN,ROW).EQ.

c BANKNUM(CO,RO>> THEN BPRLPMLUNIQUE=.FALSE.

LEAVE=.TRUE.

BPRLPML(COLUMN,ROW)=BPRLPML(CO,RO)

EXIT ENDIF ENDIF 5440 CONTINUE IF (LEAVE.EQ ** TRUE.) THEN EXIT ENDIF 5450 CONTINUE ENDIF ELSEIF <<COLUMN.EQ.l).AND. (ROW.NE.I>> THEN DO 5470 RO=l, (ROW-I)

DO 5460 CO=1,50 IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKNUM(COLUMN,ROW) .EQ.

c BANKNUM(CO,RO>> THEN BPRLPMLUNIQUE=.FALSE.

LEAVE=. TRUE ..

BPRLPML (COLUMN, ROW) =BPRLPML(CO, RO)

EXIT ENDIF ENDIF 5460 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 5470 CONTINUE ELSEIF <<ROW.EQ.I).AND. (COLUMN.NE.I>> THEN DO 5490 RO=I,I DO'5480 CO=I, (COLUMN-I)

IF (BANKNUM(CO,RO).NE.O) THEN IF (BANKNUM(COLUMN,ROW).EQ.

c BANKNUM (CO, RO>> THEN BPRLPMLUNIQUE=.FALSE.

Waste Package Operations ~ngineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-021 0-00006 REV 00 Attachment I, Page 642 of 656 LEAVE=.TRUE.

BPRLPML(COLUMN,ROW)=BPRLPML(CO,RO)

EXIT ENDIF ENDIF 5480 CONTINUE IF (LEAVE.EQ .. TRUE.) THEN EXIT ENDIF 5490 CONTINUE ENDIF IF (BPRLPMLUNIQUE.EQ .. TRUE.) THEN BPRLPML (COLUMN, ROW)=MN

• Check Burnable Poison Rod Lower Plenum Regions DO 5520 C=1,BPRLPLENMAT(BANKNUM(COLUMN,ROW),2)

IF (C.EQ.1) THEN WRITE(200,5500) BPRLPML(COLUMN,ROW),

c BPRLPLENZAIDS(BANKNUM(COLUMN,ROW),C),

c (-l*BPRLPLENWTS(BANKNUM(COLUMN,ROW),C>>

5500 FORMAT(T1,'M',I4,T9,A9,3X,G14.6, c $ Burnable Poison Rod Lower Plenum')

ELSE WRITE(200,5510) c BPRLPLENZAIDS(BANKNUM(COLUMN,ROW),C),

c (-l*BPRLPLENWTS(BANKNUM(COLUMN,ROW),C>>

5510 FORMAT(T9,A9,3X,G14.6) .

ENDIF 5520 CONTINUE MN=MN+1 ENDIF WRITE(30,5530) LN, BPRLPML(COLUMN,ROW),

c (-l*BPRLPLENMAT(BANKNUM(COLUMN,ROW),l>>, BPCLADBOTTOMSURF, c (-l*BPNODEBOTTOMSURF), (-l*BPCLADIRSURF),

c BPRAUNIV(COLUMN,ROW) 5530 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ BPR lower plenum region')

LN=LN+1

• Loop through the regions above the BPR (i.e. the appropriate upper core regions)

• Define the upper region lower surface.

DO 5570 REGION=l,NUMREGABOVEBPRA

• Determine the current upper region's lower surface specification.

IF (REGION.EQ.1) THEN REGIONTOPSURF=SYSTEMTOP CURRENTSURF=SURFVALUESPEC(SYSTEMTOP)-

c REGABOVEBPRA(REGION,l)

ENDIF CURRENTSURF=SURFVALUESPEC(REGIONTOPSURF)-

c REGABOVEBPRA(REGION,l)

IF (REGION.EQ.NUMREGABOVEBPRA) THEN REGIONBOTTOMSURF=UEFTOPSURF ELSE CURRENTSURFLABEL=Q DO 5540 V=l, (SN-1)

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: 800000000-01717-0210-00006 REV 00 Attachment I, Page 643 of 656 IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V}-CURRENTSURF}.LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 5540 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN REGIONBOTTOMSURF=SN SURFTYPESPEC(SN}='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE REGIONBOTTOMSURF=CURRENTSURFLABEL ENDIF ENDIF

• Write the cell specification for the BPR universe upper region.

IF (REGION.EQ.1) THEN WRITE (30, 5550) LN, FRUREGIONML(COLUMN,ROW,REGION),

c (-1*REGABOVEBPRA(REGION,2>>,

c REGIONBOTTOMSURF, BPRAUNIV(COLUMN,ROW), REGION 5550 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4, c , IMP:N=l U=',I3,' $ Upper core region ',12)

LN=LN+1 REGIONTOPSURF=REGIONBOTTOMSURF ELSE WRITE (30, 5560) LN, FRUREGIONML(COLUMN,ROW,REGION),

c (-1*REGABOVEBPRA(REGION,2>>, (-l*REGIONTOPSURF),

c REGIONBOTTOMSURF, BPRAUNIV(COLUMN,ROW), REGION 5560 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4, c , IMP:N=l U='~I3,' $ Upper core region ',12)

LN=LN+1 REGIONTOPSURF=REGIONBOTTOMSURF ENDIF 5570 CONTINUE

• Define the GT top surface.

CURRENTSURF=GTDATA(DESNUM(COLUMN,ROW),3}

IF (CURRENTSURF.GE.SURFVALUESPEC(UEFTOPSURF>> THEN

. CURRENTSURF=SURFVALUESPEC(UEFTOPSURF)

ENDIF CURRENTSURFLABEL=O DO 5580 V=l, (SN-l)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS (SURFVALUESPEC (V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 5580 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN GTTOPSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+l

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 644 of 656 ELSE GTTOPSURF=CURRENrSURFLABEL ENDIF

• Define the GT bottom surface.

CURRENTSURF=GTDATA(DESNUM(COLUMN,ROW),4}

CURRENTSURFLABEL=O DO 5590 V=I, (SN-l)

IF (SURFTYPESPEC(V}.EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V}-CURRENTSURF).LT. (0.0001>>) THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 5590 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN GTBOTSURF=SN SURFTYPESPEC(SN}='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+l ELSE GTBOTSURF=CURRENTSURFLABEL ENDIF

• Define the GT outer radius surface.

CURRENTSURF=GTDATA(DESNUM(COLUMN,ROW},2)

CURRENTSURFLABEL=O DO 5600 V=I, (SN-l)

IF (SURFTYPESPEC(V}.EQ.'CZ') THEN IF (ABS(SURFVALUESPEC(V}-CURRENTSURF) .LT. (O.OOOI)} THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 5600 CONTINUE IF (CURRENTSURFLAEEL.EQ.O) THEN GTORSURF=SN SURFTYPESPEC(SN)='CZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+l ELSE GTORSURF=CURRENTSURFLABEL ENDIF

• Define the GT inner radius surface.

CURRENTSURF=GTDATA(DESNUM(COLUMN,ROW),I}

CURRENTSURFLABEL=O DO 5610 V=I, (SN-l)

IF (SURFTYPESPEC (V) *EQ. 'CZ') THEN IF (ABS(SURFVALUESPEC(V}-CURRENTSURF}.LT. (O.OOOI)) THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 5610 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN GTIRSURF=SN

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: 800000000-01717-0210-00006 REV 00 Attachment I, Page 645 of656 SURFTYPESPEC(SN)='CZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE GTIRSURF=CURRENTSURFLABEL ENDIF

• Define the lower end-fitting top surface.

CURRENTSURF=ENDFITHEIGHT(DESNUM(COLUMN,ROW),2)

CURRENTSURFLABEL=O DO 5620 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 5620 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN BPLEFTOPSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE BPLEFTOPSURF=CURRENTSURFLABEL ENDIF

• Write the lower end-fitting cell specification for this BPR universe.

IF (SURFVALUESPEC(GTBOTSURF).GE.

c ENDFITHEIGHT(DESNUM(COLUMN,ROW),2>> THEN WRITE (30, 5630) LN, FRLEFML(COLUMN,ROW),

c (-l*LEFMAT(DESNUM(COLUMN,ROW),l>>, (-l*BPLEFTOPSURF),

c BPRAUNIV(COLUMN,ROW) 5630 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,' IMP:N=l U=',I3, c , $ Assembly lower end-fitting')

LN=LN+1 ELSE WRITE (30, 5640) LN, FRLEFML(COLUMN,ROW),

c (-l*LEFMAT(DESNUM(COLUMN,ROW),l>>, (-l*BPLEFTOPSURF),

c GTORSURF, BPRAUNIV(COLUMN,ROW) 5640 FORMAT(T1,I4,T6,I4,Tl1,F8.5,T25,I4,lX,I4, c , IMP:N=l U=',I3,' $ Assembly lower end-fitting')

LN=LN+l WRITE(30,5650) LN, FRLEFML(COLUMN,ROW),

c (-l*LEFMAT(DESNUM(COLUMN,ROW),l>>, (-l*GTBOTSURF),

c (-l*GTORSURF), BPRAUNIV(COLUMN,ROW) 5650 FORMAT(Tl,I4,T6,I4,Tl1,F8.5,T25,I4,lX,I4, c , IMP:N=l U=',I3,' $ Assembly lower end-fitting')

LN=LN+1 ENDIF

• Write the upper end-fitting cell specification for this BPR universe.

IF <<SURFVALUESPEC(BPCLADTOPSURF).LE.

c SURFVALUESPEC(UEFBOTTOMSURF>>.AND.

c (SURFVALUESPEC(GTTOPSURF).LE.

c SURFVALUESPEC(UEFBOTTOMSURF>>) THEN WRITE(30,5660) LN, FRUEFML(COLUMN,ROW),

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 646 of 656 c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF), BPRAUN1V (COLUMN, ROW) 5660 FORMAT(Tl,14,T6,14,Tll,F8.5,T25,14,lX,14, c , IMP:N=l U=',13,' $ Assembly upper end-fitting')

LN=LN+l ELSE1F <<SURFVALUESPEC(BPCLADTOPSURF) .GT.

c SURFVALUESPEC(UEFBOTTOMSURF>>.AND.

c (SURFVALUESPEC(BPCLADTOPSURF).LT.

c SURFVALUESPEC(UEFTOPSURF>> .AND.

c (SURFVALUESPEC(GTTOPSURF).LE.

c SURFVALUESPEC(UEFBOTTOMSURF>>) THEN WRITE (30, 5670) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF), BPCLADORSURF, BPRAUN1V(COLUMN,ROW) 5670 FORMAT(Tl,I4,T6,14,Tll,F8.5,T25,14,lX,14,lX,I4, c , 1MP:N=l U=',I3,' $ Assembly upper end-fitting')

LN=LN+l WRITE (30, 5680) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, BPCLADTOPSURF, c (-l*UEFTOPSURF), (-l*BPCLADORSURF),

c BPRAUNIV(COLUMN,ROW) 5680 FORMAT(Tl,14,T6,14,Tll,F8.5,T25,I4,lX,14,lX,I4, c , 1MP:N=l U=',I3,' $ Assembly upper end-fitting')

LN=LN+l ELSEIF' <<SURFVALUESPEC(BPCLADTOPSURF) .LE.

c SURFVALUESPEC(GTTOPSURF>>.AND.

c (SURFVALUESPEC(GTTOPSURF).LT.

c SURFVALUESPEC(UEFTOPSURF>>.AND.

c (SURFVALUESPEC(GTTOPSURF).GT.

c SURFVALUESPEC(UEFBOTTOMSURF>>) THEN WRITE (30, 5690) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>), UEFBOTTOMSURF, c (-l*UEFTOPSURF), GTORSURF, BPRAUN1V(COLUMN,ROW) 5690 FORMAT(Tl,14,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',13,' $ Assembly upper end-fitting')

LN=LN+l WRITE (30, 5700) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, GTTOPSURF, c (-l*UEFTOPSURF), (-l*GTORSURF),

c BPRAUNIV(COLUMN,ROW) 5700 FORMAT(Tl,I4,T6,I4,Tll,F8.5,T25,I4,lX,I4,lX,I4, c , 1MP:N=l U=',I3,' $ Assembly upper end-fitting')

LN=LN+l WRITE (30, 5710) LN, BMODML, c (-l*MODDENSITY), BPCLADTOPSURF, c (-l*GTTOPSURF), (-l*GTIRSURF),

c BPRAUN1V(COLUMN,ROW) 5710 FORMAT(Tl,I4,T6,14,Tll,F8.5,T25,I4,lX,14,lX,I4, c , IMP:N=l U=',13,' $ Assembly upper end-fitting')

LN=LN+l ELSEIF <<SURFVALUESPEC(BPCLADTOPSURF).LE.

c SURFVALUESPEC(GTTOPSURF>>.AND.

c (SURFVALUESPEC(GTTOPSURF).EQ.

c SURFVALUESPEC(UEFTOPSURF>>) THEN

Waste Package Operations Engineering Calculation t

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 647 of 656 WRITE(30,5720) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l)), UEFBOTTOMSURF, c (-l*UEFTOPSURF), GTORSURF, BPRAUNIV(COLUMN,ROW) 5720 FORMAT(Tl,I4,T6,I4,Tl1,FS.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Assembly upper end-fitting')

LN=LN+l IF (SURFVALUESPEC(BPCLADTOPSURF).LT.

c SURFVALUESPEC(GTTOPSURF)) THEN WRITE (30, 5730) LN, BMODML, c (-l*MODDENSITY), BPCLADTOPSURF, c (-l*UEFTOPSURF), (-l*GTIRSURF),

c BPRAUNIV(COLUMN,ROW) 5730 FORMAT(T1,I4,T6,I4,Tll,FS.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Assembly upper end-fitting')

LN=LN+1 ENDIF ELSEIF <<SURFVALUESPEC(BPCLADTOPSURF).GT.

c SURFVALUESPEC(UEFBOTTOMSURF)).AND.

c (SURFVALUESPEC(BPCLADTOPSURF).LT.

c SURFVALUESPEC(UEFTOPSURF)).AND.

c (SURFVALUESPEC(GTTOPSURF).GT.

c SURFVALUESPEC(UEFBOTTOMSURF)).AND.

c (SURFVALUESPEC(GTTOPSURF).LT.

c SURFVALUESPEC(BPCLADTOPSURF))) THEN WRITE(30,5740) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l)), UEFBOTTOMSURF, c (-l*UEFTOPSURF), GTORSURF, BPRAUNIV(COLUMN,ROW) 5740 FORMAT(Tl,I4,T6,I4,T11,FS.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Assembly upper end-fitting')

LN=LN+1 WRITE(30,5750) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l)), GTTOPSURF, c (-1 *UEFTOPSURF), (-1 *GTORSURF) ,

c BPCLADORSURF, BPRAUNIV(COLUMN,ROW) 5750 FORMAT(Tl,I4,T6,I4,Tll,FS.5,T25,I4,lX,I4,lX,I4, c 1X,I4;' IMP:N=l U=',I3, c $ Assembly upper end-fitting')

LN=LN+1 WRITE(30,5760) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l)), BPCLADTOPSURF, c (-l*UEFTOPSURF), (-l*BPCLADORSURF),

c BPRAUNIV(COLUMN,ROW) 5760 FORMAT(T1,I4,T6,I4,T11,FS.5,T25,I4,lX,14,lX,I4, c 0' IMP:N=l U=',13,' $ Assembly upper end-fitting')

• LN=LN+l ELSEIF <<SURFVALUESPEC(BPCLADTOPSURF).EQ.

c SURFVALUESPEC(UEFTOPSURF>>) .AND.

c (SURFVALUESPEC(GTTOPSURF).GT.

c SURFVALUESPEC(UEFBOTTOMSURF)).AND.

c (SURFVALUESPEC(GTTOPSURF) .LT.

c SURFVALUESPEC(BPCLADTOPSURF>>)) THEN WR1TE(30,5770) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l)), UEFBOTTOMSURF, c (-l*UEFTOPSURF), GTORSURF, BPRAUNIV(COLUMN,ROW)

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 648 of 656 5770 FORMAT (T1, 14 ,T6, 14, T11, F8. 5, T25, 14, IX, 14, lX, 14, c , IMP:N=l U=',I3,' $ Assembly upper end-fitting')

LN=LN+1 WRITE(30,5780) "LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, GTTOPSURF, c (-l*UEFTOPSURF), (-l*GTORSURF),

c BPCLADORSURF, BPRAUNIV(COLUMN,ROW) 5780 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4, c 1X,I4,' IMP:N=l U=',I3, c $ Assembly upper end-fitting')

LN=LN+1 ELSEIF <<SURFVALUESPEC(BPCLADTOPSURF) .GT.

c SURFVALUESPEC(UEFBOTTOMSURF>>.AND.

c (SURFVALUESPEC(BPCLADTOPSURF) .LT.

c SURFVALUESPEC(UEFTOPSURF>> .AND.

c (SURFVALUESPEC(GTTOPSURF).EQ.

c SURFVALUESPEC(BPCLADTOPSURF>>) THEN WRITE(30,~790) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, UEFBOTTOMSURF, c (-l*UEFTOPSURF), GTORSURF, BPRAUNIV (COLUMN, ROW) 5790 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Assembly upper end-fitting')

LN=LN+1 WRITE(30,5800) LN, FRUEFML(COLUMN,ROW),

c (-l*UEFMAT(DESNUM(COLUMN,ROW),l>>, GTTOPSURF, c (-l*UEFTOPSURF), (-l*GTORSURF),

c BPCLADORSURF, BPRAUNIV (COLUMN, ROW) 5800 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4, c 1X,I4,' IMP:N=l U=',I3, c $ Assembly upper end-fitting')

LN=LN+1 ENDIF

• Write the GT material cell in this BPR universe.

• Determine if the GT material specification has

• previously been defined. If it has been previously defined, determine

• the material specification label.

CLADMLUNIQUE=.TRUE.

LEAVE=.FALSE.

IF <<COLUMN.NE.1) .AND. (ROW.NE.1>> THEN DO 5820 RO=l, (ROW-1)

DO 5810 CO=1,50 IF (DESNUM(CO,RO).NE.O) THEN IF (GTMAT(DESNUM(COLUMN,ROW>> .EQ.

c GTMAT(DESNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTML (COLUMN, ROW)=GTML (CO, RO)

EXIT ENDIF ENDIF 5810 CONTINUE IF (LEAVE.EQ *. TRUE.) THEN EXIT ENDIF

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 649 of 656 5820 CONTINUE IF (LEAVE.EQ .. FALSE.) THEN DO 5840 RO=ROW,ROW DO 5830 CO=!, (COLUMN-I)

IF (DESNUM(CO,RO).NE.O) THEN IF (GTMAT{DESNUM{COLUMN,ROW>> .EQ.

c GTMAT(DESNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTML(COLUMN,ROW)=GTML(CO,RO)

EXIT ENDIF ENDIF 5830 CONTINUE IF (LEAVE.EQ *. TRUE.) THEN EXIT ENDIF 5840 CONTINUE ENDIF ELSEIF ({COLUMN.EQ.I).AND. (ROW.NE.I>> THEN DO 5860 RO=I, (ROW-I)

DO 5850 CO=I,50 IF (DESNUM(CO,RO).NE.O) THEN IF (GTMAT(DESNUM(COLUMN,ROW>> .EQ.

GTMAT(DESNUM(CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTML (COLUMN, ROW) =GTML (CO, RO)

EXIT ENDIF ENDIF 5850 CONTINUE IF (LEAVE.EQ .* TRUE.) THEN EXIT ENDIF 5860 CONTINUE ELSEIF <<ROW.EQ.I).AND~(COLUMN.NE.I>> THEN DO 5880 RO=I,I DO 5870 CO=I, (COLUMN-I)

IF (DESNUM(CO,RO).NE.O) THEN IF (GTMAT(DESNUM(COLUMN,ROW>>.EQ.

c GTMAT(DESNUM{CO,RO>>) THEN CLADMLUNIQUE=.FALSE.

LEAVE=.TRUE.

GTML {COLUMN, ROW) =GTML (CO,RO)

EXIT ENDIF ENDIF 5870 CONTINUE IF (LEAVE.EQ .* TRUE.) THEN EXIT ENDIF 5880 CONTINUE ENDIF

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculatiol1S for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 650 of 656 IF (CLADMLUNIQUE.EQ .. TRUE.) THEN GTML(COLUMN,ROW)-MN

• Check Guide Tube Material IF (GTMAT(DESNUM(COLUMN,ROW>> .EQ.1) THEN DO 5890 C=1,2 IF. (C.EQ.1) THEN WRITE(200,9300) GTML(COLUMN,ROW)

ELSEIF (C.EQ.2) THEN WRITE(200,9301)

WRITE(200,7000}

WRITE(200,7001)

WRITE (200, 7002)

WRITE(200,9302)

WRITE(200,7003)

WRITE(200,7004)

WRITE(200,7005)

WRITE (200, 9303)

WRITE(200,9304)

ENDIF 5890 CONTINUE ELSEIF (GTMAT(DESNUM(COLUMN,ROW>>

c .EQ.2) THEN DO 5900 C-1,2 IF (C.EQ.1) THEN WRITE (200, 9305) GTML (COLUMN, ROW)

ELSEIF (C.EQ.2) THEN WRITE (200, 9306)

WRITE (200, 9307)

WRITE{200,9308)

WRITE (200, 9309)

WRITE(200,9310)

WRITE (200, 7006)

WRITE (200, 7007)

WRITE (200, 7008)

WRITE{200,9311)

WRITE(200,9312)

WRITE(200,7009)

WRITE (200, 7010)

WRITE (200, 7011)

WRITE(200,9313)

WRITE(200,7012)

WRITE(200,7013)

WRITE (200, 7014)

WRITE(200,7015)

ENDIF 5900 CONTINUE ELSEIF (GTMAT(DESNUM(COLUMN,ROW>>

c .EQ.3) THEN DO 5910 C=1,2 IF (C.EQ.1) THEN WRITE(200,9314) GTML(COLUMN,ROW)

ELSEIF (C.EQ.2) THEN WRITE (200, 9315)

WRITE(200,9316)

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 651 of 656 WRITE(200,9317)

WRITE(200,9318)

WRITE(200,7016)

WRITE(200,7017)

WRITE (200, 7018)

WRITE (200, 9319)

WRITE(200,9320)

WRITE(200,7019)

WRITE(200,7020)

WRITE(200,7021)

WRITE (200, 9321)

WRITE (200, 7022)

WRITE(200,7023)

WRITE(200,7024)

WRITE(200,7025)

WRITE (200, 9322)

WRITE (200, 9323)

WRITE(200,9324)

WRITE(200,9325)

WRITE (200, 9326)

WRITE(200,9327)

WRITE (200,7026)

WRITE (200, 9328)

WRITE (200, 9329)

WRITE(200,9330)

ENDIF 5910 CONTINUE ENDIF MN=MN+l ENDIF IF (GTMAT(DESNUM(COLUMN,ROW>>.EQ.1) THEN CLADRHO=6.56 .

ELSEIF (GTMAT(DESNUM(COLUMN,ROW>>.EQ.2) THEN CLADRHO=7.90 ELSEIF (GTMAT(DESNUM(COLUMN,ROW>>.EQ.3) THEN CLADRHO=8.19 ENDIF WRITE (30, 5920) LN, GTML(COLUMN,ROW), (-l*CLADRHO),

c GTIRSURF, c (-l*GTORSURF), (-l*GTTOPSURF), GTBOTSURF, c BPRAUNIV(COLUMN,ROW) 5920 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Guide tube region')

LN=LN+1

• Write the moderator cells within the GT in this BPR universe.

IF (SURFVALUESPEC(BPCLADTOPSURF).GE.

c SURFVALUESPEC(GTTOPSURF>> THEN WRITE (30, 5930) LN, BMODML, (-l*MODDENSITY),

c (-l*GTIRSURF) ,

c BPOCORSURF, (-l*GTTOPSURF), GTBOTSURF, c BPRAUNIV(COLUMN,ROW) 5930 FORMAT(T1,I4,T6,I4,T11,FS.5,T25,I4,lX,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3, c $ Borated moderator inside guide tube')

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations fOf Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 652 of656 LN=LN+1 ELSEIF (SURFVALUESPEC(BPCLADTOPSURF) .LT.

c SURFVALUESPEC(GTTOPSURF>> THEN WRITE(30,5940) LN, BMODML, (-l*MODDENSITY),

c (-l*GTIRSURF) ,

c BPOCORSURF, (-l*BPCLADTOPSURF), GTBOTSURF, c BPRAUNIV(COLUMN,ROW) 5940 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3, c $ Borated moderator inside guide tube')

LN=LN+l ENDIF WRITE(30,5950) LN, BMODML, (-l*MODDENSITY),

c (-l*BPOCORSURF), (-l*B~CLADBOTTOMSURF), GTBOTSURF, c BPRAUNIV(COLUMN,ROW) 5950 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Borated moderator inside guide tube')

LN=LN+1

• Loop through the regions above the BPR (i.e. the appropriate upper core regions)

• Define the upper region lower surface.

DO 5990 REGION=l,NUMREGABOVEBPRA

• Determine the current upper region's lower surface specification.

IF (REGION.EQ.1) THEN REGIONTOPSURF=SYSTEMTOP CURRENTSURF=SURFVALUESPEC(SYSTEMTOP)-

c REGABOVEBPRA(REGION,l)

ENDIF CURRENTSURF=SURFVALUESPEC(REGIONTOPSURF)-

c REGABOVEBPRA(REGION,l)

IF (REGION.EQ.NUMREGABOVEBPRA) THEN REGIONBOTTOMSURF=UEFTOPSURF ELSE CURRENTSURFLABEL=O DO 5960 V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 5960 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN REGIONBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+1 ELSE REGIONBOTTOMSURF=CURRENTSURFLABEL ENDIF ENDIF

• Write the cell specification for the BPR universe upper region.

IF (REGION.EQ.1) THEN WRITE (30, 5970) LN, FRUREGIONML(COLUMN,ROW,REGION),

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I. Page 653 of 656 c (-1*REGABOVEBPRA(REGION,2>>),

c REGIONBOTTOMSURF, BPRAUNIV(COLUMN,ROW), REGION 5970 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4, c , IMP:N=l U=',I3,' $ Upper core region ',12)

LN=LN+1 REGIONTOPSURF=REGIONBOTTOMSURF ELSE WRITE(30,5980) LN, FRUREGIONML(COLUMN,ROW,REGION),

c (-1*REGABOVEBPRA(REGION,2>>), (-1*REGIONTOPSURF),

c REGIONBOTTOMSURF, BPRAUNIV(COLUMN,ROW), REGION 5980 FORMAT(T1,I4,T6,I4,T11,F8.5,T25,I4,lX,I4, c , IMP:N=l U=',I3,' $ Upper core region ',12)

LN=LN+1 REGIONTOPSURF=REGIONBOTTOMSURF ENDIF 5990 CONTINUE SPACHEIGHT=O.O

• Loop through the spacer and moderator regions along the axial

• length of the BPR (from top to bottom).

DO 6000 SPN=l,NUMOFSPACERS(DESNUM(COLUMN,ROW>>

SPACHEIGHT=SPACHEIGHT+SPACERHEIGHT(DESNUM(COLUMN,ROW),SPN) 6000 CONTINUE DO 6080 SPN=1,NUMOFSPACERS(DESNUM(COLUMN,ROW>>

• Define the homogenized spacer region bounding surfaces.

IF (SPN.EQ.1) THEN SPACERTOPSURF=UEFBOTTOMSURF CURRENTSURF=SURFVALUESPEC(UEFBOTTOMSURF)-

c SPACERHEIGHT(DESNUM(COLUMN,ROW),SPN)

CURRENTSURFLABEL=O DO 6010 .V=l, (SN-1)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 6010 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN SPACERBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+1 ELSE SPACERBOTTOMSURF=CURRENTSURFLABEL ENDIF WATERREGIONTOPSURF=SPACERBOTTOMSURF CURRENTSURF=SPACERDIST(DESNUM(COLUMN,ROW), (SPN+1>>

CURRENTSURFLABEL=O DO 6020 V=I, (8N-I)

IF (SURFTYPESPEC(V).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF).LT. (0.0001>> THEN

. CURRENTSURFLABEL=V EXIT ENDIF

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment I, Page 654 of 656 ENDIF 6020 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN WATERREGIONBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+1 ELSE WATERREGIONBOTTOMSURF=CURRENTSURFLABEL ENDIF ELSEIF <<SPN.NE.l) .AND. (SPN.NE.

c NUMOFSPACERS(DESNUM(COLUMN,ROW>>>> THEN SPACERTOPSURF=WATERREGIONBOTTOMSURF CURRENTSURF=SURFVALUESPEC(WATERREGIONBOTTOMSURF)-

c SPACERHEIGHT(DESNUM(COLUMN,ROW),SPN)

CURRENTSURFLABEL7 0 DO 6030 Y=l, (SN-1)

IF (SURFTYPESPEC (Y) . EQ. 'PZ '.) THEN IF (ABS(SURFVALUESPEC(Y)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=Y EXIT ENDIF ENDIF 6030 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN SPACERBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE SPACERBOTTOMSURF=CURRENTSURFLABEL ENDIF WATERREGIONTOPSURF=SPACERBOTTOMSURF CURRENTSURF=SPACERDIST(DESNUM(COLUMN,ROW), (SPN+1>>

CURRENTSURFLABEL=O DO 6040 Y=l, (SN-1)

IF (SURFTYPESPEC(Y).EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(Y)-CURRENTSURF).LT. (0.0001>> THEN CURRENTSURFLABEL=Y EXIT ENDIF ENDIF 6040 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN WATERREGIONBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC (SN) =CURRENTSURF SN=SN+1 ELSE WATERREGIONBOTTOMSURF=CURRENTSURFLABEL ENDIF ELSEIF (SPN.EQ.NUMOFSPACERS(DESNUM(COLUMN,ROW>>) THEN SPACERTOPSURF=WATERREGIONBOTTOMSURF CURRENTSURF=SURFVALUESPEC(WATERREGIONBOTTOMSURF)-

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-021 0-00006 REV 00 Attachment I, Page 655 of 656 c SPACERHEIGHT(DESNUM(COLUMN,ROW),SPN)

CURRENTSURFLABEL=O DO 6050 V=l, (SN-1)

IF (SURFTYPESPEC(V) .EQ.'PZ') THEN IF (ABS(SURFVALUESPEC(V)-CURRENTSURF) .LT. (0.0001>> THEN CURRENTSURFLABEL=V EXIT ENDIF ENDIF 6050 CONTINUE IF (CURRENTSURFLABEL.EQ.O) THEN SPACERBOTTOMSURF=SN SURFTYPESPEC(SN)='PZ' SURFVALUESPEC(SN)=CURRENTSURF SN=SN+1 ELSE SPACERBOTTOMSURF=CURRENTSURFLABEL ENDIF WATERREGIONTOPSURF=SPACERBOTTOMSURF WATERREGIONBOTTOMSURF=NODEBOTTOMSURF ENDIF

• Write the current homogenized spacer region cell in this BPR universe.

WRITE (30, 6060) LN, HOMOSPACMLNUM(DESNUM(COLUMN,ROW),SPN),

c (-l*HOMOSPACERDEN(DESNUM(COLUMN,ROW),SPN>>, GTORSURF, c (-l*SPACERTOPSURF), SPACERBOTTOMSURF, BPRAUNIV(COLUMN,ROW),

c SPN 6060 FORMAT(T1,I4,T6,I4,T11,G14.8,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Homogenized region for spacer ',12)

LN=LN+1

• Write the water region cell below the current homogenized spacer cell in this BPR universe.

WRITE (30, 6070) LN, BMODML, (-l*MODDENSITY), GTORSURF, c (-l*WATERREGIONTOPSURF), WATERREGIONBOTTOMSURF, c BPRAUNIV(COLUMN,ROW) 6070 FORMAT(T1,I4,T6,I4,T11,F10.8,T25,I4,lX,I4,lX,I4, c , IMP:N=l U=',I3,' $ Borated moderator')

LN=LN+1 6080 CONTINUE ENDIF ENDIF 9300 FORMAT (T1, 'M',I4,T9,' 8016.50c -0.120',

c , . $ Zirc-4 Cladding')

9301 FORMAT (T9, '24050.60c -0.004')

7000 FORMAT (T9, '24052.60c -0.084')

7001 FORMAT (T9, '24053.60c -0.010')

7002 FORMAT(T9,'24054.60c -0.002')

9302 FORMAT (T9, '26054.60c -0.011')

7003 FORMAT (T9, '26056.60c -0.184')

7004 FORMAT(T9,'260S7.60c -0.004')

7005 FORMAT (T9, '26058.60c -0.001')

9303 FORMAT(T9,'40000.60c -98.180')

9304 FORMAT(T9,'50000.35c -1.400')

9305 FORMAT(T1,'M',I4,T9, '6000.50c -0.080',

c , $ SS304 Cladding')

Waste Package Operations Engineering Calculation

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 Attachment I, Page 656 of 656 9306 FORMAT(T9,'7014.50c -0.100')

9307 FORMAT (T9, '14000.50c -0.750')

9308 FORMAT (T9, '15031.50c -0.045')

9309 FORMAT (T9, '16032.50c -0.030')

9310 FORMAT (T9, '24050.60c -0.793')

7006 FORMAT (T9, '24052.60c -15.903')

7007 FORMAT (T9, '24053.60c -1.838')

7008 FORMAT (T9, '24054.60c -0.466')

9311 FORMAT (T9, '25055.50c -2.000')

9312 FORMAT (T9, '26054.60c -3.918')

7009 FORMAT (T9, '26056.60c -63.156')

7010 FORMAT (T9, '26057.60c -1.472')

7011 FORMAT (T9, '26058.60c -0.200')

9313 FORMAT (T9, '28058.60c -6.234')

7012 FORMAT (T9, '28060.60c -2.465')

7013 FORMAT (T9, '28061.60c -0.109')

7014 FORMAT (T9, '28062.60c -0.350')

7015 FORMAT (T9, '28064.60c -0.092')

9314 FORMAT (T1, 'M',I4,T9, '6000.50c -0.080',

c , $ Inconel Cladding')

9315 FORMAT (T9, '14000.50c -0.350')

9316 FORMAT (T9, '15031.50c -0.015')

9317 FORMAT (T9, '16032.50c -0.015')

9318 FORMAT (T9, '24050.60c -0.793')

7016 FORMAT (T9, '24052.60c -15.903')

7017 FORMAT (T9, '24053.60c -1.838')

7018 FORMAT (T9, '24054.60c -0.466')

9319 FORMAT (T9, '25055.50c -0.350')

9320 FORMAT (T9, '26054.60c -0.958')

7019 FORMAT (T9, '26056.60c -15.442')

7020 FORMAT (T9, '26057.60c -0.360')

7021 FORMAT (T9, '26058.60c -0.049')

9321 FORMAT (T9, '28058.60c -35.382')

7022 FORMAT(T9,'28060.60c -13.993')

7023 FORMAT (T9, '28061.60c -0.616')

7024 FORMAT (T9, '28062.60c -1.989')

7025 FORMAT(T9,'28064.60c -0.520')

9322 FORMAT(T9,'5010.50c -1.078E-3')

9323 FORMAT(T9,'5011.56c -4.925E-3')

9324 FORMAT(T9,'13027.S0c -0.500')

9325 FORMAT(T9,'22000.50c -0.900')

9326 FORMAT(T9,'27059.50c -1.000')

9327 FORMAT(T9,'29063.60c -0.205')

7026 FORMAT(T9,'29065.60c -0.095')

9328 FORMAT(T9,'41093.50c -2.563')

9329 FORMAT(T9,'42000.S0c -3.050')

9330 FORMAT(T9,'73181.50c -2.563')

RETURN END

Waste Package Operations Engineering Calculation Attachment

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment II, Page 1 of 1 This attachment contains the MACE input decks for the reactivity calculations for Sequoyah Unit 2.

The input decks are contained on an attachment tape of this calculation file (the attachment tape has been moved to Reference 7.13). The information contained in this hard-copy representation of Attachment II is a listing of the various MACE input deck files and their attributes. The file sizes listed in the following table are the file sizes as they appear on the Hewlett Packard (HP) Series 9000 workstation. The HP file sizes differ from the file sizes on the attachment tape due to the difference in the block sizes between the HP and the personal computer. The tape containing Attachment II was written using the Colorado Model TI000e External Parallel Port Backup System for personal computers.

Date File Filename File Type File Size (Bytes)

Copied to Tape seqila.txt ASCII 54,675 5120/98 seqi2a.txt ASCII 79,255 5120/98 seqi2b.txt . ASCII 79,255 5120/98 seqi2c.txt ASCII 79,255 5/20/98 seqi2d.txt ASCII 79,255 5/20/98 seqi3a.txt ASCII 79,256 5120/98 seqi3b.txt ASCII 79,256 5/20/98 seqi3c.txt ASCII 79,256 5/20/98 seqi3d.txt ASCII 79,256 5/20/98

Waste Package Operations Engineering Calculation Attachment

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment III, Page 1 of 1 This attachment contains the MCNP input decks for the reactivity calculations for Sequoyah Unit 2 that were generated by MACE. The input decks are contained on an attachment tape of this calculation file (the attachment tape has been moved to reference 7.13). The information contained in this hard-copy representation of Attachment III is a listing of the various MCNP input deck files and their attributes.

The file sizes listed in the following table are the file sizes as they appear on the Hewlett Packard (HP)

Series 9000 workstation. The HP file sizes differ from the file sizes on the attachment tape due to the difference in the block sizes between the HP and the personal computer. The tape containing Attachment III was written using the Colorado Model TI000e External Parallel Port Backup System for personal computers.

Date File Filename File Type File Size (Bytes)

Copied to Tape seqila ASCII 401,390 __ 5/20/98 seqi2a ASCII 1,472,183 5/20/98 seqi2b ASCII 989,847 5/20/98 seqi2c ASCII 814,199 5/20/98 seqi2d ASCII 767,736 5/20/98 seqi3a ASCII 1,458,355 5/20/98 seqi3b ASCII 989,847 5/20/98 seqi3c ASCII 814,199 5/20/98 seqi3d ASCII 767,735 5/20/98

Waste Package Operations Engineering Calculation Attachment

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-O1717-0210-00006 REV 00 Attachment IV, Page 1 of 1 This attachment contains the MeN!' butput files for the reactivity cillCl1iations for Sequoyah Unit 2. The output files are contained on an attachment tape of this calculation file (the attachment tape has b.een moved to Reference 7.13). The information contained in this hard-copy representation of Attachment IV is a listing of the various MCNP output files and their attributes. The file sizes listed in the following

. table are the file sizes as they appear on the Hewlett Packard (HP) Series 9000 workstation. The HP file sizes differ from the file sizes on the attachment tape due to the difference in the block sizes between the HP and the personal computer. The tape containing Attachment IV was written using the Colorado Model TI000e External Parallel Port Backup System for personal computers.

Date File Filename File Type File Size (Bytes)

Copied to Tape seqila.O ASCII 6,290,005 5120/98 seqi2a.O ASCII 13,000,922 5/20/98 seqi2b.O ASCII 10,041,780 5/20/98 seqi2c.O ASCII 8,752,372 5/20/98 seqi2d.O ASCII 8,690,897 5/20/98 seqi3a.O ASCII 12,993,251 5120/98 seqi3b.O ASCII 10,157,479 5120/98 seqi3c.O ASCII 8,929,202 5120/98 seqi3d.O ASCII 8,699,472 5120/98

Waste Package Operations ~ngineeringCalculation Attachment

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-021 0-00006 REV 00 Attachment V, Page 1 of 1 This attachment contains the revised MACE input files, MACE generated MCNP input files, and MCNP output files for the reactivity calculations for Sequoyah Unit 2. The files are contained on an attachment tape of this calculation file (the attachment tape has been moved to Reference 7.13). The information contained in this hard-copy representation of Attachment V is a listing of the revised MACE input files, MACE generated MCNP input files, MCNP output files, and their attributes. The file sizes listed in the following table are the file sizes as they appear on the Hewlett Packard (HP) Series 9000 workstation.

The HP file sizes differ from the file sizes on the attachment tape due to the difference in the block sizes between the HP and the personal computer. The tape containing Attachment V was written using the Colorado Model TlOOOe External Parallel Port Backup System for personal computers.The files are contained on an attachment tape ofthis calculation file. The information contained in this hard-copy representation of Attachment V is a listing of the various files and their attributes.

Date File Filename File Type File Size (Bytes)

Copied to Tape seqi3a.txt ASCII 79,260 5/20/98 seqi3b.txt ASCII 79,260 5/20/98 seqi3c.txt ASCII 79,260 5/20/98 seqi3d.txt ASCII 79,260 5/20/98 seqi3a ASCII 1,811,741 5/20/98 seqi3b ASCII 1,136,693 5/20/98 seqi3c ASCII 873,221 5/20/98 seqi3d ASCII 803,526 5/20/98 seqi3a.O ASCII 15,100,854 5/20/98 seqi3b.O ASCII 10,779,440 5/20/98 seqi3c.O ASCII 9,075,992 5/20/98 seqi3d.O ASCII 8,628,306 5/20/98

Waste Package Operations Engineering Calculation Attachment

Title:

CRC Reactivity Calculations for Sequoyah Unit 2 Document Identifier: BOOOOOOOO-01717-0210-00006 REV 00 . Attachment VI, Page 1 of 1 This attachment contains the revised MCNP input files and MCNP output files for the Principle Isotope fuel material reactivity calculations for Sequoyah Unit 2. The files are contained on an attachment tape of this calculation file (the attachment tape has been moved to Reference 7.13). The information contaitled in this hard-copy representation of Attachment VI is a listing of the revised MCNP input files, MCNP output files, and their attributes. The file sizes listed in the following table are the file sizes as they appear on the Hewlett Packard (HP) Series 9000 workstation. The HP file sizes differ from the file sizes on the attachment tape due to the difference in the block sizes between the HP and the personal computer. The tape containing Attachment VI was written using the Colorado Model TI000e External Parallel Port Backup System for personal computers. The files are contained on an attachment tape of this calculation file. The information contained in this hard-copy representation of Attachment VI is a listing ofthe various files and their attributes.

DateFUe Filename File Type File Size (Bytes)

Copied to Tape seqi2b ASCII 989,847 5/20/98 seqi3b ASCII 1,136,693 5120/98 seqi2b.O ASCII 10,101,506 5120/98 seqi3b.O ASCII 10,780,844 5120/98