summaryrefslogtreecommitdiff
path: root/Dragon/data/salmacro_proc/TDCM54.c2m
diff options
context:
space:
mode:
authorstainer_t <thomas.stainer@oecd-nea.org>2025-09-08 13:48:49 +0200
committerstainer_t <thomas.stainer@oecd-nea.org>2025-09-08 13:48:49 +0200
commit7dfcc480ba1e19bd3232349fc733caef94034292 (patch)
tree03ee104eb8846d5cc1a981d267687a729185d3f3 /Dragon/data/salmacro_proc/TDCM54.c2m
Initial commit from Polytechnique Montreal
Diffstat (limited to 'Dragon/data/salmacro_proc/TDCM54.c2m')
-rw-r--r--Dragon/data/salmacro_proc/TDCM54.c2m156
1 files changed, 156 insertions, 0 deletions
diff --git a/Dragon/data/salmacro_proc/TDCM54.c2m b/Dragon/data/salmacro_proc/TDCM54.c2m
new file mode 100644
index 0000000..f565d47
--- /dev/null
+++ b/Dragon/data/salmacro_proc/TDCM54.c2m
@@ -0,0 +1,156 @@
+*----
+* TEST CASE TDCM54
+* MACROSCOPIC CROSS SECTIONS
+* 4-group equilateral triangular geometry
+* Author: A. Hebert
+*----
+* Define STRUCTURES and MODULES used
+*----
+MODULE SALT: MCCGT: MAC: ASM: FLU: TLM: DELETE: END: ;
+SEQ_ASCII GT_SAL :: FILE './439NR_SSH.sal' ;
+SEQ_ASCII GT_SAL_iso :: FILE './439NR_SSH_iso.sal' ;
+LINKED_LIST TRACKF MACRO4G SYS FLUX ;
+SEQ_BINARY INTLINS ;
+SEQ_ASCII TDCM54.m :: FILE './TDCM54.m' ;
+PROCEDURE assertS ;
+*----
+* Input Macrolib
+*----
+MACRO4G := MAC: ::
+ EDIT 1 NGRO 4 NMIX 6 NIFI 1 ANIS 2
+ READ INPUT
+ MIX 1 (* WATER *)
+ TOTAL 5.316E-01 9.352E-01 9.931E-01 1.5931E+00
+ TRANC 2.880E-01 5.529E-01 4.936E-01 4.4340E-01
+ SCAT 1 1 (*1->1*) 4.973E-01
+ 2 2 (*2->2*) 6.570E-01 (*1->2*) 3.134E-02
+ 4 4 (*4->3*) 1.163E-02 (*3->3*) 7.176E-01 (*2->3*) 2.528E-01
+ (*1->3*) 2.304E-03
+ 4 4 (*4->4*) 1.565E+00 (*3->4*) 2.707E-01 (*2->4*) 2.412E-02
+ (*1->4*) 2.228E-04
+ 1 1 (*1->1*) 2.735E-01
+ 2 2 (*2->2*) 4.253E-01 (*1->2*) 1.410E-02
+ 4 4 (*4->3*) 5.064E-03 (*3->3*) 4.286E-01 (*2->3*) 1.203E-01
+ (*1->3*) 3.050E-04
+ 4 4 (*4->4*) 4.384E-01 (*3->4*) 6.426E-02 (*2->4*) 3.373E-03
+ (*1->4*) 1.245E-05
+ MIX 2 (* FUEL 1 *)
+ TOTAL 4.097E-01 6.286E-01 4.594E-01 7.508E-01
+ TRANC 4.841E-02 7.939E-03 8.080E-03 8.038E-03
+ NUSIGF 1.632E-02 9.259E-02 1.129E-01 6.508E-01
+ CHI 1.000E+00 0.000E+00 0.000E+00 0.000E+00
+ SCAT 1 1 (*1->1*) 3.908E-01
+ 2 2 (*2->2*) 4.407E-01 (*1->2*) 8.546E-04
+ 3 4 (*4->3*) 5.318E-03 (*3->3*) 3.785E-01 (*2->3*) 8.057E-03
+ 2 4 (*4->4*) 3.983E-01 (*3->4*) 1.203E-02
+ 1 1 (*1->1*) 4.793E-02
+ 2 2 (*2->2*) 5.419E-03 (*1->2*) -2.640E-04
+ 3 4 (*4->3*) -7.338E-04 (*3->3*) 9.014E-03 (*2->3*) -2.453E-03
+ 2 4 (*4->4*) 8.769E-03 (*3->4*) -2.572E-03
+ MIX 3 (* FUEL 2 *)
+ TOTAL 4.072E-01 6.223E-01 4.599E-01 7.504E-01
+ TRANC 4.927E-02 7.872E-03 8.166E-03 8.040E-03
+ NUSIGF 1.652E-02 9.136E-02 1.143E-01 6.500E-01
+ CHI 1.000E+00 0.000E+00 0.000E+00 0.000E+00
+ SCAT 1 1 (*1->1*) 3.885E-01
+ 2 2 (*2->2*) 4.387E-01 (*1->2*) 8.562E-04
+ 3 4 (*4->3*) 5.236E-03 (*3->3*) 3.780E-01 (*2->3*) 8.591E-03
+ 2 4 (*4->4*) 3.984E-01 (*3->4*) 1.229E-02
+ 1 1 (*1->1*) 4.981E-02
+ 2 2 (*2->2*) 3.100E-03 (*1->2*) -2.624E-04
+ 3 4 (*4->3*) -7.231E-04 (*3->3*) 1.142E-02 (*2->3*) -2.610E-03
+ 2 4 (*4->4*) 8.764E-03 (*3->4*) -2.604E-03
+ MIX 4 (* FUEL 3 *)
+ TOTAL 4.072E-01 6.223E-01 4.599E-01 7.504E-01
+ TRANC 4.927E-02 7.872E-03 8.166E-03 8.040E-03
+ NUSIGF 1.652E-02 9.136E-02 1.143E-01 6.500E-01
+ CHI 1.000E+00 0.000E+00 0.000E+00 0.000E+00
+ SCAT 1 1 (*1->1*) 3.885E-01
+ 2 2 (*2->2*) 4.387E-01 (*1->2*) 8.562E-04
+ 3 4 (*4->3*) 5.236E-03 (*3->3*) 3.780E-01 (*2->3*) 8.591E-03
+ 2 4 (*4->4*) 3.984E-01 (*3->4*) 1.229E-02
+ 1 1 (*1->1*) 4.981E-02
+ 2 2 (*2->2*) 3.100E-03 (*1->2*) -2.624E-04
+ 3 4 (*4->3*) -7.231E-04 (*3->3*) 1.142E-02 (*2->3*) -2.610E-03
+ 2 4 (*4->4*) 8.764E-03 (*3->4*) -2.604E-03
+ MIX 5 (* WATER *)
+ TOTAL 5.316E-01 9.352E-01 9.931E-01 1.5931E+00
+ TRANC 2.880E-01 5.529E-01 4.936E-01 4.4340E-01
+ SCAT 1 1 (*1->1*) 4.973E-01
+ 2 2 (*2->2*) 6.570E-01 (*1->2*) 3.134E-02
+ 4 4 (*4->3*) 1.163E-02 (*3->3*) 7.176E-01 (*2->3*) 2.528E-01
+ (*1->3*) 2.304E-03
+ 4 4 (*4->4*) 1.565E+00 (*3->4*) 2.707E-01 (*2->4*) 2.412E-02
+ (*1->4*) 2.228E-04
+ 1 1 (*1->1*) 2.735E-01
+ 2 2 (*2->2*) 4.253E-01 (*1->2*) 1.410E-02
+ 4 4 (*4->3*) 5.064E-03 (*3->3*) 4.286E-01 (*2->3*) 1.203E-01
+ (*1->3*) 3.050E-04
+ 4 4 (*4->4*) 4.384E-01 (*3->4*) 6.426E-02 (*2->4*) 3.373E-03
+ (*1->4*) 1.245E-05
+ MIX 6 (* WATER *)
+ TOTAL 5.316E-01 9.352E-01 9.931E-01 1.5931E+00
+ TRANC 2.880E-01 5.529E-01 4.936E-01 4.4340E-01
+ SCAT 1 1 (*1->1*) 4.973E-01
+ 2 2 (*2->2*) 6.570E-01 (*1->2*) 3.134E-02
+ 4 4 (*4->3*) 1.163E-02 (*3->3*) 7.176E-01 (*2->3*) 2.528E-01
+ (*1->3*) 2.304E-03
+ 4 4 (*4->4*) 1.565E+00 (*3->4*) 2.707E-01 (*2->4*) 2.412E-02
+ (*1->4*) 2.228E-04
+ 1 1 (*1->1*) 2.735E-01
+ 2 2 (*2->2*) 4.253E-01 (*1->2*) 1.410E-02
+ 4 4 (*4->3*) 5.064E-03 (*3->3*) 4.286E-01 (*2->3*) 1.203E-01
+ (*1->3*) 3.050E-04
+ 4 4 (*4->4*) 4.384E-01 (*3->4*) 6.426E-02 (*2->4*) 3.373E-03
+ (*1->4*) 1.245E-05
+;
+*----
+* Isotropic tracking of surfacic file for equilateral triangular geometry
+*----
+TRACKF INTLINS := SALT: GT_SAL_iso ::
+ EDIT 1
+ TISO 6 5.0 LONG ;
+
+TRACKF := MCCGT: TRACKF INTLINS ::
+ EDIT 2
+ LCMD 3 AAC 150 TMT SCR 0 EPSI 1E-5
+ MAXI 1 KRYL 0 HDD 0.0 ;
+*----
+* Compute flux
+*----
+SYS := ASM: MACRO4G TRACKF INTLINS :: ARM EDIT 1 ;
+
+FLUX := FLU: MACRO4G SYS TRACKF INTLINS ::
+ EDIT 1 TYPE K EXTE 100 1E-5 ;
+
+assertS FLUX :: 'K-EFFECTIVE' 1 1.149480 ;
+TRACKF INTLINS SYS FLUX := DELETE: TRACKF INTLINS SYS FLUX ;
+
+*----
+* Specular tracking of surfacic file for equilateral triangular geometry
+*----
+TRACKF INTLINS := SALT: GT_SAL ::
+ EDIT 1
+ TSPC 6 5.0 LONG ; ! 3, 6, 12 or 18 is mandatory
+
+TRACKF := MCCGT: TRACKF INTLINS ::
+ EDIT 2
+ LCMD 3 AAC 150 TMT SCR 0 EPSI 1E-5
+ MAXI 1 KRYL 0 HDD 0.0 ;
+*----
+* Compute flux
+*----
+SYS := ASM: MACRO4G TRACKF INTLINS :: ARM EDIT 1 ;
+
+FLUX := FLU: MACRO4G SYS TRACKF INTLINS ::
+ EDIT 1 TYPE K EXTE 100 1E-5 ;
+
+TDCM54.m := TLM: TRACKF INTLINS ::
+ EDIT 1
+ NTPO 1
+ DIRECTIONS NoPause DIR 0 ;
+
+assertS FLUX :: 'K-EFFECTIVE' 1 1.152463 ;
+ECHO "test TDCM54 completed" ;
+END: ;
+QUIT .
generated by cgit v1.2.3 (git 2.46.0) at 2026-02-16 22:01:44 +0000