diff options
Diffstat (limited to 'Dragon/data/salmacro_proc/TDCM56.c2m')
| -rw-r--r-- | Dragon/data/salmacro_proc/TDCM56.c2m | 956 |
1 files changed, 956 insertions, 0 deletions
diff --git a/Dragon/data/salmacro_proc/TDCM56.c2m b/Dragon/data/salmacro_proc/TDCM56.c2m new file mode 100644 index 0000000..9f5d76d --- /dev/null +++ b/Dragon/data/salmacro_proc/TDCM56.c2m @@ -0,0 +1,956 @@ +*---- +* TEST CASE TDCM56 +* MACROSCOPIC CROSS SECTIONS +* 4-GROUP COLORSET CALCULATION WITH EDI_CURR OPTION +*---- +* Define STRUCTURES and MODULES used +*---- + +LINKED_LIST GEON2 MACRO4G MACRO4G2 TRACK SYS FLUX RES_F EDIT BRANCH ; +MODULE GEO: G2S: MCCGT: SALT: ASM: FLU: MAC: EDI: END: ; +SEQ_ASCII UOX_AIC FIG_AIC ; +SEQ_BINARY TF_EXC ; +SEQ_ASCII RCOND2 :: FILE './AIC_SN_CCOND2.ref' ; +INTEGER an2d := 12 ; +REAL densur := 25.0 ; +PROCEDURE assertS ; + +*---- +* Input geometry data +*---- +REAL Rcomb4 := 0.4096 ; +REAL Rcomb1 := 0.5 SQRT Rcomb4 * ; +REAL Rcomb2 := 0.8 SQRT Rcomb4 * ; +REAL Rcomb3 := 0.95 SQRT Rcomb4 * ; +REAL Rgad6 := 0.4096 ; +REAL Rgad1 := 0.2 SQRT Rgad6 * ; +REAL Rgad2 := 0.4 SQRT Rgad6 * ; +REAL Rgad3 := 0.6 SQRT Rgad6 * ; +REAL Rgad4 := 0.8 SQRT Rgad6 * ; +REAL Rgad5 := 0.95 SQRT Rgad6 * ; +REAL R_int_TG := 0.5605 ; +REAL R_ext_TG := 0.6225 ; +REAL R_int_TI := 0.5725 ; +REAL R_ext_TI := 0.6225 ; +REAL R_int_G := 0.4180 ; +REAL R_ext_G := 0.4750 ; +REAL Cote := 1.26 ; +REAL CoteL := 1.302 ; +REAL Gap := CoteL Cote - ; +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 Gap + ; +REAL mesh11 := mesh10 Gap + ; +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 Cote + ; +REAL mesh20 := mesh19 Cote + ; + +REAL Rtub1_TG := R_int_TG 3.0 / ; +REAL Rtub2_TG := R_int_TG 1.5 / ; +REAL Rtub1_TI := R_int_TI 3.0 / ; +REAL Rtub2_TI := R_int_TI 1.5 / ; +* +ECHO "mesh=" 0.0 mesh1 mesh2 mesh3 mesh4 mesh5 mesh6 mesh7 mesh8 mesh9 + mesh10 mesh11 mesh12 mesh13 mesh14 mesh15 mesh16 mesh17 mesh18 + mesh19 mesh20 ; +* +GEON2 := GEO: :: CAR2D 20 20 + EDIT 0 + X- REFL X+ REFL + Y- REFL Y+ REFL + CELL + TI1 C0201 G0301 TG1 C0501 G0601 TG1 C0801 C0901 GapS1 GapS2 C1001 C1101 TG2 C1301 C1401 TG2 C1601 C1701 TI2 +C0201 C0202 C0302 C0402 C0502 C0602 C0702 C0802 C0902 GapS1 GapS2 C1002 C1102 C1202 C1302 C1402 C1502 C1602 C1702 C1701 +G0301 C0302 C0303 C0403 C0503 C0603 C0703 C0803 C0903 GapS1 GapS2 C1003 C1103 C1203 C1303 C1403 C1503 C1603 C1602 C1601 + TG1 C0402 C0403 TG1 C0504 C0604 TG1 G0804 C0904 GapS1 GapS2 C1004 C1104 TG2 C1304 C1404 TG2 C1503 C1502 TG2 +C0501 C0502 C0503 C0504 G0505 C0605 C0705 C0805 C0905 GapS1 GapS2 C1005 C1105 C1205 C1305 C1405 C1404 C1403 C1402 C1401 +G0601 C0602 C0603 C0604 C0605 TG1 C0706 C0806 C0906 GapS1 GapS2 C1006 C1106 C1206 TG2 C1305 C1304 C1303 C1302 C1301 + TG1 C0702 C0703 TG1 C0705 C0706 G0707 C0807 C0907 GapS1 GapS2 C1007 C1107 C1207 C1206 C1205 TG2 C1203 C1202 TG2 +C0801 C0802 C0803 G0804 C0805 C0806 C0807 C0808 C0908 GapT1 GapT2 C1008 C1108 C1107 C1106 C1105 C1104 C1103 C1102 C1101 +C0901 C0902 C0903 C0904 C0905 C0906 C0907 C0908 C0909 GapT1 GapT2 C1009 C1008 C1007 C1006 C1005 C1004 C1003 C1002 C1001 +GapS6 GapS6 GapS6 GapS6 GapS6 GapS6 GapS6 GapT6 GapT6 GapC1 GapC2 GapT3 GapT3 GapS3 GapS3 GapS3 GapS3 GapS3 GapS3 GapS3 + +GapS7 GapS7 GapS7 GapS7 GapS7 GapS7 GapS7 GapT7 GapT7 GapC7 GapC4 GapT4 GapT4 GapS4 GapS4 GapS4 GapS4 GapS4 GapS4 GapS4 +C1001 C1002 C1003 C1004 C1005 C1006 C1007 C1008 C1009 GapT8 GapT5 C0909 C0908 C0907 C0906 C0905 C0904 C0903 C0902 C0901 +C1101 C1102 C1103 C1104 C1105 C1106 C1107 C1108 C1008 GapT8 GapT5 C0908 C0808 C0807 C0806 C0805 G0804 C0803 C0802 C0801 + TG2 C1202 C1203 TG2 C1205 C1206 C1207 C1107 C1007 GapS8 GapS5 C0907 C0807 G0707 C0706 C0705 TG1 C0703 C0702 TG1 +C1301 C1302 C1303 C1304 C1305 TG2 C1206 C1106 C1006 GapS8 GapS5 C0906 C0806 C0706 TG1 C0605 C0604 C0603 C0602 G0601 +C1401 C1402 C1403 C1404 C1405 C1305 C1205 C1105 C1005 GapS8 GapS5 C0905 C0805 C0705 C0605 G0505 C0504 C0503 C0502 C0501 + TG2 C1502 C1503 TG2 C1404 C1304 TG2 C1104 C1004 GapS8 GapS5 C0904 G0804 TG1 C0604 C0504 TG1 C0403 C0402 TG1 +C1601 C1602 C1603 C1503 C1403 C1303 C1203 C1103 C1003 GapS8 GapS5 C0903 C0803 C0703 C0603 C0503 C0403 C0303 C0302 G0301 +C1701 C1702 C1602 C1502 C1402 C1302 C1202 C1102 C1002 GapS8 GapS5 C0902 C0802 C0702 C0602 C0502 C0402 C0302 C0202 C0201 + TI2 C1701 C1601 TG2 C1401 C1301 TG2 C1101 C1001 GapS8 GapS5 C0901 C0801 TG1 G0601 C0501 TG1 G0301 C0201 TI1 + MESHX 0.0 <<mesh1>> <<mesh2>> <<mesh3>> <<mesh4>> <<mesh5>> <<mesh6>> <<mesh7>> <<mesh8>> <<mesh9>> <<mesh10>> + <<mesh11>> <<mesh12>> <<mesh13>> <<mesh14>> <<mesh15>> <<mesh16>> <<mesh17>> <<mesh18>> <<mesh19>> <<mesh20>> + MESHY 0.0 <<mesh1>> <<mesh2>> <<mesh3>> <<mesh4>> <<mesh5>> <<mesh6>> <<mesh7>> <<mesh8>> <<mesh9>> <<mesh10>> + <<mesh11>> <<mesh12>> <<mesh13>> <<mesh14>> <<mesh15>> <<mesh16>> <<mesh17>> <<mesh18>> <<mesh19>> <<mesh20>> + + ::: GapS1 := GEO: CAR2D 1 1 + MESHX 0.0 <<Gap>> MESHY 0.0 <<Cote>> + SPLITY 3 MIX 172 ; + + ::: GapS4 := GEO: CAR2D 1 1 + MESHX 0.0 <<Cote>> MESHY 0.0 <<Gap>> + SPLITX 3 MIX 173 ; + + ::: GapT1 := GEO: GapS1 + MIX 174 ; + + ::: GapS5 := GEO: GapS1 + MIX 175 ; + + ::: GapT5 := GEO: GapS1 + MIX 176 ; + + ::: GapT4 := GEO: GapS4 + MIX 177 ; + + ::: GapT6 := GEO: GapS4 + MIX 178 ; + + ::: GapS6 := GEO: GapS4 + MIX 179 ; + + ::: GapC1 := GEO: CAR2D 1 1 + MESHX 0.0 <<Gap>> MESHY 0.0 <<Gap>> + MIX 180 ; + + ::: GapC4 := GEO: GapC1 + MIX 181 ; + + ::: 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 ; + + ::: G0301 := GEO: CARCEL 8 + MESHX 0.0 <<Cote>> + MESHY 0.0 <<Cote>> + SECT 4 8 + RADIUS 0.0 <<Rgad1>> <<Rgad2>> <<Rgad3>> <<Rgad4>> <<Rgad5>> + <<Rgad6>> <<R_int_G>> <<R_ext_G>> + MIX 13 14 15 16 17 18 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0302 := GEO: C0201 + MIX 19 20 21 22 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0303 := GEO: C0201 + MIX 23 24 25 26 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0402 := GEO: C0201 + MIX 28 29 30 31 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0403 := GEO: C0201 + MIX 32 33 34 35 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0501 := GEO: C0201 + MIX 36 37 38 39 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0502 := GEO: C0201 + MIX 40 41 42 43 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0503 := GEO: C0201 + MIX 44 45 46 47 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0504 := GEO: C0201 + MIX 48 49 50 51 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: G0505 := GEO: G0301 + MIX 52 53 54 55 56 57 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: G0601 := GEO: G0301 + MIX 58 59 60 61 62 63 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0602 := GEO: C0201 + MIX 64 65 66 67 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0603 := GEO: C0201 + MIX 68 69 70 71 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0604 := GEO: C0201 + MIX 72 73 74 75 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0605 := GEO: C0201 + MIX 76 77 78 79 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0702 := GEO: C0201 + MIX 80 81 82 83 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0703 := GEO: C0201 + MIX 84 85 86 87 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0705 := GEO: C0201 + MIX 88 89 90 91 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: C0706 := GEO: C0201 + MIX 92 93 94 95 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ; + + ::: G0707 := GEO: G0301 + MIX 96 97 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 183 184 182 182 182 182 182 182 182 182 182 182 182 182 ; + + ::: C0802 := GEO: C0201 + MIX 106 107 108 109 183 184 182 182 182 182 182 182 182 182 182 182 182 182 ; + + ::: C0803 := GEO: C0201 + MIX 110 111 112 113 183 184 182 182 182 182 182 182 182 182 182 182 182 182 ; + + ::: G0804 := GEO: G0301 + MIX 114 115 116 117 118 119 183 184 182 182 182 182 182 182 182 182 182 182 182 182 ; + + ::: C0805 := GEO: C0201 + MIX 120 121 122 123 183 184 182 182 182 182 182 182 182 182 182 182 182 182 ; + + ::: C0806 := GEO: C0201 + MIX 124 125 126 127 183 184 182 182 182 182 182 182 182 182 182 182 182 182 ; + + ::: C0807 := GEO: C0201 + MIX 128 129 130 131 183 184 182 182 182 182 182 182 182 182 182 182 182 182 ; + + ::: C0808 := GEO: C0201 + MIX 132 133 134 135 186 187 185 185 185 185 185 185 185 185 185 185 185 185 ; + + ::: C0901 := GEO: C0201 + MIX 136 137 138 139 183 184 182 182 182 182 182 182 182 182 182 182 182 182 ; + + ::: C0902 := GEO: C0201 + MIX 140 141 142 143 183 184 182 182 182 182 182 182 182 182 182 182 182 182 ; + + ::: C0903 := GEO: C0201 + MIX 144 145 146 147 183 184 182 182 182 182 182 182 182 182 182 182 182 182 ; + + ::: C0904 := GEO: C0201 + MIX 148 149 150 151 183 184 182 182 182 182 182 182 182 182 182 182 182 182 ; + + ::: C0905 := GEO: C0201 + MIX 152 153 154 155 183 184 182 182 182 182 182 182 182 182 182 182 182 182 ; + + ::: C0906 := GEO: C0201 + MIX 156 157 158 159 183 184 182 182 182 182 182 182 182 182 182 182 182 182 ; + + ::: C0907 := GEO: C0201 + MIX 160 161 162 163 183 184 182 182 182 182 182 182 182 182 182 182 182 182 ; + + ::: C0908 := GEO: C0201 + MIX 164 165 166 167 186 187 185 185 185 185 185 185 185 185 185 185 185 185 ; + + ::: C0909 := GEO: C0201 + MIX 168 169 170 171 186 187 185 185 185 185 185 185 185 185 185 185 185 185 ; + + ::: TG1 := GEO: CARCEL 4 + MESHX 0.0 <<Cote>> + MESHY 0.0 <<Cote>> + SECT 3 1 + RADIUS 0.0 <<Rtub1_TG>> <<Rtub2_TG>> <<R_int_TG>> <<R_ext_TG>> + MIX 1 + 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 + 27 27 27 27 27 27 27 27 + 1 1 1 1 1 1 1 1 ; + + ::: TI1 := GEO: CARCEL 4 + MESHX 0.0 <<Cote>> + MESHY 0.0 <<Cote>> + SECT 3 1 + RADIUS 0.0 <<Rtub1_TI>> <<Rtub2_TI>> <<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 ; + + + ::: GapS2 := GEO: CAR2D 1 1 + MESHX 0.0 <<Gap>> MESHY 0.0 <<Cote>> + SPLITY 3 MIX 349 ; + + ::: GapS3 := GEO: CAR2D 1 1 + MESHX 0.0 <<Cote>> MESHY 0.0 <<Gap>> + SPLITX 3 MIX 350 ; + + ::: GapT2 := GEO: GapS2 + MIX 351 ; + + ::: GapS8 := GEO: GapS2 + MIX 352 ; + + ::: GapT8 := GEO: GapS2 + MIX 353 ; + + ::: GapT3 := GEO: GapS3 + MIX 354 ; + + ::: GapT7 := GEO: GapS3 + MIX 355 ; + + ::: GapS7 := GEO: GapS3 + MIX 356 ; + + ::: GapC2 := GEO: CAR2D 1 1 + MESHX 0.0 <<Gap>> MESHY 0.0 <<Gap>> + MIX 357 ; + + ::: GapC7 := GEO: GapC2 + MIX 358 ; + + ::: C1701 := 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 190 191 192 193 194 195 188 188 188 188 188 188 188 188 188 188 188 188 ; + + ::: C1702 := GEO: C1701 + MIX 196 197 198 199 194 195 188 188 188 188 188 188 188 188 188 188 188 188 ; + + ::: C1601 := GEO: C1701 + MIX 200 201 202 203 194 195 188 188 188 188 188 188 188 188 188 188 188 188 ; + + ::: C1602 := GEO: C1701 + MIX 204 205 206 207 194 195 188 188 188 188 188 188 188 188 188 188 188 188 ; + + ::: C1603 := GEO: C1701 + MIX 208 209 210 211 194 195 188 188 188 188 188 188 188 188 188 188 188 188 ; + + ::: C1502 := GEO: C1701 + MIX 205 206 215 216 194 195 188 188 188 188 188 188 188 188 188 188 188 188 ; + + ::: C1503 := GEO: C1701 + MIX 217 218 219 220 194 195 188 188 188 188 188 188 188 188 188 188 188 188 ; + + ::: C1401 := GEO: C1701 + MIX 221 222 223 224 194 195 188 188 188 188 188 188 188 188 188 188 188 188 ; + + ::: C1402 := GEO: C1701 + MIX 225 226 227 228 194 195 188 188 188 188 188 188 188 188 188 188 188 188 ; + + ::: C1403 := GEO: C1701 + MIX 229 230 231 232 194 195 188 188 188 188 188 188 188 188 188 188 188 188 ; + + ::: C1404 := GEO: C1701 + MIX 233 234 235 236 194 195 188 188 188 188 188 188 188 188 188 188 188 188 ; + + ::: C1405 := GEO: C1701 + MIX 237 238 239 240 194 195 188 188 188 188 188 188 188 188 188 188 188 188 ; + + ::: C1301 := GEO: C1701 + MIX 241 242 243 244 194 195 188 188 188 188 188 188 188 188 188 188 188 188 ; + + ::: C1302 := GEO: C1701 + MIX 245 246 247 248 194 195 188 188 188 188 188 188 188 188 188 188 188 188 ; + + ::: C1303 := GEO: C1701 + MIX 249 250 251 252 194 195 188 188 188 188 188 188 188 188 188 188 188 188 ; + + ::: C1304 := GEO: C1701 + MIX 253 254 255 256 194 195 188 188 188 188 188 188 188 188 188 188 188 188 ; + + ::: C1305 := GEO: C1701 + MIX 257 258 259 260 194 195 188 188 188 188 188 188 188 188 188 188 188 188 ; + + ::: C1202 := GEO: C1701 + MIX 261 262 263 264 194 195 188 188 188 188 188 188 188 188 188 188 188 188 ; + + ::: C1203 := GEO: C1701 + MIX 265 266 267 268 194 195 188 188 188 188 188 188 188 188 188 188 188 188 ; + + ::: C1205 := GEO: C1701 + MIX 269 270 271 272 194 195 188 188 188 188 188 188 188 188 188 188 188 188 ; + + ::: C1206 := GEO: C1701 + MIX 273 274 275 276 194 195 188 188 188 188 188 188 188 188 188 188 188 188 ; + + ::: C1207 := GEO: C1701 + MIX 277 278 279 280 194 195 188 188 188 188 188 188 188 188 188 188 188 188 ; + + ::: C1101 := GEO: C1701 + MIX 281 282 283 284 360 361 359 359 359 359 359 359 359 359 359 359 359 359 ; + + ::: C1102 := GEO: C1701 + MIX 285 286 287 288 360 361 359 359 359 359 359 359 359 359 359 359 359 359 ; + + ::: C1103 := GEO: C1701 + MIX 289 290 291 292 360 361 359 359 359 359 359 359 359 359 359 359 359 359 ; + + ::: C1104 := GEO: C1701 + MIX 293 294 295 296 360 361 359 359 359 359 359 359 359 359 359 359 359 359 ; + + ::: C1105 := GEO: C1701 + MIX 297 298 299 300 360 361 359 359 359 359 359 359 359 359 359 359 359 359 ; + + ::: C1106 := GEO: C1701 + MIX 301 302 303 304 360 361 359 359 359 359 359 359 359 359 359 359 359 359 ; + + ::: C1107 := GEO: C1701 + MIX 305 306 307 308 360 361 359 359 359 359 359 359 359 359 359 359 359 359 ; + + ::: C1108 := GEO: C1701 + MIX 309 310 311 312 363 364 362 362 362 362 362 362 362 362 362 362 362 362 ; + + ::: C1001 := GEO: C1701 + MIX 313 314 315 316 360 361 359 359 359 359 359 359 359 359 359 359 359 359 ; + + ::: C1002 := GEO: C1701 + MIX 317 318 319 320 360 361 359 359 359 359 359 359 359 359 359 359 359 359 ; + + ::: C1003 := GEO: C1701 + MIX 321 322 323 324 360 361 359 359 359 359 359 359 359 359 359 359 359 359 ; + + ::: C1004 := GEO: C1701 + MIX 325 326 327 328 360 361 359 359 359 359 359 359 359 359 359 359 359 359 ; + + ::: C1005 := GEO: C1701 + MIX 329 330 331 332 360 361 359 359 359 359 359 359 359 359 359 359 359 359 ; + + ::: C1006 := GEO: C1701 + MIX 333 334 335 336 360 361 359 359 359 359 359 359 359 359 359 359 359 359 ; + + ::: C1007 := GEO: C1701 + MIX 337 338 339 340 360 361 359 359 359 359 359 359 359 359 359 359 359 359 ; + + ::: C1008 := GEO: C1701 + MIX 341 342 343 344 363 364 362 362 362 362 362 362 362 362 362 362 362 362 ; + + ::: C1009 := GEO: C1701 + MIX 345 346 347 348 363 364 362 362 362 362 362 362 362 362 362 362 362 362 ; + + ::: TG2 := GEO: CARCEL 4 + MESHX 0.0 <<Cote>> + MESHY 0.0 <<Cote>> + SECT 3 1 + RADIUS 0.0 <<Rtub1_TG>> <<Rtub2_TG>> <<R_int_TG>> <<R_ext_TG>> + MIX 188 + 188 188 188 188 188 188 188 188 + 188 188 188 188 188 188 188 188 + 212 212 212 212 212 212 212 212 + 188 188 188 188 188 188 188 188 ; + + ::: TI2 := GEO: CARCEL 4 + MESHX 0.0 <<Cote>> + MESHY 0.0 <<Cote>> + SECT 3 1 + RADIUS 0.0 <<Rtub1_TI>> <<Rtub2_TI>> <<R_int_TI>> <<R_ext_TI>> + MIX 188 + 188 188 188 188 188 188 188 188 + 188 188 188 188 188 188 188 188 + 189 189 189 189 189 189 189 189 + 188 188 188 188 188 188 188 188 ; +; +*---- +* Input Macrolib +*---- +MACRO4G := MAC: :: + EDIT 1 NGRO 4 NMIX 13 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 (* Clad *) + TOTAL 4.240E-01 1.0476E+00 2.7503E+00 1.1194E+01 + TRANC 0.000E+00 0.000E+00 0.000E+00 0.000E+00 + SCAT 1 1 (*1->1*) 3.738E-01 + 2 2 (*2->2*) 4.102E-01 (*1->2*) 2.439E-04 + 3 4 (*4->3*) 4.985E-03 (*3->3*) 4.956E-01 (*2->3*) 7.370E-04 + 2 4 (*4->4*) 2.996E-01 (*3->4*) 3.248E-03 + 1 1 (*1->1*) 0.000E+00 + 1 2 (*2->2*) -6.161E-02 + 1 3 (*3->3*) -2.326E-01 + 1 4 (*4->4*) 0.000E+00 + MIX 3 (* 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 2.869E-02 1.628E-01 1.985E-01 1.144E+00 + 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 7 (* Gap fuel *) + TOTAL 1.000E-05 1.000E-05 1.000E-05 1.000E-05 + TRANC 0.000E+00 0.000E+00 0.000E+00 0.000E+00 + SCAT 1 1 (*1->1*) 0.000E+00 + 1 2 (*2->2*) 0.000E+00 + 1 3 (*3->3*) 0.000E+00 + 1 4 (*4->4*) 0.000E+00 + 1 1 (*1->1*) 0.000E+00 + 1 2 (*2->2*) 0.000E+00 + 1 3 (*3->3*) 0.000E+00 + 1 4 (*4->4*) 0.000E+00 + MIX 13 (* 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 2.904E-02 1.606E-01 2.009E-01 1.143E+00 + 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 +; +MACRO4G2 := MAC: MACRO4G :: + NMIX 368 +*---- +* UOX-Gd assembly +*---- + MIX 4 3 OLDL ! fuel 1 + MIX 5 3 OLDL + MIX 6 3 OLDL + MIX 8 2 OLDL ! clad fuel 1 + MIX 9 3 OLDL ! fuel 1 + MIX 10 3 OLDL + MIX 11 3 OLDL + MIX 12 3 OLDL + MIX 14 13 OLDL ! fuel 2 + MIX 15 13 OLDL + MIX 16 13 OLDL + MIX 17 13 OLDL + MIX 18 13 OLDL + MIX 19 3 OLDL ! fuel 1 + MIX 20 3 OLDL + MIX 21 3 OLDL + MIX 22 3 OLDL + MIX 23 3 OLDL ! fuel 1 + MIX 24 3 OLDL + MIX 25 3 OLDL + MIX 26 3 OLDL + MIX 27 2 OLDL ! clad TG + MIX 28 3 OLDL ! fuel 1 + MIX 29 3 OLDL + MIX 30 3 OLDL + MIX 31 3 OLDL + MIX 32 3 OLDL ! fuel 1 + MIX 33 3 OLDL + MIX 34 3 OLDL + MIX 35 3 OLDL + MIX 36 3 OLDL ! fuel 1 + MIX 37 3 OLDL + MIX 38 3 OLDL + MIX 39 3 OLDL + MIX 40 3 OLDL ! fuel 1 + MIX 41 3 OLDL + MIX 42 3 OLDL + MIX 43 3 OLDL + MIX 44 3 OLDL ! fuel 1 + MIX 45 3 OLDL + MIX 46 3 OLDL + MIX 47 3 OLDL + MIX 48 3 OLDL ! fuel 1 + MIX 49 3 OLDL + MIX 50 3 OLDL + MIX 51 3 OLDL + MIX 52 13 OLDL ! fuel 2 + MIX 53 13 OLDL + MIX 54 13 OLDL + MIX 55 13 OLDL + MIX 56 13 OLDL + MIX 57 13 OLDL + MIX 58 13 OLDL ! fuel 2 + MIX 59 13 OLDL + MIX 60 13 OLDL + MIX 61 13 OLDL + MIX 62 13 OLDL + MIX 63 13 OLDL + MIX 64 3 OLDL ! fuel 1 + MIX 65 3 OLDL + MIX 66 3 OLDL + MIX 67 3 OLDL + MIX 68 3 OLDL ! fuel 1 + MIX 69 3 OLDL + MIX 70 3 OLDL + MIX 71 3 OLDL + MIX 72 3 OLDL ! fuel 1 + MIX 73 3 OLDL + MIX 74 3 OLDL + MIX 75 3 OLDL + MIX 76 3 OLDL ! fuel 1 + MIX 77 3 OLDL + MIX 78 3 OLDL + MIX 79 3 OLDL + MIX 80 3 OLDL ! fuel 1 + MIX 81 3 OLDL + MIX 82 3 OLDL + MIX 83 3 OLDL + MIX 84 3 OLDL ! fuel 1 + MIX 85 3 OLDL + MIX 86 3 OLDL + MIX 87 3 OLDL + MIX 88 3 OLDL ! fuel 1 + MIX 89 3 OLDL + MIX 90 3 OLDL + MIX 91 3 OLDL + MIX 92 3 OLDL ! fuel 1 + MIX 93 3 OLDL + MIX 94 3 OLDL + MIX 95 3 OLDL + MIX 96 13 OLDL ! fuel 2 + MIX 97 13 OLDL + MIX 98 13 OLDL + MIX 99 13 OLDL + MIX 100 13 OLDL + MIX 101 13 OLDL + MIX 102 3 OLDL ! fuel 1 + MIX 103 3 OLDL + MIX 104 3 OLDL + MIX 105 3 OLDL + MIX 106 3 OLDL ! fuel 1 + MIX 107 3 OLDL + MIX 108 3 OLDL + MIX 109 3 OLDL + MIX 110 3 OLDL ! fuel 1 + MIX 111 3 OLDL + MIX 112 3 OLDL + MIX 113 3 OLDL + MIX 114 13 OLDL ! fuel 2 + MIX 115 13 OLDL + MIX 116 13 OLDL + MIX 117 13 OLDL + MIX 118 13 OLDL + MIX 119 13 OLDL + MIX 120 3 OLDL ! fuel 1 + MIX 121 3 OLDL + MIX 122 3 OLDL + MIX 123 3 OLDL + MIX 124 3 OLDL ! fuel 1 + MIX 125 3 OLDL + MIX 126 3 OLDL + MIX 127 3 OLDL + MIX 128 3 OLDL ! fuel 1 + MIX 129 3 OLDL + MIX 130 3 OLDL + MIX 131 3 OLDL + MIX 132 3 OLDL ! fuel 1 + MIX 133 3 OLDL + MIX 134 3 OLDL + MIX 135 3 OLDL + MIX 136 3 OLDL ! fuel 1 + MIX 137 3 OLDL + MIX 138 3 OLDL + MIX 139 3 OLDL + MIX 140 3 OLDL ! fuel 1 + MIX 141 3 OLDL + MIX 142 3 OLDL + MIX 143 3 OLDL + MIX 144 3 OLDL ! fuel 1 + MIX 145 3 OLDL + MIX 146 3 OLDL + MIX 147 3 OLDL + MIX 148 3 OLDL ! fuel 1 + MIX 149 3 OLDL + MIX 150 3 OLDL + MIX 151 3 OLDL + MIX 152 3 OLDL ! fuel 1 + MIX 153 3 OLDL + MIX 154 3 OLDL + MIX 155 3 OLDL + MIX 156 3 OLDL ! fuel 1 + MIX 157 3 OLDL + MIX 158 3 OLDL + MIX 159 3 OLDL + MIX 160 3 OLDL ! fuel 1 + MIX 161 3 OLDL + MIX 162 3 OLDL + MIX 163 3 OLDL + MIX 164 3 OLDL ! fuel 1 + MIX 165 3 OLDL + MIX 166 3 OLDL + MIX 167 3 OLDL + MIX 168 3 OLDL ! fuel 1 + MIX 169 3 OLDL + MIX 170 3 OLDL + MIX 171 3 OLDL + MIX 172 1 OLDL ! water blade + MIX 173 1 OLDL + MIX 174 1 OLDL + MIX 175 1 OLDL + MIX 176 1 OLDL + MIX 177 1 OLDL + MIX 178 1 OLDL + MIX 179 1 OLDL + MIX 180 1 OLDL + MIX 181 1 OLDL + MIX 182 1 OLDL ! moderator in cell + MIX 183 1 OLDL + MIX 184 1 OLDL + MIX 185 1 OLDL + MIX 186 1 OLDL + MIX 187 1 OLDL +*---- +* UOX assembly +*---- + MIX 188 1 OLDL ! moderator in cell + MIX 189 2 OLDL ! clad TI + MIX 190 3 OLDL ! fuel 1 + MIX 191 3 OLDL + MIX 192 3 OLDL + MIX 193 3 OLDL + MIX 194 7 OLDL ! gap fuel + MIX 195 2 OLDL ! clad fuel + MIX 196 3 OLDL ! fuel 1 + MIX 197 3 OLDL + MIX 198 3 OLDL + MIX 199 3 OLDL + MIX 200 3 OLDL ! fuel 1 + MIX 201 3 OLDL + MIX 202 3 OLDL + MIX 203 3 OLDL + MIX 204 3 OLDL ! fuel 1 + MIX 205 3 OLDL + MIX 206 3 OLDL + MIX 207 3 OLDL + MIX 208 3 OLDL ! fuel 1 + MIX 209 3 OLDL + MIX 210 3 OLDL + MIX 211 3 OLDL + MIX 212 2 OLDL ! clad TG + MIX 213 3 OLDL ! fuel 1 + MIX 214 3 OLDL + MIX 215 3 OLDL + MIX 216 3 OLDL + MIX 217 3 OLDL ! fuel 1 + MIX 218 3 OLDL + MIX 219 3 OLDL + MIX 220 3 OLDL + MIX 221 3 OLDL ! fuel 1 + MIX 222 3 OLDL + MIX 223 3 OLDL + MIX 224 3 OLDL + MIX 225 3 OLDL ! fuel 1 + MIX 226 3 OLDL + MIX 227 3 OLDL + MIX 228 3 OLDL + MIX 229 3 OLDL ! fuel 1 + MIX 230 3 OLDL + MIX 231 3 OLDL + MIX 232 3 OLDL + MIX 233 3 OLDL ! fuel 1 + MIX 234 3 OLDL + MIX 235 3 OLDL + MIX 236 3 OLDL + MIX 237 3 OLDL ! fuel 1 + MIX 238 3 OLDL + MIX 239 3 OLDL + MIX 240 3 OLDL + MIX 241 3 OLDL ! fuel 1 + MIX 242 3 OLDL + MIX 243 3 OLDL + MIX 244 3 OLDL + MIX 245 3 OLDL ! fuel 1 + MIX 246 3 OLDL + MIX 247 3 OLDL + MIX 248 3 OLDL + MIX 249 3 OLDL ! fuel 1 + MIX 250 3 OLDL + MIX 251 3 OLDL + MIX 252 3 OLDL + MIX 253 3 OLDL ! fuel 1 + MIX 254 3 OLDL + MIX 255 3 OLDL + MIX 256 3 OLDL + MIX 257 3 OLDL ! fuel 1 + MIX 258 3 OLDL + MIX 259 3 OLDL + MIX 260 3 OLDL + MIX 261 3 OLDL ! fuel 1 + MIX 262 3 OLDL + MIX 263 3 OLDL + MIX 264 3 OLDL + MIX 265 3 OLDL ! fuel 1 + MIX 266 3 OLDL + MIX 267 3 OLDL + MIX 268 3 OLDL + MIX 269 3 OLDL ! fuel 1 + MIX 270 3 OLDL + MIX 271 3 OLDL + MIX 272 3 OLDL + MIX 273 3 OLDL ! fuel 1 + MIX 274 3 OLDL + MIX 275 3 OLDL + MIX 276 3 OLDL + MIX 277 3 OLDL ! fuel 1 + MIX 278 3 OLDL + MIX 279 3 OLDL + MIX 280 3 OLDL + MIX 281 3 OLDL ! fuel 1 + MIX 282 3 OLDL + MIX 283 3 OLDL + MIX 284 3 OLDL + MIX 285 3 OLDL ! fuel 1 + MIX 286 3 OLDL + MIX 287 3 OLDL + MIX 288 3 OLDL + MIX 289 3 OLDL ! fuel 1 + MIX 290 3 OLDL + MIX 291 3 OLDL + MIX 292 3 OLDL + MIX 293 3 OLDL ! fuel 1 + MIX 294 3 OLDL + MIX 295 3 OLDL + MIX 296 3 OLDL + MIX 297 3 OLDL ! fuel 1 + MIX 298 3 OLDL + MIX 299 3 OLDL + MIX 300 3 OLDL + MIX 301 3 OLDL ! fuel 1 + MIX 302 3 OLDL + MIX 303 3 OLDL + MIX 304 3 OLDL + MIX 305 3 OLDL ! fuel 1 + MIX 306 3 OLDL + MIX 307 3 OLDL + MIX 308 3 OLDL + MIX 309 3 OLDL ! fuel 1 + MIX 310 3 OLDL + MIX 311 3 OLDL + MIX 312 3 OLDL + MIX 313 3 OLDL ! fuel 1 + MIX 314 3 OLDL + MIX 315 3 OLDL + MIX 316 3 OLDL + MIX 317 3 OLDL ! fuel 1 + MIX 318 3 OLDL + MIX 319 3 OLDL + MIX 320 3 OLDL + MIX 321 3 OLDL ! fuel 1 + MIX 322 3 OLDL + MIX 323 3 OLDL + MIX 324 3 OLDL + MIX 325 3 OLDL ! fuel 1 + MIX 326 3 OLDL + MIX 327 3 OLDL + MIX 328 3 OLDL + MIX 329 3 OLDL ! fuel 1 + MIX 330 3 OLDL + MIX 331 3 OLDL + MIX 332 3 OLDL + MIX 333 3 OLDL ! fuel 1 + MIX 334 3 OLDL + MIX 335 3 OLDL + MIX 336 3 OLDL + MIX 337 3 OLDL ! fuel 1 + MIX 338 3 OLDL + MIX 339 3 OLDL + MIX 340 3 OLDL + MIX 341 3 OLDL ! fuel 1 + MIX 342 3 OLDL + MIX 343 3 OLDL + MIX 344 3 OLDL + MIX 345 3 OLDL ! fuel 1 + MIX 346 3 OLDL + MIX 347 3 OLDL + MIX 348 3 OLDL + MIX 349 1 OLDL ! water blade + MIX 350 1 OLDL + MIX 351 1 OLDL + MIX 352 1 OLDL + MIX 353 1 OLDL + MIX 354 1 OLDL + MIX 355 1 OLDL + MIX 356 1 OLDL + MIX 357 1 OLDL + MIX 358 1 OLDL + MIX 359 1 OLDL ! moderator in cell + MIX 360 1 OLDL + MIX 361 1 OLDL + MIX 362 1 OLDL + MIX 363 1 OLDL + MIX 364 1 OLDL +; + +UOX_AIC FIG_AIC := G2S: GEON2 :: DRAWMIX ; + +TRACK TF_EXC := SALT: UOX_AIC :: + EDIT 3 + ALLG + ANIS 2 TSPC EQW2 <<an2d>> <<densur>> REND +; +* +TRACK := MCCGT: TRACK TF_EXC :: + EDIT 2 + LCMD 3 AAC 150 TMT SCR 0 EPSI 1E-5 + MAXI 1 KRYL 0 HDD 0.0 ; + +SYS := ASM: MACRO4G2 TRACK TF_EXC :: ARM EDIT 1 ; + +FLUX := FLU: MACRO4G2 SYS TRACK TF_EXC :: + EDIT 1 TYPE K EXTE 100 1E-5 ; + +RES_F := EDI: FLUX MACRO4G2 TRACK :: EDIT 10 + MERG MIX + 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 (*15*) + 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 (*30*) + 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 (*45*) + 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 (*60*) + 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 (*75*) + 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 (*90*) + 1 1 1 1 1 1 1 1 1 1 1 2 2 2 2 (*105*) + 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 (*120*) + 2 2 2 2 2 2 2 2 2 2 2 7 7 7 7 (*135*) + 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 (*150*) + 2 2 2 2 2 2 2 2 2 2 2 2 2 7 7 (*165*) + 7 7 7 7 7 7 3 22 8 26 24 21 12 11 13 (*180*) + 20 2 2 2 7 7 7 6 6 6 6 6 6 6 6 (*195*) + 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 (*210*) + 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 (*225*) + 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 (*240*) + 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 (*255*) + 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 (*270*) + 6 6 6 6 6 6 6 6 6 6 5 5 5 5 5 (*285*) + 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 (*300*) + 5 5 5 5 5 5 5 5 10 10 10 10 5 5 5 (*315*) + 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 (*330*) + 5 5 5 5 5 5 5 5 5 5 10 10 10 10 10 (*345*) + 10 10 10 4 16 9 25 23 15 18 17 14 19 5 5 (*360*) + 5 10 10 10 + COND NONE + EDI_CURR + SAVE ON COND2 + ; +assertS FLUX :: 'K-INFINITY' 1 1.000206 ; +BRANCH := RES_F :: STEP UP COND2 STEP UP MACROLIB STEP UP GROUP + STEP AT 1 ; +assertS BRANCH :: 'COURX-INTG' 3 6.647435E-4 ; +assertS BRANCH :: 'COURY-INTG' 11 6.647536E-4 ; +ECHO "test TDCM56 completed" ; +END: ; +QUIT "LIST" . |