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/tndas_proc/TCND32.c2m | 121 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 121 insertions(+) create mode 100644 Dragon/data/tndas_proc/TCND32.c2m (limited to 'Dragon/data/tndas_proc/TCND32.c2m') diff --git a/Dragon/data/tndas_proc/TCND32.c2m b/Dragon/data/tndas_proc/TCND32.c2m new file mode 100644 index 0000000..8b00e68 --- /dev/null +++ b/Dragon/data/tndas_proc/TCND32.c2m @@ -0,0 +1,121 @@ +*---- +* +* TEST CASE TCND32 +* FIRST MOX ROWLAND'S BENCHMARK +* DISTRIBUTED SELF-SHIELDING +* NDAS 89-GROUP CROSS-SECTION LIBRARY +* +* 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 0 +*---- +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: NDAS FIL: E65LIB6.idx:E65LIB6.sdb + MIX <> 300.0 (*COMB0101*) + U235 = U235 5.105E-5 1 IRSET 0.0 42 + U238 = U238 2.037E-2 1 IRSET 0.0 42 + PU238 = PU238 4.669E-5 + PU239 = PU239 1.465E-3 1 IRSET 0.0 42 + PU240 = PU240 5.691E-4 1 IRSET 0.0 42 + PU241 = PU241 2.713E-4 1 IRSET 0.0 42 + PU242 = PU242 1.413E-4 + AM241 = AM241 3.028E-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*) + ZR90 = ZR90 1.9943E-2 + ZR91 = ZR91 4.3456E-3 + ZR92 = ZR92 6.6348E-3 + ZR94 = ZR94 6.6900E-3 + MIX <> 300.0 (*MODE1*) + H1 = H1H2O 4.744E-2 + O16 = O16 2.372E-2 + MIX <> 300.0 (*MODE2*) + H1 = H1H2O 4.744E-2 + O16 = O16 2.372E-2 + ; +LIBRARY2 := SHI: LIBRARY TRACK :: EDIT 1 LJ GRMIN 24 LEVEL 0 MXIT 3 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.185814 ; +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: NDAS FIL: E65LIB6.idx:E65LIB6.sdb + MIX <> 300.0 (*COMB0101*) + U235 = U235 5.105E-5 1 IRSET 0.0 42 + U238 = U238 2.037E-2 1 IRSET 0.0 42 + PU238 = PU238 4.669E-5 + PU239 = PU239 1.465E-3 1 IRSET 0.0 42 + PU240 = PU240 5.691E-4 1 IRSET 0.0 42 + PU241 = PU241 2.713E-4 1 IRSET 0.0 42 + PU242 = PU242 1.413E-4 + AM241 = AM241 3.028E-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*) + ZR90 = ZR90 1.9943E-2 + ZR91 = ZR91 4.3456E-3 + ZR92 = ZR92 6.6348E-3 + ZR94 = ZR94 6.6900E-3 + MIX <> 300.0 (*MODE1*) + H1 = H1H2O 4.744E-2 + O16 = O16 2.372E-2 + MIX <> 300.0 (*MODE2*) + H1 = H1H2O 4.744E-2 + O16 = O16 2.372E-2 + ; +LIBRARY2 := USS: LIBRARY TRACK :: EDIT 1 TRAN PASS 3 GRMIN 24 ; +CP := ASM: LIBRARY2 TRACK :: PIJ ; +FLUX := FLU: CP LIBRARY2 TRACK :: TYPE K ; +assertS FLUX :: K-EFFECTIVE 1 1.189376 ; +LIBRARY LIBRARY2 CP FLUX := DELETE: LIBRARY LIBRARY2 CP FLUX ; +ECHO "test TCND32 completed" ; +END: ; -- cgit v1.2.3