diff options
| author | stainer_t <thomas.stainer@oecd-nea.org> | 2025-09-08 13:48:49 +0200 |
|---|---|---|
| committer | stainer_t <thomas.stainer@oecd-nea.org> | 2025-09-08 13:48:49 +0200 |
| commit | 7dfcc480ba1e19bd3232349fc733caef94034292 (patch) | |
| tree | 03ee104eb8846d5cc1a981d267687a729185d3f3 /Dragon/data/g2s_prestation_proc | |
Initial commit from Polytechnique Montreal
Diffstat (limited to 'Dragon/data/g2s_prestation_proc')
52 files changed, 3460 insertions, 0 deletions
diff --git a/Dragon/data/g2s_prestation_proc/cP1_JST0_IS2.c2m b/Dragon/data/g2s_prestation_proc/cP1_JST0_IS2.c2m new file mode 100644 index 0000000..b3d2fc1 --- /dev/null +++ b/Dragon/data/g2s_prestation_proc/cP1_JST0_IS2.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 './CARCELP120_FIG.ps' ; +SEQ_ASCII CARCEL_PIN :: FILE './CARCELP120_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 2 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_IS2 completed" ; + +END: ; 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: ; diff --git a/Dragon/data/g2s_prestation_proc/cP1_JST0_IS4.c2m b/Dragon/data/g2s_prestation_proc/cP1_JST0_IS4.c2m new file mode 100644 index 0000000..162dad9 --- /dev/null +++ b/Dragon/data/g2s_prestation_proc/cP1_JST0_IS4.c2m @@ -0,0 +1,38 @@ +*---- +* 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 './CARCELP140_FIG.ps' ; +SEQ_ASCII CARCEL_PIN :: FILE './CARCELP140_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 4 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 25 26 27 28 ; + +CARCEL_PIN CARCEL_FIG := G2S: GEOM2 :: DRAWNOD ; + +ECHO "test cP1_JST0_IS4 completed" ; + +END: ; diff --git a/Dragon/data/g2s_prestation_proc/cP1_JST1_IS2.c2m b/Dragon/data/g2s_prestation_proc/cP1_JST1_IS2.c2m new file mode 100644 index 0000000..4f52724 --- /dev/null +++ b/Dragon/data/g2s_prestation_proc/cP1_JST1_IS2.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 './CARCELP121_FIG.ps' ; +SEQ_ASCII CARCEL_PIN :: FILE './CARCELP121_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 2 1 + 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 ; + +CARCEL_PIN CARCEL_FIG := G2S: GEOM2 :: DRAWNOD ; + +ECHO "test cP1_JST1_IS2 completed" ; + +END: ; diff --git a/Dragon/data/g2s_prestation_proc/cP1_JST1_IS3.c2m b/Dragon/data/g2s_prestation_proc/cP1_JST1_IS3.c2m new file mode 100644 index 0000000..c4af9d5 --- /dev/null +++ b/Dragon/data/g2s_prestation_proc/cP1_JST1_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 './CARCELP131_FIG.ps' ; +SEQ_ASCII CARCEL_PIN :: FILE './CARCELP131_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 1 + 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 ; + +CARCEL_PIN CARCEL_FIG := G2S: GEOM2 :: DRAWNOD ; + +ECHO "test cP1_JST1_IS3 completed" ; + +END: ; diff --git a/Dragon/data/g2s_prestation_proc/cP1_JST1_IS4.c2m b/Dragon/data/g2s_prestation_proc/cP1_JST1_IS4.c2m new file mode 100644 index 0000000..151fe4a --- /dev/null +++ b/Dragon/data/g2s_prestation_proc/cP1_JST1_IS4.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 './CARCELP141_FIG.ps' ; +SEQ_ASCII CARCEL_PIN :: FILE './CARCELP141_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 4 1 + 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 ; + +CARCEL_PIN CARCEL_FIG := G2S: GEOM2 :: DRAWNOD ; + +ECHO "test cP1_JST1_IS4 completed" ; + +END: ; diff --git a/Dragon/data/g2s_prestation_proc/cP1_JST2_IS0.c2m b/Dragon/data/g2s_prestation_proc/cP1_JST2_IS0.c2m new file mode 100644 index 0000000..c52a973 --- /dev/null +++ b/Dragon/data/g2s_prestation_proc/cP1_JST2_IS0.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 './CARCELP102_FIG.ps' ; +SEQ_ASCII CARCEL_PIN :: FILE './CARCELP102_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 0 2 + MESHX 0. 1. + MESHY 0. 1. + RADIUS 0. 0.25 0.55 + MIX 1 2 3 ; + +CARCEL_PIN CARCEL_FIG := G2S: GEOM2 :: DRAWNOD ; + +ECHO "test cP1_JST2_IS0 completed" ; + +END: ; diff --git a/Dragon/data/g2s_prestation_proc/cP1_JST2_IS1.c2m b/Dragon/data/g2s_prestation_proc/cP1_JST2_IS1.c2m new file mode 100644 index 0000000..bb73bf1 --- /dev/null +++ b/Dragon/data/g2s_prestation_proc/cP1_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 './CARCELP112_FIG.ps' ; +SEQ_ASCII CARCEL_PIN :: FILE './CARCELP112_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. 1. + RADIUS 0. 0.25 0.55 + MIX 1 2 3 3 3 3 ; + +CARCEL_PIN CARCEL_FIG := G2S: GEOM2 :: DRAWNOD ; + +ECHO "test cP1_JST2_IS1 completed" ; + +END: ; diff --git a/Dragon/data/g2s_prestation_proc/cP1_JST2_IS2.c2m b/Dragon/data/g2s_prestation_proc/cP1_JST2_IS2.c2m new file mode 100644 index 0000000..16ffa2e --- /dev/null +++ b/Dragon/data/g2s_prestation_proc/cP1_JST2_IS2.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 './CARCELP122_FIG.ps' ; +SEQ_ASCII CARCEL_PIN :: FILE './CARCELP122_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 2 2 + MESHX 0. 1. + MESHY 0. 1. + RADIUS 0. 0.25 0.55 + MIX 1 2 3 4 5 6 7 8 9 10 ; + +CARCEL_PIN CARCEL_FIG := G2S: GEOM2 :: DRAWNOD ; + +ECHO "test cP1_JST2_IS2 completed" ; + +END: ; diff --git a/Dragon/data/g2s_prestation_proc/cP1_JST2_IS3.c2m b/Dragon/data/g2s_prestation_proc/cP1_JST2_IS3.c2m new file mode 100644 index 0000000..0d409c4 --- /dev/null +++ b/Dragon/data/g2s_prestation_proc/cP1_JST2_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 './CARCELP132_FIG.ps' ; +SEQ_ASCII CARCEL_PIN :: FILE './CARCELP132_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 2 + MESHX 0. 1. + MESHY 0. 1. + RADIUS 0. 0.25 0.55 + MIX 1 2 3 4 5 6 7 8 9 10 ; + +CARCEL_PIN CARCEL_FIG := G2S: GEOM2 :: DRAWNOD ; + +ECHO "test cP1_JST2_IS3 completed" ; + +END: ; diff --git a/Dragon/data/g2s_prestation_proc/cP1_JST2_IS4.c2m b/Dragon/data/g2s_prestation_proc/cP1_JST2_IS4.c2m new file mode 100644 index 0000000..163c2d8 --- /dev/null +++ b/Dragon/data/g2s_prestation_proc/cP1_JST2_IS4.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 './CARCELP142_FIG.ps' ; +SEQ_ASCII CARCEL_PIN :: FILE './CARCELP142_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 4 2 + 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 ; + +CARCEL_PIN CARCEL_FIG := G2S: GEOM2 :: DRAWNOD ; + +ECHO "test cP1_JST2_IS4 completed" ; + +END: ; diff --git a/Dragon/data/g2s_prestation_proc/cP1_JST2_Im1.c2m b/Dragon/data/g2s_prestation_proc/cP1_JST2_Im1.c2m new file mode 100644 index 0000000..e8008c7 --- /dev/null +++ b/Dragon/data/g2s_prestation_proc/cP1_JST2_Im1.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 './CARCELP1m12_FIG.ps' ; +SEQ_ASCII CARCEL_PIN :: FILE './CARCELP1m12_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. 1. + RADIUS 0. 0.25 0.52 + MIX 1 2 3 4 5 6 ; + +CARCEL_PIN CARCEL_FIG := G2S: GEOM2 :: DRAWNOD ; + +ECHO "test cP1_JST2_Im1 completed" ; + +END: ; diff --git a/Dragon/data/g2s_prestation_proc/cR2_JST2_IS0.c2m b/Dragon/data/g2s_prestation_proc/cR2_JST2_IS0.c2m new file mode 100644 index 0000000..aa4fe0d --- /dev/null +++ b/Dragon/data/g2s_prestation_proc/cR2_JST2_IS0.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_R202_FIG.ps' ; +SEQ_ASCII CARCEL_PIN :: FILE './CARCEL_R202_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 0 2 + MESHX 0. 1. + MESHY 0. 2. + RADIUS 0. 0.25 0.35 + MIX 1 2 3 ; + +CARCEL_PIN CARCEL_FIG := G2S: GEOM2 :: DRAWNOD ; + +ECHO "test cR2_JST2_IS0 completed" ; + +END: ; 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: ; diff --git a/Dragon/data/g2s_prestation_proc/cR2_JST2_IS4.c2m b/Dragon/data/g2s_prestation_proc/cR2_JST2_IS4.c2m new file mode 100644 index 0000000..ecb49df --- /dev/null +++ b/Dragon/data/g2s_prestation_proc/cR2_JST2_IS4.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_R242_FIG.ps' ; +SEQ_ASCII CARCEL_PIN :: FILE './CARCEL_R242_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. 2. + MIX 1 ; + +CAR_PIN CAR_FIG := G2S: GEOM :: DRAWNOD ; + +* 1 CARCEL +GEOM2 := GEO: :: CARCEL 2 + X- REFL Y- REFL + X+ REFL Y+ REFL + SECT 4 2 + MESHX 0. 1. + MESHY 0. 2. + RADIUS 0. 0.25 0.35 + MIX 1 2 3 4 5 6 7 8 9 10 11 12 13 14 ; + +CARCEL_PIN CARCEL_FIG := G2S: GEOM2 :: DRAWNOD ; + +ECHO "test cR2_JST2_IS4 completed" ; + +END: ; diff --git a/Dragon/data/g2s_prestation_proc/cR2_JST2_Im1.c2m b/Dragon/data/g2s_prestation_proc/cR2_JST2_Im1.c2m new file mode 100644 index 0000000..fc07feb --- /dev/null +++ b/Dragon/data/g2s_prestation_proc/cR2_JST2_Im1.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_R2m12_FIG.ps' ; +SEQ_ASCII CARCEL_PIN :: FILE './CARCEL_R2m12_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_Im1 completed" ; + +END: ; diff --git a/Dragon/data/g2s_prestation_proc/cS1_JST0_IS3.c2m b/Dragon/data/g2s_prestation_proc/cS1_JST0_IS3.c2m new file mode 100644 index 0000000..4b6c1ed --- /dev/null +++ b/Dragon/data/g2s_prestation_proc/cS1_JST0_IS3.c2m @@ -0,0 +1,38 @@ +*---- +* 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 './CARCELS130_FIG.ps' ; +SEQ_ASCII CARCEL_PIN :: FILE './CARCELS130_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 3 + X- REFL Y- REFL + X+ REFL Y+ REFL + SECT 3 0 + MESHX 0. 1. + MESHY 0. 1. + RADIUS 0. 0.25 0.35 0.5412 + 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 + 25 26 27 28 29 30 31 32 ; + +CARCEL_PIN CARCEL_FIG := G2S: GEOM2 :: DRAWNOD ; + +ECHO "test cS1_JST0_IS3 completed" ; + +END: ; diff --git a/Dragon/data/g2s_prestation_proc/cS1_JST1_IS3.c2m b/Dragon/data/g2s_prestation_proc/cS1_JST1_IS3.c2m new file mode 100644 index 0000000..68cc9f2 --- /dev/null +++ b/Dragon/data/g2s_prestation_proc/cS1_JST1_IS3.c2m @@ -0,0 +1,38 @@ +*---- +* 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 './CARCELS131_FIG.ps' ; +SEQ_ASCII CARCEL_PIN :: FILE './CARCELS131_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 3 + X- REFL Y- REFL + X+ REFL Y+ REFL + SECT 3 1 + MESHX 0. 1. + MESHY 0. 1. + RADIUS 0. 0.25 0.35 0.5412 + 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 25 ; + +CARCEL_PIN CARCEL_FIG := G2S: GEOM2 :: DRAWNOD ; + +ECHO "test cS1_JST1_IS3 completed" ; + +END: ; diff --git a/Dragon/data/g2s_prestation_proc/cS1_JST2_IS3.c2m b/Dragon/data/g2s_prestation_proc/cS1_JST2_IS3.c2m new file mode 100644 index 0000000..b542ee1 --- /dev/null +++ b/Dragon/data/g2s_prestation_proc/cS1_JST2_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 './CARCELS132_FIG.ps' ; +SEQ_ASCII CARCEL_PIN :: FILE './CARCELS132_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 3 + X- REFL Y- REFL + X+ REFL Y+ REFL + SECT 3 2 + MESHX 0. 1. + MESHY 0. 1. + RADIUS 0. 0.25 0.35 0.5412 + MIX 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 ; + +CARCEL_PIN CARCEL_FIG := G2S: GEOM2 :: DRAWNOD ; + +ECHO "test cS1_JST2_IS3 completed" ; + +END: ; diff --git a/Dragon/data/g2s_prestation_proc/car_JST0_IS2.c2m b/Dragon/data/g2s_prestation_proc/car_JST0_IS2.c2m new file mode 100644 index 0000000..b6fa988 --- /dev/null +++ b/Dragon/data/g2s_prestation_proc/car_JST0_IS2.c2m @@ -0,0 +1,36 @@ +*---- +* 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 './CARCEL20_FIG.ps' ; +SEQ_ASCII CARCEL_PIN :: FILE './CARCEL20_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 2 0 + MESHX 0. 1. + MESHY 0. 1. + RADIUS 0. 0.25 0.5 + 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 car_JST0_IS2 completed" ; +END: ; 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: ; diff --git a/Dragon/data/g2s_prestation_proc/g2s_test.c2m b/Dragon/data/g2s_prestation_proc/g2s_test.c2m new file mode 100644 index 0000000..c89c14b --- /dev/null +++ b/Dragon/data/g2s_prestation_proc/g2s_test.c2m @@ -0,0 +1,221 @@ +*---- +* Windmill geometry constructed with G2S: +* UOX or MOX assembly with control rods out +*---- +SEQ_ASCII UOX_TBH :: FILE './UOX_TBH_G2S.dat' ; +SEQ_ASCII FIG.ps :: FILE './UOX_TBH_FIG.ps' ; +SEQ_ASCII Lines.m :: FILE './Lines.m' ; +SEQ_BINARY TF_EXC ; +LINKED_LIST GEON2 TRACKN2 ; +MODULE GEO: G2S: SALT: TLM: END: ; +REAL densur := 1.0 ; +INTEGER an2d := 8 ; +* +REAL cote := 1.26 ; +REAL lame := 0.042 ; +REAL Rcomb1 := 0.288712 ; +REAL Rcomb2 := 0.365195 ; +REAL Rcomb3 := 0.397962 ; +REAL Rcomb4 := 0.4083 ; +REAL R_int_G := 0.4165 ; +REAL R_ext_G := 0.4775 ; +REAL Rtub1 := 0.1897 ; +REAL Rtub2 := 0.3794 ; +REAL R_int_TI := 0.5691 ; +REAL R_ext_TI := 0.6095 ; +REAL mesh1 := cote ; +REAL mesh2 := mesh1 cote + ; +REAL mesh3 := mesh2 cote + ; +REAL mesh4 := mesh3 cote + ; +REAL mesh5 := mesh4 cote + ; +REAL mesh6 := mesh5 cote + ; +REAL mesh7 := mesh6 cote + ; +REAL mesh8 := mesh7 cote + ; +REAL mesh9 := mesh8 cote + ; +REAL mesh10 := mesh9 lame + ; +* +GEON2 := GEO: :: CAR2D 10 10 + EDIT 0 + X- DIAG X+ ALBE 1.0 + Y- SYME Y+ DIAG + CELL + TI C0201 C0301 TG C0501 C0601 TG C0801 C0901 Lame_V + C0202 C0302 C0402 C0502 C0602 C0702 C0802 C0902 Lame_V + C0303 C0403 C0503 C0603 C0703 C0803 C0903 Lame_V + TG C0504 C0604 TG C0804 C0904 Lame_V + C0505 C0605 C0705 C0805 C0905 Lame_V + TG C0706 C0806 C0906 Lame_V + C0707 C0807 C0907 Lame_V + C0808 C0908 Lame_V + C0909 Lame_V + Lame_C + MESHX 0.0 <<mesh1>> <<mesh2>> <<mesh3>> <<mesh4>> <<mesh5>> <<mesh6>> + <<mesh7>> <<mesh8>> <<mesh9>> <<mesh10>> + MESHY 0.0 <<mesh1>> <<mesh2>> <<mesh3>> <<mesh4>> <<mesh5>> <<mesh6>> + <<mesh7>> <<mesh8>> <<mesh9>> <<mesh10>> + ::: Lame_C := GEO: CAR2D 1 1 + MESHX 0.0 <<lame>> MESHY 0.0 <<lame>> + MIX 1 ; + + ::: Lame_V := GEO: CAR2D 1 1 + MESHX 0.0 <<lame>> MESHY 0.0 <<cote>> + SPLITY 3 MIX 1 ; + + ::: C0201 := GEO: CARCEL 6 + MESHX 0.0 <<cote>> + MESHY 0.0 <<cote>> + SECT 2 6 + RADIUS 0.0 <<Rcomb1>> <<Rcomb2>> <<Rcomb3>> <<Rcomb4>> + <<R_int_G>> <<R_ext_G>> + MIX 3 4 5 6 7 8 1 1 1 1 1 1 1 1 ; + + ::: C0202 := GEO: C0201 + MIX 9 10 11 12 7 8 1 1 1 1 1 1 1 1 ; + + ::: C0301 := GEO: C0201 + MIX 13 14 15 16 7 8 1 1 1 1 1 1 1 1 ; + + ::: C0302 := GEO: C0201 + MIX 17 18 19 20 7 8 1 1 1 1 1 1 1 1 ; + + ::: C0303 := GEO: C0201 + MIX 21 22 23 24 7 8 1 1 1 1 1 1 1 1 ; + + ::: C0402 := GEO: C0201 + MIX 26 27 28 29 7 8 1 1 1 1 1 1 1 1 ; + + ::: C0403 := GEO: C0201 + MIX 30 31 32 33 7 8 1 1 1 1 1 1 1 1 ; + + ::: C0501 := GEO: C0201 + MIX 34 35 36 37 7 8 1 1 1 1 1 1 1 1 ; + + ::: C0502 := GEO: C0201 + MIX 38 39 40 41 7 8 1 1 1 1 1 1 1 1 ; + + ::: C0503 := GEO: C0201 + MIX 42 43 44 45 7 8 1 1 1 1 1 1 1 1 ; + + ::: C0504 := GEO: C0201 + MIX 46 47 48 49 7 8 1 1 1 1 1 1 1 1 ; + + ::: C0505 := GEO: C0201 + MIX 50 51 52 53 7 8 1 1 1 1 1 1 1 1 ; + + ::: C0601 := GEO: C0201 + MIX 54 55 56 57 7 8 1 1 1 1 1 1 1 1 ; + + ::: C0602 := GEO: C0201 + MIX 58 59 60 61 7 8 1 1 1 1 1 1 1 1 ; + + ::: C0603 := GEO: C0201 + MIX 62 63 64 65 7 8 1 1 1 1 1 1 1 1 ; + + ::: C0604 := GEO: C0201 + MIX 66 67 68 69 7 8 1 1 1 1 1 1 1 1 ; + + ::: C0605 := GEO: C0201 + MIX 70 71 72 73 7 8 1 1 1 1 1 1 1 1 ; + + ::: C0702 := GEO: C0201 + MIX 74 75 76 77 7 8 1 1 1 1 1 1 1 1 ; + + ::: C0703 := GEO: C0201 + MIX 78 79 80 81 7 8 1 1 1 1 1 1 1 1 ; + + ::: C0705 := GEO: C0201 + MIX 82 83 84 85 7 8 1 1 1 1 1 1 1 1 ; + + ::: C0706 := GEO: C0201 + MIX 86 87 88 89 7 8 1 1 1 1 1 1 1 1 ; + + ::: C0707 := GEO: C0201 + MIX 90 91 92 93 7 8 1 1 1 1 1 1 1 1 ; + + ::: C0801 := GEO: C0201 + MIX 94 95 96 97 7 8 1 1 1 1 1 1 1 1 ; + + ::: C0802 := GEO: C0201 + MIX 98 99 100 101 7 8 1 1 1 1 1 1 1 1 ; + + ::: C0803 := GEO: C0201 + MIX 102 103 104 105 7 8 1 1 1 1 1 1 1 1 ; + + ::: C0804 := GEO: C0201 + MIX 106 107 108 109 7 8 1 1 1 1 1 1 1 1 ; + + ::: C0805 := GEO: C0201 + MIX 110 111 112 113 7 8 1 1 1 1 1 1 1 1 ; + + ::: C0806 := GEO: C0201 + MIX 114 115 116 117 7 8 1 1 1 1 1 1 1 1 ; + + ::: C0807 := GEO: C0201 + MIX 118 119 120 121 7 8 1 1 1 1 1 1 1 1 ; + + ::: C0808 := GEO: C0201 + MIX 122 123 124 125 7 8 1 1 1 1 1 1 1 1 ; + + ::: C0901 := GEO: C0201 + MIX 126 127 128 129 7 8 1 1 1 1 1 1 1 1 ; + + ::: C0902 := GEO: C0201 + MIX 130 131 132 133 7 8 1 1 1 1 1 1 1 1 ; + + ::: C0903 := GEO: C0201 + MIX 134 135 136 137 7 8 1 1 1 1 1 1 1 1 ; + + ::: C0904 := GEO: C0201 + MIX 138 139 140 141 7 8 1 1 1 1 1 1 1 1 ; + + ::: C0905 := GEO: C0201 + MIX 142 143 144 145 7 8 1 1 1 1 1 1 1 1 ; + + ::: C0906 := GEO: C0201 + MIX 146 147 148 149 7 8 1 1 1 1 1 1 1 1 ; + + ::: C0907 := GEO: C0201 + MIX 150 151 152 153 7 8 1 1 1 1 1 1 1 1 ; + + ::: C0908 := GEO: C0201 + MIX 154 155 156 157 7 8 1 1 1 1 1 1 1 1 ; + + ::: C0909 := GEO: C0201 + MIX 158 159 160 161 7 8 1 1 1 1 1 1 1 1 ; + + ::: TG := GEO: CARCEL 4 + MESHX 0.0 <<cote>> + MESHY 0.0 <<cote>> + SECT 2 0 + RADIUS 0.0 <<Rtub1>> <<Rtub2>> <<R_int_TI>> <<R_ext_TI>> + MIX 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 25 25 25 25 25 25 25 25 + 1 1 1 1 1 1 1 1 ; + + ::: TI := GEO: CARCEL 4 + MESHX 0.0 <<cote>> + MESHY 0.0 <<cote>> + SECT 2 0 + RADIUS 0.0 <<Rtub1>> <<Rtub2>> <<R_int_TI>> <<R_ext_TI>> + MIX 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 2 2 2 2 2 2 2 2 + 1 1 1 1 1 1 1 1 ; +; + +UOX_TBH FIG.ps := G2S: GEON2 :: DRAWMIX ; +TRACKN2 TF_EXC := SALT: UOX_TBH :: + EDIT 1 + REND LONG TISO <<an2d>> <<densur>> +; + +Lines.m := TLM: TRACKN2 TF_EXC :: + EDIT 99 + NTPO 1 + DIRECTIONS NoPause DIR 0 ; + +ECHO "test g2s_test completed" ; +END: ; diff --git a/Dragon/data/g2s_prestation_proc/hex.c2m b/Dragon/data/g2s_prestation_proc/hex.c2m new file mode 100644 index 0000000..1e98e30 --- /dev/null +++ b/Dragon/data/g2s_prestation_proc/hex.c2m @@ -0,0 +1,33 @@ +*---- +* 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 './HEXCEL_FIG.ps' ; +SEQ_ASCII HEXCEL_PIN :: FILE './HEXCEL_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 2 + RADIUS 0. 0.25 0.5 + MIX 1 1 1 1 1 1 + 2 3 + SIDE 1. ; + +HEXCEL_PIN HEXCEL_FIG := G2S: GEOM2 :: DRAWNOD ; + +ECHO "test hex completed" ; +END: ; diff --git a/Dragon/data/g2s_prestation_proc/hex_JST0.c2m b/Dragon/data/g2s_prestation_proc/hex_JST0.c2m new file mode 100644 index 0000000..78ef49e --- /dev/null +++ b/Dragon/data/g2s_prestation_proc/hex_JST0.c2m @@ -0,0 +1,34 @@ +*---- +* 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 './HEXCEL0_FIG.ps' ; +SEQ_ASCII HEXCEL_PIN :: FILE './HEXCEL0_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 0 + RADIUS 0. 0.25 0.5 + MIX 1 1 1 1 1 1 + 2 2 2 2 2 2 + 3 3 3 3 3 3 + SIDE 1. ; + +HEXCEL_PIN HEXCEL_FIG := G2S: GEOM2 :: DRAWNOD ; + +ECHO "test hex_JST0 completed" ; +END: ; 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: ; diff --git a/Dragon/data/g2s_prestation_proc/hex_JST2.c2m b/Dragon/data/g2s_prestation_proc/hex_JST2.c2m new file mode 100644 index 0000000..816a308 --- /dev/null +++ b/Dragon/data/g2s_prestation_proc/hex_JST2.c2m @@ -0,0 +1,33 @@ +*---- +* 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 './HEXCEL2_FIG.ps' ; +SEQ_ASCII HEXCEL_PIN :: FILE './HEXCEL2_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 2 + RADIUS 0. 0.25 0.5 + MIX 1 1 1 1 1 1 + 2 3 + SIDE 1. ; + +HEXCEL_PIN HEXCEL_FIG := G2S: GEOM2 :: DRAWNOD ; + +ECHO "test hex_JST2 completed" ; +END: ; diff --git a/Dragon/data/g2s_prestation_proc/hex_P1_JST0.c2m b/Dragon/data/g2s_prestation_proc/hex_P1_JST0.c2m new file mode 100644 index 0000000..9c8d2ef --- /dev/null +++ b/Dragon/data/g2s_prestation_proc/hex_P1_JST0.c2m @@ -0,0 +1,34 @@ +*---- +* 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 './HEXCEL_P10_FIG.ps' ; +SEQ_ASCII HEXCEL_PIN :: FILE './HEXCEL_P10_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 0 + RADIUS 0. 0.25 0.95 + MIX 1 1 1 1 1 1 + 2 2 2 2 2 2 + 3 3 3 3 3 3 + SIDE 1. ; + +HEXCEL_PIN HEXCEL_FIG := G2S: GEOM2 :: DRAWNOD ; + +ECHO "test hex_P1_JST0 completed" ; +END: ; diff --git a/Dragon/data/g2s_prestation_proc/hex_P1_JST1.c2m b/Dragon/data/g2s_prestation_proc/hex_P1_JST1.c2m new file mode 100644 index 0000000..3f7dbc1 --- /dev/null +++ b/Dragon/data/g2s_prestation_proc/hex_P1_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 './HEXCEL_P11_FIG.ps' ; +SEQ_ASCII HEXCEL_PIN :: FILE './HEXCEL_P11_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.95 + 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_P1_JST1 completed" ; +END: ; diff --git a/Dragon/data/g2s_prestation_proc/hex_P1_JST2.c2m b/Dragon/data/g2s_prestation_proc/hex_P1_JST2.c2m new file mode 100644 index 0000000..ba98cd1 --- /dev/null +++ b/Dragon/data/g2s_prestation_proc/hex_P1_JST2.c2m @@ -0,0 +1,34 @@ +*---- +* 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 './HEXCEL_P12_FIG.ps' ; +SEQ_ASCII HEXCEL_PIN :: FILE './HEXCEL_P12_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 2 + RADIUS 0. 0.25 0.95 + MIX 1 1 1 1 1 1 + 2 + 3 + SIDE 1. ; + +HEXCEL_PIN HEXCEL_FIG := G2S: GEOM2 :: DRAWNOD ; + +ECHO "test hex_P1_JST2 completed" ; +END: ; diff --git a/Dragon/data/g2s_prestation_proc/hex_P2_JST0.c2m b/Dragon/data/g2s_prestation_proc/hex_P2_JST0.c2m new file mode 100644 index 0000000..1012802 --- /dev/null +++ b/Dragon/data/g2s_prestation_proc/hex_P2_JST0.c2m @@ -0,0 +1,34 @@ +*---- +* 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 './HEXCEL_P20_FIG.ps' ; +SEQ_ASCII HEXCEL_PIN :: FILE './HEXCEL_P20_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 0 + RADIUS 0. 0.25 0.86602540 + MIX 1 1 1 1 1 1 + 2 2 2 2 2 2 + 3 3 3 3 3 3 + SIDE 1. ; + +HEXCEL_PIN HEXCEL_FIG := G2S: GEOM2 :: DRAWNOD ; + +ECHO "test hex_P2_JST0 completed" ; +END: ; diff --git a/Dragon/data/g2s_prestation_proc/hex_P2_JST1.c2m b/Dragon/data/g2s_prestation_proc/hex_P2_JST1.c2m new file mode 100644 index 0000000..7cfb6e4 --- /dev/null +++ b/Dragon/data/g2s_prestation_proc/hex_P2_JST1.c2m @@ -0,0 +1,34 @@ +*---- +* 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 './HEXCEL_P21_FIG.ps' ; +SEQ_ASCII HEXCEL_PIN :: FILE './HEXCEL_P21_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.86602540 + MIX 1 1 1 1 1 1 + 2 2 2 2 2 2 + 3 + SIDE 1. ; + +HEXCEL_PIN HEXCEL_FIG := G2S: GEOM2 :: DRAWNOD ; + +ECHO "test hex_P2_JST1 completed" ; +END: ; diff --git a/Dragon/data/g2s_prestation_proc/hex_P2_JST2.c2m b/Dragon/data/g2s_prestation_proc/hex_P2_JST2.c2m new file mode 100644 index 0000000..f88e368 --- /dev/null +++ b/Dragon/data/g2s_prestation_proc/hex_P2_JST2.c2m @@ -0,0 +1,34 @@ +*---- +* 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 './HEXCEL_P22_FIG.ps' ; +SEQ_ASCII HEXCEL_PIN :: FILE './HEXCEL_P22_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 2 + RADIUS 0. 0.25 0.86602540 + MIX 1 1 1 1 1 1 + 2 + 3 + SIDE 1. ; + +HEXCEL_PIN HEXCEL_FIG := G2S: GEOM2 :: DRAWNOD ; + +ECHO "test hex_P2_JST2 completed" ; +END: ; diff --git a/Dragon/data/g2s_prestation_proc/hex_P3_JST0.c2m b/Dragon/data/g2s_prestation_proc/hex_P3_JST0.c2m new file mode 100644 index 0000000..d9e26e2 --- /dev/null +++ b/Dragon/data/g2s_prestation_proc/hex_P3_JST0.c2m @@ -0,0 +1,35 @@ +*---- +* 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 './HEXCEL_P30_FIG.ps' ; +SEQ_ASCII HEXCEL_PIN :: FILE './HEXCEL_P30_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 0 + OFFCENTER 0.25 0.3 + RADIUS 0. 0.3 0.4 + MIX 1 1 1 1 1 1 + 2 2 2 2 2 2 + 3 3 3 3 3 3 + SIDE 1. ; + +HEXCEL_PIN HEXCEL_FIG := G2S: GEOM2 :: DRAWNOD ; + +ECHO "test hex_P3_JST0 completed" ; +END: ; diff --git a/Dragon/data/g2s_prestation_proc/hex_P3_JST1.c2m b/Dragon/data/g2s_prestation_proc/hex_P3_JST1.c2m new file mode 100644 index 0000000..437327a --- /dev/null +++ b/Dragon/data/g2s_prestation_proc/hex_P3_JST1.c2m @@ -0,0 +1,35 @@ +*---- +* 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 './HEXCEL_P31_FIG.ps' ; +SEQ_ASCII HEXCEL_PIN :: FILE './HEXCEL_P31_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 + OFFCENTER 0.25 0.3 + RADIUS 0. 0.3 0.4 + MIX 1 1 1 1 1 1 + 2 2 2 2 2 2 + 3 + SIDE 1. ; + +HEXCEL_PIN HEXCEL_FIG := G2S: GEOM2 :: DRAWNOD ; + +ECHO "test hex_P3_JST1 completed" ; +END: ; diff --git a/Dragon/data/g2s_prestation_proc/hex_P3_JST2.c2m b/Dragon/data/g2s_prestation_proc/hex_P3_JST2.c2m new file mode 100644 index 0000000..315c06b --- /dev/null +++ b/Dragon/data/g2s_prestation_proc/hex_P3_JST2.c2m @@ -0,0 +1,35 @@ +*---- +* 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 './HEXCEL_P32_FIG.ps' ; +SEQ_ASCII HEXCEL_PIN :: FILE './HEXCEL_P32_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 2 + OFFCENTER 0.25 0.3 + RADIUS 0. 0.3 0.4 + MIX 1 1 1 1 1 1 + 2 + 3 + SIDE 1. ; + +HEXCEL_PIN HEXCEL_FIG := G2S: GEOM2 :: DRAWNOD ; + +ECHO "test hex_P3_JST2 completed" ; +END: ; diff --git a/Dragon/data/g2s_prestation_proc/hex_P4_JST0.c2m b/Dragon/data/g2s_prestation_proc/hex_P4_JST0.c2m new file mode 100644 index 0000000..36fd70a --- /dev/null +++ b/Dragon/data/g2s_prestation_proc/hex_P4_JST0.c2m @@ -0,0 +1,34 @@ +*---- +* 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 './HEXCEL_P40_FIG.ps' ; +SEQ_ASCII HEXCEL_PIN :: FILE './HEXCEL_P40_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 0 + RADIUS 0. 0.25 0.3 + MIX 1 1 1 1 1 1 + 2 2 2 2 2 2 + 3 3 3 3 3 3 + SIDE 1. ; + +HEXCEL_PIN HEXCEL_FIG := G2S: GEOM2 :: DRAWNOD ; + +ECHO "test hex_P4_JST0 completed" ; +END: ; diff --git a/Dragon/data/g2s_prestation_proc/hex_P4_JST1.c2m b/Dragon/data/g2s_prestation_proc/hex_P4_JST1.c2m new file mode 100644 index 0000000..13ef131 --- /dev/null +++ b/Dragon/data/g2s_prestation_proc/hex_P4_JST1.c2m @@ -0,0 +1,34 @@ +*---- +* 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 './HEXCEL_P41_FIG.ps' ; +SEQ_ASCII HEXCEL_PIN :: FILE './HEXCEL_P41_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.3 + MIX 1 1 1 1 1 1 + 2 2 2 2 2 2 + 3 + SIDE 1. ; + +HEXCEL_PIN HEXCEL_FIG := G2S: GEOM2 :: DRAWNOD ; + +ECHO "test hex_P4_JST1 completed" ; +END: ; diff --git a/Dragon/data/g2s_prestation_proc/hex_P4_JST2.c2m b/Dragon/data/g2s_prestation_proc/hex_P4_JST2.c2m new file mode 100644 index 0000000..cc35d9c --- /dev/null +++ b/Dragon/data/g2s_prestation_proc/hex_P4_JST2.c2m @@ -0,0 +1,34 @@ +*---- +* 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 './HEXCEL_P42_FIG.ps' ; +SEQ_ASCII HEXCEL_PIN :: FILE './HEXCEL_P42_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 2 + RADIUS 0. 0.25 0.3 + MIX 1 1 1 1 1 1 + 2 + 3 + SIDE 1. ; + +HEXCEL_PIN HEXCEL_FIG := G2S: GEOM2 :: DRAWNOD ; + +ECHO "test hex_P4_JST2 completed" ; +END: ; diff --git a/Dragon/data/g2s_prestation_proc/isocel_r60.tdt b/Dragon/data/g2s_prestation_proc/isocel_r60.tdt new file mode 100644 index 0000000..1f1d302 --- /dev/null +++ b/Dragon/data/g2s_prestation_proc/isocel_r60.tdt @@ -0,0 +1,189 @@ +BEGIN + + DEFINE DOMAINE + ============== + + 1.main dimensions: + +*typgeo nbfold nbnode nbelem + 1 6 5 17 1 5 + + 2.impression and precision: + +*index kndex prec + 0 0 1 + + 3.precision of geometry data: + +*eps + 9.9999997E-05 + + 4.flux region number per geometry region (mesh): + +*merge + 1 2 3 4 5 + + 5.name of geometry: + +*macro_name + isocel_bug + + 6.macro order number per flux region: + +*macro_indices + 1 1 1 1 1 + + 7.read integer and real data for each elements: + + elem = 1 +*type node- node+ + 1 1 0 +*cx cy ex or R ey or theta1 theta2 + 7.1314831E+00 1.1247909E+01 6.2499046E-03 -1.0825157E-02 0.0000000E+00 + + elem = 2 +*type node- node+ + 1 1 0 +*cx cy ex or R ey or theta1 theta2 + 6.4877334E+00 1.1237083E+01 6.2499046E-03 1.0825157E-02 0.0000000E+00 + + elem = 3 +*type node- node+ + 1 1 0 +*cx cy ex or R ey or theta1 theta2 + 7.0877333E+00 1.1323686E+01 4.3749809E-02 -7.5777054E-02 0.0000000E+00 + + elem = 4 +*type node- node+ + 1 1 0 +*cx cy ex or R ey or theta1 theta2 + 6.4939833E+00 1.1247909E+01 4.3749809E-02 7.5777054E-02 0.0000000E+00 + + elem = 5 +*type node- node+ + 1 2 0 +*cx cy ex or R ey or theta1 theta2 + 7.1377330E+00 1.1237083E+01 2.5235047E-01 -4.3708300E-01 0.0000000E+00 + + elem = 6 +*type node- node+ + 3 1 2 +*cx cy ex or R ey or theta1 theta2 + 6.8127332E+00 1.1800000E+01 6.5000004E-01 2.8874530E+02 1.1254704E+01 + + elem = 7 +*type node- node+ + 1 2 3 +*cx cy ex or R ey or theta1 theta2 + 6.8127332E+00 1.08000000+01 0.0000000E+00 2.6387818E-01 0.0000000E+00 + + elem = 8 +*type node- node+ + 1 3 0 +*cx cy ex or R ey or theta1 theta2 + 6.2353829E+00 1.0800000E+01 2.5235047E-01 4.3708300E-01 0.0000000E+00 + + elem = 9 +*type node- node+ + 3 1 3 +*cx cy ex or R ey or theta1 theta2 + 6.8127332E+00 1.1800000E+01 6.5000004E-01 2.4000000E+02 1.1254704E+01 + + elem = 10 +*type node- node+ + 1 4 2 +*cx cy ex or R ey or theta1 theta2 + 7.0216184E+00 1.1184478E+01 -2.0888519E-01 -1.2059975E-01 0.0000000E+00 + + elem = 11 +*type node- node+ + 1 4 3 +*cx cy ex or R ey or theta1 theta2 + 6.8127332E+00 1.1063878E+01 -2.0888519E-01 1.2059975E-01 0.0000000E+00 + + elem = 12 +*type node- node+ + 3 1 4 +*cx cy ex or R ey or theta1 theta2 + 6.8127332E+00 1.1800000E+01 6.5000004E-01 2.5125471E+02 3.7490582E+01 + + elem = 13 +*type node- node+ + 1 5 0 +*cx cy ex or R ey or theta1 theta2 + 6.5377331E+00 1.1323686E+01 2.7500010E-01 4.7631454E-01 0.0000000E+00 + + elem = 14 +*type node- node+ + 1 5 0 +*cx cy ex or R ey or theta1 theta2 + 6.8127332E+00 1.1800000E+01 2.7500010E-01 -4.7631454E-01 0.0000000E+00 + + elem = 15 +*type node- node+ + 3 5 1 +*cx cy ex or R ey or theta1 theta2 + 6.8127332E+00 1.1800000E+01 5.5000001E-01 2.4000000E+02 5.9999989E+01 + + elem = 16 +*type node- node+ + 1 2 0 +*cx cy ex or R ey or theta1 theta2 + 7.3900830E+00 1.0800000E+01 -5.7735027E-01 0.0000000E+00 0.0000000E+00 + + elem = 17 +*type node- node+ + 1 3 0 +*cx cy ex or R ey or theta1 theta2 + 6.8127332E+00 1.0800000E+01 -5.7735027E-01 0.0000000E+00 0.0000000E+00 + + 8.read integer and real data for boundary conditions: + +*defaul nbbcda allsur divsur ndivsur + 0 3 0 0 0 + + DEFAULT = VOID + ============== + +*albedo deltasur + 1.0000000E+00 0.0000000E+00 + + particular boundary condition number 1 + +*type nber + 1 2 + +*elems(1,nber) + 16 17 + +*cx cy angle + 6.2353830E+00 1.0800000E+01 0.0000000E+00 + + particular boundary condition number 2 + +*type nber + 1 4 + +*elems(1,nber) + 8 2 4 13 + +*cx cy angle + 6.2353830E+00 1.0800000E+01 0.0000000E+00 + + particular boundary condition number 3 + +*type nber + 1 4 + +*elems(1,nber) + 5 1 3 14 + +*cx cy angle + 7.3900830E+00 1.0800000E+01 1.2000000E+02 + + 9.medium per node: + +*mil(nbreg) + 1 2 3 4 5 + +END diff --git a/Dragon/data/g2s_prestation_proc/lozenge_r120.tdt b/Dragon/data/g2s_prestation_proc/lozenge_r120.tdt new file mode 100644 index 0000000..a2a9481 --- /dev/null +++ b/Dragon/data/g2s_prestation_proc/lozenge_r120.tdt @@ -0,0 +1,150 @@ +BEGIN +* typgeo nbfold nbnode nbelem nbmacr nbreg + 2 3 5 26 1 5 +* index kndex prec + 0 0 1 +* eps eps0 + 1.000000047E-03 9.999999747E-06 +* num_of_region/mesh + 1 2 3 4 5 +* name_of_geometry + GEOM +* macro_order_index_per_flux_region + 1 1 1 1 1 + elem = 1 +*type node- node+ + 1 0 1 +*cx cy ex_or_R ey_or_theta1 theta2 + 1.227350167E+00 9.999995026E-01 -1.250008807E-02 9.269053081E-08 1.250008807E-02 + elem = 2 +*type node- node+ + 1 1 0 +*cx cy ex_or_R ey_or_theta1 theta2 + 2.523504235E-01 4.370831383E-01 6.249963761E-03 1.082544016E-02 1.250008807E-02 + elem = 3 +*type node- node+ + 1 0 1 +*cx cy ex_or_R ey_or_theta1 theta2 + 1.214850079E+00 9.999995953E-01 -8.750010938E-02 2.353488604E-07 8.750010938E-02 + elem = 4 +*type node- node+ + 1 1 0 +*cx cy ex_or_R ey_or_theta1 theta2 + 2.586003873E-01 4.479085785E-01 4.374985087E-02 7.577743523E-02 8.750010938E-02 + elem = 5 +*type node- node+ + 3 1 2 +*cx cy ex_or_R ey_or_theta1 theta2 + 5.773504859E-01 1.000000193E+00 6.500000522E-01 2.999999399E+02 1.125469068E+01 + elem = 6 +*type node- node+ + 3 1 2 +*cx cy ex_or_R ey_or_theta1 theta2 + 5.773496662E-01 9.999997197E-01 6.500000522E-01 2.887453627E+02 1.125469068E+01 + elem = 7 +*type node- node+ + 1 3 2 +*cx cy ex_or_R ey_or_theta1 theta2 + 1.443375416E+00 4.999999329E-01 -2.285252556E-01 1.319389331E-01 2.638781433E-01 + elem = 8 +*type node- node+ + 1 2 3 +*cx cy ex_or_R ey_or_theta1 theta2 + 5.773501283E-01 5.329070518E-15 1.599999999E-07 2.638781433E-01 2.638781433E-01 + elem = 9 +*type node- node+ + 1 0 3 +*cx cy ex_or_R ey_or_theta1 theta2 + 1.732050480E+00 9.999998109E-01 -5.047003131E-01 -3.082708240E-07 5.047003131E-01 + elem = 10 +*type node- node+ + 1 3 0 +*cx cy ex_or_R ey_or_theta1 theta2 + 0.000000000E+00 3.552713679E-15 2.523504235E-01 4.370831383E-01 5.047003131E-01 + elem = 11 +*type node- node+ + 3 1 3 +*cx cy ex_or_R ey_or_theta1 theta2 + 5.773499520E-01 9.999999825E-01 6.500002149E-01 3.487452604E+02 1.125468725E+01 + elem = 12 +*type node- node+ + 3 1 3 +*cx cy ex_or_R ey_or_theta1 theta2 + 5.773501154E-01 1.000000077E+00 6.500002149E-01 2.400000456E+02 1.125468725E+01 + elem = 13 +*type node- node+ + 1 2 4 +*cx cy ex_or_R ey_or_theta1 theta2 + 1.005964869E+00 5.113389824E-01 2.088852914E-01 1.205998835E-01 2.411999106E-01 + elem = 14 +*type node- node+ + 1 4 2 +*cx cy ex_or_R ey_or_theta1 theta2 + 7.862354969E-01 3.844781704E-01 -2.088852085E-01 -1.206000271E-01 2.411999106E-01 + elem = 15 +*type node- node+ + 1 3 4 +*cx cy ex_or_R ey_or_theta1 theta2 + 1.214850160E+00 6.319388660E-01 -3.566312667E-08 2.411997381E-01 2.411997381E-01 + elem = 16 +*type node- node+ + 1 4 3 +*cx cy ex_or_R ey_or_theta1 theta2 + 5.773502883E-01 2.638781433E-01 -2.088850828E-01 1.205998999E-01 2.411997381E-01 + elem = 17 +*type node- node+ + 3 1 4 +*cx cy ex_or_R ey_or_theta1 theta2 + 5.773499943E-01 9.999999021E-01 6.500001577E-01 3.112546801E+02 3.749058655E+01 + elem = 18 +*type node- node+ + 3 1 4 +*cx cy ex_or_R ey_or_theta1 theta2 + 5.773501639E-01 1.000000000E+00 6.500001577E-01 2.512547267E+02 3.749058655E+01 + elem = 19 +*type node- node+ + 1 0 5 +*cx cy ex_or_R ey_or_theta1 theta2 + 1.127349969E+00 9.999998306E-01 -5.500002695E-01 1.015392499E-07 5.500002695E-01 + elem = 20 +*type node- node+ + 1 5 0 +*cx cy ex_or_R ey_or_theta1 theta2 + 3.023502382E-01 5.236860137E-01 2.750000468E-01 4.763142563E-01 5.500002695E-01 + elem = 21 +*type node- node+ + 3 5 1 +*cx cy ex_or_R ey_or_theta1 theta2 + 5.773498472E-01 9.999996474E-01 5.500001222E-01 3.000000125E+02 5.999999660E+01 + elem = 22 +*type node- node+ + 3 5 1 +*cx cy ex_or_R ey_or_theta1 theta2 + 5.773504580E-01 1.000000000E+00 5.500001222E-01 2.399999842E+02 5.999999660E+01 + elem = 23 +*type node- node+ + 1 0 2 +*cx cy ex_or_R ey_or_theta1 theta2 + 1.154700320E+00 0.000000000E+00 2.886750958E-01 4.999999329E-01 5.773501917E-01 + elem = 24 +*type node- node+ + 1 2 0 +*cx cy ex_or_R ey_or_theta1 theta2 + 1.154700320E+00 3.552713679E-15 -5.773501917E-01 1.776356839E-15 5.773501917E-01 + elem = 25 +*type node- node+ + 1 0 3 +*cx cy ex_or_R ey_or_theta1 theta2 + 1.443375416E+00 4.999999329E-01 2.886750642E-01 4.999998780E-01 5.773501283E-01 + elem = 26 +*type node- node+ + 1 3 0 +*cx cy ex_or_R ey_or_theta1 theta2 + 5.773501283E-01 5.329070518E-15 -5.773501283E-01 -1.776356839E-15 5.773501283E-01 +*defaul nbbcda allsur divsur ndivsur + 0 0 0 0 0 +*albedo deltasur + 1.000000000E+00 0.000000000E+00 +* mil(nbreg) + 1 2 3 4 5 +END diff --git a/Dragon/data/g2s_prestation_proc/tst2016_1.c2m b/Dragon/data/g2s_prestation_proc/tst2016_1.c2m new file mode 100644 index 0000000..695f835 --- /dev/null +++ b/Dragon/data/g2s_prestation_proc/tst2016_1.c2m @@ -0,0 +1,88 @@ +*---- +* TEST CASE TDCM49 (geometry only) +* MACROSCOPIC CROSS SECTIONS +* 4-group eighth UOX assembly with AIC in DRAGON +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEON2 MACRO4G TRACKN2 SYS FLUX2 EDIT ; +MODULE GEO: G2S: SALT: MCCGT: END: ; +SEQ_ASCII UOX_AIC FIG_AIC ; +SEQ_BINARY TF_EXC ; +INTEGER an2d := 12 ; +REAL densur := 25.0 ; +REAL erra DELTA ; +PROCEDURE assertS ; + +*---- +* Input geometry data +*---- +REAL mesh1 := 0.37 ; +REAL mesh2 := mesh1 0.52 + ; +REAL mesh3 := mesh2 0.74 + ; +REAL mesh4 := mesh3 0.52 + ; +REAL mesh5 := mesh4 0.74 + ; +REAL mesh6 := mesh5 0.52 + ; +REAL mesh7 := mesh6 0.74 + ; +REAL mesh8 := mesh7 0.52 + ; +REAL mesh9 := mesh8 0.74 + ; +REAL mesh10 := mesh9 0.52 + ; +REAL mesh11 := mesh10 0.74 + ; +REAL mesh12 := mesh11 0.52 + ; +REAL mesh13 := mesh12 0.74 + ; +REAL mesh14 := mesh13 0.52 + ; +REAL mesh15 := mesh14 0.74 + ; +REAL mesh16 := mesh15 0.52 + ; +REAL mesh17 := mesh16 0.74 + ; +REAL mesh18 := mesh17 0.26 + ; +* +GEON2 := GEO: :: CAR2D 18 18 + EDIT 0 + X- DIAG X+ REFL + Y- REFL Y+ DIAG + MESHX 0.0 <<mesh1>> <<mesh2>> <<mesh3>> <<mesh4>> <<mesh5>> <<mesh6>> + <<mesh7>> <<mesh8>> <<mesh9>> <<mesh10>> <<mesh11>> <<mesh12>> + <<mesh13>> <<mesh14>> <<mesh15>> <<mesh16>> <<mesh17>> + <<mesh18>> + MESHY 0.0 <<mesh1>> <<mesh2>> <<mesh3>> <<mesh4>> <<mesh5>> <<mesh6>> + <<mesh7>> <<mesh8>> <<mesh9>> <<mesh10>> <<mesh11>> <<mesh12>> + <<mesh13>> <<mesh14>> <<mesh15>> <<mesh16>> <<mesh17>> + <<mesh18>> + SPLITX 2 2 4 2 4 2 4 2 4 2 4 2 4 2 4 2 4 1 + SPLITY 2 2 4 2 4 2 4 2 4 2 4 2 4 2 4 2 4 1 + MIX + 1 1 2 1 2 1 4 1 2 1 2 1 4 1 2 1 3 1 + 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 + 3 1 3 1 2 1 3 1 3 1 2 1 3 1 3 1 + 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 + 3 1 2 1 3 1 3 1 2 1 3 1 3 1 + 1 1 1 1 1 1 1 1 1 1 1 1 1 + 4 1 2 1 2 1 4 1 2 1 3 1 + 1 1 1 1 1 1 1 1 1 1 1 + 3 1 2 1 2 1 3 1 3 1 + 1 1 1 1 1 1 1 1 1 + 4 1 2 1 3 1 3 1 + 1 1 1 1 1 1 1 + 3 1 3 1 3 1 + 1 1 1 1 1 + 3 1 3 1 + 1 1 1 + 3 1 + 1 +; + +UOX_AIC FIG_AIC := G2S: GEON2 :: DRAWMIX ; + +TRACKN2 TF_EXC := SALT: UOX_AIC :: + EDIT 3 + ALLG + ANIS 2 TSPC EQW2 <<an2d>> <<densur>> REND +; +* +TRACKN2 := MCCGT: TRACKN2 TF_EXC :: + EDIT 2 + LCMD 3 AAC 150 TMT SCR 0 EPSI 1E-5 + MAXI 1 KRYL 0 HDD 0.0 LDC ; + +ECHO "test tst2016_1 completed" ; +END: ; diff --git a/Dragon/data/g2s_prestation_proc/tst2016_2.c2m b/Dragon/data/g2s_prestation_proc/tst2016_2.c2m new file mode 100644 index 0000000..180fdcb --- /dev/null +++ b/Dragon/data/g2s_prestation_proc/tst2016_2.c2m @@ -0,0 +1,264 @@ +*---- +* 295-group eighth assembly in DRAGON +*---- +SEQ_ASCII AIC_TBH ; +SEQ_ASCII AICSERPENT ; +SEQ_ASCII AICFULL ; +LINKED_LIST GEON2 ; +MODULE GEO: G2S: G2MC: UTL: END: ; + +REAL Rcomb1 := 0.288712 ; +REAL Rcomb2 := 0.365195 ; +REAL Rcomb3 := 0.397962 ; +REAL Rcomb4 := 0.4083 ; +REAL Rtub1 := 0.1897 ; +REAL Rtub2 := 0.3794 ; +REAL R_int_TG := 0.5691 ; +REAL R_ext_TG := 0.6095 ; +REAL R_int_TI := 0.5691 ; +REAL R_ext_TI := 0.6095 ; +REAL R_int_G := 0.4165 ; +REAL R_ext_G := 0.4775 ; + +REAL Raic4 := 0.431656 ; +REAL Raic1 := 0.5 SQRT Raic4 * ; +REAL Raic2 := 0.8 SQRT Raic4 * ; +REAL Raic3 := 0.95 SQRT Raic4 * ; +REAL R_int_AIC := 0.437 ; +REAL R_ext_AIC := 0.484 ; + +REAL Cote := 1.26 ; +REAL CoteL := 1.302 ; +REAL Lame := CoteL Cote - ; + +REAL mesh1 := Lame ; +REAL mesh2 := mesh1 Cote + ; +REAL mesh3 := mesh2 Cote + ; +REAL mesh4 := mesh3 Cote + ; +REAL mesh5 := mesh4 Cote + ; +REAL mesh6 := mesh5 Cote + ; +REAL mesh7 := mesh6 Cote + ; +REAL mesh8 := mesh7 Cote + ; +REAL mesh9 := mesh8 Cote + ; +REAL mesh10 := mesh9 Cote + ; +REAL mesh11 := mesh10 Cote + ; +REAL mesh12 := mesh11 Cote + ; +REAL mesh13 := mesh12 Cote + ; +REAL mesh14 := mesh13 Cote + ; +REAL mesh15 := mesh14 Cote + ; +REAL mesh16 := mesh15 Cote + ; +REAL mesh17 := mesh16 Cote + ; +REAL mesh18 := mesh17 Cote + ; +REAL mesh19 := mesh18 Lame + ; +* +GEON2 := GEO: :: CAR2D 19 19 + EDIT 0 + X- REFL X+ REFL + Y- REFL Y+ REFL + CELL + Lame_C Lame_H Lame_H Lame_H Lame_H Lame_H Lame_H Lame_H Lame_H Lame_H + Lame_H Lame_H Lame_H Lame_H Lame_H Lame_H Lame_H Lame_H Lame_C + Lame_V C0909 C0908 C0907 C0906 C0905 C0904 C0903 C0902 C0901 + C0902 C0903 C0904 C0905 C0906 C0907 C0908 C0909 Lame_V + Lame_V C0908 C0808 C0807 C0806 C0805 C0804 C0803 C0802 C0801 + C0802 C0803 C0804 C0805 C0806 C0807 C0808 C0908 Lame_V + Lame_V C0907 C0807 C0707 C0706 C0705 T2 C0703 C0702 T2 + C0702 C0703 T2 C0705 C0706 C0707 C0807 C0907 Lame_V + Lame_V C0906 C0806 C0706 T2 C0605 C0604 C0603 C0602 C0601 + C0602 C0603 C0604 C0605 T2 C0706 C0806 C0906 Lame_V + Lame_V C0905 C0805 C0705 C0605 C0505 C0504 C0503 C0502 C0501 + C0502 C0503 C0504 C0505 C0605 C0705 C0805 C0905 Lame_V + Lame_V C0904 C0804 T2 C0604 C0504 T1 C0403 C0402 T1 + C0402 C0403 T1 C0504 C0604 T2 C0804 C0904 Lame_V + Lame_V C0903 C0803 C0703 C0603 C0503 C0403 C0303 C0302 C0301 + C0302 C0303 C0403 C0503 C0603 C0703 C0803 C0903 Lame_V + Lame_V C0902 C0802 C0702 C0602 C0502 C0402 C0302 C0202 C0201 + C0202 C0302 C0402 C0502 C0602 C0702 C0802 C0902 Lame_V + + Lame_V C0901 C0801 T2 C0601 C0501 T1 C0301 C0201 TI + C0201 C0301 T1 C0501 C0601 T2 C0801 C0901 Lame_V + + Lame_V C0902 C0802 C0702 C0602 C0502 C0402 C0302 C0202 C0201 + C0202 C0302 C0402 C0502 C0602 C0702 C0802 C0902 Lame_V + Lame_V C0903 C0803 C0703 C0603 C0503 C0403 C0303 C0302 C0301 + C0302 C0303 C0403 C0503 C0603 C0703 C0803 C0903 Lame_V + Lame_V C0904 C0804 T2 C0604 C0504 T1 C0403 C0402 T1 + C0402 C0403 T1 C0504 C0604 T2 C0804 C0904 Lame_V + Lame_V C0905 C0805 C0705 C0605 C0505 C0504 C0503 C0502 C0501 + C0502 C0503 C0504 C0505 C0605 C0705 C0805 C0905 Lame_V + Lame_V C0906 C0806 C0706 T2 C0605 C0604 C0603 C0602 C0601 + C0602 C0603 C0604 C0605 T2 C0706 C0806 C0906 Lame_V + Lame_V C0907 C0807 C0707 C0706 C0705 T2 C0703 C0702 T2 + C0702 C0703 T2 C0705 C0706 C0707 C0807 C0907 Lame_V + Lame_V C0908 C0808 C0807 C0806 C0805 C0804 C0803 C0802 C0801 + C0802 C0803 C0804 C0805 C0806 C0807 C0808 C0908 Lame_V + Lame_V C0909 C0908 C0907 C0906 C0905 C0904 C0903 C0902 C0901 + C0902 C0903 C0904 C0905 C0906 C0907 C0908 C0909 Lame_V + Lame_C Lame_H Lame_H Lame_H Lame_H Lame_H Lame_H Lame_H Lame_H Lame_H + Lame_H Lame_H Lame_H Lame_H Lame_H Lame_H Lame_H Lame_H Lame_C + + MESHX 0.0 <<mesh1>> <<mesh2>> <<mesh3>> <<mesh4>> <<mesh5>> <<mesh6>> + <<mesh7>> <<mesh8>> <<mesh9>> <<mesh10>> <<mesh11>> <<mesh12>> + <<mesh13>> <<mesh14>> <<mesh15>> <<mesh16>> <<mesh17>> + <<mesh18>> <<mesh19>> + MESHY 0.0 <<mesh1>> <<mesh2>> <<mesh3>> <<mesh4>> <<mesh5>> <<mesh6>> + <<mesh7>> <<mesh8>> <<mesh9>> <<mesh10>> <<mesh11>> <<mesh12>> + <<mesh13>> <<mesh14>> <<mesh15>> <<mesh16>> <<mesh17>> + <<mesh18>> <<mesh19>> + ::: Lame_C := GEO: CAR2D 1 1 + MESHX 0.0 <<Lame>> MESHY 0.0 <<Lame>> + MIX 1 ; + + ::: Lame_V := GEO: CAR2D 1 1 + MESHX 0.0 <<Lame>> MESHY 0.0 <<Cote>> + MIX 1 ; + + ::: Lame_H := GEO: CAR2D 1 1 + MESHX 0.0 <<Cote>> MESHY 0.0 <<Lame>> + MIX 1 ; + + ::: C0201 := GEO: CARCEL 6 + MESHX 0.0 <<Cote>> + MESHY 0.0 <<Cote>> + RADIUS 0.0 <<Rcomb1>> <<Rcomb2>> <<Rcomb3>> <<Rcomb4>> + <<R_int_G>> <<R_ext_G>> + MIX 3 4 5 6 7 8 1 ; + + ::: C0202 := GEO: C0201 + MIX 9 10 11 12 7 8 1 ; + + ::: C0301 := GEO: C0201 + MIX 13 14 15 16 7 8 1 ; + + ::: C0302 := GEO: C0201 + MIX 17 18 19 20 7 8 1 ; + + ::: C0303 := GEO: C0201 + MIX 21 22 23 24 7 8 1 ; + + ::: C0402 := GEO: C0201 + MIX 26 27 28 29 7 8 1 ; + + ::: C0403 := GEO: C0201 + MIX 30 31 32 33 7 8 1 ; + + ::: C0501 := GEO: C0201 + MIX 34 35 36 37 7 8 1 ; + + ::: C0502 := GEO: C0201 + MIX 46 47 48 49 7 8 1 ; + + ::: C0503 := GEO: C0201 + MIX 50 51 52 53 7 8 1 ; + + ::: C0504 := GEO: C0201 + MIX 54 55 56 57 7 8 1 ; + + ::: C0505 := GEO: C0201 + MIX 58 59 60 61 7 8 1 ; + + ::: C0601 := GEO: C0201 + MIX 62 63 64 65 7 8 1 ; + + ::: C0602 := GEO: C0201 + MIX 66 67 68 69 7 8 1 ; + + ::: C0603 := GEO: C0201 + MIX 70 71 72 73 7 8 1 ; + + ::: C0604 := GEO: C0201 + MIX 74 75 76 77 7 8 1 ; + + ::: C0605 := GEO: C0201 + MIX 78 79 80 81 7 8 1 ; + + ::: C0702 := GEO: C0201 + MIX 82 83 84 85 7 8 1 ; + + ::: C0703 := GEO: C0201 + MIX 86 87 88 89 7 8 1 ; + + ::: C0705 := GEO: C0201 + MIX 90 91 92 93 7 8 1 ; + + ::: C0706 := GEO: C0201 + MIX 94 95 96 97 7 8 1 ; + + ::: C0707 := GEO: C0201 + MIX 98 99 100 101 7 8 1 ; + + ::: C0801 := GEO: C0201 + MIX 102 103 104 105 7 8 1 ; + + ::: C0802 := GEO: C0201 + MIX 106 107 108 109 7 8 1 ; + + ::: C0803 := GEO: C0201 + MIX 110 111 112 113 7 8 1 ; + + ::: C0804 := GEO: C0201 + MIX 114 115 116 117 7 8 1 ; + + ::: C0805 := GEO: C0201 + MIX 118 119 120 121 7 8 1 ; + + ::: C0806 := GEO: C0201 + MIX 122 123 124 125 7 8 1 ; + + ::: C0807 := GEO: C0201 + MIX 126 127 128 129 7 8 1 ; + + ::: C0808 := GEO: C0201 + MIX 130 131 132 133 7 8 1 ; + + ::: C0901 := GEO: C0201 + MIX 134 135 136 137 7 8 1 ; + + ::: C0902 := GEO: C0201 + MIX 138 139 140 141 7 8 1 ; + + ::: C0903 := GEO: C0201 + MIX 142 143 144 145 7 8 1 ; + + ::: C0904 := GEO: C0201 + MIX 146 147 148 149 7 8 1 ; + + ::: C0905 := GEO: C0201 + MIX 150 151 152 153 7 8 1 ; + + ::: C0906 := GEO: C0201 + MIX 154 155 156 157 7 8 1 ; + + ::: C0907 := GEO: C0201 + MIX 158 159 160 161 7 8 1 ; + + ::: C0908 := GEO: C0201 + MIX 162 163 164 165 7 8 1 ; + + ::: C0909 := GEO: C0201 + MIX 166 167 168 169 7 8 1 ; + + ::: T2 := GEO: CARCEL 8 + MESHX 0.0 <<Cote>> + MESHY 0.0 <<Cote>> + RADIUS 0.0 <<Raic1>> <<Raic2>> <<Raic3>> <<Raic4>> + <<R_int_AIC>> <<R_ext_AIC>> <<R_int_TI>> <<R_ext_TI>> + MIX 38 39 40 41 7 25 1 25 1 ; + + ::: T1 := GEO: T2 + MIX 42 43 44 45 7 25 1 25 1 ; + + ::: TI := GEO: CARCEL 4 + MESHX 0.0 <<Cote>> + MESHY 0.0 <<Cote>> + RADIUS 0.0 <<Rtub1>> <<Rtub2>> <<R_int_TI>> <<R_ext_TI>> + MIX 1 1 1 2 1 ; +; +UTL: GEON2 :: DIR ; + +AIC_TBH AICFULL := G2S: GEON2 ; +*AICSERPENT := G2MC: GEON2 ; + +ECHO "test tst2016_2 completed" ; +END: ; +QUIT . diff --git a/Dragon/data/g2s_prestation_proc/tst2016_3.c2m b/Dragon/data/g2s_prestation_proc/tst2016_3.c2m new file mode 100644 index 0000000..ffe7643 --- /dev/null +++ b/Dragon/data/g2s_prestation_proc/tst2016_3.c2m @@ -0,0 +1,276 @@ +*---- +* 295-group eighth assembly in DRAGON +*---- +SEQ_ASCII AIC_TBH ; +SEQ_ASCII AICSERPENT :: FILE './AICSERPENT.txt' ; +SEQ_ASCII AICFULL :: FILE './AICSERPENT.eps' ; +LINKED_LIST GEON2 ; +MODULE GEO: G2S: G2MC: END: ; + +REAL Rcomb1 := 0.288712 ; +REAL Rcomb2 := 0.365195 ; +REAL Rcomb3 := 0.397962 ; +REAL Rcomb4 := 0.4083 ; +REAL Rtub1 := 0.1897 ; +REAL Rtub2 := 0.3794 ; +REAL R_int_TG := 0.5691 ; +REAL R_ext_TG := 0.6095 ; +REAL R_int_TI := 0.5691 ; +REAL R_ext_TI := 0.6095 ; +REAL R_int_G := 0.4165 ; +REAL R_ext_G := 0.4775 ; + +REAL Raic4 := 0.431656 ; +REAL Raic1 := 0.5 SQRT Raic4 * ; +REAL Raic2 := 0.8 SQRT Raic4 * ; +REAL Raic3 := 0.95 SQRT Raic4 * ; +REAL R_int_AIC := 0.437 ; +REAL R_ext_AIC := 0.484 ; + +REAL Cote := 1.26 ; +REAL CoteL := 1.302 ; +REAL Lame := CoteL Cote - ; + +REAL mesh1 := Lame ; +REAL mesh2 := mesh1 Cote + ; +REAL mesh3 := mesh2 Cote + ; +REAL mesh4 := mesh3 Cote + ; +REAL mesh5 := mesh4 Cote + ; +REAL mesh6 := mesh5 Cote + ; +REAL mesh7 := mesh6 Cote + ; +REAL mesh8 := mesh7 Cote + ; +REAL mesh9 := mesh8 Cote + ; +REAL mesh10 := mesh9 Cote + ; +REAL mesh11 := mesh10 Cote + ; +REAL mesh12 := mesh11 Cote + ; +REAL mesh13 := mesh12 Cote + ; +REAL mesh14 := mesh13 Cote + ; +REAL mesh15 := mesh14 Cote + ; +REAL mesh16 := mesh15 Cote + ; +REAL mesh17 := mesh16 Cote + ; +REAL mesh18 := mesh17 Cote + ; +REAL mesh19 := mesh18 Lame + ; +* +GEON2 := GEO: :: CAR2D 19 19 + EDIT 0 + X- REFL X+ REFL + Y- REFL Y+ REFL + CELL + Lame_C Lame_H Lame_H Lame_H Lame_H Lame_H Lame_H Lame_H Lame_H Lame_H + Lame_H Lame_H Lame_H Lame_H Lame_H Lame_H Lame_H Lame_H Lame_C + Lame_V C0909 C0908 C0907 C0906 C0905 C0904 C0903 C0902 C0901 + C0902 C0903 C0904 C0905 C0906 C0907 C0908 C0909 Lame_V + Lame_V C0908 C0808 C0807 C0806 C0805 C0804 C0803 C0802 C0801 + C0802 C0803 C0804 C0805 C0806 C0807 C0808 C0908 Lame_V + Lame_V C0907 C0807 C0707 C0706 C0705 T2 C0703 C0702 T2 + C0702 C0703 T2 C0705 C0706 C0707 C0807 C0907 Lame_V + Lame_V C0906 C0806 C0706 T2 C0605 C0604 C0603 C0602 C0601 + C0602 C0603 C0604 C0605 T2 C0706 C0806 C0906 Lame_V + Lame_V C0905 C0805 C0705 C0605 C0505 C0504 C0503 C0502 C0501 + C0502 C0503 C0504 C0505 C0605 C0705 C0805 C0905 Lame_V + Lame_V C0904 C0804 T2 C0604 C0504 T1 C0403 C0402 T1 + C0402 C0403 T1 C0504 C0604 T2 C0804 C0904 Lame_V + Lame_V C0903 C0803 C0703 C0603 C0503 C0403 C0303 C0302 C0301 + C0302 C0303 C0403 C0503 C0603 C0703 C0803 C0903 Lame_V + Lame_V C0902 C0802 C0702 C0602 C0502 C0402 C0302 C0202 C0201 + C0202 C0302 C0402 C0502 C0602 C0702 C0802 C0902 Lame_V + + Lame_V C0901 C0801 T2 C0601 C0501 T1 C0301 C0201 TI + C0201 C0301 T1 C0501 C0601 T2 C0801 C0901 Lame_V + + Lame_V C0902 C0802 C0702 C0602 C0502 C0402 C0302 C0202 C0201 + C0202 C0302 C0402 C0502 C0602 C0702 C0802 C0902 Lame_V + Lame_V C0903 C0803 C0703 C0603 C0503 C0403 C0303 C0302 C0301 + C0302 C0303 C0403 C0503 C0603 C0703 C0803 C0903 Lame_V + Lame_V C0904 C0804 T2 C0604 C0504 T1 C0403 C0402 T1 + C0402 C0403 T1 C0504 C0604 T2 C0804 C0904 Lame_V + Lame_V C0905 C0805 C0705 C0605 C0505 C0504 C0503 C0502 C0501 + C0502 C0503 C0504 C0505 C0605 C0705 C0805 C0905 Lame_V + Lame_V C0906 C0806 C0706 T2 C0605 C0604 C0603 C0602 C0601 + C0602 C0603 C0604 C0605 T2 C0706 C0806 C0906 Lame_V + Lame_V C0907 C0807 C0707 C0706 C0705 T2 C0703 C0702 T2 + C0702 C0703 T2 C0705 C0706 C0707 C0807 C0907 Lame_V + Lame_V C0908 C0808 C0807 C0806 C0805 C0804 C0803 C0802 C0801 + C0802 C0803 C0804 C0805 C0806 C0807 C0808 C0908 Lame_V + Lame_V C0909 C0908 C0907 C0906 C0905 C0904 C0903 C0902 C0901 + C0902 C0903 C0904 C0905 C0906 C0907 C0908 C0909 Lame_V + Lame_C Lame_H Lame_H Lame_H Lame_H Lame_H Lame_H Lame_H Lame_H Lame_H + Lame_H Lame_H Lame_H Lame_H Lame_H Lame_H Lame_H Lame_H Lame_C + + MESHX 0.0 <<mesh1>> <<mesh2>> <<mesh3>> <<mesh4>> <<mesh5>> <<mesh6>> + <<mesh7>> <<mesh8>> <<mesh9>> <<mesh10>> <<mesh11>> <<mesh12>> + <<mesh13>> <<mesh14>> <<mesh15>> <<mesh16>> <<mesh17>> + <<mesh18>> <<mesh19>> + MESHY 0.0 <<mesh1>> <<mesh2>> <<mesh3>> <<mesh4>> <<mesh5>> <<mesh6>> + <<mesh7>> <<mesh8>> <<mesh9>> <<mesh10>> <<mesh11>> <<mesh12>> + <<mesh13>> <<mesh14>> <<mesh15>> <<mesh16>> <<mesh17>> + <<mesh18>> <<mesh19>> + ::: Lame_C := GEO: CAR2D 1 1 + MESHX 0.0 <<Lame>> MESHY 0.0 <<Lame>> + MIX 1 ; + + ::: Lame_V := GEO: CAR2D 1 1 + MESHX 0.0 <<Lame>> MESHY 0.0 <<Cote>> + SPLITY 3 MIX 1 ; + + ::: Lame_H := GEO: CAR2D 1 1 + MESHX 0.0 <<Cote>> MESHY 0.0 <<Lame>> + SPLITX 3 MIX 1 ; + + ::: C0201 := GEO: CARCEL 6 + MESHX 0.0 <<Cote>> + MESHY 0.0 <<Cote>> + SECT 4 6 + RADIUS 0.0 <<Rcomb1>> <<Rcomb2>> <<Rcomb3>> <<Rcomb4>> + <<R_int_G>> <<R_ext_G>> + MIX 3 4 5 6 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0202 := GEO: C0201 + MIX 9 10 11 12 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0301 := GEO: C0201 + MIX 13 14 15 16 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0302 := GEO: C0201 + MIX 17 18 19 20 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0303 := GEO: C0201 + MIX 21 22 23 24 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0402 := GEO: C0201 + MIX 26 27 28 29 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0403 := GEO: C0201 + MIX 30 31 32 33 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0501 := GEO: C0201 + MIX 34 35 36 37 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0502 := GEO: C0201 + MIX 46 47 48 49 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0503 := GEO: C0201 + MIX 50 51 52 53 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0504 := GEO: C0201 + MIX 54 55 56 57 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0505 := GEO: C0201 + MIX 58 59 60 61 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0601 := GEO: C0201 + MIX 62 63 64 65 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0602 := GEO: C0201 + MIX 66 67 68 69 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0603 := GEO: C0201 + MIX 70 71 72 73 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0604 := GEO: C0201 + MIX 74 75 76 77 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0605 := GEO: C0201 + MIX 78 79 80 81 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0702 := GEO: C0201 + MIX 82 83 84 85 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0703 := GEO: C0201 + MIX 86 87 88 89 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0705 := GEO: C0201 + MIX 90 91 92 93 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0706 := GEO: C0201 + MIX 94 95 96 97 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0707 := GEO: C0201 + MIX 98 99 100 101 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0801 := GEO: C0201 + MIX 102 103 104 105 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0802 := GEO: C0201 + MIX 106 107 108 109 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0803 := GEO: C0201 + MIX 110 111 112 113 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0804 := GEO: C0201 + MIX 114 115 116 117 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0805 := GEO: C0201 + MIX 118 119 120 121 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0806 := GEO: C0201 + MIX 122 123 124 125 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0807 := GEO: C0201 + MIX 126 127 128 129 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0808 := GEO: C0201 + MIX 130 131 132 133 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0901 := GEO: C0201 + MIX 134 135 136 137 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0902 := GEO: C0201 + MIX 138 139 140 141 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0903 := GEO: C0201 + MIX 142 143 144 145 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0904 := GEO: C0201 + MIX 146 147 148 149 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0905 := GEO: C0201 + MIX 150 151 152 153 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0906 := GEO: C0201 + MIX 154 155 156 157 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0907 := GEO: C0201 + MIX 158 159 160 161 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0908 := GEO: C0201 + MIX 162 163 164 165 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0909 := GEO: C0201 + MIX 166 167 168 169 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: T2 := GEO: CARCEL 8 + MESHX 0.0 <<Cote>> + MESHY 0.0 <<Cote>> + SECT 3 6 + RADIUS 0.0 <<Raic1>> <<Raic2>> <<Raic3>> <<Raic4>> + <<R_int_AIC>> <<R_ext_AIC>> <<R_int_TI>> <<R_ext_TI>> + MIX 38 39 40 41 7 25 + 1 1 1 1 1 1 1 1 + 25 25 25 25 25 25 25 25 + 1 1 1 1 1 1 1 1 ; + + ::: T1 := GEO: T2 + MIX 42 43 44 45 7 25 + 1 1 1 1 1 1 1 1 + 25 25 25 25 25 25 25 25 + 1 1 1 1 1 1 1 1 ; + + ::: TI := GEO: CARCEL 4 + MESHX 0.0 <<Cote>> + MESHY 0.0 <<Cote>> + SECT 3 1 + RADIUS 0.0 <<Rtub1>> <<Rtub2>> <<R_int_TI>> <<R_ext_TI>> + MIX 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 2 2 2 2 2 2 2 2 + 1 1 1 1 1 1 1 1 ; +; + +AIC_TBH AICFULL := G2S: GEON2 ; +AICSERPENT := G2MC: GEON2 ; + +ECHO "test tst2016_3 completed" ; +END: ; +QUIT . diff --git a/Dragon/data/g2s_prestation_proc/tst2016_4.c2m b/Dragon/data/g2s_prestation_proc/tst2016_4.c2m new file mode 100644 index 0000000..9f9d82f --- /dev/null +++ b/Dragon/data/g2s_prestation_proc/tst2016_4.c2m @@ -0,0 +1,247 @@ +*---- +* TEST CASE tst2016_4.c2m (geometry only) +* MACROSCOPIC CROSS SECTIONS +* 4-group eighth UOX assembly with AIC in DRAGON +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEON2 MACRO4G TRACKN2 SYS FLUX2 EDIT ; +MODULE GEO: G2S: SALT: MCCGT: END: ; +SEQ_ASCII UOX_AIC FIG_AIC ; +SEQ_BINARY TF_EXC ; +INTEGER an2d := 12 ; +REAL densur := 25.0 ; +REAL erra DELTA ; +REAL Rcomb1 Rcomb2 Rcomb3 Rcomb4 R_int_TG R_ext_TG R_int_TI R_ext_TI + R_int_G R_ext_G Cote RmodeN1 Lame Rtub1 Rtub2 ; +REAL Raic1 Raic2 Raic3 Raic4 R_int_AIC R_ext_AIC ; +PROCEDURE assertS ; + +*---- +* Input geometry data +*---- +EVALUATE Cote := 1.26 ; +EVALUATE Lame := 0.042 ; +EVALUATE Rcomb4 := 0.4083 ; +EVALUATE Rcomb1 := 0.5 SQRT Rcomb4 * ; +EVALUATE Rcomb2 := 0.8 SQRT Rcomb4 * ; +EVALUATE Rcomb3 := 0.95 SQRT Rcomb4 * ; +EVALUATE Rtub1 := 0.1897 ; +EVALUATE Rtub2 := 0.3794 ; +EVALUATE R_int_TG := 0.5691 ; +EVALUATE R_ext_TG := 0.6095 ; +EVALUATE R_int_TI := 0.5691 ; +EVALUATE R_ext_TI := 0.6095 ; +EVALUATE R_int_G := 0.4165 ; +EVALUATE R_ext_G := 0.4775 ; + +EVALUATE Raic4 := 0.431656 ; +EVALUATE Raic1 := 0.5 SQRT Raic4 * ; +EVALUATE Raic2 := 0.8 SQRT Raic4 * ; +EVALUATE Raic3 := 0.95 SQRT Raic4 * ; +EVALUATE R_int_AIC := 0.437 ; +EVALUATE R_ext_AIC := 0.484 ; +REAL mesh1 := Cote ; +REAL mesh2 := mesh1 Cote + ; +REAL mesh3 := mesh2 Cote + ; +REAL mesh4 := mesh3 Cote + ; +REAL mesh5 := mesh4 Cote + ; +REAL mesh6 := mesh5 Cote + ; +REAL mesh7 := mesh6 Cote + ; +REAL mesh8 := mesh7 Cote + ; +REAL mesh9 := mesh8 Cote + ; +REAL mesh10 := mesh9 Lame + ; +* +GEON2 := GEO: :: CAR2D 10 10 + EDIT 0 + X- DIAG X+ REFL + Y- SYME Y+ DIAG + CELL + TI C0201 C0301 T1 C0501 C0601 T2 C0801 C0901 Lame_V + C0202 C0302 C0402 C0502 C0602 C0702 C0802 C0902 Lame_V + C0303 C0403 C0503 C0603 C0703 C0803 C0903 Lame_V + T1 C0504 C0604 T2 C0804 C0904 Lame_V + C0505 C0605 C0705 C0805 C0905 Lame_V + T2 C0706 C0806 C0906 Lame_V + C0707 C0807 C0907 Lame_V + C0808 C0908 Lame_V + C0909 Lame_V + Lame_C + MESHX 0.0 <<mesh1>> <<mesh2>> <<mesh3>> <<mesh4>> <<mesh5>> <<mesh6>> + <<mesh7>> <<mesh8>> <<mesh9>> <<mesh10>> + MESHY 0.0 <<mesh1>> <<mesh2>> <<mesh3>> <<mesh4>> <<mesh5>> <<mesh6>> + <<mesh7>> <<mesh8>> <<mesh9>> <<mesh10>> + ::: Lame_C := GEO: CAR2D 1 1 + MESHX 0.0 <<Lame>> MESHY 0.0 <<Lame>> + MIX 1 ; + + ::: Lame_V := GEO: CAR2D 1 1 + MESHX 0.0 <<Lame>> MESHY 0.0 <<Cote>> + SPLITY 3 MIX 1 ; + + ::: C0201 := GEO: CARCEL 6 + MESHX 0.0 <<Cote>> + MESHY 0.0 <<Cote>> + SECT 4 6 + RADIUS 0.0 <<Rcomb1>> <<Rcomb2>> <<Rcomb3>> <<Rcomb4>> + <<R_int_G>> <<R_ext_G>> + MIX 3 4 5 6 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0202 := GEO: C0201 + MIX 9 10 11 12 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0301 := GEO: C0201 + MIX 13 14 15 16 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0302 := GEO: C0201 + MIX 17 18 19 20 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0303 := GEO: C0201 + MIX 21 22 23 24 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0402 := GEO: C0201 + MIX 26 27 28 29 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0403 := GEO: C0201 + MIX 30 31 32 33 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0501 := GEO: C0201 + MIX 34 35 36 37 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0502 := GEO: C0201 + MIX 46 47 48 49 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0503 := GEO: C0201 + MIX 50 51 52 53 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0504 := GEO: C0201 + MIX 54 55 56 57 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0505 := GEO: C0201 + MIX 58 59 60 61 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0601 := GEO: C0201 + MIX 62 63 64 65 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0602 := GEO: C0201 + MIX 66 67 68 69 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0603 := GEO: C0201 + MIX 70 71 72 73 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0604 := GEO: C0201 + MIX 74 75 76 77 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0605 := GEO: C0201 + MIX 78 79 80 81 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0702 := GEO: C0201 + MIX 82 83 84 85 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0703 := GEO: C0201 + MIX 86 87 88 89 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0705 := GEO: C0201 + MIX 90 91 92 93 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0706 := GEO: C0201 + MIX 94 95 96 97 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0707 := GEO: C0201 + MIX 98 99 100 101 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0801 := GEO: C0201 + MIX 102 103 104 105 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0802 := GEO: C0201 + MIX 106 107 108 109 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0803 := GEO: C0201 + MIX 110 111 112 113 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0804 := GEO: C0201 + MIX 114 115 116 117 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0805 := GEO: C0201 + MIX 118 119 120 121 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0806 := GEO: C0201 + MIX 122 123 124 125 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0807 := GEO: C0201 + MIX 126 127 128 129 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0808 := GEO: C0201 + MIX 130 131 132 133 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0901 := GEO: C0201 + MIX 134 135 136 137 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0902 := GEO: C0201 + MIX 138 139 140 141 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0903 := GEO: C0201 + MIX 142 143 144 145 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0904 := GEO: C0201 + MIX 146 147 148 149 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0905 := GEO: C0201 + MIX 150 151 152 153 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0906 := GEO: C0201 + MIX 154 155 156 157 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0907 := GEO: C0201 + MIX 158 159 160 161 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0908 := GEO: C0201 + MIX 162 163 164 165 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0909 := GEO: C0201 + MIX 166 167 168 169 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: T2 := GEO: CARCEL 8 + MESHX 0.0 <<Cote>> + MESHY 0.0 <<Cote>> + SECT 3 6 + RADIUS 0.0 <<Raic1>> <<Raic2>> <<Raic3>> <<Raic4>> + <<R_int_AIC>> <<R_ext_AIC>> <<R_int_TI>> <<R_ext_TI>> + MIX 38 39 40 41 7 25 + 1 1 1 1 1 1 1 1 + 25 25 25 25 25 25 25 25 + 1 1 1 1 1 1 1 1 ; + + ::: T1 := GEO: T2 + MIX 42 43 44 45 7 25 + 1 1 1 1 1 1 1 1 + 25 25 25 25 25 25 25 25 + 1 1 1 1 1 1 1 1 ; + + ::: TI := GEO: CARCEL 4 + MESHX 0.0 <<Cote>> + MESHY 0.0 <<Cote>> + SECT 3 1 + RADIUS 0.0 <<Rtub1>> <<Rtub2>> <<R_int_TI>> <<R_ext_TI>> + MIX 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 2 2 2 2 2 2 2 2 + 1 1 1 1 1 1 1 1 ; +; + +UOX_AIC FIG_AIC := G2S: GEON2 :: DRAWMIX ; + +TRACKN2 TF_EXC := SALT: UOX_AIC :: + EDIT 3 + ALLG + ANIS 2 TSPC EQW2 <<an2d>> <<densur>> REND +; +* +TRACKN2 := MCCGT: TRACKN2 TF_EXC :: + EDIT 2 + LCMD 3 AAC 150 TMT SCR 0 EPSI 1E-5 + MAXI 1 KRYL 0 HDD 0.0 LDC ; + +ECHO "test tst2016_4 completed" ; +END: ; diff --git a/Dragon/data/g2s_prestation_proc/tst2016_5.c2m b/Dragon/data/g2s_prestation_proc/tst2016_5.c2m new file mode 100644 index 0000000..0a27a08 --- /dev/null +++ b/Dragon/data/g2s_prestation_proc/tst2016_5.c2m @@ -0,0 +1,107 @@ +*---- +* TEST CASE tst2016_5.c2m (geometry only) +* MACROSCOPIC CROSS SECTIONS +* 4-group eighth UOX assembly with AIC in DRAGON +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEON2 MACRO4G TRACKN2 SYS FLUX ; +MODULE GEO: G2S: SALT: MCCGT: MAC: ASM: FLU: END: ; +SEQ_ASCII UOX_AIC ; +SEQ_ASCII FIG_AIC :: FILE "./FIG_AIC_New.ps" ; +SEQ_BINARY TF_EXC ; +INTEGER an2d := 12 ; +REAL densur := 25.0 ; +REAL erra DELTA ; +PROCEDURE assertS ; + +*---- +* Input geometry data +*---- +REAL mesh1 := 0.37 ; +REAL mesh2 := mesh1 0.52 + ; +REAL mesh3 := mesh2 0.74 + ; +REAL mesh4 := mesh3 0.52 + ; +* +GEON2 := GEO: :: CAR2D 4 4 + EDIT 0 + X- DIAG X+ REFL + Y- REFL Y+ DIAG + MESHX 0.0 <<mesh1>> <<mesh2>> <<mesh3>> <<mesh4>> + MESHY 0.0 <<mesh1>> <<mesh2>> <<mesh3>> <<mesh4>> + MIX + 1 1 2 1 + 1 1 1 + 3 1 + 1 +; + +UOX_AIC FIG_AIC := G2S: GEON2 :: DRAWNOD ; + +TRACKN2 TF_EXC := SALT: UOX_AIC :: + EDIT 3 + ALLG + ANIS 2 TSPC EQW2 <<an2d>> <<densur>> REND +; +* +TRACKN2 := MCCGT: TRACKN2 TF_EXC :: + EDIT 2 + LCMD 3 AAC 150 TMT SCR 0 EPSI 1E-5 + MAXI 1 KRYL 0 HDD 0.0 LDC ; +*---- +* Input Macrolib +*---- +MACRO4G := MAC: :: + EDIT 1 NGRO 4 NMIX 3 NIFI 1 ANIS 2 + READ INPUT + MIX 1 (* WATER *) + TOTAL 5.316E-01 9.352E-01 9.931E-01 1.5931E+00 + TRANC 2.880E-01 5.529E-01 4.936E-01 4.4340E-01 + SCAT 1 1 (*1->1*) 4.973E-01 + 2 2 (*2->2*) 6.570E-01 (*1->2*) 3.134E-02 + 4 4 (*4->3*) 1.163E-02 (*3->3*) 7.176E-01 (*2->3*) 2.528E-01 + (*1->3*) 2.304E-03 + 4 4 (*4->4*) 1.565E+00 (*3->4*) 2.707E-01 (*2->4*) 2.412E-02 + (*1->4*) 2.228E-04 + 1 1 (*1->1*) 2.735E-01 + 2 2 (*2->2*) 4.253E-01 (*1->2*) 1.410E-02 + 4 4 (*4->3*) 5.064E-03 (*3->3*) 4.286E-01 (*2->3*) 1.203E-01 + (*1->3*) 3.050E-04 + 4 4 (*4->4*) 4.384E-01 (*3->4*) 6.426E-02 (*2->4*) 3.373E-03 + (*1->4*) 1.245E-05 + MIX 2 (* FUEL 1 *) + TOTAL 4.097E-01 6.286E-01 4.594E-01 7.508E-01 + TRANC 4.841E-02 7.939E-03 8.080E-03 8.038E-03 + NUSIGF 1.632E-02 9.259E-02 1.129E-01 6.508E-01 + CHI 1.000E+00 0.000E+00 0.000E+00 0.000E+00 + SCAT 1 1 (*1->1*) 3.908E-01 + 2 2 (*2->2*) 4.407E-01 (*1->2*) 8.546E-04 + 3 4 (*4->3*) 5.318E-03 (*3->3*) 3.785E-01 (*2->3*) 8.057E-03 + 2 4 (*4->4*) 3.983E-01 (*3->4*) 1.203E-02 + 1 1 (*1->1*) 4.793E-02 + 2 2 (*2->2*) 5.419E-03 (*1->2*) -2.640E-04 + 3 4 (*4->3*) -7.338E-04 (*3->3*) 9.014E-03 (*2->3*) -2.453E-03 + 2 4 (*4->4*) 8.769E-03 (*3->4*) -2.572E-03 + MIX 3 (* FUEL 2 *) + TOTAL 4.072E-01 6.223E-01 4.599E-01 7.504E-01 + TRANC 4.927E-02 7.872E-03 8.166E-03 8.040E-03 + NUSIGF 1.652E-02 9.136E-02 1.143E-01 6.500E-01 + CHI 1.000E+00 0.000E+00 0.000E+00 0.000E+00 + SCAT 1 1 (*1->1*) 3.885E-01 + 2 2 (*2->2*) 4.387E-01 (*1->2*) 8.562E-04 + 3 4 (*4->3*) 5.236E-03 (*3->3*) 3.780E-01 (*2->3*) 8.591E-03 + 2 4 (*4->4*) 3.984E-01 (*3->4*) 1.229E-02 + 1 1 (*1->1*) 4.981E-02 + 2 2 (*2->2*) 3.100E-03 (*1->2*) -2.624E-04 + 3 4 (*4->3*) -7.231E-04 (*3->3*) 1.142E-02 (*2->3*) -2.610E-03 + 2 4 (*4->4*) 8.764E-03 (*3->4*) -2.604E-03 +; + +SYS := ASM: MACRO4G TRACKN2 TF_EXC :: ARM EDIT 1 ; + +FLUX := FLU: MACRO4G SYS TRACKN2 TF_EXC :: + EDIT 1 TYPE K EXTE 100 1E-6 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.325992 ; + +ECHO "test tst2016_5 completed" ; +END: ; diff --git a/Dragon/data/g2s_prestation_proc/tst2016_6.c2m b/Dragon/data/g2s_prestation_proc/tst2016_6.c2m new file mode 100644 index 0000000..644a5a1 --- /dev/null +++ b/Dragon/data/g2s_prestation_proc/tst2016_6.c2m @@ -0,0 +1,149 @@ +*---- +* TEST CASE tst2016_6.c2m +* MACROSCOPIC CROSS SECTIONS +* 4-group eighth UOX assembly with AIC in DRAGON +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEON2 MACRO4G TRACKN2 SYS FLUX ; +MODULE GEO: G2S: SALT: MCCGT: MAC: ASM: FLU: END: ; +SEQ_ASCII UOX_AIC ; +SEQ_ASCII FIG_AIC :: FILE './FIG_AIC.ps' ; +SEQ_BINARY TF_EXC ; +INTEGER an2d := 12 ; +REAL densur := 25.0 ; +REAL erra DELTA ; +PROCEDURE assertS ; + +*---- +* Input geometry data +*---- +REAL mesh1 := 0.37 ; +REAL mesh2 := mesh1 0.52 + ; +REAL mesh3 := mesh2 0.74 + ; +REAL mesh4 := mesh3 0.52 + ; +* +GEON2 := GEO: :: CAR2D 4 4 + EDIT 0 + X- DIAG X+ REFL + Y- REFL Y+ DIAG + MESHX 0.0 <<mesh1>> <<mesh2>> <<mesh3>> <<mesh4>> + MESHY 0.0 <<mesh1>> <<mesh2>> <<mesh3>> <<mesh4>> + CELL + C1 C2 C3 C4 + C5 C6 C7 + C8 C9 + C10 + ::: C1 := GEO: CARCEL 0 + MIX 1 + MESHX 0.0 <<mesh1>> + MESHY 0.0 <<mesh1>> ; + ::: C2 := GEO: CARCEL 0 + MIX 1 + MESHX <<mesh1>> <<mesh2>> + MESHY 0.0 <<mesh1>> ; + ::: C3 := GEO: CARCEL 0 + MIX 2 + MESHX <<mesh2>> <<mesh3>> + MESHY 0.0 <<mesh1>> ; + ::: C4 := GEO: CARCEL 0 + MIX 1 + MESHX <<mesh3>> <<mesh4>> + MESHY 0.0 <<mesh1>> ; + ::: C5 := GEO: CARCEL 0 + MIX 1 + MESHX <<mesh1>> <<mesh2>> + MESHY <<mesh1>> <<mesh2>> ; + ::: C6 := GEO: CARCEL 0 + MIX 1 + MESHX <<mesh2>> <<mesh3>> + MESHY <<mesh1>> <<mesh2>> ; + ::: C7 := GEO: CARCEL 0 + MIX 1 + MESHX <<mesh3>> <<mesh4>> + MESHY <<mesh1>> <<mesh2>> ; + ::: C8 := GEO: CARCEL 1 + MIX 3 2 + RADIUS 0.0 0.25 + MESHX <<mesh2>> <<mesh3>> + MESHY <<mesh2>> <<mesh3>> ; + ::: C9 := GEO: CARCEL 0 + MIX 1 + MESHX <<mesh3>> <<mesh4>> + MESHY <<mesh2>> <<mesh3>> ; + ::: C10 := GEO: CARCEL 1 + MIX 1 2 + RADIUS 0.0 0.3 + MESHX <<mesh3>> <<mesh4>> + MESHY <<mesh3>> <<mesh4>> ; +; + +UOX_AIC FIG_AIC := G2S: GEON2 :: DRAWNOD ; + +TRACKN2 TF_EXC := SALT: UOX_AIC :: + EDIT 3 + ALLG + ANIS 2 TSPC EQW2 <<an2d>> <<densur>> REND +; +* +TRACKN2 := MCCGT: TRACKN2 TF_EXC :: + EDIT 2 + LCMD 3 AAC 150 TMT SCR 0 EPSI 1E-5 + MAXI 1 KRYL 0 HDD 0.0 LDC ; +*---- +* Input Macrolib +*---- +MACRO4G := MAC: :: + EDIT 1 NGRO 4 NMIX 3 NIFI 1 ANIS 2 + READ INPUT + MIX 1 (* WATER *) + TOTAL 5.316E-01 9.352E-01 9.931E-01 1.5931E+00 + TRANC 2.880E-01 5.529E-01 4.936E-01 4.4340E-01 + SCAT 1 1 (*1->1*) 4.973E-01 + 2 2 (*2->2*) 6.570E-01 (*1->2*) 3.134E-02 + 4 4 (*4->3*) 1.163E-02 (*3->3*) 7.176E-01 (*2->3*) 2.528E-01 + (*1->3*) 2.304E-03 + 4 4 (*4->4*) 1.565E+00 (*3->4*) 2.707E-01 (*2->4*) 2.412E-02 + (*1->4*) 2.228E-04 + 1 1 (*1->1*) 2.735E-01 + 2 2 (*2->2*) 4.253E-01 (*1->2*) 1.410E-02 + 4 4 (*4->3*) 5.064E-03 (*3->3*) 4.286E-01 (*2->3*) 1.203E-01 + (*1->3*) 3.050E-04 + 4 4 (*4->4*) 4.384E-01 (*3->4*) 6.426E-02 (*2->4*) 3.373E-03 + (*1->4*) 1.245E-05 + MIX 2 (* FUEL 1 *) + TOTAL 4.097E-01 6.286E-01 4.594E-01 7.508E-01 + TRANC 4.841E-02 7.939E-03 8.080E-03 8.038E-03 + NUSIGF 1.632E-02 9.259E-02 1.129E-01 6.508E-01 + CHI 1.000E+00 0.000E+00 0.000E+00 0.000E+00 + SCAT 1 1 (*1->1*) 3.908E-01 + 2 2 (*2->2*) 4.407E-01 (*1->2*) 8.546E-04 + 3 4 (*4->3*) 5.318E-03 (*3->3*) 3.785E-01 (*2->3*) 8.057E-03 + 2 4 (*4->4*) 3.983E-01 (*3->4*) 1.203E-02 + 1 1 (*1->1*) 4.793E-02 + 2 2 (*2->2*) 5.419E-03 (*1->2*) -2.640E-04 + 3 4 (*4->3*) -7.338E-04 (*3->3*) 9.014E-03 (*2->3*) -2.453E-03 + 2 4 (*4->4*) 8.769E-03 (*3->4*) -2.572E-03 + MIX 3 (* FUEL 2 *) + TOTAL 4.072E-01 6.223E-01 4.599E-01 7.504E-01 + TRANC 4.927E-02 7.872E-03 8.166E-03 8.040E-03 + NUSIGF 1.652E-02 9.136E-02 1.143E-01 6.500E-01 + CHI 1.000E+00 0.000E+00 0.000E+00 0.000E+00 + SCAT 1 1 (*1->1*) 3.885E-01 + 2 2 (*2->2*) 4.387E-01 (*1->2*) 8.562E-04 + 3 4 (*4->3*) 5.236E-03 (*3->3*) 3.780E-01 (*2->3*) 8.591E-03 + 2 4 (*4->4*) 3.984E-01 (*3->4*) 1.229E-02 + 1 1 (*1->1*) 4.981E-02 + 2 2 (*2->2*) 3.100E-03 (*1->2*) -2.624E-04 + 3 4 (*4->3*) -7.231E-04 (*3->3*) 1.142E-02 (*2->3*) -2.610E-03 + 2 4 (*4->4*) 8.764E-03 (*3->4*) -2.604E-03 +; + +SYS := ASM: MACRO4G TRACKN2 TF_EXC :: ARM EDIT 1 ; + +FLUX := FLU: MACRO4G SYS TRACKN2 TF_EXC :: + EDIT 1 TYPE K EXTE 100 1E-6 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.324069 ; + +ECHO "test tst2016_6 completed" ; +END: ; diff --git a/Dragon/data/g2s_prestation_proc/tst2016_7.c2m b/Dragon/data/g2s_prestation_proc/tst2016_7.c2m new file mode 100644 index 0000000..47ce163 --- /dev/null +++ b/Dragon/data/g2s_prestation_proc/tst2016_7.c2m @@ -0,0 +1,72 @@ +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST + MACRO GEOM TRACK SYS FLUX ; +SEQ_BINARY + SEQTRK ; +MODULE + GEO: G2S: SALT: MAC: ASM: FLU: TLM: END: ; +SEQ_ASCII Fil_SAL.tdt :: FILE './d77_SAL_g2s.tdt' ; +SEQ_ASCII Fil_SAL.ps :: FILE './d77_SAL_g2s.ps' ; +INTEGER an2d := 8 ; +REAL densur := 20.0 ; +PROCEDURE assertS ; +*---- +* Macroscopic XS +*---- +MACRO := MAC: :: + NGRO 1 NMIX 2 NIFI 1 + READ INPUT + MIX 1 TOTAL 1.250 SCAT 1 1 1.242 + NUSIGF 0.37 CHI 1.0 + MIX 2 TOTAL 0.625 SCAT 1 1 0.355 + ; +*---- +GEOM := GEO: :: CAR2D 4 4 (*7 X 7 ASSEMBLY*) + X- DIAG X+ REFL + Y- SYME Y+ DIAG + CELL C1 C3 C1 C3 + C2 C1 C1 + C3 C1 + C4 + ::: C1 := GEO: CARCEL 2 + RADIUS 0.000 0.3 0.650 + MIX 1 2 2 + MESHX -0.625 0.625 + MESHY -0.625 0.625 ; + ::: C2 := GEO: CARCEL 1 + SECT 4 1 + RADIUS 0.000 0.450 + MIX 1 2 2 2 2 2 2 2 2 2 2 2 2 + MESHX -0.625 0.625 + MESHY -0.625 0.625 ; + ::: C3 := GEO: CARCEL 0 + SECT 4 0 + MIX 2 2 2 2 2 2 2 2 2 2 2 2 + MESHX -0.625 0.625 + MESHY -0.625 0.625 ; + ::: C4 := GEO: CARCEL 2 + SECT 3 1 + RADIUS 0.000 0.3 0.650 + MIX 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 + MESHX -0.625 0.625 + MESHY -0.625 0.625 ; + ; + +Fil_SAL.tdt Fil_SAL.ps := G2S: GEOM :: DRAWNOD ; +TRACK SEQTRK := SALT: Fil_SAL.tdt :: + EDIT 10 + TSPC <<an2d>> <<densur>> REND ; + +SYS := ASM: MACRO TRACK SEQTRK ; +*---- +* Solution : K-EFFECTIVE +*---- +FLUX := FLU: SYS MACRO TRACK :: + TYPE K + ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9003599 ; +ECHO "test tst2016_7 completed" ; +END: ; +QUIT "LIST" . diff --git a/Dragon/data/g2s_prestation_proc/tst2019_1.c2m b/Dragon/data/g2s_prestation_proc/tst2019_1.c2m new file mode 100644 index 0000000..8942af5 --- /dev/null +++ b/Dragon/data/g2s_prestation_proc/tst2019_1.c2m @@ -0,0 +1,63 @@ +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEOM ; +SEQ_BINARY TRKFILN2 ; +SEQ_ASCII G2S_tst :: FILE './G2S_tst.txt' ; +SEQ_ASCII FIG_tst :: FILE './FIG_tst.ps' ; +MODULE GEO: G2S: END: ; + +REAL Rcomb4 := 0.39218 ; +REAL Rtub1 := 0.1897 ; +REAL Rtub2 := 0.3794 ; +REAL R_int_TI := 0.56134 ; +REAL R_ext_TI := 0.60198 ; +REAL R_int_G := 0.40005 ; +REAL R_ext_G := 0.45720 ; + +REAL Cote := 0.62992 2. * ; +REAL lpitch := 10.75182 2. * ; + +REAL Rcomb1 := 0.5 SQRT Rcomb4 * ; +REAL Rcomb2 := 0.8 SQRT Rcomb4 * ; +REAL Rcomb3 := 0.95 SQRT Rcomb4 * ; + +REAL mesh1 := Cote ; +REAL mesh2 := mesh1 Cote + ; +REAL mesh3 := mesh2 Cote + ; + + +GEOM := GEO: :: CAR2D 3 2 + EDIT 0 + X+ REFL X- REFL Y- REFL Y+ SYME + CELL CF CF CF + CF TI CF + + MESHX 0.0 <<mesh1>> <<mesh2>> <<mesh3>> + MESHY 0.0 <<mesh1>> <<mesh2>> + + ::: CF := GEO: CARCEL 5 + MESHX 0.0 <<Cote>> + MESHY 0.0 <<Cote>> + SECT 4 5 + RADIUS 0.0 <<Rcomb1>> <<Rcomb2>> <<Rcomb3>> <<Rcomb4>> + <<R_ext_G>> + MIX 62 63 64 65 4 + 68 68 68 68 68 68 68 68 68 68 68 68 ; + ::: TI := GEO: CARCEL 2 + MESHX 0.0 <<Cote>> + MESHY 0.0 <<Cote>> + SECT 2 0 + RADIUS 0.0 + <<R_int_TI>> + <<R_ext_TI>> + MIX 66 66 66 66 66 66 66 66 + 2 2 2 2 2 2 2 2 + 67 67 67 67 67 67 67 67 ; +; + +G2S_tst FIG_tst := G2S: GEOM ; + +ECHO "test tst2019_1 completed" ; +END: ; +QUIT . diff --git a/Dragon/data/g2s_prestation_proc/tst2019_2.c2m b/Dragon/data/g2s_prestation_proc/tst2019_2.c2m new file mode 100644 index 0000000..42091db --- /dev/null +++ b/Dragon/data/g2s_prestation_proc/tst2019_2.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_syme_fl.ps' ; +SEQ_ASCII Fil_SAL.tdt :: FILE './Fil_syme.tdt' ; +SEQ_ASCII Lines.m :: FILE './Lines_syme.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- SYME 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_2 completed" ; +END: ; 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: ; diff --git a/Dragon/data/g2s_prestation_proc/tst2019_4.c2m b/Dragon/data/g2s_prestation_proc/tst2019_4.c2m new file mode 100644 index 0000000..aa99dc0 --- /dev/null +++ b/Dragon/data/g2s_prestation_proc/tst2019_4.c2m @@ -0,0 +1,151 @@ +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST TRACKM GEOM ; +SEQ_BINARY TRKFILM ; +MODULE GEO: G2S: SALT: END: ; +SEQ_ASCII Fil_ssym_fl Fil_ssym_su ; + +INTEGER mixX := 6 ; ! mixture used as void +REAL side rfuel rclad := 1.636 0.514858 0.602996 ; +REAL densur := 10.0 ; +INTEGER an2d := 6 ; + +REAL Rcomb4 := rfuel ; +REAL Rcomb1 := 0.5 SQRT rfuel * ; +REAL Rcomb2 := 0.8 SQRT rfuel * ; +REAL Rcomb3 := 0.95 SQRT rfuel * ; + +GEOM := GEO: :: CAR2D 47 47 + EDIT 0 + X- SYME X+ ALBE 1 + Y- SYME Y+ ALBE 1 + CELL +F F F F W F F F F F F F W F F F F F F F W F F C C C C C C C C C C C C C + C C C C C W W W W W W +F F F F W F F F F F F F W F F F F F F F W F F C C C C C C C C C C C C C + C C C C C W W W W W W +F F F F W F F F F F F F W F F F F F F F W F F C C C C C C C C C C C C C + C C C C C W W W W W W +F F F F W F F F F F F F W F F F F F F F W F F C C C C C C C C C C C C C + C C C C C W W W W W X +W W W W W W W W W W W W W W W W W W W W W W W C C C C C C C C C C C C C + C C C C C W W W W W X +F F F F W F F F F F F F W F F F F F F F W F F C C C C C C C C C C C C C + C C C C C W W W W W X +F F F F W F F F F F F F W F F F F F F F W F F C C C C C C C C C C C C C + C C C C C W W W W W X +F F F F W F F F F F F F W F F F F F F F W F F C C C C C C C C C C C C C + C C C C C W W W W W X +F F F F W F F F F F F F W F F F F F F F W F F C C C C C C C C C C C C C + C C C C C W W W W W X +F F F F W F F F F F F F W F F F F F F F W F F C C C C C C C C C C C C C + C C C C C W W W W W X +F F F F W F F F F F F F W F F F F F F F W F F C C C C C C C C C C C C C + C C C C C W W W W X X +F F F F W F F F F F F F W F F F F F F F W F F C C C C C C C C C C C C C + W W W W W W W W W X X +W W W W W W W W W W W W W W W W W W W W W W W C C C C C C C C C C C C C + W W W W W W W W W X X +F F F F W F F F F F F F W F F F F F F F W F F C C C C C C C C C C C C C + W W W W W W W W W X X +F F F F W F F F F F F F W F F F F F F F W F F C C C C C C C C C C C C C + W W W W W W W W X X X +F F F F W F F F F F F F W F F F F F F F W F F C C C C C C C C C C C C C + W W W W W W W W X X X +F F F F W F F F F F F F W F F F F F F F W F F C C C C C C C C C C C C C + W W W W W W W W X X X +F F F F W F F F F F F F W F F F F F F F W F F C C C C C C C C C C C C C + W W W W W W W X X X X +F F F F W F F F F F F F W F F F F F F F W F F C C C C C C C C C C C C C + W W W W W W W X X X X +F F F F W F F F F F F F W F F F F F F F W F F C C C C C C C C C C C C C + W W W W W W X X X X X +W W W W W W W W W W W W W W W W W W W W W W W C C C C C C C C C C C C C + W W W W W W X X X X X +F F F F W F F F F F F F W F F F F F F F W F F C C C C C C C C W W W W W + W W W W W X X X X X X +F F F F W F F F F F F F W F F F F F F F W F F C C C C C C C C W W W W W + W W W W W X X X X X X +C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C W W W W W + W W W W X X X X X X X +C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C W W W W W + W W W W X X X X X X X +C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C W W W W W + W W W X X X X X X X X +C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C W W W W W + W W X X X X X X X X X +C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C W W W W W + W W X X X X X X X X X +C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C W W W W W + W X X X X X X X X X X +C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C W W W W W + X X X X X X X X X X X +C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C W W W W X + X X X X X X X X X X X +C C C C C C C C C C C C C C C C C C C C C W W W W W W W W W W W W W X X + X X X X X X X X X X X +C C C C C C C C C C C C C C C C C C C C C W W W W W W W W W W W W X X X + X X X X X X X X X X X +C C C C C C C C C C C C C C C C C C C C C W W W W W W W W W W W X X X X + X X X X X X X X X X X +C C C C C C C C C C C C C C C C C C C C C W W W W W W W W W W X X X X X + X X X X X X X X X X X +C C C C C C C C C C C C C C C C C C C C C W W W W W W W W W X X X X X X + X X X X X X X X X X X +C C C C C C C C C C C W W W W W W W W W W W W W W W W W W X X X X X X X + X X X X X X X X X X X +C C C C C C C C C C C W W W W W W W W W W W W W W W W W X X X X X X X X + X X X X X X X X X X X +C C C C C C C C C C C W W W W W W W W W W W W W W W X X X X X X X X X X + X X X X X X X X X X X +C C C C C C C C C C C W W W W W W W W W W W W W W X X X X X X X X X X X + X X X X X X X X X X X +C C C C C C C C C C C W W W W W W W W W W W W X X X X X X X X X X X X X + X X X X X X X X X X X +W W W W W W W W W W W W W W W W W W W W W X X X X X X X X X X X X X X X + X X X X X X X X X X X +W W W W W W W W W W W W W W W W W W W X X X X X X X X X X X X X X X X X + X X X X X X X X X X X +W W W W W W W W W W W W W W W W W X X X X X X X X X X X X X X X X X X X + X X X X X X X X X X X +W W W W W W W W W W W W W W X X X X X X X X X X X X X X X X X X X X X X + X X X X X X X X X X X +W W W W W W W W W W X X X X X X X X X X X X X X X X X X X X X X X X X X + X X X X X X X X X X X +W W W X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X + X X X X X X X X X X X + + ! Fuel Cell (inner core) + ::: F := GEO: CARCEL 5 + MESHX 0.0 <<side>> + MESHY 0.0 <<side>> + RADIUS 0.0 <<Rcomb1>> <<Rcomb2>> <<Rcomb3>> <<Rcomb4>> <<rclad>> + MIX 1 2 3 4 5 6 + ; + ! Fuel Cell (outer core) + ::: C := GEO: F + ; + ! Water (inside real tank size) + ::: W := GEO: CAR2D 1 1 + MESHX 0.0 <<side>> + MESHY 0.0 <<side>> + MIX 6 + SPLITX 3 SPLITY 3 + ; + ! Water (outside real tank size) + ::: X := GEO: W + MIX <<mixX>> + SPLITX 1 SPLITY 1 + ; +; + +Fil_ssym_su Fil_ssym_fl := G2S: GEOM ; + +TRACKM TRKFILM := SALT: Fil_ssym_su :: + EDIT 1 + TISO <<an2d>> <<densur>> REND LONG + TITLE 'TRACKING FOR TISO' + ; +ECHO "test tst2019_4 completed" ; +END: ; diff --git a/Dragon/data/g2s_prestation_proc/tst2023_1.c2m b/Dragon/data/g2s_prestation_proc/tst2023_1.c2m new file mode 100644 index 0000000..8663a7b --- /dev/null +++ b/Dragon/data/g2s_prestation_proc/tst2023_1.c2m @@ -0,0 +1,48 @@ +*---- +* Define STRUCTURES and MODULES used +*---- +MODULE + G2S: SALT: TLM: DELETE: END: ; +LINKED_LIST TRACK ; +SEQ_ASCII isocel_r60 :: FILE './isocel_r60.tdt' ; +SEQ_ASCII lozenge_r120 :: FILE './lozenge_r120.tdt' ; +SEQ_ASCII salomon.ps ; +SEQ_ASCII Lines_r60.m :: FILE './Lines_r60.m' ; +SEQ_ASCII Lines_r120.m :: FILE './Lines_r120.m' ; +SEQ_BINARY TF_EXC ; +INTEGER an2d := 3 ; +REAL densur := 100.0 ; +*---- +* R60 geometry +*---- +salomon.ps := G2S: isocel_r60 :: DRAWNOD ; + +TRACK TF_EXC := SALT: isocel_r60 :: + EDIT 6 + TISO <<an2d>> <<densur>> REND LONG +; + +Lines_r60.m := TLM: TRACK TF_EXC :: + EDIT 99 + NTPO 1 + DIRECTIONS NoPause DIR 0 ; + +salomon.ps TRACK TF_EXC := DELETE: salomon.ps TRACK TF_EXC ; +*---- +* R120 geometry +*---- +salomon.ps := G2S: lozenge_r120 :: DRAWNOD ; + +TRACK TF_EXC := SALT: lozenge_r120 :: + EDIT 6 + TISO <<an2d>> <<densur>> REND LONG +; + +Lines_r120.m := TLM: TRACK TF_EXC :: + EDIT 99 + NTPO 1 + DIRECTIONS NoPause DIR 0 ; + +ECHO "test tst2023_1 completed" ; + +END: ; |