From 7dfcc480ba1e19bd3232349fc733caef94034292 Mon Sep 17 00:00:00 2001
From: stainer_t <thomas.stainer@oecd-nea.org>
Date: Mon, 8 Sep 2025 13:48:49 +0200
Subject: Initial commit from Polytechnique Montreal

---
 Dragon/data/g2s_prestation_proc/tst2019_3.c2m | 59 +++++++++++++++++++++++++++
 1 file changed, 59 insertions(+)
 create mode 100644 Dragon/data/g2s_prestation_proc/tst2019_3.c2m

(limited to 'Dragon/data/g2s_prestation_proc/tst2019_3.c2m')

diff --git a/Dragon/data/g2s_prestation_proc/tst2019_3.c2m b/Dragon/data/g2s_prestation_proc/tst2019_3.c2m
new file mode 100644
index 0000000..69ff586
--- /dev/null
+++ b/Dragon/data/g2s_prestation_proc/tst2019_3.c2m
@@ -0,0 +1,59 @@
+*----
+*  Define STRUCTURES and MODULES used
+*----
+LINKED_LIST TRACKM GEOM ; 
+SEQ_BINARY TRKFILM ;
+MODULE GEO: G2S: SALT: TLM: END: ;
+SEQ_ASCII Fil_SAL_fl  :: FILE './Fil_ssym_fl.ps' ;
+SEQ_ASCII Fil_SAL.tdt :: FILE './Fil_ssym.tdt'  ;
+SEQ_ASCII Lines.m    :: FILE './Lines_ssym.m' ;
+
+REAL side rfuel rclad := 1.63600 0.51500 0.60300 ;
+REAL densur := 10.0 ;
+INTEGER an2d := 6 ;
+
+GEOM := GEO: :: CAR2D 9 5 
+  EDIT 0
+  X- VOID     X+ VOID
+  Y- SSYM     Y+ VOID
+  CELL
+  C1 C1 C1 C2 C2 C2 C1 C1 C1
+  C0 C1 C1 C2 C2 C2 C1 C1 C0
+  C0 C0 C1 C1 C1 C1 C1 C0 C0
+  C0 C0 C1 C1 C1 C1 C1 C0 C0
+  C0 C0 C0 C1 C1 C1 C0 C0 C0
+  ::: C2 := GEO: CARCEL 2 1 1 
+         MESHX 0.0 <<side>>
+         MESHY 0.0 <<side>>
+         RADIUS 0.0 <<rfuel>> <<rclad>> 
+         MIX  1 2 3
+  ;
+  ::: C1 := GEO: CAR2D 1 1
+         MESHX 0.0 <<side>>
+         MESHY 0.0 <<side>>
+         MIX  4 
+  ;
+  ::: C0 := GEO: CAR2D 1 1
+         MESHX 0.0 <<side>>
+         MESHY 0.0 <<side>>
+         MIX  0 
+  ;
+  ;  
+
+Fil_SAL.tdt Fil_SAL_fl := G2S: GEOM
+  ;
+
+TRACKM TRKFILM := SALT: Fil_SAL.tdt ::
+  EDIT 2
+  TISO <<an2d>> <<densur>> REND LONG
+  TITLE 'TRACKING FOR TISO'
+  ;
+
+Lines.m := TLM: TRACKM TRKFILM ::
+  EDIT 1
+  MIXTURE
+  NTPO 1
+  DIRECTIONS NoPause DIR 0
+  ;
+ECHO "test tst2019_3 completed" ;
+END: ;
-- 
cgit v1.2.3