From 7dfcc480ba1e19bd3232349fc733caef94034292 Mon Sep 17 00:00:00 2001 From: stainer_t Date: Mon, 8 Sep 2025 13:48:49 +0200 Subject: Initial commit from Polytechnique Montreal --- Dragon/data/g2s_prestation_proc/tst2016_4.c2m | 247 ++++++++++++++++++++++++++ 1 file changed, 247 insertions(+) create mode 100644 Dragon/data/g2s_prestation_proc/tst2016_4.c2m (limited to 'Dragon/data/g2s_prestation_proc/tst2016_4.c2m') 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 <> <> <> <> <> <> + <> <> <> <> + MESHY 0.0 <> <> <> <> <> <> + <> <> <> <> + ::: Lame_C := GEO: CAR2D 1 1 + MESHX 0.0 <> MESHY 0.0 <> + MIX 1 ; + + ::: Lame_V := GEO: CAR2D 1 1 + MESHX 0.0 <> MESHY 0.0 <> + SPLITY 3 MIX 1 ; + + ::: C0201 := GEO: CARCEL 6 + MESHX 0.0 <> + MESHY 0.0 <> + SECT 4 6 + RADIUS 0.0 <> <> <> <> + <> <> + 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 <> + MESHY 0.0 <> + SECT 3 6 + RADIUS 0.0 <> <> <> <> + <> <> <> <> + 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 <> + MESHY 0.0 <> + SECT 3 1 + RADIUS 0.0 <> <> <> <> + 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 <> <> 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: ; -- cgit v1.2.3