blob: 0768f6f747467c8b0f6212b9e8ebd5655da5043b (
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
|
*----
* TEST CASE iaea2d_iram
* IAEA 2D BENCHMARK IN DIFFUSION THEORY
* MACROLIB-DEFINED CROSS SECTIONS
*----
* Define STRUCTURES and MODULES used
*----
LINKED_LIST IAEA MACRO TRACK SYSTEM FLUX EDIT ;
MODULE GEO: MAC: BIVACT: BIVACA: TRIVAT: TRIVAA: FLUD: OUT: DELETE:
END: ABORT: ;
PROCEDURE assertS ;
*
IAEA := GEO: :: CAR2D 9 9
EDIT 2
X- DIAG X+ VOID
Y- SYME Y+ DIAG
MIX 3 2 2 2 3 2 2 1 4
2 2 2 2 2 2 1 4
2 2 2 2 1 1 4
2 2 2 1 4 4
3 1 1 4 0
1 4 4 0
4 0 0
0 0
0
MESHX 0.0 20.0 40.0 60.0 80.0 100.0 120.0 140.0 160.0 180.0
;
MACRO := MAC: ::
EDIT 2 NGRO 2 NMIX 4 NIFI 1
READ INPUT
MIX 1
DIFF 1.500E+00 4.0000E-01
TOTAL 3.012E-02 8.0032E-02
NUSIGF 0.000E+00 1.3500E-01
H-FACTOR 0.000E+00 1.3500E-01
SCAT 1 1 0.0 2 2 0.0 0.2E-01
MIX 2
DIFF 1.500E+00 4.0000E-01
TOTAL 3.012E-02 8.5032E-02
NUSIGF 0.000E+00 1.3500E-01
H-FACTOR 0.000E+00 1.3500E-01
SCAT 1 1 0.0 2 2 0.0 0.2E-01
MIX 3
DIFF 1.500E+00 4.00000E-01
TOTAL 3.012E-02 1.30032E-01
NUSIGF 0.000E+00 1.35000E-01
H-FACTOR 0.000E+00 1.35000E-01
SCAT 1 1 0.0 2 2 0.0 0.2E-01
MIX 4
DIFF 2.000E+00 3.0000E-01
TOTAL 4.016E-02 1.0024E-02
SCAT 1 1 0.0 2 2 0.0 0.4E-01
;
*----
* BIVAC
*----
TRACK := BIVACT: IAEA ::
TITLE 'IAEA-2D BENCHMARK'
EDIT 2 MAXR 81 PRIM 2 2 ;
SYSTEM := BIVACA: MACRO TRACK ;
FLUX := FLUD: SYSTEM TRACK ::
EDIT 1 IRAM 3 7 EXTE 100 1.0E-8 ;
assertS FLUX :: 'K-EFFECTIVE' 1 1.032315 ;
TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ;
TRACK := BIVACT: IAEA ::
TITLE 'IAEA-2D BENCHMARK'
EDIT 2 MAXR 81 DUAL 2 2 ;
SYSTEM := BIVACA: MACRO TRACK ;
FLUX := FLUD: SYSTEM TRACK ::
EDIT 1 IRAM 3 7 EXTE 100 1.0E-8 ;
assertS FLUX :: 'K-EFFECTIVE' 1 1.028691 ;
TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ;
TRACK := BIVACT: IAEA ::
TITLE 'IAEA-2D BENCHMARK'
EDIT 2 MAXR 81 DUAL 2 2 SPN 3 ;
SYSTEM := BIVACA: MACRO TRACK ;
FLUX := FLUD: SYSTEM TRACK ::
EDIT 1 IRAM 3 7 EXTE 100 1.0E-8 ;
assertS FLUX :: 'K-EFFECTIVE' 1 0.9690545 ;
TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ;
*----
* TRIVAC
*----
TRACK := TRIVAT: IAEA ::
TITLE 'IAEA-2D BENCHMARK'
EDIT 2 MAXR 81 PRIM 3 ;
SYSTEM := TRIVAA: MACRO TRACK ;
FLUX := FLUD: SYSTEM TRACK ::
EDIT 2 ADJ IRAM 3 7 10 EXTE 500 1.0E-8 ;
assertS FLUX :: 'K-EFFECTIVE' 1 1.029765 ;
TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ;
TRACK := TRIVAT: IAEA ::
TITLE 'IAEA-2D BENCHMARK'
EDIT 2 MAXR 81 DUAL 3 2 ;
SYSTEM := TRIVAA: MACRO TRACK ;
FLUX := FLUD: SYSTEM TRACK ::
EDIT 2 ADJ IRAM 3 7 10 EXTE 500 1.0E-8 ;
assertS FLUX :: 'K-EFFECTIVE' 1 1.029412 ;
TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ;
TRACK := TRIVAT: IAEA ::
TITLE 'IAEA-2D BENCHMARK'
EDIT 2 MAXR 81 MCFD 3 ;
SYSTEM := TRIVAA: MACRO TRACK ;
FLUX := FLUD: SYSTEM TRACK ::
EDIT 2 ADJ IRAM 3 7 10 EXTE 500 1.0E-8 ;
assertS FLUX :: 'K-EFFECTIVE' 1 1.029412 ;
TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ;
TRACK := TRIVAT: IAEA ::
TITLE 'IAEA-2D BENCHMARK'
EDIT 2 MAXR 81 DUAL 1 1 SPN 3 ;
SYSTEM := TRIVAA: MACRO TRACK ;
FLUX := FLUD: SYSTEM TRACK ::
EDIT 2 ADJ IRAM 3 7 10 EXTE 500 1.0E-8 ;
assertS FLUX :: 'K-EFFECTIVE' 1 0.9685930 ;
TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ;
TRACK := TRIVAT: IAEA ::
TITLE 'IAEA-2D BENCHMARK'
EDIT 2 MAXR 81 DUAL 2 1 SPN 1 ;
SYSTEM := TRIVAA: MACRO TRACK ;
FLUX := FLUD: SYSTEM TRACK ::
EDIT 2 ADJ IRAM 3 7 10 EXTE 500 1.0E-8 ;
assertS FLUX :: 'K-EFFECTIVE' 1 0.9685487 ;
TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ;
TRACK := TRIVAT: IAEA ::
TITLE 'IAEA-2D BENCHMARK'
EDIT 2 MAXR 81 DUAL 2 1 SPN 3 ;
SYSTEM := TRIVAA: MACRO TRACK ;
FLUX := FLUD: SYSTEM TRACK ::
EDIT 2 ADJ IRAM 3 7 10 EXTE 500 1.0E-8 ;
assertS FLUX :: 'K-EFFECTIVE' 1 0.9694149 ;
ECHO "test iaea2d_iram completed" ;
END: ;
|
