Initial commit from Polytechnique Montreal

1 files changed, 199 insertions, 0 deletions

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 <<xcoord1>>
+           SPLITX <<spl>> ;
+*
+MACRO := MAC: ::
+ EDIT 2 NGRO 1 NMIX 1
+ READ INPUT
+       MIX  1
+     TOTAL       <<sigt>>
+      SCAT  1 1  <<sigs>>
+      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 <<sch>> DIAM <<spa>>
+      SN <<ang>> SCAT <<sca>>
+      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 <<sch>> DIAM <<spa>>
+      SN <<ang>> SCAT <<sca>>
+      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 <<sch>> DIAM <<spa>>
+      SN <<ang>> SCAT <<sca>>
+      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 <<sch>> DIAM <<spa>>
+      SN <<ang>> SCAT <<sca>>
+      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 <<sch>> DIAM <<spa>>
+      SN <<ang>> SCAT <<sca>>
+      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 <<sch>> DIAM <<spa>>
+      SN <<ang>> SCAT <<sca>>
+      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 <<sch>> DIAM <<spa>>
+      SN <<ang>> SCAT <<sca>>
+      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 <<sch>> DIAM <<spa>>
+      SN <<ang>> SCAT <<sca>>
+      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 <<sch>> DIAM <<spa>>
+      SN <<ang>> SCAT <<sca>>
+      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: ;