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/tmacro_proc/TCM39.c2m | 87 +++++++++++++++++++++++++++++++++++++++ 1 file changed, 87 insertions(+) create mode 100644 Dragon/data/tmacro_proc/TCM39.c2m (limited to 'Dragon/data/tmacro_proc/TCM39.c2m') diff --git a/Dragon/data/tmacro_proc/TCM39.c2m b/Dragon/data/tmacro_proc/TCM39.c2m new file mode 100644 index 0000000..7cf43dd --- /dev/null +++ b/Dragon/data/tmacro_proc/TCM39.c2m @@ -0,0 +1,87 @@ +*---- +* TEST CASE TCM39 (OBSOLETE FORM OF INPUT) +* EURYDICE CASE WITH SIJ MULTICELL APPROXIMATION +* DOUBLE-HETEROGENEITY (BIHET) MIXTURES +* ONE-GROUP MACROLIB-DEFINED CROSS SECTIONS +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST MACRO ASSMB TRACK SYS FLUX ; +MODULE GEO: SYBILT: MAC: LIB: ASM: FLU: END: ; +PROCEDURE assertS ; +* +MACRO := MAC: :: + EDIT 2 NGRO 1 NMIX 4 NIFI 1 + READ INPUT + MIX 1 + TOTAL 0.3683 SCAT 1 1 0.3661 + MIX 2 + TOTAL 0.36522 SCAT 1 1 0.3234 + NUSIGF 0.05564 CHI 1.0 + MIX 3 + TOTAL 0.8453 SCAT 1 1 0.5216 + MIX 4 + TOTAL 0.3683 SCAT 1 1 0.0 + ; +ASSMB := GEO: :: GROUP 13 (*ASSEMBLAGE 9 X 9*) EDIT 99 + POURCE + .012345679 .049382716 .049382716 .049382716 .049382716 + .049382716 .098765432 .098765432 .296296296 + .049382716 .098765432 + .049382716 + .049382716 + PROCEL + (*CELL 1*) 0.0 1.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 + (*CELL 2*) 0.25 0.0 0.25 0.0 0.0 0.5 0.0 0.0 0.0 0.0 0.0 0.0 0.0 + (*CELL 3*) 0.0 0.25 0.0 0.25 0.0 0.0 0.5 0.0 0.0 0.0 0.0 0.0 0.0 + (*CELL 4*) 0.0 0.0 0.25 0.0 0.25 0.0 0.0 0.5 0.0 0.0 0.0 0.0 0.0 + (*CELL 5*) 0.0 0.0 0.0 0.25 0.25 0.0 0.0 0.0 0.5 0.0 0.0 0.0 0.0 + (*CELL 6*) 0.0 0.5 0.0 0.0 0.0 0.0 0.5 0.0 0.0 0.0 0.0 0.0 0.0 + (*CELL 7*) 0.0 0.0 0.25 0.0 0.0 0.25 0.0 0.25 0.0 0.25 0.0 0.0 0.0 + (*CELL 8*) 0.0 0.0 0.0 0.25 0.0 0.0 0.25 0.0 0.25 0.0 0.25 0.0 0.0 + (*CELL 9*) 0.0 0.0 0.0 0.0 0.083333333333 0.0 0.0 0.0833333333333 + 0.5833333333 0.0 0.083333333333 0.08333333333 0.08333333333 + (*CELL 10*) 0.0 0.0 0.0 0.0 0.0 0.0 0.5 0.0 0.0 0.0 0.5 0.0 0.0 + (*CELL 11*) 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.25 0.25 0.25 0.0 0.25 0.0 + (*CELL 12*) 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.5 0.0 0.5 0.0 0.0 + (*CELL 13*) 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.5 0.0 0.0 0.0 0.5 + CELL C1 C3 C2 C3 C3 + C3 C3 C3 C3 + C2 C3 + C3 + C3 + BIHET SPHE (*NG=*) 2 (* NMILG= *) 2 (* SPHERICAL MICRO-STRUCTURE *) + (* NS= *) 3 3 + (* M-S-1 *) 0.0 0.1 0.2 0.3 (* M-S 2 *) 0.0 0.2 0.4 0.5 + (* COMPOSITE MIXTURES *) 5 6 + (* MIXTURES SURROUNDING M-S *) 2 2 + (* COMPOSITE MIXTURE 5 FRACT *) 0.4 0.0 + (* REAL MIXTURE CONTENT M-S-1 *) 3 1 3 + (* COMPOSITE MIXTURE 6 FRACT *) 0.2 0.1 + (* REAL MIXTURE CONTENT M-S-1 *) 1 2 1 + (* REAL MIXTURE CONTENT M-S-2 *) 2 3 1 + ::: C1 := GEO: TUBE 1 + RADIUS 0.0 7.1205352E-1 + MIX 4 + ; + ::: C2 := GEO: TUBE 4 + RADIUS 0.0 3.25296E-01 4.60039E-01 5.63430E-01 + 7.1205352E-1 + MIX 5 3 3 1 + ; + ::: C3 := GEO: TUBE 2 + RADIUS 0.0 4.12660E-01 7.1205352E-1 + MIX 6 1 + ; + ; +TRACK := SYBILT: ASSMB :: + EDIT 1 MAXR 100 + TITLE 'MULTICELL 9 X 9 PWR BENCHMARK WITH POISON' ; +* +SYS := ASM: MACRO TRACK :: EDIT 1 PIJ ; +FLUX := FLU: SYS MACRO TRACK :: TYPE B B0 SIGS ; +assertS FLUX :: 'B2 B1HOM' 1 -1.84003E-2 ; +* +ECHO "test TCM39 completed" ; +END: ; +QUIT "LIST" . -- cgit v1.2.3