blob: 0b4b2d27a28d77225a8aa688ad72312699523f14 (
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
|
*-----
* GPT TEST pertdiff_p1
*-----
LINKED_LIST IAEA MACRO MACROT TRACK SYSTEM SYSTEMT FLUX DMACRO DSYSTEM
DSOUR DASOUR DFLUX MACRO2 SYSTEM2 FLUX2 EDIT ADFLUX ;
MODULE GEO: MAC: TRIVAT: TRIVAA: FLUD: DELETE: DELTA: GPTFLU: OUT:
END: ADD: STAT: UTL: ;
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
;
*
* REFERENCE CASE:
MACRO := MAC: ::
EDIT 2 NGRO 2 NMIX 4 NIFI 1
READ INPUT
MIX 1
DIFF 1.900000E+00 4.400000E-01
TOTAL 3.012000E-02 8.303201E-02
NUSIGF 0.000000E+00 1.650000E-01
H-FACTOR 0.000000E+00 1.650000E-01
SCAT 1 1 0.0 2 2 0.0 0.200000E-01
MIX 2
DIFF 1.500000E+00 4.000000E-01
TOTAL 3.012000E-02 8.503199E-02
NUSIGF 0.000000E+00 1.350000E-01
H-FACTOR 0.000000E+00 1.350000E-01
SCAT 1 1 0.0 2 2 0.0 0.200000E-01
MIX 3
DIFF 1.500000E+00 4.000000E-01
TOTAL 2.912000E-02 1.260320E-01
NUSIGF 0.000000E+00 1.350000E-01
H-FACTOR 0.000000E+00 1.350000E-01
SCAT 1 1 0.0 2 2 0.0 0.200000E-01
MIX 4
DIFF 2.000000E+00 3.000000E-01
TOTAL 4.016000E-02 1.002400E-02
SCAT 1 1 0.0 2 2 0.0 0.400000E-01
;
TRACK := TRIVAT: IAEA ::
TITLE 'MODIFIED TEST IAEA-2D (ANL VERSION)'
EDIT 5 MAXR 1156
DUAL 2 2
SPN DIFF 1 SCAT 2 ;
SYSTEM := TRIVAA: MACRO TRACK :: EDIT 5 ;
FLUX := FLUD: SYSTEM TRACK :: EDIT 2 ;
assertS FLUX :: 'K-EFFECTIVE' 1 1.096281 ;
MACROT := MACRO ;
SYSTEMT := SYSTEM ;
FLUX := DELETE: FLUX ;
SYSTEM := DELETE: SYSTEM ;
MACRO := DELETE: MACRO ;
*
* UNPERTURBED CASE:
MACRO := MAC: ::
EDIT 2 NGRO 2 NMIX 4 NIFI 1
READ INPUT
MIX 1
DIFF 1.500000E+00 4.000000E-01
TOTAL 3.012000E-02 8.003199E-02
NUSIGF 0.000000E+00 1.350000E-01
H-FACTOR 0.000000E+00 1.350000E-01
SCAT 1 1 0.0 2 2 0.0 0.200000E-01
MIX 2
DIFF 1.500000E+00 4.000000E-01
TOTAL 3.012000E-02 8.503199E-02
NUSIGF 0.000000E+00 1.350000E-01
H-FACTOR 0.000000E+00 1.350000E-01
SCAT 1 1 0.0 2 2 0.0 0.200000E-01
MIX 3
DIFF 1.500000E+00 4.000000E-01
TOTAL 3.012000E-02 1.300320E-01
NUSIGF 0.000000E+00 1.350000E-01
H-FACTOR 0.000000E+00 1.350000E-01
SCAT 1 1 0.0 2 2 0.0 0.200000E-01
MIX 4
DIFF 2.000000E+00 3.000000E-01
TOTAL 4.016000E-02 1.002400E-02
SCAT 1 1 0.0 2 2 0.0 0.400000E-01
;
SYSTEM := TRIVAA: MACRO TRACK :: EDIT 5 ;
FLUX := FLUD: SYSTEM TRACK :: EDIT 2 ADJ ;
DMACRO := MAC: ::
EDIT 2 NGRO 2 NMIX 4 NIFI 1
READ INPUT
MIX 1
DIFF 4.000000E-01 4.000000E-02
TOTAL 0.000000E+00 3.000000E-03
NUSIGF 0.000000E+00 3.000000E-02
H-FACTOR 0.000000E+00 3.000000E-02
SCAT 1 1 0.0 2 2 0.0 1.0E-10
MIX 2
SCAT 1 1 0.0 2 2 0.0 1.0E-10
MIX 3
TOTAL -9.999999E-04 -4.000001E-03
SCAT 1 1 0.0 2 2 0.0 1.0E-10
MIX 4
SCAT 1 1 0.0 2 2 0.0 1.0E-10
;
DSYSTEM := TRIVAA: MACRO TRACK DMACRO :: EDIT 5 DERI ;
UTL: DSYSTEM :: DUMP ;
DSOUR := DELTA: FLUX SYSTEM DSYSTEM TRACK :: EDIT 2 ;
DFLUX := GPTFLU: DSOUR FLUX SYSTEM TRACK :: EDIT 2 EXPLICIT
FROM-TO 1 1 ;
assertS DFLUX :: 'K-EFFECTIVE' 1 1.028695 ;
DASOUR := DELTA: FLUX SYSTEM DSYSTEM TRACK :: EDIT 2 ADJ ;
ADFLUX := GPTFLU: DASOUR FLUX SYSTEM TRACK :: EDIT 2 IMPLICIT
FROM-TO 1 1 ;
assertS DFLUX :: 'K-EFFECTIVE' 1 1.028695 ;
* Reset the perturbation flag of DSYSTEM to 0 so that it can be added.
DSYSTEM := UTL: DSYSTEM :: CREA STATE-VECTOR 9 9 = 0 ;
SYSTEM2 := SYSTEM ;
MACRO2 := MACRO ;
SYSTEM2 := ADD: SYSTEM2 DSYSTEM ;
MACRO2 := ADD: MACRO2 DMACRO ;
STAT: SYSTEMT SYSTEM2 ;
STAT: MACROT MACRO2 ;
FLUX2 := FLUD: SYSTEM2 TRACK MACRO2 :: EDIT 2 ;
assertS FLUX2 :: 'K-EFFECTIVE' 1 1.094982 ;
EDIT := OUT: FLUX2 TRACK MACRO2 IAEA ::
EDIT 2 INTG
1 2 3 4 5 6 7 8 0
9 10 11 12 13 14 15 0
16 17 18 19 20 21 0
22 23 24 25 0 0
26 27 28 0 0
29 0 0 0
0 0 0
0 0
0
;
ECHO "test pertdiff_p1 completed" ;
END: ;
|
