summaryrefslogtreecommitdiff
path: root/Dragon/data
diff options
context:
space:
mode:
Diffstat (limited to 'Dragon/data')
-rw-r--r--Dragon/data/salmacro_proc/TDCM63.c2m4
-rw-r--r--Dragon/data/salmacro_proc/TDCM67.c2m13
2 files changed, 13 insertions, 4 deletions
diff --git a/Dragon/data/salmacro_proc/TDCM63.c2m b/Dragon/data/salmacro_proc/TDCM63.c2m
index edc2211..49e01a6 100644
--- a/Dragon/data/salmacro_proc/TDCM63.c2m
+++ b/Dragon/data/salmacro_proc/TDCM63.c2m
@@ -1,5 +1,5 @@
*----
-* TEST CASE TDCM54
+* TEST CASE TDCM63
* MACROSCOPIC CROSS SECTIONS
* 4-group equilateral triangular geometry
* Author: A. Hebert
@@ -7,7 +7,7 @@
* Define STRUCTURES and MODULES used
*----
MODULE G2S: SALT: MCCGT: MAC: ASM: FLU: TLM: DELETE: END: ;
-SEQ_ASCII LatTEST_b :: FILE './LatTEST_b_S60.ps' ;
+SEQ_ASCII LatTEST_b :: FILE './LatTEST_b_S60.eps' ;
SEQ_ASCII GT_SAL :: FILE './lattice_hex_tspc_S30_7cells.dat' ;
SEQ_ASCII GT_SAL_iso :: FILE './lattice_hex_tiso_S30_7cells.dat' ;
LINKED_LIST TRACKF MACRO4G SYS FLUX ;
diff --git a/Dragon/data/salmacro_proc/TDCM67.c2m b/Dragon/data/salmacro_proc/TDCM67.c2m
index 2a2363e..9697b1f 100644
--- a/Dragon/data/salmacro_proc/TDCM67.c2m
+++ b/Dragon/data/salmacro_proc/TDCM67.c2m
@@ -5,8 +5,8 @@
*----
* Define STRUCTURES and MODULES used
*----
-LINKED_LIST MACRO GEOM TRACK PIJ FLUX ;
-MODULE MAC: G2S: SALT: ASM: FLU: GREP: DELETE: END: ;
+LINKED_LIST MACRO GEOM TRACK PIJ FLUX OUT ;
+MODULE MAC: G2S: SALT: ASM: FLU: EDI: GREP: DELETE: END: ;
SEQ_BINARY TRACK_FIL ;
SEQ_ASCII Fic_SAL :: FILE 'lattice_hex_tiso_S30_7cells_macro.dat' ;
SEQ_ASCII Fic_SAL.eps :: FILE 'Fic_SAL_TDCM67.eps' ;
@@ -42,6 +42,15 @@ PIJ FLUX := DELETE: PIJ FLUX ;
* FLUX-CURRENT ITERATION WITHOUT FULL PIJ MATRIX RECONSTRUCTION
PIJ := ASM: MACRO TRACK TRACK_FIL :: ARM EDIT 2 ;
FLUX := FLU: PIJ MACRO TRACK :: EDIT 4 TYPE K ;
+
+* PIN-BY-PIN EDITION
+OUT := EDI: FLUX MACRO TRACK Fic_SAL :: EDIT 2
+ MERG G2S 2
+ TRIA 0.0 0.0 0.68002 0.0 0.068002 0.39261
+ QUAD 0.68002 0.0 2.382203 0.0 1.786652 1.031524 0.068002 0.39261
+ ;
+
+* ASSERTS
assertS FLUX :: 'K-EFFECTIVE' 1 <<keff>> ;
assertS FLUX :: 'K-EFFECTIVE' 1 0.5548652 ;
PIJ FLUX := DELETE: PIJ FLUX ;