From 83df2127417dd454376155ebd2e49d725f0e0f4c Mon Sep 17 00:00:00 2001 From: ChasingNeutrons Date: Wed, 22 Jan 2025 17:15:52 +0000 Subject: [PATCH 01/10] Fix to keff for MG scattering --- Tallies/TallyClerks/keffImplicitClerk_class.f90 | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/Tallies/TallyClerks/keffImplicitClerk_class.f90 b/Tallies/TallyClerks/keffImplicitClerk_class.f90 index 008c50e02..d7f4852dd 100644 --- a/Tallies/TallyClerks/keffImplicitClerk_class.f90 +++ b/Tallies/TallyClerks/keffImplicitClerk_class.f90 @@ -26,7 +26,7 @@ module keffImplicitClerk_class private - !! Locations of diffrent bins wrt memory Address of the clerk + !! Locations of different bins wrt memory Address of the clerk integer(shortInt), parameter :: MEM_SIZE = 5 integer(longInt), parameter :: IMP_PROD = 0 ,& ! Implicit neutron production (from fission) SCATTER_PROD = 1 ,& ! Analog Stattering production (N,XN) @@ -38,7 +38,7 @@ module keffImplicitClerk_class !! and on analog estimators of (N,XN) reactions and leakage !! !! Private Members: - !! targetSTD -> Target Standard Deviation for convergance check + !! targetSTD -> Target Standard Deviation for convergence check !! !! Interface: !! tallyClerk interface @@ -96,10 +96,10 @@ subroutine init(self, dict, name) ! Set name call self % setName(name) - ! Configure convergance trigger + ! Configure convergence trigger call dict % getOrDefault(chr,'trigger','no') - ! Read convergance target + ! Read convergence target if( charCmp(chr,'yes')) then call dict % get(self % targetSTD,'SDtarget') @@ -126,7 +126,7 @@ elemental subroutine kill(self) end subroutine kill !! - !! Returns array of codes that represent diffrent reports + !! Returns array of codes that represent different reports !! !! See tallyClerk_inter for details !! @@ -225,7 +225,7 @@ subroutine reportOutColl(self, p, MT, muL, xsData, mem) score = 2.0_defReal * p % preCollision % wgt case(N_4N) score = 3.0_defReal * p % preCollision % wgt - case(macroAllScatter) ! Catch weight change for MG scattering + case(macroAllScatter, macroIEScatter) ! Catch weight change for MG scattering score = max(p % w - p % preCollision % wgt, ZERO) case default score = ZERO @@ -289,7 +289,7 @@ subroutine reportCycleEnd(self, end, mem) end subroutine reportCycleEnd !! - !! Perform convergance check in the Clerk + !! Perform convergence check in the Clerk !! !! See tallyClerk_inter for details !! @@ -306,7 +306,7 @@ function isConverged(self, mem) result(isIt) end function isConverged !! - !! Display convergance progress on the console + !! Display convergence progress on the console !! !! See tallyClerk_inter for details !! From 0791fe251f443601ed3b11332c7ac187d5ab13c4 Mon Sep 17 00:00:00 2001 From: ChasingNeutrons Date: Thu, 6 Feb 2025 19:15:33 +0000 Subject: [PATCH 02/10] BEAVRS_HZP and geometry fixes Added in the BEAVRS model with the D-bank partially inserted. Also fixed a flaw in the geometry where the outermost cell was defined such that there could be a rare particle lost between it and the geometry boundary. --- InputFiles/Benchmarks/BEAVRS/BEAVRS2D | 3 +- .../Benchmarks/BEAVRS/{BEAVRS => BEAVRS_ARO} | 9 +- InputFiles/Benchmarks/BEAVRS/BEAVRS_HZP | 2410 +++++++++++++++++ 3 files changed, 2416 insertions(+), 6 deletions(-) rename InputFiles/Benchmarks/BEAVRS/{BEAVRS => BEAVRS_ARO} (97%) create mode 100644 InputFiles/Benchmarks/BEAVRS/BEAVRS_HZP diff --git a/InputFiles/Benchmarks/BEAVRS/BEAVRS2D b/InputFiles/Benchmarks/BEAVRS/BEAVRS2D index 0ace8d16c..899a59c71 100644 --- a/InputFiles/Benchmarks/BEAVRS/BEAVRS2D +++ b/InputFiles/Benchmarks/BEAVRS/BEAVRS2D @@ -114,7 +114,8 @@ geometry { thickGrid {type simpleCell; id 55; surfaces (90 -91); filltype mat; material Inconel;} thinGrid {type simpleCell; id 56; surfaces (-92 93); filltype mat; material Inconel;} - pressureVessel { type simpleCell; id 7; surfaces (-1 2); filltype mat; material CarbonSteel;} + ! Does not use surface 1 to define it as that bounds the geometry + pressureVessel { type simpleCell; id 7; surfaces (2); filltype mat; material CarbonSteel;} RPVLiner { type simpleCell; id 8; surfaces (-2 3); filltype mat; material SS304;} outerWater1 {type simpleCell; id 9; surfaces (-3 4 ); filltype mat; material Water;} diff --git a/InputFiles/Benchmarks/BEAVRS/BEAVRS b/InputFiles/Benchmarks/BEAVRS/BEAVRS_ARO similarity index 97% rename from InputFiles/Benchmarks/BEAVRS/BEAVRS rename to InputFiles/Benchmarks/BEAVRS/BEAVRS_ARO index 52e5cb575..dd3ed25c5 100644 --- a/InputFiles/Benchmarks/BEAVRS/BEAVRS +++ b/InputFiles/Benchmarks/BEAVRS/BEAVRS_ARO @@ -3,14 +3,12 @@ !! This is not a fully faithful replica of BEAVRS at HZP: !! all rods are fully withdrawn. !! In reality, some rods are partially inserted. -!! TODO: add rods in the appropriate assemblies at the -!! correct heights! !! type eigenPhysicsPackage; -pop 10000000; +pop 1000000; active 50; -inactive 200; +inactive 150; XSdata ce; dataType ce; @@ -216,7 +214,8 @@ geometry { thickGrid {type simpleCell; id 555; surfaces (90 ); filltype mat; material Inconel;} thinGrid {type simpleCell; id 556; surfaces (92 ); filltype mat; material Zircaloy;} - pressureVessel { type simpleCell; id 7; surfaces (-1 2); filltype mat; material CarbonSteel;} + // Don't need to bound PV by 1 since it is the bounding surface of the geometry. + pressureVessel { type simpleCell; id 7; surfaces ( 2); filltype mat; material CarbonSteel;} RPVLiner { type simpleCell; id 8; surfaces (-2 3); filltype mat; material SS304;} outerWater1 {type simpleCell; id 9; surfaces (-3 4 ); filltype mat; material Water;} diff --git a/InputFiles/Benchmarks/BEAVRS/BEAVRS_HZP b/InputFiles/Benchmarks/BEAVRS/BEAVRS_HZP new file mode 100644 index 000000000..5a740ce28 --- /dev/null +++ b/InputFiles/Benchmarks/BEAVRS/BEAVRS_HZP @@ -0,0 +1,2410 @@ +!! +!! 3D BEAVRS benchmark +!! At HZP, the D bank of rods is partially inserted up +!! to 115 steps inserted / 113 steps withdrawn. +!! A step corresponds to an increment of 1.58193cm +!! +type eigenPhysicsPackage; + +pop 1000000; +active 50; +inactive 250; +XSdata ce; +dataType ce; + +collisionOperator { neutronCE {type neutronCEstd;}} + +transportOperator { + !type transportOperatorDT; + type transportOperatorHT; cache 1; + } + +inactiveTally { + shannon { + type shannonEntropyClerk; + map {type multiMap; + maps (xax yax zax); + xax { type spaceMap; grid lin; min -161.2773; max 161.2773; N 15; axis x;} + yax { type spaceMap; grid lin; min -161.2773; max 161.2773; N 15; axis y;} + zax { type spaceMap; grid lin; min 36.748; max 402.508; N 15; axis z;} + } + cycles 200; + } + +} + +activeTally { + pinFissRadial { type collisionClerk; response (fission); fission { type macroResponse; MT -6;} + map {type multiMap; maps (xax yax); + xax {type spaceMap; axis x; grid lin; N 255; min -161.2773; max 161.2773; } + yax {type spaceMap; axis y; grid lin; N 255; min -161.2773; max 161.2773; } + } + } + assemblyFissRadial { type collisionClerk; response (fission); fission { type macroResponse; MT -6;} + map {type multiMap; maps (xax yax); + xax {type spaceMap; axis x; grid lin; N 15; min -161.2773; max 161.2773; } + yax {type spaceMap; axis y; grid lin; N 15; min -161.2773; max 161.2773; } + } + } + fissionAxial { type collisionClerk; response (fission); fission { type macroResponse; MT -6;} + map {type spaceMap; axis z; grid lin; N 60; min 36.748; max 402.508;} + } + fissionYZ { type collisionClerk; response (fission); fission { type macroResponse; MT -6;} + map {type multiMap; maps (yax zax); + yax {type spaceMap; axis y; grid lin; N 255; min -161.2773; max 161.2773; } + zax {type spaceMap; axis z; grid lin; N 60; min 36.748; max 402.508;} + } + } +} + +geometry { + type geometryStd; + boundary ( 0 0 0 0 0 0); + graph {type shrunk;} + + surfaces { + + // thickness specifications for RPV and RPV liner + outerRPV { id 1; type zTruncCylinder; radius 241.3; origin (0.0 0.0 230.0); halfwidth 230; } + innerRPV { id 2; type zCylinder; radius 219.710; origin (0.0 0.0 0.0); } + innerRPVLiner { id 3; type zCylinder; radius 219.150; origin (0.0 0.0 0.0); } + + // thickness specifications for neutron shield + outerBoundNS { id 4; type zCylinder; radius 201.630; origin (0.0 0.0 0.0); } + innerBoundNS { id 5; type zCylinder; radius 194.84; origin (0.0 0.0 0.0); } + + // thickness specifications for core barrel + outerCoreBarrel { id 6; type zCylinder; radius 193.675; origin (0.0 0.0 0.0); } + innerCoreBarrel { id 7; type zCylinder; radius 187.96; origin (0.0 0.0 0.0); } + + // four planes that intersect to bound the Neutron shield panel + P1 { id 8; type plane; coeffs (-0.48480962025 0.87461970714 0.0 0.0);} + P2 { id 9; type plane; coeffs (-0.87461970714 0.48480962025 0.0 0.0);} + P3 { id 10; type plane; coeffs (-0.87461970714 -0.48480962025 0.0 0.0);} + P4 { id 11; type plane; coeffs (-0.48480962025 -0.87461970714 0.0 0.0);} + + // bounding widths for baffle on various sides + // right & left refers to the side of the reactor that it is on + // close/away refers to its location in relation to the LATTICE it is a part of + // (NOT the reactor itself) + rightClose { id 50; type plane; coeffs (1.0 0.0 0.0 8.36662);} + rightAway { id 51; type plane; coeffs (1.0 0.0 0.0 10.58912);} + leftClose { id 52; type plane; coeffs (-1.0 0.0 0.0 8.36662);} + leftAway { id 53; type plane; coeffs (-1.0 0.0 0.0 10.58912);} + bottomClose { id 54; type plane; coeffs (0.0 -1.0 0.0 8.36662);} + bottomAway { id 55; type plane; coeffs (0.0 -1.0 0.0 10.58912);} + topClose { id 56; type plane; coeffs (0.0 1.0 0.0 8.36662);} + topAway { id 57; type plane; coeffs (0.0 1.0 0.0 10.58912);} + + // thickness specifications for grid with thickness of 0.0198cm (Inconel) + pinThickGridInner { id 90; type zSquareCylinder; origin (0.0 0.0 0.0); halfwidth (0.61015 0.61015 0.0); } + pinThickGridOuter { id 91; type zSquareCylinder; origin (0.0 0.0 0.0); halfwidth (0.62992 0.62992 0.0); } + + // thickness specifications for grid with thickness of 0.0194cm (Zircaloy) + pinThinGridInner { id 92; type zSquareCylinder; origin (0.0 0.0 0.0); halfwidth (0.61049 0.61049 0.0); } + pinThinGridOuter { id 93; type zSquareCylinder; origin (0.0 0.0 0.0); halfwidth (0.62992 0.62992 0.0); } + + // inner and outer surfaces of assembly sleeves (both SS and Zircaloy) + assemblySleeveInner { id 94; type zSquareCylinder; origin (0.0 0.0 0.0); halfwidth (10.70864 10.70864 0.0); } + assemblySleeveOuter { id 95; type zSquareCylinder; origin (0.0 0.0 0.0); halfwidth (10.74798 10.74798 0.0); } + + + // Axial planes across core height + // Names are based on axial heights + plane460 { id 100; type plane; coeffs (0.0 0.0 1.0 460.0 ); } + plane431p876 { id 101; type plane; coeffs (0.0 0.0 1.0 431.876); } + plane423p049 { id 102; type plane; coeffs (0.0 0.0 1.0 423.049); } + plane421p532 { id 103; type plane; coeffs (0.0 0.0 1.0 421.532); } + plane419p704 { id 104; type plane; coeffs (0.0 0.0 1.0 419.704); } + plane417p164 { id 105; type plane; coeffs (0.0 0.0 1.0 417.164); } + plane415p164 { id 106; type plane; coeffs (0.0 0.0 1.0 415.164); } + plane411p806 { id 107; type plane; coeffs (0.0 0.0 1.0 411.806); } + plane403p778 { id 108; type plane; coeffs (0.0 0.0 1.0 403.778); } + plane402p508 { id 109; type plane; coeffs (0.0 0.0 1.0 402.508); } + plane401p238 { id 110; type plane; coeffs (0.0 0.0 1.0 401.238); } + plane364p725 { id 111; type plane; coeffs (0.0 0.0 1.0 364.725); } + plane359p01 { id 112; type plane; coeffs (0.0 0.0 1.0 359.01 ); } + plane312p528 { id 113; type plane; coeffs (0.0 0.0 1.0 312.528); } + plane306p813 { id 114; type plane; coeffs (0.0 0.0 1.0 306.813); } + plane260p331 { id 115; type plane; coeffs (0.0 0.0 1.0 260.331); } + plane254p616 { id 116; type plane; coeffs (0.0 0.0 1.0 254.616); } + plane208p134 { id 117; type plane; coeffs (0.0 0.0 1.0 208.134); } + plane202p419 { id 118; type plane; coeffs (0.0 0.0 1.0 202.419); } + plane155p937 { id 119; type plane; coeffs (0.0 0.0 1.0 155.937); } + plane150p222 { id 120; type plane; coeffs (0.0 0.0 1.0 150.222); } + plane143p428 { id 121; type plane; coeffs (0.0 0.0 1.0 143.428); } + plane103p74 { id 122; type plane; coeffs (0.0 0.0 1.0 103.74 ); } + plane98p025 { id 123; type plane; coeffs (0.0 0.0 1.0 98.025 ); } + plane41p828 { id 124; type plane; coeffs (0.0 0.0 1.0 41.828 ); } + plane40p558 { id 125; type plane; coeffs (0.0 0.0 1.0 40.558 ); } + plane40p52 { id 126; type plane; coeffs (0.0 0.0 1.0 40.52 ); } + plane39p958 { id 127; type plane; coeffs (0.0 0.0 1.0 39.958 ); } + plane38p66 { id 128; type plane; coeffs (0.0 0.0 1.0 38.66 ); } + plane37p1621 { id 129; type plane; coeffs (0.0 0.0 1.0 37.1621); } + plane36p748 { id 130; type plane; coeffs (0.0 0.0 1.0 36.748 ); } + plane35 { id 131; type plane; coeffs (0.0 0.0 1.0 35.0 ); } + plane20 { id 132; type plane; coeffs (0.0 0.0 1.0 20.0 ); } + plane0 { id 133; type plane; coeffs (0.0 0.0 1.0 0.0 ); } + + planeSteelBottom { id 134; type plane; coeffs (0.0 0.0 1.0 400.638); } + planeCRLowerBottom { id 135; type plane; coeffs (0.0 0.0 1.0 402.508); } // same as 109 on withdrawal + planeCRUpperBottom { id 136; type plane; coeffs (0.0 0.0 1.0 504.108); } // out of core on withdrawal + + plane322p1861 {id 137; type plane; coeffs (0 0 1 322.18609);} + plane220p586 {id 138; type plane; coeffs (0 0 1 220.5861);} + plane218p716 {id 139; type plane; coeffs (0 0 1 218.71609);} + + } + + cells { + + // assembly wrappers and surrounding water at various heights + wrapper1 {type simpleCell; id 2001; surfaces (94 -95 129 -126); filltype mat; material SS304;} + wrapper2 {type simpleCell; id 2002; surfaces (94 -95 123 -122); filltype mat; material Zircaloy;} + wrapper3 {type simpleCell; id 2003; surfaces (94 -95 120 -119); filltype mat; material Zircaloy;} + wrapper4 {type simpleCell; id 2004; surfaces (94 -95 118 -117); filltype mat; material Zircaloy;} + wrapper5 {type simpleCell; id 2005; surfaces (94 -95 116 -115); filltype mat; material Zircaloy;} + wrapper6 {type simpleCell; id 2006; surfaces (94 -95 114 -113); filltype mat; material Zircaloy;} + wrapper7 {type simpleCell; id 2007; surfaces (94 -95 112 -111); filltype mat; material Zircaloy;} + wrapper8 {type simpleCell; id 2008; surfaces (94 -95 107 -106); filltype mat; material SS304;} + + assemWater0 {type simpleCell; id 2009; surfaces (94 -129); filltype mat; material Water;} + assemWater1 {type simpleCell; id 2010; surfaces (94 -95 126 -123); filltype mat; material Water;} + assemWater2 {type simpleCell; id 2011; surfaces (94 -95 122 -120); filltype mat; material Water;} + assemWater3 {type simpleCell; id 2012; surfaces (94 -95 119 -118); filltype mat; material Water;} + assemWater4 {type simpleCell; id 2013; surfaces (94 -95 117 -116); filltype mat; material Water;} + assemWater5 {type simpleCell; id 2014; surfaces (94 -95 115 -114); filltype mat; material Water;} + assemWater6 {type simpleCell; id 2015; surfaces (94 -95 113 -112); filltype mat; material Water;} + assemWater7 {type simpleCell; id 2016; surfaces (94 -95 111 -107); filltype mat; material Water;} + assemWater8 {type simpleCell; id 2017; surfaces (94 -95 106); filltype mat; material Water;} + assemWaterEx {type simpleCell; id 2018; surfaces (95); filltype mat; material Water;} + + // assemblies inside the wrappers + assem1424 {type simpleCell; id 2019; surfaces (-94); filltype uni; universe 1424;} + assem1416 {type simpleCell; id 2020; surfaces (-94); filltype uni; universe 1416;} + assem1431 {type simpleCell; id 2021; surfaces (-94); filltype uni; universe 1431;} + assem60316 {type simpleCell; id 2022; surfaces (-94); filltype uni; universe 60316;} + assem603112 {type simpleCell; id 2023; surfaces (-94); filltype uni; universe 603112;} + assem60313 {type simpleCell; id 2024; surfaces (-94); filltype uni; universe 60313;} + assem60319 {type simpleCell; id 2025; surfaces (-94); filltype uni; universe 60319;} + assem15315 {type simpleCell; id 2026; surfaces (-94); filltype uni; universe 15315;} + assem15317 {type simpleCell; id 2027; surfaces (-94); filltype uni; universe 15317;} + assem15311 {type simpleCell; id 2028; surfaces (-94); filltype uni; universe 15311;} + assem153111 {type simpleCell; id 2029; surfaces (-94); filltype uni; universe 153111;} + assem1631 {type simpleCell; id 2030; surfaces (-94); filltype uni; universe 1631;} + assem2031 {type simpleCell; id 2031; surfaces (-94); filltype uni; universe 2031;} + assem1224 {type simpleCell; id 2032; surfaces (-94); filltype uni; universe 1224;} + assem1624 {type simpleCell; id 2033; surfaces (-94); filltype uni; universe 1624;} + + // unrodded assemblies in wrappers + assem2424 {type simpleCell; id 2034; surfaces (-94); filltype uni; universe 2424;} + assem2416 {type simpleCell; id 2035; surfaces (-94); filltype uni; universe 2416;} + assem2431 {type simpleCell; id 2036; surfaces (-94); filltype uni; universe 2431;} + assem70316 {type simpleCell; id 2037; surfaces (-94); filltype uni; universe 70316;} + assem703112 {type simpleCell; id 2038; surfaces (-94); filltype uni; universe 703112;} + assem70313 {type simpleCell; id 2039; surfaces (-94); filltype uni; universe 70313;} + assem70319 {type simpleCell; id 2040; surfaces (-94); filltype uni; universe 70319;} + assem25315 {type simpleCell; id 2041; surfaces (-94); filltype uni; universe 25315;} + assem25317 {type simpleCell; id 2042; surfaces (-94); filltype uni; universe 25317;} + assem25311 {type simpleCell; id 2043; surfaces (-94); filltype uni; universe 25311;} + assem253111 {type simpleCell; id 2044; surfaces (-94); filltype uni; universe 253111;} + assem2631 {type simpleCell; id 2045; surfaces (-94); filltype uni; universe 2631;} + assem3031 {type simpleCell; id 2046; surfaces (-94); filltype uni; universe 3031;} + assem2224 {type simpleCell; id 2047; surfaces (-94); filltype uni; universe 2224;} + assem2624 {type simpleCell; id 2048; surfaces (-94); filltype uni; universe 2624;} + + // rodded assemblies in wrappers + assem1425 {type simpleCell; id 2049; surfaces (-94); filltype uni; universe 1425;} + assem1417 {type simpleCell; id 2050; surfaces (-94); filltype uni; universe 1417;} + + // pin grids - thick at the top and bottom, thin in fuelled region + thickGrid {type simpleCell; id 555; surfaces (90 ); filltype mat; material Inconel;} + thinGrid {type simpleCell; id 556; surfaces (92 ); filltype mat; material Zircaloy;} + + // Don't need to bound PV by 1 since it is the bounding surface of the geometry. + pressureVessel { type simpleCell; id 7; surfaces (2); filltype mat; material CarbonSteel;} + RPVLiner { type simpleCell; id 8; surfaces (-2 3); filltype mat; material SS304;} + outerWater1 {type simpleCell; id 9; surfaces (-3 4 ); filltype mat; material Water;} + + // Neutron shields + NS1 { type simpleCell; id 10; surfaces (-4 5 -8 9); filltype mat; material SS304;} + NS2 { type simpleCell; id 11; surfaces (-4 5 8 -9); filltype mat; material SS304;} + NS3 { type simpleCell; id 12; surfaces (-4 5 -10 11); filltype mat; material SS304;} + NS4 { type simpleCell; id 13; surfaces (-4 5 10 -11); filltype mat; material SS304;} + + // Water in the arc between neutron shields + outerWaterSeg1 {type simpleCell; id 14; surfaces (-4 5 ); filltype mat; material Water;} + outerWater2 {type simpleCell; id 15; surfaces (-5 6 ); filltype mat; material Water;} + + // Outer core + coreBarrel { type simpleCell; id 16; surfaces (-6 7); filltype mat; material SS304;} + core {type simpleCell; id 17; surfaces (-5); filltype uni; universe 9999;} + + + // Gridded pins + + // THICK GRID + // 2.4% in grid + grid24Thick {type simpleCell; id 253; surfaces (-90); filltype uni; universe 24000;} + // guide tube in grid + gridGTThick {type simpleCell; id 254; surfaces (-90); filltype uni; universe 12000;} + // 3.1% in grid + grid31Thick {type simpleCell; id 255; surfaces (-90); filltype uni; universe 31000;} + // 1.6 % in grid + grid16Thick {type simpleCell; id 256; surfaces (-90); filltype uni; universe 16000;} + // instrumentation tube in grid + gridITThick {type simpleCell; id 257; surfaces (-90); filltype uni; universe 14000;} + // empty GT at dashpot in grid + gridGTDPThick {type simpleCell; id 258; surfaces (-90); filltype uni; universe 1010;} + // pin upper fuel plenum in grid + gridFPPThick {type simpleCell; id 259; surfaces (-90); filltype uni; universe 1008;} + // stainless steel in guide tube in grid + gridSSGThick {type simpleCell; id 260; surfaces (-90); filltype uni; universe 1023;} + // stainless steel in dash pot in grid + gridSSDPThick {type simpleCell; id 261; surfaces (-90); filltype uni; universe 1024;} + // BP plenum in grid + gridBPPThick {type simpleCell; id 262; surfaces (-90); filltype uni; universe 1012;} + // Lower rodded GT in grid + gridLRGTThick {type simpleCell; id 263; surfaces (-90); filltype uni; universe 1014;} + // Upper rodded GT in grid + gridURGTThick {type simpleCell; id 463; surfaces (-90); filltype uni; universe 1013;} + + // THIN GRID + // 2.4% in grid + grid24Thin {type simpleCell; id 264; surfaces (-92); filltype uni; universe 24000;} + // guide tube in grid + gridGTThin {type simpleCell; id 265; surfaces (-92); filltype uni; universe 12000;} + // burnable poison in grid + gridBPThin {type simpleCell; id 266; surfaces (-92); filltype uni; universe 1000;} + // 3.1% in grid + grid31Thin {type simpleCell; id 267; surfaces (-92); filltype uni; universe 31000;} + // 1.6 % in grid + grid16Thin {type simpleCell; id 268; surfaces (-92); filltype uni; universe 16000;} + // instrumentation tube in grid + gridITThin {type simpleCell; id 269; surfaces (-92); filltype uni; universe 14000;} + // empty GT at dashpot in grid + gridGTDPThin {type simpleCell; id 270; surfaces (-92); filltype uni; universe 1010;} + // pin upper fuel plenum in grid + gridFPPThin {type simpleCell; id 271; surfaces (-92); filltype uni; universe 1008;} + // stainless steel in guide tube in grid + gridSSGTThin {type simpleCell; id 272; surfaces (-92); filltype uni; universe 1023;} + // stainless steel in dash pot in grid + gridSSDPThin {type simpleCell; id 273; surfaces (-92); filltype uni; universe 1024;} + // BP plenum in grid + gridBPPThin {type simpleCell; id 274; surfaces (-92); filltype uni; universe 1012;} + // Lower rodded GT in grid (not used when rods fully withdrawn) + gridLRGTThin {type simpleCell; id 275; surfaces (-92); filltype uni; universe 1014;} + // Upper rodded GT in grid (not used when rods fully withdrawn) + gridURGTThin {type simpleCell; id 475; surfaces (-92); filltype uni; universe 1013;} + + + // 3.1% enriched pins, axial layering + 31FP460 {type simpleCell; id 100; surfaces ( 101); filltype uni; universe 1001;} + 31FP431 {type simpleCell; id 101; surfaces (-101 102); filltype uni; universe 1003;} + 31FP423 {type simpleCell; id 102; surfaces (-102 104); filltype uni; universe 1001;} + 31FP419 {type simpleCell; id 103; surfaces (-104 105); filltype uni; universe 1006;} + 31FP417 {type simpleCell; id 104; surfaces (-105 106); filltype uni; universe 1008;} + 31FP415 {type simpleCell; id 105; surfaces (-106 107); filltype uni; universe 1017;} + 31FP411 {type simpleCell; id 106; surfaces (-107 109); filltype uni; universe 1008;} + 31FP402 {type simpleCell; id 107; surfaces (-109 111); filltype uni; universe 31000;} + 31FP364 {type simpleCell; id 108; surfaces (-111 112); filltype uni; universe 9231;} + 31FP359 {type simpleCell; id 109; surfaces (-112 113); filltype uni; universe 31000;} + 31FP312 {type simpleCell; id 110; surfaces (-113 114); filltype uni; universe 9231;} + 31FP306 {type simpleCell; id 111; surfaces (-114 115); filltype uni; universe 31000;} + 31FP260 {type simpleCell; id 112; surfaces (-115 116); filltype uni; universe 9231;} + 31FP254 {type simpleCell; id 113; surfaces (-116 117); filltype uni; universe 31000;} + 31FP208 {type simpleCell; id 114; surfaces (-117 118); filltype uni; universe 9231;} + 31FP202 {type simpleCell; id 115; surfaces (-118 119); filltype uni; universe 31000;} + 31FP155 {type simpleCell; id 116; surfaces (-119 120); filltype uni; universe 9231;} + 31FP150 {type simpleCell; id 117; surfaces (-120 122); filltype uni; universe 31000;} + 31FP103 {type simpleCell; id 118; surfaces (-122 123); filltype uni; universe 9231;} + 31FP98 {type simpleCell; id 119; surfaces (-123 126); filltype uni; universe 31000;} + 31FP4052 {type simpleCell; id 120; surfaces (-126 129); filltype uni; universe 1131;} + 31FP37 {type simpleCell; id 121; surfaces (-129 130); filltype uni; universe 31000;} + 31FP36 {type simpleCell; id 122; surfaces (-130 131); filltype uni; universe 1006;} + 31FP35 {type simpleCell; id 123; surfaces (-131 132); filltype uni; universe 1003;} + 31FP20 {type simpleCell; id 124; surfaces (-132 ); filltype uni; universe 1001;} + + + //2.4% enriched pins, axial layering + 24FP460 {type simpleCell; id 125; surfaces ( 101); filltype uni; universe 1001;} + 24FP431 {type simpleCell; id 126; surfaces (-101 102); filltype uni; universe 1003;} + 24FP423 {type simpleCell; id 127; surfaces (-102 104); filltype uni; universe 1001;} + 24FP419 {type simpleCell; id 128; surfaces (-104 105); filltype uni; universe 1006;} + 24FP417 {type simpleCell; id 129; surfaces (-105 106); filltype uni; universe 1008;} + 24FP415 {type simpleCell; id 130; surfaces (-106 107); filltype uni; universe 1017;} + 24FP411 {type simpleCell; id 131; surfaces (-107 109); filltype uni; universe 1008;} + 24FP402 {type simpleCell; id 132; surfaces (-109 111); filltype uni; universe 24000;} + 24FP364 {type simpleCell; id 133; surfaces (-111 112); filltype uni; universe 9224;} + 24FP359 {type simpleCell; id 134; surfaces (-112 113); filltype uni; universe 24000;} + 24FP312 {type simpleCell; id 135; surfaces (-113 114); filltype uni; universe 9224;} + 24FP306 {type simpleCell; id 136; surfaces (-114 115); filltype uni; universe 24000;} + 24FP260 {type simpleCell; id 137; surfaces (-115 116); filltype uni; universe 9224;} + 24FP254 {type simpleCell; id 138; surfaces (-116 117); filltype uni; universe 24000;} + 24FP208 {type simpleCell; id 139; surfaces (-117 118); filltype uni; universe 9224;} + 24FP202 {type simpleCell; id 140; surfaces (-118 119); filltype uni; universe 24000;} + 24FP155 {type simpleCell; id 141; surfaces (-119 120); filltype uni; universe 9224;} + 24FP150 {type simpleCell; id 142; surfaces (-120 122); filltype uni; universe 24000;} + 24FP103 {type simpleCell; id 143; surfaces (-122 123); filltype uni; universe 9224;} + 24FP98 {type simpleCell; id 144; surfaces (-123 126); filltype uni; universe 24000;} + 24FP4052 {type simpleCell; id 145; surfaces (-126 129); filltype uni; universe 1124;} + 24FP37 {type simpleCell; id 146; surfaces (-129 130); filltype uni; universe 24000;} + 24FP36 {type simpleCell; id 147; surfaces (-130 131); filltype uni; universe 1006;} + 24FP35 {type simpleCell; id 148; surfaces (-131 132); filltype uni; universe 1003;} + 24FP20 {type simpleCell; id 149; surfaces (-132); filltype uni; universe 1001;} + + //1.6% enriched pins, axial layering + 16FP460 {type simpleCell; id 150; surfaces ( 101); filltype uni; universe 1001;} + 16FP431 {type simpleCell; id 151; surfaces (-101 102); filltype uni; universe 1003;} + 16FP423 {type simpleCell; id 152; surfaces (-102 104); filltype uni; universe 1001;} + 16FP419 {type simpleCell; id 153; surfaces (-104 105); filltype uni; universe 1006;} + 16FP417 {type simpleCell; id 154; surfaces (-105 106); filltype uni; universe 1008;} + 16FP415 {type simpleCell; id 155; surfaces (-106 107); filltype uni; universe 1017;} + 16FP411 {type simpleCell; id 156; surfaces (-107 109); filltype uni; universe 1008;} + 16FP402 {type simpleCell; id 157; surfaces (-109 111); filltype uni; universe 16000;} + 16FP364 {type simpleCell; id 158; surfaces (-111 112); filltype uni; universe 9216;} + 16FP359 {type simpleCell; id 159; surfaces (-112 113); filltype uni; universe 16000;} + 16FP312 {type simpleCell; id 160; surfaces (-113 114); filltype uni; universe 9216;} + 16FP306 {type simpleCell; id 161; surfaces (-114 115); filltype uni; universe 16000;} + 16FP260 {type simpleCell; id 162; surfaces (-115 116); filltype uni; universe 9216;} + 16FP254 {type simpleCell; id 163; surfaces (-116 117); filltype uni; universe 16000;} + 16FP208 {type simpleCell; id 164; surfaces (-117 118); filltype uni; universe 9216;} + 16FP202 {type simpleCell; id 165; surfaces (-118 119); filltype uni; universe 16000;} + 16FP155 {type simpleCell; id 166; surfaces (-119 120); filltype uni; universe 9216;} + 16FP150 {type simpleCell; id 167; surfaces (-120 122); filltype uni; universe 16000;} + 16FP103 {type simpleCell; id 168; surfaces (-122 123); filltype uni; universe 9216;} + 16FP98 {type simpleCell; id 169; surfaces (-123 126); filltype uni; universe 16000;} + 16FP4052 {type simpleCell; id 170; surfaces (-126 129); filltype uni; universe 1116;} + 16FP37 {type simpleCell; id 171; surfaces (-129 130); filltype uni; universe 16000;} + 16FP36 {type simpleCell; id 172; surfaces (-130 131); filltype uni; universe 1006;} + 16FP35 {type simpleCell; id 173; surfaces (-131 132); filltype uni; universe 1003;} + 16FP20 {type simpleCell; id 174; surfaces (-132); filltype uni; universe 1001;} + + + //guide tube, with CR, axial layering + GC460 {type simpleCell; id 175; surfaces ( 101); filltype uni; universe 1014;} + GC431 {type simpleCell; id 176; surfaces (-101 106); filltype uni; universe 1014;} // Nozzle/support plate BW? Replaced just with rod + GC415 {type simpleCell; id 177; surfaces (-106 107); filltype uni; universe 1018;} // Rodded w/ grid + GC411 {type simpleCell; id 178; surfaces (-107 109); filltype uni; universe 1014;} + GC402 {type simpleCell; id 179; surfaces (-109 134); filltype uni; universe 1015;} + GC400 {type simpleCell; id 180; surfaces (-134 111); filltype uni; universe 12000;} + GC364 {type simpleCell; id 181; surfaces (-111 112); filltype uni; universe 9112;} + GC359 {type simpleCell; id 182; surfaces (-112 113); filltype uni; universe 12000;} + GC312 {type simpleCell; id 183; surfaces (-113 114); filltype uni; universe 9112;} + GC306 {type simpleCell; id 184; surfaces (-114 115); filltype uni; universe 12000;} + GC260 {type simpleCell; id 185; surfaces (-115 116); filltype uni; universe 9112;} + GC254 {type simpleCell; id 186; surfaces (-116 117); filltype uni; universe 12000;} + GC208 {type simpleCell; id 187; surfaces (-117 118); filltype uni; universe 9112;} + GC202 {type simpleCell; id 188; surfaces (-118 119); filltype uni; universe 12000;} + GC155 {type simpleCell; id 189; surfaces (-119 120); filltype uni; universe 9112;} + GC150 {type simpleCell; id 190; surfaces (-120 122); filltype uni; universe 12000;} + GC103 {type simpleCell; id 191; surfaces (-122 123); filltype uni; universe 9112;} + GC98 {type simpleCell; id 192; surfaces (-123 126); filltype uni; universe 1010;} + GC4052 {type simpleCell; id 193; surfaces (-126 127); filltype uni; universe 12000;} + GC39 {type simpleCell; id 194; surfaces (-127 129); filltype uni; universe 1019;} + GC37 {type simpleCell; id 195; surfaces (-129 131); filltype uni; universe 1010;} + GC35 {type simpleCell; id 196; surfaces (-131 132); filltype uni; universe 1005;} + GC20 {type simpleCell; id 197; surfaces (-132); filltype uni; universe 1001;} + + + // instrumentation tube, axial layering + IT460 {type simpleCell; id 198; surfaces ( 102); filltype uni; universe 1001;} + IT423 {type simpleCell; id 199; surfaces (-102 106); filltype uni; universe 14000;} + IT415 {type simpleCell; id 200; surfaces (-106 107); filltype uni; universe 1114;} + IT411 {type simpleCell; id 201; surfaces (-107 111); filltype uni; universe 14000;} + IT364 {type simpleCell; id 202; surfaces (-111 112); filltype uni; universe 9114;} + IT359 {type simpleCell; id 203; surfaces (-112 113); filltype uni; universe 14000;} + IT312 {type simpleCell; id 204; surfaces (-113 114); filltype uni; universe 9114;} + IT306 {type simpleCell; id 205; surfaces (-114 115); filltype uni; universe 14000;} + IT260 {type simpleCell; id 206; surfaces (-115 116); filltype uni; universe 9114;} + IT254 {type simpleCell; id 207; surfaces (-116 117); filltype uni; universe 14000;} + IT208 {type simpleCell; id 208; surfaces (-117 118); filltype uni; universe 9114;} + IT202 {type simpleCell; id 209; surfaces (-118 119); filltype uni; universe 14000;} + IT155 {type simpleCell; id 210; surfaces (-119 120); filltype uni; universe 9114;} + IT150 {type simpleCell; id 211; surfaces (-120 122); filltype uni; universe 14000;} + IT103 {type simpleCell; id 212; surfaces (-122 123); filltype uni; universe 9114;} + IT98 {type simpleCell; id 213; surfaces (-123 126); filltype uni; universe 14000;} + IT4052 {type simpleCell; id 214; surfaces (-126 129); filltype uni; universe 1114;} + IT37 {type simpleCell; id 215; surfaces (-129 131); filltype uni; universe 14000;} + IT35 {type simpleCell; id 216; surfaces (-131 132); filltype uni; universe 1005;} + IT20 {type simpleCell; id 217; surfaces (-132 ); filltype uni; universe 1011;} + + + // burnable absorber, axial layering + BA460 {type simpleCell; id 218; surfaces ( 101); filltype uni; universe 1001;} + BA431 {type simpleCell; id 219; surfaces (-101 102); filltype uni; universe 1002;} + BA423 {type simpleCell; id 220; surfaces (-102 103); filltype uni; universe 1023;} + BA421 {type simpleCell; id 230; surfaces (-103 106); filltype uni; universe 1012;} + BA415 {type simpleCell; id 231; surfaces (-106 107); filltype uni; universe 1027;} + BA411 {type simpleCell; id 232; surfaces (-107 110); filltype uni; universe 1012;} + BA401 {type simpleCell; id 233; surfaces (-110 111); filltype uni; universe 1000;} + BA364 {type simpleCell; id 234; surfaces (-111 112); filltype uni; universe 1110;} + BA359 {type simpleCell; id 235; surfaces (-112 113); filltype uni; universe 1000;} + BA312 {type simpleCell; id 236; surfaces (-113 114); filltype uni; universe 1110;} + BA306 {type simpleCell; id 237; surfaces (-114 115); filltype uni; universe 1000;} + BA260 {type simpleCell; id 238; surfaces (-115 116); filltype uni; universe 1110;} + BA254 {type simpleCell; id 239; surfaces (-116 117); filltype uni; universe 1000;} + BA208 {type simpleCell; id 240; surfaces (-117 118); filltype uni; universe 1110;} + BA202 {type simpleCell; id 241; surfaces (-118 119); filltype uni; universe 1000;} + BA155 {type simpleCell; id 242; surfaces (-119 120); filltype uni; universe 1110;} + BA150 {type simpleCell; id 243; surfaces (-120 122); filltype uni; universe 1000;} + BA103 {type simpleCell; id 244; surfaces (-122 123); filltype uni; universe 1110;} + BA98 {type simpleCell; id 245; surfaces (-123 125); filltype uni; universe 1000;} + BA4055 {type simpleCell; id 246; surfaces (-125 126); filltype uni; universe 1023;} + BA4052 {type simpleCell; id 247; surfaces (-126 127); filltype uni; universe 1021;} + BA39 {type simpleCell; id 248; surfaces (-127 128); filltype uni; universe 1025;} + BA38 {type simpleCell; id 249; surfaces (-128 129); filltype uni; universe 1019;} + BA37 {type simpleCell; id 250; surfaces (-129 131); filltype uni; universe 1010;} + BA35 {type simpleCell; id 251; surfaces (-131 132); filltype uni; universe 1005;} + BA20 {type simpleCell; id 252; surfaces (-132 ); filltype uni; universe 1001;} + + //guide tube, no CR, axial layering + GT460 {type simpleCell; id 353; surfaces ( 101); filltype uni; universe 1001;} + GT431 {type simpleCell; id 354; surfaces (-101 102); filltype uni; universe 1005;} + GT423 {type simpleCell; id 355; surfaces (-102 106); filltype uni; universe 12000;} + GT415 {type simpleCell; id 356; surfaces (-106 107); filltype uni; universe 1112;} + GT411 {type simpleCell; id 357; surfaces (-107 111); filltype uni; universe 12000;} + GT364 {type simpleCell; id 358; surfaces (-111 112); filltype uni; universe 9112;} + GT359 {type simpleCell; id 359; surfaces (-112 113); filltype uni; universe 12000;} + GT312 {type simpleCell; id 360; surfaces (-113 114); filltype uni; universe 9112;} + GT306 {type simpleCell; id 361; surfaces (-114 115); filltype uni; universe 12000;} + GT260 {type simpleCell; id 362; surfaces (-115 116); filltype uni; universe 9112;} + GT254 {type simpleCell; id 363; surfaces (-116 117); filltype uni; universe 12000;} + GT208 {type simpleCell; id 364; surfaces (-117 118); filltype uni; universe 9112;} + GT202 {type simpleCell; id 365; surfaces (-118 119); filltype uni; universe 12000;} + GT155 {type simpleCell; id 366; surfaces (-119 120); filltype uni; universe 9112;} + GT150 {type simpleCell; id 367; surfaces (-120 122); filltype uni; universe 12000;} + GT103 {type simpleCell; id 368; surfaces (-122 123); filltype uni; universe 9112;} + GT98 {type simpleCell; id 369; surfaces (-123 126); filltype uni; universe 1010;} + GT4052 {type simpleCell; id 370; surfaces (-126 127); filltype uni; universe 12000;} + GT39 {type simpleCell; id 371; surfaces (-127 129); filltype uni; universe 1019;} + GT37 {type simpleCell; id 372; surfaces (-129 131); filltype uni; universe 1010;} + GT35 {type simpleCell; id 373; surfaces (-131 132); filltype uni; universe 1005;} + GT20 {type simpleCell; id 374; surfaces (-132); filltype uni; universe 1001;} + + //guide tube, partially inserted CR, axial layering + // Note: universe is basically a combo of fully and partially inserted rods + GP460 {type simpleCell; id 375; surfaces ( 101); filltype uni; universe 1013;} + GP431 {type simpleCell; id 376; surfaces (-101 102); filltype uni; universe 1013;} + GP423 {type simpleCell; id 377; surfaces (-102 106); filltype uni; universe 1013;} + GP415 {type simpleCell; id 378; surfaces (-106 107); filltype uni; universe 1133;} + GP411 {type simpleCell; id 379; surfaces (-107 111); filltype uni; universe 1013;} + GP364 {type simpleCell; id 380; surfaces (-111 112); filltype uni; universe 9233;} + GP359 {type simpleCell; id 381; surfaces (-112 137); filltype uni; universe 1013;} + GP322 {type simpleCell; id 382; surfaces (-137 113); filltype uni; universe 1014;} + GP312 {type simpleCell; id 383; surfaces (-113 114); filltype uni; universe 9232;} + GP306 {type simpleCell; id 384; surfaces (-114 115); filltype uni; universe 1014;} + GP260 {type simpleCell; id 385; surfaces (-115 116); filltype uni; universe 9232;} + GP254 {type simpleCell; id 386; surfaces (-116 138); filltype uni; universe 1014;} + GP220 {type simpleCell; id 387; surfaces (-138 139); filltype uni; universe 1023;} + GP219 {type simpleCell; id 388; surfaces (-139 117); filltype uni; universe 12000;} + GP208 {type simpleCell; id 389; surfaces (-117 118); filltype uni; universe 9112;} + GP202 {type simpleCell; id 390; surfaces (-118 119); filltype uni; universe 12000;} + GP155 {type simpleCell; id 391; surfaces (-119 120); filltype uni; universe 9112;} + GP150 {type simpleCell; id 392; surfaces (-120 122); filltype uni; universe 12000;} + GP103 {type simpleCell; id 393; surfaces (-122 123); filltype uni; universe 9112;} + GP98 {type simpleCell; id 394; surfaces (-123 126); filltype uni; universe 1010;} + GP4052 {type simpleCell; id 395; surfaces (-126 127); filltype uni; universe 12000;} + GP39 {type simpleCell; id 396; surfaces (-127 129); filltype uni; universe 1019;} + GP37 {type simpleCell; id 397; surfaces (-129 131); filltype uni; universe 1010;} + GP35 {type simpleCell; id 398; surfaces (-131 132); filltype uni; universe 1005;} + GP20 {type simpleCell; id 399; surfaces (-132); filltype uni; universe 1001;} + + // control rod, axial layering + // Used (probably with some modification) only when fully inserted + //CR460 {type simpleCell; id 448; surfaces (-120 121); filltype uni; universe 1002;} + //CR415 {type simpleCell; id 449; surfaces (-126 403); filltype uni; universe 1013;} + //CR403 {type simpleCell; id 450; surfaces (-403 402); filltype uni; universe 1015;} + //CR402 {type simpleCell; id 451; surfaces (-402 1430); filltype uni; universe 1013;} + //CR143 {type simpleCell; id 452; surfaces (-1430 41); filltype uni; universe 1014;} + //CR41 {type simpleCell; id 453; surfaces (-41 143); filltype uni; universe 1002;} + //CR39 {type simpleCell; id 454; surfaces (-143 147); filltype uni; universe 1001;} + //CR35 {type simpleCell; id 455; surfaces (-147 148); filltype uni; universe 1005;} + //CR20 {type simpleCell; id 456; surfaces (-148 149); filltype uni; universe 1001;} + + + + outsideLeftBaffle { type simpleCell; id 52; surfaces (-50); filltype mat; material Water;} + leftBaffle { type simpleCell; id 53; surfaces (50 -51); filltype mat; material SS304;} + insideLeftBaffle { type simpleCell; id 54; surfaces (51); filltype mat; material Water;} + + outsideRightBaffle { type simpleCell; id 55; surfaces (-52); filltype mat; material Water;} + RightBaffle { type simpleCell; id 56; surfaces (52 -53); filltype mat; material SS304;} + insideRightBaffle { type simpleCell; id 57; surfaces (53); filltype mat; material Water;} + + outsideTopBaffle { type simpleCell; id 58; surfaces (-54); filltype mat; material Water;} + TopBaffle { type simpleCell; id 59; surfaces (54 -55); filltype mat; material SS304;} + insideTopBaffle { type simpleCell; id 60; surfaces (55); filltype mat; material Water;} + + outsideBottomBaffle { type simpleCell; id 61; surfaces (-56); filltype mat; material Water;} + BottomBaffle { type simpleCell; id 62; surfaces (56 -57); filltype mat; material SS304;} + insideBottomBaffle { type simpleCell; id 63; surfaces (57); filltype mat; material Water;} + + topLeftCornerBaffle1 { type simpleCell; id 64; surfaces (52 -53 -57); filltype mat; material SS304;} + topLeftCornerBaffle2 { type simpleCell; id 65; surfaces (56 -57 -52); filltype mat; material SS304;} + topLeftCornerGap1 { type simpleCell; id 66; surfaces (57); filltype mat; material Water;} + topLeftCornerGap2 { type simpleCell; id 67; surfaces (53); filltype mat; material Water;} + topLeftMajorGap { type simpleCell; id 68; surfaces (-56 -52); filltype mat; material Water;} + + topRightCornerBaffle1 { type simpleCell; id 69; surfaces (-57 50 -51); filltype mat; material SS304;} + topRightCornerBaffle2 { type simpleCell; id 70; surfaces (-50 56 -57); filltype mat; material SS304;} + topRightCornerGap1 { type simpleCell; id 71; surfaces (57); filltype mat; material Water;} + topRightCornerGap2 { type simpleCell; id 72; surfaces (51); filltype mat; material Water;} + topRightMajorGap { type simpleCell; id 73; surfaces (-56 -50); filltype mat; material Water;} + + bottomLeftCornerBaffle1 { type simpleCell; id 74; surfaces (-55 52 -53); filltype mat; material SS304;} + bottomLeftCornerBaffle2 { type simpleCell; id 75; surfaces (-55 54 -52); filltype mat; material SS304;} + bottomLeftCornerGap1 { type simpleCell; id 76; surfaces (55); filltype mat; material Water;} + bottomLeftCornerGap2 { type simpleCell; id 77; surfaces (53); filltype mat; material Water;} + bottomLeftMajorGap { type simpleCell; id 78; surfaces (-54 -52); filltype mat; material Water;} + + bottomRightCornerBaffle1 { type simpleCell; id 79; surfaces (-51 50 -55); filltype mat; material SS304;} + bottomRightCornerBaffle2 { type simpleCell; id 80; surfaces (-55 54 -50); filltype mat; material SS304;} + bottomRightCornerGap1 { type simpleCell; id 81; surfaces (51); filltype mat; material Water;} + bottomRightCornerGap2 { type simpleCell; id 82; surfaces (55); filltype mat; material Water;} + bottomRightMajorGap { type simpleCell; id 83; surfaces (-50 -54); filltype mat; material Water;} + + + TLSG1 { type simpleCell; id 84; surfaces (-56 -52); filltype mat; material Water;} + TLSG2 { type simpleCell; id 85; surfaces (-56 52); filltype mat; material Water;} + TLSG3 { type simpleCell; id 86; surfaces (56 -52); filltype mat; material Water;} + topLeftSquare { type simpleCell; id 87; surfaces (56 52); filltype mat; material SS304;} + + TRSG1 { type simpleCell; id 88; surfaces (-56 50); filltype mat; material Water;} + TRSG2 { type simpleCell; id 89; surfaces (-56 -50); filltype mat; material Water;} + TRSG3 { type simpleCell; id 90; surfaces (56 -50); filltype mat; material Water;} + topRightSquare { type simpleCell; id 91; surfaces (56 50); filltype mat; material SS304;} + + BLSG1 { type simpleCell; id 92; surfaces (54 -52); filltype mat; material Water;} + BLSG2 { type simpleCell; id 93; surfaces (-54 52); filltype mat; material Water;} + BLSG3 { type simpleCell; id 94; surfaces (-54 -52); filltype mat; material Water;} + bottomLeftSquare { type simpleCell; id 95; surfaces (54 52); filltype mat; material SS304;} + + BRSG1 { type simpleCell; id 96; surfaces (-54 50); filltype mat; material Water;} + BRSG2 { type simpleCell; id 97; surfaces (54 -50); filltype mat; material Water;} + BRSG3 { type simpleCell; id 98; surfaces (-54 -50); filltype mat; material Water;} + bottomRightSquare { type simpleCell; id 99; surfaces (54 50); filltype mat; material SS304;} + } + + universes { + root { id 1; type rootUniverse; border 1; fill u<8888>; } + + // Pin universes + + //Burnable poison + pinBPaboveDP { id 1000; type pinUniverse; radii (0.21400 0.23051 0.24130 0.42672 0.43688 0.48387 0.56134 0.60198 0.0); + fills (Air SS304 Helium BorosilicateGlass Helium SS304 Water Zircaloy Water);} + pinBPPlenumGeometry { id 1012; type pinUniverse; radii ( 0.21400 0.23051 0.43688 0.48387 0.50419 0.54610 0.0); + fills (Air SS304 Helium SS304 Water Zircaloy Water);} + + //guide tubes + pinGTaboveDP { id 12000; type pinUniverse; radii (0.56134 0.60198 0.0 ); fills (Water Zircaloy Water);} + pinGTatDP { id 1010; type pinUniverse; radii (0.50419 0.54610 0.0); fills (Water Zircaloy Water);} + + //INST Tube + pinIT { id 14000; type pinUniverse; radii (0.43688 0.48387 0.56134 0.60198 0.0 ); + fills (Air Zircaloy Water Zircaloy Water);} + pinBareInstrumentThimble { id 1011; type pinUniverse; radii (0.43688 0.48387 0.0); fills (Air Zircaloy Water);} + + // Fuel pins + pin16 { id 16000; type pinUniverse; radii (0.39218 0.40005 0.45720 0.0); + fills (UO2-16 Helium Zircaloy Water);} + pin24 { id 24000; type pinUniverse; radii (0.39218 0.40005 0.45720 0.0); + fills (UO2-24 Helium Zircaloy Water);} + pin31 { id 31000; type pinUniverse; radii (0.39218 0.40005 0.45720 0.0); + fills (UO2-31 Helium Zircaloy Water);} + // Higher enrichments not used + //pin32 { id 32000; type pinUniverse; radii (0.39218 0.40005 0.45720 0.0); + // fills (UO2-32 Helium Zircaloy Water);} + //pin34 { id 34000; type pinUniverse; radii (0.39218 0.40005 0.45720 0.0); + // fills (UO2-34 Helium Zircaloy Water);} + + pinWater { id 1001; type pinUniverse; radii ( 0.0); fills (Water);} + + + // Solid pins, assumed radius to be that of a fuel pin (0.45720) + pinNozzle_SupportSteel { id 1003; type pinUniverse; radii ( 0.45720 0.0); fills (SupportPlateSS Water);} + pinSupportPlateBW { id 1005; type pinUniverse; radii ( 0.45720 0.0); fills (SupportPlateBW Water);} + pinZircaloy { id 1006; type pinUniverse; radii ( 0.45720 0.0); fills (Zircaloy Water);} + + + SSinDashPot { id 1024; type pinUniverse; radii (0.50419 0.54610 0.0); fills (SS304 Zircaloy Water);} + SSinGuideTube { id 1023; type pinUniverse; radii ( 0.56134 0.60198 0.0); fills (SS304 Zircaloy Water);} + SSnoGuideTube { id 1002; type pinUniverse; radii ( 0.56134 0.0); fills (SS304 Water);} + + + pinUpperFuelPlenum { id 1008; type pinUniverse; radii ( 0.06459 0.40005 0.45720 0.0); + fills (Inconel Helium Zircaloy Water);} + + // Control rod pins + pinControlRodUpper { id 1013; type pinUniverse; radii ( 0.37338 0.38608 0.48387 0.56134 0.60198 0.0); + fills (B4C Helium SS304 Water Zircaloy Water);} + pinControlRodLower { id 1014; type pinUniverse; radii ( 0.38227 0.38608 0.48387 0.56134 0.60198 0.0); + fills (Ag-In-Cd Helium SS304 Water Zircaloy Water);} + pinControlRodSpacer { id 1015; type pinUniverse; radii ( 0.37845 0.38608 0.48387 0.56134 0.60198 0.0); + fills (SS304 Helium SS304 Water Zircaloy Water);} + pinControlRodPlenum { id 1016; type pinUniverse; radii ( 0.06459 0.38608 0.48387 0.56134 0.60198 0.0); + fills (Inconel Helium SS304 Water Zircaloy Water);} + + // pins that have grids + fuelRodPlenumWithGridThick { + id 1017; + type cellUniverse; + cells ( 259 555);} + + GTRodThick { + id 1018; + type cellUniverse; + cells (263 555);} + + dashPotGuideTubeGridThick { + id 1019; + type cellUniverse; + cells ( 258 555);} + + dashPotGuideTubeGridThin { + id 1020; + type cellUniverse; + cells ( 270 556);} + + SSinGuideTubeThick { + id 1021; + type cellUniverse; + cells ( 260 555);} + + SSinGuideTubeThin { + id 1022; + type cellUniverse; + cells ( 272 556);} + + SSinDashPotThick { + id 1025; + type cellUniverse; + cells ( 261 555);} + + SSinDashPotThin { + id 1026; + type cellUniverse; + cells ( 273 556);} + + BPPlenumThick { + id 1027; + type cellUniverse; + cells ( 262 555);} + + BPPlenumThin { + id 1028; + type cellUniverse; + cells ( 274 556);} + + BPaboveDPThin { + id 1110; + type cellUniverse; + cells (266 556);} + + GTThick { + id 1112; + type cellUniverse; + cells (254 555);} + + ITThick { + id 1114; + type cellUniverse; + cells (257 555);} + + pin16Thick { + id 1116; + type cellUniverse; + cells (256 555);} + + pin24Thick { + id 1124; + type cellUniverse; + cells (253 555);} + + pin31Thick { + id 1131; + type cellUniverse; + cells (255 555);} + + LowerRodGTThick { + id 1132; + type cellUniverse; + cells (263 555);} + + UpperRodGTThick { + id 1133; + type cellUniverse; + cells (463 555);} + + BPThin { // Is this necessary given 1110, BPaboveDPThin??? + id 9110; + type cellUniverse; + cells (266 556);} + + GTThin { + id 9112; + type cellUniverse; + cells (265 556);} + + ITThin { + id 9114; + type cellUniverse; + cells (269 556);} + + pin16Thin { + id 9216; + type cellUniverse; + cells (268 556);} + + pin24Thin { + id 9224; + type cellUniverse; + cells (264 556);} + + pin31Thin { + id 9231; + type cellUniverse; + cells (267 556);} + + LowerRodGTThin { + id 9232; + type cellUniverse; + cells (275 556);} + + UpperRodGTThin { + id 9233; + type cellUniverse; + cells (475 556);} + + // Axial stacks of universes to make up full pins + + // 3.1 % + fuelPin31 { + id 31; + type cellUniverse; + cells ( 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124);} + + // 2.4 % + fuelPin24 { + id 24; + type cellUniverse; + cells ( 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149);} + + //1.6 % + fuelPin16 { + id 16; + type cellUniverse; + cells ( 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174);} + + //burnable absorber + BP { + id 10; + type cellUniverse; + cells (218 219 220 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252);} + + // guide tube, with CR + GuideTubeRodded { + id 12; + type cellUniverse; + cells (175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197);} + + //control rod, fully retracted + GuideTubeEmpty { + id 13; + type cellUniverse; + cells (353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374);} + + //instr. tube + instrumentTube { + id 14; + type cellUniverse; + cells (198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217);} + + + // control rod, partially inserted + GuideTubePartial { + id 15; + type cellUniverse; + cells (375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399); + + } + + + + // Lattices w/o grid + // Names represent AE + A0E24 { + id 1424; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 12 24 24 12 24 24 12 24 24 24 24 24 + 24 24 24 12 24 24 24 24 24 24 24 24 24 12 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 12 24 24 12 24 24 12 24 24 12 24 24 12 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 12 24 24 12 24 24 14 24 24 12 24 24 12 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 12 24 24 12 24 24 12 24 24 12 24 24 12 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 12 24 24 24 24 24 24 24 24 24 12 24 24 24 + 24 24 24 24 24 12 24 24 12 24 24 12 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 ); } + + // assembly with sleeves at different heights + A0E24Sleeve { + id 14240; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2019 + );} + + + A0E16 { + id 1416; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 + 16 16 16 16 16 12 16 16 12 16 16 12 16 16 16 16 16 + 16 16 16 12 16 16 16 16 16 16 16 16 16 12 16 16 16 + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 + 16 16 12 16 16 12 16 16 12 16 16 12 16 16 12 16 16 + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 + 16 16 12 16 16 12 16 16 14 16 16 12 16 16 12 16 16 + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 + 16 16 12 16 16 12 16 16 12 16 16 12 16 16 12 16 16 + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 + 16 16 16 12 16 16 16 16 16 16 16 16 16 12 16 16 16 + 16 16 16 16 16 12 16 16 12 16 16 12 16 16 16 16 16 + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16); } + + A0E16Sleeve { + id 14160; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2020 + ); + } + + A0E31 { + id 1431; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 12 31 31 12 31 31 12 31 31 31 31 31 + 31 31 31 12 31 31 31 31 31 31 31 31 31 12 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 12 31 31 12 31 31 12 31 31 12 31 31 12 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 12 31 31 12 31 31 14 31 31 12 31 31 12 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 12 31 31 12 31 31 12 31 31 12 31 31 12 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 12 31 31 31 31 31 31 31 31 31 12 31 31 31 + 31 31 31 31 31 12 31 31 12 31 31 12 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } + + A0E31Sleeve { + id 14310; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2021 + ); + } + + + A6BE31B { + id 60316; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 10 31 31 12 31 31 10 31 31 31 31 31 + 31 31 31 10 31 31 31 31 31 31 31 31 31 10 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 12 31 31 12 31 31 12 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 12 31 31 12 31 31 14 31 31 12 31 31 12 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 12 31 31 12 31 31 12 31 31 12 31 31 12 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 12 31 31 31 31 31 31 31 31 31 12 31 31 31 + 31 31 31 31 31 12 31 31 12 31 31 12 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } + + + A6BE31BSleeve { + id 603160; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2022 + ); + } + + A6BE31T { + id 603112; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 12 31 31 12 31 31 12 31 31 31 31 31 + 31 31 31 12 31 31 31 31 31 31 31 31 31 12 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 12 31 31 12 31 31 12 31 31 12 31 31 12 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 12 31 31 12 31 31 14 31 31 12 31 31 12 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 12 31 31 12 31 31 12 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 10 31 31 31 31 31 31 31 31 31 10 31 31 31 + 31 31 31 31 31 10 31 31 12 31 31 10 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } + + A6BE31TSleeve { + id 6031120; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2023 + ); + } + + A6BE31R { + id 60313; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 10 31 31 12 31 31 12 31 31 31 31 31 + 31 31 31 10 31 31 31 31 31 31 31 31 31 12 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 12 31 31 12 31 31 12 31 31 12 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 12 31 31 12 31 31 14 31 31 12 31 31 12 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 12 31 31 12 31 31 12 31 31 12 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 10 31 31 31 31 31 31 31 31 31 12 31 31 31 + 31 31 31 31 31 10 31 31 12 31 31 12 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } + + A6BE31RSleeve { + id 603130; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2024 + ); + } + + A6BE31L { + id 60319; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 12 31 31 12 31 31 10 31 31 31 31 31 + 31 31 31 12 31 31 31 31 31 31 31 31 31 10 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 12 31 31 12 31 31 12 31 31 12 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 12 31 31 12 31 31 14 31 31 12 31 31 12 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 12 31 31 12 31 31 12 31 31 12 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 12 31 31 31 31 31 31 31 31 31 10 31 31 31 + 31 31 31 31 31 12 31 31 12 31 31 10 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } + + A6BE31LSleeve { + id 603190; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2025 + ); + } + + A15BE31BR { + id 15315; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 10 31 31 10 31 31 10 31 31 31 31 31 + 31 31 31 10 31 31 31 31 31 31 31 31 31 12 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 10 31 31 10 31 31 10 31 31 12 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 10 31 31 14 31 31 10 31 31 12 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 10 31 31 10 31 31 10 31 31 12 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 12 31 31 31 31 31 31 31 31 31 12 31 31 31 + 31 31 31 31 31 12 31 31 12 31 31 12 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } + + A15BE31BRSleeve { + id 153150; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2026 + ); + } + + A15BE31BL { + id 15317; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 10 31 31 10 31 31 10 31 31 31 31 31 + 31 31 31 12 31 31 31 31 31 31 31 31 31 10 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 12 31 31 10 31 31 10 31 31 10 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 12 31 31 10 31 31 14 31 31 10 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 12 31 31 10 31 31 10 31 31 10 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 12 31 31 31 31 31 31 31 31 31 12 31 31 31 + 31 31 31 31 31 12 31 31 12 31 31 12 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } + + A15BE31BLSleeve { + id 153170; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2027 + ); + } + + A15BE31TR { + id 15311; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 12 31 31 12 31 31 12 31 31 31 31 31 + 31 31 31 12 31 31 31 31 31 31 31 31 31 12 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 10 31 31 10 31 31 10 31 31 12 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 10 31 31 14 31 31 10 31 31 12 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 10 31 31 10 31 31 10 31 31 12 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 10 31 31 31 31 31 31 31 31 31 12 31 31 31 + 31 31 31 31 31 10 31 31 10 31 31 10 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } + + A15BE31TRSleeve { + id 153110; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2028 + ); + } + + A15BE31TL { + id 153111; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 12 31 31 12 31 31 12 31 31 31 31 31 + 31 31 31 12 31 31 31 31 31 31 31 31 31 12 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 12 31 31 10 31 31 10 31 31 10 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 12 31 31 10 31 31 14 31 31 10 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 12 31 31 10 31 31 10 31 31 10 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 12 31 31 31 31 31 31 31 31 31 10 31 31 31 + 31 31 31 31 31 10 31 31 10 31 31 10 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } + + A15BE31TLSleeve { + id 1531110; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2029 + ); + } + + A16BE31 { + id 1631; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 10 31 31 10 31 31 10 31 31 31 31 31 + 31 31 31 10 31 31 31 31 31 31 31 31 31 10 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 12 31 31 12 31 31 12 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 12 31 31 14 31 31 12 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 12 31 31 12 31 31 12 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 10 31 31 31 31 31 31 31 31 31 10 31 31 31 + 31 31 31 31 31 10 31 31 10 31 31 10 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } + + A16BE31Sleeve { + id 16310; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2030 + ); + } + + A20BE31 { + id 2031; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 10 31 31 10 31 31 10 31 31 31 31 31 + 31 31 31 10 31 31 31 31 31 31 31 31 31 10 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 10 31 31 12 31 31 10 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 12 31 31 14 31 31 12 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 10 31 31 12 31 31 10 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 10 31 31 31 31 31 31 31 31 31 10 31 31 31 + 31 31 31 31 31 10 31 31 10 31 31 10 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } + + A20BE31Sleeve { + id 20310; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2031 + ); + } + + A12BE24 { + id 1224; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 10 24 24 12 24 24 10 24 24 24 24 24 + 24 24 24 10 24 24 24 24 24 24 24 24 24 10 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 10 24 24 12 24 24 12 24 24 12 24 24 10 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 12 24 24 12 24 24 14 24 24 12 24 24 12 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 10 24 24 12 24 24 12 24 24 12 24 24 10 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 10 24 24 24 24 24 24 24 24 24 10 24 24 24 + 24 24 24 24 24 10 24 24 12 24 24 10 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 ); } + + A12BE24Sleeve { + id 12240; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2032 + ); + } + + A16BE24 { + id 1624; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 10 24 24 10 24 24 10 24 24 24 24 24 + 24 24 24 10 24 24 24 24 24 24 24 24 24 10 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 10 24 24 12 24 24 12 24 24 12 24 24 10 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 10 24 24 12 24 24 14 24 24 12 24 24 10 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 10 24 24 12 24 24 12 24 24 12 24 24 10 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 10 24 24 24 24 24 24 24 24 24 10 24 24 24 + 24 24 24 24 24 10 24 24 10 24 24 10 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 ); } + + A16BE24Sleeve { + id 16240; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2033 + ); + } + + // Unrodded assemblies + A0E24U { + id 2424; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 13 24 24 13 24 24 13 24 24 24 24 24 + 24 24 24 13 24 24 24 24 24 24 24 24 24 13 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 13 24 24 13 24 24 13 24 24 13 24 24 13 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 13 24 24 13 24 24 14 24 24 13 24 24 13 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 13 24 24 13 24 24 13 24 24 13 24 24 13 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 13 24 24 24 24 24 24 24 24 24 13 24 24 24 + 24 24 24 24 24 13 24 24 13 24 24 13 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 ); } + + A0E24USleeve { + id 24240; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2034 + );} + + A0E16U { + id 2416; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 + 16 16 16 16 16 13 16 16 13 16 16 13 16 16 16 16 16 + 16 16 16 13 16 16 16 16 16 16 16 16 16 13 16 16 16 + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 + 16 16 13 16 16 13 16 16 13 16 16 13 16 16 13 16 16 + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 + 16 16 13 16 16 13 16 16 14 16 16 13 16 16 13 16 16 + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 + 16 16 13 16 16 13 16 16 13 16 16 13 16 16 13 16 16 + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 + 16 16 16 13 16 16 16 16 16 16 16 16 16 13 16 16 16 + 16 16 16 16 16 13 16 16 13 16 16 13 16 16 16 16 16 + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16); } + + // sleeved + A0E16USleeve { + id 24160; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2035 + ); + } + + A0E31U { + id 2431; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 13 31 31 13 31 31 13 31 31 31 31 31 + 31 31 31 13 31 31 31 31 31 31 31 31 31 13 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 13 31 31 13 31 31 13 31 31 13 31 31 13 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 13 31 31 13 31 31 14 31 31 13 31 31 13 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 13 31 31 13 31 31 13 31 31 13 31 31 13 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 13 31 31 31 31 31 31 31 31 31 13 31 31 31 + 31 31 31 31 31 13 31 31 13 31 31 13 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } + + A0E31USleeve { + id 24310; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2036 + ); + } + + + A6BE31BU { + id 70316; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 10 31 31 13 31 31 10 31 31 31 31 31 + 31 31 31 10 31 31 31 31 31 31 31 31 31 10 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 13 31 31 13 31 31 13 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 13 31 31 13 31 31 14 31 31 13 31 31 13 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 13 31 31 13 31 31 13 31 31 13 31 31 13 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 13 31 31 31 31 31 31 31 31 31 13 31 31 31 + 31 31 31 31 31 13 31 31 13 31 31 13 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } + + + A6BE31BUSleeve { + id 703160; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2037 + ); + } + + A6BE31TU { + id 703112; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 13 31 31 13 31 31 13 31 31 31 31 31 + 31 31 31 13 31 31 31 31 31 31 31 31 31 13 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 13 31 31 13 31 31 13 31 31 13 31 31 13 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 13 31 31 13 31 31 14 31 31 13 31 31 13 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 13 31 31 13 31 31 13 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 10 31 31 31 31 31 31 31 31 31 10 31 31 31 + 31 31 31 31 31 10 31 31 13 31 31 10 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } + + A6BE31TUSleeve { + id 7031120; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2038 + ); + } + + A6BE31RU { + id 70313; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 10 31 31 13 31 31 13 31 31 31 31 31 + 31 31 31 10 31 31 31 31 31 31 31 31 31 13 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 13 31 31 13 31 31 13 31 31 13 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 13 31 31 13 31 31 14 31 31 13 31 31 13 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 13 31 31 13 31 31 13 31 31 13 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 10 31 31 31 31 31 31 31 31 31 13 31 31 31 + 31 31 31 31 31 10 31 31 13 31 31 13 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } + + A6BE31RUSleeve { + id 703130; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2039 + ); + } + + A6BE31LU { + id 70319; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 13 31 31 13 31 31 10 31 31 31 31 31 + 31 31 31 13 31 31 31 31 31 31 31 31 31 10 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 13 31 31 13 31 31 13 31 31 13 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 13 31 31 13 31 31 14 31 31 13 31 31 13 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 13 31 31 13 31 31 13 31 31 13 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 13 31 31 31 31 31 31 31 31 31 10 31 31 31 + 31 31 31 31 31 13 31 31 13 31 31 10 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } + + A6BE31LUSleeve { + id 703190; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2040 + ); + } + + A15BE31BRU { + id 25315; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 10 31 31 10 31 31 10 31 31 31 31 31 + 31 31 31 10 31 31 31 31 31 31 31 31 31 13 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 10 31 31 10 31 31 10 31 31 13 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 10 31 31 14 31 31 10 31 31 13 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 10 31 31 10 31 31 10 31 31 13 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 13 31 31 31 31 31 31 31 31 31 13 31 31 31 + 31 31 31 31 31 13 31 31 13 31 31 13 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } + + A15BE31BRUSleeve { + id 253150; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2041 + ); + } + + A15BE31BLU { + id 25317; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 10 31 31 10 31 31 10 31 31 31 31 31 + 31 31 31 13 31 31 31 31 31 31 31 31 31 10 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 13 31 31 10 31 31 10 31 31 10 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 13 31 31 10 31 31 14 31 31 10 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 13 31 31 10 31 31 10 31 31 10 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 13 31 31 31 31 31 31 31 31 31 13 31 31 31 + 31 31 31 31 31 13 31 31 13 31 31 13 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } + + A15BE31BLUSleeve { + id 253170; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2042 + ); + } + + A15BE31TRU { + id 25311; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 13 31 31 13 31 31 13 31 31 31 31 31 + 31 31 31 13 31 31 31 31 31 31 31 31 31 13 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 10 31 31 10 31 31 10 31 31 13 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 10 31 31 14 31 31 10 31 31 13 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 10 31 31 10 31 31 10 31 31 13 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 10 31 31 31 31 31 31 31 31 31 13 31 31 31 + 31 31 31 31 31 10 31 31 10 31 31 10 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } + + A15BE31TRUSleeve { + id 253110; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2043 + ); + } + + A15BE31TLU { + id 253111; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 13 31 31 13 31 31 13 31 31 31 31 31 + 31 31 31 13 31 31 31 31 31 31 31 31 31 13 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 13 31 31 10 31 31 10 31 31 10 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 13 31 31 10 31 31 14 31 31 10 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 13 31 31 10 31 31 10 31 31 10 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 13 31 31 31 31 31 31 31 31 31 10 31 31 31 + 31 31 31 31 31 10 31 31 10 31 31 10 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } + + A15BE31TLUSleeve { + id 2531110; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2044 + ); + } + + A16BE31U { + id 2631; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 10 31 31 10 31 31 10 31 31 31 31 31 + 31 31 31 10 31 31 31 31 31 31 31 31 31 10 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 13 31 31 13 31 31 13 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 13 31 31 14 31 31 13 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 13 31 31 13 31 31 13 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 10 31 31 31 31 31 31 31 31 31 10 31 31 31 + 31 31 31 31 31 10 31 31 10 31 31 10 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } + + A16BE31USleeve { + id 26310; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2045 + ); + } + + A20BE31U { + id 3031; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 10 31 31 10 31 31 10 31 31 31 31 31 + 31 31 31 10 31 31 31 31 31 31 31 31 31 10 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 10 31 31 13 31 31 10 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 13 31 31 14 31 31 13 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 10 31 31 13 31 31 10 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 10 31 31 31 31 31 31 31 31 31 10 31 31 31 + 31 31 31 31 31 10 31 31 10 31 31 10 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } + + A20BE31USleeve { + id 30310; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2046 + ); + } + + A12BE24U { + id 2224; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 10 24 24 13 24 24 10 24 24 24 24 24 + 24 24 24 10 24 24 24 24 24 24 24 24 24 10 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 10 24 24 13 24 24 13 24 24 13 24 24 10 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 13 24 24 13 24 24 14 24 24 13 24 24 13 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 10 24 24 13 24 24 13 24 24 13 24 24 10 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 10 24 24 24 24 24 24 24 24 24 10 24 24 24 + 24 24 24 24 24 10 24 24 13 24 24 10 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 ); } + + A12BE24USleeve { + id 22240; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2047 + ); + } + + A16BE24U { + id 2624; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 10 24 24 10 24 24 10 24 24 24 24 24 + 24 24 24 10 24 24 24 24 24 24 24 24 24 10 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 10 24 24 13 24 24 13 24 24 13 24 24 10 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 10 24 24 13 24 24 14 24 24 13 24 24 10 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 10 24 24 13 24 24 13 24 24 13 24 24 10 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 10 24 24 24 24 24 24 24 24 24 10 24 24 24 + 24 24 24 24 24 10 24 24 10 24 24 10 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 ); } + + A16BE24USleeve { + id 26240; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2048 + ); + } + + A0E24DBank { + id 1425; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 15 24 24 15 24 24 15 24 24 24 24 24 + 24 24 24 15 24 24 24 24 24 24 24 24 24 15 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 15 24 24 15 24 24 15 24 24 15 24 24 15 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 15 24 24 15 24 24 14 24 24 15 24 24 15 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 15 24 24 15 24 24 15 24 24 15 24 24 15 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 15 24 24 24 24 24 24 24 24 24 15 24 24 24 + 24 24 24 24 24 15 24 24 15 24 24 15 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 ); } + + // assembly with sleeves at different heights + A0E24SleeveDBank { + id 14250; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2049 + );} + + A0E16DBank { + id 1417; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 + 16 16 16 16 16 15 16 16 15 16 16 15 16 16 16 16 16 + 16 16 16 15 16 16 16 16 16 16 16 16 16 15 16 16 16 + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 + 16 16 15 16 16 15 16 16 15 16 16 15 16 16 15 16 16 + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 + 16 16 15 16 16 15 16 16 14 16 16 15 16 16 15 16 16 + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 + 16 16 15 16 16 15 16 16 15 16 16 15 16 16 15 16 16 + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 + 16 16 16 15 16 16 16 16 16 16 16 16 16 15 16 16 16 + 16 16 16 16 16 15 16 16 15 16 16 15 16 16 16 16 16 + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16); } + + A0E16SleeveDBank { + id 14170; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2050 + ); + } + + + leftBaffleUni { + id 5222; + type cellUniverse; + cells (52 53 54);} + + + rightBaffleUni { + id 5223; + type cellUniverse; + cells (55 56 57);} + + topBaffleUni { + id 5224; + type cellUniverse; + cells (58 59 60);} + + bottomBaffleUni { + id 5225; + type cellUniverse; + cells (61 62 63);} + + + topLeft { + id 5226; + type cellUniverse; + cells (64 65 66 67 68);} + + topRight { + id 5227; + type cellUniverse; + cells ( 69 70 71 72 73);} + + BottomLeft { + id 5228; + type cellUniverse; + cells ( 74 75 76 77 78);} + + BottomRight { + id 5229; + type cellUniverse; + cells ( 79 80 81 82 83);} + + + SQTL { + id 1500; + type cellUniverse; + cells (84 85 86 87);} + + + SQTR { + id 1600; + type cellUniverse; + cells (88 89 90 91);} + + SQBL { + id 1700; + type cellUniverse; + cells (92 93 94 95);} + + SQBR { + id 1800; + type cellUniverse; + cells (96 97 98 99);} + + + latCore { + id 9999; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (21.50364 21.50364 0.0); + shape (17 17 0); + padMat Water; + map ( + 1001 1001 1001 1001 1800 5224 5224 5224 5224 5224 5224 5224 1700 1001 1001 1001 1001 + 1001 1001 1800 5224 5229 24310 7031120 24310 7031120 24310 7031120 24310 5228 5224 1700 1001 1001 + 1001 1800 5229 24310 14310 26310 14160 30310 14160 30310 14160 26310 14310 24310 5228 1700 1001 + 1001 5222 24310 2531110 26240 14160 26240 14160 26240 14160 26240 14160 26240 25311 24310 5223 1001 + 1800 5229 14310 26240 14250 26240 24160 22240 14160 22240 24160 26240 14250 26240 14310 5228 1700 + 5222 24310 26310 14160 26240 24160 22240 24160 22240 24160 22240 24160 26240 14160 26310 24310 5223 + 5222 703190 14160 26240 24160 22240 14160 22240 14160 22240 14160 22240 24160 26240 14160 703130 5223 + 5222 24310 30310 14160 22240 24160 22240 24160 26240 24160 22240 24160 22240 14160 30310 24310 5223 + 5222 703190 14160 26240 14160 22240 14160 26240 14170 26240 14160 22240 14160 26240 14160 703130 5223 + 5222 24310 30310 14160 22240 24160 22240 24160 26240 24160 22240 24160 22240 14160 30310 24310 5223 + 5222 703190 14160 26240 24160 22240 14160 22240 14160 22240 14160 22240 24160 26240 14160 703130 5223 + 5222 24310 26310 14160 26240 24160 22240 24160 22240 24160 22240 24160 26240 14160 26310 24310 5223 + 1600 5227 14310 26240 14250 26240 24160 22240 14160 22240 24160 26240 14250 26240 14310 5226 1500 + 1001 5222 24310 253170 26240 14160 26240 14160 26240 14160 26240 14160 26240 253150 24310 5223 1001 + 1001 1600 5227 24310 14310 26310 14160 30310 14160 30310 14160 26310 14310 24310 5226 1500 1001 + 1001 1001 1600 5225 5227 24310 703160 24310 703160 24310 703160 24310 5226 5225 1500 1001 1001 + 1001 1001 1001 1001 1600 5225 5225 5225 5225 5225 5225 5225 1500 1001 1001 1001 1001 ); } + +! Note partial rodded assemblies end with a 1, i.e., 14170 and 14250 + + coreAndStructures { + id 8888; + type cellUniverse; + cells (7 8 9 10 11 12 13 14 15 16 17);} + + + + } +} + + +viz { + bmpZ { + type bmp; + output imgXY; + what material; + centre (-17.13 240.69 167.74); + width (50 50); + axis z; + res (1000 1000); + } + bmpYZ { + type bmp; + output imgYZ; + what material; + centre (0.0 0.0 232.0); + width (100.0 200.0); + axis x; + res (1000 2000); + } +} + + +nuclearData { + handles { + ce {type aceNeutronDatabase; aceLibrary $SCONE_ACE; ures 0; } + } + + materials { + + // Note that commented nuclide densities are included in the specification + // but are not available in the JEFF-3.11 data library + + Air { + temp 566; + composition { + 18036.06 7.8730E-09; + 18038.06 1.4844E-09; + 18040.06 2.3506E-06; + 6012.06 6.7539E-08; + //6013.06 7.5658E-10; + 7014.06 1.9680E-04; + 7015.06 7.2354E-07; + 8016.06 5.2866E-05; + 8017.06 2.0084E-08; + //8018.06 1.0601E-07; + } + } + + SS304 { + temp 566; + composition { + 24050.06 7.6778E-04; + 24052.06 1.4806E-02; + 24053.06 1.6789E-03; + 24054.06 4.1791E-04; + 26054.06 3.4620E-03; + 26056.06 5.4345E-02; + 26057.06 1.2551E-03; + 26058.06 1.6703E-04; + 25055.06 1.7604E-03; + 28058.06 5.6089E-03; + 28060.06 2.1605E-03; + 28061.06 9.3917E-05; + 28062.06 2.9945E-04; + 28064.06 7.6261E-05; + 14028.06 9.5281E-04; + 14029.06 4.8381E-05; + 14030.06 3.1893E-05; } + } + + Helium { + temp 566; + composition { + 2003.06 4.8089E-10; + 2004.06 2.4044E-04; } + } + + BorosilicateGlass { + temp 566; + composition { + 13027.06 1.7352E-03; + 5010.06 9.6506E-04; + 5011.06 3.9189E-03; + 8016.06 4.6514E-02; + 8017.06 1.7671E-05; + //8018.06 9.3268E-05; + 14028.06 1.6926E-02; + 14029.06 8.5944E-04; + 14030.06 5.6654E-04; } + } + + Water { + temp 566; + moder {1001.06 (lwj3.11 lwj3.09); } + composition { + 5010.06 7.9714E-06; + 5011.06 3.2247E-05; + 1001.06 4.9456E-02; + 1002.06 7.7035E-06; + 8016.06 2.4673E-02; + 8017.06 9.3734E-06; + //8018.06 4.9474E-05; + } + } + + Zircaloy { + temp 566; + composition { + 24050.06 3.2962E-06; + 24052.06 6.3564E-05; + 24053.06 7.2076E-06; + 24054.06 1.7941E-06; + 26054.06 8.6698E-06; + 26056.06 1.3610E-04; + 26057.06 3.1431E-06; + 26058.06 4.1829E-07; + 8016.06 3.0744E-04; + 8017.06 1.1680E-07; + //8018.03 6.1648E-07; + 50112.06 4.6735E-06; + 50114.06 3.1799E-06; + 50115.06 1.6381E-06; + 50116.06 7.0055E-05; + 50117.06 3.7003E-05; + 50118.06 1.1669E-04; + 50119.06 4.1387E-05; + 50120.06 1.5697E-04; + 50122.06 2.2308E-05; + 50124.06 2.7897E-05; + 40090.06 2.1828E-02; + 40091.06 4.7601E-03; + 40092.06 7.2759E-03; + 40094.06 7.3734E-03; + 40096.06 1.1879E-03; } + } + + Inconel{ + temp 566; + composition { + 24050.06 7.8239E-04; + 24052.06 1.5088E-02; + 24053.06 1.7108E-03; + 24054.06 4.2586E-04; + 26054.06 1.4797E-03; + 26056.06 2.3229E-02; + 26057.06 5.3645E-04; + 26058.06 7.1392E-05; + 25055.06 7.8201E-04; + 28058.06 2.9320E-02; + 28060.06 1.1294E-02; + 28061.06 4.9094E-04; + 28062.06 1.5653E-03; + 28064.06 3.9864E-04; + 14028.06 5.6757E-04; + 14029.06 2.8820E-05; + 14030.06 1.8998E-05; } + } + + B4C{ + temp 566; + composition { + 5010.06 1.5206E-02; + 5011.06 6.1514E-02; + 6012.06 1.8972E-02; + //6013.06 2.1252E-04; + } + } + + Ag-In-Cd{ + temp 566; + composition { + 47107.06 2.3523E-02; + 47109.06 2.1854E-02; + 48106.06 3.3882E-05; + 48108.06 2.4166E-05; + 48110.06 3.3936E-04; + 48111.06 3.4821E-04; + 48112.06 6.5611E-04; + 48113.06 3.3275E-04; + 48114.06 7.8252E-04; + 48116.06 2.0443E-04; + 49113.06 3.4219E-04; + 49115.06 7.6511E-03; } + } + + UO2-16 { + temp 566; + tms 1; + composition { + 8016.03 4.5897E-02; + 8017.03 1.7436E-05; + //8018.03 9.2032E-05; + 92234.03 3.0131E-06; + 92235.03 3.7503E-04; + 92238.03 2.2625E-02;} + } + + UO2-24 { + temp 566; + tms 1; + composition { + 8016.03 4.5830E-02; + 8017.03 1.7411E-05; + //8018.03 9.1898E-05; + 92234.03 4.4842E-06; + 92235.03 5.5814E-04; + 92238.03 2.2407E-02;} + } + + UO2-31 { + temp 566; + tms 1; + composition { + 8016.03 4.5853E-02; + 8017.03 1.7420E-05; + //8018.03 9.1942E-05; + 92234.03 5.7987E-06; + 92235.03 7.2175E-04; + 92238.03 2.2253E-02;} + } + + UO2-32 { + temp 566; + tms 1; + composition { + 8016.03 4.6029E-02; + 8017.03 1.7487E-05; + //8018.03 9.2296E-05; + 92234.03 5.9959E-06; + 92235.03 7.4630E-04; + 92238.03 2.2317E-02; + } + } + + UO2-34 { + temp 566; + tms 1; + composition { + 8016.03 4.6110E-02; + 8017.03 1.7517E-05; + //8018.03 9.2459E-05; + 92234.03 6.4018E-06; + 92235.03 7.9681E-04; + 92238.03 2.2307E-02;} + } + + // vanadium51 was stated twice in carbonsteel below + // in the beavrs pdf - typo? + CarbonSteel { + temp 566; + composition { + 13027.06 4.3523E-05; + 5010.06 2.5833E-06; + 5011.06 1.0450E-05; + 6012.06 1.0442E-03; + //6013.06 1.1697E-05 ; + 20040.06 1.7043E-05; + 20042.06 1.1375E-07; + 20043.06 2.3734E-08; + 20044.06 3.6673E-07; + 20046.06 7.0322E-10; + 20048.06 3.2875E-08; + 24050.06 1.3738E-05; + 24052.06 2.6493E-04; + 24053.06 3.0041E-05; + 24054.06 7.4778E-06; + 29063.06 1.0223E-04; + 29065.06 4.5608E-05; + 26054.06 4.7437E-03; + 26056.06 7.4465E-02; + 26057.06 1.7197E-03; + 26058.06 2.2886E-04; + 25055.06 6.4126E-04; + 42100.06 2.9814E-05; + 42092.06 4.4822E-05; + 42094.06 2.8110E-05; + 42095.06 4.8567E-05; + 42096.06 5.1015E-05; + 42097.06 2.9319E-05; + 42098.06 7.4327E-05; + 41093.06 5.0559E-06; + 28058.06 4.0862E-04; + 28060.06 1.5740E-04; + 28061.06 6.8420E-06; + 28062.06 2.1815E-05; + 28064.06 5.5557E-06; + 15031.06 3.7913E-05; + 16032.06 3.4808E-05; + 16033.06 2.7420E-07; + 16034.06 1.5368E-06; + 16036.06 5.3398E-09; + 14028.06 6.1702E-04; + 14029.06 3.1330E-05; + 14030.06 2.0653E-05; + 22046.06 1.2144E-06; + 22047.06 1.0952E-06; + 22048.06 1.0851E-05; + 22049.06 7.9634E-07; + 22050.06 7.6249E-07; + //23050.06 1.1526E-07; + 23051.06 4.5989E-05; + } + } + + SupportPlateSS { + temp 566; + composition { + 24050.06 3.5223E-04; + 24052.06 6.7924E-03; + 24053.06 7.7020E-04; + 24054.06 1.9172E-04; + 26054.06 1.5882E-03; + 26056.06 2.4931E-02; + 26057.06 5.7578E-04; + 26058.06 7.6625E-05; + 25055.06 8.0762E-04; + 28058.06 2.5731E-03; + 28060.06 9.9117E-04; + 28061.06 4.3085E-05; + 28062.06 1.3738E-04; + 28064.06 3.4985E-05; + 14028.06 4.3711E-04; + 14029.06 2.2195E-05; + 14030.06 1.4631E-05;} + } + + SupportPlateBW { + temp 566; + moder {1001.06 (lwj3.11 lwj3.09); } + composition { + 5010.06 1.0559E-05; + 5011.06 4.2716E-05; + 1001.06 6.5512E-02; + 1002.06 1.0204E-05; + 8016.06 3.2683E-02; + 8017.06 1.2416E-05; + //8018.06 6.5535E-05; + } + } + + +} +} From 4533140b2d1433496eb0e8aed6627a4603d04474 Mon Sep 17 00:00:00 2001 From: ChasingNeutrons Date: Mon, 21 Jul 2025 17:59:04 +0100 Subject: [PATCH 03/10] Added distance calculation to some tallyMaps --- .../TallyMaps/Maps1D/Tests/spaceMap_test.f90 | 21 ++++++++++ Tallies/TallyMaps/Maps1D/spaceMap_class.f90 | 41 +++++++++++++++++++ Tallies/TallyMaps/Tests/multiMap_test.f90 | 19 +++++++++ Tallies/TallyMaps/multiMap_class.f90 | 31 ++++++++++++-- Tallies/TallyMaps/tallyMap_inter.f90 | 31 ++++++++++++-- 5 files changed, 135 insertions(+), 8 deletions(-) diff --git a/Tallies/TallyMaps/Maps1D/Tests/spaceMap_test.f90 b/Tallies/TallyMaps/Maps1D/Tests/spaceMap_test.f90 index e48ca9284..89c0dcbf7 100644 --- a/Tallies/TallyMaps/Maps1D/Tests/spaceMap_test.f90 +++ b/Tallies/TallyMaps/Maps1D/Tests/spaceMap_test.f90 @@ -148,6 +148,27 @@ subroutine testUnstructuredGrid(this) @assertEqual(RES, idx) end subroutine testUnstructuredGrid + + !! + !! Test distance calculation + !! +@Test(testParameters={getParameters()}) + subroutine testDistance(this) + class(test_spaceMap), intent(inout) :: this + real(defReal),dimension(2),parameter :: POS = [0.5_defReal, -10.1_defReal] + real(defReal),dimension(2),parameter :: MU = [-0.01_defReal, 0.2_defReal] + real(defReal),dimension(2),parameter :: RES = [50.0_defReal, HALF] + real(defReal), dimension(2) :: d + type(particleState),dimension(2) :: states + real(defReal), parameter :: TOL = 1.0E-7 + + states % r(this % dir) = POS + states % dir(this % dir) = MU + d = this % map_unstruct % distance(states) + + @assertEqual(RES, d, TOL) + + end subroutine testDistance !! !! Test bin output diff --git a/Tallies/TallyMaps/Maps1D/spaceMap_class.f90 b/Tallies/TallyMaps/Maps1D/spaceMap_class.f90 index b053a4e96..0dc7ae8a9 100644 --- a/Tallies/TallyMaps/Maps1D/spaceMap_class.f90 +++ b/Tallies/TallyMaps/Maps1D/spaceMap_class.f90 @@ -62,6 +62,7 @@ module spaceMap_class procedure :: init procedure :: bins procedure :: map + procedure :: distance procedure :: getAxisName procedure :: print procedure :: kill @@ -219,6 +220,46 @@ elemental function map(self,state) result(idx) if (idx == valueOutsideArray) idx = 0 end function map + + !! + !! Compute particle's distance to boundary + !! + !! See tallyMap for specification + !! + elemental function distance(self, state) result(d) + class(spaceMap), intent(in) :: self + class(particleState), intent(in) :: state + real(defReal) :: d + integer(shortInt) :: idx + real(defReal) :: r, u, rMin, rMax, rNext + + d = INF + r = state % r(self % dir) + u = state % dir(self % dir) + idx = self % binBounds % search(r) + + ! Out of bounds: either above or below + if (idx == valueOutsideArray) then + rMin = self % binBounds % bin(1) + rMax = self % binBounds % bin(self % N + 1) + + if (r < rMin) then + if (u > ZERO) d = (rMin - r) / u + else + if (u < ZERO) d = (rMax - r) / u + end if + + ! In bounds: travelling left or right? + else + + if (u > ZERO) idx = idx + 1 + rNext = self % binBounds % bin(idx) + + d = (rNext - r) / u + + end if + + end function distance !! !! Return string that describes variable used to divide event space diff --git a/Tallies/TallyMaps/Tests/multiMap_test.f90 b/Tallies/TallyMaps/Tests/multiMap_test.f90 index 661e8607d..2c1c524cd 100644 --- a/Tallies/TallyMaps/Tests/multiMap_test.f90 +++ b/Tallies/TallyMaps/Tests/multiMap_test.f90 @@ -107,6 +107,25 @@ subroutine testMapping(this) end subroutine testMapping + !! + !! Test distance calculation + !! + subroutine testDistance(this) + class(test_multiMap), intent(inout) :: this + real(defReal),dimension(3),parameter :: POS = [1.3_defReal, 8.0_defReal, 0.1_defReal] + real(defReal),dimension(3),parameter :: MU = [HALF, -ONE, -TWO] + real(defReal),parameter :: RES = 1.4_defReal + real(defReal) :: d + type(particleState) :: state + real(defReal), parameter :: TOL = 1.0E-7 + + state % r = POS + state % dir = MU + d = this % map % distance(state) + + @assertEqual(RES, d, TOL) + + end subroutine testDistance diff --git a/Tallies/TallyMaps/multiMap_class.f90 b/Tallies/TallyMaps/multiMap_class.f90 index a29c220db..3a1eaf43a 100644 --- a/Tallies/TallyMaps/multiMap_class.f90 +++ b/Tallies/TallyMaps/multiMap_class.f90 @@ -1,10 +1,11 @@ module multiMap_class use numPrecision - use genericProcedures, only : fatalError - use dictionary_class, only : dictionary - use outputFile_class, only : outputFile - use particle_class, only : particleState + use universalVariables, only : INF + use genericProcedures, only : fatalError + use dictionary_class, only : dictionary + use outputFile_class, only : outputFile + use particle_class, only : particleState use tallyMap_inter, only : tallyMap use tallyMap1D_inter, only : tallyMap1D @@ -52,6 +53,7 @@ module multiMap_class procedure :: dimensions procedure :: getAxisName procedure :: map + procedure :: distance procedure :: print procedure :: kill end type multiMap @@ -171,6 +173,27 @@ elemental function map(self, state) result(idx) end do end function map + + !! + !! Compute particle's distance to boundary + !! + !! See tallyMap for specification + !! + elemental function distance(self, state) result(d) + class(multiMap), intent(in) :: self + class(particleState), intent(in) :: state + real(defReal) :: d + integer(shortInt) :: i + real(defReal) :: d0 + + d = INF + + do i = 1, size(self % maps) + d0 = self % maps(i) % slot % distance(state) + d = min(d, d0) + end do + + end function distance !! !! Add information about division axis to the output file diff --git a/Tallies/TallyMaps/tallyMap_inter.f90 b/Tallies/TallyMaps/tallyMap_inter.f90 index 849c5bb5e..62f1b0dc7 100644 --- a/Tallies/TallyMaps/tallyMap_inter.f90 +++ b/Tallies/TallyMaps/tallyMap_inter.f90 @@ -1,9 +1,10 @@ module tallyMap_inter use numPrecision - use particle_class, only : particleState - use dictionary_class, only : dictionary - use outputFile_class, only : outputFile + use universalVariables, only : INF + use particle_class, only : particleState + use dictionary_class, only : dictionary + use outputFile_class, only : outputFile implicit none private @@ -32,13 +33,14 @@ module tallyMap_inter procedure(getAxisName),deferred :: getAxisName procedure :: binArrayShape procedure(map),deferred :: map + procedure :: distance procedure(print),deferred :: print procedure :: kill end type tallyMap ! Procedures extendable in subclasses public :: kill - + public :: distance abstract interface @@ -178,6 +180,27 @@ elemental subroutine kill(self) end subroutine kill + !! + !! Returns distance to tally map bounds in space + !! + !! Args: + !! particleState + !! + !! Result: + !! distance to nearest spatial tally boundary + !! + !! NOTE: + !! For certain maps, this is nonsensical. These should not overwrite + !! this distance. + !! + elemental function distance(self, state) result(d) + class(tallyMap), intent(in) :: self + class(particleState), intent(in) :: state + real(defReal) :: d + + d = INF + + end function distance end module tallyMap_inter From 6de594362bf2f5761d8334b4e5a7d8af2869472c Mon Sep 17 00:00:00 2001 From: ChasingNeutrons Date: Fri, 25 Jul 2025 19:56:14 +0100 Subject: [PATCH 04/10] Added piecewise constant fields Field which have values that are piecewise constant. Endowed with a distance calculation. Added a simple version which allows a lattice to be specified. --- Geometry/Fields/CMakeLists.txt | 1 + .../Fields/PieceConstantFields/CMakeLists.txt | 6 + .../Tests/cartesianField_test.f90 | 89 ++++ .../cartesianField_class.f90 | 382 ++++++++++++++++++ .../pieceConstantField_inter.f90 | 166 ++++++++ 5 files changed, 644 insertions(+) create mode 100644 Geometry/Fields/PieceConstantFields/CMakeLists.txt create mode 100644 Geometry/Fields/PieceConstantFields/Tests/cartesianField_test.f90 create mode 100644 Geometry/Fields/PieceConstantFields/cartesianField_class.f90 create mode 100644 Geometry/Fields/PieceConstantFields/pieceConstantField_inter.f90 diff --git a/Geometry/Fields/CMakeLists.txt b/Geometry/Fields/CMakeLists.txt index edb182848..16dc30d76 100644 --- a/Geometry/Fields/CMakeLists.txt +++ b/Geometry/Fields/CMakeLists.txt @@ -1,5 +1,6 @@ add_subdirectory(ScalarFields) add_subdirectory(VectorFields) +add_subdirectory(PieceConstantFields) add_sources(./field_inter.f90) diff --git a/Geometry/Fields/PieceConstantFields/CMakeLists.txt b/Geometry/Fields/PieceConstantFields/CMakeLists.txt new file mode 100644 index 000000000..dd90e7975 --- /dev/null +++ b/Geometry/Fields/PieceConstantFields/CMakeLists.txt @@ -0,0 +1,6 @@ + +add_sources( ./pieceConstantField_inter.f90 + ./cartesianField_class.f90) + +add_unit_tests( ./Tests/cartesianField_test.f90) + diff --git a/Geometry/Fields/PieceConstantFields/Tests/cartesianField_test.f90 b/Geometry/Fields/PieceConstantFields/Tests/cartesianField_test.f90 new file mode 100644 index 000000000..783740753 --- /dev/null +++ b/Geometry/Fields/PieceConstantFields/Tests/cartesianField_test.f90 @@ -0,0 +1,89 @@ +module cartesianField_test + + use numPrecision + use dictionary_class, only : dictionary + use dictParser_func, only : charToDict + use particle_class, only : particle + use field_inter, only : field + use pieceConstantField_inter, only : pieceConstantField, pieceConstantField_CptrCast + use cartesianField_class, only : cartesianField, cartesianField_TptrCast + use funit + + implicit none + character(*), parameter :: FIELD_DEF = "type cartesianField; origin (1.0 2.0 1.0); pitch (1.0 2.0 0.5); & + & materials (all); shape (3 2 3); all (1 2 3 1 2 3 4 5 6 4 5 6 7 8 9 7 8 9 ); default -6.2;" + +contains + + !! + !! Test Cartesian Field + !! +@Test + subroutine test_cartesianField() + type(cartesianField), target :: fieldT + class(field), pointer :: ref + class(pieceConstantField), pointer :: ptr + type(cartesianField), pointer :: ptr2 + type(dictionary) :: dict + type(particle) :: p + real(defReal), parameter :: TOL = 1.0E-7_defReal + + ! Test invalid pointers + ref => null() + + ptr => pieceConstantField_CptrCast(ref) + ptr2 => cartesianField_TptrCast(ref) + @assertFalse(associated(ptr)) + @assertFalse(associated(ptr2)) + + ! Test valid pointers + ref => fieldT + + ptr => pieceConstantField_CptrCast(ref) + ptr2 => cartesianField_TptrCast(ref) + + @assertTrue(associated(ptr, fieldT)) + @assertTrue(associated(ptr2, fieldT)) + + ! Initialise field + call charToDict(dict, FIELD_DEF) + + call fieldT % init(dict) + + ! Check values at different points + ! Inside region x = 2, y = 1, z = 1 + call p % point([1.0_defReal, 0.0_defReal, 0.0_defReal]) + call p % teleport([1.0_defReal, 1.0_defReal, 0.4_defReal]) + @assertEqual(8.0_defReal, fieldT % at(p), TOL) + + ! Inside region x = 1, y = 2, z = 3 + call p % point([1.0_defReal, 0.0_defReal, 0.0_defReal]) + call p % teleport([-0.4_defReal, 2.2_defReal, 1.3_defReal]) + @assertEqual(1.0_defReal, fieldT % at(p), TOL) + + ! Outside the field + call p % teleport([-8.5_defReal, 4.5_defReal, 0.9_defReal]) + @assertEqual(-6.2_defReal, fieldT % at(p), TOL) + + ! Check distances to the field + ! Inside, pointing along x + call p % point([1.0_defReal, 0.0_defReal, 0.0_defReal]) + call p % teleport([1.0_defReal, 3.5_defReal, 0.9_defReal]) + @assertEqual(0.5_defReal, fieldT % distance(p), TOL) + + ! Inside, at an angle + call p % point([-sqrt(2.0_defReal)/2, sqrt(2.0_defReal)/2, 0.0_defReal]) + call p % teleport([0.9_defReal, 1.0_defReal, 0.4_defReal]) + @assertEqual(0.4_defReal * sqrt(2.0_defReal), fieldT % distance(p), TOL) + + ! Outside, at an angle + call p % point([-sqrt(2.0_defReal)/2, -sqrt(2.0_defReal)/2, 0.0_defReal]) + call p % teleport([2.0_defReal, 4.5_defReal, 1.0_defReal]) + @assertEqual(1.0_defReal/sqrt(2.0_defReal), fieldT % distance(p), TOL) + + ! Kill + call fieldT % kill() + + end subroutine test_cartesianField + +end module cartesianField_test diff --git a/Geometry/Fields/PieceConstantFields/cartesianField_class.f90 b/Geometry/Fields/PieceConstantFields/cartesianField_class.f90 new file mode 100644 index 000000000..096a9895e --- /dev/null +++ b/Geometry/Fields/PieceConstantFields/cartesianField_class.f90 @@ -0,0 +1,382 @@ +module cartesianField_class + + use numPrecision + use universalVariables + use genericProcedures, only : fatalError, numToChar, swap + use field_inter, only : field + use pieceConstantField_inter, only : pieceConstantField + use particle_class, only : particle + use dictionary_class, only : dictionary + use box_class, only : box + use materialMenu_mod, only : mm_matIdx => matIdx + + implicit none + private + + !! + !! Public Pointer Cast + !! + public :: cartesianField_TptrCast + + integer(shortInt), parameter :: ALL_MATS = -1 + + !! + !! Piecewise constant field constructed from a lattice-like grid. + !! Values of the field are piecewise constant. + !! + !! Similar to a Cartesian lattice. Centre is placed at origin. + !! Can include materials. If applying the values uniformly to all materials, can use + !! the keyword 'all', i.e., materials (all); + !! + !! Example dictionary: + !! + !! myField { + !! type cartesianField; + !! origin (x0 y0 z0); + !! shape (Nx Ny Nz); + !! pitch (Px Py Pz); + !! materials (fuel coolant); + !! ! Make up to size Nx * Ny * Nz, ascending first in x, then y, then z + !! fuel ( + !! 100 92 3.14 ... + !! ); + !! coolant ( + !! 7 6 -2 ... + !! ); + !! # default 8.0; # + !! + !! } + !! + type, public, extends(pieceConstantField) :: cartesianField + private + real(defReal), dimension(3) :: pitch = ZERO + integer(shortInt), dimension(3) :: sizeN = 0 + real(defReal), dimension(3) :: corner = ZERO + real(defReal), dimension(3) :: a_bar = ZERO + type(box) :: outline + integer(shortInt) :: outLocalID = 0 + + integer(shortInt) :: nMat = 0 + integer(shortInt), dimension(:), allocatable :: matIdxs + contains + ! Superclass procedures + procedure :: init + procedure :: at + procedure :: distance + procedure :: kill + + procedure, private :: getLocalID + end type cartesianField + +contains + + !! + !! Initialisation + !! + subroutine init(self, dict) + class(cartesianField), intent(inout) :: self + class(dictionary), intent(in) :: dict + type(dictionary) :: tempDict + integer(shortInt) :: N, i, j, k, idx0 + integer(shortInt), dimension(:), allocatable :: tempI + real(defReal), dimension(:), allocatable :: temp + real(defReal), dimension(3) :: origin + real(defReal), dimension(:,:), allocatable :: tempMap + character(nameLen), dimension(:), allocatable :: mats + character(100), parameter :: Here = 'init (cartesianField_class.f90)' + + ! Load pitch + call dict % get(temp, 'pitch') + N = size(temp) + + if (N /= 3) then + call fatalError(Here, 'Pitch must have size 3. Has: '//numToChar(N)) + end if + self % pitch = temp + + ! Load origin + call dict % get(temp, 'origin') + N = size(temp) + + if (N /= 3) then + call fatalError(Here, 'Origin must have size 3. Has: '//numToChar(N)) + end if + origin = temp + + ! Load Size + call dict % get(tempI, 'shape') + N = size(tempI) + + if (N /= 3) then + call fatalError(Here, 'Shape must have size 3. Has: '//numToChar(N)) + else if (any(tempI < 0)) then + call fatalError(Here, 'Shape contains -ve entries') + end if + self % sizeN = tempI + + ! Detect reduced Z dimension + if (self % sizeN(3) == 0) then + self % sizeN(3) = 1 + self % pitch(3) = TWO * INF + end if + + ! Check X & Y for 0 size + if (any( self % sizeN == 0)) call fatalError(Here, 'Shape in X and Y axis cannot be 0.') + + ! Check for invalid pitch + if (any(self % pitch < 10 * SURF_TOL)) then + call fatalError(Here, 'Pitch size must be larger than: '//numToChar( 10 * SURF_TOL)) + end if + + ! Calculate halfwidth and corner + self % a_bar = self % pitch * HALF - SURF_TOL + self % corner = origin -(self % sizeN * HALF * self % pitch) + + ! Build outline box + call tempDict % init(4) + call tempDict % store('type', 'box') + call tempDict % store('id', 1) + call tempDict % store('origin', origin) + call tempDict % store('halfwidth', abs(self % corner - origin)) + call self % outline % init(tempDict) + + ! Construct fill array + ! Detect how many materials are present + self % nMat = dict % getSize('materials') + + call dict % get(mats, 'materials') + + if (any(mats == 'all') .and. self % nMat > 1) call fatalError(Here, 'Material "all" '//& + 'can only be used by itself and is a reserved name') + + allocate(self % matIdxs(self % nMat)) + if (dict % isPresent('all')) then + self % matIdxs = ALL_MATS + else + do i = 1, self % nMat + self % matIdxs(i) = mm_matIdx(mats(i)) + end do + end if + + ! Size field value array + self % outLocalID = product(self % sizeN) + 1 + self % N = product(self % sizeN * self % nMat) + 1 + allocate(self % val(self % N)) + + ! Read field values for each material + idx0 = 0 + do i = 1, size(mats) + + call dict % get(temp, mats(i)) + + ! Flip array up-down for more natural input + ! Reshape into rank 2 array + tempMap = reshape(temp, [self % sizeN(1), self % sizeN(2) * self % sizeN(3)]) + N = size(tempMap, 2) + do j = 1, N/2 + call swap(tempMap(:,j), tempMap(:,N - j + 1)) + end do + + ! Build fill array + N = size(tempMap, 1) + do j = 1, size(tempMap, 2) + do k = 1, N + self % val(idx0 + k + (j-1) * N) = tempMap(k, j) + end do + end do + + ! Increment starting position + idx0 = idx0 + size(temp) + + end do + + ! Set default value when not in the field + call dict % getOrDefault(self % val(self % N), 'default', -INF) + + end subroutine init + + !! + !! Get value of the field at the co-ordinate point + !! + !! See pieceConstantField for details + !! + function at(self, p) result(val) + class(cartesianField), intent(in) :: self + class(particle), intent(in) :: p + real(defReal) :: val + integer(shortInt) :: idx, localID + + localID = self % getLocalID(p % rGlobal(), p % dirGlobal()) + + if (localID == self % outLocalID) then + val = self % val(self % N) + return + + end if + + ! Compare against material idx + if (self % matIdxs(1) /= ALL_MATS) then + idx = findloc(self % matIdxs, p % matIdx(), 1) + localID = localID + (idx - 1) * product(self % sizeN) + end if + + val = self % val(localID) + + end function at + + !! + !! Get distance to the next element of the field at the co-ordinate point and direction + !! + !! See pieceConstantField for details + !! + function distance(self, p) result(d) + class(cartesianField), intent(in) :: self + class(particle), intent(in) :: p + real(defReal) :: d + real(defReal) :: test_d + integer(shortInt) :: localID, temp, base, ax, i + integer(shortInt), dimension(3) :: ijk + real(defReal), dimension(3) :: bounds, r_bar, u + + localID = self % getLocalID(p % rGlobal(), p % dirGlobal()) + + ! Catch case if particle is outside the lattice + if (localID == self % outLocalID) then + d = self % outline % distance(p % rGlobal(), p % dirGlobal()) + return + + end if + + ! Compute ijk of localID + temp = localID - 1 + + base = temp / self % sizeN(1) + ijk(1) = temp - self % sizeN(1) * base + 1 + + temp = base + base = temp / self % sizeN(2) + ijk(2) = temp - self % sizeN(2) * base + 1 + + ijk(3) = base + 1 + + ! Find position wrt lattice cell centre + ! Need to use localID to properly handle under and overshoots + u = p % dirGlobal() + r_bar = p % rGlobal() - self % corner + r_bar = r_bar - (ijk - HALF) * self % pitch + + ! Select surfaces in the direction of the particle + bounds = sign(self % pitch * HALF, u) + + ! Find minimum distance + ! Relay on IEEE 754 standard (for floating point numbers) + ! 0.0/0.0 = NaN and (NaN < A = false; for every A) + ! A/0.0 = Infinity (if A > 0.0) + ! + ! Provide default axis to ensure no out of bounds array access if + ! all distances happen to be infinite + d = INF + ax = 1 + do i = 1, 3 + ! Nominator and denominator will have the same sign (by earlier bounds selection) + test_d = (bounds(i) - r_bar(i)) / u(i) + + if (test_d < d) then + d = test_d + ax = i + end if + end do + + ! Cap distance value + d = max(ZERO, d) + d = min(INF, d) + + end function distance + + !! + !! Clean-up + !! + elemental subroutine kill(self) + class(cartesianField), intent(inout) :: self + + call self % killSuper() + + self % pitch = ZERO + self % sizeN = 0 + self % nMat = 0 + self % corner = ZERO + self % a_bar = ZERO + self % outLocalID = 0 + call self % outline % kill() + + end subroutine kill + + !! + !! Find the local integer ID in the field given position and direction + !! + function getLocalID(self, r, u) result(localID) + class(cartesianField), intent(in) :: self + real(defReal), dimension(3) :: r + real(defReal), dimension(3) :: u + integer(shortInt) :: localID + real(defReal), dimension(3) :: r_bar + integer(shortInt), dimension(3) :: ijk + integer(shortInt) :: i, inc + + ijk = floor((r - self % corner) / self % pitch) + 1 + + ! Get position wrt middle of the lattice cell + r_bar = r - self % corner - ijk * self % pitch + HALF * self % pitch + + ! Check if position is within surface tolerance + ! If it is, push it to next cell + do i = 1, 3 + if (abs(r_bar(i)) > self % a_bar(i) .and. r_bar(i)*u(i) > ZERO) then + + ! Select increment. Ternary expression + if (u(i) < ZERO) then + inc = -1 + else + inc = 1 + end if + + ijk(i) = ijk(i) + inc + end if + end do + + if (any(ijk <= 0 .or. ijk > self % sizeN)) then ! Point is outside lattice + localID = self % outLocalID + + else + localID = ijk(1) + self % sizeN(1) * (ijk(2)-1 + self % sizeN(2) * (ijk(3)-1)) + + end if + + + end function getLocalID + + !! + !! Cast field pointer to cartesianField pointer + !! + !! Args: + !! source [in] -> source pointer of class field + !! + !! Result: + !! Null is source is not of cartesianField + !! Pointer to source if source is cartesianField type + !! + pure function cartesianField_TptrCast(source) result(ptr) + class(field), pointer, intent(in) :: source + type(cartesianField), pointer :: ptr + + select type (source) + type is (cartesianField) + ptr => source + + class default + ptr => null() + end select + + end function cartesianField_TptrCast + +end module cartesianField_class diff --git a/Geometry/Fields/PieceConstantFields/pieceConstantField_inter.f90 b/Geometry/Fields/PieceConstantFields/pieceConstantField_inter.f90 new file mode 100644 index 000000000..6a9bf3f27 --- /dev/null +++ b/Geometry/Fields/PieceConstantFields/pieceConstantField_inter.f90 @@ -0,0 +1,166 @@ +module pieceConstantField_inter + + use numPrecision + use genericProcedures, only : fatalError, numToChar + use field_inter, only : field + use particle_class, only : particle + use dictionary_class, only : dictionary + + implicit none + private + + !! + !! Public Pointer Cast + !! + public :: pieceConstantField_CptrCast + + !! + !! Piecewise constant field. Values of the field are piecewise constant. + !! Provides a distance calculation to neighbouring elements, allowing surface + !! tracking to be used. + !! + !! Access to field is via coordList to allow more fancy fields to be defined + !! (e.g. assign value to each uniqueID etc.) + !! + !! Interface: + !! field interface + !! at -> Return scalar value given position coordinates and index of value + !! distance -> Return distance to next element of the field + !! setValue -> Sets value of field at a given index + !! getMaxValue -> Returns the maximum field value + !! + type, public, abstract, extends(field) :: pieceConstantField + real(defReal), dimension(:), allocatable :: val + integer(shortInt) :: N = 0 + contains + procedure(at), deferred :: at + procedure(distance), deferred :: distance + + procedure :: setValue + procedure :: getMaxValue + + procedure :: killSuper + end type pieceConstantField + + abstract interface + + !! + !! Get value of the field at the co-ordinate point + !! + !! Args: + !! coords [in] -> Coordinates of the position in the geometry + !! + !! Result: + !! Value of the scalar field. Real number. + !! + function at(self, p) result(val) + import :: pieceConstantField, particle, defReal + class(pieceConstantField), intent(in) :: self + class(particle), intent(in) :: p + real(defReal) :: val + end function at + + !! + !! Get distance to the next element of the field at the co-ordinate point and direction + !! + !! Args: + !! coords [in] -> Coordinates of the position in the geometry + !! + !! Result: + !! Distance to the next element of the field. Real number. + !! + function distance(self, p) result(d) + import :: pieceConstantField, particle, defReal + class(pieceConstantField), intent(in) :: self + class(particle), intent(in) :: p + real(defReal) :: d + end function distance + + end interface + +contains + + !! + !! Cast field pointer to pieceConstantField pointer + !! + !! Args: + !! source [in] -> source pointer of class field + !! + !! Result: + !! Null is source is not of pieceConstantField + !! Pointer to source if source is pieceConstantField class + !! + pure function pieceConstantField_CptrCast(source) result(ptr) + class(field), pointer, intent(in) :: source + class(pieceConstantField), pointer :: ptr + + select type (source) + class is (pieceConstantField) + ptr => source + + class default + ptr => null() + end select + + end function pieceConstantField_CptrCast + + !! + !! Sets the value of a field at a given index. + !! May be used to update the field. + !! + !! Args: + !! val [in] -> Value to input + !! idx [in] -> Index of the field to overwrite + !! + !! Errors: + !! If the values of the field are not allocated + !! If the index is out of bounds + !! + subroutine setValue(self, val, idx) + class(pieceConstantField), intent(inout) :: self + real(defReal), intent(in) :: val + integer(shortInt), intent(in) :: idx + character(100), parameter :: Here = 'setValue_idx (pieceConstantField_class.f90)' + + if (.not. allocated(self % val)) call fatalError(Here,& + 'The values of the field have not been allocated') + + if (idx < 1 .or. idx > self % N) call fatalError(Here,& + 'Invalid index to overwrite: '//numToChar(idx)& + //'. Field has size: '//numToChar(self % N)) + + self % val(idx) = val + + end subroutine setValue + + !! + !! Returns the value of the maximum value of the field. + !! This may be useful, e.g., in ensuring the majorant is correct. + !! + !! Errors: + !! If the values of the field are not allocated + !! + function getMaxValue(self) result(val) + class(pieceConstantField), intent(inout) :: self + real(defReal) :: val + character(100), parameter :: Here = 'getMaxValue (pieceConstantField_class.f90)' + + if (.not. allocated(self % val)) call fatalError(Here,& + 'The values of the field have not been allocated') + + val = maxval(self % val) + + end function getMaxValue + + !! + !! Kills elements of the superclass + !! + elemental subroutine killSuper(self) + class(pieceConstantField), intent(inout) :: self + + if (allocated(self % val)) deallocate(self % val) + self % N = 0 + + end subroutine killSuper + +end module pieceConstantField_inter From 1a63bfa32221b10a406ce8c3d94f676f5c5b835b Mon Sep 17 00:00:00 2001 From: ChasingNeutrons Date: Fri, 1 Aug 2025 16:14:14 +0100 Subject: [PATCH 05/10] PieceConstant fields take coordList --- .../Tests/cartesianField_test.f90 | 12 +++++----- .../cartesianField_class.f90 | 22 +++++++++---------- .../pieceConstantField_inter.f90 | 20 ++++++++--------- Tallies/TallyMaps/CMakeLists.txt | 2 +- 4 files changed, 28 insertions(+), 28 deletions(-) diff --git a/Geometry/Fields/PieceConstantFields/Tests/cartesianField_test.f90 b/Geometry/Fields/PieceConstantFields/Tests/cartesianField_test.f90 index 783740753..2c8df5c02 100644 --- a/Geometry/Fields/PieceConstantFields/Tests/cartesianField_test.f90 +++ b/Geometry/Fields/PieceConstantFields/Tests/cartesianField_test.f90 @@ -54,32 +54,32 @@ subroutine test_cartesianField() ! Inside region x = 2, y = 1, z = 1 call p % point([1.0_defReal, 0.0_defReal, 0.0_defReal]) call p % teleport([1.0_defReal, 1.0_defReal, 0.4_defReal]) - @assertEqual(8.0_defReal, fieldT % at(p), TOL) + @assertEqual(8.0_defReal, fieldT % at(p % coords), TOL) ! Inside region x = 1, y = 2, z = 3 call p % point([1.0_defReal, 0.0_defReal, 0.0_defReal]) call p % teleport([-0.4_defReal, 2.2_defReal, 1.3_defReal]) - @assertEqual(1.0_defReal, fieldT % at(p), TOL) + @assertEqual(1.0_defReal, fieldT % at(p % coords), TOL) ! Outside the field call p % teleport([-8.5_defReal, 4.5_defReal, 0.9_defReal]) - @assertEqual(-6.2_defReal, fieldT % at(p), TOL) + @assertEqual(-6.2_defReal, fieldT % at(p % coords), TOL) ! Check distances to the field ! Inside, pointing along x call p % point([1.0_defReal, 0.0_defReal, 0.0_defReal]) call p % teleport([1.0_defReal, 3.5_defReal, 0.9_defReal]) - @assertEqual(0.5_defReal, fieldT % distance(p), TOL) + @assertEqual(0.5_defReal, fieldT % distance(p % coords), TOL) ! Inside, at an angle call p % point([-sqrt(2.0_defReal)/2, sqrt(2.0_defReal)/2, 0.0_defReal]) call p % teleport([0.9_defReal, 1.0_defReal, 0.4_defReal]) - @assertEqual(0.4_defReal * sqrt(2.0_defReal), fieldT % distance(p), TOL) + @assertEqual(0.4_defReal * sqrt(2.0_defReal), fieldT % distance(p % coords), TOL) ! Outside, at an angle call p % point([-sqrt(2.0_defReal)/2, -sqrt(2.0_defReal)/2, 0.0_defReal]) call p % teleport([2.0_defReal, 4.5_defReal, 1.0_defReal]) - @assertEqual(1.0_defReal/sqrt(2.0_defReal), fieldT % distance(p), TOL) + @assertEqual(1.0_defReal/sqrt(2.0_defReal), fieldT % distance(p % coords), TOL) ! Kill call fieldT % kill() diff --git a/Geometry/Fields/PieceConstantFields/cartesianField_class.f90 b/Geometry/Fields/PieceConstantFields/cartesianField_class.f90 index 096a9895e..255fe4345 100644 --- a/Geometry/Fields/PieceConstantFields/cartesianField_class.f90 +++ b/Geometry/Fields/PieceConstantFields/cartesianField_class.f90 @@ -5,7 +5,7 @@ module cartesianField_class use genericProcedures, only : fatalError, numToChar, swap use field_inter, only : field use pieceConstantField_inter, only : pieceConstantField - use particle_class, only : particle + use coord_class, only : coordList use dictionary_class, only : dictionary use box_class, only : box use materialMenu_mod, only : mm_matIdx => matIdx @@ -200,13 +200,13 @@ end subroutine init !! !! See pieceConstantField for details !! - function at(self, p) result(val) + function at(self, coords) result(val) class(cartesianField), intent(in) :: self - class(particle), intent(in) :: p + class(coordList), intent(in) :: coords real(defReal) :: val integer(shortInt) :: idx, localID - localID = self % getLocalID(p % rGlobal(), p % dirGlobal()) + localID = self % getLocalID(coords % lvl(1) % r, coords % lvl(1) % dir) if (localID == self % outLocalID) then val = self % val(self % N) @@ -216,7 +216,7 @@ function at(self, p) result(val) ! Compare against material idx if (self % matIdxs(1) /= ALL_MATS) then - idx = findloc(self % matIdxs, p % matIdx(), 1) + idx = findloc(self % matIdxs, coords % matIdx, 1) localID = localID + (idx - 1) * product(self % sizeN) end if @@ -229,20 +229,20 @@ end function at !! !! See pieceConstantField for details !! - function distance(self, p) result(d) + function distance(self, coords) result(d) class(cartesianField), intent(in) :: self - class(particle), intent(in) :: p + class(coordList), intent(in) :: coords real(defReal) :: d real(defReal) :: test_d integer(shortInt) :: localID, temp, base, ax, i integer(shortInt), dimension(3) :: ijk real(defReal), dimension(3) :: bounds, r_bar, u - localID = self % getLocalID(p % rGlobal(), p % dirGlobal()) + localID = self % getLocalID(coords % lvl(1) % r, coords % lvl(1) % dir) ! Catch case if particle is outside the lattice if (localID == self % outLocalID) then - d = self % outline % distance(p % rGlobal(), p % dirGlobal()) + d = self % outline % distance(coords % lvl(1) % r, coords % lvl(1) % dir) return end if @@ -261,8 +261,8 @@ function distance(self, p) result(d) ! Find position wrt lattice cell centre ! Need to use localID to properly handle under and overshoots - u = p % dirGlobal() - r_bar = p % rGlobal() - self % corner + u = coords % lvl(1) % dir + r_bar = coords % lvl(1) % r - self % corner r_bar = r_bar - (ijk - HALF) * self % pitch ! Select surfaces in the direction of the particle diff --git a/Geometry/Fields/PieceConstantFields/pieceConstantField_inter.f90 b/Geometry/Fields/PieceConstantFields/pieceConstantField_inter.f90 index 6a9bf3f27..09c1ba638 100644 --- a/Geometry/Fields/PieceConstantFields/pieceConstantField_inter.f90 +++ b/Geometry/Fields/PieceConstantFields/pieceConstantField_inter.f90 @@ -3,7 +3,7 @@ module pieceConstantField_inter use numPrecision use genericProcedures, only : fatalError, numToChar use field_inter, only : field - use particle_class, only : particle + use coord_class, only : coordList use dictionary_class, only : dictionary implicit none @@ -24,7 +24,7 @@ module pieceConstantField_inter !! !! Interface: !! field interface - !! at -> Return scalar value given position coordinates and index of value + !! at -> Return scalar value given particle !! distance -> Return distance to next element of the field !! setValue -> Sets value of field at a given index !! getMaxValue -> Returns the maximum field value @@ -45,7 +45,7 @@ module pieceConstantField_inter abstract interface !! - !! Get value of the field at the co-ordinate point + !! Get value of the field at the given coordinates !! !! Args: !! coords [in] -> Coordinates of the position in the geometry @@ -53,15 +53,15 @@ module pieceConstantField_inter !! Result: !! Value of the scalar field. Real number. !! - function at(self, p) result(val) - import :: pieceConstantField, particle, defReal + function at(self, coords) result(val) + import :: pieceConstantField, coordList, defReal class(pieceConstantField), intent(in) :: self - class(particle), intent(in) :: p + class(coordList), intent(in) :: coords real(defReal) :: val end function at !! - !! Get distance to the next element of the field at the co-ordinate point and direction + !! Get distance to the next element of the field at the given coordinates !! !! Args: !! coords [in] -> Coordinates of the position in the geometry @@ -69,10 +69,10 @@ end function at !! Result: !! Distance to the next element of the field. Real number. !! - function distance(self, p) result(d) - import :: pieceConstantField, particle, defReal + function distance(self, coords) result(d) + import :: pieceConstantField, coordList, defReal class(pieceConstantField), intent(in) :: self - class(particle), intent(in) :: p + class(coordList), intent(in) :: coords real(defReal) :: d end function distance diff --git a/Tallies/TallyMaps/CMakeLists.txt b/Tallies/TallyMaps/CMakeLists.txt index 0ac9ee1d0..cf177fbe6 100644 --- a/Tallies/TallyMaps/CMakeLists.txt +++ b/Tallies/TallyMaps/CMakeLists.txt @@ -12,7 +12,7 @@ add_sources(./tallyMap_inter.f90 ./Maps1D/homogMatMap_class.f90 ./Maps1D/weightMap_class.f90 ./Maps1D/cellMap_class.f90 - ./Maps1D/radialMap_class.f90 + ./Maps1D/radialMap_class.f90 ./Maps1D/collNumMap_class.f90 ./Maps1D/directionMap_class.f90 ) From 53a35b54fd6b5c0e66e9c7af57ab15f54806c899 Mon Sep 17 00:00:00 2001 From: ChasingNeutrons Date: Fri, 1 Aug 2025 18:37:17 +0100 Subject: [PATCH 06/10] Silly BEAVRS fix... --- InputFiles/Benchmarks/BEAVRS/BEAVRS_HZP | 11 ----------- 1 file changed, 11 deletions(-) diff --git a/InputFiles/Benchmarks/BEAVRS/BEAVRS_HZP b/InputFiles/Benchmarks/BEAVRS/BEAVRS_HZP index bd4ad8531..95f3efdfb 100644 --- a/InputFiles/Benchmarks/BEAVRS/BEAVRS_HZP +++ b/InputFiles/Benchmarks/BEAVRS/BEAVRS_HZP @@ -232,16 +232,6 @@ geometry { NS3 { type simpleCell; id 12; surfaces (-4 5 -10 11); filltype mat; material SS304;} NS4 { type simpleCell; id 13; surfaces (-4 5 10 -11); filltype mat; material SS304;} -<<<<<<< HEAD - // Water in the arc between neutron shields - outerWaterSeg1 {type simpleCell; id 14; surfaces (-4 5 ); filltype mat; material Water;} - outerWater2 {type simpleCell; id 15; surfaces (-5 6 ); filltype mat; material Water;} - - // Outer core - coreBarrel { type simpleCell; id 16; surfaces (-6 7); filltype mat; material SS304;} - core {type simpleCell; id 17; surfaces (-5); filltype uni; universe 9999;} - -======= // Water in the radial sliver between neutron shields and core waterSliver1 {type simpleCell; id 14; surfaces (6 -5 -8 9); filltype mat; material Water;} waterSliver2 {type simpleCell; id 15; surfaces (6 -5 8 -9); filltype mat; material Water;} @@ -257,7 +247,6 @@ geometry { // Outer core coreBarrel { type simpleCell; id 22; surfaces (-6 7); filltype mat; material SS304;} core {type simpleCell; id 23; surfaces (-7); filltype uni; universe 9999;} ->>>>>>> 8531673e715792a098906c8d2f88bb4d7eab1bf3 // Gridded pins From 8eaabadafcc61f38aa44c90d9a63e998666ef86f Mon Sep 17 00:00:00 2001 From: ChasingNeutrons Date: Fri, 1 Aug 2025 18:43:41 +0100 Subject: [PATCH 07/10] Fixes to silly things --- InputFiles/Benchmarks/BEAVRS/BEAVRS_HZP | 4834 ++++++++--------- Tallies/TallyMaps/CMakeLists.txt | 2 +- .../TallyMaps/Maps1D/Tests/spaceMap_test.f90 | 21 - Tallies/TallyMaps/Maps1D/spaceMap_class.f90 | 41 - Tallies/TallyMaps/Tests/multiMap_test.f90 | 19 - Tallies/TallyMaps/multiMap_class.f90 | 31 +- Tallies/TallyMaps/tallyMap_inter.f90 | 31 +- 7 files changed, 2426 insertions(+), 2553 deletions(-) diff --git a/InputFiles/Benchmarks/BEAVRS/BEAVRS_HZP b/InputFiles/Benchmarks/BEAVRS/BEAVRS_HZP index 95f3efdfb..daf0857fb 100644 --- a/InputFiles/Benchmarks/BEAVRS/BEAVRS_HZP +++ b/InputFiles/Benchmarks/BEAVRS/BEAVRS_HZP @@ -1,2417 +1,2417 @@ -!! -!! 3D BEAVRS benchmark -!! At HZP, the D bank of rods is partially inserted up -!! to 115 steps inserted / 113 steps withdrawn. -!! A step corresponds to an increment of 1.58193cm -!! -type eigenPhysicsPackage; - -pop 1000000; -active 50; -inactive 250; -XSdata ce; -dataType ce; - -collisionOperator { neutronCE {type neutronCEstd;}} - -transportOperator { - !type transportOperatorDT; - type transportOperatorHT; cache 1; - } - -inactiveTally { - shannon { - type shannonEntropyClerk; - map {type multiMap; - maps (xax yax zax); - xax { type spaceMap; grid lin; min -161.2773; max 161.2773; N 15; axis x;} - yax { type spaceMap; grid lin; min -161.2773; max 161.2773; N 15; axis y;} - zax { type spaceMap; grid lin; min 36.748; max 402.508; N 15; axis z;} - } - cycles 200; - } - -} - -activeTally { - pinFissRadial { type collisionClerk; response (fission); fission { type macroResponse; MT -6;} - map {type multiMap; maps (xax yax); - xax {type spaceMap; axis x; grid lin; N 255; min -161.2773; max 161.2773; } - yax {type spaceMap; axis y; grid lin; N 255; min -161.2773; max 161.2773; } - } - } - assemblyFissRadial { type collisionClerk; response (fission); fission { type macroResponse; MT -6;} - map {type multiMap; maps (xax yax); - xax {type spaceMap; axis x; grid lin; N 15; min -161.2773; max 161.2773; } - yax {type spaceMap; axis y; grid lin; N 15; min -161.2773; max 161.2773; } - } - } - fissionAxial { type collisionClerk; response (fission); fission { type macroResponse; MT -6;} - map {type spaceMap; axis z; grid lin; N 60; min 36.748; max 402.508;} - } - fissionYZ { type collisionClerk; response (fission); fission { type macroResponse; MT -6;} - map {type multiMap; maps (yax zax); - yax {type spaceMap; axis y; grid lin; N 255; min -161.2773; max 161.2773; } - zax {type spaceMap; axis z; grid lin; N 60; min 36.748; max 402.508;} - } - } -} - -geometry { - type geometryStd; - boundary ( 0 0 0 0 0 0); - graph {type shrunk;} - - surfaces { - - // thickness specifications for RPV and RPV liner - outerRPV { id 1; type zTruncCylinder; radius 241.3; origin (0.0 0.0 230.0); halfwidth 230; } - innerRPV { id 2; type zCylinder; radius 219.710; origin (0.0 0.0 0.0); } - innerRPVLiner { id 3; type zCylinder; radius 219.150; origin (0.0 0.0 0.0); } - - // thickness specifications for neutron shield - outerBoundNS { id 4; type zCylinder; radius 201.630; origin (0.0 0.0 0.0); } - innerBoundNS { id 5; type zCylinder; radius 194.84; origin (0.0 0.0 0.0); } - - // thickness specifications for core barrel - outerCoreBarrel { id 6; type zCylinder; radius 193.675; origin (0.0 0.0 0.0); } - innerCoreBarrel { id 7; type zCylinder; radius 187.96; origin (0.0 0.0 0.0); } - - // four planes that intersect to bound the Neutron shield panel - P1 { id 8; type plane; coeffs (-0.48480962025 0.87461970714 0.0 0.0);} - P2 { id 9; type plane; coeffs (-0.87461970714 0.48480962025 0.0 0.0);} - P3 { id 10; type plane; coeffs (-0.87461970714 -0.48480962025 0.0 0.0);} - P4 { id 11; type plane; coeffs (-0.48480962025 -0.87461970714 0.0 0.0);} - - // bounding widths for baffle on various sides - // right & left refers to the side of the reactor that it is on - // close/away refers to its location in relation to the LATTICE it is a part of - // (NOT the reactor itself) - rightClose { id 50; type plane; coeffs (1.0 0.0 0.0 8.36662);} - rightAway { id 51; type plane; coeffs (1.0 0.0 0.0 10.58912);} - leftClose { id 52; type plane; coeffs (-1.0 0.0 0.0 8.36662);} - leftAway { id 53; type plane; coeffs (-1.0 0.0 0.0 10.58912);} - bottomClose { id 54; type plane; coeffs (0.0 -1.0 0.0 8.36662);} - bottomAway { id 55; type plane; coeffs (0.0 -1.0 0.0 10.58912);} - topClose { id 56; type plane; coeffs (0.0 1.0 0.0 8.36662);} - topAway { id 57; type plane; coeffs (0.0 1.0 0.0 10.58912);} - - // thickness specifications for grid with thickness of 0.0198cm (Inconel) - pinThickGridInner { id 90; type zSquareCylinder; origin (0.0 0.0 0.0); halfwidth (0.61015 0.61015 0.0); } - pinThickGridOuter { id 91; type zSquareCylinder; origin (0.0 0.0 0.0); halfwidth (0.62992 0.62992 0.0); } - - // thickness specifications for grid with thickness of 0.0194cm (Zircaloy) - pinThinGridInner { id 92; type zSquareCylinder; origin (0.0 0.0 0.0); halfwidth (0.61049 0.61049 0.0); } - pinThinGridOuter { id 93; type zSquareCylinder; origin (0.0 0.0 0.0); halfwidth (0.62992 0.62992 0.0); } - - // inner and outer surfaces of assembly sleeves (both SS and Zircaloy) - assemblySleeveInner { id 94; type zSquareCylinder; origin (0.0 0.0 0.0); halfwidth (10.70864 10.70864 0.0); } - assemblySleeveOuter { id 95; type zSquareCylinder; origin (0.0 0.0 0.0); halfwidth (10.74798 10.74798 0.0); } - - - // Axial planes across core height - // Names are based on axial heights - plane460 { id 100; type plane; coeffs (0.0 0.0 1.0 460.0 ); } - plane431p876 { id 101; type plane; coeffs (0.0 0.0 1.0 431.876); } - plane423p049 { id 102; type plane; coeffs (0.0 0.0 1.0 423.049); } - plane421p532 { id 103; type plane; coeffs (0.0 0.0 1.0 421.532); } - plane419p704 { id 104; type plane; coeffs (0.0 0.0 1.0 419.704); } - plane417p164 { id 105; type plane; coeffs (0.0 0.0 1.0 417.164); } - plane415p164 { id 106; type plane; coeffs (0.0 0.0 1.0 415.164); } - plane411p806 { id 107; type plane; coeffs (0.0 0.0 1.0 411.806); } - plane403p778 { id 108; type plane; coeffs (0.0 0.0 1.0 403.778); } - plane402p508 { id 109; type plane; coeffs (0.0 0.0 1.0 402.508); } - plane401p238 { id 110; type plane; coeffs (0.0 0.0 1.0 401.238); } - plane364p725 { id 111; type plane; coeffs (0.0 0.0 1.0 364.725); } - plane359p01 { id 112; type plane; coeffs (0.0 0.0 1.0 359.01 ); } - plane312p528 { id 113; type plane; coeffs (0.0 0.0 1.0 312.528); } - plane306p813 { id 114; type plane; coeffs (0.0 0.0 1.0 306.813); } - plane260p331 { id 115; type plane; coeffs (0.0 0.0 1.0 260.331); } - plane254p616 { id 116; type plane; coeffs (0.0 0.0 1.0 254.616); } - plane208p134 { id 117; type plane; coeffs (0.0 0.0 1.0 208.134); } - plane202p419 { id 118; type plane; coeffs (0.0 0.0 1.0 202.419); } - plane155p937 { id 119; type plane; coeffs (0.0 0.0 1.0 155.937); } - plane150p222 { id 120; type plane; coeffs (0.0 0.0 1.0 150.222); } - plane143p428 { id 121; type plane; coeffs (0.0 0.0 1.0 143.428); } - plane103p74 { id 122; type plane; coeffs (0.0 0.0 1.0 103.74 ); } - plane98p025 { id 123; type plane; coeffs (0.0 0.0 1.0 98.025 ); } - plane41p828 { id 124; type plane; coeffs (0.0 0.0 1.0 41.828 ); } - plane40p558 { id 125; type plane; coeffs (0.0 0.0 1.0 40.558 ); } - plane40p52 { id 126; type plane; coeffs (0.0 0.0 1.0 40.52 ); } - plane39p958 { id 127; type plane; coeffs (0.0 0.0 1.0 39.958 ); } - plane38p66 { id 128; type plane; coeffs (0.0 0.0 1.0 38.66 ); } - plane37p1621 { id 129; type plane; coeffs (0.0 0.0 1.0 37.1621); } - plane36p748 { id 130; type plane; coeffs (0.0 0.0 1.0 36.748 ); } - plane35 { id 131; type plane; coeffs (0.0 0.0 1.0 35.0 ); } - plane20 { id 132; type plane; coeffs (0.0 0.0 1.0 20.0 ); } - plane0 { id 133; type plane; coeffs (0.0 0.0 1.0 0.0 ); } - - planeSteelBottom { id 134; type plane; coeffs (0.0 0.0 1.0 400.638); } - planeCRLowerBottom { id 135; type plane; coeffs (0.0 0.0 1.0 402.508); } // same as 109 on withdrawal - planeCRUpperBottom { id 136; type plane; coeffs (0.0 0.0 1.0 504.108); } // out of core on withdrawal - - plane322p1861 {id 137; type plane; coeffs (0 0 1 322.18609);} - plane220p586 {id 138; type plane; coeffs (0 0 1 220.5861);} - plane218p716 {id 139; type plane; coeffs (0 0 1 218.71609);} - - } - - cells { - - // assembly wrappers and surrounding water at various heights - wrapper1 {type simpleCell; id 2001; surfaces (94 -95 129 -126); filltype mat; material SS304;} - wrapper2 {type simpleCell; id 2002; surfaces (94 -95 123 -122); filltype mat; material Zircaloy;} - wrapper3 {type simpleCell; id 2003; surfaces (94 -95 120 -119); filltype mat; material Zircaloy;} - wrapper4 {type simpleCell; id 2004; surfaces (94 -95 118 -117); filltype mat; material Zircaloy;} - wrapper5 {type simpleCell; id 2005; surfaces (94 -95 116 -115); filltype mat; material Zircaloy;} - wrapper6 {type simpleCell; id 2006; surfaces (94 -95 114 -113); filltype mat; material Zircaloy;} - wrapper7 {type simpleCell; id 2007; surfaces (94 -95 112 -111); filltype mat; material Zircaloy;} - wrapper8 {type simpleCell; id 2008; surfaces (94 -95 107 -106); filltype mat; material SS304;} - - assemWater0 {type simpleCell; id 2009; surfaces (94 -129); filltype mat; material Water;} - assemWater1 {type simpleCell; id 2010; surfaces (94 -95 126 -123); filltype mat; material Water;} - assemWater2 {type simpleCell; id 2011; surfaces (94 -95 122 -120); filltype mat; material Water;} - assemWater3 {type simpleCell; id 2012; surfaces (94 -95 119 -118); filltype mat; material Water;} - assemWater4 {type simpleCell; id 2013; surfaces (94 -95 117 -116); filltype mat; material Water;} - assemWater5 {type simpleCell; id 2014; surfaces (94 -95 115 -114); filltype mat; material Water;} - assemWater6 {type simpleCell; id 2015; surfaces (94 -95 113 -112); filltype mat; material Water;} - assemWater7 {type simpleCell; id 2016; surfaces (94 -95 111 -107); filltype mat; material Water;} - assemWater8 {type simpleCell; id 2017; surfaces (94 -95 106); filltype mat; material Water;} - assemWaterEx {type simpleCell; id 2018; surfaces (95); filltype mat; material Water;} - - // assemblies inside the wrappers - assem1424 {type simpleCell; id 2019; surfaces (-94); filltype uni; universe 1424;} - assem1416 {type simpleCell; id 2020; surfaces (-94); filltype uni; universe 1416;} - assem1431 {type simpleCell; id 2021; surfaces (-94); filltype uni; universe 1431;} - assem60316 {type simpleCell; id 2022; surfaces (-94); filltype uni; universe 60316;} - assem603112 {type simpleCell; id 2023; surfaces (-94); filltype uni; universe 603112;} - assem60313 {type simpleCell; id 2024; surfaces (-94); filltype uni; universe 60313;} - assem60319 {type simpleCell; id 2025; surfaces (-94); filltype uni; universe 60319;} - assem15315 {type simpleCell; id 2026; surfaces (-94); filltype uni; universe 15315;} - assem15317 {type simpleCell; id 2027; surfaces (-94); filltype uni; universe 15317;} - assem15311 {type simpleCell; id 2028; surfaces (-94); filltype uni; universe 15311;} - assem153111 {type simpleCell; id 2029; surfaces (-94); filltype uni; universe 153111;} - assem1631 {type simpleCell; id 2030; surfaces (-94); filltype uni; universe 1631;} - assem2031 {type simpleCell; id 2031; surfaces (-94); filltype uni; universe 2031;} - assem1224 {type simpleCell; id 2032; surfaces (-94); filltype uni; universe 1224;} - assem1624 {type simpleCell; id 2033; surfaces (-94); filltype uni; universe 1624;} - - // unrodded assemblies in wrappers - assem2424 {type simpleCell; id 2034; surfaces (-94); filltype uni; universe 2424;} - assem2416 {type simpleCell; id 2035; surfaces (-94); filltype uni; universe 2416;} - assem2431 {type simpleCell; id 2036; surfaces (-94); filltype uni; universe 2431;} - assem70316 {type simpleCell; id 2037; surfaces (-94); filltype uni; universe 70316;} - assem703112 {type simpleCell; id 2038; surfaces (-94); filltype uni; universe 703112;} - assem70313 {type simpleCell; id 2039; surfaces (-94); filltype uni; universe 70313;} - assem70319 {type simpleCell; id 2040; surfaces (-94); filltype uni; universe 70319;} - assem25315 {type simpleCell; id 2041; surfaces (-94); filltype uni; universe 25315;} - assem25317 {type simpleCell; id 2042; surfaces (-94); filltype uni; universe 25317;} - assem25311 {type simpleCell; id 2043; surfaces (-94); filltype uni; universe 25311;} - assem253111 {type simpleCell; id 2044; surfaces (-94); filltype uni; universe 253111;} - assem2631 {type simpleCell; id 2045; surfaces (-94); filltype uni; universe 2631;} - assem3031 {type simpleCell; id 2046; surfaces (-94); filltype uni; universe 3031;} - assem2224 {type simpleCell; id 2047; surfaces (-94); filltype uni; universe 2224;} - assem2624 {type simpleCell; id 2048; surfaces (-94); filltype uni; universe 2624;} - - // rodded assemblies in wrappers - assem1425 {type simpleCell; id 2049; surfaces (-94); filltype uni; universe 1425;} - assem1417 {type simpleCell; id 2050; surfaces (-94); filltype uni; universe 1417;} - - // pin grids - thick at the top and bottom, thin in fuelled region - thickGrid {type simpleCell; id 555; surfaces (90 ); filltype mat; material Inconel;} - thinGrid {type simpleCell; id 556; surfaces (92 ); filltype mat; material Zircaloy;} - - // Don't need to bound PV by 1 since it is the bounding surface of the geometry. - pressureVessel { type simpleCell; id 7; surfaces (2); filltype mat; material CarbonSteel;} - RPVLiner { type simpleCell; id 8; surfaces (-2 3); filltype mat; material SS304;} - outerWater1 {type simpleCell; id 9; surfaces (-3 4 ); filltype mat; material Water;} - - // Neutron shields - NS1 { type simpleCell; id 10; surfaces (-4 5 -8 9); filltype mat; material SS304;} - NS2 { type simpleCell; id 11; surfaces (-4 5 8 -9); filltype mat; material SS304;} - NS3 { type simpleCell; id 12; surfaces (-4 5 -10 11); filltype mat; material SS304;} - NS4 { type simpleCell; id 13; surfaces (-4 5 10 -11); filltype mat; material SS304;} - - // Water in the radial sliver between neutron shields and core - waterSliver1 {type simpleCell; id 14; surfaces (6 -5 -8 9); filltype mat; material Water;} - waterSliver2 {type simpleCell; id 15; surfaces (6 -5 8 -9); filltype mat; material Water;} - waterSliver3 {type simpleCell; id 16; surfaces (6 -5 -10 11); filltype mat; material Water;} - waterSliver4 {type simpleCell; id 17; surfaces (6 -5 10 -11); filltype mat; material Water;} - - // Water in the arc between neutron shields - outerWaterSeg1 {type simpleCell; id 18; surfaces (-4 6 8 11); filltype mat; material Water;} - outerWaterSeg2 {type simpleCell; id 19; surfaces (-4 6 -8 -11); filltype mat; material Water;} - outerWaterSeg3 {type simpleCell; id 20; surfaces (-4 6 -9 10); filltype mat; material Water;} - outerWaterSeg4 {type simpleCell; id 21; surfaces (-4 6 9 -10); filltype mat; material Water;} - - // Outer core - coreBarrel { type simpleCell; id 22; surfaces (-6 7); filltype mat; material SS304;} - core {type simpleCell; id 23; surfaces (-7); filltype uni; universe 9999;} - - // Gridded pins - - // THICK GRID - // 2.4% in grid - grid24Thick {type simpleCell; id 253; surfaces (-90); filltype uni; universe 24000;} - // guide tube in grid - gridGTThick {type simpleCell; id 254; surfaces (-90); filltype uni; universe 12000;} - // 3.1% in grid - grid31Thick {type simpleCell; id 255; surfaces (-90); filltype uni; universe 31000;} - // 1.6 % in grid - grid16Thick {type simpleCell; id 256; surfaces (-90); filltype uni; universe 16000;} - // instrumentation tube in grid - gridITThick {type simpleCell; id 257; surfaces (-90); filltype uni; universe 14000;} - // empty GT at dashpot in grid - gridGTDPThick {type simpleCell; id 258; surfaces (-90); filltype uni; universe 1010;} - // pin upper fuel plenum in grid - gridFPPThick {type simpleCell; id 259; surfaces (-90); filltype uni; universe 1008;} - // stainless steel in guide tube in grid - gridSSGThick {type simpleCell; id 260; surfaces (-90); filltype uni; universe 1023;} - // stainless steel in dash pot in grid - gridSSDPThick {type simpleCell; id 261; surfaces (-90); filltype uni; universe 1024;} - // BP plenum in grid - gridBPPThick {type simpleCell; id 262; surfaces (-90); filltype uni; universe 1012;} - // Lower rodded GT in grid - gridLRGTThick {type simpleCell; id 263; surfaces (-90); filltype uni; universe 1014;} - // Upper rodded GT in grid - gridURGTThick {type simpleCell; id 463; surfaces (-90); filltype uni; universe 1013;} - - // THIN GRID - // 2.4% in grid - grid24Thin {type simpleCell; id 264; surfaces (-92); filltype uni; universe 24000;} - // guide tube in grid - gridGTThin {type simpleCell; id 265; surfaces (-92); filltype uni; universe 12000;} - // burnable poison in grid - gridBPThin {type simpleCell; id 266; surfaces (-92); filltype uni; universe 1000;} - // 3.1% in grid - grid31Thin {type simpleCell; id 267; surfaces (-92); filltype uni; universe 31000;} - // 1.6 % in grid - grid16Thin {type simpleCell; id 268; surfaces (-92); filltype uni; universe 16000;} - // instrumentation tube in grid - gridITThin {type simpleCell; id 269; surfaces (-92); filltype uni; universe 14000;} - // empty GT at dashpot in grid - gridGTDPThin {type simpleCell; id 270; surfaces (-92); filltype uni; universe 1010;} - // pin upper fuel plenum in grid - gridFPPThin {type simpleCell; id 271; surfaces (-92); filltype uni; universe 1008;} - // stainless steel in guide tube in grid - gridSSGTThin {type simpleCell; id 272; surfaces (-92); filltype uni; universe 1023;} - // stainless steel in dash pot in grid - gridSSDPThin {type simpleCell; id 273; surfaces (-92); filltype uni; universe 1024;} - // BP plenum in grid - gridBPPThin {type simpleCell; id 274; surfaces (-92); filltype uni; universe 1012;} - // Lower rodded GT in grid (not used when rods fully withdrawn) - gridLRGTThin {type simpleCell; id 275; surfaces (-92); filltype uni; universe 1014;} - // Upper rodded GT in grid (not used when rods fully withdrawn) - gridURGTThin {type simpleCell; id 475; surfaces (-92); filltype uni; universe 1013;} - - - // 3.1% enriched pins, axial layering - 31FP460 {type simpleCell; id 100; surfaces ( 101); filltype uni; universe 1001;} - 31FP431 {type simpleCell; id 101; surfaces (-101 102); filltype uni; universe 1003;} - 31FP423 {type simpleCell; id 102; surfaces (-102 104); filltype uni; universe 1001;} - 31FP419 {type simpleCell; id 103; surfaces (-104 105); filltype uni; universe 1006;} - 31FP417 {type simpleCell; id 104; surfaces (-105 106); filltype uni; universe 1008;} - 31FP415 {type simpleCell; id 105; surfaces (-106 107); filltype uni; universe 1017;} - 31FP411 {type simpleCell; id 106; surfaces (-107 109); filltype uni; universe 1008;} - 31FP402 {type simpleCell; id 107; surfaces (-109 111); filltype uni; universe 31000;} - 31FP364 {type simpleCell; id 108; surfaces (-111 112); filltype uni; universe 9231;} - 31FP359 {type simpleCell; id 109; surfaces (-112 113); filltype uni; universe 31000;} - 31FP312 {type simpleCell; id 110; surfaces (-113 114); filltype uni; universe 9231;} - 31FP306 {type simpleCell; id 111; surfaces (-114 115); filltype uni; universe 31000;} - 31FP260 {type simpleCell; id 112; surfaces (-115 116); filltype uni; universe 9231;} - 31FP254 {type simpleCell; id 113; surfaces (-116 117); filltype uni; universe 31000;} - 31FP208 {type simpleCell; id 114; surfaces (-117 118); filltype uni; universe 9231;} - 31FP202 {type simpleCell; id 115; surfaces (-118 119); filltype uni; universe 31000;} - 31FP155 {type simpleCell; id 116; surfaces (-119 120); filltype uni; universe 9231;} - 31FP150 {type simpleCell; id 117; surfaces (-120 122); filltype uni; universe 31000;} - 31FP103 {type simpleCell; id 118; surfaces (-122 123); filltype uni; universe 9231;} - 31FP98 {type simpleCell; id 119; surfaces (-123 126); filltype uni; universe 31000;} - 31FP4052 {type simpleCell; id 120; surfaces (-126 129); filltype uni; universe 1131;} - 31FP37 {type simpleCell; id 121; surfaces (-129 130); filltype uni; universe 31000;} - 31FP36 {type simpleCell; id 122; surfaces (-130 131); filltype uni; universe 1006;} - 31FP35 {type simpleCell; id 123; surfaces (-131 132); filltype uni; universe 1003;} - 31FP20 {type simpleCell; id 124; surfaces (-132 ); filltype uni; universe 1001;} - - - //2.4% enriched pins, axial layering - 24FP460 {type simpleCell; id 125; surfaces ( 101); filltype uni; universe 1001;} - 24FP431 {type simpleCell; id 126; surfaces (-101 102); filltype uni; universe 1003;} - 24FP423 {type simpleCell; id 127; surfaces (-102 104); filltype uni; universe 1001;} - 24FP419 {type simpleCell; id 128; surfaces (-104 105); filltype uni; universe 1006;} - 24FP417 {type simpleCell; id 129; surfaces (-105 106); filltype uni; universe 1008;} - 24FP415 {type simpleCell; id 130; surfaces (-106 107); filltype uni; universe 1017;} - 24FP411 {type simpleCell; id 131; surfaces (-107 109); filltype uni; universe 1008;} - 24FP402 {type simpleCell; id 132; surfaces (-109 111); filltype uni; universe 24000;} - 24FP364 {type simpleCell; id 133; surfaces (-111 112); filltype uni; universe 9224;} - 24FP359 {type simpleCell; id 134; surfaces (-112 113); filltype uni; universe 24000;} - 24FP312 {type simpleCell; id 135; surfaces (-113 114); filltype uni; universe 9224;} - 24FP306 {type simpleCell; id 136; surfaces (-114 115); filltype uni; universe 24000;} - 24FP260 {type simpleCell; id 137; surfaces (-115 116); filltype uni; universe 9224;} - 24FP254 {type simpleCell; id 138; surfaces (-116 117); filltype uni; universe 24000;} - 24FP208 {type simpleCell; id 139; surfaces (-117 118); filltype uni; universe 9224;} - 24FP202 {type simpleCell; id 140; surfaces (-118 119); filltype uni; universe 24000;} - 24FP155 {type simpleCell; id 141; surfaces (-119 120); filltype uni; universe 9224;} - 24FP150 {type simpleCell; id 142; surfaces (-120 122); filltype uni; universe 24000;} - 24FP103 {type simpleCell; id 143; surfaces (-122 123); filltype uni; universe 9224;} - 24FP98 {type simpleCell; id 144; surfaces (-123 126); filltype uni; universe 24000;} - 24FP4052 {type simpleCell; id 145; surfaces (-126 129); filltype uni; universe 1124;} - 24FP37 {type simpleCell; id 146; surfaces (-129 130); filltype uni; universe 24000;} - 24FP36 {type simpleCell; id 147; surfaces (-130 131); filltype uni; universe 1006;} - 24FP35 {type simpleCell; id 148; surfaces (-131 132); filltype uni; universe 1003;} - 24FP20 {type simpleCell; id 149; surfaces (-132); filltype uni; universe 1001;} - - //1.6% enriched pins, axial layering - 16FP460 {type simpleCell; id 150; surfaces ( 101); filltype uni; universe 1001;} - 16FP431 {type simpleCell; id 151; surfaces (-101 102); filltype uni; universe 1003;} - 16FP423 {type simpleCell; id 152; surfaces (-102 104); filltype uni; universe 1001;} - 16FP419 {type simpleCell; id 153; surfaces (-104 105); filltype uni; universe 1006;} - 16FP417 {type simpleCell; id 154; surfaces (-105 106); filltype uni; universe 1008;} - 16FP415 {type simpleCell; id 155; surfaces (-106 107); filltype uni; universe 1017;} - 16FP411 {type simpleCell; id 156; surfaces (-107 109); filltype uni; universe 1008;} - 16FP402 {type simpleCell; id 157; surfaces (-109 111); filltype uni; universe 16000;} - 16FP364 {type simpleCell; id 158; surfaces (-111 112); filltype uni; universe 9216;} - 16FP359 {type simpleCell; id 159; surfaces (-112 113); filltype uni; universe 16000;} - 16FP312 {type simpleCell; id 160; surfaces (-113 114); filltype uni; universe 9216;} - 16FP306 {type simpleCell; id 161; surfaces (-114 115); filltype uni; universe 16000;} - 16FP260 {type simpleCell; id 162; surfaces (-115 116); filltype uni; universe 9216;} - 16FP254 {type simpleCell; id 163; surfaces (-116 117); filltype uni; universe 16000;} - 16FP208 {type simpleCell; id 164; surfaces (-117 118); filltype uni; universe 9216;} - 16FP202 {type simpleCell; id 165; surfaces (-118 119); filltype uni; universe 16000;} - 16FP155 {type simpleCell; id 166; surfaces (-119 120); filltype uni; universe 9216;} - 16FP150 {type simpleCell; id 167; surfaces (-120 122); filltype uni; universe 16000;} - 16FP103 {type simpleCell; id 168; surfaces (-122 123); filltype uni; universe 9216;} - 16FP98 {type simpleCell; id 169; surfaces (-123 126); filltype uni; universe 16000;} - 16FP4052 {type simpleCell; id 170; surfaces (-126 129); filltype uni; universe 1116;} - 16FP37 {type simpleCell; id 171; surfaces (-129 130); filltype uni; universe 16000;} - 16FP36 {type simpleCell; id 172; surfaces (-130 131); filltype uni; universe 1006;} - 16FP35 {type simpleCell; id 173; surfaces (-131 132); filltype uni; universe 1003;} - 16FP20 {type simpleCell; id 174; surfaces (-132); filltype uni; universe 1001;} - - - //guide tube, with CR, axial layering - GC460 {type simpleCell; id 175; surfaces ( 101); filltype uni; universe 1014;} - GC431 {type simpleCell; id 176; surfaces (-101 106); filltype uni; universe 1014;} // Nozzle/support plate BW? Replaced just with rod - GC415 {type simpleCell; id 177; surfaces (-106 107); filltype uni; universe 1018;} // Rodded w/ grid - GC411 {type simpleCell; id 178; surfaces (-107 109); filltype uni; universe 1014;} - GC402 {type simpleCell; id 179; surfaces (-109 134); filltype uni; universe 1015;} - GC400 {type simpleCell; id 180; surfaces (-134 111); filltype uni; universe 12000;} - GC364 {type simpleCell; id 181; surfaces (-111 112); filltype uni; universe 9112;} - GC359 {type simpleCell; id 182; surfaces (-112 113); filltype uni; universe 12000;} - GC312 {type simpleCell; id 183; surfaces (-113 114); filltype uni; universe 9112;} - GC306 {type simpleCell; id 184; surfaces (-114 115); filltype uni; universe 12000;} - GC260 {type simpleCell; id 185; surfaces (-115 116); filltype uni; universe 9112;} - GC254 {type simpleCell; id 186; surfaces (-116 117); filltype uni; universe 12000;} - GC208 {type simpleCell; id 187; surfaces (-117 118); filltype uni; universe 9112;} - GC202 {type simpleCell; id 188; surfaces (-118 119); filltype uni; universe 12000;} - GC155 {type simpleCell; id 189; surfaces (-119 120); filltype uni; universe 9112;} - GC150 {type simpleCell; id 190; surfaces (-120 122); filltype uni; universe 12000;} - GC103 {type simpleCell; id 191; surfaces (-122 123); filltype uni; universe 9112;} - GC98 {type simpleCell; id 192; surfaces (-123 126); filltype uni; universe 1010;} - GC4052 {type simpleCell; id 193; surfaces (-126 127); filltype uni; universe 12000;} - GC39 {type simpleCell; id 194; surfaces (-127 129); filltype uni; universe 1019;} - GC37 {type simpleCell; id 195; surfaces (-129 131); filltype uni; universe 1010;} - GC35 {type simpleCell; id 196; surfaces (-131 132); filltype uni; universe 1005;} - GC20 {type simpleCell; id 197; surfaces (-132); filltype uni; universe 1001;} - - - // instrumentation tube, axial layering - IT460 {type simpleCell; id 198; surfaces ( 102); filltype uni; universe 1001;} - IT423 {type simpleCell; id 199; surfaces (-102 106); filltype uni; universe 14000;} - IT415 {type simpleCell; id 200; surfaces (-106 107); filltype uni; universe 1114;} - IT411 {type simpleCell; id 201; surfaces (-107 111); filltype uni; universe 14000;} - IT364 {type simpleCell; id 202; surfaces (-111 112); filltype uni; universe 9114;} - IT359 {type simpleCell; id 203; surfaces (-112 113); filltype uni; universe 14000;} - IT312 {type simpleCell; id 204; surfaces (-113 114); filltype uni; universe 9114;} - IT306 {type simpleCell; id 205; surfaces (-114 115); filltype uni; universe 14000;} - IT260 {type simpleCell; id 206; surfaces (-115 116); filltype uni; universe 9114;} - IT254 {type simpleCell; id 207; surfaces (-116 117); filltype uni; universe 14000;} - IT208 {type simpleCell; id 208; surfaces (-117 118); filltype uni; universe 9114;} - IT202 {type simpleCell; id 209; surfaces (-118 119); filltype uni; universe 14000;} - IT155 {type simpleCell; id 210; surfaces (-119 120); filltype uni; universe 9114;} - IT150 {type simpleCell; id 211; surfaces (-120 122); filltype uni; universe 14000;} - IT103 {type simpleCell; id 212; surfaces (-122 123); filltype uni; universe 9114;} - IT98 {type simpleCell; id 213; surfaces (-123 126); filltype uni; universe 14000;} - IT4052 {type simpleCell; id 214; surfaces (-126 129); filltype uni; universe 1114;} - IT37 {type simpleCell; id 215; surfaces (-129 131); filltype uni; universe 14000;} - IT35 {type simpleCell; id 216; surfaces (-131 132); filltype uni; universe 1005;} - IT20 {type simpleCell; id 217; surfaces (-132 ); filltype uni; universe 1011;} - - - // burnable absorber, axial layering - BA460 {type simpleCell; id 218; surfaces ( 101); filltype uni; universe 1001;} - BA431 {type simpleCell; id 219; surfaces (-101 102); filltype uni; universe 1002;} - BA423 {type simpleCell; id 220; surfaces (-102 103); filltype uni; universe 1023;} - BA421 {type simpleCell; id 230; surfaces (-103 106); filltype uni; universe 1012;} - BA415 {type simpleCell; id 231; surfaces (-106 107); filltype uni; universe 1027;} - BA411 {type simpleCell; id 232; surfaces (-107 110); filltype uni; universe 1012;} - BA401 {type simpleCell; id 233; surfaces (-110 111); filltype uni; universe 1000;} - BA364 {type simpleCell; id 234; surfaces (-111 112); filltype uni; universe 1110;} - BA359 {type simpleCell; id 235; surfaces (-112 113); filltype uni; universe 1000;} - BA312 {type simpleCell; id 236; surfaces (-113 114); filltype uni; universe 1110;} - BA306 {type simpleCell; id 237; surfaces (-114 115); filltype uni; universe 1000;} - BA260 {type simpleCell; id 238; surfaces (-115 116); filltype uni; universe 1110;} - BA254 {type simpleCell; id 239; surfaces (-116 117); filltype uni; universe 1000;} - BA208 {type simpleCell; id 240; surfaces (-117 118); filltype uni; universe 1110;} - BA202 {type simpleCell; id 241; surfaces (-118 119); filltype uni; universe 1000;} - BA155 {type simpleCell; id 242; surfaces (-119 120); filltype uni; universe 1110;} - BA150 {type simpleCell; id 243; surfaces (-120 122); filltype uni; universe 1000;} - BA103 {type simpleCell; id 244; surfaces (-122 123); filltype uni; universe 1110;} - BA98 {type simpleCell; id 245; surfaces (-123 125); filltype uni; universe 1000;} - BA4055 {type simpleCell; id 246; surfaces (-125 126); filltype uni; universe 1023;} - BA4052 {type simpleCell; id 247; surfaces (-126 127); filltype uni; universe 1021;} - BA39 {type simpleCell; id 248; surfaces (-127 128); filltype uni; universe 1025;} - BA38 {type simpleCell; id 249; surfaces (-128 129); filltype uni; universe 1019;} - BA37 {type simpleCell; id 250; surfaces (-129 131); filltype uni; universe 1010;} - BA35 {type simpleCell; id 251; surfaces (-131 132); filltype uni; universe 1005;} - BA20 {type simpleCell; id 252; surfaces (-132 ); filltype uni; universe 1001;} - - //guide tube, no CR, axial layering - GT460 {type simpleCell; id 353; surfaces ( 101); filltype uni; universe 1001;} - GT431 {type simpleCell; id 354; surfaces (-101 102); filltype uni; universe 1005;} - GT423 {type simpleCell; id 355; surfaces (-102 106); filltype uni; universe 12000;} - GT415 {type simpleCell; id 356; surfaces (-106 107); filltype uni; universe 1112;} - GT411 {type simpleCell; id 357; surfaces (-107 111); filltype uni; universe 12000;} - GT364 {type simpleCell; id 358; surfaces (-111 112); filltype uni; universe 9112;} - GT359 {type simpleCell; id 359; surfaces (-112 113); filltype uni; universe 12000;} - GT312 {type simpleCell; id 360; surfaces (-113 114); filltype uni; universe 9112;} - GT306 {type simpleCell; id 361; surfaces (-114 115); filltype uni; universe 12000;} - GT260 {type simpleCell; id 362; surfaces (-115 116); filltype uni; universe 9112;} - GT254 {type simpleCell; id 363; surfaces (-116 117); filltype uni; universe 12000;} - GT208 {type simpleCell; id 364; surfaces (-117 118); filltype uni; universe 9112;} - GT202 {type simpleCell; id 365; surfaces (-118 119); filltype uni; universe 12000;} - GT155 {type simpleCell; id 366; surfaces (-119 120); filltype uni; universe 9112;} - GT150 {type simpleCell; id 367; surfaces (-120 122); filltype uni; universe 12000;} - GT103 {type simpleCell; id 368; surfaces (-122 123); filltype uni; universe 9112;} - GT98 {type simpleCell; id 369; surfaces (-123 126); filltype uni; universe 1010;} - GT4052 {type simpleCell; id 370; surfaces (-126 127); filltype uni; universe 12000;} - GT39 {type simpleCell; id 371; surfaces (-127 129); filltype uni; universe 1019;} - GT37 {type simpleCell; id 372; surfaces (-129 131); filltype uni; universe 1010;} - GT35 {type simpleCell; id 373; surfaces (-131 132); filltype uni; universe 1005;} - GT20 {type simpleCell; id 374; surfaces (-132); filltype uni; universe 1001;} - - //guide tube, partially inserted CR, axial layering - // Note: universe is basically a combo of fully and partially inserted rods - GP460 {type simpleCell; id 375; surfaces ( 101); filltype uni; universe 1013;} - GP431 {type simpleCell; id 376; surfaces (-101 102); filltype uni; universe 1013;} - GP423 {type simpleCell; id 377; surfaces (-102 106); filltype uni; universe 1013;} - GP415 {type simpleCell; id 378; surfaces (-106 107); filltype uni; universe 1133;} - GP411 {type simpleCell; id 379; surfaces (-107 111); filltype uni; universe 1013;} - GP364 {type simpleCell; id 380; surfaces (-111 112); filltype uni; universe 9233;} - GP359 {type simpleCell; id 381; surfaces (-112 137); filltype uni; universe 1013;} - GP322 {type simpleCell; id 382; surfaces (-137 113); filltype uni; universe 1014;} - GP312 {type simpleCell; id 383; surfaces (-113 114); filltype uni; universe 9232;} - GP306 {type simpleCell; id 384; surfaces (-114 115); filltype uni; universe 1014;} - GP260 {type simpleCell; id 385; surfaces (-115 116); filltype uni; universe 9232;} - GP254 {type simpleCell; id 386; surfaces (-116 138); filltype uni; universe 1014;} - GP220 {type simpleCell; id 387; surfaces (-138 139); filltype uni; universe 1023;} - GP219 {type simpleCell; id 388; surfaces (-139 117); filltype uni; universe 12000;} - GP208 {type simpleCell; id 389; surfaces (-117 118); filltype uni; universe 9112;} - GP202 {type simpleCell; id 390; surfaces (-118 119); filltype uni; universe 12000;} - GP155 {type simpleCell; id 391; surfaces (-119 120); filltype uni; universe 9112;} - GP150 {type simpleCell; id 392; surfaces (-120 122); filltype uni; universe 12000;} - GP103 {type simpleCell; id 393; surfaces (-122 123); filltype uni; universe 9112;} - GP98 {type simpleCell; id 394; surfaces (-123 126); filltype uni; universe 1010;} - GP4052 {type simpleCell; id 395; surfaces (-126 127); filltype uni; universe 12000;} - GP39 {type simpleCell; id 396; surfaces (-127 129); filltype uni; universe 1019;} - GP37 {type simpleCell; id 397; surfaces (-129 131); filltype uni; universe 1010;} - GP35 {type simpleCell; id 398; surfaces (-131 132); filltype uni; universe 1005;} - GP20 {type simpleCell; id 399; surfaces (-132); filltype uni; universe 1001;} - - // control rod, axial layering - // Used (probably with some modification) only when fully inserted - //CR460 {type simpleCell; id 448; surfaces (-120 121); filltype uni; universe 1002;} - //CR415 {type simpleCell; id 449; surfaces (-126 403); filltype uni; universe 1013;} - //CR403 {type simpleCell; id 450; surfaces (-403 402); filltype uni; universe 1015;} - //CR402 {type simpleCell; id 451; surfaces (-402 1430); filltype uni; universe 1013;} - //CR143 {type simpleCell; id 452; surfaces (-1430 41); filltype uni; universe 1014;} - //CR41 {type simpleCell; id 453; surfaces (-41 143); filltype uni; universe 1002;} - //CR39 {type simpleCell; id 454; surfaces (-143 147); filltype uni; universe 1001;} - //CR35 {type simpleCell; id 455; surfaces (-147 148); filltype uni; universe 1005;} - //CR20 {type simpleCell; id 456; surfaces (-148 149); filltype uni; universe 1001;} - - - - outsideLeftBaffle { type simpleCell; id 52; surfaces (-50); filltype mat; material Water;} - leftBaffle { type simpleCell; id 53; surfaces (50 -51); filltype mat; material SS304;} - insideLeftBaffle { type simpleCell; id 54; surfaces (51); filltype mat; material Water;} - - outsideRightBaffle { type simpleCell; id 55; surfaces (-52); filltype mat; material Water;} - RightBaffle { type simpleCell; id 56; surfaces (52 -53); filltype mat; material SS304;} - insideRightBaffle { type simpleCell; id 57; surfaces (53); filltype mat; material Water;} - - outsideTopBaffle { type simpleCell; id 58; surfaces (-54); filltype mat; material Water;} - TopBaffle { type simpleCell; id 59; surfaces (54 -55); filltype mat; material SS304;} - insideTopBaffle { type simpleCell; id 60; surfaces (55); filltype mat; material Water;} - - outsideBottomBaffle { type simpleCell; id 61; surfaces (-56); filltype mat; material Water;} - BottomBaffle { type simpleCell; id 62; surfaces (56 -57); filltype mat; material SS304;} - insideBottomBaffle { type simpleCell; id 63; surfaces (57); filltype mat; material Water;} - - topLeftCornerBaffle1 { type simpleCell; id 64; surfaces (52 -53 -57); filltype mat; material SS304;} - topLeftCornerBaffle2 { type simpleCell; id 65; surfaces (56 -57 -52); filltype mat; material SS304;} - topLeftCornerGap1 { type simpleCell; id 66; surfaces (57); filltype mat; material Water;} - topLeftCornerGap2 { type simpleCell; id 67; surfaces (53); filltype mat; material Water;} - topLeftMajorGap { type simpleCell; id 68; surfaces (-56 -52); filltype mat; material Water;} - - topRightCornerBaffle1 { type simpleCell; id 69; surfaces (-57 50 -51); filltype mat; material SS304;} - topRightCornerBaffle2 { type simpleCell; id 70; surfaces (-50 56 -57); filltype mat; material SS304;} - topRightCornerGap1 { type simpleCell; id 71; surfaces (57); filltype mat; material Water;} - topRightCornerGap2 { type simpleCell; id 72; surfaces (51); filltype mat; material Water;} - topRightMajorGap { type simpleCell; id 73; surfaces (-56 -50); filltype mat; material Water;} - - bottomLeftCornerBaffle1 { type simpleCell; id 74; surfaces (-55 52 -53); filltype mat; material SS304;} - bottomLeftCornerBaffle2 { type simpleCell; id 75; surfaces (-55 54 -52); filltype mat; material SS304;} - bottomLeftCornerGap1 { type simpleCell; id 76; surfaces (55); filltype mat; material Water;} - bottomLeftCornerGap2 { type simpleCell; id 77; surfaces (53); filltype mat; material Water;} - bottomLeftMajorGap { type simpleCell; id 78; surfaces (-54 -52); filltype mat; material Water;} - - bottomRightCornerBaffle1 { type simpleCell; id 79; surfaces (-51 50 -55); filltype mat; material SS304;} - bottomRightCornerBaffle2 { type simpleCell; id 80; surfaces (-55 54 -50); filltype mat; material SS304;} - bottomRightCornerGap1 { type simpleCell; id 81; surfaces (51); filltype mat; material Water;} - bottomRightCornerGap2 { type simpleCell; id 82; surfaces (55); filltype mat; material Water;} - bottomRightMajorGap { type simpleCell; id 83; surfaces (-50 -54); filltype mat; material Water;} - - - TLSG1 { type simpleCell; id 84; surfaces (-56 -52); filltype mat; material Water;} - TLSG2 { type simpleCell; id 85; surfaces (-56 52); filltype mat; material Water;} - TLSG3 { type simpleCell; id 86; surfaces (56 -52); filltype mat; material Water;} - topLeftSquare { type simpleCell; id 87; surfaces (56 52); filltype mat; material SS304;} - - TRSG1 { type simpleCell; id 88; surfaces (-56 50); filltype mat; material Water;} - TRSG2 { type simpleCell; id 89; surfaces (-56 -50); filltype mat; material Water;} - TRSG3 { type simpleCell; id 90; surfaces (56 -50); filltype mat; material Water;} - topRightSquare { type simpleCell; id 91; surfaces (56 50); filltype mat; material SS304;} - - BLSG1 { type simpleCell; id 92; surfaces (54 -52); filltype mat; material Water;} - BLSG2 { type simpleCell; id 93; surfaces (-54 52); filltype mat; material Water;} - BLSG3 { type simpleCell; id 94; surfaces (-54 -52); filltype mat; material Water;} - bottomLeftSquare { type simpleCell; id 95; surfaces (54 52); filltype mat; material SS304;} - - BRSG1 { type simpleCell; id 96; surfaces (-54 50); filltype mat; material Water;} - BRSG2 { type simpleCell; id 97; surfaces (54 -50); filltype mat; material Water;} - BRSG3 { type simpleCell; id 98; surfaces (-54 -50); filltype mat; material Water;} - bottomRightSquare { type simpleCell; id 99; surfaces (54 50); filltype mat; material SS304;} - } - - universes { - root { id 1; type rootUniverse; border 1; fill u<8888>; } - - // Pin universes - - //Burnable poison - pinBPaboveDP { id 1000; type pinUniverse; radii (0.21400 0.23051 0.24130 0.42672 0.43688 0.48387 0.56134 0.60198 0.0); - fills (Air SS304 Helium BorosilicateGlass Helium SS304 Water Zircaloy Water);} - pinBPPlenumGeometry { id 1012; type pinUniverse; radii ( 0.21400 0.23051 0.43688 0.48387 0.50419 0.54610 0.0); - fills (Air SS304 Helium SS304 Water Zircaloy Water);} - - //guide tubes - pinGTaboveDP { id 12000; type pinUniverse; radii (0.56134 0.60198 0.0 ); fills (Water Zircaloy Water);} - pinGTatDP { id 1010; type pinUniverse; radii (0.50419 0.54610 0.0); fills (Water Zircaloy Water);} - - //INST Tube - pinIT { id 14000; type pinUniverse; radii (0.43688 0.48387 0.56134 0.60198 0.0 ); - fills (Air Zircaloy Water Zircaloy Water);} - pinBareInstrumentThimble { id 1011; type pinUniverse; radii (0.43688 0.48387 0.0); fills (Air Zircaloy Water);} - - // Fuel pins - pin16 { id 16000; type pinUniverse; radii (0.39218 0.40005 0.45720 0.0); - fills (UO2-16 Helium Zircaloy Water);} - pin24 { id 24000; type pinUniverse; radii (0.39218 0.40005 0.45720 0.0); - fills (UO2-24 Helium Zircaloy Water);} - pin31 { id 31000; type pinUniverse; radii (0.39218 0.40005 0.45720 0.0); - fills (UO2-31 Helium Zircaloy Water);} - // Higher enrichments not used - //pin32 { id 32000; type pinUniverse; radii (0.39218 0.40005 0.45720 0.0); - // fills (UO2-32 Helium Zircaloy Water);} - //pin34 { id 34000; type pinUniverse; radii (0.39218 0.40005 0.45720 0.0); - // fills (UO2-34 Helium Zircaloy Water);} - - pinWater { id 1001; type pinUniverse; radii ( 0.0); fills (Water);} - - - // Solid pins, assumed radius to be that of a fuel pin (0.45720) - pinNozzle_SupportSteel { id 1003; type pinUniverse; radii ( 0.45720 0.0); fills (SupportPlateSS Water);} - pinSupportPlateBW { id 1005; type pinUniverse; radii ( 0.45720 0.0); fills (SupportPlateBW Water);} - pinZircaloy { id 1006; type pinUniverse; radii ( 0.45720 0.0); fills (Zircaloy Water);} - - - SSinDashPot { id 1024; type pinUniverse; radii (0.50419 0.54610 0.0); fills (SS304 Zircaloy Water);} - SSinGuideTube { id 1023; type pinUniverse; radii ( 0.56134 0.60198 0.0); fills (SS304 Zircaloy Water);} - SSnoGuideTube { id 1002; type pinUniverse; radii ( 0.56134 0.0); fills (SS304 Water);} - - - pinUpperFuelPlenum { id 1008; type pinUniverse; radii ( 0.06459 0.40005 0.45720 0.0); - fills (Inconel Helium Zircaloy Water);} - - // Control rod pins - pinControlRodUpper { id 1013; type pinUniverse; radii ( 0.37338 0.38608 0.48387 0.56134 0.60198 0.0); - fills (B4C Helium SS304 Water Zircaloy Water);} - pinControlRodLower { id 1014; type pinUniverse; radii ( 0.38227 0.38608 0.48387 0.56134 0.60198 0.0); - fills (Ag-In-Cd Helium SS304 Water Zircaloy Water);} - pinControlRodSpacer { id 1015; type pinUniverse; radii ( 0.37845 0.38608 0.48387 0.56134 0.60198 0.0); - fills (SS304 Helium SS304 Water Zircaloy Water);} - pinControlRodPlenum { id 1016; type pinUniverse; radii ( 0.06459 0.38608 0.48387 0.56134 0.60198 0.0); - fills (Inconel Helium SS304 Water Zircaloy Water);} - - // pins that have grids - fuelRodPlenumWithGridThick { - id 1017; - type cellUniverse; - cells ( 259 555);} - - GTRodThick { - id 1018; - type cellUniverse; - cells (263 555);} - - dashPotGuideTubeGridThick { - id 1019; - type cellUniverse; - cells ( 258 555);} - - dashPotGuideTubeGridThin { - id 1020; - type cellUniverse; - cells ( 270 556);} - - SSinGuideTubeThick { - id 1021; - type cellUniverse; - cells ( 260 555);} - - SSinGuideTubeThin { - id 1022; - type cellUniverse; - cells ( 272 556);} - - SSinDashPotThick { - id 1025; - type cellUniverse; - cells ( 261 555);} - - SSinDashPotThin { - id 1026; - type cellUniverse; - cells ( 273 556);} - - BPPlenumThick { - id 1027; - type cellUniverse; - cells ( 262 555);} - - BPPlenumThin { - id 1028; - type cellUniverse; - cells ( 274 556);} - - BPaboveDPThin { - id 1110; - type cellUniverse; - cells (266 556);} - - GTThick { - id 1112; - type cellUniverse; - cells (254 555);} - - ITThick { - id 1114; - type cellUniverse; - cells (257 555);} - - pin16Thick { - id 1116; - type cellUniverse; - cells (256 555);} - - pin24Thick { - id 1124; - type cellUniverse; - cells (253 555);} - - pin31Thick { - id 1131; - type cellUniverse; - cells (255 555);} - - LowerRodGTThick { - id 1132; - type cellUniverse; - cells (263 555);} - - UpperRodGTThick { - id 1133; - type cellUniverse; - cells (463 555);} - - BPThin { // Is this necessary given 1110, BPaboveDPThin??? - id 9110; - type cellUniverse; - cells (266 556);} - - GTThin { - id 9112; - type cellUniverse; - cells (265 556);} - - ITThin { - id 9114; - type cellUniverse; - cells (269 556);} - - pin16Thin { - id 9216; - type cellUniverse; - cells (268 556);} - - pin24Thin { - id 9224; - type cellUniverse; - cells (264 556);} - - pin31Thin { - id 9231; - type cellUniverse; - cells (267 556);} - - LowerRodGTThin { - id 9232; - type cellUniverse; - cells (275 556);} - - UpperRodGTThin { - id 9233; - type cellUniverse; - cells (475 556);} - - // Axial stacks of universes to make up full pins - - // 3.1 % - fuelPin31 { - id 31; - type cellUniverse; - cells ( 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124);} - - // 2.4 % - fuelPin24 { - id 24; - type cellUniverse; - cells ( 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149);} - - //1.6 % - fuelPin16 { - id 16; - type cellUniverse; - cells ( 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174);} - - //burnable absorber - BP { - id 10; - type cellUniverse; - cells (218 219 220 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252);} - - // guide tube, with CR - GuideTubeRodded { - id 12; - type cellUniverse; - cells (175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197);} - - //control rod, fully retracted - GuideTubeEmpty { - id 13; - type cellUniverse; - cells (353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374);} - - //instr. tube - instrumentTube { - id 14; - type cellUniverse; - cells (198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217);} - - - // control rod, partially inserted - GuideTubePartial { - id 15; - type cellUniverse; - cells (375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399); - - } - - - - // Lattices w/o grid - // Names represent AE - A0E24 { - id 1424; - type latUniverse; - origin (0.0 0.0 0.0); - pitch (1.26 1.26 0.0); - shape (17 17 0); - padMat Water; - map ( - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 24 24 24 12 24 24 12 24 24 12 24 24 24 24 24 - 24 24 24 12 24 24 24 24 24 24 24 24 24 12 24 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 12 24 24 12 24 24 12 24 24 12 24 24 12 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 12 24 24 12 24 24 14 24 24 12 24 24 12 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 12 24 24 12 24 24 12 24 24 12 24 24 12 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 24 12 24 24 24 24 24 24 24 24 24 12 24 24 24 - 24 24 24 24 24 12 24 24 12 24 24 12 24 24 24 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 ); } - - // assembly with sleeves at different heights - A0E24Sleeve { - id 14240; - type cellUniverse; - cells ( - 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 - 2016 2017 2018 2019 - );} - - - A0E16 { - id 1416; - type latUniverse; - origin (0.0 0.0 0.0); - pitch (1.26 1.26 0.0); - shape (17 17 0); - padMat Water; - map ( - 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 - 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 - 16 16 16 16 16 12 16 16 12 16 16 12 16 16 16 16 16 - 16 16 16 12 16 16 16 16 16 16 16 16 16 12 16 16 16 - 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 - 16 16 12 16 16 12 16 16 12 16 16 12 16 16 12 16 16 - 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 - 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 - 16 16 12 16 16 12 16 16 14 16 16 12 16 16 12 16 16 - 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 - 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 - 16 16 12 16 16 12 16 16 12 16 16 12 16 16 12 16 16 - 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 - 16 16 16 12 16 16 16 16 16 16 16 16 16 12 16 16 16 - 16 16 16 16 16 12 16 16 12 16 16 12 16 16 16 16 16 - 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 - 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16); } - - A0E16Sleeve { - id 14160; - type cellUniverse; - cells ( - 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 - 2016 2017 2018 2020 - ); - } - - A0E31 { - id 1431; - type latUniverse; - origin (0.0 0.0 0.0); - pitch (1.26 1.26 0.0); - shape (17 17 0); - padMat Water; - map ( - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 12 31 31 12 31 31 12 31 31 31 31 31 - 31 31 31 12 31 31 31 31 31 31 31 31 31 12 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 12 31 31 12 31 31 12 31 31 12 31 31 12 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 12 31 31 12 31 31 14 31 31 12 31 31 12 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 12 31 31 12 31 31 12 31 31 12 31 31 12 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 12 31 31 31 31 31 31 31 31 31 12 31 31 31 - 31 31 31 31 31 12 31 31 12 31 31 12 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } - - A0E31Sleeve { - id 14310; - type cellUniverse; - cells ( - 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 - 2016 2017 2018 2021 - ); - } - - - A6BE31B { - id 60316; - type latUniverse; - origin (0.0 0.0 0.0); - pitch (1.26 1.26 0.0); - shape (17 17 0); - padMat Water; - map ( - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 10 31 31 12 31 31 10 31 31 31 31 31 - 31 31 31 10 31 31 31 31 31 31 31 31 31 10 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 10 31 31 12 31 31 12 31 31 12 31 31 10 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 12 31 31 12 31 31 14 31 31 12 31 31 12 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 12 31 31 12 31 31 12 31 31 12 31 31 12 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 12 31 31 31 31 31 31 31 31 31 12 31 31 31 - 31 31 31 31 31 12 31 31 12 31 31 12 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } - - - A6BE31BSleeve { - id 603160; - type cellUniverse; - cells ( - 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 - 2016 2017 2018 2022 - ); - } - - A6BE31T { - id 603112; - type latUniverse; - origin (0.0 0.0 0.0); - pitch (1.26 1.26 0.0); - shape (17 17 0); - padMat Water; - map ( - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 12 31 31 12 31 31 12 31 31 31 31 31 - 31 31 31 12 31 31 31 31 31 31 31 31 31 12 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 12 31 31 12 31 31 12 31 31 12 31 31 12 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 12 31 31 12 31 31 14 31 31 12 31 31 12 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 10 31 31 12 31 31 12 31 31 12 31 31 10 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 10 31 31 31 31 31 31 31 31 31 10 31 31 31 - 31 31 31 31 31 10 31 31 12 31 31 10 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } - - A6BE31TSleeve { - id 6031120; - type cellUniverse; - cells ( - 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 - 2016 2017 2018 2023 - ); - } - - A6BE31R { - id 60313; - type latUniverse; - origin (0.0 0.0 0.0); - pitch (1.26 1.26 0.0); - shape (17 17 0); - padMat Water; - map ( - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 10 31 31 12 31 31 12 31 31 31 31 31 - 31 31 31 10 31 31 31 31 31 31 31 31 31 12 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 10 31 31 12 31 31 12 31 31 12 31 31 12 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 12 31 31 12 31 31 14 31 31 12 31 31 12 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 10 31 31 12 31 31 12 31 31 12 31 31 12 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 10 31 31 31 31 31 31 31 31 31 12 31 31 31 - 31 31 31 31 31 10 31 31 12 31 31 12 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } - - A6BE31RSleeve { - id 603130; - type cellUniverse; - cells ( - 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 - 2016 2017 2018 2024 - ); - } - - A6BE31L { - id 60319; - type latUniverse; - origin (0.0 0.0 0.0); - pitch (1.26 1.26 0.0); - shape (17 17 0); - padMat Water; - map ( - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 12 31 31 12 31 31 10 31 31 31 31 31 - 31 31 31 12 31 31 31 31 31 31 31 31 31 10 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 12 31 31 12 31 31 12 31 31 12 31 31 10 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 12 31 31 12 31 31 14 31 31 12 31 31 12 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 12 31 31 12 31 31 12 31 31 12 31 31 10 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 12 31 31 31 31 31 31 31 31 31 10 31 31 31 - 31 31 31 31 31 12 31 31 12 31 31 10 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } - - A6BE31LSleeve { - id 603190; - type cellUniverse; - cells ( - 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 - 2016 2017 2018 2025 - ); - } - - A15BE31BR { - id 15315; - type latUniverse; - origin (0.0 0.0 0.0); - pitch (1.26 1.26 0.0); - shape (17 17 0); - padMat Water; - map ( - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 10 31 31 10 31 31 10 31 31 31 31 31 - 31 31 31 10 31 31 31 31 31 31 31 31 31 12 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 10 31 31 10 31 31 10 31 31 10 31 31 12 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 10 31 31 10 31 31 14 31 31 10 31 31 12 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 10 31 31 10 31 31 10 31 31 10 31 31 12 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 12 31 31 31 31 31 31 31 31 31 12 31 31 31 - 31 31 31 31 31 12 31 31 12 31 31 12 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } - - A15BE31BRSleeve { - id 153150; - type cellUniverse; - cells ( - 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 - 2016 2017 2018 2026 - ); - } - - A15BE31BL { - id 15317; - type latUniverse; - origin (0.0 0.0 0.0); - pitch (1.26 1.26 0.0); - shape (17 17 0); - padMat Water; - map ( - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 10 31 31 10 31 31 10 31 31 31 31 31 - 31 31 31 12 31 31 31 31 31 31 31 31 31 10 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 12 31 31 10 31 31 10 31 31 10 31 31 10 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 12 31 31 10 31 31 14 31 31 10 31 31 10 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 12 31 31 10 31 31 10 31 31 10 31 31 10 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 12 31 31 31 31 31 31 31 31 31 12 31 31 31 - 31 31 31 31 31 12 31 31 12 31 31 12 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } - - A15BE31BLSleeve { - id 153170; - type cellUniverse; - cells ( - 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 - 2016 2017 2018 2027 - ); - } - - A15BE31TR { - id 15311; - type latUniverse; - origin (0.0 0.0 0.0); - pitch (1.26 1.26 0.0); - shape (17 17 0); - padMat Water; - map ( - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 12 31 31 12 31 31 12 31 31 31 31 31 - 31 31 31 12 31 31 31 31 31 31 31 31 31 12 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 10 31 31 10 31 31 10 31 31 10 31 31 12 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 10 31 31 10 31 31 14 31 31 10 31 31 12 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 10 31 31 10 31 31 10 31 31 10 31 31 12 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 10 31 31 31 31 31 31 31 31 31 12 31 31 31 - 31 31 31 31 31 10 31 31 10 31 31 10 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } - - A15BE31TRSleeve { - id 153110; - type cellUniverse; - cells ( - 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 - 2016 2017 2018 2028 - ); - } - - A15BE31TL { - id 153111; - type latUniverse; - origin (0.0 0.0 0.0); - pitch (1.26 1.26 0.0); - shape (17 17 0); - padMat Water; - map ( - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 12 31 31 12 31 31 12 31 31 31 31 31 - 31 31 31 12 31 31 31 31 31 31 31 31 31 12 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 12 31 31 10 31 31 10 31 31 10 31 31 10 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 12 31 31 10 31 31 14 31 31 10 31 31 10 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 12 31 31 10 31 31 10 31 31 10 31 31 10 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 12 31 31 31 31 31 31 31 31 31 10 31 31 31 - 31 31 31 31 31 10 31 31 10 31 31 10 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } - - A15BE31TLSleeve { - id 1531110; - type cellUniverse; - cells ( - 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 - 2016 2017 2018 2029 - ); - } - - A16BE31 { - id 1631; - type latUniverse; - origin (0.0 0.0 0.0); - pitch (1.26 1.26 0.0); - shape (17 17 0); - padMat Water; - map ( - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 10 31 31 10 31 31 10 31 31 31 31 31 - 31 31 31 10 31 31 31 31 31 31 31 31 31 10 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 10 31 31 12 31 31 12 31 31 12 31 31 10 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 10 31 31 12 31 31 14 31 31 12 31 31 10 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 10 31 31 12 31 31 12 31 31 12 31 31 10 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 10 31 31 31 31 31 31 31 31 31 10 31 31 31 - 31 31 31 31 31 10 31 31 10 31 31 10 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } - - A16BE31Sleeve { - id 16310; - type cellUniverse; - cells ( - 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 - 2016 2017 2018 2030 - ); - } - - A20BE31 { - id 2031; - type latUniverse; - origin (0.0 0.0 0.0); - pitch (1.26 1.26 0.0); - shape (17 17 0); - padMat Water; - map ( - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 10 31 31 10 31 31 10 31 31 31 31 31 - 31 31 31 10 31 31 31 31 31 31 31 31 31 10 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 10 31 31 10 31 31 12 31 31 10 31 31 10 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 10 31 31 12 31 31 14 31 31 12 31 31 10 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 10 31 31 10 31 31 12 31 31 10 31 31 10 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 10 31 31 31 31 31 31 31 31 31 10 31 31 31 - 31 31 31 31 31 10 31 31 10 31 31 10 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } - - A20BE31Sleeve { - id 20310; - type cellUniverse; - cells ( - 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 - 2016 2017 2018 2031 - ); - } - - A12BE24 { - id 1224; - type latUniverse; - origin (0.0 0.0 0.0); - pitch (1.26 1.26 0.0); - shape (17 17 0); - padMat Water; - map ( - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 24 24 24 10 24 24 12 24 24 10 24 24 24 24 24 - 24 24 24 10 24 24 24 24 24 24 24 24 24 10 24 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 10 24 24 12 24 24 12 24 24 12 24 24 10 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 12 24 24 12 24 24 14 24 24 12 24 24 12 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 10 24 24 12 24 24 12 24 24 12 24 24 10 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 24 10 24 24 24 24 24 24 24 24 24 10 24 24 24 - 24 24 24 24 24 10 24 24 12 24 24 10 24 24 24 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 ); } - - A12BE24Sleeve { - id 12240; - type cellUniverse; - cells ( - 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 - 2016 2017 2018 2032 - ); - } - - A16BE24 { - id 1624; - type latUniverse; - origin (0.0 0.0 0.0); - pitch (1.26 1.26 0.0); - shape (17 17 0); - padMat Water; - map ( - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 24 24 24 10 24 24 10 24 24 10 24 24 24 24 24 - 24 24 24 10 24 24 24 24 24 24 24 24 24 10 24 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 10 24 24 12 24 24 12 24 24 12 24 24 10 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 10 24 24 12 24 24 14 24 24 12 24 24 10 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 10 24 24 12 24 24 12 24 24 12 24 24 10 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 24 10 24 24 24 24 24 24 24 24 24 10 24 24 24 - 24 24 24 24 24 10 24 24 10 24 24 10 24 24 24 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 ); } - - A16BE24Sleeve { - id 16240; - type cellUniverse; - cells ( - 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 - 2016 2017 2018 2033 - ); - } - - // Unrodded assemblies - A0E24U { - id 2424; - type latUniverse; - origin (0.0 0.0 0.0); - pitch (1.26 1.26 0.0); - shape (17 17 0); - padMat Water; - map ( - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 24 24 24 13 24 24 13 24 24 13 24 24 24 24 24 - 24 24 24 13 24 24 24 24 24 24 24 24 24 13 24 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 13 24 24 13 24 24 13 24 24 13 24 24 13 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 13 24 24 13 24 24 14 24 24 13 24 24 13 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 13 24 24 13 24 24 13 24 24 13 24 24 13 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 24 13 24 24 24 24 24 24 24 24 24 13 24 24 24 - 24 24 24 24 24 13 24 24 13 24 24 13 24 24 24 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 ); } - - A0E24USleeve { - id 24240; - type cellUniverse; - cells ( - 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 - 2016 2017 2018 2034 - );} - - A0E16U { - id 2416; - type latUniverse; - origin (0.0 0.0 0.0); - pitch (1.26 1.26 0.0); - shape (17 17 0); - padMat Water; - map ( - 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 - 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 - 16 16 16 16 16 13 16 16 13 16 16 13 16 16 16 16 16 - 16 16 16 13 16 16 16 16 16 16 16 16 16 13 16 16 16 - 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 - 16 16 13 16 16 13 16 16 13 16 16 13 16 16 13 16 16 - 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 - 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 - 16 16 13 16 16 13 16 16 14 16 16 13 16 16 13 16 16 - 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 - 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 - 16 16 13 16 16 13 16 16 13 16 16 13 16 16 13 16 16 - 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 - 16 16 16 13 16 16 16 16 16 16 16 16 16 13 16 16 16 - 16 16 16 16 16 13 16 16 13 16 16 13 16 16 16 16 16 - 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 - 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16); } - - // sleeved - A0E16USleeve { - id 24160; - type cellUniverse; - cells ( - 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 - 2016 2017 2018 2035 - ); - } - - A0E31U { - id 2431; - type latUniverse; - origin (0.0 0.0 0.0); - pitch (1.26 1.26 0.0); - shape (17 17 0); - padMat Water; - map ( - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 13 31 31 13 31 31 13 31 31 31 31 31 - 31 31 31 13 31 31 31 31 31 31 31 31 31 13 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 13 31 31 13 31 31 13 31 31 13 31 31 13 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 13 31 31 13 31 31 14 31 31 13 31 31 13 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 13 31 31 13 31 31 13 31 31 13 31 31 13 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 13 31 31 31 31 31 31 31 31 31 13 31 31 31 - 31 31 31 31 31 13 31 31 13 31 31 13 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } - - A0E31USleeve { - id 24310; - type cellUniverse; - cells ( - 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 - 2016 2017 2018 2036 - ); - } - - - A6BE31BU { - id 70316; - type latUniverse; - origin (0.0 0.0 0.0); - pitch (1.26 1.26 0.0); - shape (17 17 0); - padMat Water; - map ( - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 10 31 31 13 31 31 10 31 31 31 31 31 - 31 31 31 10 31 31 31 31 31 31 31 31 31 10 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 10 31 31 13 31 31 13 31 31 13 31 31 10 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 13 31 31 13 31 31 14 31 31 13 31 31 13 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 13 31 31 13 31 31 13 31 31 13 31 31 13 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 13 31 31 31 31 31 31 31 31 31 13 31 31 31 - 31 31 31 31 31 13 31 31 13 31 31 13 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } - - - A6BE31BUSleeve { - id 703160; - type cellUniverse; - cells ( - 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 - 2016 2017 2018 2037 - ); - } - - A6BE31TU { - id 703112; - type latUniverse; - origin (0.0 0.0 0.0); - pitch (1.26 1.26 0.0); - shape (17 17 0); - padMat Water; - map ( - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 13 31 31 13 31 31 13 31 31 31 31 31 - 31 31 31 13 31 31 31 31 31 31 31 31 31 13 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 13 31 31 13 31 31 13 31 31 13 31 31 13 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 13 31 31 13 31 31 14 31 31 13 31 31 13 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 10 31 31 13 31 31 13 31 31 13 31 31 10 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 10 31 31 31 31 31 31 31 31 31 10 31 31 31 - 31 31 31 31 31 10 31 31 13 31 31 10 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } - - A6BE31TUSleeve { - id 7031120; - type cellUniverse; - cells ( - 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 - 2016 2017 2018 2038 - ); - } - - A6BE31RU { - id 70313; - type latUniverse; - origin (0.0 0.0 0.0); - pitch (1.26 1.26 0.0); - shape (17 17 0); - padMat Water; - map ( - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 10 31 31 13 31 31 13 31 31 31 31 31 - 31 31 31 10 31 31 31 31 31 31 31 31 31 13 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 10 31 31 13 31 31 13 31 31 13 31 31 13 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 13 31 31 13 31 31 14 31 31 13 31 31 13 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 10 31 31 13 31 31 13 31 31 13 31 31 13 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 10 31 31 31 31 31 31 31 31 31 13 31 31 31 - 31 31 31 31 31 10 31 31 13 31 31 13 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } - - A6BE31RUSleeve { - id 703130; - type cellUniverse; - cells ( - 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 - 2016 2017 2018 2039 - ); - } - - A6BE31LU { - id 70319; - type latUniverse; - origin (0.0 0.0 0.0); - pitch (1.26 1.26 0.0); - shape (17 17 0); - padMat Water; - map ( - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 13 31 31 13 31 31 10 31 31 31 31 31 - 31 31 31 13 31 31 31 31 31 31 31 31 31 10 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 13 31 31 13 31 31 13 31 31 13 31 31 10 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 13 31 31 13 31 31 14 31 31 13 31 31 13 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 13 31 31 13 31 31 13 31 31 13 31 31 10 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 13 31 31 31 31 31 31 31 31 31 10 31 31 31 - 31 31 31 31 31 13 31 31 13 31 31 10 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } - - A6BE31LUSleeve { - id 703190; - type cellUniverse; - cells ( - 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 - 2016 2017 2018 2040 - ); - } - - A15BE31BRU { - id 25315; - type latUniverse; - origin (0.0 0.0 0.0); - pitch (1.26 1.26 0.0); - shape (17 17 0); - padMat Water; - map ( - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 10 31 31 10 31 31 10 31 31 31 31 31 - 31 31 31 10 31 31 31 31 31 31 31 31 31 13 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 10 31 31 10 31 31 10 31 31 10 31 31 13 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 10 31 31 10 31 31 14 31 31 10 31 31 13 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 10 31 31 10 31 31 10 31 31 10 31 31 13 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 13 31 31 31 31 31 31 31 31 31 13 31 31 31 - 31 31 31 31 31 13 31 31 13 31 31 13 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } - - A15BE31BRUSleeve { - id 253150; - type cellUniverse; - cells ( - 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 - 2016 2017 2018 2041 - ); - } - - A15BE31BLU { - id 25317; - type latUniverse; - origin (0.0 0.0 0.0); - pitch (1.26 1.26 0.0); - shape (17 17 0); - padMat Water; - map ( - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 10 31 31 10 31 31 10 31 31 31 31 31 - 31 31 31 13 31 31 31 31 31 31 31 31 31 10 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 13 31 31 10 31 31 10 31 31 10 31 31 10 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 13 31 31 10 31 31 14 31 31 10 31 31 10 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 13 31 31 10 31 31 10 31 31 10 31 31 10 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 13 31 31 31 31 31 31 31 31 31 13 31 31 31 - 31 31 31 31 31 13 31 31 13 31 31 13 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } - - A15BE31BLUSleeve { - id 253170; - type cellUniverse; - cells ( - 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 - 2016 2017 2018 2042 - ); - } - - A15BE31TRU { - id 25311; - type latUniverse; - origin (0.0 0.0 0.0); - pitch (1.26 1.26 0.0); - shape (17 17 0); - padMat Water; - map ( - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 13 31 31 13 31 31 13 31 31 31 31 31 - 31 31 31 13 31 31 31 31 31 31 31 31 31 13 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 10 31 31 10 31 31 10 31 31 10 31 31 13 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 10 31 31 10 31 31 14 31 31 10 31 31 13 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 10 31 31 10 31 31 10 31 31 10 31 31 13 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 10 31 31 31 31 31 31 31 31 31 13 31 31 31 - 31 31 31 31 31 10 31 31 10 31 31 10 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } - - A15BE31TRUSleeve { - id 253110; - type cellUniverse; - cells ( - 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 - 2016 2017 2018 2043 - ); - } - - A15BE31TLU { - id 253111; - type latUniverse; - origin (0.0 0.0 0.0); - pitch (1.26 1.26 0.0); - shape (17 17 0); - padMat Water; - map ( - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 13 31 31 13 31 31 13 31 31 31 31 31 - 31 31 31 13 31 31 31 31 31 31 31 31 31 13 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 13 31 31 10 31 31 10 31 31 10 31 31 10 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 13 31 31 10 31 31 14 31 31 10 31 31 10 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 13 31 31 10 31 31 10 31 31 10 31 31 10 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 13 31 31 31 31 31 31 31 31 31 10 31 31 31 - 31 31 31 31 31 10 31 31 10 31 31 10 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } - - A15BE31TLUSleeve { - id 2531110; - type cellUniverse; - cells ( - 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 - 2016 2017 2018 2044 - ); - } - - A16BE31U { - id 2631; - type latUniverse; - origin (0.0 0.0 0.0); - pitch (1.26 1.26 0.0); - shape (17 17 0); - padMat Water; - map ( - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 10 31 31 10 31 31 10 31 31 31 31 31 - 31 31 31 10 31 31 31 31 31 31 31 31 31 10 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 10 31 31 13 31 31 13 31 31 13 31 31 10 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 10 31 31 13 31 31 14 31 31 13 31 31 10 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 10 31 31 13 31 31 13 31 31 13 31 31 10 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 10 31 31 31 31 31 31 31 31 31 10 31 31 31 - 31 31 31 31 31 10 31 31 10 31 31 10 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } - - A16BE31USleeve { - id 26310; - type cellUniverse; - cells ( - 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 - 2016 2017 2018 2045 - ); - } - - A20BE31U { - id 3031; - type latUniverse; - origin (0.0 0.0 0.0); - pitch (1.26 1.26 0.0); - shape (17 17 0); - padMat Water; - map ( - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 10 31 31 10 31 31 10 31 31 31 31 31 - 31 31 31 10 31 31 31 31 31 31 31 31 31 10 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 10 31 31 10 31 31 13 31 31 10 31 31 10 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 10 31 31 13 31 31 14 31 31 13 31 31 10 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 10 31 31 10 31 31 13 31 31 10 31 31 10 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 10 31 31 31 31 31 31 31 31 31 10 31 31 31 - 31 31 31 31 31 10 31 31 10 31 31 10 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 - 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } - - A20BE31USleeve { - id 30310; - type cellUniverse; - cells ( - 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 - 2016 2017 2018 2046 - ); - } - - A12BE24U { - id 2224; - type latUniverse; - origin (0.0 0.0 0.0); - pitch (1.26 1.26 0.0); - shape (17 17 0); - padMat Water; - map ( - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 24 24 24 10 24 24 13 24 24 10 24 24 24 24 24 - 24 24 24 10 24 24 24 24 24 24 24 24 24 10 24 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 10 24 24 13 24 24 13 24 24 13 24 24 10 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 13 24 24 13 24 24 14 24 24 13 24 24 13 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 10 24 24 13 24 24 13 24 24 13 24 24 10 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 24 10 24 24 24 24 24 24 24 24 24 10 24 24 24 - 24 24 24 24 24 10 24 24 13 24 24 10 24 24 24 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 ); } - - A12BE24USleeve { - id 22240; - type cellUniverse; - cells ( - 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 - 2016 2017 2018 2047 - ); - } - - A16BE24U { - id 2624; - type latUniverse; - origin (0.0 0.0 0.0); - pitch (1.26 1.26 0.0); - shape (17 17 0); - padMat Water; - map ( - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 24 24 24 10 24 24 10 24 24 10 24 24 24 24 24 - 24 24 24 10 24 24 24 24 24 24 24 24 24 10 24 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 10 24 24 13 24 24 13 24 24 13 24 24 10 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 10 24 24 13 24 24 14 24 24 13 24 24 10 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 10 24 24 13 24 24 13 24 24 13 24 24 10 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 24 10 24 24 24 24 24 24 24 24 24 10 24 24 24 - 24 24 24 24 24 10 24 24 10 24 24 10 24 24 24 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 ); } - - A16BE24USleeve { - id 26240; - type cellUniverse; - cells ( - 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 - 2016 2017 2018 2048 - ); - } - - A0E24DBank { - id 1425; - type latUniverse; - origin (0.0 0.0 0.0); - pitch (1.26 1.26 0.0); - shape (17 17 0); - padMat Water; - map ( - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 24 24 24 15 24 24 15 24 24 15 24 24 24 24 24 - 24 24 24 15 24 24 24 24 24 24 24 24 24 15 24 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 15 24 24 15 24 24 15 24 24 15 24 24 15 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 15 24 24 15 24 24 14 24 24 15 24 24 15 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 15 24 24 15 24 24 15 24 24 15 24 24 15 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 24 15 24 24 24 24 24 24 24 24 24 15 24 24 24 - 24 24 24 24 24 15 24 24 15 24 24 15 24 24 24 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 - 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 ); } - - // assembly with sleeves at different heights - A0E24SleeveDBank { - id 14250; - type cellUniverse; - cells ( - 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 - 2016 2017 2018 2049 - );} - - A0E16DBank { - id 1417; - type latUniverse; - origin (0.0 0.0 0.0); - pitch (1.26 1.26 0.0); - shape (17 17 0); - padMat Water; - map ( - 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 - 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 - 16 16 16 16 16 15 16 16 15 16 16 15 16 16 16 16 16 - 16 16 16 15 16 16 16 16 16 16 16 16 16 15 16 16 16 - 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 - 16 16 15 16 16 15 16 16 15 16 16 15 16 16 15 16 16 - 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 - 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 - 16 16 15 16 16 15 16 16 14 16 16 15 16 16 15 16 16 - 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 - 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 - 16 16 15 16 16 15 16 16 15 16 16 15 16 16 15 16 16 - 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 - 16 16 16 15 16 16 16 16 16 16 16 16 16 15 16 16 16 - 16 16 16 16 16 15 16 16 15 16 16 15 16 16 16 16 16 - 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 - 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16); } - - A0E16SleeveDBank { - id 14170; - type cellUniverse; - cells ( - 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 - 2016 2017 2018 2050 - ); - } - - - leftBaffleUni { - id 5222; - type cellUniverse; - cells (52 53 54);} - - - rightBaffleUni { - id 5223; - type cellUniverse; - cells (55 56 57);} - - topBaffleUni { - id 5224; - type cellUniverse; - cells (58 59 60);} - - bottomBaffleUni { - id 5225; - type cellUniverse; - cells (61 62 63);} - - - topLeft { - id 5226; - type cellUniverse; - cells (64 65 66 67 68);} - - topRight { - id 5227; - type cellUniverse; - cells ( 69 70 71 72 73);} - - BottomLeft { - id 5228; - type cellUniverse; - cells ( 74 75 76 77 78);} - - BottomRight { - id 5229; - type cellUniverse; - cells ( 79 80 81 82 83);} - - - SQTL { - id 1500; - type cellUniverse; - cells (84 85 86 87);} - - - SQTR { - id 1600; - type cellUniverse; - cells (88 89 90 91);} - - SQBL { - id 1700; - type cellUniverse; - cells (92 93 94 95);} - - SQBR { - id 1800; - type cellUniverse; - cells (96 97 98 99);} - - - latCore { - id 9999; - type latUniverse; - origin (0.0 0.0 0.0); - pitch (21.50364 21.50364 0.0); - shape (17 17 0); - padMat Water; - map ( - 1001 1001 1001 1001 1800 5224 5224 5224 5224 5224 5224 5224 1700 1001 1001 1001 1001 - 1001 1001 1800 5224 5229 24310 7031120 24310 7031120 24310 7031120 24310 5228 5224 1700 1001 1001 - 1001 1800 5229 24310 14310 26310 14160 30310 14160 30310 14160 26310 14310 24310 5228 1700 1001 - 1001 5222 24310 2531110 26240 14160 26240 14160 26240 14160 26240 14160 26240 25311 24310 5223 1001 - 1800 5229 14310 26240 14250 26240 24160 22240 14160 22240 24160 26240 14250 26240 14310 5228 1700 - 5222 24310 26310 14160 26240 24160 22240 24160 22240 24160 22240 24160 26240 14160 26310 24310 5223 - 5222 703190 14160 26240 24160 22240 14160 22240 14160 22240 14160 22240 24160 26240 14160 703130 5223 - 5222 24310 30310 14160 22240 24160 22240 24160 26240 24160 22240 24160 22240 14160 30310 24310 5223 - 5222 703190 14160 26240 14160 22240 14160 26240 14170 26240 14160 22240 14160 26240 14160 703130 5223 - 5222 24310 30310 14160 22240 24160 22240 24160 26240 24160 22240 24160 22240 14160 30310 24310 5223 - 5222 703190 14160 26240 24160 22240 14160 22240 14160 22240 14160 22240 24160 26240 14160 703130 5223 - 5222 24310 26310 14160 26240 24160 22240 24160 22240 24160 22240 24160 26240 14160 26310 24310 5223 - 1600 5227 14310 26240 14250 26240 24160 22240 14160 22240 24160 26240 14250 26240 14310 5226 1500 - 1001 5222 24310 253170 26240 14160 26240 14160 26240 14160 26240 14160 26240 253150 24310 5223 1001 - 1001 1600 5227 24310 14310 26310 14160 30310 14160 30310 14160 26310 14310 24310 5226 1500 1001 - 1001 1001 1600 5225 5227 24310 703160 24310 703160 24310 703160 24310 5226 5225 1500 1001 1001 - 1001 1001 1001 1001 1600 5225 5225 5225 5225 5225 5225 5225 1500 1001 1001 1001 1001 ); } - -! Note partial rodded assemblies end with a 1, i.e., 14170 and 14250 - - coreAndStructures { - id 8888; - type cellUniverse; - cells (7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23);} - - - - } -} - - -viz { - bmpZ { - type bmp; - output imgXY; - what material; - centre (0.0 0.0 232.0); - !width (50 50); - axis z; - res (2000 2000); - } - bmpYZ { - type bmp; - output imgYZ; - what material; - centre (0.0 0.0 232.0); - width (100.0 200.0); - axis x; - res (1000 2000); - } -} - - -nuclearData { - handles { - ce {type aceNeutronDatabase; aceLibrary $SCONE_ACE; ures 0; } - } - - materials { - - // Note that commented nuclide densities are included in the specification - // but are not available in the JEFF-3.11 data library - - Air { - temp 566; - composition { - 18036.06 7.8730E-09; - 18038.06 1.4844E-09; - 18040.06 2.3506E-06; - 6012.06 6.7539E-08; - //6013.06 7.5658E-10; - 7014.06 1.9680E-04; - 7015.06 7.2354E-07; - 8016.06 5.2866E-05; - 8017.06 2.0084E-08; - //8018.06 1.0601E-07; - } - } - - SS304 { - temp 566; - composition { - 24050.06 7.6778E-04; - 24052.06 1.4806E-02; - 24053.06 1.6789E-03; - 24054.06 4.1791E-04; - 26054.06 3.4620E-03; - 26056.06 5.4345E-02; - 26057.06 1.2551E-03; - 26058.06 1.6703E-04; - 25055.06 1.7604E-03; - 28058.06 5.6089E-03; - 28060.06 2.1605E-03; - 28061.06 9.3917E-05; - 28062.06 2.9945E-04; - 28064.06 7.6261E-05; - 14028.06 9.5281E-04; - 14029.06 4.8381E-05; - 14030.06 3.1893E-05; } - } - - Helium { - temp 566; - composition { - 2003.06 4.8089E-10; - 2004.06 2.4044E-04; } - } - - BorosilicateGlass { - temp 566; - composition { - 13027.06 1.7352E-03; - 5010.06 9.6506E-04; - 5011.06 3.9189E-03; - 8016.06 4.6514E-02; - 8017.06 1.7671E-05; - //8018.06 9.3268E-05; - 14028.06 1.6926E-02; - 14029.06 8.5944E-04; - 14030.06 5.6654E-04; } - } - - Water { - temp 566; - moder {1001.06 (lwj3.11 lwj3.09); } - composition { - 5010.06 7.9714E-06; - 5011.06 3.2247E-05; - 1001.06 4.9456E-02; - 1002.06 7.7035E-06; - 8016.06 2.4673E-02; - 8017.06 9.3734E-06; - //8018.06 4.9474E-05; - } - } - - Zircaloy { - temp 566; - composition { - 24050.06 3.2962E-06; - 24052.06 6.3564E-05; - 24053.06 7.2076E-06; - 24054.06 1.7941E-06; - 26054.06 8.6698E-06; - 26056.06 1.3610E-04; - 26057.06 3.1431E-06; - 26058.06 4.1829E-07; - 8016.06 3.0744E-04; - 8017.06 1.1680E-07; - //8018.03 6.1648E-07; - 50112.06 4.6735E-06; - 50114.06 3.1799E-06; - 50115.06 1.6381E-06; - 50116.06 7.0055E-05; - 50117.06 3.7003E-05; - 50118.06 1.1669E-04; - 50119.06 4.1387E-05; - 50120.06 1.5697E-04; - 50122.06 2.2308E-05; - 50124.06 2.7897E-05; - 40090.06 2.1828E-02; - 40091.06 4.7601E-03; - 40092.06 7.2759E-03; - 40094.06 7.3734E-03; - 40096.06 1.1879E-03; } - } - - Inconel{ - temp 566; - composition { - 24050.06 7.8239E-04; - 24052.06 1.5088E-02; - 24053.06 1.7108E-03; - 24054.06 4.2586E-04; - 26054.06 1.4797E-03; - 26056.06 2.3229E-02; - 26057.06 5.3645E-04; - 26058.06 7.1392E-05; - 25055.06 7.8201E-04; - 28058.06 2.9320E-02; - 28060.06 1.1294E-02; - 28061.06 4.9094E-04; - 28062.06 1.5653E-03; - 28064.06 3.9864E-04; - 14028.06 5.6757E-04; - 14029.06 2.8820E-05; - 14030.06 1.8998E-05; } - } - - B4C{ - temp 566; - composition { - 5010.06 1.5206E-02; - 5011.06 6.1514E-02; - 6012.06 1.8972E-02; - //6013.06 2.1252E-04; - } - } - - Ag-In-Cd{ - temp 566; - composition { - 47107.06 2.3523E-02; - 47109.06 2.1854E-02; - 48106.06 3.3882E-05; - 48108.06 2.4166E-05; - 48110.06 3.3936E-04; - 48111.06 3.4821E-04; - 48112.06 6.5611E-04; - 48113.06 3.3275E-04; - 48114.06 7.8252E-04; - 48116.06 2.0443E-04; - 49113.06 3.4219E-04; - 49115.06 7.6511E-03; } - } - - UO2-16 { - temp 566; - tms 1; - composition { - 8016.03 4.5897E-02; - 8017.03 1.7436E-05; - //8018.03 9.2032E-05; - 92234.03 3.0131E-06; - 92235.03 3.7503E-04; - 92238.03 2.2625E-02;} - } - - UO2-24 { - temp 566; - tms 1; - composition { - 8016.03 4.5830E-02; - 8017.03 1.7411E-05; - //8018.03 9.1898E-05; - 92234.03 4.4842E-06; - 92235.03 5.5814E-04; - 92238.03 2.2407E-02;} - } - - UO2-31 { - temp 566; - tms 1; - composition { - 8016.03 4.5853E-02; - 8017.03 1.7420E-05; - //8018.03 9.1942E-05; - 92234.03 5.7987E-06; - 92235.03 7.2175E-04; - 92238.03 2.2253E-02;} - } - - UO2-32 { - temp 566; - tms 1; - composition { - 8016.03 4.6029E-02; - 8017.03 1.7487E-05; - //8018.03 9.2296E-05; - 92234.03 5.9959E-06; - 92235.03 7.4630E-04; - 92238.03 2.2317E-02; - } - } - - UO2-34 { - temp 566; - tms 1; - composition { - 8016.03 4.6110E-02; - 8017.03 1.7517E-05; - //8018.03 9.2459E-05; - 92234.03 6.4018E-06; - 92235.03 7.9681E-04; - 92238.03 2.2307E-02;} - } - - // vanadium51 was stated twice in carbonsteel below - // in the beavrs pdf - typo? - CarbonSteel { - temp 566; - composition { - 13027.06 4.3523E-05; - 5010.06 2.5833E-06; - 5011.06 1.0450E-05; - 6012.06 1.0442E-03; - //6013.06 1.1697E-05 ; - 20040.06 1.7043E-05; - 20042.06 1.1375E-07; - 20043.06 2.3734E-08; - 20044.06 3.6673E-07; - 20046.06 7.0322E-10; - 20048.06 3.2875E-08; - 24050.06 1.3738E-05; - 24052.06 2.6493E-04; - 24053.06 3.0041E-05; - 24054.06 7.4778E-06; - 29063.06 1.0223E-04; - 29065.06 4.5608E-05; - 26054.06 4.7437E-03; - 26056.06 7.4465E-02; - 26057.06 1.7197E-03; - 26058.06 2.2886E-04; - 25055.06 6.4126E-04; - 42100.06 2.9814E-05; - 42092.06 4.4822E-05; - 42094.06 2.8110E-05; - 42095.06 4.8567E-05; - 42096.06 5.1015E-05; - 42097.06 2.9319E-05; - 42098.06 7.4327E-05; - 41093.06 5.0559E-06; - 28058.06 4.0862E-04; - 28060.06 1.5740E-04; - 28061.06 6.8420E-06; - 28062.06 2.1815E-05; - 28064.06 5.5557E-06; - 15031.06 3.7913E-05; - 16032.06 3.4808E-05; - 16033.06 2.7420E-07; - 16034.06 1.5368E-06; - 16036.06 5.3398E-09; - 14028.06 6.1702E-04; - 14029.06 3.1330E-05; - 14030.06 2.0653E-05; - 22046.06 1.2144E-06; - 22047.06 1.0952E-06; - 22048.06 1.0851E-05; - 22049.06 7.9634E-07; - 22050.06 7.6249E-07; - //23050.06 1.1526E-07; - 23051.06 4.5989E-05; - } - } - - SupportPlateSS { - temp 566; - composition { - 24050.06 3.5223E-04; - 24052.06 6.7924E-03; - 24053.06 7.7020E-04; - 24054.06 1.9172E-04; - 26054.06 1.5882E-03; - 26056.06 2.4931E-02; - 26057.06 5.7578E-04; - 26058.06 7.6625E-05; - 25055.06 8.0762E-04; - 28058.06 2.5731E-03; - 28060.06 9.9117E-04; - 28061.06 4.3085E-05; - 28062.06 1.3738E-04; - 28064.06 3.4985E-05; - 14028.06 4.3711E-04; - 14029.06 2.2195E-05; - 14030.06 1.4631E-05;} - } - - SupportPlateBW { - temp 566; - moder {1001.06 (lwj3.11 lwj3.09); } - composition { - 5010.06 1.0559E-05; - 5011.06 4.2716E-05; - 1001.06 6.5512E-02; - 1002.06 1.0204E-05; - 8016.06 3.2683E-02; - 8017.06 1.2416E-05; - //8018.06 6.5535E-05; - } - } - - -} -} +!! +!! 3D BEAVRS benchmark +!! At HZP, the D bank of rods is partially inserted up +!! to 115 steps inserted / 113 steps withdrawn. +!! A step corresponds to an increment of 1.58193cm +!! +type eigenPhysicsPackage; + +pop 1000000; +active 50; +inactive 250; +XSdata ce; +dataType ce; + +collisionOperator { neutronCE {type neutronCEstd;}} + +transportOperator { + !type transportOperatorDT; + type transportOperatorHT; cache 1; + } + +inactiveTally { + shannon { + type shannonEntropyClerk; + map {type multiMap; + maps (xax yax zax); + xax { type spaceMap; grid lin; min -161.2773; max 161.2773; N 15; axis x;} + yax { type spaceMap; grid lin; min -161.2773; max 161.2773; N 15; axis y;} + zax { type spaceMap; grid lin; min 36.748; max 402.508; N 15; axis z;} + } + cycles 200; + } + +} + +activeTally { + pinFissRadial { type collisionClerk; response (fission); fission { type macroResponse; MT -6;} + map {type multiMap; maps (xax yax); + xax {type spaceMap; axis x; grid lin; N 255; min -161.2773; max 161.2773; } + yax {type spaceMap; axis y; grid lin; N 255; min -161.2773; max 161.2773; } + } + } + assemblyFissRadial { type collisionClerk; response (fission); fission { type macroResponse; MT -6;} + map {type multiMap; maps (xax yax); + xax {type spaceMap; axis x; grid lin; N 15; min -161.2773; max 161.2773; } + yax {type spaceMap; axis y; grid lin; N 15; min -161.2773; max 161.2773; } + } + } + fissionAxial { type collisionClerk; response (fission); fission { type macroResponse; MT -6;} + map {type spaceMap; axis z; grid lin; N 60; min 36.748; max 402.508;} + } + fissionYZ { type collisionClerk; response (fission); fission { type macroResponse; MT -6;} + map {type multiMap; maps (yax zax); + yax {type spaceMap; axis y; grid lin; N 255; min -161.2773; max 161.2773; } + zax {type spaceMap; axis z; grid lin; N 60; min 36.748; max 402.508;} + } + } +} + +geometry { + type geometryStd; + boundary ( 0 0 0 0 0 0); + graph {type shrunk;} + + surfaces { + + // thickness specifications for RPV and RPV liner + outerRPV { id 1; type zTruncCylinder; radius 241.3; origin (0.0 0.0 230.0); halfwidth 230; } + innerRPV { id 2; type zCylinder; radius 219.710; origin (0.0 0.0 0.0); } + innerRPVLiner { id 3; type zCylinder; radius 219.150; origin (0.0 0.0 0.0); } + + // thickness specifications for neutron shield + outerBoundNS { id 4; type zCylinder; radius 201.630; origin (0.0 0.0 0.0); } + innerBoundNS { id 5; type zCylinder; radius 194.84; origin (0.0 0.0 0.0); } + + // thickness specifications for core barrel + outerCoreBarrel { id 6; type zCylinder; radius 193.675; origin (0.0 0.0 0.0); } + innerCoreBarrel { id 7; type zCylinder; radius 187.96; origin (0.0 0.0 0.0); } + + // four planes that intersect to bound the Neutron shield panel + P1 { id 8; type plane; coeffs (-0.48480962025 0.87461970714 0.0 0.0);} + P2 { id 9; type plane; coeffs (-0.87461970714 0.48480962025 0.0 0.0);} + P3 { id 10; type plane; coeffs (-0.87461970714 -0.48480962025 0.0 0.0);} + P4 { id 11; type plane; coeffs (-0.48480962025 -0.87461970714 0.0 0.0);} + + // bounding widths for baffle on various sides + // right & left refers to the side of the reactor that it is on + // close/away refers to its location in relation to the LATTICE it is a part of + // (NOT the reactor itself) + rightClose { id 50; type plane; coeffs (1.0 0.0 0.0 8.36662);} + rightAway { id 51; type plane; coeffs (1.0 0.0 0.0 10.58912);} + leftClose { id 52; type plane; coeffs (-1.0 0.0 0.0 8.36662);} + leftAway { id 53; type plane; coeffs (-1.0 0.0 0.0 10.58912);} + bottomClose { id 54; type plane; coeffs (0.0 -1.0 0.0 8.36662);} + bottomAway { id 55; type plane; coeffs (0.0 -1.0 0.0 10.58912);} + topClose { id 56; type plane; coeffs (0.0 1.0 0.0 8.36662);} + topAway { id 57; type plane; coeffs (0.0 1.0 0.0 10.58912);} + + // thickness specifications for grid with thickness of 0.0198cm (Inconel) + pinThickGridInner { id 90; type zSquareCylinder; origin (0.0 0.0 0.0); halfwidth (0.61015 0.61015 0.0); } + pinThickGridOuter { id 91; type zSquareCylinder; origin (0.0 0.0 0.0); halfwidth (0.62992 0.62992 0.0); } + + // thickness specifications for grid with thickness of 0.0194cm (Zircaloy) + pinThinGridInner { id 92; type zSquareCylinder; origin (0.0 0.0 0.0); halfwidth (0.61049 0.61049 0.0); } + pinThinGridOuter { id 93; type zSquareCylinder; origin (0.0 0.0 0.0); halfwidth (0.62992 0.62992 0.0); } + + // inner and outer surfaces of assembly sleeves (both SS and Zircaloy) + assemblySleeveInner { id 94; type zSquareCylinder; origin (0.0 0.0 0.0); halfwidth (10.70864 10.70864 0.0); } + assemblySleeveOuter { id 95; type zSquareCylinder; origin (0.0 0.0 0.0); halfwidth (10.74798 10.74798 0.0); } + + + // Axial planes across core height + // Names are based on axial heights + plane460 { id 100; type plane; coeffs (0.0 0.0 1.0 460.0 ); } + plane431p876 { id 101; type plane; coeffs (0.0 0.0 1.0 431.876); } + plane423p049 { id 102; type plane; coeffs (0.0 0.0 1.0 423.049); } + plane421p532 { id 103; type plane; coeffs (0.0 0.0 1.0 421.532); } + plane419p704 { id 104; type plane; coeffs (0.0 0.0 1.0 419.704); } + plane417p164 { id 105; type plane; coeffs (0.0 0.0 1.0 417.164); } + plane415p164 { id 106; type plane; coeffs (0.0 0.0 1.0 415.164); } + plane411p806 { id 107; type plane; coeffs (0.0 0.0 1.0 411.806); } + plane403p778 { id 108; type plane; coeffs (0.0 0.0 1.0 403.778); } + plane402p508 { id 109; type plane; coeffs (0.0 0.0 1.0 402.508); } + plane401p238 { id 110; type plane; coeffs (0.0 0.0 1.0 401.238); } + plane364p725 { id 111; type plane; coeffs (0.0 0.0 1.0 364.725); } + plane359p01 { id 112; type plane; coeffs (0.0 0.0 1.0 359.01 ); } + plane312p528 { id 113; type plane; coeffs (0.0 0.0 1.0 312.528); } + plane306p813 { id 114; type plane; coeffs (0.0 0.0 1.0 306.813); } + plane260p331 { id 115; type plane; coeffs (0.0 0.0 1.0 260.331); } + plane254p616 { id 116; type plane; coeffs (0.0 0.0 1.0 254.616); } + plane208p134 { id 117; type plane; coeffs (0.0 0.0 1.0 208.134); } + plane202p419 { id 118; type plane; coeffs (0.0 0.0 1.0 202.419); } + plane155p937 { id 119; type plane; coeffs (0.0 0.0 1.0 155.937); } + plane150p222 { id 120; type plane; coeffs (0.0 0.0 1.0 150.222); } + plane143p428 { id 121; type plane; coeffs (0.0 0.0 1.0 143.428); } + plane103p74 { id 122; type plane; coeffs (0.0 0.0 1.0 103.74 ); } + plane98p025 { id 123; type plane; coeffs (0.0 0.0 1.0 98.025 ); } + plane41p828 { id 124; type plane; coeffs (0.0 0.0 1.0 41.828 ); } + plane40p558 { id 125; type plane; coeffs (0.0 0.0 1.0 40.558 ); } + plane40p52 { id 126; type plane; coeffs (0.0 0.0 1.0 40.52 ); } + plane39p958 { id 127; type plane; coeffs (0.0 0.0 1.0 39.958 ); } + plane38p66 { id 128; type plane; coeffs (0.0 0.0 1.0 38.66 ); } + plane37p1621 { id 129; type plane; coeffs (0.0 0.0 1.0 37.1621); } + plane36p748 { id 130; type plane; coeffs (0.0 0.0 1.0 36.748 ); } + plane35 { id 131; type plane; coeffs (0.0 0.0 1.0 35.0 ); } + plane20 { id 132; type plane; coeffs (0.0 0.0 1.0 20.0 ); } + plane0 { id 133; type plane; coeffs (0.0 0.0 1.0 0.0 ); } + + planeSteelBottom { id 134; type plane; coeffs (0.0 0.0 1.0 400.638); } + planeCRLowerBottom { id 135; type plane; coeffs (0.0 0.0 1.0 402.508); } // same as 109 on withdrawal + planeCRUpperBottom { id 136; type plane; coeffs (0.0 0.0 1.0 504.108); } // out of core on withdrawal + + plane322p1861 {id 137; type plane; coeffs (0 0 1 322.18609);} + plane220p586 {id 138; type plane; coeffs (0 0 1 220.5861);} + plane218p716 {id 139; type plane; coeffs (0 0 1 218.71609);} + + } + + cells { + + // assembly wrappers and surrounding water at various heights + wrapper1 {type simpleCell; id 2001; surfaces (94 -95 129 -126); filltype mat; material SS304;} + wrapper2 {type simpleCell; id 2002; surfaces (94 -95 123 -122); filltype mat; material Zircaloy;} + wrapper3 {type simpleCell; id 2003; surfaces (94 -95 120 -119); filltype mat; material Zircaloy;} + wrapper4 {type simpleCell; id 2004; surfaces (94 -95 118 -117); filltype mat; material Zircaloy;} + wrapper5 {type simpleCell; id 2005; surfaces (94 -95 116 -115); filltype mat; material Zircaloy;} + wrapper6 {type simpleCell; id 2006; surfaces (94 -95 114 -113); filltype mat; material Zircaloy;} + wrapper7 {type simpleCell; id 2007; surfaces (94 -95 112 -111); filltype mat; material Zircaloy;} + wrapper8 {type simpleCell; id 2008; surfaces (94 -95 107 -106); filltype mat; material SS304;} + + assemWater0 {type simpleCell; id 2009; surfaces (94 -129); filltype mat; material Water;} + assemWater1 {type simpleCell; id 2010; surfaces (94 -95 126 -123); filltype mat; material Water;} + assemWater2 {type simpleCell; id 2011; surfaces (94 -95 122 -120); filltype mat; material Water;} + assemWater3 {type simpleCell; id 2012; surfaces (94 -95 119 -118); filltype mat; material Water;} + assemWater4 {type simpleCell; id 2013; surfaces (94 -95 117 -116); filltype mat; material Water;} + assemWater5 {type simpleCell; id 2014; surfaces (94 -95 115 -114); filltype mat; material Water;} + assemWater6 {type simpleCell; id 2015; surfaces (94 -95 113 -112); filltype mat; material Water;} + assemWater7 {type simpleCell; id 2016; surfaces (94 -95 111 -107); filltype mat; material Water;} + assemWater8 {type simpleCell; id 2017; surfaces (94 -95 106); filltype mat; material Water;} + assemWaterEx {type simpleCell; id 2018; surfaces (95); filltype mat; material Water;} + + // assemblies inside the wrappers + assem1424 {type simpleCell; id 2019; surfaces (-94); filltype uni; universe 1424;} + assem1416 {type simpleCell; id 2020; surfaces (-94); filltype uni; universe 1416;} + assem1431 {type simpleCell; id 2021; surfaces (-94); filltype uni; universe 1431;} + assem60316 {type simpleCell; id 2022; surfaces (-94); filltype uni; universe 60316;} + assem603112 {type simpleCell; id 2023; surfaces (-94); filltype uni; universe 603112;} + assem60313 {type simpleCell; id 2024; surfaces (-94); filltype uni; universe 60313;} + assem60319 {type simpleCell; id 2025; surfaces (-94); filltype uni; universe 60319;} + assem15315 {type simpleCell; id 2026; surfaces (-94); filltype uni; universe 15315;} + assem15317 {type simpleCell; id 2027; surfaces (-94); filltype uni; universe 15317;} + assem15311 {type simpleCell; id 2028; surfaces (-94); filltype uni; universe 15311;} + assem153111 {type simpleCell; id 2029; surfaces (-94); filltype uni; universe 153111;} + assem1631 {type simpleCell; id 2030; surfaces (-94); filltype uni; universe 1631;} + assem2031 {type simpleCell; id 2031; surfaces (-94); filltype uni; universe 2031;} + assem1224 {type simpleCell; id 2032; surfaces (-94); filltype uni; universe 1224;} + assem1624 {type simpleCell; id 2033; surfaces (-94); filltype uni; universe 1624;} + + // unrodded assemblies in wrappers + assem2424 {type simpleCell; id 2034; surfaces (-94); filltype uni; universe 2424;} + assem2416 {type simpleCell; id 2035; surfaces (-94); filltype uni; universe 2416;} + assem2431 {type simpleCell; id 2036; surfaces (-94); filltype uni; universe 2431;} + assem70316 {type simpleCell; id 2037; surfaces (-94); filltype uni; universe 70316;} + assem703112 {type simpleCell; id 2038; surfaces (-94); filltype uni; universe 703112;} + assem70313 {type simpleCell; id 2039; surfaces (-94); filltype uni; universe 70313;} + assem70319 {type simpleCell; id 2040; surfaces (-94); filltype uni; universe 70319;} + assem25315 {type simpleCell; id 2041; surfaces (-94); filltype uni; universe 25315;} + assem25317 {type simpleCell; id 2042; surfaces (-94); filltype uni; universe 25317;} + assem25311 {type simpleCell; id 2043; surfaces (-94); filltype uni; universe 25311;} + assem253111 {type simpleCell; id 2044; surfaces (-94); filltype uni; universe 253111;} + assem2631 {type simpleCell; id 2045; surfaces (-94); filltype uni; universe 2631;} + assem3031 {type simpleCell; id 2046; surfaces (-94); filltype uni; universe 3031;} + assem2224 {type simpleCell; id 2047; surfaces (-94); filltype uni; universe 2224;} + assem2624 {type simpleCell; id 2048; surfaces (-94); filltype uni; universe 2624;} + + // rodded assemblies in wrappers + assem1425 {type simpleCell; id 2049; surfaces (-94); filltype uni; universe 1425;} + assem1417 {type simpleCell; id 2050; surfaces (-94); filltype uni; universe 1417;} + + // pin grids - thick at the top and bottom, thin in fuelled region + thickGrid {type simpleCell; id 555; surfaces (90 ); filltype mat; material Inconel;} + thinGrid {type simpleCell; id 556; surfaces (92 ); filltype mat; material Zircaloy;} + + // Don't need to bound PV by 1 since it is the bounding surface of the geometry. + pressureVessel { type simpleCell; id 7; surfaces (2); filltype mat; material CarbonSteel;} + RPVLiner { type simpleCell; id 8; surfaces (-2 3); filltype mat; material SS304;} + outerWater1 {type simpleCell; id 9; surfaces (-3 4 ); filltype mat; material Water;} + + // Neutron shields + NS1 { type simpleCell; id 10; surfaces (-4 5 -8 9); filltype mat; material SS304;} + NS2 { type simpleCell; id 11; surfaces (-4 5 8 -9); filltype mat; material SS304;} + NS3 { type simpleCell; id 12; surfaces (-4 5 -10 11); filltype mat; material SS304;} + NS4 { type simpleCell; id 13; surfaces (-4 5 10 -11); filltype mat; material SS304;} + + // Water in the radial sliver between neutron shields and core + waterSliver1 {type simpleCell; id 14; surfaces (6 -5 -8 9); filltype mat; material Water;} + waterSliver2 {type simpleCell; id 15; surfaces (6 -5 8 -9); filltype mat; material Water;} + waterSliver3 {type simpleCell; id 16; surfaces (6 -5 -10 11); filltype mat; material Water;} + waterSliver4 {type simpleCell; id 17; surfaces (6 -5 10 -11); filltype mat; material Water;} + + // Water in the arc between neutron shields + outerWaterSeg1 {type simpleCell; id 18; surfaces (-4 6 8 11); filltype mat; material Water;} + outerWaterSeg2 {type simpleCell; id 19; surfaces (-4 6 -8 -11); filltype mat; material Water;} + outerWaterSeg3 {type simpleCell; id 20; surfaces (-4 6 -9 10); filltype mat; material Water;} + outerWaterSeg4 {type simpleCell; id 21; surfaces (-4 6 9 -10); filltype mat; material Water;} + + // Outer core + coreBarrel { type simpleCell; id 22; surfaces (-6 7); filltype mat; material SS304;} + core {type simpleCell; id 23; surfaces (-7); filltype uni; universe 9999;} + + // Gridded pins + + // THICK GRID + // 2.4% in grid + grid24Thick {type simpleCell; id 253; surfaces (-90); filltype uni; universe 24000;} + // guide tube in grid + gridGTThick {type simpleCell; id 254; surfaces (-90); filltype uni; universe 12000;} + // 3.1% in grid + grid31Thick {type simpleCell; id 255; surfaces (-90); filltype uni; universe 31000;} + // 1.6 % in grid + grid16Thick {type simpleCell; id 256; surfaces (-90); filltype uni; universe 16000;} + // instrumentation tube in grid + gridITThick {type simpleCell; id 257; surfaces (-90); filltype uni; universe 14000;} + // empty GT at dashpot in grid + gridGTDPThick {type simpleCell; id 258; surfaces (-90); filltype uni; universe 1010;} + // pin upper fuel plenum in grid + gridFPPThick {type simpleCell; id 259; surfaces (-90); filltype uni; universe 1008;} + // stainless steel in guide tube in grid + gridSSGThick {type simpleCell; id 260; surfaces (-90); filltype uni; universe 1023;} + // stainless steel in dash pot in grid + gridSSDPThick {type simpleCell; id 261; surfaces (-90); filltype uni; universe 1024;} + // BP plenum in grid + gridBPPThick {type simpleCell; id 262; surfaces (-90); filltype uni; universe 1012;} + // Lower rodded GT in grid + gridLRGTThick {type simpleCell; id 263; surfaces (-90); filltype uni; universe 1014;} + // Upper rodded GT in grid + gridURGTThick {type simpleCell; id 463; surfaces (-90); filltype uni; universe 1013;} + + // THIN GRID + // 2.4% in grid + grid24Thin {type simpleCell; id 264; surfaces (-92); filltype uni; universe 24000;} + // guide tube in grid + gridGTThin {type simpleCell; id 265; surfaces (-92); filltype uni; universe 12000;} + // burnable poison in grid + gridBPThin {type simpleCell; id 266; surfaces (-92); filltype uni; universe 1000;} + // 3.1% in grid + grid31Thin {type simpleCell; id 267; surfaces (-92); filltype uni; universe 31000;} + // 1.6 % in grid + grid16Thin {type simpleCell; id 268; surfaces (-92); filltype uni; universe 16000;} + // instrumentation tube in grid + gridITThin {type simpleCell; id 269; surfaces (-92); filltype uni; universe 14000;} + // empty GT at dashpot in grid + gridGTDPThin {type simpleCell; id 270; surfaces (-92); filltype uni; universe 1010;} + // pin upper fuel plenum in grid + gridFPPThin {type simpleCell; id 271; surfaces (-92); filltype uni; universe 1008;} + // stainless steel in guide tube in grid + gridSSGTThin {type simpleCell; id 272; surfaces (-92); filltype uni; universe 1023;} + // stainless steel in dash pot in grid + gridSSDPThin {type simpleCell; id 273; surfaces (-92); filltype uni; universe 1024;} + // BP plenum in grid + gridBPPThin {type simpleCell; id 274; surfaces (-92); filltype uni; universe 1012;} + // Lower rodded GT in grid (not used when rods fully withdrawn) + gridLRGTThin {type simpleCell; id 275; surfaces (-92); filltype uni; universe 1014;} + // Upper rodded GT in grid (not used when rods fully withdrawn) + gridURGTThin {type simpleCell; id 475; surfaces (-92); filltype uni; universe 1013;} + + + // 3.1% enriched pins, axial layering + 31FP460 {type simpleCell; id 100; surfaces ( 101); filltype uni; universe 1001;} + 31FP431 {type simpleCell; id 101; surfaces (-101 102); filltype uni; universe 1003;} + 31FP423 {type simpleCell; id 102; surfaces (-102 104); filltype uni; universe 1001;} + 31FP419 {type simpleCell; id 103; surfaces (-104 105); filltype uni; universe 1006;} + 31FP417 {type simpleCell; id 104; surfaces (-105 106); filltype uni; universe 1008;} + 31FP415 {type simpleCell; id 105; surfaces (-106 107); filltype uni; universe 1017;} + 31FP411 {type simpleCell; id 106; surfaces (-107 109); filltype uni; universe 1008;} + 31FP402 {type simpleCell; id 107; surfaces (-109 111); filltype uni; universe 31000;} + 31FP364 {type simpleCell; id 108; surfaces (-111 112); filltype uni; universe 9231;} + 31FP359 {type simpleCell; id 109; surfaces (-112 113); filltype uni; universe 31000;} + 31FP312 {type simpleCell; id 110; surfaces (-113 114); filltype uni; universe 9231;} + 31FP306 {type simpleCell; id 111; surfaces (-114 115); filltype uni; universe 31000;} + 31FP260 {type simpleCell; id 112; surfaces (-115 116); filltype uni; universe 9231;} + 31FP254 {type simpleCell; id 113; surfaces (-116 117); filltype uni; universe 31000;} + 31FP208 {type simpleCell; id 114; surfaces (-117 118); filltype uni; universe 9231;} + 31FP202 {type simpleCell; id 115; surfaces (-118 119); filltype uni; universe 31000;} + 31FP155 {type simpleCell; id 116; surfaces (-119 120); filltype uni; universe 9231;} + 31FP150 {type simpleCell; id 117; surfaces (-120 122); filltype uni; universe 31000;} + 31FP103 {type simpleCell; id 118; surfaces (-122 123); filltype uni; universe 9231;} + 31FP98 {type simpleCell; id 119; surfaces (-123 126); filltype uni; universe 31000;} + 31FP4052 {type simpleCell; id 120; surfaces (-126 129); filltype uni; universe 1131;} + 31FP37 {type simpleCell; id 121; surfaces (-129 130); filltype uni; universe 31000;} + 31FP36 {type simpleCell; id 122; surfaces (-130 131); filltype uni; universe 1006;} + 31FP35 {type simpleCell; id 123; surfaces (-131 132); filltype uni; universe 1003;} + 31FP20 {type simpleCell; id 124; surfaces (-132 ); filltype uni; universe 1001;} + + + //2.4% enriched pins, axial layering + 24FP460 {type simpleCell; id 125; surfaces ( 101); filltype uni; universe 1001;} + 24FP431 {type simpleCell; id 126; surfaces (-101 102); filltype uni; universe 1003;} + 24FP423 {type simpleCell; id 127; surfaces (-102 104); filltype uni; universe 1001;} + 24FP419 {type simpleCell; id 128; surfaces (-104 105); filltype uni; universe 1006;} + 24FP417 {type simpleCell; id 129; surfaces (-105 106); filltype uni; universe 1008;} + 24FP415 {type simpleCell; id 130; surfaces (-106 107); filltype uni; universe 1017;} + 24FP411 {type simpleCell; id 131; surfaces (-107 109); filltype uni; universe 1008;} + 24FP402 {type simpleCell; id 132; surfaces (-109 111); filltype uni; universe 24000;} + 24FP364 {type simpleCell; id 133; surfaces (-111 112); filltype uni; universe 9224;} + 24FP359 {type simpleCell; id 134; surfaces (-112 113); filltype uni; universe 24000;} + 24FP312 {type simpleCell; id 135; surfaces (-113 114); filltype uni; universe 9224;} + 24FP306 {type simpleCell; id 136; surfaces (-114 115); filltype uni; universe 24000;} + 24FP260 {type simpleCell; id 137; surfaces (-115 116); filltype uni; universe 9224;} + 24FP254 {type simpleCell; id 138; surfaces (-116 117); filltype uni; universe 24000;} + 24FP208 {type simpleCell; id 139; surfaces (-117 118); filltype uni; universe 9224;} + 24FP202 {type simpleCell; id 140; surfaces (-118 119); filltype uni; universe 24000;} + 24FP155 {type simpleCell; id 141; surfaces (-119 120); filltype uni; universe 9224;} + 24FP150 {type simpleCell; id 142; surfaces (-120 122); filltype uni; universe 24000;} + 24FP103 {type simpleCell; id 143; surfaces (-122 123); filltype uni; universe 9224;} + 24FP98 {type simpleCell; id 144; surfaces (-123 126); filltype uni; universe 24000;} + 24FP4052 {type simpleCell; id 145; surfaces (-126 129); filltype uni; universe 1124;} + 24FP37 {type simpleCell; id 146; surfaces (-129 130); filltype uni; universe 24000;} + 24FP36 {type simpleCell; id 147; surfaces (-130 131); filltype uni; universe 1006;} + 24FP35 {type simpleCell; id 148; surfaces (-131 132); filltype uni; universe 1003;} + 24FP20 {type simpleCell; id 149; surfaces (-132); filltype uni; universe 1001;} + + //1.6% enriched pins, axial layering + 16FP460 {type simpleCell; id 150; surfaces ( 101); filltype uni; universe 1001;} + 16FP431 {type simpleCell; id 151; surfaces (-101 102); filltype uni; universe 1003;} + 16FP423 {type simpleCell; id 152; surfaces (-102 104); filltype uni; universe 1001;} + 16FP419 {type simpleCell; id 153; surfaces (-104 105); filltype uni; universe 1006;} + 16FP417 {type simpleCell; id 154; surfaces (-105 106); filltype uni; universe 1008;} + 16FP415 {type simpleCell; id 155; surfaces (-106 107); filltype uni; universe 1017;} + 16FP411 {type simpleCell; id 156; surfaces (-107 109); filltype uni; universe 1008;} + 16FP402 {type simpleCell; id 157; surfaces (-109 111); filltype uni; universe 16000;} + 16FP364 {type simpleCell; id 158; surfaces (-111 112); filltype uni; universe 9216;} + 16FP359 {type simpleCell; id 159; surfaces (-112 113); filltype uni; universe 16000;} + 16FP312 {type simpleCell; id 160; surfaces (-113 114); filltype uni; universe 9216;} + 16FP306 {type simpleCell; id 161; surfaces (-114 115); filltype uni; universe 16000;} + 16FP260 {type simpleCell; id 162; surfaces (-115 116); filltype uni; universe 9216;} + 16FP254 {type simpleCell; id 163; surfaces (-116 117); filltype uni; universe 16000;} + 16FP208 {type simpleCell; id 164; surfaces (-117 118); filltype uni; universe 9216;} + 16FP202 {type simpleCell; id 165; surfaces (-118 119); filltype uni; universe 16000;} + 16FP155 {type simpleCell; id 166; surfaces (-119 120); filltype uni; universe 9216;} + 16FP150 {type simpleCell; id 167; surfaces (-120 122); filltype uni; universe 16000;} + 16FP103 {type simpleCell; id 168; surfaces (-122 123); filltype uni; universe 9216;} + 16FP98 {type simpleCell; id 169; surfaces (-123 126); filltype uni; universe 16000;} + 16FP4052 {type simpleCell; id 170; surfaces (-126 129); filltype uni; universe 1116;} + 16FP37 {type simpleCell; id 171; surfaces (-129 130); filltype uni; universe 16000;} + 16FP36 {type simpleCell; id 172; surfaces (-130 131); filltype uni; universe 1006;} + 16FP35 {type simpleCell; id 173; surfaces (-131 132); filltype uni; universe 1003;} + 16FP20 {type simpleCell; id 174; surfaces (-132); filltype uni; universe 1001;} + + + //guide tube, with CR, axial layering + GC460 {type simpleCell; id 175; surfaces ( 101); filltype uni; universe 1014;} + GC431 {type simpleCell; id 176; surfaces (-101 106); filltype uni; universe 1014;} // Nozzle/support plate BW? Replaced just with rod + GC415 {type simpleCell; id 177; surfaces (-106 107); filltype uni; universe 1018;} // Rodded w/ grid + GC411 {type simpleCell; id 178; surfaces (-107 109); filltype uni; universe 1014;} + GC402 {type simpleCell; id 179; surfaces (-109 134); filltype uni; universe 1015;} + GC400 {type simpleCell; id 180; surfaces (-134 111); filltype uni; universe 12000;} + GC364 {type simpleCell; id 181; surfaces (-111 112); filltype uni; universe 9112;} + GC359 {type simpleCell; id 182; surfaces (-112 113); filltype uni; universe 12000;} + GC312 {type simpleCell; id 183; surfaces (-113 114); filltype uni; universe 9112;} + GC306 {type simpleCell; id 184; surfaces (-114 115); filltype uni; universe 12000;} + GC260 {type simpleCell; id 185; surfaces (-115 116); filltype uni; universe 9112;} + GC254 {type simpleCell; id 186; surfaces (-116 117); filltype uni; universe 12000;} + GC208 {type simpleCell; id 187; surfaces (-117 118); filltype uni; universe 9112;} + GC202 {type simpleCell; id 188; surfaces (-118 119); filltype uni; universe 12000;} + GC155 {type simpleCell; id 189; surfaces (-119 120); filltype uni; universe 9112;} + GC150 {type simpleCell; id 190; surfaces (-120 122); filltype uni; universe 12000;} + GC103 {type simpleCell; id 191; surfaces (-122 123); filltype uni; universe 9112;} + GC98 {type simpleCell; id 192; surfaces (-123 126); filltype uni; universe 1010;} + GC4052 {type simpleCell; id 193; surfaces (-126 127); filltype uni; universe 12000;} + GC39 {type simpleCell; id 194; surfaces (-127 129); filltype uni; universe 1019;} + GC37 {type simpleCell; id 195; surfaces (-129 131); filltype uni; universe 1010;} + GC35 {type simpleCell; id 196; surfaces (-131 132); filltype uni; universe 1005;} + GC20 {type simpleCell; id 197; surfaces (-132); filltype uni; universe 1001;} + + + // instrumentation tube, axial layering + IT460 {type simpleCell; id 198; surfaces ( 102); filltype uni; universe 1001;} + IT423 {type simpleCell; id 199; surfaces (-102 106); filltype uni; universe 14000;} + IT415 {type simpleCell; id 200; surfaces (-106 107); filltype uni; universe 1114;} + IT411 {type simpleCell; id 201; surfaces (-107 111); filltype uni; universe 14000;} + IT364 {type simpleCell; id 202; surfaces (-111 112); filltype uni; universe 9114;} + IT359 {type simpleCell; id 203; surfaces (-112 113); filltype uni; universe 14000;} + IT312 {type simpleCell; id 204; surfaces (-113 114); filltype uni; universe 9114;} + IT306 {type simpleCell; id 205; surfaces (-114 115); filltype uni; universe 14000;} + IT260 {type simpleCell; id 206; surfaces (-115 116); filltype uni; universe 9114;} + IT254 {type simpleCell; id 207; surfaces (-116 117); filltype uni; universe 14000;} + IT208 {type simpleCell; id 208; surfaces (-117 118); filltype uni; universe 9114;} + IT202 {type simpleCell; id 209; surfaces (-118 119); filltype uni; universe 14000;} + IT155 {type simpleCell; id 210; surfaces (-119 120); filltype uni; universe 9114;} + IT150 {type simpleCell; id 211; surfaces (-120 122); filltype uni; universe 14000;} + IT103 {type simpleCell; id 212; surfaces (-122 123); filltype uni; universe 9114;} + IT98 {type simpleCell; id 213; surfaces (-123 126); filltype uni; universe 14000;} + IT4052 {type simpleCell; id 214; surfaces (-126 129); filltype uni; universe 1114;} + IT37 {type simpleCell; id 215; surfaces (-129 131); filltype uni; universe 14000;} + IT35 {type simpleCell; id 216; surfaces (-131 132); filltype uni; universe 1005;} + IT20 {type simpleCell; id 217; surfaces (-132 ); filltype uni; universe 1011;} + + + // burnable absorber, axial layering + BA460 {type simpleCell; id 218; surfaces ( 101); filltype uni; universe 1001;} + BA431 {type simpleCell; id 219; surfaces (-101 102); filltype uni; universe 1002;} + BA423 {type simpleCell; id 220; surfaces (-102 103); filltype uni; universe 1023;} + BA421 {type simpleCell; id 230; surfaces (-103 106); filltype uni; universe 1012;} + BA415 {type simpleCell; id 231; surfaces (-106 107); filltype uni; universe 1027;} + BA411 {type simpleCell; id 232; surfaces (-107 110); filltype uni; universe 1012;} + BA401 {type simpleCell; id 233; surfaces (-110 111); filltype uni; universe 1000;} + BA364 {type simpleCell; id 234; surfaces (-111 112); filltype uni; universe 1110;} + BA359 {type simpleCell; id 235; surfaces (-112 113); filltype uni; universe 1000;} + BA312 {type simpleCell; id 236; surfaces (-113 114); filltype uni; universe 1110;} + BA306 {type simpleCell; id 237; surfaces (-114 115); filltype uni; universe 1000;} + BA260 {type simpleCell; id 238; surfaces (-115 116); filltype uni; universe 1110;} + BA254 {type simpleCell; id 239; surfaces (-116 117); filltype uni; universe 1000;} + BA208 {type simpleCell; id 240; surfaces (-117 118); filltype uni; universe 1110;} + BA202 {type simpleCell; id 241; surfaces (-118 119); filltype uni; universe 1000;} + BA155 {type simpleCell; id 242; surfaces (-119 120); filltype uni; universe 1110;} + BA150 {type simpleCell; id 243; surfaces (-120 122); filltype uni; universe 1000;} + BA103 {type simpleCell; id 244; surfaces (-122 123); filltype uni; universe 1110;} + BA98 {type simpleCell; id 245; surfaces (-123 125); filltype uni; universe 1000;} + BA4055 {type simpleCell; id 246; surfaces (-125 126); filltype uni; universe 1023;} + BA4052 {type simpleCell; id 247; surfaces (-126 127); filltype uni; universe 1021;} + BA39 {type simpleCell; id 248; surfaces (-127 128); filltype uni; universe 1025;} + BA38 {type simpleCell; id 249; surfaces (-128 129); filltype uni; universe 1019;} + BA37 {type simpleCell; id 250; surfaces (-129 131); filltype uni; universe 1010;} + BA35 {type simpleCell; id 251; surfaces (-131 132); filltype uni; universe 1005;} + BA20 {type simpleCell; id 252; surfaces (-132 ); filltype uni; universe 1001;} + + //guide tube, no CR, axial layering + GT460 {type simpleCell; id 353; surfaces ( 101); filltype uni; universe 1001;} + GT431 {type simpleCell; id 354; surfaces (-101 102); filltype uni; universe 1005;} + GT423 {type simpleCell; id 355; surfaces (-102 106); filltype uni; universe 12000;} + GT415 {type simpleCell; id 356; surfaces (-106 107); filltype uni; universe 1112;} + GT411 {type simpleCell; id 357; surfaces (-107 111); filltype uni; universe 12000;} + GT364 {type simpleCell; id 358; surfaces (-111 112); filltype uni; universe 9112;} + GT359 {type simpleCell; id 359; surfaces (-112 113); filltype uni; universe 12000;} + GT312 {type simpleCell; id 360; surfaces (-113 114); filltype uni; universe 9112;} + GT306 {type simpleCell; id 361; surfaces (-114 115); filltype uni; universe 12000;} + GT260 {type simpleCell; id 362; surfaces (-115 116); filltype uni; universe 9112;} + GT254 {type simpleCell; id 363; surfaces (-116 117); filltype uni; universe 12000;} + GT208 {type simpleCell; id 364; surfaces (-117 118); filltype uni; universe 9112;} + GT202 {type simpleCell; id 365; surfaces (-118 119); filltype uni; universe 12000;} + GT155 {type simpleCell; id 366; surfaces (-119 120); filltype uni; universe 9112;} + GT150 {type simpleCell; id 367; surfaces (-120 122); filltype uni; universe 12000;} + GT103 {type simpleCell; id 368; surfaces (-122 123); filltype uni; universe 9112;} + GT98 {type simpleCell; id 369; surfaces (-123 126); filltype uni; universe 1010;} + GT4052 {type simpleCell; id 370; surfaces (-126 127); filltype uni; universe 12000;} + GT39 {type simpleCell; id 371; surfaces (-127 129); filltype uni; universe 1019;} + GT37 {type simpleCell; id 372; surfaces (-129 131); filltype uni; universe 1010;} + GT35 {type simpleCell; id 373; surfaces (-131 132); filltype uni; universe 1005;} + GT20 {type simpleCell; id 374; surfaces (-132); filltype uni; universe 1001;} + + //guide tube, partially inserted CR, axial layering + // Note: universe is basically a combo of fully and partially inserted rods + GP460 {type simpleCell; id 375; surfaces ( 101); filltype uni; universe 1013;} + GP431 {type simpleCell; id 376; surfaces (-101 102); filltype uni; universe 1013;} + GP423 {type simpleCell; id 377; surfaces (-102 106); filltype uni; universe 1013;} + GP415 {type simpleCell; id 378; surfaces (-106 107); filltype uni; universe 1133;} + GP411 {type simpleCell; id 379; surfaces (-107 111); filltype uni; universe 1013;} + GP364 {type simpleCell; id 380; surfaces (-111 112); filltype uni; universe 9233;} + GP359 {type simpleCell; id 381; surfaces (-112 137); filltype uni; universe 1013;} + GP322 {type simpleCell; id 382; surfaces (-137 113); filltype uni; universe 1014;} + GP312 {type simpleCell; id 383; surfaces (-113 114); filltype uni; universe 9232;} + GP306 {type simpleCell; id 384; surfaces (-114 115); filltype uni; universe 1014;} + GP260 {type simpleCell; id 385; surfaces (-115 116); filltype uni; universe 9232;} + GP254 {type simpleCell; id 386; surfaces (-116 138); filltype uni; universe 1014;} + GP220 {type simpleCell; id 387; surfaces (-138 139); filltype uni; universe 1023;} + GP219 {type simpleCell; id 388; surfaces (-139 117); filltype uni; universe 12000;} + GP208 {type simpleCell; id 389; surfaces (-117 118); filltype uni; universe 9112;} + GP202 {type simpleCell; id 390; surfaces (-118 119); filltype uni; universe 12000;} + GP155 {type simpleCell; id 391; surfaces (-119 120); filltype uni; universe 9112;} + GP150 {type simpleCell; id 392; surfaces (-120 122); filltype uni; universe 12000;} + GP103 {type simpleCell; id 393; surfaces (-122 123); filltype uni; universe 9112;} + GP98 {type simpleCell; id 394; surfaces (-123 126); filltype uni; universe 1010;} + GP4052 {type simpleCell; id 395; surfaces (-126 127); filltype uni; universe 12000;} + GP39 {type simpleCell; id 396; surfaces (-127 129); filltype uni; universe 1019;} + GP37 {type simpleCell; id 397; surfaces (-129 131); filltype uni; universe 1010;} + GP35 {type simpleCell; id 398; surfaces (-131 132); filltype uni; universe 1005;} + GP20 {type simpleCell; id 399; surfaces (-132); filltype uni; universe 1001;} + + // control rod, axial layering + // Used (probably with some modification) only when fully inserted + //CR460 {type simpleCell; id 448; surfaces (-120 121); filltype uni; universe 1002;} + //CR415 {type simpleCell; id 449; surfaces (-126 403); filltype uni; universe 1013;} + //CR403 {type simpleCell; id 450; surfaces (-403 402); filltype uni; universe 1015;} + //CR402 {type simpleCell; id 451; surfaces (-402 1430); filltype uni; universe 1013;} + //CR143 {type simpleCell; id 452; surfaces (-1430 41); filltype uni; universe 1014;} + //CR41 {type simpleCell; id 453; surfaces (-41 143); filltype uni; universe 1002;} + //CR39 {type simpleCell; id 454; surfaces (-143 147); filltype uni; universe 1001;} + //CR35 {type simpleCell; id 455; surfaces (-147 148); filltype uni; universe 1005;} + //CR20 {type simpleCell; id 456; surfaces (-148 149); filltype uni; universe 1001;} + + + + outsideLeftBaffle { type simpleCell; id 52; surfaces (-50); filltype mat; material Water;} + leftBaffle { type simpleCell; id 53; surfaces (50 -51); filltype mat; material SS304;} + insideLeftBaffle { type simpleCell; id 54; surfaces (51); filltype mat; material Water;} + + outsideRightBaffle { type simpleCell; id 55; surfaces (-52); filltype mat; material Water;} + RightBaffle { type simpleCell; id 56; surfaces (52 -53); filltype mat; material SS304;} + insideRightBaffle { type simpleCell; id 57; surfaces (53); filltype mat; material Water;} + + outsideTopBaffle { type simpleCell; id 58; surfaces (-54); filltype mat; material Water;} + TopBaffle { type simpleCell; id 59; surfaces (54 -55); filltype mat; material SS304;} + insideTopBaffle { type simpleCell; id 60; surfaces (55); filltype mat; material Water;} + + outsideBottomBaffle { type simpleCell; id 61; surfaces (-56); filltype mat; material Water;} + BottomBaffle { type simpleCell; id 62; surfaces (56 -57); filltype mat; material SS304;} + insideBottomBaffle { type simpleCell; id 63; surfaces (57); filltype mat; material Water;} + + topLeftCornerBaffle1 { type simpleCell; id 64; surfaces (52 -53 -57); filltype mat; material SS304;} + topLeftCornerBaffle2 { type simpleCell; id 65; surfaces (56 -57 -52); filltype mat; material SS304;} + topLeftCornerGap1 { type simpleCell; id 66; surfaces (57); filltype mat; material Water;} + topLeftCornerGap2 { type simpleCell; id 67; surfaces (53); filltype mat; material Water;} + topLeftMajorGap { type simpleCell; id 68; surfaces (-56 -52); filltype mat; material Water;} + + topRightCornerBaffle1 { type simpleCell; id 69; surfaces (-57 50 -51); filltype mat; material SS304;} + topRightCornerBaffle2 { type simpleCell; id 70; surfaces (-50 56 -57); filltype mat; material SS304;} + topRightCornerGap1 { type simpleCell; id 71; surfaces (57); filltype mat; material Water;} + topRightCornerGap2 { type simpleCell; id 72; surfaces (51); filltype mat; material Water;} + topRightMajorGap { type simpleCell; id 73; surfaces (-56 -50); filltype mat; material Water;} + + bottomLeftCornerBaffle1 { type simpleCell; id 74; surfaces (-55 52 -53); filltype mat; material SS304;} + bottomLeftCornerBaffle2 { type simpleCell; id 75; surfaces (-55 54 -52); filltype mat; material SS304;} + bottomLeftCornerGap1 { type simpleCell; id 76; surfaces (55); filltype mat; material Water;} + bottomLeftCornerGap2 { type simpleCell; id 77; surfaces (53); filltype mat; material Water;} + bottomLeftMajorGap { type simpleCell; id 78; surfaces (-54 -52); filltype mat; material Water;} + + bottomRightCornerBaffle1 { type simpleCell; id 79; surfaces (-51 50 -55); filltype mat; material SS304;} + bottomRightCornerBaffle2 { type simpleCell; id 80; surfaces (-55 54 -50); filltype mat; material SS304;} + bottomRightCornerGap1 { type simpleCell; id 81; surfaces (51); filltype mat; material Water;} + bottomRightCornerGap2 { type simpleCell; id 82; surfaces (55); filltype mat; material Water;} + bottomRightMajorGap { type simpleCell; id 83; surfaces (-50 -54); filltype mat; material Water;} + + + TLSG1 { type simpleCell; id 84; surfaces (-56 -52); filltype mat; material Water;} + TLSG2 { type simpleCell; id 85; surfaces (-56 52); filltype mat; material Water;} + TLSG3 { type simpleCell; id 86; surfaces (56 -52); filltype mat; material Water;} + topLeftSquare { type simpleCell; id 87; surfaces (56 52); filltype mat; material SS304;} + + TRSG1 { type simpleCell; id 88; surfaces (-56 50); filltype mat; material Water;} + TRSG2 { type simpleCell; id 89; surfaces (-56 -50); filltype mat; material Water;} + TRSG3 { type simpleCell; id 90; surfaces (56 -50); filltype mat; material Water;} + topRightSquare { type simpleCell; id 91; surfaces (56 50); filltype mat; material SS304;} + + BLSG1 { type simpleCell; id 92; surfaces (54 -52); filltype mat; material Water;} + BLSG2 { type simpleCell; id 93; surfaces (-54 52); filltype mat; material Water;} + BLSG3 { type simpleCell; id 94; surfaces (-54 -52); filltype mat; material Water;} + bottomLeftSquare { type simpleCell; id 95; surfaces (54 52); filltype mat; material SS304;} + + BRSG1 { type simpleCell; id 96; surfaces (-54 50); filltype mat; material Water;} + BRSG2 { type simpleCell; id 97; surfaces (54 -50); filltype mat; material Water;} + BRSG3 { type simpleCell; id 98; surfaces (-54 -50); filltype mat; material Water;} + bottomRightSquare { type simpleCell; id 99; surfaces (54 50); filltype mat; material SS304;} + } + + universes { + root { id 1; type rootUniverse; border 1; fill u<8888>; } + + // Pin universes + + //Burnable poison + pinBPaboveDP { id 1000; type pinUniverse; radii (0.21400 0.23051 0.24130 0.42672 0.43688 0.48387 0.56134 0.60198 0.0); + fills (Air SS304 Helium BorosilicateGlass Helium SS304 Water Zircaloy Water);} + pinBPPlenumGeometry { id 1012; type pinUniverse; radii ( 0.21400 0.23051 0.43688 0.48387 0.50419 0.54610 0.0); + fills (Air SS304 Helium SS304 Water Zircaloy Water);} + + //guide tubes + pinGTaboveDP { id 12000; type pinUniverse; radii (0.56134 0.60198 0.0 ); fills (Water Zircaloy Water);} + pinGTatDP { id 1010; type pinUniverse; radii (0.50419 0.54610 0.0); fills (Water Zircaloy Water);} + + //INST Tube + pinIT { id 14000; type pinUniverse; radii (0.43688 0.48387 0.56134 0.60198 0.0 ); + fills (Air Zircaloy Water Zircaloy Water);} + pinBareInstrumentThimble { id 1011; type pinUniverse; radii (0.43688 0.48387 0.0); fills (Air Zircaloy Water);} + + // Fuel pins + pin16 { id 16000; type pinUniverse; radii (0.39218 0.40005 0.45720 0.0); + fills (UO2-16 Helium Zircaloy Water);} + pin24 { id 24000; type pinUniverse; radii (0.39218 0.40005 0.45720 0.0); + fills (UO2-24 Helium Zircaloy Water);} + pin31 { id 31000; type pinUniverse; radii (0.39218 0.40005 0.45720 0.0); + fills (UO2-31 Helium Zircaloy Water);} + // Higher enrichments not used + //pin32 { id 32000; type pinUniverse; radii (0.39218 0.40005 0.45720 0.0); + // fills (UO2-32 Helium Zircaloy Water);} + //pin34 { id 34000; type pinUniverse; radii (0.39218 0.40005 0.45720 0.0); + // fills (UO2-34 Helium Zircaloy Water);} + + pinWater { id 1001; type pinUniverse; radii ( 0.0); fills (Water);} + + + // Solid pins, assumed radius to be that of a fuel pin (0.45720) + pinNozzle_SupportSteel { id 1003; type pinUniverse; radii ( 0.45720 0.0); fills (SupportPlateSS Water);} + pinSupportPlateBW { id 1005; type pinUniverse; radii ( 0.45720 0.0); fills (SupportPlateBW Water);} + pinZircaloy { id 1006; type pinUniverse; radii ( 0.45720 0.0); fills (Zircaloy Water);} + + + SSinDashPot { id 1024; type pinUniverse; radii (0.50419 0.54610 0.0); fills (SS304 Zircaloy Water);} + SSinGuideTube { id 1023; type pinUniverse; radii ( 0.56134 0.60198 0.0); fills (SS304 Zircaloy Water);} + SSnoGuideTube { id 1002; type pinUniverse; radii ( 0.56134 0.0); fills (SS304 Water);} + + + pinUpperFuelPlenum { id 1008; type pinUniverse; radii ( 0.06459 0.40005 0.45720 0.0); + fills (Inconel Helium Zircaloy Water);} + + // Control rod pins + pinControlRodUpper { id 1013; type pinUniverse; radii ( 0.37338 0.38608 0.48387 0.56134 0.60198 0.0); + fills (B4C Helium SS304 Water Zircaloy Water);} + pinControlRodLower { id 1014; type pinUniverse; radii ( 0.38227 0.38608 0.48387 0.56134 0.60198 0.0); + fills (Ag-In-Cd Helium SS304 Water Zircaloy Water);} + pinControlRodSpacer { id 1015; type pinUniverse; radii ( 0.37845 0.38608 0.48387 0.56134 0.60198 0.0); + fills (SS304 Helium SS304 Water Zircaloy Water);} + pinControlRodPlenum { id 1016; type pinUniverse; radii ( 0.06459 0.38608 0.48387 0.56134 0.60198 0.0); + fills (Inconel Helium SS304 Water Zircaloy Water);} + + // pins that have grids + fuelRodPlenumWithGridThick { + id 1017; + type cellUniverse; + cells ( 259 555);} + + GTRodThick { + id 1018; + type cellUniverse; + cells (263 555);} + + dashPotGuideTubeGridThick { + id 1019; + type cellUniverse; + cells ( 258 555);} + + dashPotGuideTubeGridThin { + id 1020; + type cellUniverse; + cells ( 270 556);} + + SSinGuideTubeThick { + id 1021; + type cellUniverse; + cells ( 260 555);} + + SSinGuideTubeThin { + id 1022; + type cellUniverse; + cells ( 272 556);} + + SSinDashPotThick { + id 1025; + type cellUniverse; + cells ( 261 555);} + + SSinDashPotThin { + id 1026; + type cellUniverse; + cells ( 273 556);} + + BPPlenumThick { + id 1027; + type cellUniverse; + cells ( 262 555);} + + BPPlenumThin { + id 1028; + type cellUniverse; + cells ( 274 556);} + + BPaboveDPThin { + id 1110; + type cellUniverse; + cells (266 556);} + + GTThick { + id 1112; + type cellUniverse; + cells (254 555);} + + ITThick { + id 1114; + type cellUniverse; + cells (257 555);} + + pin16Thick { + id 1116; + type cellUniverse; + cells (256 555);} + + pin24Thick { + id 1124; + type cellUniverse; + cells (253 555);} + + pin31Thick { + id 1131; + type cellUniverse; + cells (255 555);} + + LowerRodGTThick { + id 1132; + type cellUniverse; + cells (263 555);} + + UpperRodGTThick { + id 1133; + type cellUniverse; + cells (463 555);} + + BPThin { // Is this necessary given 1110, BPaboveDPThin??? + id 9110; + type cellUniverse; + cells (266 556);} + + GTThin { + id 9112; + type cellUniverse; + cells (265 556);} + + ITThin { + id 9114; + type cellUniverse; + cells (269 556);} + + pin16Thin { + id 9216; + type cellUniverse; + cells (268 556);} + + pin24Thin { + id 9224; + type cellUniverse; + cells (264 556);} + + pin31Thin { + id 9231; + type cellUniverse; + cells (267 556);} + + LowerRodGTThin { + id 9232; + type cellUniverse; + cells (275 556);} + + UpperRodGTThin { + id 9233; + type cellUniverse; + cells (475 556);} + + // Axial stacks of universes to make up full pins + + // 3.1 % + fuelPin31 { + id 31; + type cellUniverse; + cells ( 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124);} + + // 2.4 % + fuelPin24 { + id 24; + type cellUniverse; + cells ( 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149);} + + //1.6 % + fuelPin16 { + id 16; + type cellUniverse; + cells ( 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174);} + + //burnable absorber + BP { + id 10; + type cellUniverse; + cells (218 219 220 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252);} + + // guide tube, with CR + GuideTubeRodded { + id 12; + type cellUniverse; + cells (175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197);} + + //control rod, fully retracted + GuideTubeEmpty { + id 13; + type cellUniverse; + cells (353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374);} + + //instr. tube + instrumentTube { + id 14; + type cellUniverse; + cells (198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217);} + + + // control rod, partially inserted + GuideTubePartial { + id 15; + type cellUniverse; + cells (375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399); + + } + + + + // Lattices w/o grid + // Names represent AE + A0E24 { + id 1424; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 12 24 24 12 24 24 12 24 24 24 24 24 + 24 24 24 12 24 24 24 24 24 24 24 24 24 12 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 12 24 24 12 24 24 12 24 24 12 24 24 12 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 12 24 24 12 24 24 14 24 24 12 24 24 12 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 12 24 24 12 24 24 12 24 24 12 24 24 12 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 12 24 24 24 24 24 24 24 24 24 12 24 24 24 + 24 24 24 24 24 12 24 24 12 24 24 12 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 ); } + + // assembly with sleeves at different heights + A0E24Sleeve { + id 14240; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2019 + );} + + + A0E16 { + id 1416; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 + 16 16 16 16 16 12 16 16 12 16 16 12 16 16 16 16 16 + 16 16 16 12 16 16 16 16 16 16 16 16 16 12 16 16 16 + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 + 16 16 12 16 16 12 16 16 12 16 16 12 16 16 12 16 16 + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 + 16 16 12 16 16 12 16 16 14 16 16 12 16 16 12 16 16 + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 + 16 16 12 16 16 12 16 16 12 16 16 12 16 16 12 16 16 + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 + 16 16 16 12 16 16 16 16 16 16 16 16 16 12 16 16 16 + 16 16 16 16 16 12 16 16 12 16 16 12 16 16 16 16 16 + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16); } + + A0E16Sleeve { + id 14160; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2020 + ); + } + + A0E31 { + id 1431; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 12 31 31 12 31 31 12 31 31 31 31 31 + 31 31 31 12 31 31 31 31 31 31 31 31 31 12 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 12 31 31 12 31 31 12 31 31 12 31 31 12 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 12 31 31 12 31 31 14 31 31 12 31 31 12 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 12 31 31 12 31 31 12 31 31 12 31 31 12 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 12 31 31 31 31 31 31 31 31 31 12 31 31 31 + 31 31 31 31 31 12 31 31 12 31 31 12 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } + + A0E31Sleeve { + id 14310; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2021 + ); + } + + + A6BE31B { + id 60316; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 10 31 31 12 31 31 10 31 31 31 31 31 + 31 31 31 10 31 31 31 31 31 31 31 31 31 10 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 12 31 31 12 31 31 12 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 12 31 31 12 31 31 14 31 31 12 31 31 12 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 12 31 31 12 31 31 12 31 31 12 31 31 12 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 12 31 31 31 31 31 31 31 31 31 12 31 31 31 + 31 31 31 31 31 12 31 31 12 31 31 12 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } + + + A6BE31BSleeve { + id 603160; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2022 + ); + } + + A6BE31T { + id 603112; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 12 31 31 12 31 31 12 31 31 31 31 31 + 31 31 31 12 31 31 31 31 31 31 31 31 31 12 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 12 31 31 12 31 31 12 31 31 12 31 31 12 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 12 31 31 12 31 31 14 31 31 12 31 31 12 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 12 31 31 12 31 31 12 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 10 31 31 31 31 31 31 31 31 31 10 31 31 31 + 31 31 31 31 31 10 31 31 12 31 31 10 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } + + A6BE31TSleeve { + id 6031120; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2023 + ); + } + + A6BE31R { + id 60313; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 10 31 31 12 31 31 12 31 31 31 31 31 + 31 31 31 10 31 31 31 31 31 31 31 31 31 12 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 12 31 31 12 31 31 12 31 31 12 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 12 31 31 12 31 31 14 31 31 12 31 31 12 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 12 31 31 12 31 31 12 31 31 12 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 10 31 31 31 31 31 31 31 31 31 12 31 31 31 + 31 31 31 31 31 10 31 31 12 31 31 12 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } + + A6BE31RSleeve { + id 603130; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2024 + ); + } + + A6BE31L { + id 60319; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 12 31 31 12 31 31 10 31 31 31 31 31 + 31 31 31 12 31 31 31 31 31 31 31 31 31 10 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 12 31 31 12 31 31 12 31 31 12 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 12 31 31 12 31 31 14 31 31 12 31 31 12 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 12 31 31 12 31 31 12 31 31 12 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 12 31 31 31 31 31 31 31 31 31 10 31 31 31 + 31 31 31 31 31 12 31 31 12 31 31 10 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } + + A6BE31LSleeve { + id 603190; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2025 + ); + } + + A15BE31BR { + id 15315; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 10 31 31 10 31 31 10 31 31 31 31 31 + 31 31 31 10 31 31 31 31 31 31 31 31 31 12 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 10 31 31 10 31 31 10 31 31 12 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 10 31 31 14 31 31 10 31 31 12 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 10 31 31 10 31 31 10 31 31 12 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 12 31 31 31 31 31 31 31 31 31 12 31 31 31 + 31 31 31 31 31 12 31 31 12 31 31 12 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } + + A15BE31BRSleeve { + id 153150; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2026 + ); + } + + A15BE31BL { + id 15317; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 10 31 31 10 31 31 10 31 31 31 31 31 + 31 31 31 12 31 31 31 31 31 31 31 31 31 10 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 12 31 31 10 31 31 10 31 31 10 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 12 31 31 10 31 31 14 31 31 10 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 12 31 31 10 31 31 10 31 31 10 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 12 31 31 31 31 31 31 31 31 31 12 31 31 31 + 31 31 31 31 31 12 31 31 12 31 31 12 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } + + A15BE31BLSleeve { + id 153170; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2027 + ); + } + + A15BE31TR { + id 15311; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 12 31 31 12 31 31 12 31 31 31 31 31 + 31 31 31 12 31 31 31 31 31 31 31 31 31 12 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 10 31 31 10 31 31 10 31 31 12 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 10 31 31 14 31 31 10 31 31 12 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 10 31 31 10 31 31 10 31 31 12 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 10 31 31 31 31 31 31 31 31 31 12 31 31 31 + 31 31 31 31 31 10 31 31 10 31 31 10 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } + + A15BE31TRSleeve { + id 153110; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2028 + ); + } + + A15BE31TL { + id 153111; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 12 31 31 12 31 31 12 31 31 31 31 31 + 31 31 31 12 31 31 31 31 31 31 31 31 31 12 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 12 31 31 10 31 31 10 31 31 10 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 12 31 31 10 31 31 14 31 31 10 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 12 31 31 10 31 31 10 31 31 10 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 12 31 31 31 31 31 31 31 31 31 10 31 31 31 + 31 31 31 31 31 10 31 31 10 31 31 10 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } + + A15BE31TLSleeve { + id 1531110; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2029 + ); + } + + A16BE31 { + id 1631; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 10 31 31 10 31 31 10 31 31 31 31 31 + 31 31 31 10 31 31 31 31 31 31 31 31 31 10 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 12 31 31 12 31 31 12 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 12 31 31 14 31 31 12 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 12 31 31 12 31 31 12 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 10 31 31 31 31 31 31 31 31 31 10 31 31 31 + 31 31 31 31 31 10 31 31 10 31 31 10 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } + + A16BE31Sleeve { + id 16310; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2030 + ); + } + + A20BE31 { + id 2031; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 10 31 31 10 31 31 10 31 31 31 31 31 + 31 31 31 10 31 31 31 31 31 31 31 31 31 10 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 10 31 31 12 31 31 10 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 12 31 31 14 31 31 12 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 10 31 31 12 31 31 10 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 10 31 31 31 31 31 31 31 31 31 10 31 31 31 + 31 31 31 31 31 10 31 31 10 31 31 10 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } + + A20BE31Sleeve { + id 20310; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2031 + ); + } + + A12BE24 { + id 1224; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 10 24 24 12 24 24 10 24 24 24 24 24 + 24 24 24 10 24 24 24 24 24 24 24 24 24 10 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 10 24 24 12 24 24 12 24 24 12 24 24 10 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 12 24 24 12 24 24 14 24 24 12 24 24 12 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 10 24 24 12 24 24 12 24 24 12 24 24 10 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 10 24 24 24 24 24 24 24 24 24 10 24 24 24 + 24 24 24 24 24 10 24 24 12 24 24 10 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 ); } + + A12BE24Sleeve { + id 12240; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2032 + ); + } + + A16BE24 { + id 1624; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 10 24 24 10 24 24 10 24 24 24 24 24 + 24 24 24 10 24 24 24 24 24 24 24 24 24 10 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 10 24 24 12 24 24 12 24 24 12 24 24 10 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 10 24 24 12 24 24 14 24 24 12 24 24 10 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 10 24 24 12 24 24 12 24 24 12 24 24 10 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 10 24 24 24 24 24 24 24 24 24 10 24 24 24 + 24 24 24 24 24 10 24 24 10 24 24 10 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 ); } + + A16BE24Sleeve { + id 16240; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2033 + ); + } + + // Unrodded assemblies + A0E24U { + id 2424; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 13 24 24 13 24 24 13 24 24 24 24 24 + 24 24 24 13 24 24 24 24 24 24 24 24 24 13 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 13 24 24 13 24 24 13 24 24 13 24 24 13 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 13 24 24 13 24 24 14 24 24 13 24 24 13 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 13 24 24 13 24 24 13 24 24 13 24 24 13 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 13 24 24 24 24 24 24 24 24 24 13 24 24 24 + 24 24 24 24 24 13 24 24 13 24 24 13 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 ); } + + A0E24USleeve { + id 24240; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2034 + );} + + A0E16U { + id 2416; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 + 16 16 16 16 16 13 16 16 13 16 16 13 16 16 16 16 16 + 16 16 16 13 16 16 16 16 16 16 16 16 16 13 16 16 16 + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 + 16 16 13 16 16 13 16 16 13 16 16 13 16 16 13 16 16 + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 + 16 16 13 16 16 13 16 16 14 16 16 13 16 16 13 16 16 + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 + 16 16 13 16 16 13 16 16 13 16 16 13 16 16 13 16 16 + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 + 16 16 16 13 16 16 16 16 16 16 16 16 16 13 16 16 16 + 16 16 16 16 16 13 16 16 13 16 16 13 16 16 16 16 16 + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16); } + + // sleeved + A0E16USleeve { + id 24160; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2035 + ); + } + + A0E31U { + id 2431; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 13 31 31 13 31 31 13 31 31 31 31 31 + 31 31 31 13 31 31 31 31 31 31 31 31 31 13 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 13 31 31 13 31 31 13 31 31 13 31 31 13 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 13 31 31 13 31 31 14 31 31 13 31 31 13 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 13 31 31 13 31 31 13 31 31 13 31 31 13 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 13 31 31 31 31 31 31 31 31 31 13 31 31 31 + 31 31 31 31 31 13 31 31 13 31 31 13 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } + + A0E31USleeve { + id 24310; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2036 + ); + } + + + A6BE31BU { + id 70316; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 10 31 31 13 31 31 10 31 31 31 31 31 + 31 31 31 10 31 31 31 31 31 31 31 31 31 10 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 13 31 31 13 31 31 13 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 13 31 31 13 31 31 14 31 31 13 31 31 13 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 13 31 31 13 31 31 13 31 31 13 31 31 13 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 13 31 31 31 31 31 31 31 31 31 13 31 31 31 + 31 31 31 31 31 13 31 31 13 31 31 13 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } + + + A6BE31BUSleeve { + id 703160; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2037 + ); + } + + A6BE31TU { + id 703112; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 13 31 31 13 31 31 13 31 31 31 31 31 + 31 31 31 13 31 31 31 31 31 31 31 31 31 13 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 13 31 31 13 31 31 13 31 31 13 31 31 13 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 13 31 31 13 31 31 14 31 31 13 31 31 13 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 13 31 31 13 31 31 13 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 10 31 31 31 31 31 31 31 31 31 10 31 31 31 + 31 31 31 31 31 10 31 31 13 31 31 10 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } + + A6BE31TUSleeve { + id 7031120; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2038 + ); + } + + A6BE31RU { + id 70313; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 10 31 31 13 31 31 13 31 31 31 31 31 + 31 31 31 10 31 31 31 31 31 31 31 31 31 13 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 13 31 31 13 31 31 13 31 31 13 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 13 31 31 13 31 31 14 31 31 13 31 31 13 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 13 31 31 13 31 31 13 31 31 13 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 10 31 31 31 31 31 31 31 31 31 13 31 31 31 + 31 31 31 31 31 10 31 31 13 31 31 13 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } + + A6BE31RUSleeve { + id 703130; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2039 + ); + } + + A6BE31LU { + id 70319; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 13 31 31 13 31 31 10 31 31 31 31 31 + 31 31 31 13 31 31 31 31 31 31 31 31 31 10 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 13 31 31 13 31 31 13 31 31 13 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 13 31 31 13 31 31 14 31 31 13 31 31 13 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 13 31 31 13 31 31 13 31 31 13 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 13 31 31 31 31 31 31 31 31 31 10 31 31 31 + 31 31 31 31 31 13 31 31 13 31 31 10 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } + + A6BE31LUSleeve { + id 703190; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2040 + ); + } + + A15BE31BRU { + id 25315; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 10 31 31 10 31 31 10 31 31 31 31 31 + 31 31 31 10 31 31 31 31 31 31 31 31 31 13 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 10 31 31 10 31 31 10 31 31 13 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 10 31 31 14 31 31 10 31 31 13 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 10 31 31 10 31 31 10 31 31 13 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 13 31 31 31 31 31 31 31 31 31 13 31 31 31 + 31 31 31 31 31 13 31 31 13 31 31 13 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } + + A15BE31BRUSleeve { + id 253150; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2041 + ); + } + + A15BE31BLU { + id 25317; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 10 31 31 10 31 31 10 31 31 31 31 31 + 31 31 31 13 31 31 31 31 31 31 31 31 31 10 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 13 31 31 10 31 31 10 31 31 10 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 13 31 31 10 31 31 14 31 31 10 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 13 31 31 10 31 31 10 31 31 10 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 13 31 31 31 31 31 31 31 31 31 13 31 31 31 + 31 31 31 31 31 13 31 31 13 31 31 13 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } + + A15BE31BLUSleeve { + id 253170; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2042 + ); + } + + A15BE31TRU { + id 25311; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 13 31 31 13 31 31 13 31 31 31 31 31 + 31 31 31 13 31 31 31 31 31 31 31 31 31 13 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 10 31 31 10 31 31 10 31 31 13 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 10 31 31 14 31 31 10 31 31 13 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 10 31 31 10 31 31 10 31 31 13 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 10 31 31 31 31 31 31 31 31 31 13 31 31 31 + 31 31 31 31 31 10 31 31 10 31 31 10 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } + + A15BE31TRUSleeve { + id 253110; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2043 + ); + } + + A15BE31TLU { + id 253111; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 13 31 31 13 31 31 13 31 31 31 31 31 + 31 31 31 13 31 31 31 31 31 31 31 31 31 13 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 13 31 31 10 31 31 10 31 31 10 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 13 31 31 10 31 31 14 31 31 10 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 13 31 31 10 31 31 10 31 31 10 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 13 31 31 31 31 31 31 31 31 31 10 31 31 31 + 31 31 31 31 31 10 31 31 10 31 31 10 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } + + A15BE31TLUSleeve { + id 2531110; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2044 + ); + } + + A16BE31U { + id 2631; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 10 31 31 10 31 31 10 31 31 31 31 31 + 31 31 31 10 31 31 31 31 31 31 31 31 31 10 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 13 31 31 13 31 31 13 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 13 31 31 14 31 31 13 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 13 31 31 13 31 31 13 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 10 31 31 31 31 31 31 31 31 31 10 31 31 31 + 31 31 31 31 31 10 31 31 10 31 31 10 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } + + A16BE31USleeve { + id 26310; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2045 + ); + } + + A20BE31U { + id 3031; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 10 31 31 10 31 31 10 31 31 31 31 31 + 31 31 31 10 31 31 31 31 31 31 31 31 31 10 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 10 31 31 13 31 31 10 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 13 31 31 14 31 31 13 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 10 31 31 10 31 31 13 31 31 10 31 31 10 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 10 31 31 31 31 31 31 31 31 31 10 31 31 31 + 31 31 31 31 31 10 31 31 10 31 31 10 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 + 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 ); } + + A20BE31USleeve { + id 30310; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2046 + ); + } + + A12BE24U { + id 2224; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 10 24 24 13 24 24 10 24 24 24 24 24 + 24 24 24 10 24 24 24 24 24 24 24 24 24 10 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 10 24 24 13 24 24 13 24 24 13 24 24 10 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 13 24 24 13 24 24 14 24 24 13 24 24 13 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 10 24 24 13 24 24 13 24 24 13 24 24 10 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 10 24 24 24 24 24 24 24 24 24 10 24 24 24 + 24 24 24 24 24 10 24 24 13 24 24 10 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 ); } + + A12BE24USleeve { + id 22240; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2047 + ); + } + + A16BE24U { + id 2624; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 10 24 24 10 24 24 10 24 24 24 24 24 + 24 24 24 10 24 24 24 24 24 24 24 24 24 10 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 10 24 24 13 24 24 13 24 24 13 24 24 10 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 10 24 24 13 24 24 14 24 24 13 24 24 10 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 10 24 24 13 24 24 13 24 24 13 24 24 10 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 10 24 24 24 24 24 24 24 24 24 10 24 24 24 + 24 24 24 24 24 10 24 24 10 24 24 10 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 ); } + + A16BE24USleeve { + id 26240; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2048 + ); + } + + A0E24DBank { + id 1425; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 15 24 24 15 24 24 15 24 24 24 24 24 + 24 24 24 15 24 24 24 24 24 24 24 24 24 15 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 15 24 24 15 24 24 15 24 24 15 24 24 15 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 15 24 24 15 24 24 14 24 24 15 24 24 15 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 15 24 24 15 24 24 15 24 24 15 24 24 15 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 15 24 24 24 24 24 24 24 24 24 15 24 24 24 + 24 24 24 24 24 15 24 24 15 24 24 15 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 + 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 ); } + + // assembly with sleeves at different heights + A0E24SleeveDBank { + id 14250; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2049 + );} + + A0E16DBank { + id 1417; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (1.26 1.26 0.0); + shape (17 17 0); + padMat Water; + map ( + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 + 16 16 16 16 16 15 16 16 15 16 16 15 16 16 16 16 16 + 16 16 16 15 16 16 16 16 16 16 16 16 16 15 16 16 16 + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 + 16 16 15 16 16 15 16 16 15 16 16 15 16 16 15 16 16 + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 + 16 16 15 16 16 15 16 16 14 16 16 15 16 16 15 16 16 + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 + 16 16 15 16 16 15 16 16 15 16 16 15 16 16 15 16 16 + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 + 16 16 16 15 16 16 16 16 16 16 16 16 16 15 16 16 16 + 16 16 16 16 16 15 16 16 15 16 16 15 16 16 16 16 16 + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 + 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16); } + + A0E16SleeveDBank { + id 14170; + type cellUniverse; + cells ( + 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 + 2016 2017 2018 2050 + ); + } + + + leftBaffleUni { + id 5222; + type cellUniverse; + cells (52 53 54);} + + + rightBaffleUni { + id 5223; + type cellUniverse; + cells (55 56 57);} + + topBaffleUni { + id 5224; + type cellUniverse; + cells (58 59 60);} + + bottomBaffleUni { + id 5225; + type cellUniverse; + cells (61 62 63);} + + + topLeft { + id 5226; + type cellUniverse; + cells (64 65 66 67 68);} + + topRight { + id 5227; + type cellUniverse; + cells ( 69 70 71 72 73);} + + BottomLeft { + id 5228; + type cellUniverse; + cells ( 74 75 76 77 78);} + + BottomRight { + id 5229; + type cellUniverse; + cells ( 79 80 81 82 83);} + + + SQTL { + id 1500; + type cellUniverse; + cells (84 85 86 87);} + + + SQTR { + id 1600; + type cellUniverse; + cells (88 89 90 91);} + + SQBL { + id 1700; + type cellUniverse; + cells (92 93 94 95);} + + SQBR { + id 1800; + type cellUniverse; + cells (96 97 98 99);} + + + latCore { + id 9999; + type latUniverse; + origin (0.0 0.0 0.0); + pitch (21.50364 21.50364 0.0); + shape (17 17 0); + padMat Water; + map ( + 1001 1001 1001 1001 1800 5224 5224 5224 5224 5224 5224 5224 1700 1001 1001 1001 1001 + 1001 1001 1800 5224 5229 24310 7031120 24310 7031120 24310 7031120 24310 5228 5224 1700 1001 1001 + 1001 1800 5229 24310 14310 26310 14160 30310 14160 30310 14160 26310 14310 24310 5228 1700 1001 + 1001 5222 24310 2531110 26240 14160 26240 14160 26240 14160 26240 14160 26240 25311 24310 5223 1001 + 1800 5229 14310 26240 14250 26240 24160 22240 14160 22240 24160 26240 14250 26240 14310 5228 1700 + 5222 24310 26310 14160 26240 24160 22240 24160 22240 24160 22240 24160 26240 14160 26310 24310 5223 + 5222 703190 14160 26240 24160 22240 14160 22240 14160 22240 14160 22240 24160 26240 14160 703130 5223 + 5222 24310 30310 14160 22240 24160 22240 24160 26240 24160 22240 24160 22240 14160 30310 24310 5223 + 5222 703190 14160 26240 14160 22240 14160 26240 14170 26240 14160 22240 14160 26240 14160 703130 5223 + 5222 24310 30310 14160 22240 24160 22240 24160 26240 24160 22240 24160 22240 14160 30310 24310 5223 + 5222 703190 14160 26240 24160 22240 14160 22240 14160 22240 14160 22240 24160 26240 14160 703130 5223 + 5222 24310 26310 14160 26240 24160 22240 24160 22240 24160 22240 24160 26240 14160 26310 24310 5223 + 1600 5227 14310 26240 14250 26240 24160 22240 14160 22240 24160 26240 14250 26240 14310 5226 1500 + 1001 5222 24310 253170 26240 14160 26240 14160 26240 14160 26240 14160 26240 253150 24310 5223 1001 + 1001 1600 5227 24310 14310 26310 14160 30310 14160 30310 14160 26310 14310 24310 5226 1500 1001 + 1001 1001 1600 5225 5227 24310 703160 24310 703160 24310 703160 24310 5226 5225 1500 1001 1001 + 1001 1001 1001 1001 1600 5225 5225 5225 5225 5225 5225 5225 1500 1001 1001 1001 1001 ); } + +! Note partial rodded assemblies end with a 1, i.e., 14170 and 14250 + + coreAndStructures { + id 8888; + type cellUniverse; + cells (7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23);} + + + + } +} + + +viz { + bmpZ { + type bmp; + output imgXY; + what material; + centre (0.0 0.0 232.0); + !width (50 50); + axis z; + res (2000 2000); + } + bmpYZ { + type bmp; + output imgYZ; + what material; + centre (0.0 0.0 232.0); + width (100.0 200.0); + axis x; + res (1000 2000); + } +} + + +nuclearData { + handles { + ce {type aceNeutronDatabase; aceLibrary $SCONE_ACE; ures 0; } + } + + materials { + + // Note that commented nuclide densities are included in the specification + // but are not available in the JEFF-3.11 data library + + Air { + temp 566; + composition { + 18036.06 7.8730E-09; + 18038.06 1.4844E-09; + 18040.06 2.3506E-06; + 6012.06 6.7539E-08; + //6013.06 7.5658E-10; + 7014.06 1.9680E-04; + 7015.06 7.2354E-07; + 8016.06 5.2866E-05; + 8017.06 2.0084E-08; + //8018.06 1.0601E-07; + } + } + + SS304 { + temp 566; + composition { + 24050.06 7.6778E-04; + 24052.06 1.4806E-02; + 24053.06 1.6789E-03; + 24054.06 4.1791E-04; + 26054.06 3.4620E-03; + 26056.06 5.4345E-02; + 26057.06 1.2551E-03; + 26058.06 1.6703E-04; + 25055.06 1.7604E-03; + 28058.06 5.6089E-03; + 28060.06 2.1605E-03; + 28061.06 9.3917E-05; + 28062.06 2.9945E-04; + 28064.06 7.6261E-05; + 14028.06 9.5281E-04; + 14029.06 4.8381E-05; + 14030.06 3.1893E-05; } + } + + Helium { + temp 566; + composition { + 2003.06 4.8089E-10; + 2004.06 2.4044E-04; } + } + + BorosilicateGlass { + temp 566; + composition { + 13027.06 1.7352E-03; + 5010.06 9.6506E-04; + 5011.06 3.9189E-03; + 8016.06 4.6514E-02; + 8017.06 1.7671E-05; + //8018.06 9.3268E-05; + 14028.06 1.6926E-02; + 14029.06 8.5944E-04; + 14030.06 5.6654E-04; } + } + + Water { + temp 566; + moder {1001.06 (lwj3.11 lwj3.09); } + composition { + 5010.06 7.9714E-06; + 5011.06 3.2247E-05; + 1001.06 4.9456E-02; + 1002.06 7.7035E-06; + 8016.06 2.4673E-02; + 8017.06 9.3734E-06; + //8018.06 4.9474E-05; + } + } + + Zircaloy { + temp 566; + composition { + 24050.06 3.2962E-06; + 24052.06 6.3564E-05; + 24053.06 7.2076E-06; + 24054.06 1.7941E-06; + 26054.06 8.6698E-06; + 26056.06 1.3610E-04; + 26057.06 3.1431E-06; + 26058.06 4.1829E-07; + 8016.06 3.0744E-04; + 8017.06 1.1680E-07; + //8018.03 6.1648E-07; + 50112.06 4.6735E-06; + 50114.06 3.1799E-06; + 50115.06 1.6381E-06; + 50116.06 7.0055E-05; + 50117.06 3.7003E-05; + 50118.06 1.1669E-04; + 50119.06 4.1387E-05; + 50120.06 1.5697E-04; + 50122.06 2.2308E-05; + 50124.06 2.7897E-05; + 40090.06 2.1828E-02; + 40091.06 4.7601E-03; + 40092.06 7.2759E-03; + 40094.06 7.3734E-03; + 40096.06 1.1879E-03; } + } + + Inconel{ + temp 566; + composition { + 24050.06 7.8239E-04; + 24052.06 1.5088E-02; + 24053.06 1.7108E-03; + 24054.06 4.2586E-04; + 26054.06 1.4797E-03; + 26056.06 2.3229E-02; + 26057.06 5.3645E-04; + 26058.06 7.1392E-05; + 25055.06 7.8201E-04; + 28058.06 2.9320E-02; + 28060.06 1.1294E-02; + 28061.06 4.9094E-04; + 28062.06 1.5653E-03; + 28064.06 3.9864E-04; + 14028.06 5.6757E-04; + 14029.06 2.8820E-05; + 14030.06 1.8998E-05; } + } + + B4C{ + temp 566; + composition { + 5010.06 1.5206E-02; + 5011.06 6.1514E-02; + 6012.06 1.8972E-02; + //6013.06 2.1252E-04; + } + } + + Ag-In-Cd{ + temp 566; + composition { + 47107.06 2.3523E-02; + 47109.06 2.1854E-02; + 48106.06 3.3882E-05; + 48108.06 2.4166E-05; + 48110.06 3.3936E-04; + 48111.06 3.4821E-04; + 48112.06 6.5611E-04; + 48113.06 3.3275E-04; + 48114.06 7.8252E-04; + 48116.06 2.0443E-04; + 49113.06 3.4219E-04; + 49115.06 7.6511E-03; } + } + + UO2-16 { + temp 566; + tms 1; + composition { + 8016.03 4.5897E-02; + 8017.03 1.7436E-05; + //8018.03 9.2032E-05; + 92234.03 3.0131E-06; + 92235.03 3.7503E-04; + 92238.03 2.2625E-02;} + } + + UO2-24 { + temp 566; + tms 1; + composition { + 8016.03 4.5830E-02; + 8017.03 1.7411E-05; + //8018.03 9.1898E-05; + 92234.03 4.4842E-06; + 92235.03 5.5814E-04; + 92238.03 2.2407E-02;} + } + + UO2-31 { + temp 566; + tms 1; + composition { + 8016.03 4.5853E-02; + 8017.03 1.7420E-05; + //8018.03 9.1942E-05; + 92234.03 5.7987E-06; + 92235.03 7.2175E-04; + 92238.03 2.2253E-02;} + } + + UO2-32 { + temp 566; + tms 1; + composition { + 8016.03 4.6029E-02; + 8017.03 1.7487E-05; + //8018.03 9.2296E-05; + 92234.03 5.9959E-06; + 92235.03 7.4630E-04; + 92238.03 2.2317E-02; + } + } + + UO2-34 { + temp 566; + tms 1; + composition { + 8016.03 4.6110E-02; + 8017.03 1.7517E-05; + //8018.03 9.2459E-05; + 92234.03 6.4018E-06; + 92235.03 7.9681E-04; + 92238.03 2.2307E-02;} + } + + // vanadium51 was stated twice in carbonsteel below + // in the beavrs pdf - typo? + CarbonSteel { + temp 566; + composition { + 13027.06 4.3523E-05; + 5010.06 2.5833E-06; + 5011.06 1.0450E-05; + 6012.06 1.0442E-03; + //6013.06 1.1697E-05 ; + 20040.06 1.7043E-05; + 20042.06 1.1375E-07; + 20043.06 2.3734E-08; + 20044.06 3.6673E-07; + 20046.06 7.0322E-10; + 20048.06 3.2875E-08; + 24050.06 1.3738E-05; + 24052.06 2.6493E-04; + 24053.06 3.0041E-05; + 24054.06 7.4778E-06; + 29063.06 1.0223E-04; + 29065.06 4.5608E-05; + 26054.06 4.7437E-03; + 26056.06 7.4465E-02; + 26057.06 1.7197E-03; + 26058.06 2.2886E-04; + 25055.06 6.4126E-04; + 42100.06 2.9814E-05; + 42092.06 4.4822E-05; + 42094.06 2.8110E-05; + 42095.06 4.8567E-05; + 42096.06 5.1015E-05; + 42097.06 2.9319E-05; + 42098.06 7.4327E-05; + 41093.06 5.0559E-06; + 28058.06 4.0862E-04; + 28060.06 1.5740E-04; + 28061.06 6.8420E-06; + 28062.06 2.1815E-05; + 28064.06 5.5557E-06; + 15031.06 3.7913E-05; + 16032.06 3.4808E-05; + 16033.06 2.7420E-07; + 16034.06 1.5368E-06; + 16036.06 5.3398E-09; + 14028.06 6.1702E-04; + 14029.06 3.1330E-05; + 14030.06 2.0653E-05; + 22046.06 1.2144E-06; + 22047.06 1.0952E-06; + 22048.06 1.0851E-05; + 22049.06 7.9634E-07; + 22050.06 7.6249E-07; + //23050.06 1.1526E-07; + 23051.06 4.5989E-05; + } + } + + SupportPlateSS { + temp 566; + composition { + 24050.06 3.5223E-04; + 24052.06 6.7924E-03; + 24053.06 7.7020E-04; + 24054.06 1.9172E-04; + 26054.06 1.5882E-03; + 26056.06 2.4931E-02; + 26057.06 5.7578E-04; + 26058.06 7.6625E-05; + 25055.06 8.0762E-04; + 28058.06 2.5731E-03; + 28060.06 9.9117E-04; + 28061.06 4.3085E-05; + 28062.06 1.3738E-04; + 28064.06 3.4985E-05; + 14028.06 4.3711E-04; + 14029.06 2.2195E-05; + 14030.06 1.4631E-05;} + } + + SupportPlateBW { + temp 566; + moder {1001.06 (lwj3.11 lwj3.09); } + composition { + 5010.06 1.0559E-05; + 5011.06 4.2716E-05; + 1001.06 6.5512E-02; + 1002.06 1.0204E-05; + 8016.06 3.2683E-02; + 8017.06 1.2416E-05; + //8018.06 6.5535E-05; + } + } + + +} +} diff --git a/Tallies/TallyMaps/CMakeLists.txt b/Tallies/TallyMaps/CMakeLists.txt index cf177fbe6..0ac9ee1d0 100644 --- a/Tallies/TallyMaps/CMakeLists.txt +++ b/Tallies/TallyMaps/CMakeLists.txt @@ -12,7 +12,7 @@ add_sources(./tallyMap_inter.f90 ./Maps1D/homogMatMap_class.f90 ./Maps1D/weightMap_class.f90 ./Maps1D/cellMap_class.f90 - ./Maps1D/radialMap_class.f90 + ./Maps1D/radialMap_class.f90 ./Maps1D/collNumMap_class.f90 ./Maps1D/directionMap_class.f90 ) diff --git a/Tallies/TallyMaps/Maps1D/Tests/spaceMap_test.f90 b/Tallies/TallyMaps/Maps1D/Tests/spaceMap_test.f90 index 89c0dcbf7..e48ca9284 100644 --- a/Tallies/TallyMaps/Maps1D/Tests/spaceMap_test.f90 +++ b/Tallies/TallyMaps/Maps1D/Tests/spaceMap_test.f90 @@ -148,27 +148,6 @@ subroutine testUnstructuredGrid(this) @assertEqual(RES, idx) end subroutine testUnstructuredGrid - - !! - !! Test distance calculation - !! -@Test(testParameters={getParameters()}) - subroutine testDistance(this) - class(test_spaceMap), intent(inout) :: this - real(defReal),dimension(2),parameter :: POS = [0.5_defReal, -10.1_defReal] - real(defReal),dimension(2),parameter :: MU = [-0.01_defReal, 0.2_defReal] - real(defReal),dimension(2),parameter :: RES = [50.0_defReal, HALF] - real(defReal), dimension(2) :: d - type(particleState),dimension(2) :: states - real(defReal), parameter :: TOL = 1.0E-7 - - states % r(this % dir) = POS - states % dir(this % dir) = MU - d = this % map_unstruct % distance(states) - - @assertEqual(RES, d, TOL) - - end subroutine testDistance !! !! Test bin output diff --git a/Tallies/TallyMaps/Maps1D/spaceMap_class.f90 b/Tallies/TallyMaps/Maps1D/spaceMap_class.f90 index 0dc7ae8a9..b053a4e96 100644 --- a/Tallies/TallyMaps/Maps1D/spaceMap_class.f90 +++ b/Tallies/TallyMaps/Maps1D/spaceMap_class.f90 @@ -62,7 +62,6 @@ module spaceMap_class procedure :: init procedure :: bins procedure :: map - procedure :: distance procedure :: getAxisName procedure :: print procedure :: kill @@ -220,46 +219,6 @@ elemental function map(self,state) result(idx) if (idx == valueOutsideArray) idx = 0 end function map - - !! - !! Compute particle's distance to boundary - !! - !! See tallyMap for specification - !! - elemental function distance(self, state) result(d) - class(spaceMap), intent(in) :: self - class(particleState), intent(in) :: state - real(defReal) :: d - integer(shortInt) :: idx - real(defReal) :: r, u, rMin, rMax, rNext - - d = INF - r = state % r(self % dir) - u = state % dir(self % dir) - idx = self % binBounds % search(r) - - ! Out of bounds: either above or below - if (idx == valueOutsideArray) then - rMin = self % binBounds % bin(1) - rMax = self % binBounds % bin(self % N + 1) - - if (r < rMin) then - if (u > ZERO) d = (rMin - r) / u - else - if (u < ZERO) d = (rMax - r) / u - end if - - ! In bounds: travelling left or right? - else - - if (u > ZERO) idx = idx + 1 - rNext = self % binBounds % bin(idx) - - d = (rNext - r) / u - - end if - - end function distance !! !! Return string that describes variable used to divide event space diff --git a/Tallies/TallyMaps/Tests/multiMap_test.f90 b/Tallies/TallyMaps/Tests/multiMap_test.f90 index 2c1c524cd..661e8607d 100644 --- a/Tallies/TallyMaps/Tests/multiMap_test.f90 +++ b/Tallies/TallyMaps/Tests/multiMap_test.f90 @@ -107,25 +107,6 @@ subroutine testMapping(this) end subroutine testMapping - !! - !! Test distance calculation - !! - subroutine testDistance(this) - class(test_multiMap), intent(inout) :: this - real(defReal),dimension(3),parameter :: POS = [1.3_defReal, 8.0_defReal, 0.1_defReal] - real(defReal),dimension(3),parameter :: MU = [HALF, -ONE, -TWO] - real(defReal),parameter :: RES = 1.4_defReal - real(defReal) :: d - type(particleState) :: state - real(defReal), parameter :: TOL = 1.0E-7 - - state % r = POS - state % dir = MU - d = this % map % distance(state) - - @assertEqual(RES, d, TOL) - - end subroutine testDistance diff --git a/Tallies/TallyMaps/multiMap_class.f90 b/Tallies/TallyMaps/multiMap_class.f90 index 3a1eaf43a..a29c220db 100644 --- a/Tallies/TallyMaps/multiMap_class.f90 +++ b/Tallies/TallyMaps/multiMap_class.f90 @@ -1,11 +1,10 @@ module multiMap_class use numPrecision - use universalVariables, only : INF - use genericProcedures, only : fatalError - use dictionary_class, only : dictionary - use outputFile_class, only : outputFile - use particle_class, only : particleState + use genericProcedures, only : fatalError + use dictionary_class, only : dictionary + use outputFile_class, only : outputFile + use particle_class, only : particleState use tallyMap_inter, only : tallyMap use tallyMap1D_inter, only : tallyMap1D @@ -53,7 +52,6 @@ module multiMap_class procedure :: dimensions procedure :: getAxisName procedure :: map - procedure :: distance procedure :: print procedure :: kill end type multiMap @@ -173,27 +171,6 @@ elemental function map(self, state) result(idx) end do end function map - - !! - !! Compute particle's distance to boundary - !! - !! See tallyMap for specification - !! - elemental function distance(self, state) result(d) - class(multiMap), intent(in) :: self - class(particleState), intent(in) :: state - real(defReal) :: d - integer(shortInt) :: i - real(defReal) :: d0 - - d = INF - - do i = 1, size(self % maps) - d0 = self % maps(i) % slot % distance(state) - d = min(d, d0) - end do - - end function distance !! !! Add information about division axis to the output file diff --git a/Tallies/TallyMaps/tallyMap_inter.f90 b/Tallies/TallyMaps/tallyMap_inter.f90 index 62f1b0dc7..849c5bb5e 100644 --- a/Tallies/TallyMaps/tallyMap_inter.f90 +++ b/Tallies/TallyMaps/tallyMap_inter.f90 @@ -1,10 +1,9 @@ module tallyMap_inter use numPrecision - use universalVariables, only : INF - use particle_class, only : particleState - use dictionary_class, only : dictionary - use outputFile_class, only : outputFile + use particle_class, only : particleState + use dictionary_class, only : dictionary + use outputFile_class, only : outputFile implicit none private @@ -33,14 +32,13 @@ module tallyMap_inter procedure(getAxisName),deferred :: getAxisName procedure :: binArrayShape procedure(map),deferred :: map - procedure :: distance procedure(print),deferred :: print procedure :: kill end type tallyMap ! Procedures extendable in subclasses public :: kill - public :: distance + abstract interface @@ -180,27 +178,6 @@ elemental subroutine kill(self) end subroutine kill - !! - !! Returns distance to tally map bounds in space - !! - !! Args: - !! particleState - !! - !! Result: - !! distance to nearest spatial tally boundary - !! - !! NOTE: - !! For certain maps, this is nonsensical. These should not overwrite - !! this distance. - !! - elemental function distance(self, state) result(d) - class(tallyMap), intent(in) :: self - class(particleState), intent(in) :: state - real(defReal) :: d - - d = INF - - end function distance end module tallyMap_inter From fa7683a8c45ba72398a54d37e2d61a35cd91e328 Mon Sep 17 00:00:00 2001 From: ChasingNeutrons Date: Sun, 7 Dec 2025 20:15:07 +0000 Subject: [PATCH 08/10] Field interface accepts particles or coords --- .../neutronCEimp_class.f90 | 6 ++-- .../neutronMGimp_class.f90 | 2 +- .../Tests/uniformScalarField_test.f90 | 7 +++- .../Fields/ScalarFields/scalarField_inter.f90 | 35 +++++++++++++++---- .../ScalarFields/uniformScalarField_class.f90 | 20 +++++++++-- .../Tests/uniFissSitesField_test.f90 | 6 ++-- .../Tests/uniformVectorField_test.f90 | 7 +++- .../Tests/weightWindowsField_iTest.f90 | 4 +-- .../VectorFields/uniFissSitesField_class.f90 | 26 ++++++++++++-- .../VectorFields/uniformVectorField_class.f90 | 20 +++++++++-- .../Fields/VectorFields/vectorField_inter.f90 | 31 +++++++++++++--- .../VectorFields/weightWindowsField_class.f90 | 26 ++++++++++++-- 12 files changed, 157 insertions(+), 33 deletions(-) diff --git a/CollisionOperator/CollisionProcessors/neutronCEimp_class.f90 b/CollisionOperator/CollisionProcessors/neutronCEimp_class.f90 index ea42f32ad..1bd5accc3 100644 --- a/CollisionOperator/CollisionProcessors/neutronCEimp_class.f90 +++ b/CollisionOperator/CollisionProcessors/neutronCEimp_class.f90 @@ -305,7 +305,7 @@ subroutine implicit(self, p, tally, collDat, thisCycle, nextCycle) ! Sample number of fission sites generated ! Support -ve weight particles if (self % uniFissSites) then - val = self % ufsField % at(p) + val = self % ufsField % atP(p) n = int(abs( (wgt * sig_nufiss) / (sig_tot * k_eff))*val(1)/val(2) + rand1, shortInt) wgt = val(2)/val(1) else @@ -422,7 +422,7 @@ subroutine fission(self, p, tally, collDat, thisCycle, nextCycle) ! Support -ve weight particles ! Note change of denominator (sig_fiss) wrt implicit generation if (self % uniFissSites) then - val = self % ufsField % at(p) + val = self % ufsField % atP(p) n = int(abs( (wgt * sig_nufiss) / (sig_fiss * k_eff))*val(1)/val(2) + rand1, shortInt) wgt = val(2)/val(1) else @@ -572,7 +572,7 @@ subroutine cutoffs(self, p, tally, collDat, thisCycle, nextCycle) ! Weight Windows treatment elseif (self % weightWindows) then - val = self % weightWindowsMap % at(p) + val = self % weightWindowsMap % atP(p) minWgt = val(1) maxWgt = val(2) avWgt = val(3) diff --git a/CollisionOperator/CollisionProcessors/neutronMGimp_class.f90 b/CollisionOperator/CollisionProcessors/neutronMGimp_class.f90 index bc2155c22..d22258455 100644 --- a/CollisionOperator/CollisionProcessors/neutronMGimp_class.f90 +++ b/CollisionOperator/CollisionProcessors/neutronMGimp_class.f90 @@ -315,7 +315,7 @@ subroutine cutoffs(self, p, tally, collDat, thisCycle, nextCycle) ! Weight Windows treatment elseif (self % weightWindows) then - val = self % weightWindowsMap % at(p) + val = self % weightWindowsMap % atP(p) minWgt = val(1) maxWgt = val(2) avWgt = val(3) diff --git a/Geometry/Fields/ScalarFields/Tests/uniformScalarField_test.f90 b/Geometry/Fields/ScalarFields/Tests/uniformScalarField_test.f90 index b4de8840a..01b220c2a 100644 --- a/Geometry/Fields/ScalarFields/Tests/uniformScalarField_test.f90 +++ b/Geometry/Fields/ScalarFields/Tests/uniformScalarField_test.f90 @@ -2,6 +2,7 @@ module uniformScalarField_test use numPrecision use dictionary_class, only : dictionary + use coord_class, only : coordList use particle_class, only : particle use field_inter, only : field use scalarField_inter, only : scalarField, scalarField_CptrCast @@ -23,6 +24,7 @@ subroutine test_uniformScalarField() type(uniformScalarField), pointer :: ptr2 type(dictionary) :: dict type(particle) :: p + type(coordList) :: coords real(defReal), parameter :: TOL = 1.0E-7_defReal ! Test invalid pointers @@ -50,7 +52,10 @@ subroutine test_uniformScalarField() call fieldT % init(dict) ! Check value - @assertEqual(9.6_defReal, fieldT % at(p), TOL) + @assertEqual(9.6_defReal, fieldT % atP(p), TOL) + + call coords % assignPosition([ZERO, ZERO, ZERO]) + @assertEqual(9.6_defReal, fieldT % at(coords), TOL) ! Kill call fieldT % kill() diff --git a/Geometry/Fields/ScalarFields/scalarField_inter.f90 b/Geometry/Fields/ScalarFields/scalarField_inter.f90 index f1772eac0..66b10e185 100644 --- a/Geometry/Fields/ScalarFields/scalarField_inter.f90 +++ b/Geometry/Fields/ScalarFields/scalarField_inter.f90 @@ -2,6 +2,7 @@ module scalarField_inter use numPrecision use field_inter, only : field + use coord_class, only : coordList use particle_class, only : particle implicit none @@ -18,13 +19,17 @@ module scalarField_inter !! Access to field is via coordList to allow more fancy fields to be defined !! (e.g. assign value to each uniqueID etc.) !! + !! Also allows access by particle until WW and UFS are sorted + !! !! Interface: !! field interface - !! at -> Return scalar value given position coordinates + !! at -> Return scalar value given position coordinates + !! atP -> Return scalar value given particle !! type, public, abstract, extends(field) :: scalarField contains - procedure(at), deferred :: at + procedure(at), deferred :: at + procedure(atP), deferred :: atP end type scalarField abstract interface @@ -38,12 +43,28 @@ module scalarField_inter !! Result: !! Value of the scalar field. Real number. !! - function at(self, p) result(val) - import :: scalarField, particle, defReal - class(scalarField), intent(in) :: self - class(particle), intent(inout) :: p - real(defReal) :: val + function at(self, coords) result(val) + import :: scalarField, coordList, defReal + class(scalarField), intent(in) :: self + class(coordList), intent(in) :: coords + real(defReal) :: val end function at + + !! + !! Get value of the scalar field at the particle's phase space point + !! + !! Args: + !! particle [in] -> Coordinates + other phase space info + !! + !! Result: + !! Value of the scalar field. Real number. + !! + function atP(self, p) result(val) + import :: scalarField, particle, defReal + class(scalarField), intent(in) :: self + class(particle), intent(in) :: p + real(defReal) :: val + end function atP end interface diff --git a/Geometry/Fields/ScalarFields/uniformScalarField_class.f90 b/Geometry/Fields/ScalarFields/uniformScalarField_class.f90 index 06ea0a253..5d22cf27b 100644 --- a/Geometry/Fields/ScalarFields/uniformScalarField_class.f90 +++ b/Geometry/Fields/ScalarFields/uniformScalarField_class.f90 @@ -2,6 +2,7 @@ module uniformScalarField_class use numPrecision use dictionary_class, only : dictionary + use coord_class, only : coordList use particle_class, only : particle use field_inter, only : field use scalarField_inter, only : scalarField @@ -35,6 +36,7 @@ module uniformScalarField_class procedure :: init procedure :: kill procedure :: at + procedure :: atP end type uniformScalarField contains @@ -68,14 +70,28 @@ end subroutine kill !! !! See scalarField_inter for details !! - function at(self, p) result(val) + function at(self, coords) result(val) class(uniformScalarField), intent(in) :: self - class(particle), intent(inout) :: p + class(coordList), intent(in) :: coords real(defReal) :: val val = self % val end function at + + !! + !! Get value of the scalar field at particle phase space location + !! + !! See scalarField_inter for details + !! + function atP(self, p) result(val) + class(uniformScalarField), intent(in) :: self + class(particle), intent(in) :: p + real(defReal) :: val + + val = self % val + + end function atP !! !! Cast field pointer to uniformScalarField pointer diff --git a/Geometry/Fields/VectorFields/Tests/uniFissSitesField_test.f90 b/Geometry/Fields/VectorFields/Tests/uniFissSitesField_test.f90 index 392fc9bc9..1fb2c3463 100644 --- a/Geometry/Fields/VectorFields/Tests/uniFissSitesField_test.f90 +++ b/Geometry/Fields/VectorFields/Tests/uniFissSitesField_test.f90 @@ -81,14 +81,14 @@ subroutine testGetValue(this) ! Test case in the map p % coords % lvl(1) % r = [0.5, 7.0, 50.0] - bins = this % ufsField % at(p) + bins = this % ufsField % atP(p) EXPECTED_BINS = [0.25, 0.25, 0.0] @assertEqual(EXPECTED_BINS, bins, tolerance=1.0e-6) ! Test case outside the map p % coords % lvl(1) % r = [0.5, 7.0, 100.0] - bins = this % ufsField % at(p) + bins = this % ufsField % atP(p) EXPECTED_BINS = [1.0, 1.0, 1.0] @assertEqual(EXPECTED_BINS,bins) @@ -107,7 +107,7 @@ subroutine testGetValue(this) ! Test case in the updated map p % coords % lvl(1) % r = [0.5, 7.0, 18.1] - bins = this % ufsField % at(p) + bins = this % ufsField % atP(p) EXPECTED_BINS = [0.25, 0.06666666667, 0.0] @assertEqual(EXPECTED_BINS, bins, tolerance=1.0e-6) diff --git a/Geometry/Fields/VectorFields/Tests/uniformVectorField_test.f90 b/Geometry/Fields/VectorFields/Tests/uniformVectorField_test.f90 index ee0eb181c..357280190 100644 --- a/Geometry/Fields/VectorFields/Tests/uniformVectorField_test.f90 +++ b/Geometry/Fields/VectorFields/Tests/uniformVectorField_test.f90 @@ -2,6 +2,7 @@ module uniformVectorField_test use numPrecision use dictionary_class, only : dictionary + use coord_class, only : coordList use particle_class, only : particle use field_inter, only : field use vectorField_inter, only : vectorField, vectorField_CptrCast @@ -23,6 +24,7 @@ subroutine test_uniformVectorField() type(uniformVectorField), pointer :: ptr2 type(dictionary) :: dict type(particle) :: p + type(coordList) :: coords real(defReal), parameter :: TOL = 1.0E-7_defReal ! Test invalid pointers @@ -50,7 +52,10 @@ subroutine test_uniformVectorField() call fieldT % init(dict) ! Check value - @assertEqual([9.6_defReal, -8.0_defReal, 9.7_defReal], fieldT % at(p), TOL) + @assertEqual([9.6_defReal, -8.0_defReal, 9.7_defReal], fieldT % atP(p), TOL) + + call coords % assignPosition([ZERO, ZERO, ZERO]) + @assertEqual([9.6_defReal, -8.0_defReal, 9.7_defReal], fieldT % at(coords), TOL) ! Kill call fieldT % kill() diff --git a/Geometry/Fields/VectorFields/Tests/weightWindowsField_iTest.f90 b/Geometry/Fields/VectorFields/Tests/weightWindowsField_iTest.f90 index 1fd2d320c..1a89e9e59 100644 --- a/Geometry/Fields/VectorFields/Tests/weightWindowsField_iTest.f90 +++ b/Geometry/Fields/VectorFields/Tests/weightWindowsField_iTest.f90 @@ -67,7 +67,7 @@ subroutine testGetValue(this) p % coords % lvl(1) % r = [0.5, 7.0, 0.0] p % E = 10.0 - bins = this % wwField % at(p) + bins = this % wwField % atP(p) EXPECTED_BINS = [0.4, 1.5, 0.8] @assertEqual(EXPECTED_BINS, bins, tolerance=1e-6) @@ -76,7 +76,7 @@ subroutine testGetValue(this) p % coords % lvl(1) % r = [-0.5, 7.0, 0.0] p % E = 10.0 - bins = this % wwField % at(p) + bins = this % wwField % atP(p) EXPECTED_BINS = ZERO @assertEqual(EXPECTED_BINS, bins, tolerance=1e-6) diff --git a/Geometry/Fields/VectorFields/uniFissSitesField_class.f90 b/Geometry/Fields/VectorFields/uniFissSitesField_class.f90 index 0bb8425e3..e57fdb865 100644 --- a/Geometry/Fields/VectorFields/uniFissSitesField_class.f90 +++ b/Geometry/Fields/VectorFields/uniFissSitesField_class.f90 @@ -4,6 +4,7 @@ module uniFissSitesField_class use genericProcedures, only : fatalError, numToChar use universalVariables, only : OUTSIDE_MAT, VOID_MAT, P_NEUTRON_CE use dictionary_class, only : dictionary + use coord_class, only : coordList use particle_class, only : particle, particleState use field_inter, only : field use vectorField_inter, only : vectorField @@ -77,6 +78,7 @@ module uniFissSitesField_class procedure :: kill procedure :: estimateVol procedure :: at + procedure :: atP procedure :: storeFS procedure :: updateMap end type uniFissSitesField @@ -230,15 +232,33 @@ subroutine estimateVol(self, geom, rand, type) end if end subroutine estimateVol + + !! + !! Get value of the vector field given coordinates + !! Not defined for UFS field + !! + !! See vectorField_inter for details + !! + function at(self, coords) result(val) + class(uniFissSitesField), intent(in) :: self + class(coordList), intent(in) :: coords + real(defReal), dimension(3) :: val + type(particleState) :: state + integer(shortInt) :: binIdx + character(100), parameter :: Here = 'at (uniFissSitesField_class.f90)' + + call fatalError(Here,'Not defined when providing coords - must provide particle.') + + end function at !! !! Get value of the vector field given the phase-space location of a particle !! !! See vectorField_inter for details !! - function at(self, p) result(val) + function atP(self, p) result(val) class(uniFissSitesField), intent(in) :: self - class(particle), intent(inout) :: p + class(particle), intent(in) :: p real(defReal), dimension(3) :: val type(particleState) :: state integer(shortInt) :: binIdx @@ -259,7 +279,7 @@ function at(self, p) result(val) val(2) = self % sourceFraction(binIdx) val(3) = ZERO - end function at + end function atP !! !! Store the fission sites generated in a vector diff --git a/Geometry/Fields/VectorFields/uniformVectorField_class.f90 b/Geometry/Fields/VectorFields/uniformVectorField_class.f90 index 607eb8900..b844b831d 100644 --- a/Geometry/Fields/VectorFields/uniformVectorField_class.f90 +++ b/Geometry/Fields/VectorFields/uniformVectorField_class.f90 @@ -3,6 +3,7 @@ module uniformVectorField_class use numPrecision use genericProcedures, only : fatalError, numToChar use dictionary_class, only : dictionary + use coord_class, only : coordList use particle_class, only : particle use field_inter, only : field use vectorField_inter, only : vectorField @@ -36,6 +37,7 @@ module uniformVectorField_class procedure :: init procedure :: kill procedure :: at + procedure :: atP end type uniformVectorField contains @@ -77,14 +79,28 @@ end subroutine kill !! !! See vectorField_inter for details !! - function at(self, p) result(val) + function at(self, coords) result(val) class(uniformVectorField), intent(in) :: self - class(particle), intent(inout) :: p + class(coordList), intent(in) :: coords real(defReal), dimension(3) :: val val = self % val end function at + + !! + !! Get value of the scalar field by particle + !! + !! See vectorField_inter for details + !! + function atP(self, p) result(val) + class(uniformVectorField), intent(in) :: self + class(particle), intent(in) :: p + real(defReal), dimension(3) :: val + + val = self % val + + end function atP !! !! Cast field pointer to uniformVectorField pointer diff --git a/Geometry/Fields/VectorFields/vectorField_inter.f90 b/Geometry/Fields/VectorFields/vectorField_inter.f90 index a3b35ac20..63e490ae7 100644 --- a/Geometry/Fields/VectorFields/vectorField_inter.f90 +++ b/Geometry/Fields/VectorFields/vectorField_inter.f90 @@ -2,6 +2,7 @@ module vectorField_inter use numPrecision use field_inter, only : field + use coord_class, only : coordList use particle_class, only : particle implicit none @@ -18,13 +19,17 @@ module vectorField_inter !! Access to field is via coordList to allow more fancy fields to be defined !! (e.g. assign vector to each uniqueID etc.) !! + !! Also allows access by particle until WW and UFS are sorted + !! !! Interface: !! field interface - !! at -> Return vector value given position coordinates + !! at -> Return vector value given position coordinates + !! atP -> Return vector value given particle !! type, public, abstract, extends(field) :: vectorField contains - procedure(at), deferred :: at + procedure(at), deferred :: at + procedure(atP), deferred :: atP end type vectorField abstract interface @@ -38,13 +43,29 @@ module vectorField_inter !! Result: !! Size 3 vector of real values. !! - function at(self, p) result(val) - import :: vectorField, particle, defReal + function at(self, coords) result(val) + import :: vectorField, coordList, defReal class(vectorField), intent(in) :: self - class(particle), intent(inout) :: p + class(coordList), intent(in) :: coords real(defReal), dimension(3) :: val end function at + !! + !! Get value of the vector field by particle + !! + !! Args: + !! particle [in] -> Coordinates + other phase space info + !! + !! Result: + !! Size 3 vector of real values. + !! + function atP(self, p) result(val) + import :: vectorField, particle, defReal + class(vectorField), intent(in) :: self + class(particle), intent(in) :: p + real(defReal), dimension(3) :: val + end function atP + end interface contains diff --git a/Geometry/Fields/VectorFields/weightWindowsField_class.f90 b/Geometry/Fields/VectorFields/weightWindowsField_class.f90 index b055a896f..a9d9c71b0 100644 --- a/Geometry/Fields/VectorFields/weightWindowsField_class.f90 +++ b/Geometry/Fields/VectorFields/weightWindowsField_class.f90 @@ -4,6 +4,7 @@ module weightWindowsField_class use genericProcedures, only : fatalError, numToChar use dictionary_class, only : dictionary use dictParser_func, only : fileToDict + use coord_class, only : coordList use particle_class, only : particle, particleState use field_inter, only : field use vectorField_inter, only : vectorField @@ -61,6 +62,7 @@ module weightWindowsField_class procedure :: init procedure :: kill procedure :: at + procedure :: atP end type weightWindowsField contains @@ -120,15 +122,33 @@ elemental subroutine kill(self) self % constSurvival = ZERO end subroutine kill + + !! + !! Get value of the vector field by coordinate + !! Not defined for weight windows + !! + !! See vectorField_inter for details + !! + function at(self, coords) result(val) + class(weightWindowsField), intent(in) :: self + class(coordList), intent(in) :: coords + real(defReal), dimension(3) :: val + type(particleState) :: state + integer(shortInt) :: binIdx + character(100), parameter :: Here = 'at (weightWindowsField_class.f90)' + + call fatalError(Here,'Invalid to access by coords only.') + + end function at !! !! Get value of the vector field given the phase-space location of a particle !! !! See vectorField_inter for details !! - function at(self, p) result(val) + function atP(self, p) result(val) class(weightWindowsField), intent(in) :: self - class(particle), intent(inout) :: p + class(particle), intent(in) :: p real(defReal), dimension(3) :: val type(particleState) :: state integer(shortInt) :: binIdx @@ -149,7 +169,7 @@ function at(self, p) result(val) val(2) = self % upperW(binIdx) val(3) = val(1) * self % constSurvival - end function at + end function atP !! !! Cast field pointer to weightWindowsField pointer From 13c1ecb956cf4f59e1a6376732866904a1472328 Mon Sep 17 00:00:00 2001 From: ChasingNeutrons Date: Sun, 7 Dec 2025 21:16:13 +0000 Subject: [PATCH 09/10] Updating field interface --- Geometry/Fields/CMakeLists.txt | 1 - Geometry/Fields/ScalarFields/CMakeLists.txt | 1 + .../PieceConstantFields/CMakeLists.txt | 0 .../Tests/cartesianField_test.f90 | 0 .../cartesianField_class.f90 | 16 ++++++++++ .../pieceConstantField_inter.f90 | 30 +++++-------------- .../VectorFields/uniFissSitesField_class.f90 | 3 +- .../VectorFields/weightWindowsField_class.f90 | 3 +- 8 files changed, 27 insertions(+), 27 deletions(-) rename Geometry/Fields/{ => ScalarFields}/PieceConstantFields/CMakeLists.txt (100%) rename Geometry/Fields/{ => ScalarFields}/PieceConstantFields/Tests/cartesianField_test.f90 (100%) rename Geometry/Fields/{ => ScalarFields}/PieceConstantFields/cartesianField_class.f90 (96%) rename Geometry/Fields/{ => ScalarFields}/PieceConstantFields/pieceConstantField_inter.f90 (84%) diff --git a/Geometry/Fields/CMakeLists.txt b/Geometry/Fields/CMakeLists.txt index 16dc30d76..edb182848 100644 --- a/Geometry/Fields/CMakeLists.txt +++ b/Geometry/Fields/CMakeLists.txt @@ -1,6 +1,5 @@ add_subdirectory(ScalarFields) add_subdirectory(VectorFields) -add_subdirectory(PieceConstantFields) add_sources(./field_inter.f90) diff --git a/Geometry/Fields/ScalarFields/CMakeLists.txt b/Geometry/Fields/ScalarFields/CMakeLists.txt index 53f855cf7..4e0c0cb5f 100644 --- a/Geometry/Fields/ScalarFields/CMakeLists.txt +++ b/Geometry/Fields/ScalarFields/CMakeLists.txt @@ -1,3 +1,4 @@ +add_subdirectory(PieceConstantFields) add_sources( ./scalarField_inter.f90 ./uniformScalarField_class.f90) diff --git a/Geometry/Fields/PieceConstantFields/CMakeLists.txt b/Geometry/Fields/ScalarFields/PieceConstantFields/CMakeLists.txt similarity index 100% rename from Geometry/Fields/PieceConstantFields/CMakeLists.txt rename to Geometry/Fields/ScalarFields/PieceConstantFields/CMakeLists.txt diff --git a/Geometry/Fields/PieceConstantFields/Tests/cartesianField_test.f90 b/Geometry/Fields/ScalarFields/PieceConstantFields/Tests/cartesianField_test.f90 similarity index 100% rename from Geometry/Fields/PieceConstantFields/Tests/cartesianField_test.f90 rename to Geometry/Fields/ScalarFields/PieceConstantFields/Tests/cartesianField_test.f90 diff --git a/Geometry/Fields/PieceConstantFields/cartesianField_class.f90 b/Geometry/Fields/ScalarFields/PieceConstantFields/cartesianField_class.f90 similarity index 96% rename from Geometry/Fields/PieceConstantFields/cartesianField_class.f90 rename to Geometry/Fields/ScalarFields/PieceConstantFields/cartesianField_class.f90 index 255fe4345..7cc32ab64 100644 --- a/Geometry/Fields/PieceConstantFields/cartesianField_class.f90 +++ b/Geometry/Fields/ScalarFields/PieceConstantFields/cartesianField_class.f90 @@ -6,6 +6,7 @@ module cartesianField_class use field_inter, only : field use pieceConstantField_inter, only : pieceConstantField use coord_class, only : coordList + use particle_class, only : particle use dictionary_class, only : dictionary use box_class, only : box use materialMenu_mod, only : mm_matIdx => matIdx @@ -62,6 +63,7 @@ module cartesianField_class ! Superclass procedures procedure :: init procedure :: at + procedure :: atP procedure :: distance procedure :: kill @@ -223,6 +225,20 @@ function at(self, coords) result(val) val = self % val(localID) end function at + + !! + !! Get value of the field at the particle's location + !! + !! See pieceConstantField for details + !! + function atP(self, p) result(val) + class(cartesianField), intent(in) :: self + class(particle), intent(in) :: p + real(defReal) :: val + + val = self % at(p % coords) + + end function atP !! !! Get distance to the next element of the field at the co-ordinate point and direction diff --git a/Geometry/Fields/PieceConstantFields/pieceConstantField_inter.f90 b/Geometry/Fields/ScalarFields/PieceConstantFields/pieceConstantField_inter.f90 similarity index 84% rename from Geometry/Fields/PieceConstantFields/pieceConstantField_inter.f90 rename to Geometry/Fields/ScalarFields/PieceConstantFields/pieceConstantField_inter.f90 index 09c1ba638..b6413b1a9 100644 --- a/Geometry/Fields/PieceConstantFields/pieceConstantField_inter.f90 +++ b/Geometry/Fields/ScalarFields/PieceConstantFields/pieceConstantField_inter.f90 @@ -2,9 +2,11 @@ module pieceConstantField_inter use numPrecision use genericProcedures, only : fatalError, numToChar - use field_inter, only : field + use scalarField_inter, only : scalarField use coord_class, only : coordList use dictionary_class, only : dictionary + use field_inter, only : field + use scalarField_inter, only : scalarField implicit none private @@ -24,16 +26,16 @@ module pieceConstantField_inter !! !! Interface: !! field interface - !! at -> Return scalar value given particle + !! at -> Return scalar value given coordinates + !! atP -> Return scalar value given particle !! distance -> Return distance to next element of the field !! setValue -> Sets value of field at a given index !! getMaxValue -> Returns the maximum field value !! - type, public, abstract, extends(field) :: pieceConstantField - real(defReal), dimension(:), allocatable :: val - integer(shortInt) :: N = 0 + type, public, abstract, extends(scalarField) :: pieceConstantField + real(defReal), dimension(:), allocatable :: val + integer(shortInt) :: N = 0 contains - procedure(at), deferred :: at procedure(distance), deferred :: distance procedure :: setValue @@ -44,22 +46,6 @@ module pieceConstantField_inter abstract interface - !! - !! Get value of the field at the given coordinates - !! - !! Args: - !! coords [in] -> Coordinates of the position in the geometry - !! - !! Result: - !! Value of the scalar field. Real number. - !! - function at(self, coords) result(val) - import :: pieceConstantField, coordList, defReal - class(pieceConstantField), intent(in) :: self - class(coordList), intent(in) :: coords - real(defReal) :: val - end function at - !! !! Get distance to the next element of the field at the given coordinates !! diff --git a/Geometry/Fields/VectorFields/uniFissSitesField_class.f90 b/Geometry/Fields/VectorFields/uniFissSitesField_class.f90 index e57fdb865..401a8bdc5 100644 --- a/Geometry/Fields/VectorFields/uniFissSitesField_class.f90 +++ b/Geometry/Fields/VectorFields/uniFissSitesField_class.f90 @@ -243,10 +243,9 @@ function at(self, coords) result(val) class(uniFissSitesField), intent(in) :: self class(coordList), intent(in) :: coords real(defReal), dimension(3) :: val - type(particleState) :: state - integer(shortInt) :: binIdx character(100), parameter :: Here = 'at (uniFissSitesField_class.f90)' + val = ZERO call fatalError(Here,'Not defined when providing coords - must provide particle.') end function at diff --git a/Geometry/Fields/VectorFields/weightWindowsField_class.f90 b/Geometry/Fields/VectorFields/weightWindowsField_class.f90 index a9d9c71b0..71d40a955 100644 --- a/Geometry/Fields/VectorFields/weightWindowsField_class.f90 +++ b/Geometry/Fields/VectorFields/weightWindowsField_class.f90 @@ -133,10 +133,9 @@ function at(self, coords) result(val) class(weightWindowsField), intent(in) :: self class(coordList), intent(in) :: coords real(defReal), dimension(3) :: val - type(particleState) :: state - integer(shortInt) :: binIdx character(100), parameter :: Here = 'at (weightWindowsField_class.f90)' + val = ZERO call fatalError(Here,'Invalid to access by coords only.') end function at From 03a0d3cadd55c6140a3759c29b604eb1273958d8 Mon Sep 17 00:00:00 2001 From: ChasingNeutrons Date: Sat, 13 Dec 2025 22:02:54 +0000 Subject: [PATCH 10/10] Addressing PR comments --- .../PieceConstantFields/cartesianField_class.f90 | 11 +++++++---- .../pieceConstantField_inter.f90 | 14 +++++--------- 2 files changed, 12 insertions(+), 13 deletions(-) diff --git a/Geometry/Fields/ScalarFields/PieceConstantFields/cartesianField_class.f90 b/Geometry/Fields/ScalarFields/PieceConstantFields/cartesianField_class.f90 index 7cc32ab64..c262e7ea8 100644 --- a/Geometry/Fields/ScalarFields/PieceConstantFields/cartesianField_class.f90 +++ b/Geometry/Fields/ScalarFields/PieceConstantFields/cartesianField_class.f90 @@ -4,7 +4,7 @@ module cartesianField_class use universalVariables use genericProcedures, only : fatalError, numToChar, swap use field_inter, only : field - use pieceConstantField_inter, only : pieceConstantField + use pieceConstantField_inter, only : pieceConstantField, kill_super => kill use coord_class, only : coordList use particle_class, only : particle use dictionary_class, only : dictionary @@ -26,8 +26,10 @@ module cartesianField_class !! Values of the field are piecewise constant. !! !! Similar to a Cartesian lattice. Centre is placed at origin. - !! Can include materials. If applying the values uniformly to all materials, can use - !! the keyword 'all', i.e., materials (all); + !! Can include materials: values can be set on a coarse grid and differentiating + !! between materials within a given grid cell. + !! If applying the values uniformly to all materials, can use the keyword 'all', + !! i.e., materials (all); !! !! Example dictionary: !! @@ -315,7 +317,8 @@ end function distance elemental subroutine kill(self) class(cartesianField), intent(inout) :: self - call self % killSuper() + ! Superclass + call kill_super(self) self % pitch = ZERO self % sizeN = 0 diff --git a/Geometry/Fields/ScalarFields/PieceConstantFields/pieceConstantField_inter.f90 b/Geometry/Fields/ScalarFields/PieceConstantFields/pieceConstantField_inter.f90 index b6413b1a9..3f00690f5 100644 --- a/Geometry/Fields/ScalarFields/PieceConstantFields/pieceConstantField_inter.f90 +++ b/Geometry/Fields/ScalarFields/PieceConstantFields/pieceConstantField_inter.f90 @@ -12,22 +12,18 @@ module pieceConstantField_inter private !! - !! Public Pointer Cast + !! Public Pointer Cast and clean up !! public :: pieceConstantField_CptrCast + public :: kill !! !! Piecewise constant field. Values of the field are piecewise constant. !! Provides a distance calculation to neighbouring elements, allowing surface !! tracking to be used. !! - !! Access to field is via coordList to allow more fancy fields to be defined - !! (e.g. assign value to each uniqueID etc.) - !! !! Interface: !! field interface - !! at -> Return scalar value given coordinates - !! atP -> Return scalar value given particle !! distance -> Return distance to next element of the field !! setValue -> Sets value of field at a given index !! getMaxValue -> Returns the maximum field value @@ -41,7 +37,7 @@ module pieceConstantField_inter procedure :: setValue procedure :: getMaxValue - procedure :: killSuper + procedure :: kill end type pieceConstantField abstract interface @@ -141,12 +137,12 @@ end function getMaxValue !! !! Kills elements of the superclass !! - elemental subroutine killSuper(self) + elemental subroutine kill(self) class(pieceConstantField), intent(inout) :: self if (allocated(self % val)) deallocate(self % val) self % N = 0 - end subroutine killSuper + end subroutine kill end module pieceConstantField_inter