blob: 538327a1097a9996a5ccd21e55f219890562dad7 (
plain)
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
|
*----
* TEST CASE TCM36
* 9 X 9 ASSEMBLY WITH DOUBLE HETEROGENEITY (BIHET) MIXTURES
* ONE-GROUP MACROLIB-DEFINED CROSS SECTIONS
*----
* Define STRUCTURES and MODULES used
*----
LINKED_LIST MACRO ASSMB TRACK SYS FLUX EDIT ;
MODULE GEO: SYBILT: EXCELT: NXT: MCCGT: MAC: ASM: FLU: DELETE: END: ;
SEQ_BINARY TRACK_FIL ;
PROCEDURE assertS ;
*
MACRO := MAC: ::
EDIT 2 NGRO 1 NMIX 4 NIFI 1
READ INPUT
MIX 1
TOTAL 0.3683 SCAT 1 1 0.3661
MIX 2
TOTAL 0.36522 SCAT 1 1 0.3234
NUSIGF 0.05564 CHI 1.0
MIX 3
TOTAL 0.8453 SCAT 1 1 0.5216
MIX 4
TOTAL 0.3683 SCAT 1 1 0.0
;
ASSMB := GEO: :: CAR2D 5 5
X- DIAG X+ REFL
Y- SYME Y+ DIAG
CELL C1 C3 C2 C3 C4
C3 C3 C3 C4
C2 C3 C4
C3 C4
C5
BIHET SPHE (*NG=*) 2 (* NMILG= *) 2 (* SPHERICAL MICRO-STRUCTURE *)
(* NS= *) 3 3
(* M-S-1 *) 0.0 0.1 0.2 0.3 (* M-S 2 *) 0.0 0.2 0.4 0.5
(* COMPOSITE MIXTURES *) 5 6
(* MIXTURES SURROUNDING M-S *) 2 2
(* COMPOSITE MIXTURE 4 FRACT *) 0.4 0.0
(* REAL MIXTURE CONTENT M-S-1 *) 3 1 3
(* COMPOSITE MIXTURE 5 FRACT *) 0.2 0.1
(* REAL MIXTURE CONTENT M-S-1 *) 1 2 1
(* REAL MIXTURE CONTENT M-S-2 *) 2 3 1
::: C1 := GEO: CARCEL 0
MESHX 0.0 1.262082
MESHY 0.0 1.262082
MIX 4
;
::: C2 := GEO: CARCEL 3
MESHX 0.0 1.262082
MESHY 0.0 1.262082
RADIUS 0.0 3.25296E-01 4.60039E-01 5.63430E-01
MIX 5 3 3 1
;
::: C3 := GEO: CARCEL 1
MESHX 0.0 1.262082
MESHY 0.0 1.262082
RADIUS 0.0 4.12660E-01
MIX 6 1
;
::: C4 := GEO: C3
MESHX 0.0 1.322082
MIX 6 1
;
::: C5 := GEO: C4
MESHY 0.0 1.322082
RADIUS 0.0 5.76770008E-01
MIX 6 1
;
;
*----
* Eurydice interface current approximation (PIJ)
* Hebert double heterogeneity model
*----
TRACK := SYBILT: ASSMB ::
EDIT 1
MAXR 200 (*MAXIMUM OF 200 REGIONS*)
TITLE 'MULTICELL 9 X 9 PWR BENCHMARK WITH POISON'
ROT+ ASKE ;
*
SYS := ASM: MACRO TRACK :: EDIT 2 PIJ ;
FLUX := FLU: MACRO TRACK SYS :: TYPE B B0 SIGS ;
assertS FLUX :: 'B2 B1HOM' 1 -1.959593E-02 ;
TRACK SYS FLUX := DELETE: TRACK SYS FLUX ;
*----
* Eurydice interface current approximation (ARM)
* Hebert double heterogeneity model
*----
TRACK := SYBILT: ASSMB ::
EDIT 1
MAXR 200 (*MAXIMUM OF 200 REGIONS*)
TITLE 'MULTICELL 9 X 9 PWR BENCHMARK WITH POISON'
ROT+ ASKE ;
*
SYS := ASM: MACRO TRACK :: EDIT 2 ARM ;
FLUX := FLU: MACRO TRACK SYS :: TYPE B B0 SIGS ;
assertS FLUX :: 'B2 B1HOM' 1 -1.959593E-02 ;
TRACK SYS FLUX := DELETE: TRACK SYS FLUX ;
*----
* Excell approximation
* Hebert double heterogeneity model
*----
TRACK TRACK_FIL := EXCELT: ASSMB ::
EDIT 1
MAXR 80 (*MAXIMUM OF 80 REGIONS*)
TITLE 'MULTICELL 9 X 9 PWR BENCHMARK WITH POISON'
ALLG TRAK TISO 12 12.0 ;
*
SYS := ASM: MACRO TRACK TRACK_FIL :: EDIT 2 PIJ ;
FLUX := FLU: MACRO TRACK SYS :: TYPE B B0 SIGS ;
assertS FLUX :: 'B2 B1HOM' 1 -2.034746E-02 ;
TRACK TRACK_FIL SYS FLUX := DELETE: TRACK TRACK_FIL SYS FLUX ;
*----
* NXT approximation with PIJ
*----
TRACK TRACK_FIL := NXT: ASSMB ::
EDIT 1
TITLE 'MULTICELL 9 X 9 PWR BENCHMARK WITH POISON'
ALLG TISO 12 12.0 ;
*
SYS := ASM: MACRO TRACK TRACK_FIL :: EDIT 2 PIJ ;
FLUX := FLU: MACRO TRACK SYS :: TYPE B B0 SIGS ;
assertS FLUX :: 'B2 B1HOM' 1 -2.029928E-02 ;
TRACK TRACK_FIL SYS FLUX := DELETE: TRACK TRACK_FIL SYS FLUX ;
*----
* NXT approximation with MOC (white boundary condition)
*----
TRACK TRACK_FIL := NXT: ASSMB ::
EDIT 1
TITLE 'MULTICELL 9 X 9 PWR BENCHMARK WITH POISON'
ALLG TISO 12 12.0 ;
*
TRACK := MCCGT: TRACK TRACK_FIL ASSMB ::
EDIT 1
EPSI 1E-6 HDD 0.0
MAXI 10 KRYL 10 SCR 1 AAC 1 TMT ;
*
SYS := ASM: MACRO TRACK TRACK_FIL :: EDIT 2 ARM ;
FLUX := FLU: MACRO TRACK TRACK_FIL SYS :: TYPE B B0 SIGS ;
assertS FLUX :: 'B2 B1HOM' 1 -2.03004E-02 ;
TRACK TRACK_FIL SYS FLUX := DELETE: TRACK TRACK_FIL SYS FLUX ;
*----
* NXT approximation with MOC (cyclic tracking)
*----
TRACK TRACK_FIL := NXT: ASSMB ::
EDIT 5
TITLE 'MULTICELL 9 X 9 PWR BENCHMARK WITH POISON'
ALLG TSPC 12 12.0 ;
*
TRACK := MCCGT: TRACK TRACK_FIL ASSMB ::
EDIT 1
EPSI 1E-6 HDD 0.0
MAXI 10 GAUS KRYL 10 SCR 1 AAC 1 TMT ;
*
SYS := ASM: MACRO TRACK TRACK_FIL :: EDIT 2 ARM ;
FLUX := FLU: MACRO TRACK TRACK_FIL SYS :: TYPE B B0 SIGS ;
assertS FLUX :: 'B2 B1HOM' 1 -2.026781E-02 ;
TRACK TRACK_FIL SYS FLUX := DELETE: TRACK TRACK_FIL SYS FLUX ;
*----
* Eurydice interface current approximation (ARM)
* Sanchez-Pomraning double heterogeneity model
*----
TRACK := SYBILT: ASSMB ::
EDIT 1
MAXR 200 (*MAXIMUM OF 200 REGIONS*)
TITLE 'MULTICELL 9 X 9 PWR BENCHMARK WITH POISON'
ROT+ ASKE SAPO ;
*
SYS := ASM: MACRO TRACK :: EDIT 2 ARM ;
FLUX := FLU: MACRO TRACK SYS :: TYPE B B0 SIGS ;
assertS FLUX :: 'B2 B1HOM' 1 -1.954746E-2 ;
TRACK SYS FLUX := DELETE: TRACK SYS FLUX ;
*
ECHO "test TCM36 completed" ;
END: ;
QUIT "LIST" .
|
