Initial commit from Polytechnique Montreal

1 files changed, 32 insertions, 0 deletions

diff --git a/Dragon/data/g2s_prestation_proc/hex_JST1.c2m b/Dragon/data/g2s_prestation_proc/hex_JST1.c2m
new file mode 100644
index 0000000..a1b414c
--- /dev/null
+++ b/Dragon/data/g2s_prestation_proc/hex_JST1.c2m
@@ -0,0 +1,32 @@
+*----
+* Windmill geometry constructed with G2S:
+* UOX or MOX assembly with control rods out
+* 1 HEX ; 1 HEXCEL
+*----
+SEQ_ASCII HEX_FIG ;
+SEQ_ASCII HEX_PIN ;
+SEQ_ASCII HEXCEL_FIG :: FILE './HEXCEL1_FIG.ps' ;
+SEQ_ASCII HEXCEL_PIN :: FILE './HEXCEL1_PIN.dat' ;
+LINKED_LIST GEOM GEOM2 ;
+MODULE GEO: G2S: END: ;
+* 1 HEX
+GEOM := GEO: :: HEX 1
+    HBC S30 REFL
+*    SECT -1 0
+    MIX  1
+    SIDE 1. ;
+
+HEX_PIN HEX_FIG := G2S: GEOM :: DRAWNOD ;
+
+* 1 HEXCEL
+GEOM2 := GEO: :: HEXCEL 2
+    HBC S30 REFL
+    SECT -1 1
+    RADIUS 0. 0.25 0.5
+    MIX  1 2 3 4 5 6 7 8 9 10 11 12 13
+    SIDE 1. ;
+
+HEXCEL_PIN HEXCEL_FIG := G2S: GEOM2 :: DRAWNOD ;
+
+ECHO "test hex_JST1 completed" ;
+END: ;