blob: 644a5a12008748a0be4ac8664a12fa53aaf46007 (
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
|
*----
* 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: ;
|
