diff options
Diffstat (limited to 'Dragon/data/g2s_prestation_proc/g2s_pincell.c2m')
| -rw-r--r-- | Dragon/data/g2s_prestation_proc/g2s_pincell.c2m | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/Dragon/data/g2s_prestation_proc/g2s_pincell.c2m b/Dragon/data/g2s_prestation_proc/g2s_pincell.c2m new file mode 100644 index 0000000..c04932d --- /dev/null +++ b/Dragon/data/g2s_prestation_proc/g2s_pincell.c2m @@ -0,0 +1,34 @@ +*---- +* Windmill geometry constructed with G2S: +* UOX or MOX assembly with control rods out +*---- +SEQ_ASCII FIG.ps :: FILE './UOX_PIN_FIG.ps' ; +SEQ_ASCII UOX_PIN :: FILE './UOX_PIN.dat' ; +SEQ_ASCII Lines.m :: FILE './Lines_tiso.m' ; +LINKED_LIST GEOM TRACK ; +MODULE GEO: G2S: SALT: TLM: END: ; +INTEGER an2d := 8 ; +SEQ_BINARY TF_EXC ; +REAL densur := 20.0 ; +* +GEOM := GEO: :: CARCEL 2 + X- ALBE 1.0 X+ ALBE 1.0 Y- ALBE 1.0 Y+ ALBE 1.0 + RADIUS 0.000 0.25 0.450 + MIX 3 2 1 + MESHX -0.625 0.625 + MESHY -0.725 0.725 ; + +UOX_PIN FIG.ps := G2S: GEOM :: DRAWNOD ; + +TRACK TF_EXC := SALT: UOX_PIN :: + EDIT 2 + ALLG + TISO <<an2d>> <<densur>> REND LONG ; + +Lines.m := TLM: TRACK TF_EXC :: + EDIT 99 + NTPO 1 + DIRECTIONS NoPause DIR 0 ; + +ECHO "test g2s_pincell completed" ; +END: ; |
