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/TCM77.c2m | 199 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 199 insertions(+) create mode 100644 Dragon/data/tmacro_proc/TCM77.c2m (limited to 'Dragon/data/tmacro_proc/TCM77.c2m') diff --git a/Dragon/data/tmacro_proc/TCM77.c2m b/Dragon/data/tmacro_proc/TCM77.c2m new file mode 100644 index 0000000..5c4eb30 --- /dev/null +++ b/Dragon/data/tmacro_proc/TCM77.c2m @@ -0,0 +1,199 @@ +LINKED_LIST GEOM MACRO TRACK SYSTEM FLUX EDIT ; +MODULE GEO: MAC: SNT: ASM: FLU: UTL: OUT: ERROR: END: DELETE: ; +* +* Refer to PhD thesis -- Calloo 2022 +* +PROCEDURE assertS_low ; +* +* ang = sn order +* sca = scattering +* sch = scheme parameter +* spa = spatial order +* spl = region split +* +* sigt = total macroscopic cross-section +* ccc = scattering ratio (= Sig_s / Sig_t) +* +INTEGER ang := 8 ; +INTEGER sca := 1 ; +* +INTEGER sch ; +INTEGER spa ; +* +INTEGER spl := 10 ; +* +REAL sigt := 400.0 ; +REAL ccc := 0.99 ; +* +REAL sigs := sigt ccc * ; +* +REAL cellx := 10.0 ; +REAL xcoord1 := 0.0 cellx + ; +* +GEOM := GEO: :: CAR1D 1 + X- REFL X+ VOID + MIX 1 + MESHX 0.0 <> + SPLITX <> ; +* +MACRO := MAC: :: + EDIT 2 NGRO 1 NMIX 1 + READ INPUT + MIX 1 + TOTAL <> + SCAT 1 1 <> + FIXE 1.00 ; +* +*---- +* HODD 0 DSA 0 0 2 +*---- +EVALUATE sch := 1 ; +EVALUATE spa := 0 ; +TRACK := SNT: GEOM :: + TITLE 'FOURIER ANALYSIS INSPIRED BY WANG (2013) XUTHUS CASE' + EDIT 2 MAXR 10000000 + SCHM <> DIAM <> + SN <> SCAT <> + EPSI 1.0E-5 MAXI 4 FOUR 60 + NLIVO DSA 0 0 2 + NSHT QUAD 2 ; +SYSTEM := ASM: MACRO TRACK :: EDIT 0 ARM ; +FLUX := FLU: MACRO TRACK SYSTEM :: + EDIT 2 TYPE F EXTE 1 1.0E-5 ; +assertS_low FLUX :: 'SPEC-RADIUS' 1 0.5160 0.5 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +*---- +* HODD 0 DSA 0 1 2 +*---- +TRACK := SNT: GEOM :: + TITLE 'FOURIER ANALYSIS INSPIRED BY WANG (2013) XUTHUS CASE' + EDIT 2 MAXR 10000000 + SCHM <> DIAM <> + SN <> SCAT <> + EPSI 1.0E-5 MAXI 4 FOUR 60 + NLIVO DSA 0 1 2 + NSHT QUAD 2 ; +SYSTEM := ASM: MACRO TRACK :: EDIT 0 ARM ; +FLUX := FLU: MACRO TRACK SYSTEM :: + EDIT 2 TYPE F EXTE 1 1.0E-5 ; +assertS_low FLUX :: 'SPEC-RADIUS' 1 27.68 0.5 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +*---- +* HODD 0 DSA 0 2 2 +*---- +TRACK := SNT: GEOM :: + TITLE 'FOURIER ANALYSIS INSPIRED BY WANG (2013) XUTHUS CASE' + EDIT 2 MAXR 10000000 + SCHM <> DIAM <> + SN <> SCAT <> + EPSI 1.0E-5 MAXI 4 FOUR 60 + NLIVO DSA 0 2 2 + NSHT QUAD 2 ; +SYSTEM := ASM: MACRO TRACK :: EDIT 0 ARM ; +FLUX := FLU: MACRO TRACK SYSTEM :: + EDIT 2 TYPE F EXTE 1 1.0E-5 ; +assertS_low FLUX :: 'SPEC-RADIUS' 1 1.445 0.5 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +*---- +* HODD 1 DSA 0 0 2 +*---- +EVALUATE sch := 1 ; +EVALUATE spa := 1 ; +TRACK := SNT: GEOM :: + TITLE 'FOURIER ANALYSIS INSPIRED BY WANG (2013) XUTHUS CASE' + EDIT 2 MAXR 10000000 + SCHM <> DIAM <> + SN <> SCAT <> + EPSI 1.0E-5 MAXI 4 FOUR 60 + NLIVO DSA 0 0 2 + NSHT QUAD 2 ; +SYSTEM := ASM: MACRO TRACK :: EDIT 0 ARM ; +FLUX := FLU: MACRO TRACK SYSTEM :: + EDIT 2 TYPE F EXTE 1 1.0E-5 ; +assertS_low FLUX :: 'SPEC-RADIUS' 1 0.1099 0.5 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +*---- +* HODD 1 DSA 0 1 2 +*---- +TRACK := SNT: GEOM :: + TITLE 'FOURIER ANALYSIS INSPIRED BY WANG (2013) XUTHUS CASE' + EDIT 2 MAXR 10000000 + SCHM <> DIAM <> + SN <> SCAT <> + EPSI 1.0E-5 MAXI 4 FOUR 60 + NLIVO DSA 0 1 2 + NSHT QUAD 2 ; +SYSTEM := ASM: MACRO TRACK :: EDIT 0 ARM ; +FLUX := FLU: MACRO TRACK SYSTEM :: + EDIT 2 TYPE F EXTE 1 1.0E-5 ; +assertS_low FLUX :: 'SPEC-RADIUS' 1 0.7952 0.5 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +*---- +* HODD 1 DSA 0 2 2 +*---- +TRACK := SNT: GEOM :: + TITLE 'FOURIER ANALYSIS INSPIRED BY WANG (2013) XUTHUS CASE' + EDIT 2 MAXR 10000000 + SCHM <> DIAM <> + SN <> SCAT <> + EPSI 1.0E-5 MAXI 4 FOUR 60 + NLIVO DSA 0 2 2 + NSHT QUAD 2 ; +SYSTEM := ASM: MACRO TRACK :: EDIT 0 ARM ; +FLUX := FLU: MACRO TRACK SYSTEM :: + EDIT 2 TYPE F EXTE 1 1.0E-5 ; +assertS_low FLUX :: 'SPEC-RADIUS' 1 1.481 0.5 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +*---- +* DG 1 DSA 0 0 2 +*---- +EVALUATE sch := 2 ; +EVALUATE spa := 1 ; +TRACK := SNT: GEOM :: + TITLE 'FOURIER ANALYSIS INSPIRED BY WANG (2013) XUTHUS CASE' + EDIT 2 MAXR 10000000 + SCHM <> DIAM <> + SN <> SCAT <> + EPSI 1.0E-5 MAXI 4 FOUR 60 + NLIVO DSA 0 0 2 + NSHT QUAD 2 ; +SYSTEM := ASM: MACRO TRACK :: EDIT 0 ARM ; +FLUX := FLU: MACRO TRACK SYSTEM :: + EDIT 2 TYPE F EXTE 1 1.0E-5 ; +assertS_low FLUX :: 'SPEC-RADIUS' 1 0.1528 0.5 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +*---- +* DG 1 DSA 0 1 2 +*---- +TRACK := SNT: GEOM :: + TITLE 'FOURIER ANALYSIS INSPIRED BY WANG (2013) XUTHUS CASE' + EDIT 2 MAXR 10000000 + SCHM <> DIAM <> + SN <> SCAT <> + EPSI 1.0E-5 MAXI 4 FOUR 60 + NLIVO DSA 0 1 2 + NSHT QUAD 2 ; +SYSTEM := ASM: MACRO TRACK :: EDIT 0 ARM ; +FLUX := FLU: MACRO TRACK SYSTEM :: + EDIT 2 TYPE F EXTE 1 1.0E-5 ; +assertS_low FLUX :: 'SPEC-RADIUS' 1 0.1663 0.5 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +*---- +* DG 1 DSA 0 2 2 +*---- +TRACK := SNT: GEOM :: + TITLE 'FOURIER ANALYSIS INSPIRED BY WANG (2013) XUTHUS CASE' + EDIT 2 MAXR 10000000 + SCHM <> DIAM <> + SN <> SCAT <> + EPSI 1.0E-5 MAXI 4 FOUR 60 + NLIVO DSA 0 2 2 + NSHT QUAD 2 ; +SYSTEM := ASM: MACRO TRACK :: EDIT 0 ARM ; +FLUX := FLU: MACRO TRACK SYSTEM :: + EDIT 2 TYPE F EXTE 1 1.0E-5 ; +assertS_low FLUX :: 'SPEC-RADIUS' 1 0.3895 0.5 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +* +ECHO "test TCM77 completed" ; +END: ; -- cgit v1.2.3