Initial commit from Polytechnique Montreal

1 files changed, 37 insertions, 0 deletions

diff --git a/Dragon/data/g2s_prestation_proc/cR2_JST2_IS1.c2m b/Dragon/data/g2s_prestation_proc/cR2_JST2_IS1.c2m
new file mode 100644
index 0000000..3f3927a
--- /dev/null
+++ b/Dragon/data/g2s_prestation_proc/cR2_JST2_IS1.c2m
@@ -0,0 +1,37 @@
+*----
+* Windmill geometry constructed with G2S:
+* UOX or MOX assembly with control rods out
+* 1 CAR ; 1 CARCEL
+*----
+SEQ_ASCII CAR_FIG ;
+SEQ_ASCII CAR_PIN ;
+SEQ_ASCII CARCEL_FIG :: FILE './CARCEL_R212_FIG.ps' ;
+SEQ_ASCII CARCEL_PIN :: FILE './CARCEL_R212_PIN.dat' ;
+LINKED_LIST GEOM GEOM2 ;
+MODULE GEO: G2S: END: ;
+* 1 CAR
+GEOM := GEO: :: CAR2D 1 1
+    X- REFL  Y- REFL
+    X+ REFL  Y+ REFL
+*    SECT 1 0 
+    MESHX 0. 1.
+    MESHY 0. 1.
+    MIX   1 ;
+
+CAR_PIN CAR_FIG := G2S: GEOM :: DRAWNOD ;
+
+* 1 CARCEL
+GEOM2 := GEO: :: CARCEL 2
+    X- REFL  Y- REFL
+    X+ REFL  Y+ REFL
+    SECT  1 2
+    MESHX  0. 1.
+    MESHY  0. 2.
+    RADIUS 0. 0.25 0.35
+    MIX    1 2 3 4 5 6 ;
+
+CARCEL_PIN CARCEL_FIG := G2S: GEOM2 :: DRAWNOD ;
+
+ECHO "test cR2_JST2_IS1 completed" ;
+
+END: ;