From 3b9b6425af90ada817a670222b92e709f3ffde3a Mon Sep 17 00:00:00 2001 From: Alain Hebert Date: Wed, 22 Oct 2025 11:51:30 +0200 Subject: #9: Implement option MERG G2S QUAD in module EDI: --- Dragon/data/salmacro_proc/TDCM67.c2m | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) (limited to 'Dragon/data/salmacro_proc/TDCM67.c2m') 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 <> ; assertS FLUX :: 'K-EFFECTIVE' 1 0.5548652 ; PIJ FLUX := DELETE: PIJ FLUX ; -- cgit v1.2.3