From 7dfcc480ba1e19bd3232349fc733caef94034292 Mon Sep 17 00:00:00 2001 From: stainer_t Date: Mon, 8 Sep 2025 13:48:49 +0200 Subject: Initial commit from Polytechnique Montreal --- Dragon/data/g2s_prestation_proc/cP1_JST0_IS3.c2m | 37 ++++++++++++++++++++++++ 1 file changed, 37 insertions(+) create mode 100644 Dragon/data/g2s_prestation_proc/cP1_JST0_IS3.c2m (limited to 'Dragon/data/g2s_prestation_proc/cP1_JST0_IS3.c2m') diff --git a/Dragon/data/g2s_prestation_proc/cP1_JST0_IS3.c2m b/Dragon/data/g2s_prestation_proc/cP1_JST0_IS3.c2m new file mode 100644 index 0000000..0c72b1f --- /dev/null +++ b/Dragon/data/g2s_prestation_proc/cP1_JST0_IS3.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 './CARCELP130_FIG.ps' ; +SEQ_ASCII CARCEL_PIN :: FILE './CARCELP130_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 3 0 + MESHX 0. 1. + MESHY 0. 1. + RADIUS 0. 0.25 0.55 + MIX 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 ; + +CARCEL_PIN CARCEL_FIG := G2S: GEOM2 :: DRAWNOD ; + +ECHO "test cP1_JST0_IS3 completed" ; + +END: ; -- cgit v1.2.3