From 7dfcc480ba1e19bd3232349fc733caef94034292 Mon Sep 17 00:00:00 2001 From: stainer_t Date: Mon, 8 Sep 2025 13:48:49 +0200 Subject: Initial commit from Polytechnique Montreal --- Dragon/data/trowland_proc/mox_1c_case1.c2m | 165 +++++++++++++++++++++++ Dragon/data/trowland_proc/mox_1c_case2.c2m | 166 +++++++++++++++++++++++ Dragon/data/trowland_proc/mox_1c_case3.c2m | 167 +++++++++++++++++++++++ Dragon/data/trowland_proc/mox_1c_case4.c2m | 169 ++++++++++++++++++++++++ Dragon/data/trowland_proc/mox_6c_case1.c2m | 205 +++++++++++++++++++++++++++++ Dragon/data/trowland_proc/mox_6c_case2.c2m | 205 +++++++++++++++++++++++++++++ Dragon/data/trowland_proc/mox_6c_case3.c2m | 205 +++++++++++++++++++++++++++++ Dragon/data/trowland_proc/mox_6c_case4.c2m | 205 +++++++++++++++++++++++++++++ Dragon/data/trowland_proc/mox_6c_case5.c2m | 119 +++++++++++++++++ Dragon/data/trowland_proc/uo2_1c_case1.c2m | 139 +++++++++++++++++++ Dragon/data/trowland_proc/uo2_1c_case2.c2m | 139 +++++++++++++++++++ Dragon/data/trowland_proc/uo2_1c_case3.c2m | 143 ++++++++++++++++++++ Dragon/data/trowland_proc/uo2_1c_case4.c2m | 139 +++++++++++++++++++ Dragon/data/trowland_proc/uo2_6c_case1.c2m | 182 +++++++++++++++++++++++++ Dragon/data/trowland_proc/uo2_6c_case2.c2m | 182 +++++++++++++++++++++++++ Dragon/data/trowland_proc/uo2_6c_case3.c2m | 182 +++++++++++++++++++++++++ Dragon/data/trowland_proc/uo2_6c_case4.c2m | 182 +++++++++++++++++++++++++ Dragon/data/trowland_proc/uo2_6c_case5.c2m | 83 ++++++++++++ 18 files changed, 2977 insertions(+) create mode 100644 Dragon/data/trowland_proc/mox_1c_case1.c2m create mode 100644 Dragon/data/trowland_proc/mox_1c_case2.c2m create mode 100644 Dragon/data/trowland_proc/mox_1c_case3.c2m create mode 100644 Dragon/data/trowland_proc/mox_1c_case4.c2m create mode 100644 Dragon/data/trowland_proc/mox_6c_case1.c2m create mode 100644 Dragon/data/trowland_proc/mox_6c_case2.c2m create mode 100644 Dragon/data/trowland_proc/mox_6c_case3.c2m create mode 100644 Dragon/data/trowland_proc/mox_6c_case4.c2m create mode 100644 Dragon/data/trowland_proc/mox_6c_case5.c2m create mode 100644 Dragon/data/trowland_proc/uo2_1c_case1.c2m create mode 100644 Dragon/data/trowland_proc/uo2_1c_case2.c2m create mode 100644 Dragon/data/trowland_proc/uo2_1c_case3.c2m create mode 100644 Dragon/data/trowland_proc/uo2_1c_case4.c2m create mode 100644 Dragon/data/trowland_proc/uo2_6c_case1.c2m create mode 100644 Dragon/data/trowland_proc/uo2_6c_case2.c2m create mode 100644 Dragon/data/trowland_proc/uo2_6c_case3.c2m create mode 100644 Dragon/data/trowland_proc/uo2_6c_case4.c2m create mode 100644 Dragon/data/trowland_proc/uo2_6c_case5.c2m (limited to 'Dragon/data/trowland_proc') diff --git a/Dragon/data/trowland_proc/mox_1c_case1.c2m b/Dragon/data/trowland_proc/mox_1c_case1.c2m new file mode 100644 index 0000000..964004c --- /dev/null +++ b/Dragon/data/trowland_proc/mox_1c_case1.c2m @@ -0,0 +1,165 @@ +*---- +* +* TEST CASE mox_1c_case1 +* FIRST MOX ROWLAND'S BENCHMARK +* UNIFORM SELF-SHIELDING +* 172-GROUP JEF2.2 DRAGLIB +* +* Author: A. Hebert +* +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST LIBRARY LIBRARY2 GEOM TRACK MACRO CP FLUX ; +MODULE LIB: GEO: SYBILT: SHI: USS: ASM: FLU: DELETE: END: ; +INTEGER COMB0101 GAIN1 MODE := 1 2 3 ; +PROCEDURE assertS ; +* +GEOM := GEO: :: TUBE 4 + R+ REFL + RADIUS 0.0 0.41 0.475 0.6045552 0.710879 + SPLITR 2 1 1 1 + MIX 1 2 3 3 ; +TRACK := SYBILT: GEOM :: + EDIT 1 + TITLE 'FIRST MOX ROWLAND S BENCHMARK' + MAXR 20 QUA1 5 ; +*---- +* SHI +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 3 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 300.0 (*COMB0101*) + U235 = U235 5.105E-5 1 + U238 = U238 2.037E-2 1 + PU238 = Pu238 4.669E-5 1 + PU239 = Pu239 1.465E-3 1 + PU240 = Pu240 5.691E-4 1 + PU241 = Pu241 2.713E-4 1 + PU242 = Pu242 1.413E-4 1 + AM241 = Am241 3.028E-5 1 + O16 = O16 4.588E-2 + MIX <> 300.0 (*GAIN1*) + ZR = Zr0 3.88E-2 2 + MIX <> 293.0 (*MODE*) + H1 = H1_H2O 4.744E-2 + O16 = O16 2.372E-2 + ; +LIBRARY := SHI: LIBRARY TRACK :: EDIT 1 LJ GRMIN 45 ; +CP := ASM: LIBRARY TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY TRACK :: TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.211783 ; +LIBRARY CP FLUX := DELETE: LIBRARY CP FLUX ; +*---- +* USS +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 3 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + SUBG (*HELIOS TYPE PROBABILITY TABLES*) +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 300.0 (*COMB0101*) + U235 = U235 5.105E-5 1 IRSET 0.0 81 + U238 = U238 2.037E-2 1 IRSET 0.0 81 + PU238 = Pu238 4.669E-5 1 IRSET 0.0 81 + PU239 = Pu239 1.465E-3 1 IRSET 0.0 81 + PU240 = Pu240 5.691E-4 1 IRSET 0.0 81 + PU241 = Pu241 2.713E-4 1 IRSET 0.0 81 + PU242 = Pu242 1.413E-4 1 IRSET 0.0 81 + AM241 = Am241 3.028E-5 1 IRSET 0.0 81 + O16 = O16 4.588E-2 + MIX <> 300.0 (*GAIN1*) + ZR = Zr0 3.88E-2 2 IRSET 0.0 81 + MIX <> 293.0 (*MODE1*) + H1 = H1_H2O 4.744E-2 + O16 = O16 2.372E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: + EDIT 1 TRAN PASS 3 GRMIN 45 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: +TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.214894 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +*---- +* Ribon extended +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 3 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + PTSL (*CALENDF TYPE PROBABILITY TABLES*) +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 300.0 (*COMB0101*) + U235 = U235 5.105E-5 1 IRSET PTSL 1 + U238 = U238 2.037E-2 1 IRSET PTSL 1 + PU238 = Pu238 4.669E-5 1 IRSET PTSL 1 + PU239 = Pu239 1.465E-3 1 IRSET PTSL 1 + PU240 = Pu240 5.691E-4 1 IRSET PTSL 1 + PU241 = Pu241 2.713E-4 1 IRSET PTSL 1 + PU242 = Pu242 1.413E-4 1 IRSET PTSL 1 + AM241 = Am241 3.028E-5 1 IRSET PTSL 1 + O16 = O16 4.588E-2 + MIX <> 300.0 (*GAIN1*) + ZR = Zr0 3.88E-2 2 IRSET PTSL 1 + MIX <> 293.0 (*MODE*) + H1 = H1_H2O 4.744E-2 + O16 = O16 2.372E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: + EDIT 1 TRAN PASS 3 GRMIN 45 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: +TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.214438 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +*---- +* Ribon extended with correlation +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 3 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + PTSL (*CALENDF TYPE PROBABILITY TABLES*) +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 300.0 (*COMB0101*) + U235 = U235 5.105E-5 1 IRSET PTSL 1 + U238 = U238 2.037E-2 CORR 1 IRSET PTSL 1 + PU238 = Pu238 4.669E-5 1 IRSET PTSL 1 + PU239 = Pu239 1.465E-3 1 IRSET PTSL 1 + PU240 = Pu240 5.691E-4 CORR 1 IRSET PTSL 1 + PU241 = Pu241 2.713E-4 1 IRSET PTSL 1 + PU242 = Pu242 1.413E-4 1 IRSET PTSL 1 + AM241 = Am241 3.028E-5 1 IRSET PTSL 1 + O16 = O16 4.588E-2 + MIX <> 300.0 (*GAIN1*) + ZR = Zr0 3.88E-2 2 IRSET PTSL 1 + MIX <> 293.0 (*MODE*) + H1 = H1_H2O 4.744E-2 + O16 = O16 2.372E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: + EDIT 1 TRAN PASS 4 GRMIN 45 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: +TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.216819 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +ECHO "test mox_1c_case1 completed" ; +END: ; diff --git a/Dragon/data/trowland_proc/mox_1c_case2.c2m b/Dragon/data/trowland_proc/mox_1c_case2.c2m new file mode 100644 index 0000000..5dbe2da --- /dev/null +++ b/Dragon/data/trowland_proc/mox_1c_case2.c2m @@ -0,0 +1,166 @@ +*---- +* +* TEST CASE mox_1c_case2 +* SECOND MOX ROWLAND'S BENCHMARK +* UNIFORM SELF-SHIELDING +* 172-GROUP JEF2.2 DRAGLIB +* +* Author: A. Hebert +* +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST LIBRARY LIBRARY2 GEOM TRACK MACRO CP FLUX ; +MODULE LIB: GEO: SYBILT: SHI: USS: ASM: FLU: DELETE: END: ; +INTEGER COMB0101 GAIN1 MODE := 1 2 3 ; +PROCEDURE assertS ; +* +GEOM := GEO: :: TUBE 4 + R+ REFL + RADIUS 0.0 0.41 0.475 0.6045552 0.710879 + SPLITR 2 1 1 1 + MIX 1 2 3 3 ; +TRACK := SYBILT: GEOM :: + EDIT 1 + TITLE 'SECOND MOX ROWLAND S BENCHMARK' + MAXR 20 QUA1 5 ; +*---- +* SHI +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 3 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 560.0 (*COMB0101*) + U235 = U235 5.105E-5 1 + U238 = U238 2.037E-2 1 + PU238 = Pu238 4.669E-5 1 + PU239 = Pu239 1.465E-3 1 + PU240 = Pu240 5.691E-4 1 + PU241 = Pu241 2.713E-4 1 + PU242 = Pu242 1.413E-4 1 + AM241 = Am241 3.028E-5 1 + O16 = O16 4.588E-2 + MIX <> 300.0 (*GAIN1*) + ZR = Zr0 3.88E-2 2 + MIX <> 293.0 (*MODE*) + H1 = H1_H2O 4.744E-2 + O16 = O16 2.372E-2 + ; +LIBRARY := SHI: LIBRARY TRACK :: EDIT 1 LJ GRMIN 45 ; +CP := ASM: LIBRARY TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY TRACK :: TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.196600 ; +LIBRARY CP FLUX := DELETE: LIBRARY CP FLUX ; +*---- +* USS +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 3 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + SUBG (*HELIOS TYPE PROBABILITY TABLES*) +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 560.0 (*COMB0101*) + U235 = U235 5.105E-5 1 IRSET 0.0 81 + U238 = U238 2.037E-2 1 IRSET 0.0 81 + PU238 = Pu238 4.669E-5 1 IRSET 0.0 81 + PU239 = Pu239 1.465E-3 1 IRSET 0.0 81 + PU240 = Pu240 5.691E-4 1 IRSET 0.0 81 + PU241 = Pu241 2.713E-4 1 IRSET 0.0 81 + PU242 = Pu242 1.413E-4 1 IRSET 0.0 81 + AM241 = Am241 3.028E-5 1 IRSET 0.0 81 + O16 = O16 4.588E-2 + MIX <> 300.0 (*GAIN1*) + ZR = Zr0 3.88E-2 2 IRSET 0.0 81 + MIX <> 293.0 (*MODE*) + H1 = H1_H2O 4.744E-2 + O16 = O16 2.372E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: + EDIT 1 TRAN PASS 3 GRMIN 45 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: +TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.200151 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +*---- +* Ribon extended +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 3 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + PTSL (*CALENDF TYPE PROBABILITY TABLES*) +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 560.0 (*COMB0101*) + U235 = U235 5.105E-5 1 IRSET PTSL 1 + U238 = U238 2.037E-2 1 IRSET PTSL 1 + PU238 = Pu238 4.669E-5 1 IRSET PTSL 1 + PU239 = Pu239 1.465E-3 1 IRSET PTSL 1 + PU240 = Pu240 5.691E-4 1 IRSET PTSL 1 + PU241 = Pu241 2.713E-4 1 IRSET PTSL 1 + PU242 = Pu242 1.413E-4 1 IRSET PTSL 1 + AM241 = Am241 3.028E-5 1 IRSET PTSL 1 + O16 = O16 4.588E-2 + MIX <> 300.0 (*GAIN1*) + ZR = Zr0 3.88E-2 2 IRSET PTSL 1 + MIX <> 293.0 (*MODE*) + H1 = H1_H2O 4.744E-2 + O16 = O16 2.372E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: + EDIT 1 TRAN PASS 3 GRMIN 45 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: +TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.199719 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +*---- +* Ribon extended with correlation +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 3 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + PTSL (*CALENDF TYPE PROBABILITY TABLES*) +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 560.0 (*COMB0101*) + U235 = U235 5.105E-5 1 IRSET PTSL 1 + U238 = U238 2.037E-2 CORR 1 IRSET PTSL 1 + PU238 = Pu238 4.669E-5 1 IRSET PTSL 1 + PU239 = Pu239 1.465E-3 1 IRSET PTSL 1 + PU240 = Pu240 5.691E-4 CORR 1 IRSET PTSL 1 + PU241 = Pu241 2.713E-4 1 IRSET PTSL 1 + PU242 = Pu242 1.413E-4 1 IRSET PTSL 1 + AM241 = Am241 3.028E-5 1 IRSET PTSL 1 + O16 = O16 4.588E-2 + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 300.0 (*GAIN1*) + ZR = Zr0 3.88E-2 2 IRSET PTSL 1 + MIX <> 293.0 (*MODE*) + H1 = H1_H2O 4.744E-2 + O16 = O16 2.372E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: + EDIT 1 TRAN PASS 4 GRMIN 45 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: +TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.202332 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +ECHO "test mox_1c_case2 completed" ; +END: ; diff --git a/Dragon/data/trowland_proc/mox_1c_case3.c2m b/Dragon/data/trowland_proc/mox_1c_case3.c2m new file mode 100644 index 0000000..5000db5 --- /dev/null +++ b/Dragon/data/trowland_proc/mox_1c_case3.c2m @@ -0,0 +1,167 @@ +*---- +* +* TEST CASE mox_1c_case3 +* THIRD MOX ROWLAND'S BENCHMARK +* UNIFORM SELF-SHIELDING +* 172-GROUP JEF2.2 DRAGLIB +* +* Author: A. Hebert +* +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST LIBRARY LIBRARY2 GEOM TRACK MACRO CP FLUX ; +MODULE LIB: GEO: SYBILT: SHI: USS: ASM: FLU: DELETE: END: ; +INTEGER COMB0101 GAIN1 MODE := 1 2 3 ; +PROCEDURE assertS ; +* +GEOM := GEO: :: TUBE 4 + R+ REFL + RADIUS 0.0 0.41 0.475 0.6045552 0.710879 + SPLITR 2 1 1 1 + MIX 1 2 3 3 ; +TRACK := SYBILT: GEOM :: + EDIT 1 + TITLE 'THIRD MOX ROWLAND S BENCHMARK' + MAXR 20 QUA1 5 ; +*---- +* SHI +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 3 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 300.0 (*COMB0101*) + U235 = U235 5.118E-5 1 + U238 = U238 2.042E-2 1 + PU239 = Pu239 1.972E-3 1 + PU238 = Pu238 2.714E-5 1 + PU240 = Pu240 4.256E-4 1 + PU241 = Pu241 3.577E-5 1 + PU242 = Pu242 1.234E-5 1 + AM241 = Am241 1.406E-5 1 + O16 = O16 4.588E-2 + MIX <> 300.0 (*GAIN1*) + ZR = Zr0 3.88E-2 2 + MIX <> 293.0 (*MODE*) + H1 = H1_H2O 4.744E-2 + O16 = O16 2.372E-2 + ; +LIBRARY := SHI: LIBRARY TRACK :: EDIT 1 LJ GRMIN 45 ; +CP := ASM: LIBRARY TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY TRACK :: TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.254774 ; +LIBRARY CP FLUX := DELETE: LIBRARY CP FLUX ; +*---- +* USS +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 3 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + SUBG (*HELIOS TYPE PROBABILITY TABLES*) +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 300.0 (*COMB0101*) + U235 = U235 5.118E-5 1 IRSET 0.0 81 + U238 = U238 2.042E-2 1 IRSET 0.0 81 + PU239 = Pu239 1.972E-3 1 IRSET 0.0 81 + PU238 = Pu238 2.714E-5 1 IRSET 0.0 81 + PU240 = Pu240 4.256E-4 1 IRSET 0.0 81 + PU241 = Pu241 3.577E-5 1 IRSET 0.0 81 + PU242 = Pu242 1.234E-5 1 IRSET 0.0 81 + AM241 = Am241 1.406E-5 1 IRSET 0.0 81 + O16 = O16 4.588E-2 + MIX <> 300.0 (*GAIN1*) + ZR = Zr0 3.88E-2 2 IRSET 0.0 81 + MIX <> 293.0 (*MODE*) + H1 = H1_H2O 4.744E-2 + O16 = O16 2.372E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: + EDIT 1 TRAN PASS 3 GRMIN 45 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: +TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.257776 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +*---- +* Ribon extended +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 6 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + PTSL (*CALENDF TYPE PROBABILITY TABLES*) +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 300.0 (*COMB0101*) + U235 = U235 5.118E-5 1 IRSET PTSL 1 + U238 = U238 2.042E-2 1 IRSET PTSL 1 + PU239 = Pu239 1.972E-3 1 IRSET PTSL 1 + PU238 = Pu238 2.714E-5 1 IRSET PTSL 1 + PU240 = Pu240 4.256E-4 1 IRSET PTSL 1 + PU241 = Pu241 3.577E-5 1 IRSET PTSL 1 + PU242 = Pu242 1.234E-5 1 IRSET PTSL 1 + AM241 = Am241 1.406E-5 1 IRSET PTSL 1 + O16 = O16 4.588E-2 + MIX <> 300.0 (*GAIN1*) + ZR = Zr0 3.88E-2 2 IRSET PTSL 1 + MIX <> 293.0 (*MODE*) + H1 = H1_H2O 4.744E-2 + O16 = O16 2.372E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: + EDIT 1 TRAN PASS 3 GRMIN 45 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: +TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.257338 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +*---- +* Ribon extended with correlation +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 3 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + PTSL (*CALENDF TYPE PROBABILITY TABLES*) +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 300.0 (*COMB0101*) + PU240 = Pu240 4.256E-4 CORR 1 IRSET PTSL 1 + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 300.0 (*COMB0101*) + U235 = U235 5.118E-5 1 IRSET PTSL 1 + U238 = U238 2.042E-2 CORR 1 IRSET PTSL 1 + PU238 = Pu238 2.714E-5 1 IRSET PTSL 1 + PU239 = Pu239 1.972E-3 1 IRSET PTSL 1 + PU241 = Pu241 3.577E-5 1 IRSET PTSL 1 + PU242 = Pu242 1.234E-5 1 IRSET PTSL 1 + AM241 = Am241 1.406E-5 1 IRSET PTSL 1 + O16 = O16 4.588E-2 + MIX <> 300.0 (*GAIN1*) + ZR = Zr0 3.88E-2 2 IRSET PTSL 1 + MIX <> 293.0 (*MODE*) + H1 = H1_H2O 4.744E-2 + O16 = O16 2.372E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: + EDIT 1 TRAN PASS 4 GRMIN 45 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: +TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.259420 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +ECHO "test mox_1c_case3 completed" ; +END: ; diff --git a/Dragon/data/trowland_proc/mox_1c_case4.c2m b/Dragon/data/trowland_proc/mox_1c_case4.c2m new file mode 100644 index 0000000..4ed936e --- /dev/null +++ b/Dragon/data/trowland_proc/mox_1c_case4.c2m @@ -0,0 +1,169 @@ +*---- +* +* TEST CASE mox_1c_case4 +* FOURTH MOX ROWLAND'S BENCHMARK +* UNIFORM SELF-SHIELDING +* 172-GROUP JEF2.2 DRAGLIB +* +* Author: A. Hebert +* +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST LIBRARY LIBRARY2 GEOM TRACK MACRO CP FLUX ; +MODULE LIB: GEO: SYBILT: SHI: USS: ASM: FLU: DELETE: END: ; +INTEGER COMB0101 GAIN1 MODE := 1 2 3 ; +PROCEDURE assertS ; +* +GEOM := GEO: :: TUBE 4 + R+ REFL + RADIUS 0.0 0.41 0.475 0.6045552 0.710879 + SPLITR 2 1 1 1 + MIX 1 2 3 3 ; +TRACK := SYBILT: GEOM :: + EDIT 1 + TITLE 'FOURTH MOX ROWLAND S BENCHMARK' + MAXR 20 QUA1 5 ; +*---- +* SHI +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 3 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 560.0 (*COMB0101*) + U235 = U235 5.118E-5 1 + U238 = U238 2.042E-2 1 + PU238 = Pu238 2.714E-5 1 + PU239 = Pu239 1.972E-3 1 + PU240 = Pu240 4.256E-4 1 + PU241 = Pu241 3.577E-5 1 + PU242 = Pu242 1.234E-5 1 + AM241 = Am241 1.406E-5 1 + O16 = O16 4.588E-2 + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 300.0 (*GAIN1*) + ZR = Zr0 3.88E-2 2 + MIX <> 293.0 (*MODE*) + H1 = H1_H2O 4.744E-2 + O16 = O16 2.372E-2 + ; +LIBRARY := SHI: LIBRARY TRACK :: EDIT 1 LJ GRMIN 45 ; +CP := ASM: LIBRARY TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY TRACK :: TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.240108 ; +LIBRARY CP FLUX := DELETE: LIBRARY CP FLUX ; +*---- +* USS +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 3 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + SUBG (*HELIOS TYPE PROBABILITY TABLES*) +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 560.0 (*COMB0101*) + U235 = U235 5.118E-5 1 IRSET 0.0 81 + U238 = U238 2.042E-2 1 IRSET 0.0 81 + PU238 = Pu238 2.714E-5 1 IRSET 0.0 81 + PU239 = Pu239 1.972E-3 1 IRSET 0.0 81 + PU240 = Pu240 4.256E-4 1 IRSET 0.0 81 + PU241 = Pu241 3.577E-5 1 IRSET 0.0 81 + PU242 = Pu242 1.234E-5 1 IRSET 0.0 81 + AM241 = Am241 1.406E-5 1 IRSET 0.0 81 + O16 = O16 4.588E-2 + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 300.0 (*GAIN1*) + ZR = Zr0 3.88E-2 2 IRSET 0.0 81 + MIX <> 293.0 (*MODE*) + H1 = H1_H2O 4.744E-2 + O16 = O16 2.372E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: + EDIT 1 TRAN PASS 3 GRMIN 45 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: +TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.243575 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +*---- +* Ribon extended +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 3 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + PTSL (*CALENDF TYPE PROBABILITY TABLES*) +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 560.0 (*COMB0101*) + U235 = U235 5.118E-5 1 IRSET PTSL 1 + U238 = U238 2.042E-2 1 IRSET PTSL 1 + PU238 = Pu238 2.714E-5 1 IRSET PTSL 1 + PU239 = Pu239 1.972E-3 1 IRSET PTSL 1 + PU240 = Pu240 4.256E-4 1 IRSET PTSL 1 + PU241 = Pu241 3.577E-5 1 IRSET PTSL 1 + PU242 = Pu242 1.234E-5 1 IRSET PTSL 1 + AM241 = Am241 1.406E-5 1 IRSET PTSL 1 + O16 = O16 4.588E-2 + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 300.0 (*GAIN1*) + ZR = Zr0 3.88E-2 2 IRSET PTSL 1 + MIX <> 293.0 (*MODE*) + H1 = H1_H2O 4.744E-2 + O16 = O16 2.372E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: + EDIT 1 TRAN PASS 3 GRMIN 45 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: +TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.243140 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +*---- +* Ribon extended with correlation +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 3 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + PTSL (*CALENDF TYPE PROBABILITY TABLES*) +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 560.0 (*COMB0101*) + U235 = U235 5.118E-5 1 IRSET PTSL 1 + U238 = U238 2.042E-2 CORR 1 IRSET PTSL 1 + PU238 = Pu238 2.714E-5 1 IRSET PTSL 1 + PU239 = Pu239 1.972E-3 1 IRSET PTSL 1 + PU240 = Pu240 4.256E-4 CORR 1 IRSET PTSL 1 + PU241 = Pu241 3.577E-5 1 IRSET PTSL 1 + PU242 = Pu242 1.234E-5 1 IRSET PTSL 1 + AM241 = Am241 1.406E-5 1 IRSET PTSL 1 + O16 = O16 4.588E-2 + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 300.0 (*GAIN1*) + ZR = Zr0 3.88E-2 2 IRSET PTSL 1 + MIX <> 293.0 (*MODE*) + H1 = H1_H2O 4.744E-2 + O16 = O16 2.372E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: + EDIT 1 TRAN PASS 4 GRMIN 45 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: +TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.245390 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +ECHO "test mox_1c_case4 completed" ; +END: ; diff --git a/Dragon/data/trowland_proc/mox_6c_case1.c2m b/Dragon/data/trowland_proc/mox_6c_case1.c2m new file mode 100644 index 0000000..b0cff3f --- /dev/null +++ b/Dragon/data/trowland_proc/mox_6c_case1.c2m @@ -0,0 +1,205 @@ +*---- +* +* TEST CASE mox_6c_case1 +* FIRST MOX ROWLAND'S BENCHMARK +* DISTRIBUTED SELF-SHIELDING +* 172-GROUP JEF2.2 DRAGLIB +* +* Author: A. Hebert +* +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEOM TRACK LIBRARY LIBRARY2 CP FLUX ; +MODULE LIB: GEO: SYBILT: SHI: USS: ASM: FLU: DELETE: END: ; +INTEGER COMB0101 COMB0102 COMB0103 COMB0104 COMB0105 COMB0106 GAIN1 + MODE1 MODE2 := + 1 2 3 4 5 6 7 8 9 ; (* DISTRIBUTED SELF-SHIELDING *) +REAL RCOMB1 RCOMB2 RCOMB3 RCOMB4 RCOMB5 RCOMB6 ; +PROCEDURE assertS ; +* +EVALUATE RCOMB1 RCOMB2 RCOMB3 RCOMB4 RCOMB5 RCOMB6 := 0.259307 +0.343031 0.366715 0.388960 0.3996186 0.41 ; +GEOM := GEO: :: TUBE 9 + R+ REFL + RADIUS 0.0 <> <> <> <> + <> <> 0.475 0.6045552 0.710879 + MIX <> <> <> <> + <> <> <> <> <> + ; +TRACK := SYBILT: GEOM :: + TITLE 'FIRST MOX ROWLAND S BENCHMARK' + MAXR 20 QUA1 5 ; +*---- +* SHI LEVEL 1 +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 9 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 300.0 (*COMB0101*) + U235 = U235 5.105E-5 1 IRSET 0.0 81 + U238 = U238 2.037E-2 1 IRSET 0.0 81 + PU238 = Pu238 4.669E-5 1 IRSET 0.0 81 + PU239 = Pu239 1.465E-3 1 IRSET 0.0 81 + PU240 = Pu240 5.691E-4 1 IRSET 0.0 81 + PU241 = Pu241 2.713E-4 1 IRSET 0.0 81 + PU242 = Pu242 1.413E-4 1 IRSET 0.0 81 + AM241 = Am241 3.028E-5 1 IRSET 0.0 81 + O16 = O16 4.588E-2 + MIX <> COMB <> 1.0 (*COMB0102*) + MIX <> COMB <> 1.0 (*COMB0103*) + MIX <> COMB <> 1.0 (*COMB0104*) + MIX <> COMB <> 1.0 (*COMB0105*) + MIX <> COMB <> 1.0 (*COMB0106*) + MIX <> 300.0 (*GAIN1*) + ZR = Zr0 3.88E-2 2 IRSET 0.0 81 + MIX <> 293.0 (*MODE1*) + H1 = H1_H2O 4.744E-2 + O16 = O16 2.372E-2 + MIX <> 293.0 (*MODE2*) + H1 = H1_H2O 4.744E-2 + O16 = O16 2.372E-2 + ; +LIBRARY2 := SHI: LIBRARY TRACK :: EDIT 1 LJ GRMIN 45 LEVEL 1 MXIT 3 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.212406 ; +LIBRARY2 CP FLUX := DELETE: LIBRARY2 CP FLUX ; +*---- +* SHI LEVEL 2 +*---- +LIBRARY2 := SHI: LIBRARY TRACK :: EDIT 1 LJ GRMIN 45 LEVEL 2 MXIT 3 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.217351 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +*---- +* USS +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 9 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + SUBG (*HELIOS TYPE PROBABILITY TABLES*) +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 300.0 (*COMB0101*) + U235 = U235 5.105E-5 1 IRSET 0.0 81 + U238 = U238 2.037E-2 1 IRSET 0.0 81 + PU238 = Pu238 4.669E-5 1 IRSET 0.0 81 + PU239 = Pu239 1.465E-3 1 IRSET 0.0 81 + PU240 = Pu240 5.691E-4 1 IRSET 0.0 81 + PU241 = Pu241 2.713E-4 1 IRSET 0.0 81 + PU242 = Pu242 1.413E-4 1 IRSET 0.0 81 + AM241 = Am241 3.028E-5 1 IRSET 0.0 81 + O16 = O16 4.588E-2 + MIX <> COMB <> 1.0 (*COMB0102*) + MIX <> COMB <> 1.0 (*COMB0103*) + MIX <> COMB <> 1.0 (*COMB0104*) + MIX <> COMB <> 1.0 (*COMB0105*) + MIX <> COMB <> 1.0 (*COMB0106*) + MIX <> 300.0 (*GAIN1*) + ZR = Zr0 3.88E-2 2 IRSET 0.0 81 + MIX <> 293.0 (*MODE1*) + H1 = H1_H2O 4.744E-2 + O16 = O16 2.372E-2 + MIX <> 293.0 (*MODE2*) + H1 = H1_H2O 4.744E-2 + O16 = O16 2.372E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: EDIT 1 TRAN PASS 3 GRMIN 45 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.216483 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +*---- +* Ribon extended +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 9 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + PTSL (*CALENDF TYPE PROBABILITY TABLES*) +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 300.0 (*COMB0101*) + U235 = U235 5.105E-5 1 IRSET PTSL 1 + U238 = U238 2.037E-2 1 IRSET PTSL 1 + PU238 = Pu238 4.669E-5 1 IRSET PTSL 1 + PU239 = Pu239 1.465E-3 1 IRSET PTSL 1 + PU240 = Pu240 5.691E-4 1 IRSET PTSL 1 + PU241 = Pu241 2.713E-4 1 IRSET PTSL 1 + PU242 = Pu242 1.413E-4 1 IRSET PTSL 1 + AM241 = Am241 3.028E-5 1 IRSET PTSL 1 + O16 = O16 4.588E-2 + MIX <> COMB <> 1.0 (*COMB0102*) + MIX <> COMB <> 1.0 (*COMB0103*) + MIX <> COMB <> 1.0 (*COMB0104*) + MIX <> COMB <> 1.0 (*COMB0105*) + MIX <> COMB <> 1.0 (*COMB0106*) + MIX <> 300.0 (*GAIN1*) + ZR = Zr0 3.88E-2 2 IRSET PTSL 1 + MIX <> 293.0 (*MODE1*) + H1 = H1_H2O 4.744E-2 + O16 = O16 2.372E-2 + MIX <> 293.0 (*MODE2*) + H1 = H1_H2O 4.744E-2 + O16 = O16 2.372E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: EDIT 1 TRAN PASS 3 GRMIN 45 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.216640 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +*---- +* Ribon extended with correlation +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 9 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + PTSL (*CALENDF TYPE PROBABILITY TABLES*) +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 300.0 (*COMB0101*) + U235 = U235 5.105E-5 1 IRSET PTSL 1 + U238 = U238 2.037E-2 CORR 1 IRSET PTSL 1 + PU238 = Pu238 4.669E-5 1 IRSET PTSL 1 + PU239 = Pu239 1.465E-3 1 IRSET PTSL 1 + PU240 = Pu240 5.691E-4 CORR 1 IRSET PTSL 1 + PU241 = Pu241 2.713E-4 1 IRSET PTSL 1 + PU242 = Pu242 1.413E-4 1 IRSET PTSL 1 + AM241 = Am241 3.028E-5 1 IRSET PTSL 1 + O16 = O16 4.588E-2 + MIX <> COMB <> 1.0 (*COMB0102*) + MIX <> COMB <> 1.0 (*COMB0103*) + MIX <> COMB <> 1.0 (*COMB0104*) + MIX <> COMB <> 1.0 (*COMB0105*) + MIX <> COMB <> 1.0 (*COMB0106*) + MIX <> 300.0 (*GAIN1*) + ZR = Zr0 3.88E-2 2 IRSET PTSL 1 + MIX <> 293.0 (*MODE1*) + H1 = H1_H2O 4.744E-2 + O16 = O16 2.372E-2 + MIX <> 293.0 (*MODE2*) + H1 = H1_H2O 4.744E-2 + O16 = O16 2.372E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: EDIT 1 TRAN PASS 4 GRMIN 45 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.219029 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +ECHO "test mox_6c_case1 completed" ; +END: ; diff --git a/Dragon/data/trowland_proc/mox_6c_case2.c2m b/Dragon/data/trowland_proc/mox_6c_case2.c2m new file mode 100644 index 0000000..29dffc0 --- /dev/null +++ b/Dragon/data/trowland_proc/mox_6c_case2.c2m @@ -0,0 +1,205 @@ +*---- +* +* TEST CASE mox_6c_case2 +* SECOND MOX ROWLAND'S BENCHMARK +* DISTRIBUTED SELF-SHIELDING +* 172-GROUP JEF2.2 DRAGLIB +* +* Author: A. Hebert +* +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEOM TRACK LIBRARY LIBRARY2 CP FLUX ; +MODULE LIB: GEO: SYBILT: SHI: USS: ASM: FLU: DELETE: END: ; +INTEGER COMB0101 COMB0102 COMB0103 COMB0104 COMB0105 COMB0106 GAIN1 + MODE1 MODE2 := + 1 2 3 4 5 6 7 8 9 ; (* DISTRIBUTED SELF-SHIELDING *) +REAL RCOMB1 RCOMB2 RCOMB3 RCOMB4 RCOMB5 RCOMB6 ; +PROCEDURE assertS ; +* +EVALUATE RCOMB1 RCOMB2 RCOMB3 RCOMB4 RCOMB5 RCOMB6 := 0.259307 +0.343031 0.366715 0.388960 0.3996186 0.41 ; +GEOM := GEO: :: TUBE 9 + R+ REFL + RADIUS 0.0 <> <> <> <> + <> <> 0.475 0.6045552 0.710879 + MIX <> <> <> <> + <> <> <> <> <> + ; +TRACK := SYBILT: GEOM :: + TITLE 'SECOND MOX ROWLAND S BENCHMARK' + MAXR 20 QUA1 5 ; +*---- +* SHI LEVEL 1 +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 9 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 560.0 (*COMB0101*) + U235 = U235 5.105E-5 1 IRSET 0.0 81 + U238 = U238 2.037E-2 1 IRSET 0.0 81 + PU238 = Pu238 4.669E-5 1 IRSET 0.0 81 + PU239 = Pu239 1.465E-3 1 IRSET 0.0 81 + PU240 = Pu240 5.691E-4 1 IRSET 0.0 81 + PU241 = Pu241 2.713E-4 1 IRSET 0.0 81 + PU242 = Pu242 1.413E-4 1 IRSET 0.0 81 + AM241 = Am241 3.028E-5 1 IRSET 0.0 81 + O16 = O16 4.588E-2 + MIX <> COMB <> 1.0 (*COMB0102*) + MIX <> COMB <> 1.0 (*COMB0103*) + MIX <> COMB <> 1.0 (*COMB0104*) + MIX <> COMB <> 1.0 (*COMB0105*) + MIX <> COMB <> 1.0 (*COMB0106*) + MIX <> 300.0 (*GAIN1*) + ZR = Zr0 3.88E-2 2 IRSET 0.0 81 + MIX <> 293.0 (*MODE1*) + H1 = H1_H2O 4.744E-2 + O16 = O16 2.372E-2 + MIX <> 293.0 (*MODE2*) + H1 = H1_H2O 4.744E-2 + O16 = O16 2.372E-2 + ; +LIBRARY2 := SHI: LIBRARY TRACK :: EDIT 1 LJ GRMIN 45 LEVEL 1 MXIT 3 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.196737 ; +LIBRARY2 CP FLUX := DELETE: LIBRARY2 CP FLUX ; +*---- +* SHI LEVEL 2 +*---- +LIBRARY2 := SHI: LIBRARY TRACK :: EDIT 1 LJ GRMIN 45 LEVEL 2 MXIT 3 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.202921 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +*---- +* USS +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 9 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + SUBG (*HELIOS TYPE PROBABILITY TABLES*) +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 560.0 (*COMB0101*) + U235 = U235 5.105E-5 1 IRSET 0.0 81 + U238 = U238 2.037E-2 1 IRSET 0.0 81 + PU238 = Pu238 4.669E-5 1 IRSET 0.0 81 + PU239 = Pu239 1.465E-3 1 IRSET 0.0 81 + PU240 = Pu240 5.691E-4 1 IRSET 0.0 81 + PU241 = Pu241 2.713E-4 1 IRSET 0.0 81 + PU242 = Pu242 1.413E-4 1 IRSET 0.0 81 + AM241 = Am241 3.028E-5 1 IRSET 0.0 81 + O16 = O16 4.588E-2 + MIX <> COMB <> 1.0 (*COMB0102*) + MIX <> COMB <> 1.0 (*COMB0103*) + MIX <> COMB <> 1.0 (*COMB0104*) + MIX <> COMB <> 1.0 (*COMB0105*) + MIX <> COMB <> 1.0 (*COMB0106*) + MIX <> 300.0 (*GAIN1*) + ZR = Zr0 3.88E-2 2 IRSET 0.0 81 + MIX <> 293.0 (*MODE1*) + H1 = H1_H2O 4.744E-2 + O16 = O16 2.372E-2 + MIX <> 293.0 (*MODE2*) + H1 = H1_H2O 4.744E-2 + O16 = O16 2.372E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: EDIT 1 TRAN PASS 3 GRMIN 45 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.201930 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +*---- +* Ribon extended +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 9 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + PTSL (*CALENDF TYPE PROBABILITY TABLES*) +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 560.0 (*COMB0101*) + U235 = U235 5.105E-5 1 IRSET PTSL 1 + U238 = U238 2.037E-2 1 IRSET PTSL 1 + PU238 = Pu238 4.669E-5 1 IRSET PTSL 1 + PU239 = Pu239 1.465E-3 1 IRSET PTSL 1 + PU240 = Pu240 5.691E-4 1 IRSET PTSL 1 + PU241 = Pu241 2.713E-4 1 IRSET PTSL 1 + PU242 = Pu242 1.413E-4 1 IRSET PTSL 1 + AM241 = Am241 3.028E-5 1 IRSET PTSL 1 + O16 = O16 4.588E-2 + MIX <> COMB <> 1.0 (*COMB0102*) + MIX <> COMB <> 1.0 (*COMB0103*) + MIX <> COMB <> 1.0 (*COMB0104*) + MIX <> COMB <> 1.0 (*COMB0105*) + MIX <> COMB <> 1.0 (*COMB0106*) + MIX <> 300.0 (*GAIN1*) + ZR = Zr0 3.88E-2 2 IRSET PTSL 1 + MIX <> 293.0 (*MODE1*) + H1 = H1_H2O 4.744E-2 + O16 = O16 2.372E-2 + MIX <> 293.0 (*MODE2*) + H1 = H1_H2O 4.744E-2 + O16 = O16 2.372E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: EDIT 1 TRAN PASS 3 GRMIN 45 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.202230 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +*---- +* Ribon extended with correlation +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 9 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + PTSL (*CALENDF TYPE PROBABILITY TABLES*) +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 560.0 (*COMB0101*) + U235 = U235 5.105E-5 1 IRSET PTSL 1 + U238 = U238 2.037E-2 CORR 1 IRSET PTSL 1 + PU238 = Pu238 4.669E-5 1 IRSET PTSL 1 + PU239 = Pu239 1.465E-3 1 IRSET PTSL 1 + PU240 = Pu240 5.691E-4 CORR 1 IRSET PTSL 1 + PU241 = Pu241 2.713E-4 1 IRSET PTSL 1 + PU242 = Pu242 1.413E-4 1 IRSET PTSL 1 + AM241 = Am241 3.028E-5 1 IRSET PTSL 1 + O16 = O16 4.588E-2 + MIX <> COMB <> 1.0 (*COMB0102*) + MIX <> COMB <> 1.0 (*COMB0103*) + MIX <> COMB <> 1.0 (*COMB0104*) + MIX <> COMB <> 1.0 (*COMB0105*) + MIX <> COMB <> 1.0 (*COMB0106*) + MIX <> 300.0 (*GAIN1*) + ZR = Zr0 3.88E-2 2 IRSET PTSL 1 + MIX <> 293.0 (*MODE1*) + H1 = H1_H2O 4.744E-2 + O16 = O16 2.372E-2 + MIX <> 293.0 (*MODE2*) + H1 = H1_H2O 4.744E-2 + O16 = O16 2.372E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: EDIT 1 TRAN PASS 4 GRMIN 45 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.204836 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +ECHO "test mox_6c_case2 completed" ; +END: ; diff --git a/Dragon/data/trowland_proc/mox_6c_case3.c2m b/Dragon/data/trowland_proc/mox_6c_case3.c2m new file mode 100644 index 0000000..a339190 --- /dev/null +++ b/Dragon/data/trowland_proc/mox_6c_case3.c2m @@ -0,0 +1,205 @@ +*---- +* +* TEST CASE mox_6c_case3 +* THIRD MOX ROWLAND'S BENCHMARK +* DISTRIBUTED SELF-SHIELDING +* 172-GROUP JEF2.2 DRAGLIB +* +* Author: A. Hebert +* +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEOM TRACK LIBRARY LIBRARY2 CP FLUX ; +MODULE LIB: GEO: SYBILT: SHI: USS: ASM: FLU: DELETE: END: ; +INTEGER COMB0101 COMB0102 COMB0103 COMB0104 COMB0105 COMB0106 GAIN1 + MODE1 MODE2 := + 1 2 3 4 5 6 7 8 9 ; (* DISTRIBUTED SELF-SHIELDING *) +REAL RCOMB1 RCOMB2 RCOMB3 RCOMB4 RCOMB5 RCOMB6 ; +PROCEDURE assertS ; +* +EVALUATE RCOMB1 RCOMB2 RCOMB3 RCOMB4 RCOMB5 RCOMB6 := 0.259307 +0.343031 0.366715 0.388960 0.3996186 0.41 ; +GEOM := GEO: :: TUBE 9 + R+ REFL + RADIUS 0.0 <> <> <> <> + <> <> 0.475 0.6045552 0.710879 + MIX <> <> <> <> + <> <> <> <> <> + ; +TRACK := SYBILT: GEOM :: + TITLE 'THIRD MOX ROWLAND S BENCHMARK' + MAXR 20 QUA1 5 ; +*---- +* SHI LEVEL 1 +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 9 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 300.0 (*COMB0101*) + U235 = U235 5.118E-5 1 IRSET 0.0 81 + U238 = U238 2.042E-2 1 IRSET 0.0 81 + PU239 = Pu239 1.972E-3 1 IRSET 0.0 81 + PU238 = Pu238 2.714E-5 1 IRSET 0.0 81 + PU240 = Pu240 4.256E-4 1 IRSET 0.0 81 + PU241 = Pu241 3.577E-5 1 IRSET 0.0 81 + PU242 = Pu242 1.234E-5 1 IRSET 0.0 81 + AM241 = Am241 1.406E-5 1 IRSET 0.0 81 + O16 = O16 4.588E-2 + MIX <> COMB <> 1.0 (*COMB0102*) + MIX <> COMB <> 1.0 (*COMB0103*) + MIX <> COMB <> 1.0 (*COMB0104*) + MIX <> COMB <> 1.0 (*COMB0105*) + MIX <> COMB <> 1.0 (*COMB0106*) + MIX <> 300.0 (*GAIN1*) + ZR = Zr0 3.88E-2 2 IRSET 0.0 81 + MIX <> 293.0 (*MODE1*) + H1 = H1_H2O 4.744E-2 + O16 = O16 2.372E-2 + MIX <> 293.0 (*MODE2*) + H1 = H1_H2O 4.744E-2 + O16 = O16 2.372E-2 + ; +LIBRARY2 := SHI: LIBRARY TRACK :: EDIT 1 LJ GRMIN 45 LEVEL 1 MXIT 3 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.255316 ; +LIBRARY2 CP FLUX := DELETE: LIBRARY2 CP FLUX ; +*---- +* SHI LEVEL 2 +*---- +LIBRARY2 := SHI: LIBRARY TRACK :: EDIT 1 LJ GRMIN 45 LEVEL 2 MXIT 3 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.260489 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +*---- +* USS +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 9 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + SUBG (*HELIOS TYPE PROBABILITY TABLES*) +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 300.0 (*COMB0101*) + U235 = U235 5.118E-5 1 IRSET 0.0 81 + U238 = U238 2.042E-2 1 IRSET 0.0 81 + PU239 = Pu239 1.972E-3 1 IRSET 0.0 81 + PU238 = Pu238 2.714E-5 1 IRSET 0.0 81 + PU240 = Pu240 4.256E-4 1 IRSET 0.0 81 + PU241 = Pu241 3.577E-5 1 IRSET 0.0 81 + PU242 = Pu242 1.234E-5 1 IRSET 0.0 81 + AM241 = Am241 1.406E-5 1 IRSET 0.0 81 + O16 = O16 4.588E-2 + MIX <> COMB <> 1.0 (*COMB0102*) + MIX <> COMB <> 1.0 (*COMB0103*) + MIX <> COMB <> 1.0 (*COMB0104*) + MIX <> COMB <> 1.0 (*COMB0105*) + MIX <> COMB <> 1.0 (*COMB0106*) + MIX <> 300.0 (*GAIN1*) + ZR = Zr0 3.88E-2 2 IRSET 0.0 81 + MIX <> 293.0 (*MODE1*) + H1 = H1_H2O 4.744E-2 + O16 = O16 2.372E-2 + MIX <> 293.0 (*MODE2*) + H1 = H1_H2O 4.744E-2 + O16 = O16 2.372E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: EDIT 1 TRAN PASS 3 GRMIN 45 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.259171 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +*---- +* Ribon extended +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 9 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + PTSL (*CALENDF TYPE PROBABILITY TABLES*) +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 300.0 (*COMB0101*) + U235 = U235 5.118E-5 1 IRSET PTSL 1 + U238 = U238 2.042E-2 1 IRSET PTSL 1 + PU239 = Pu239 1.972E-3 1 IRSET PTSL 1 + PU238 = Pu238 2.714E-5 1 IRSET PTSL 1 + PU240 = Pu240 4.256E-4 1 IRSET PTSL 1 + PU241 = Pu241 3.577E-5 1 IRSET PTSL 1 + PU242 = Pu242 1.234E-5 1 IRSET PTSL 1 + AM241 = Am241 1.406E-5 1 IRSET PTSL 1 + O16 = O16 4.588E-2 + MIX <> COMB <> 1.0 (*COMB0102*) + MIX <> COMB <> 1.0 (*COMB0103*) + MIX <> COMB <> 1.0 (*COMB0104*) + MIX <> COMB <> 1.0 (*COMB0105*) + MIX <> COMB <> 1.0 (*COMB0106*) + MIX <> 300.0 (*GAIN1*) + ZR = Zr0 3.88E-2 2 IRSET PTSL 1 + MIX <> 293.0 (*MODE1*) + H1 = H1_H2O 4.744E-2 + O16 = O16 2.372E-2 + MIX <> 293.0 (*MODE2*) + H1 = H1_H2O 4.744E-2 + O16 = O16 2.372E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: EDIT 1 TRAN PASS 3 GRMIN 45 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.259364 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +*---- +* Ribon extended with correlation +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 9 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + PTSL (*CALENDF TYPE PROBABILITY TABLES*) +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 300.0 (*COMB0101*) + U235 = U235 5.118E-5 1 IRSET PTSL 1 + U238 = U238 2.042E-2 CORR 1 IRSET PTSL 1 + PU238 = Pu238 2.714E-5 1 IRSET PTSL 1 + PU239 = Pu239 1.972E-3 1 IRSET PTSL 1 + PU240 = Pu240 4.256E-4 CORR 1 IRSET PTSL 1 + PU241 = Pu241 3.577E-5 1 IRSET PTSL 1 + PU242 = Pu242 1.234E-5 1 IRSET PTSL 1 + AM241 = Am241 1.406E-5 1 IRSET PTSL 1 + O16 = O16 4.588E-2 + MIX <> COMB <> 1.0 (*COMB0102*) + MIX <> COMB <> 1.0 (*COMB0103*) + MIX <> COMB <> 1.0 (*COMB0104*) + MIX <> COMB <> 1.0 (*COMB0105*) + MIX <> COMB <> 1.0 (*COMB0106*) + MIX <> 300.0 (*GAIN1*) + ZR = Zr0 3.88E-2 2 IRSET PTSL 1 + MIX <> 293.0 (*MODE1*) + H1 = H1_H2O 4.744E-2 + O16 = O16 2.372E-2 + MIX <> 293.0 (*MODE2*) + H1 = H1_H2O 4.744E-2 + O16 = O16 2.372E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: EDIT 1 TRAN PASS 4 GRMIN 45 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.261451 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +ECHO "test mox_6c_case3 completed" ; +END: ; diff --git a/Dragon/data/trowland_proc/mox_6c_case4.c2m b/Dragon/data/trowland_proc/mox_6c_case4.c2m new file mode 100644 index 0000000..92edf56 --- /dev/null +++ b/Dragon/data/trowland_proc/mox_6c_case4.c2m @@ -0,0 +1,205 @@ +*---- +* +* TEST CASE mox_6c_case4 +* FOURTH MOX ROWLAND'S BENCHMARK +* DISTRIBUTED SELF-SHIELDING +* 172-GROUP JEF2.2 DRAGLIB +* +* Author: A. Hebert +* +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEOM TRACK LIBRARY LIBRARY2 CP FLUX ; +MODULE LIB: GEO: SYBILT: SHI: USS: ASM: FLU: DELETE: END: ; +INTEGER COMB0101 COMB0102 COMB0103 COMB0104 COMB0105 COMB0106 GAIN1 + MODE1 MODE2 := + 1 2 3 4 5 6 7 8 9 ; (* DISTRIBUTED SELF-SHIELDING *) +REAL RCOMB1 RCOMB2 RCOMB3 RCOMB4 RCOMB5 RCOMB6 ; +PROCEDURE assertS ; +* +EVALUATE RCOMB1 RCOMB2 RCOMB3 RCOMB4 RCOMB5 RCOMB6 := 0.259307 +0.343031 0.366715 0.388960 0.3996186 0.41 ; +GEOM := GEO: :: TUBE 9 + R+ REFL + RADIUS 0.0 <> <> <> <> + <> <> 0.475 0.6045552 0.710879 + MIX <> <> <> <> + <> <> <> <> <> + ; +TRACK := SYBILT: GEOM :: + TITLE 'FOURTH MOX ROWLAND S BENCHMARK' + MAXR 20 QUA1 5 ; +*---- +* SHI LEVEL 1 +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 9 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 560.0 (*COMB0101*) + U235 = U235 5.118E-5 1 IRSET 0.0 81 + U238 = U238 2.042E-2 1 IRSET 0.0 81 + PU238 = Pu238 2.714E-5 1 IRSET 0.0 81 + PU239 = Pu239 1.972E-3 1 IRSET 0.0 81 + PU240 = Pu240 4.256E-4 1 IRSET 0.0 81 + PU241 = Pu241 3.577E-5 1 IRSET 0.0 81 + PU242 = Pu242 1.234E-5 1 IRSET 0.0 81 + AM241 = Am241 1.406E-5 + O16 = O16 4.588E-2 + MIX <> COMB <> 1.0 (*COMB0102*) + MIX <> COMB <> 1.0 (*COMB0103*) + MIX <> COMB <> 1.0 (*COMB0104*) + MIX <> COMB <> 1.0 (*COMB0105*) + MIX <> COMB <> 1.0 (*COMB0106*) + MIX <> 300.0 (*GAIN1*) + ZR = Zr0 3.88E-2 2 IRSET 0.0 81 + MIX <> 293.0 (*MODE1*) + H1 = H1_H2O 4.744E-2 + O16 = O16 2.372E-2 + MIX <> 293.0 (*MODE2*) + H1 = H1_H2O 4.744E-2 + O16 = O16 2.372E-2 + ; +LIBRARY2 := SHI: LIBRARY TRACK :: EDIT 1 LJ GRMIN 45 LEVEL 1 MXIT 3 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.240057 ; +LIBRARY2 CP FLUX := DELETE: LIBRARY2 CP FLUX ; +*---- +* SHI LEVEL 2 +*---- +LIBRARY2 := SHI: LIBRARY TRACK :: EDIT 1 LJ GRMIN 45 LEVEL 2 MXIT 3 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.246576 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +*---- +* USS +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 9 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + SUBG (*HELIOS TYPE PROBABILITY TABLES*) +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 560.0 (*COMB0101*) + U235 = U235 5.118E-5 1 IRSET 0.0 81 + U238 = U238 2.042E-2 1 IRSET 0.0 81 + PU238 = Pu238 2.714E-5 1 IRSET 0.0 81 + PU239 = Pu239 1.972E-3 1 IRSET 0.0 81 + PU240 = Pu240 4.256E-4 1 IRSET 0.0 81 + PU241 = Pu241 3.577E-5 1 IRSET 0.0 81 + PU242 = Pu242 1.234E-5 1 IRSET 0.0 81 + AM241 = Am241 1.406E-5 1 IRSET 0.0 81 + O16 = O16 4.588E-2 + MIX <> COMB <> 1.0 (*COMB0102*) + MIX <> COMB <> 1.0 (*COMB0103*) + MIX <> COMB <> 1.0 (*COMB0104*) + MIX <> COMB <> 1.0 (*COMB0105*) + MIX <> COMB <> 1.0 (*COMB0106*) + MIX <> 300.0 (*GAIN1*) + ZR = Zr0 3.88E-2 2 IRSET 0.0 81 + MIX <> 293.0 (*MODE1*) + H1 = H1_H2O 4.744E-2 + O16 = O16 2.372E-2 + MIX <> 293.0 (*MODE2*) + H1 = H1_H2O 4.744E-2 + O16 = O16 2.372E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: EDIT 1 TRAN PASS 3 GRMIN 45 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.245146 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +*---- +* Ribon extended +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 9 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + PTSL (*CALENDF TYPE PROBABILITY TABLES*) +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 560.0 (*COMB0101*) + U235 = U235 5.118E-5 1 IRSET PTSL 1 + U238 = U238 2.042E-2 1 IRSET PTSL 1 + PU238 = Pu238 2.714E-5 1 IRSET PTSL 1 + PU239 = Pu239 1.972E-3 1 IRSET PTSL 1 + PU240 = Pu240 4.256E-4 1 IRSET PTSL 1 + PU241 = Pu241 3.577E-5 1 IRSET PTSL 1 + PU242 = Pu242 1.234E-5 1 IRSET PTSL 1 + AM241 = Am241 1.406E-5 1 IRSET PTSL 1 + O16 = O16 4.588E-2 + MIX <> COMB <> 1.0 (*COMB0102*) + MIX <> COMB <> 1.0 (*COMB0103*) + MIX <> COMB <> 1.0 (*COMB0104*) + MIX <> COMB <> 1.0 (*COMB0105*) + MIX <> COMB <> 1.0 (*COMB0106*) + MIX <> 300.0 (*GAIN1*) + ZR = Zr0 3.88E-2 2 IRSET PTSL 1 + MIX <> 293.0 (*MODE1*) + H1 = H1_H2O 4.744E-2 + O16 = O16 2.372E-2 + MIX <> 293.0 (*MODE2*) + H1 = H1_H2O 4.744E-2 + O16 = O16 2.372E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: EDIT 1 TRAN PASS 3 GRMIN 45 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.245467 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +*---- +* Ribon extended with correlation +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 9 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + PTSL (*CALENDF TYPE PROBABILITY TABLES*) +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 560.0 (*COMB0101*) + U235 = U235 5.118E-5 1 IRSET PTSL 1 + U238 = U238 2.042E-2 CORR 1 IRSET PTSL 1 + PU238 = Pu238 2.714E-5 1 IRSET PTSL 1 + PU239 = Pu239 1.972E-3 1 IRSET PTSL 1 + PU240 = Pu240 4.256E-4 CORR 1 IRSET PTSL 1 + PU241 = Pu241 3.577E-5 1 IRSET PTSL 1 + PU242 = Pu242 1.234E-5 1 IRSET PTSL 1 + AM241 = Am241 1.406E-5 1 IRSET PTSL 1 + O16 = O16 4.588E-2 + MIX <> COMB <> 1.0 (*COMB0102*) + MIX <> COMB <> 1.0 (*COMB0103*) + MIX <> COMB <> 1.0 (*COMB0104*) + MIX <> COMB <> 1.0 (*COMB0105*) + MIX <> COMB <> 1.0 (*COMB0106*) + MIX <> 300.0 (*GAIN1*) + ZR = Zr0 3.88E-2 2 IRSET PTSL 1 + MIX <> 293.0 (*MODE1*) + H1 = H1_H2O 4.744E-2 + O16 = O16 2.372E-2 + MIX <> 293.0 (*MODE2*) + H1 = H1_H2O 4.744E-2 + O16 = O16 2.372E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: EDIT 1 TRAN PASS 4 GRMIN 45 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.247720 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +ECHO "test mox_6c_case4 completed" ; +END: ; diff --git a/Dragon/data/trowland_proc/mox_6c_case5.c2m b/Dragon/data/trowland_proc/mox_6c_case5.c2m new file mode 100644 index 0000000..b3b9ef1 --- /dev/null +++ b/Dragon/data/trowland_proc/mox_6c_case5.c2m @@ -0,0 +1,119 @@ +*---- +* +* TEST CASE mox_6c_case5 +* FIFTH MOX ROWLAND'S BENCHMARK +* DISTRIBUTED SELF-SHIELDING +* 172-GROUP JEF2.2 DRAGLIB +* +* Author: A. Hebert +* +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEOM TRACK LIBRARY LIBRARY2 CP CALC ; +MODULE LIB: GEO: SYBILT: USS: ASM: FLU: ; +INTEGER COMB0101 COMB0102 COMB0103 COMB0104 COMB0105 COMB0106 GAIN1 + MODE1 MODE2 := + 1 2 3 4 5 6 7 8 9 ; (* DISTRIBUTED SELF-SHIELDING *) +REAL RCOMB1 RCOMB2 RCOMB3 RCOMB4 RCOMB5 RCOMB6 ; +PROCEDURE assertS ; +* +EVALUATE RCOMB1 RCOMB2 RCOMB3 RCOMB4 RCOMB5 RCOMB6 := 0.259307 +0.343031 0.366715 0.388960 0.3996186 0.41 ; +GEOM := GEO: :: TUBE 9 + R+ REFL + RADIUS 0.0 <> <> <> <> + <> <> 0.475 0.6045552 0.710879 + MIX <> <> <> <> + <> <> <> <> <> + ; +TRACK := SYBILT: GEOM :: + TITLE 'FIFTH MOX ROWLAND S BENCHMARK' + MAXR 20 QUA1 5 ; +*---- +* USS +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 9 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + SUBG +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 900.0 (*COMB0101*) + U235 = U235 5.105E-5 1 IRSET 0.0 81 + U238 = U238 2.037E-2 1 IRSET 0.0 81 + PU238 = Pu238 4.669E-5 1 IRSET 0.0 81 + PU239 = Pu239 1.465E-3 1 IRSET 0.0 81 + PU240 = Pu240 5.691E-4 1 IRSET 0.0 81 + PU241 = Pu241 2.713E-4 1 IRSET 0.0 81 + PU242 = Pu242 1.413E-4 1 IRSET 0.0 81 + AM241 = Am241 3.028E-5 1 IRSET 0.0 81 + O16 = O16 4.588E-2 + MIX <> 700.0 (*COMB0101*) + U235 = U235 5.105E-5 1 IRSET 0.0 81 + U238 = U238 2.037E-2 1 IRSET 0.0 81 + PU238 = Pu238 4.669E-5 1 IRSET 0.0 81 + PU239 = Pu239 1.465E-3 1 IRSET 0.0 81 + PU240 = Pu240 5.691E-4 1 IRSET 0.0 81 + PU241 = Pu241 2.713E-4 1 IRSET 0.0 81 + PU242 = Pu242 1.413E-4 1 IRSET 0.0 81 + AM241 = Am241 3.028E-5 1 IRSET 0.0 81 + O16 = O16 4.588E-2 + MIX <> 500.0 (*COMB0101*) + U235 = U235 5.105E-5 1 IRSET 0.0 81 + U238 = U238 2.037E-2 1 IRSET 0.0 81 + PU238 = Pu238 4.669E-5 1 IRSET 0.0 81 + PU239 = Pu239 1.465E-3 1 IRSET 0.0 81 + PU240 = Pu240 5.691E-4 1 IRSET 0.0 81 + PU241 = Pu241 2.713E-4 1 IRSET 0.0 81 + PU242 = Pu242 1.413E-4 1 IRSET 0.0 81 + AM241 = Am241 3.028E-5 1 IRSET 0.0 81 + O16 = O16 4.588E-2 + MIX <> 400.0 (*COMB0101*) + U235 = U235 5.105E-5 1 IRSET 0.0 81 + U238 = U238 2.037E-2 1 IRSET 0.0 81 + PU238 = Pu238 4.669E-5 1 IRSET 0.0 81 + PU239 = Pu239 1.465E-3 1 IRSET 0.0 81 + PU240 = Pu240 5.691E-4 1 IRSET 0.0 81 + PU241 = Pu241 2.713E-4 1 IRSET 0.0 81 + PU242 = Pu242 1.413E-4 1 IRSET 0.0 81 + AM241 = Am241 3.028E-5 1 IRSET 0.0 81 + O16 = O16 4.588E-2 + MIX <> 350.0 (*COMB0101*) + U235 = U235 5.105E-5 1 IRSET 0.0 81 + U238 = U238 2.037E-2 1 IRSET 0.0 81 + PU238 = Pu238 4.669E-5 1 IRSET 0.0 81 + PU239 = Pu239 1.465E-3 1 IRSET 0.0 81 + PU240 = Pu240 5.691E-4 1 IRSET 0.0 81 + PU241 = Pu241 2.713E-4 1 IRSET 0.0 81 + PU242 = Pu242 1.413E-4 1 IRSET 0.0 81 + AM241 = Am241 3.028E-5 1 IRSET 0.0 81 + O16 = O16 4.588E-2 + MIX <> 300.0 (*COMB0101*) + U235 = U235 5.105E-5 1 IRSET 0.0 81 + U238 = U238 2.037E-2 1 IRSET 0.0 81 + PU238 = Pu238 4.669E-5 1 IRSET 0.0 81 + PU239 = Pu239 1.465E-3 1 IRSET 0.0 81 + PU240 = Pu240 5.691E-4 1 IRSET 0.0 81 + PU241 = Pu241 2.713E-4 1 IRSET 0.0 81 + PU242 = Pu242 1.413E-4 1 IRSET 0.0 81 + AM241 = Am241 3.028E-5 1 IRSET 0.0 81 + O16 = O16 4.588E-2 + MIX <> 300.0 (*GAIN1*) + ZR = Zr0 3.88E-2 2 IRSET 0.0 81 + MIX <> 293.6 (*MODE1*) + H1 = H1_H2O 4.744E-2 + O16 = O16 2.372E-2 + MIX <> 293.6 (*MODE2*) + H1 = H1_H2O 4.744E-2 + O16 = O16 2.372E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: EDIT 1 TRAN PASS 5 GRMIN 45 ; +CP := ASM: LIBRARY2 TRACK :: EDIT 1 PIJ ; +CALC := FLU: CP LIBRARY2 TRACK :: EDIT 1 TYPE K ; +assertS CALC :: K-EFFECTIVE 1 1.209962 ; +ECHO "test mox_6c_case5 completed" ; +QUIT "LIST" . diff --git a/Dragon/data/trowland_proc/uo2_1c_case1.c2m b/Dragon/data/trowland_proc/uo2_1c_case1.c2m new file mode 100644 index 0000000..b6d78c6 --- /dev/null +++ b/Dragon/data/trowland_proc/uo2_1c_case1.c2m @@ -0,0 +1,139 @@ +*---- +* +* TEST CASE uo2_1c_case1 +* FIRST UO2 ROWLAND'S BENCHMARK +* UNIFORM SELF-SHIELDING +* 172-GROUP JEF2.2 DRAGLIB +* +* Author: A. Hebert +* +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEOM TRACK LIBRARY LIBRARY2 CP FLUX ; +MODULE LIB: GEO: SYBILT: SHI: USS: ASM: FLU: DELETE: END: ; +PROCEDURE assertS ; +* +GEOM := GEO: :: TUBE 3 + R+ REFL + RADIUS 0.0 0.4 0.45 0.6770275 + SPLITR 2 1 1 + MIX 1 2 3 ; +TRACK := SYBILT: GEOM :: + TITLE 'FIRST UO2 ROWLAND S BENCHMARK' + MAXR 20 QUA1 5 ; +*---- +* SHI +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 3 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX 1 293.0 + U235 = U235 7.0803E-4 1 + U238 = U238 2.2604E-2 1 + O16 = O16 4.6624E-2 + MIX 2 293.0 + Zr0 = Zr0 4.3241E-2 2 + MIX 3 293.0 + H1 = H1_H2O 6.6988E-2 + O16 = O16 3.3494E-2 + ; +LIBRARY := SHI: LIBRARY TRACK :: EDIT 1 LJ GRMIN 45 ; +CP := ASM: LIBRARY TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY TRACK :: TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.383546 ; +LIBRARY CP FLUX := DELETE: LIBRARY CP FLUX ; +*---- +* USS +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 3 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + SUBG (*HELIOS TYPE PROBABILITY TABLES*) + + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX 1 293.0 + U235 = U235 7.0803E-4 1 IRSET 0.0 81 + U238 = U238 2.2604E-2 1 IRSET 0.0 81 + O16 = O16 4.6624E-2 + MIX 2 293.0 + Zr0 = Zr0 4.3241E-2 2 IRSET 0.0 81 + MIX 3 293.0 + H1 = H1_H2O 6.6988E-2 + O16 = O16 3.3494E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: + EDIT 1 TRAN PASS 2 GRMIN 45 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: +TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.386392 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +*---- +* Ribon extended +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 3 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + PTSL (*CALENDF TYPE PROBABILITY TABLES*) + + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX 1 293.0 + U235 = U235 7.0803E-4 1 IRSET PTSL 1 + U238 = U238 2.2604E-2 1 IRSET PTSL 1 + O16 = O16 4.6624E-2 + MIX 2 293.0 + Zr0 = Zr0 4.3241E-2 2 IRSET PTSL 1 + MIX 3 293.0 + H1 = H1_H2O 6.6988E-2 + O16 = O16 3.3494E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: + EDIT 1 TRAN PASS 2 GRMIN 45 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: +TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.385827 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +*---- +* Ribon extended with correlation +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 3 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + PTSL (*CALENDF TYPE PROBABILITY TABLES*) + + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX 1 293.0 + U235 = U235 7.0803E-4 1 CORR 1 IRSET PTSL 1 + U238 = U238 2.2604E-2 1 CORR 1 IRSET PTSL 1 + O16 = O16 4.6624E-2 + MIX 2 293.0 + Zr0 = Zr0 4.3241E-2 2 IRSET PTSL 1 + MIX 3 293.0 + H1 = H1_H2O 6.6988E-2 + O16 = O16 3.3494E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: + EDIT 1 TRAN PASS 4 GRMIN 45 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: +TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.385731 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +ECHO "test uo2_1c_case1 completed" ; +END: ; diff --git a/Dragon/data/trowland_proc/uo2_1c_case2.c2m b/Dragon/data/trowland_proc/uo2_1c_case2.c2m new file mode 100644 index 0000000..45ad2eb --- /dev/null +++ b/Dragon/data/trowland_proc/uo2_1c_case2.c2m @@ -0,0 +1,139 @@ +*---- +* +* TEST CASE uo2_1c_case2 +* SECOND UO2 ROWLAND'S BENCHMARK +* UNIFORM SELF-SHIELDING +* 172-GROUP JEF2.2 DRAGLIB +* +* Author: A. Hebert +* +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEOM TRACK LIBRARY LIBRARY2 CP FLUX ; +MODULE LIB: GEO: SYBILT: SHI: USS: ASM: FLU: DELETE: END: ; +PROCEDURE assertS ; +* +GEOM := GEO: :: TUBE 3 + R+ REFL + RADIUS 0.0 0.4 0.45 0.6770275 + SPLITR 2 1 1 + MIX 1 2 3 ; +TRACK := SYBILT: GEOM :: + TITLE 'SECOND UO2 ROWLAND S BENCHMARK' + MAXR 20 QUA1 5 ; +*---- +* SHI +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 3 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX 1 293.0 + O16 = O16 4.6624E-2 + U235 = U235 7.0803E-4 1 + U238 = U238 2.2604E-2 1 + MIX 2 293.0 + Zr0 = Zr0 4.3241E-2 2 + MIX 3 293.0 + H1 = H1_H2O 4.6892E-2 + O16 = O16 2.3446E-2 + ; +LIBRARY := SHI: LIBRARY TRACK :: EDIT 1 LJ GRMIN 45 ; +CP := ASM: LIBRARY TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY TRACK :: TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.330381 ; +LIBRARY CP FLUX := DELETE: LIBRARY CP FLUX ; +*---- +* USS +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 3 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + SUBG (*HELIOS TYPE PROBABILITY TABLES*) +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX 1 293.0 + O16 = O16 4.6624E-2 + U235 = U235 7.0803E-4 1 IRSET 0.0 81 + U238 = U238 2.2604E-2 1 IRSET 0.0 81 + MIX 2 293.0 + Zr0 = Zr0 4.3241E-2 2 IRSET 0.0 81 + MIX 3 293.0 + H1 = H1_H2O 4.6892E-2 + O16 = O16 2.3446E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: + EDIT 1 TRAN PASS 2 GRMIN 45 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: +TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.333523 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +*---- +* Ribon extended +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 3 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + PTSL (*CALENDF TYPE PROBABILITY TABLES*) +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX 1 293.0 + O16 = O16 4.6624E-2 + U235 = U235 7.0803E-4 1 IRSET PTSL 1 + U238 = U238 2.2604E-2 1 IRSET PTSL 1 + MIX 2 293.0 + Zr0 = Zr0 4.3241E-2 2 IRSET PTSL 1 + MIX 3 293.0 + H1 = H1_H2O 4.6892E-2 + O16 = O16 2.3446E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: + EDIT 1 TRAN PASS 2 GRMIN 45 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: +TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.332833 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +*---- +* Ribon extended with correlation +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 3 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + PTSL (*CALENDF TYPE PROBABILITY TABLES*) +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX 1 293.0 + O16 = O16 4.6624E-2 + U235 = U235 7.0803E-4 1 CORR 1 IRSET PTSL 1 + U238 = U238 2.2604E-2 1 CORR 1 IRSET PTSL 1 + MIX 2 293.0 + Zr0 = Zr0 4.3241E-2 2 IRSET PTSL 1 + MIX 3 293.0 + H1 = H1_H2O 4.6892E-2 + O16 = O16 2.3446E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: + EDIT 1 TRAN PASS 4 GRMIN 45 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: +TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.332671 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +ECHO "test uo2_1c_case2 completed" ; +END: ; diff --git a/Dragon/data/trowland_proc/uo2_1c_case3.c2m b/Dragon/data/trowland_proc/uo2_1c_case3.c2m new file mode 100644 index 0000000..63a5bd3 --- /dev/null +++ b/Dragon/data/trowland_proc/uo2_1c_case3.c2m @@ -0,0 +1,143 @@ +*---- +* +* TEST CASE uo2_1c_case3 +* THIRD UO2 ROWLAND'S BENCHMARK +* UNIFORM SELF-SHIELDING +* 172-GROUP JEF2.2 DRAGLIB +* +* Author: A. Hebert +* +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEOM TRACK LIBRARY LIBRARY2 CP FLUX ; +MODULE LIB: GEO: SYBILT: SHI: USS: ASM: FLU: DELETE: END: ; +PROCEDURE assertS ; +* +GEOM := GEO: :: TUBE 3 + R+ REFL + RADIUS 0.0 0.4 0.45 0.6770275 + SPLITR 2 1 1 + MIX 1 2 3 ; +TRACK := SYBILT: GEOM :: + TITLE 'THIRD UO2 ROWLAND S BENCHMARK' + MAXR 20 QUA1 5 ; +*---- +* SHI +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 3 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX 1 900.0 + U235 = U235 7.0803E-4 1 + U238 = U238 2.2604E-2 1 + O16 = O16 4.6624E-2 + MIX 2 600.0 + Zr0 = Zr0 4.3241E-2 2 + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX 3 574.0 + H1 = H1_H2O 4.6892E-2 + O16 = O16 2.3446E-2 + ; +LIBRARY := SHI: LIBRARY TRACK :: EDIT 1 LJ GRMIN 45 ; +CP := ASM: LIBRARY TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY TRACK :: TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.296387 ; +LIBRARY CP FLUX := DELETE: LIBRARY CP FLUX ; +*---- +* USS +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 3 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + SUBG (*HELIOS TYPE PROBABILITY TABLES*) +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX 1 900.0 + U235 = U235 7.0803E-4 1 IRSET 0.0 81 + U238 = U238 2.2604E-2 1 IRSET 0.0 81 + O16 = O16 4.6624E-2 + MIX 2 600.0 + Zr0 = Zr0 4.3241E-2 2 IRSET 0.0 81 + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX 3 574.0 + H1 = H1_H2O 4.6892E-2 + O16 = O16 2.3446E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: + EDIT 1 TRAN PASS 2 GRMIN 45 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: +TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.301136 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +*---- +* Ribon extended +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 3 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + PTSL (*CALENDF TYPE PROBABILITY TABLES*) +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX 1 900.0 + U235 = U235 7.0803E-4 1 IRSET PTSL 1 + U238 = U238 2.2604E-2 1 IRSET PTSL 1 + O16 = O16 4.6624E-2 + MIX 2 600.0 + Zr0 = Zr0 4.3241E-2 2 IRSET PTSL 1 + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX 3 574.0 + H1 = H1_H2O 4.6892E-2 + O16 = O16 2.3446E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: + EDIT 1 TRAN PASS 2 GRMIN 45 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: +TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.300764 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +*---- +* Ribon extended with correlation +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 3 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + PTSL (*CALENDF TYPE PROBABILITY TABLES*) +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX 1 900.0 + U235 = U235 7.0803E-4 1 CORR 1 IRSET PTSL 1 + U238 = U238 2.2604E-2 1 CORR 1 IRSET PTSL 1 + O16 = O16 4.6624E-2 + MIX 2 600.0 + Zr0 = Zr0 4.3241E-2 2 IRSET PTSL 1 + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX 3 574.0 + H1 = H1_H2O 4.6892E-2 + O16 = O16 2.3446E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: + EDIT 1 TRAN PASS 4 GRMIN 45 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: +TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.300509 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +ECHO "test uo2_1c_case3 completed" ; +END: ; diff --git a/Dragon/data/trowland_proc/uo2_1c_case4.c2m b/Dragon/data/trowland_proc/uo2_1c_case4.c2m new file mode 100644 index 0000000..a491d90 --- /dev/null +++ b/Dragon/data/trowland_proc/uo2_1c_case4.c2m @@ -0,0 +1,139 @@ +*---- +* +* TEST CASE uo2_1c_case4 +* FOURTH UO2 ROWLAND'S BENCHMARK +* UNIFORM SELF-SHIELDING +* 172-GROUP JEF2.2 DRAGLIB +* +* Author: A. Hebert +* +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEOM TRACK LIBRARY LIBRARY2 CP FLUX ; +MODULE LIB: GEO: SYBILT: SHI: USS: ASM: FLU: DELETE: END: ; +PROCEDURE assertS ; +* +GEOM := GEO: :: TUBE 3 + R+ REFL + RADIUS 0.0 0.4 0.45 0.6770275 + SPLITR 2 1 1 + MIX 1 2 3 ; +TRACK := SYBILT: GEOM :: + TITLE 'FOURTH UO2 ROWLAND S BENCHMARK' + MAXR 20 QUA1 5 ; +*---- +* SHI +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 3 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX 1 574.0 + O16 = O16 4.6624E-2 + U235 = U235 7.0803E-4 1 + U238 = U238 2.2604E-2 1 + MIX 2 574.0 + Zr0 = Zr0 4.3241E-2 2 + MIX 3 574.0 + H1 = H1_H2O 4.6892E-2 + O16 = O16 2.3446E-2 + ; +LIBRARY := SHI: LIBRARY TRACK :: EDIT 1 LJ GRMIN 45 ; +CP := ASM: LIBRARY TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY TRACK :: TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.310755 ; +LIBRARY CP FLUX := DELETE: LIBRARY CP FLUX ; +*---- +* USS +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 3 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + SUBG (*HELIOS TYPE PROBABILITY TABLES*) +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX 1 574.0 + O16 = O16 4.6624E-2 + U235 = U235 7.0803E-4 1 IRSET 0.0 81 + U238 = U238 2.2604E-2 1 IRSET 0.0 81 + MIX 2 574.0 + Zr0 = Zr0 4.3241E-2 2 IRSET 0.0 81 + MIX 3 574.0 + H1 = H1_H2O 4.6892E-2 + O16 = O16 2.3446E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: + EDIT 1 TRAN PASS 2 GRMIN 45 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: +TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.314775 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +*---- +* Ribon extended +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 3 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + PTSL (*CALENDF TYPE PROBABILITY TABLES*) +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX 1 574.0 + O16 = O16 4.6624E-2 + U235 = U235 7.0803E-4 1 IRSET PTSL 1 + U238 = U238 2.2604E-2 1 IRSET PTSL 1 + MIX 2 574.0 + Zr0 = Zr0 4.3241E-2 2 IRSET PTSL 1 + MIX 3 574.0 + H1 = H1_H2O 4.6892E-2 + O16 = O16 2.3446E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: + EDIT 1 TRAN PASS 2 GRMIN 45 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: +TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.313890 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +*---- +* Ribon extended with correlation +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 3 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + PTSL (*CALENDF TYPE PROBABILITY TABLES*) +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX 1 574.0 + O16 = O16 4.6624E-2 + U235 = U235 7.0803E-4 1 CORR 1 IRSET PTSL 1 + U238 = U238 2.2604E-2 1 CORR 1 IRSET PTSL 1 + MIX 2 574.0 + Zr0 = Zr0 4.3241E-2 2 IRSET PTSL 1 + MIX 3 574.0 + H1 = H1_H2O 4.6892E-2 + O16 = O16 2.3446E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: + EDIT 1 TRAN PASS 4 GRMIN 45 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: +TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.313668 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +ECHO "test uo2_1c_case4 completed" ; +END: ; diff --git a/Dragon/data/trowland_proc/uo2_6c_case1.c2m b/Dragon/data/trowland_proc/uo2_6c_case1.c2m new file mode 100644 index 0000000..b6829e3 --- /dev/null +++ b/Dragon/data/trowland_proc/uo2_6c_case1.c2m @@ -0,0 +1,182 @@ +*---- +* +* TEST CASE uo2_6c_case1 +* FIRST UO2 ROWLAND'S BENCHMARK +* DISTRIBUTED SELF-SHIELDING +* 172-GROUP JEF2.2 DRAGLIB +* +* Author: A. Hebert +* +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEOM TRACK LIBRARY LIBRARY2 CP FLUX ; +MODULE LIB: GEO: SYBILT: SHI: USS: ASM: FLU: DELETE: END: ; +INTEGER COMB0101 COMB0102 COMB0103 COMB0104 COMB0105 COMB0106 GAIN1 + MODE1 MODE2 := + 1 2 3 4 5 6 7 8 9 ; (* DISTRIBUTED SELF-SHIELDING *) +REAL RCOMB1 RCOMB2 RCOMB3 RCOMB4 RCOMB5 RCOMB6 ; +PROCEDURE assertS ; +* +EVALUATE RCOMB1 RCOMB2 RCOMB3 RCOMB4 RCOMB5 RCOMB6 := 0.2529822 +0.334664 0.3577709 0.3794733 0.3898718 0.40 ; +GEOM := GEO: :: TUBE 9 + R+ REFL + RADIUS 0.0 <> <> <> <> + <> <> 0.45 0.5748331 0.6770275 + MIX <> <> <> <> + <> <> <> <> <> + ; +* +TRACK := SYBILT: GEOM :: + TITLE 'FIRST UO2 ROWLAND S BENCHMARK' + MAXR 20 QUA1 5 ; +*---- +* SHI LEVEL 1 +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 9 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 293.0 (*COMB0101*) + O16 = O16 4.6624E-2 + U235 = U235 7.0803E-4 1 IRSET 0.0 81 + U238 = U238 2.2604E-2 1 IRSET 0.0 81 + MIX <> COMB <> 1.0 (*COMB0102*) + MIX <> COMB <> 1.0 (*COMB0103*) + MIX <> COMB <> 1.0 (*COMB0104*) + MIX <> COMB <> 1.0 (*COMB0105*) + MIX <> COMB <> 1.0 (*COMB0106*) + MIX <> 293.0 (*GAIN1*) + Zr0 = Zr0 4.3241E-2 2 IRSET 0.0 81 + MIX <> 293.0 (*MODE1*) + H1 = H1_H2O 6.6988E-2 + O16 = O16 3.3494E-2 + MIX <> 293.0 (*MODE2*) + H1 = H1_H2O 6.6988E-2 + O16 = O16 3.3494E-2 +; +LIBRARY2 := SHI: LIBRARY TRACK :: EDIT 1 LJ GRMIN 45 LEVEL 1 MXIT 3 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.386497 ; +LIBRARY2 CP FLUX := DELETE: LIBRARY2 CP FLUX ; +*---- +* SHI LEVEL 2 +*---- +LIBRARY2 := SHI: LIBRARY TRACK :: EDIT 1 LJ GRMIN 45 LEVEL 2 MXIT 3 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.389577 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +*---- +* USS +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 9 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + SUBG (*HELIOS TYPE PROBABILITY TABLES*) +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 293.0 (*COMB0101*) + O16 = O16 4.6624E-2 + U235 = U235 7.0803E-4 1 IRSET 0.0 81 + U238 = U238 2.2604E-2 1 IRSET 0.0 81 + MIX <> COMB <> 1.0 (*COMB0102*) + MIX <> COMB <> 1.0 (*COMB0103*) + MIX <> COMB <> 1.0 (*COMB0104*) + MIX <> COMB <> 1.0 (*COMB0105*) + MIX <> COMB <> 1.0 (*COMB0106*) + MIX <> 293.0 (*GAIN1*) + Zr0 = Zr0 4.3241E-2 2 IRSET 0.0 81 + MIX <> 293.0 (*MODE1*) + H1 = H1_H2O 6.6988E-2 + O16 = O16 3.3494E-2 + MIX <> 293.0 (*MODE2*) + H1 = H1_H2O 6.6988E-2 + O16 = O16 3.3494E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: EDIT 1 TRAN PASS 2 GRMIN 45 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.387408 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +*---- +* Ribon extended +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 9 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + PTSL (*CALENDF TYPE PROBABILITY TABLES*) +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 293.0 (*COMB0101*) + O16 = O16 4.6624E-2 + U235 = U235 7.0803E-4 1 IRSET PTSL 1 + U238 = U238 2.2604E-2 1 IRSET PTSL 1 + MIX <> COMB <> 1.0 (*COMB0102*) + MIX <> COMB <> 1.0 (*COMB0103*) + MIX <> COMB <> 1.0 (*COMB0104*) + MIX <> COMB <> 1.0 (*COMB0105*) + MIX <> COMB <> 1.0 (*COMB0106*) + MIX <> 293.0 (*GAIN1*) + Zr0 = Zr0 4.3241E-2 2 IRSET PTSL 1 + MIX <> 293.0 (*MODE1*) + H1 = H1_H2O 6.6988E-2 + O16 = O16 3.3494E-2 + MIX <> 293.0 (*MODE2*) + H1 = H1_H2O 6.6988E-2 + O16 = O16 3.3494E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: EDIT 1 TRAN PASS 2 GRMIN 45 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.387702 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +*---- +* Ribon extended with correlation +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 9 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + PTSL (*CALENDF TYPE PROBABILITY TABLES*) +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 293.0 (*COMB0101*) + O16 = O16 4.6624E-2 + U235 = U235 7.0803E-4 CORR 1 IRSET PTSL 1 + U238 = U238 2.2604E-2 CORR 1 IRSET PTSL 1 + MIX <> COMB <> 1.0 (*COMB0102*) + MIX <> COMB <> 1.0 (*COMB0103*) + MIX <> COMB <> 1.0 (*COMB0104*) + MIX <> COMB <> 1.0 (*COMB0105*) + MIX <> COMB <> 1.0 (*COMB0106*) + MIX <> 293.0 (*GAIN1*) + Zr0 = Zr0 4.3241E-2 2 IRSET PTSL 1 + MIX <> 293.0 (*MODE1*) + H1 = H1_H2O 6.6988E-2 + O16 = O16 3.3494E-2 + MIX <> 293.0 (*MODE2*) + H1 = H1_H2O 6.6988E-2 + O16 = O16 3.3494E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: EDIT 1 TRAN PASS 4 GRMIN 45 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.387639 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +ECHO "test uo2_6c_case1 completed" ; +END: ; diff --git a/Dragon/data/trowland_proc/uo2_6c_case2.c2m b/Dragon/data/trowland_proc/uo2_6c_case2.c2m new file mode 100644 index 0000000..dd80751 --- /dev/null +++ b/Dragon/data/trowland_proc/uo2_6c_case2.c2m @@ -0,0 +1,182 @@ +*---- +* +* TEST CASE uo2_6c_case2 +* SECOND UO2 ROWLAND'S BENCHMARK +* DISTRIBUTED SELF-SHIELDING +* 172-GROUP JEF2.2 DRAGLIB +* +* Author: A. Hebert +* +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEOM TRACK LIBRARY LIBRARY2 CP FLUX ; +MODULE LIB: GEO: SYBILT: SHI: USS: ASM: FLU: DELETE: END: ; +INTEGER COMB0101 COMB0102 COMB0103 COMB0104 COMB0105 COMB0106 GAIN1 + MODE1 MODE2 := + 1 2 3 4 5 6 7 8 9 ; (* DISTRIBUTED SELF-SHIELDING *) +REAL RCOMB1 RCOMB2 RCOMB3 RCOMB4 RCOMB5 RCOMB6 ; +PROCEDURE assertS ; +* +EVALUATE RCOMB1 RCOMB2 RCOMB3 RCOMB4 RCOMB5 RCOMB6 := 0.2529822 +0.334664 0.3577709 0.3794733 0.3898718 0.40 ; +GEOM := GEO: :: TUBE 9 + R+ REFL + RADIUS 0.0 <> <> <> <> + <> <> 0.45 0.5748331 0.6770275 + MIX <> <> <> <> + <> <> <> <> <> + ; +* +TRACK := SYBILT: GEOM :: + TITLE 'SECOND UO2 ROWLAND S BENCHMARK' + MAXR 20 QUA1 5 ; +*---- +* SHI LEVEL 1 +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 9 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 6 nutot nudel NELAS N4N N2N N3N +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 293.0 (*COMB0101*) + O16 = O16 4.6624E-2 + U235 = U235 7.0803E-4 1 IRSET 0.0 81 + U238 = U238 2.2604E-2 1 IRSET 0.0 81 + MIX <> COMB <> 1.0 (*COMB0102*) + MIX <> COMB <> 1.0 (*COMB0103*) + MIX <> COMB <> 1.0 (*COMB0104*) + MIX <> COMB <> 1.0 (*COMB0105*) + MIX <> COMB <> 1.0 (*COMB0106*) + MIX <> 293.0 (*GAIN1*) + Zr0 = Zr0 4.3241E-2 2 IRSET 0.0 81 + MIX <> 293.0 (*MODE1*) + H1 = H1_H2O 4.6892E-2 + O16 = O16 2.3446E-2 + MIX <> 293.0 (*MODE2*) + H1 = H1_H2O 4.6892E-2 + O16 = O16 2.3446E-2 +; +LIBRARY2 := SHI: LIBRARY TRACK :: EDIT 1 LJ GRMIN 45 LEVEL 1 MXIT 3 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.334656 ; +LIBRARY2 CP FLUX := DELETE: LIBRARY2 CP FLUX ; +*---- +* SHI LEVEL 2 +*---- +LIBRARY2 := SHI: LIBRARY TRACK :: EDIT 1 LJ GRMIN 45 LEVEL 2 MXIT 3 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.337793 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +*---- +* USS +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 9 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + SUBG (*HELIOS TYPE PROBABILITY TABLES*) +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 293.0 (*COMB0101*) + O16 = O16 4.6624E-2 + U235 = U235 7.0803E-4 1 IRSET 0.0 81 + U238 = U238 2.2604E-2 1 IRSET 0.0 81 + MIX <> COMB <> 1.0 (*COMB0102*) + MIX <> COMB <> 1.0 (*COMB0103*) + MIX <> COMB <> 1.0 (*COMB0104*) + MIX <> COMB <> 1.0 (*COMB0105*) + MIX <> COMB <> 1.0 (*COMB0106*) + MIX <> 293.0 (*GAIN1*) + Zr0 = Zr0 4.3241E-2 2 IRSET 0.0 81 + MIX <> 293.0 (*MODE1*) + H1 = H1_H2O 4.6892E-2 + O16 = O16 2.3446E-2 + MIX <> 293.0 (*MODE2*) + H1 = H1_H2O 4.6892E-2 + O16 = O16 2.3446E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: EDIT 1 TRAN PASS 2 GRMIN 45 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.334885 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +*---- +* Ribon extended +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 9 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + PTSL (*CALENDF TYPE PROBABILITY TABLES*) +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 293.0 (*COMB0101*) + O16 = O16 4.6624E-2 + U235 = U235 7.0803E-4 1 IRSET PTSL 1 + U238 = U238 2.2604E-2 1 IRSET PTSL 1 + MIX <> COMB <> 1.0 (*COMB0102*) + MIX <> COMB <> 1.0 (*COMB0103*) + MIX <> COMB <> 1.0 (*COMB0104*) + MIX <> COMB <> 1.0 (*COMB0105*) + MIX <> COMB <> 1.0 (*COMB0106*) + MIX <> 293.0 (*GAIN1*) + Zr0 = Zr0 4.3241E-2 2 IRSET PTSL 1 + MIX <> 293.0 (*MODE1*) + H1 = H1_H2O 4.6892E-2 + O16 = O16 2.3446E-2 + MIX <> 293.0 (*MODE2*) + H1 = H1_H2O 4.6892E-2 + O16 = O16 2.3446E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: EDIT 1 TRAN PASS 2 GRMIN 45 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.335035 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +*---- +* Ribon extended with correlation +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 9 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + PTSL (*CALENDF TYPE PROBABILITY TABLES*) +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 293.0 (*COMB0101*) + O16 = O16 4.6624E-2 + U235 = U235 7.0803E-4 CORR 1 IRSET PTSL 1 + U238 = U238 2.2604E-2 CORR 1 IRSET PTSL 1 + MIX <> COMB <> 1.0 (*COMB0102*) + MIX <> COMB <> 1.0 (*COMB0103*) + MIX <> COMB <> 1.0 (*COMB0104*) + MIX <> COMB <> 1.0 (*COMB0105*) + MIX <> COMB <> 1.0 (*COMB0106*) + MIX <> 293.0 (*GAIN1*) + Zr0 = Zr0 4.3241E-2 2 IRSET PTSL 1 + MIX <> 293.0 (*MODE1*) + H1 = H1_H2O 4.6892E-2 + O16 = O16 2.3446E-2 + MIX <> 293.0 (*MODE2*) + H1 = H1_H2O 4.6892E-2 + O16 = O16 2.3446E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: EDIT 1 TRAN PASS 4 GRMIN 45 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.334913 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +ECHO "test uo2_6c_case2 completed" ; +END: ; diff --git a/Dragon/data/trowland_proc/uo2_6c_case3.c2m b/Dragon/data/trowland_proc/uo2_6c_case3.c2m new file mode 100644 index 0000000..3cda0f1 --- /dev/null +++ b/Dragon/data/trowland_proc/uo2_6c_case3.c2m @@ -0,0 +1,182 @@ +*---- +* +* TEST CASE uo2_6c_case3 +* THIRD UO2 ROWLAND'S BENCHMARK +* DISTRIBUTED SELF-SHIELDING +* 172-GROUP JEF2.2 DRAGLIB +* +* Author: A. Hebert +* +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEOM TRACK LIBRARY LIBRARY2 CP FLUX ; +MODULE LIB: GEO: SYBILT: SHI: USS: ASM: FLU: DELETE: END: ; +INTEGER COMB0101 COMB0102 COMB0103 COMB0104 COMB0105 COMB0106 GAIN1 + MODE1 MODE2 := + 1 2 3 4 5 6 7 8 9 ; (* DISTRIBUTED SELF-SHIELDING *) +REAL RCOMB1 RCOMB2 RCOMB3 RCOMB4 RCOMB5 RCOMB6 ; +PROCEDURE assertS ; +* +EVALUATE RCOMB1 RCOMB2 RCOMB3 RCOMB4 RCOMB5 RCOMB6 := 0.2529822 +0.334664 0.3577709 0.3794733 0.3898718 0.40 ; +GEOM := GEO: :: TUBE 9 + R+ REFL + RADIUS 0.0 <> <> <> <> + <> <> 0.45 0.5748331 0.6770275 + MIX <> <> <> <> + <> <> <> <> <> + ; +* +TRACK := SYBILT: GEOM :: + TITLE 'THIRD UO2 ROWLAND S BENCHMARK' + MAXR 20 QUA1 5 ; +*---- +* SHI LEVEL 1 +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 9 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 900.0 (*COMB0101*) + O16 = O16 4.6624E-2 + U235 = U235 7.0803E-4 1 IRSET 0.0 81 + U238 = U238 2.2604E-2 1 IRSET 0.0 81 + MIX <> COMB <> 1.0 (*COMB0102*) + MIX <> COMB <> 1.0 (*COMB0103*) + MIX <> COMB <> 1.0 (*COMB0104*) + MIX <> COMB <> 1.0 (*COMB0105*) + MIX <> COMB <> 1.0 (*COMB0106*) + MIX <> 600.0 (*GAIN1*) + Zr0 = Zr0 4.3241E-2 2 IRSET 0.0 81 + MIX <> 574.0 (*MODE1*) + H1 = H1_H2O 4.6892E-2 + O16 = O16 2.3446E-2 + MIX <> 574.0 (*MODE2*) + H1 = H1_H2O 4.6892E-2 + O16 = O16 2.3446E-2 +; +LIBRARY2 := SHI: LIBRARY TRACK :: EDIT 1 LJ GRMIN 45 LEVEL 1 MXIT 3 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.299005 ; +LIBRARY2 CP FLUX := DELETE: LIBRARY2 CP FLUX ; +*---- +* SHI LEVEL 2 +*---- +LIBRARY2 := SHI: LIBRARY TRACK :: EDIT 1 LJ GRMIN 45 LEVEL 2 MXIT 3 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.306005 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +*---- +* USS +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 9 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + SUBG (*HELIOS TYPE PROBABILITY TABLES*) +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 900.0 (*COMB0101*) + O16 = O16 4.6624E-2 + U235 = U235 7.0803E-4 1 IRSET 0.0 81 + U238 = U238 2.2604E-2 1 IRSET 0.0 81 + MIX <> COMB <> 1.0 (*COMB0102*) + MIX <> COMB <> 1.0 (*COMB0103*) + MIX <> COMB <> 1.0 (*COMB0104*) + MIX <> COMB <> 1.0 (*COMB0105*) + MIX <> COMB <> 1.0 (*COMB0106*) + MIX <> 600.0 (*GAIN1*) + Zr0 = Zr0 4.3241E-2 2 IRSET 0.0 81 + MIX <> 574.0 (*MODE1*) + H1 = H1_H2O 4.6892E-2 + O16 = O16 2.3446E-2 + MIX <> 574.0 (*MODE2*) + H1 = H1_H2O 4.6892E-2 + O16 = O16 2.3446E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: EDIT 1 TRAN PASS 2 GRMIN 45 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.303040 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +*---- +* Ribon extended +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 9 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + PTSL (*CALENDF TYPE PROBABILITY TABLES*) +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 900.0 (*COMB0101*) + O16 = O16 4.6624E-2 + U235 = U235 7.0803E-4 1 IRSET PTSL 1 + U238 = U238 2.2604E-2 1 IRSET PTSL 1 + MIX <> COMB <> 1.0 (*COMB0102*) + MIX <> COMB <> 1.0 (*COMB0103*) + MIX <> COMB <> 1.0 (*COMB0104*) + MIX <> COMB <> 1.0 (*COMB0105*) + MIX <> COMB <> 1.0 (*COMB0106*) + MIX <> 600.0 (*GAIN1*) + Zr0 = Zr0 4.3241E-2 2 IRSET PTSL 1 + MIX <> 574.0 (*MODE1*) + H1 = H1_H2O 4.6892E-2 + O16 = O16 2.3446E-2 + MIX <> 574.0 (*MODE2*) + H1 = H1_H2O 4.6892E-2 + O16 = O16 2.3446E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: EDIT 1 TRAN PASS 2 GRMIN 45 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.303980 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +*---- +* Ribon extended with correlation +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 9 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + PTSL (*CALENDF TYPE PROBABILITY TABLES*) +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 900.0 (*COMB0101*) + O16 = O16 4.6624E-2 + U235 = U235 7.0803E-4 CORR 1 IRSET PTSL 1 + U238 = U238 2.2604E-2 CORR 1 IRSET PTSL 1 + MIX <> COMB <> 1.0 (*COMB0102*) + MIX <> COMB <> 1.0 (*COMB0103*) + MIX <> COMB <> 1.0 (*COMB0104*) + MIX <> COMB <> 1.0 (*COMB0105*) + MIX <> COMB <> 1.0 (*COMB0106*) + MIX <> 600.0 (*GAIN1*) + Zr0 = Zr0 4.3241E-2 2 IRSET PTSL 1 + MIX <> 574.0 (*MODE1*) + H1 = H1_H2O 4.6892E-2 + O16 = O16 2.3446E-2 + MIX <> 574.0 (*MODE2*) + H1 = H1_H2O 4.6892E-2 + O16 = O16 2.3446E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: EDIT 1 TRAN PASS 4 GRMIN 45 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.303796 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +ECHO "test uo2_6c_case3 completed" ; +END: ; diff --git a/Dragon/data/trowland_proc/uo2_6c_case4.c2m b/Dragon/data/trowland_proc/uo2_6c_case4.c2m new file mode 100644 index 0000000..d57637e --- /dev/null +++ b/Dragon/data/trowland_proc/uo2_6c_case4.c2m @@ -0,0 +1,182 @@ +*---- +* +* TEST CASE uo2_6c_case4 +* THIRD UO2 ROWLAND'S BENCHMARK +* DISTRIBUTED SELF-SHIELDING +* 172-GROUP JEF2.2 DRAGLIB +* +* Author: A. Hebert +* +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEOM TRACK LIBRARY LIBRARY2 CP FLUX ; +MODULE LIB: GEO: SYBILT: SHI: USS: ASM: FLU: DELETE: END: ; +INTEGER COMB0101 COMB0102 COMB0103 COMB0104 COMB0105 COMB0106 GAIN1 + MODE1 MODE2 := + 1 2 3 4 5 6 7 8 9 ; (* DISTRIBUTED SELF-SHIELDING *) +REAL RCOMB1 RCOMB2 RCOMB3 RCOMB4 RCOMB5 RCOMB6 ; +PROCEDURE assertS ; +* +EVALUATE RCOMB1 RCOMB2 RCOMB3 RCOMB4 RCOMB5 RCOMB6 := 0.2529822 +0.334664 0.3577709 0.3794733 0.3898718 0.40 ; +GEOM := GEO: :: TUBE 9 + R+ REFL + RADIUS 0.0 <> <> <> <> + <> <> 0.45 0.5748331 0.6770275 + MIX <> <> <> <> + <> <> <> <> <> + ; +* +TRACK := SYBILT: GEOM :: + TITLE 'FOURTH UO2 ROWLAND S BENCHMARK' + MAXR 20 QUA1 5 ; +*---- +* SHI LEVEL 1 +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 9 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 574.0 (*COMB0101*) + O16 = O16 4.6624E-2 + U235 = U235 7.0803E-4 1 IRSET 0.0 81 + U238 = U238 2.2604E-2 1 IRSET 0.0 81 + MIX <> COMB <> 1.0 (*COMB0102*) + MIX <> COMB <> 1.0 (*COMB0103*) + MIX <> COMB <> 1.0 (*COMB0104*) + MIX <> COMB <> 1.0 (*COMB0105*) + MIX <> COMB <> 1.0 (*COMB0106*) + MIX <> 574.0 (*GAIN1*) + Zr0 = Zr0 4.3241E-2 2 IRSET 0.0 81 + MIX <> 574.0 (*MODE1*) + H1 = H1_H2O 4.6892E-2 + O16 = O16 2.3446E-2 + MIX <> 574.0 (*MODE2*) + H1 = H1_H2O 4.6892E-2 + O16 = O16 2.3446E-2 +; +LIBRARY2 := SHI: LIBRARY TRACK :: EDIT 1 LJ GRMIN 45 LEVEL 1 MXIT 3 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.314095 ; +LIBRARY2 CP FLUX := DELETE: LIBRARY2 CP FLUX ; +*---- +* SHI LEVEL 2 +*---- +LIBRARY2 := SHI: LIBRARY TRACK :: EDIT 1 LJ GRMIN 45 LEVEL 2 MXIT 3 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.319513 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +*---- +* USS +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 9 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + SUBG (*HELIOS TYPE PROBABILITY TABLES*) +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 574.0 (*COMB0101*) + O16 = O16 4.6624E-2 + U235 = U235 7.0803E-4 1 IRSET 0.0 81 + U238 = U238 2.2604E-2 1 IRSET 0.0 81 + MIX <> COMB <> 1.0 (*COMB0102*) + MIX <> COMB <> 1.0 (*COMB0103*) + MIX <> COMB <> 1.0 (*COMB0104*) + MIX <> COMB <> 1.0 (*COMB0105*) + MIX <> COMB <> 1.0 (*COMB0106*) + MIX <> 574.0 (*GAIN1*) + Zr0 = Zr0 4.3241E-2 2 IRSET 0.0 81 + MIX <> 574.0 (*MODE1*) + H1 = H1_H2O 4.6892E-2 + O16 = O16 2.3446E-2 + MIX <> 574.0 (*MODE2*) + H1 = H1_H2O 4.6892E-2 + O16 = O16 2.3446E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: EDIT 1 TRAN PASS 2 GRMIN 45 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.316421 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +*---- +* Ribon extended +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 9 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + PTSL (*CALENDF TYPE PROBABILITY TABLES*) +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 574.0 (*COMB0101*) + O16 = O16 4.6624E-2 + U235 = U235 7.0803E-4 1 IRSET PTSL 1 + U238 = U238 2.2604E-2 1 IRSET PTSL 1 + MIX <> COMB <> 1.0 (*COMB0102*) + MIX <> COMB <> 1.0 (*COMB0103*) + MIX <> COMB <> 1.0 (*COMB0104*) + MIX <> COMB <> 1.0 (*COMB0105*) + MIX <> COMB <> 1.0 (*COMB0106*) + MIX <> 574.0 (*GAIN1*) + Zr0 = Zr0 4.3241E-2 2 IRSET PTSL 1 + MIX <> 574.0 (*MODE1*) + H1 = H1_H2O 4.6892E-2 + O16 = O16 2.3446E-2 + MIX <> 574.0 (*MODE2*) + H1 = H1_H2O 4.6892E-2 + O16 = O16 2.3446E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: EDIT 1 TRAN PASS 2 GRMIN 45 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.316549 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +*---- +* Ribon extended with correlation +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 9 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + PTSL (*CALENDF TYPE PROBABILITY TABLES*) +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 574.0 (*COMB0101*) + O16 = O16 4.6624E-2 + U235 = U235 7.0803E-4 CORR 1 IRSET PTSL 1 + U238 = U238 2.2604E-2 CORR 1 IRSET PTSL 1 + MIX <> COMB <> 1.0 (*COMB0102*) + MIX <> COMB <> 1.0 (*COMB0103*) + MIX <> COMB <> 1.0 (*COMB0104*) + MIX <> COMB <> 1.0 (*COMB0105*) + MIX <> COMB <> 1.0 (*COMB0106*) + MIX <> 574.0 (*GAIN1*) + Zr0 = Zr0 4.3241E-2 2 IRSET PTSL 1 + MIX <> 574.0 (*MODE1*) + H1 = H1_H2O 4.6892E-2 + O16 = O16 2.3446E-2 + MIX <> 574.0 (*MODE2*) + H1 = H1_H2O 4.6892E-2 + O16 = O16 2.3446E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: EDIT 1 TRAN PASS 4 GRMIN 45 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.316382 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +ECHO "test uo2_6c_case4 completed" ; +END: ; diff --git a/Dragon/data/trowland_proc/uo2_6c_case5.c2m b/Dragon/data/trowland_proc/uo2_6c_case5.c2m new file mode 100644 index 0000000..91ad0de --- /dev/null +++ b/Dragon/data/trowland_proc/uo2_6c_case5.c2m @@ -0,0 +1,83 @@ +*---- +* +* TEST CASE uo2_6c_case5 +* FIFTH UO2 ROWLAND'S BENCHMARK +* DISTRIBUTED SELF-SHIELDING +* 172-GROUP JEF2.2 DRAGLIB +* +* Author: A. Hebert +* +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEOM TRACK LIBRARY LIBRARY2 CP CALC ; +MODULE LIB: GEO: SYBILT: USS: ASM: FLU: ; +INTEGER COMB0101 COMB0102 COMB0103 COMB0104 COMB0105 COMB0106 GAIN1 + MODE1 MODE2 := + 1 2 3 4 5 6 7 8 9 ; (* DISTRIBUTED SELF-SHIELDING *) +REAL RCOMB1 RCOMB2 RCOMB3 RCOMB4 RCOMB5 RCOMB6 ; +PROCEDURE assertS ; +* +EVALUATE RCOMB1 RCOMB2 RCOMB3 RCOMB4 RCOMB5 RCOMB6 := 0.2529822 +0.334664 0.3577709 0.3794733 0.3898718 0.40 ; +GEOM := GEO: :: TUBE 9 + R+ REFL + RADIUS 0.0 <> <> <> <> + <> <> 0.45 0.5748331 0.6770275 + MIX <> <> <> <> + <> <> <> <> <> + ; +TRACK := SYBILT: GEOM :: + TITLE 'FIFTH UO2 ROWLAND S BENCHMARK' + MAXR 20 QUA1 5 ; +*---- +* USS +*---- +LIBRARY := LIB: :: + EDIT 1 + NMIX 9 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + SUBG +* + MIXS LIB: DRAGON FIL: DLIB_J2 + MIX <> 1200.0 (*COMB0101*) + O16 = O16 4.6624E-2 + U235 = U235 7.0803E-4 1 IRSET 0.0 81 + U238 = U238 2.2604E-2 1 IRSET 0.0 81 + MIX <> 1000.0 (*COMB0101*) + O16 = O16 4.6624E-2 + U235 = U235 7.0803E-4 1 IRSET 0.0 81 + U238 = U238 2.2604E-2 1 IRSET 0.0 81 + MIX <> 800.0 (*COMB0101*) + O16 = O16 4.6624E-2 + U235 = U235 7.0803E-4 1 IRSET 0.0 81 + U238 = U238 2.2604E-2 1 IRSET 0.0 81 + MIX <> 700.0 (*COMB0101*) + O16 = O16 4.6624E-2 + U235 = U235 7.0803E-4 1 IRSET 0.0 81 + U238 = U238 2.2604E-2 1 IRSET 0.0 81 + MIX <> 650.0 (*COMB0101*) + O16 = O16 4.6624E-2 + U235 = U235 7.0803E-4 1 IRSET 0.0 81 + U238 = U238 2.2604E-2 1 IRSET 0.0 81 + MIX <> 600.0 (*COMB0101*) + O16 = O16 4.6624E-2 + U235 = U235 7.0803E-4 1 IRSET 0.0 81 + U238 = U238 2.2604E-2 1 IRSET 0.0 81 + MIX <> 600.0 (*GAIN1*) + Zr0 = Zr0 4.3241E-2 2 IRSET 0.0 81 + MIX <> 573.6 (*MODE1*) + H1 = H1_H2O 4.6892E-2 + O16 = O16 2.3446E-2 + MIX <> 573.6 (*MODE2*) + H1 = H1_H2O 4.6892E-2 + O16 = O16 2.3446E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: EDIT 1 TRAN PASS 5 GRMIN 45 ; +CP := ASM: LIBRARY2 TRACK :: EDIT 1 PIJ ; +CALC := FLU: CP LIBRARY2 TRACK :: EDIT 1 TYPE K ; +assertS CALC :: K-EFFECTIVE 1 1.320614 ; +ECHO "test uo2_6c_case5 completed" ; +QUIT "LIST" . -- cgit v1.2.3