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/salmacro_proc/TDCM61.c2m | 393 +++++++++++++++++++++++++++++++++++ 1 file changed, 393 insertions(+) create mode 100644 Dragon/data/salmacro_proc/TDCM61.c2m (limited to 'Dragon/data/salmacro_proc/TDCM61.c2m') diff --git a/Dragon/data/salmacro_proc/TDCM61.c2m b/Dragon/data/salmacro_proc/TDCM61.c2m new file mode 100644 index 0000000..bc4d700 --- /dev/null +++ b/Dragon/data/salmacro_proc/TDCM61.c2m @@ -0,0 +1,393 @@ +*---- +* TEST CASE TDCM61 +* MACROSCOPIC CROSS SECTIONS +* 4-group equilateral triangular Alamos geometry with PropertyMap +* Author: A. Hebert +*---- +* Define STRUCTURES and MODULES used +*---- +MODULE G2S: SALT: MCCGT: MAC: ASM: FLU: DELETE: TLM: ABORT: END: ; +SEQ_ASCII GT_ALAMOS :: FILE './KML2_ARO_13AU_SSH.ap3' ; +SEQ_ASCII GT_ALAMOS_ZA :: FILE './KML2_ARO_13AU_SSH.za' ; +SEQ_ASCII GT_SAL :: FILE './KML2_ARO_13AU_SSH.tdt' ; +LINKED_LIST TRACKF MACRO4G MACRO4G2 SYS FLUX ; +SEQ_BINARY INTLINS ; +SEQ_ASCII alamos1.ps alamos2.ps ; +SEQ_ASCII alamos3.ps :: FILE './KML2_ARO_13AU_SSH.ps' ; +SEQ_ASCII TDCM61.m :: FILE './TDCM61.m' ; +PROCEDURE assertS ; +INTEGER an2d := 6 ; +REAL densur := 20.0 ; +*---- +* Input Macrolib +*---- +MACRO4G := MAC: :: + EDIT 1 NGRO 4 NMIX 7 NIFI 1 ANIS 2 + READ INPUT + MIX 1 (* clad_itube_MAT *) + TOTAL 4.240E-02 1.0476E-01 2.7503E-01 1.1194E+00 + TRANC 0.000E+00 0.000E+00 0.000E+00 0.000E+00 + SCAT 1 1 (*1->1*) 3.738E-02 + 2 2 (*2->2*) 4.102E-02 (*1->2*) 2.439E-05 + 3 4 (*4->3*) 4.985E-04 (*3->3*) 4.956E-02 (*2->3*) 7.370E-05 + 2 4 (*4->4*) 2.996E-02 (*3->4*) 3.248E-04 + 1 1 (*1->1*) 0.000E+00 + 1 2 (*2->2*) -6.161E-03 + 1 3 (*3->3*) -2.326E-02 + 1 4 (*4->4*) 0.000E+00 + MIX 2 (* water_MAT *) + 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 3 (* clad_fuel_MAT *) + TOTAL 4.240E-02 1.0476E-01 2.7503E-01 1.1194E+00 + TRANC 0.000E+00 0.000E+00 0.000E+00 0.000E+00 + SCAT 1 1 (*1->1*) 3.738E-02 + 2 2 (*2->2*) 4.102E-02 (*1->2*) 2.439E-05 + 3 4 (*4->3*) 4.985E-04 (*3->3*) 4.956E-02 (*2->3*) 7.370E-05 + 2 4 (*4->4*) 2.996E-02 (*3->4*) 3.248E-04 + 1 1 (*1->1*) 0.000E+00 + 1 2 (*2->2*) -6.161E-03 + 1 3 (*3->3*) -2.326E-02 + 1 4 (*4->4*) 0.000E+00 + MIX 4 (* U1_3_MAT *) + 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 5.129E-01 8.808E-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 5 (* void_MAT *) + TOTAL 4.240E-05 1.0476E-04 2.7503E-03 1.1194E-04 + 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 6 (* clad_gtube_MAT *) + TOTAL 4.240E-02 1.0476E-01 2.7503E-01 1.1194E+00 + TRANC 0.000E+00 0.000E+00 0.000E+00 0.000E+00 + SCAT 1 1 (*1->1*) 3.738E-02 + 2 2 (*2->2*) 4.102E-02 (*1->2*) 2.439E-05 + 3 4 (*4->3*) 4.985E-04 (*3->3*) 4.956E-02 (*2->3*) 7.370E-05 + 2 4 (*4->4*) 2.996E-02 (*3->4*) 3.248E-04 + 1 1 (*1->1*) 0.000E+00 + 1 2 (*2->2*) -6.161E-03 + 1 3 (*3->3*) -2.326E-02 + 1 4 (*4->4*) 0.000E+00 + MIX 7 (* struct_MAT *) + TOTAL 8.240E-02 2.0476E-01 3.7503E-01 2.1194E+00 + TRANC 0.000E+00 0.000E+00 0.000E+00 0.000E+00 + SCAT 1 1 (*1->1*) 3.738E-02 + 2 2 (*2->2*) 4.102E-02 (*1->2*) 2.439E-05 + 3 4 (*4->3*) 4.985E-04 (*3->3*) 4.956E-02 (*2->3*) 7.370E-05 + 2 4 (*4->4*) 2.996E-02 (*3->4*) 3.248E-04 + 1 1 (*1->1*) 0.000E+00 + 1 2 (*2->2*) -6.161E-03 + 1 3 (*3->3*) -2.326E-02 + 1 4 (*4->4*) 0.000E+00 +; +MACRO4G2 := MAC: MACRO4G :: + NMIX 250 + MIX 1 1 OLDL + MIX 2 2 OLDL + MIX 3 3 OLDL + MIX 4 4 OLDL + MIX 5 4 OLDL + MIX 6 4 OLDL + MIX 7 4 OLDL + MIX 8 5 OLDL + MIX 9 4 OLDL + MIX 10 4 OLDL + MIX 11 4 OLDL + MIX 12 4 OLDL + MIX 13 4 OLDL + MIX 14 4 OLDL + MIX 15 4 OLDL + MIX 16 4 OLDL + MIX 17 4 OLDL + MIX 18 4 OLDL + MIX 19 4 OLDL + MIX 20 4 OLDL + MIX 21 4 OLDL + MIX 22 4 OLDL + MIX 23 4 OLDL + MIX 24 4 OLDL + MIX 25 4 OLDL + MIX 26 4 OLDL + MIX 27 4 OLDL + MIX 28 4 OLDL + MIX 29 6 OLDL + MIX 30 4 OLDL + MIX 31 4 OLDL + MIX 32 4 OLDL + MIX 33 4 OLDL + MIX 34 4 OLDL + MIX 35 4 OLDL + MIX 36 4 OLDL + MIX 37 4 OLDL + MIX 38 4 OLDL + MIX 39 4 OLDL + MIX 40 4 OLDL + MIX 41 4 OLDL + MIX 42 4 OLDL + MIX 43 4 OLDL + MIX 44 4 OLDL + MIX 45 4 OLDL + MIX 46 4 OLDL + MIX 47 4 OLDL + MIX 48 4 OLDL + MIX 49 4 OLDL + MIX 50 4 OLDL + MIX 51 4 OLDL + MIX 52 4 OLDL + MIX 53 4 OLDL + MIX 54 4 OLDL + MIX 55 4 OLDL + MIX 56 4 OLDL + MIX 57 4 OLDL + MIX 58 4 OLDL + MIX 59 4 OLDL + MIX 60 4 OLDL + MIX 61 4 OLDL + MIX 62 4 OLDL + MIX 63 4 OLDL + MIX 64 4 OLDL + MIX 65 4 OLDL + MIX 66 4 OLDL + MIX 67 4 OLDL + MIX 68 4 OLDL + MIX 69 4 OLDL + MIX 70 4 OLDL + MIX 71 4 OLDL + MIX 72 4 OLDL + MIX 73 4 OLDL + MIX 74 4 OLDL + MIX 75 4 OLDL + MIX 76 4 OLDL + MIX 77 4 OLDL + MIX 78 4 OLDL + MIX 79 4 OLDL + MIX 80 4 OLDL + MIX 81 4 OLDL + MIX 82 4 OLDL + MIX 83 4 OLDL + MIX 84 4 OLDL + MIX 85 4 OLDL + MIX 86 4 OLDL + MIX 87 4 OLDL + MIX 88 4 OLDL + MIX 89 4 OLDL + MIX 90 4 OLDL + MIX 91 4 OLDL + MIX 92 4 OLDL + MIX 93 4 OLDL + MIX 94 4 OLDL + MIX 95 4 OLDL + MIX 96 4 OLDL + MIX 97 4 OLDL + MIX 98 4 OLDL + MIX 99 4 OLDL + MIX 100 4 OLDL + MIX 101 4 OLDL + MIX 102 4 OLDL + MIX 103 4 OLDL + MIX 104 4 OLDL + MIX 105 4 OLDL + MIX 106 4 OLDL + MIX 107 4 OLDL + MIX 108 4 OLDL + MIX 109 4 OLDL + MIX 110 4 OLDL + MIX 111 4 OLDL + MIX 112 4 OLDL + MIX 113 4 OLDL + MIX 114 4 OLDL + MIX 115 4 OLDL + MIX 116 4 OLDL + MIX 117 4 OLDL + MIX 118 4 OLDL + MIX 119 4 OLDL + MIX 120 4 OLDL + MIX 121 4 OLDL + MIX 122 4 OLDL + MIX 123 4 OLDL + MIX 124 4 OLDL + MIX 125 4 OLDL + MIX 126 4 OLDL + MIX 127 4 OLDL + MIX 128 4 OLDL + MIX 129 4 OLDL + MIX 130 4 OLDL + MIX 131 4 OLDL + MIX 132 4 OLDL + MIX 133 4 OLDL + MIX 134 4 OLDL + MIX 135 4 OLDL + MIX 136 4 OLDL + MIX 137 4 OLDL + MIX 138 4 OLDL + MIX 139 4 OLDL + MIX 140 4 OLDL + MIX 141 4 OLDL + MIX 142 4 OLDL + MIX 143 4 OLDL + MIX 144 4 OLDL + MIX 145 4 OLDL + MIX 146 4 OLDL + MIX 147 4 OLDL + MIX 148 4 OLDL + MIX 149 4 OLDL + MIX 150 4 OLDL + MIX 151 4 OLDL + MIX 152 4 OLDL + MIX 153 4 OLDL + MIX 154 4 OLDL + MIX 155 4 OLDL + MIX 156 4 OLDL + MIX 157 4 OLDL + MIX 158 4 OLDL + MIX 159 4 OLDL + MIX 160 4 OLDL + MIX 161 4 OLDL + MIX 162 4 OLDL + MIX 163 4 OLDL + MIX 164 4 OLDL + MIX 165 4 OLDL + MIX 166 4 OLDL + MIX 167 4 OLDL + MIX 168 4 OLDL + MIX 169 4 OLDL + MIX 170 4 OLDL + MIX 171 4 OLDL + MIX 172 4 OLDL + MIX 173 4 OLDL + MIX 174 4 OLDL + MIX 175 4 OLDL + MIX 176 4 OLDL + MIX 177 4 OLDL + MIX 178 4 OLDL + MIX 179 4 OLDL + MIX 180 4 OLDL + MIX 181 4 OLDL + MIX 182 4 OLDL + MIX 183 4 OLDL + MIX 184 4 OLDL + MIX 185 4 OLDL + MIX 186 4 OLDL + MIX 187 4 OLDL + MIX 188 4 OLDL + MIX 189 4 OLDL + MIX 190 4 OLDL + MIX 191 4 OLDL + MIX 192 4 OLDL + MIX 193 4 OLDL + MIX 194 4 OLDL + MIX 195 4 OLDL + MIX 196 4 OLDL + MIX 197 4 OLDL + MIX 198 4 OLDL + MIX 199 4 OLDL + MIX 200 4 OLDL + MIX 201 4 OLDL + MIX 202 4 OLDL + MIX 203 4 OLDL + MIX 204 4 OLDL + MIX 205 4 OLDL + MIX 206 4 OLDL + MIX 207 4 OLDL + MIX 208 4 OLDL + MIX 209 4 OLDL + MIX 210 4 OLDL + MIX 211 4 OLDL + MIX 212 4 OLDL + MIX 213 4 OLDL + MIX 214 4 OLDL + MIX 215 4 OLDL + MIX 216 4 OLDL + MIX 217 4 OLDL + MIX 218 4 OLDL + MIX 219 4 OLDL + MIX 220 4 OLDL + MIX 221 4 OLDL + MIX 222 4 OLDL + MIX 223 4 OLDL + MIX 224 4 OLDL + MIX 225 4 OLDL + MIX 226 4 OLDL + MIX 227 4 OLDL + MIX 228 4 OLDL + MIX 229 4 OLDL + MIX 230 4 OLDL + MIX 231 4 OLDL + MIX 232 4 OLDL + MIX 233 4 OLDL + MIX 234 4 OLDL + MIX 235 4 OLDL + MIX 236 4 OLDL + MIX 237 4 OLDL + MIX 238 4 OLDL + MIX 239 4 OLDL + MIX 240 4 OLDL + MIX 241 4 OLDL + MIX 242 4 OLDL + MIX 243 4 OLDL + MIX 244 4 OLDL + MIX 245 4 OLDL + MIX 246 4 OLDL + MIX 247 4 OLDL + MIX 248 4 OLDL + MIX 249 4 OLDL + MIX 250 7 OLDL +; +*---- +* Surfacic file conversion with unfolding for isotropic reflection +*---- +GT_SAL alamos1.ps := G2S: GT_ALAMOS GT_ALAMOS_ZA :: EDIT 0 ALAMOS -8 ; +*---- +* Tracking of surfacic file for equilateral triangular geometry +*---- +TRACKF INTLINS := SALT: GT_SAL :: + EDIT 0 + ALLG + TISO <> <> REND +; + +TRACKF := MCCGT: TRACKF INTLINS :: + EDIT 1 + LCMD 3 AAC 150 TMT SCR 0 EPSI 1E-5 + MAXI 1 KRYL 0 HDD 0.0 ; +*---- +* Compute flux +*---- +SYS := ASM: MACRO4G2 TRACKF INTLINS :: ARM EDIT 1 ; + +FLUX := FLU: MACRO4G2 SYS TRACKF INTLINS :: + EDIT 1 TYPE K EXTE 100 1E-5 ; + +assertS FLUX :: 'K-EFFECTIVE' 1 0.9933268 ; + +ECHO "test TDCM61 completed" ; +END: ; +QUIT . -- cgit v1.2.3