blob: 49e01a6cb7c519e15222b6b8509cdcb46df00b72 (
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
|
*----
* TEST CASE TDCM63
* MACROSCOPIC CROSS SECTIONS
* 4-group equilateral triangular geometry
* Author: A. Hebert
*----
* Define STRUCTURES and MODULES used
*----
MODULE G2S: SALT: MCCGT: MAC: ASM: FLU: TLM: DELETE: END: ;
SEQ_ASCII LatTEST_b :: FILE './LatTEST_b_S60.eps' ;
SEQ_ASCII GT_SAL :: FILE './lattice_hex_tspc_S30_7cells.dat' ;
SEQ_ASCII GT_SAL_iso :: FILE './lattice_hex_tiso_S30_7cells.dat' ;
LINKED_LIST TRACKF MACRO4G SYS FLUX ;
SEQ_BINARY INTLINS ;
SEQ_ASCII TDCM63.m :: FILE './TDCM63.m' ;
PROCEDURE assertS ;
*----
* Input Macrolib
*----
MACRO4G := MAC: ::
EDIT 1 NGRO 4 NMIX 5 NIFI 1 ANIS 2
READ INPUT
MIX 1 (* VOID *)
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*) 9.102E-02 (*1->2*) 2.439E-04
3 4 (*4->3*) 4.985E-04 (*3->3*) 9.956E-02 (*2->3*) 7.370E-04
2 4 (*4->4*) 9.996E-02 (*3->4*) 3.248E-04
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 2 (* FUEL *)
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 6.632E-02 1.259E-01 9.129E-01 9.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 (* CLAD *)
TOTAL 4.240E-01 1.0476E+00 2.7503E+00 1.1194E+01
TRANC 0.000E+00 0.000E+00 0.000E+00 0.000E+00
SCAT 1 1 (*1->1*) 3.738E-01
2 2 (*2->2*) 7.102E-01 (*1->2*) 2.439E-04
3 4 (*4->3*) 4.985E-03 (*3->3*) 8.956E-01 (*2->3*) 7.370E-04
2 4 (*4->4*) 8.996E-01 (*3->4*) 3.248E-03
1 1 (*1->1*) 0.000E+00
1 2 (*2->2*) -6.161E-02
1 3 (*3->3*) -2.326E-01
1 4 (*4->4*) 0.000E+00
MIX 4 (* AIM1 *)
TOTAL 4.240E-01 1.0476E+00 2.7503E+00 1.1194E+01
TRANC 0.000E+00 0.000E+00 0.000E+00 0.000E+00
SCAT 1 1 (*1->1*) 3.938E-01
2 2 (*2->2*) 9.102E-01 (*1->2*) 2.439E-04
3 4 (*4->3*) 4.985E-03 (*3->3*) 9.956E-01 (*2->3*) 7.370E-04
2 4 (*4->4*) 9.996E-01 (*3->4*) 3.248E-03
1 1 (*1->1*) 0.000E+00
1 2 (*2->2*) -6.161E-02
1 3 (*3->3*) -2.326E-01
1 4 (*4->4*) 0.000E+00
MIX 5 (* 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
;
*----
* Printing of the imported geometry
*----
LatTEST_b := G2S: GT_SAL_iso ::
EDIT 2
DRAWMIX ;
*----
* Surfacic file tracking for S30 type and isotropic reflection
*----
TRACKF INTLINS := SALT: GT_SAL_iso ::
EDIT 2
TISO 12 100.0 LONG ;
TDCM63.m := TLM: TRACKF INTLINS ::
EDIT 1
NTPO 1
DIRECTIONS NoPause DIR 0 ;
TRACKF := MCCGT: TRACKF INTLINS ::
EDIT 2
LCMD 3 AAC 150 TMT SCR 0 EPSI 1E-5
MAXI 1 KRYL 0 HDD 0.0 ;
*----
* Compute flux
*----
SYS := ASM: MACRO4G TRACKF INTLINS :: ARM EDIT 1 ;
FLUX := FLU: MACRO4G SYS TRACKF INTLINS ::
EDIT 1 TYPE K EXTE 100 1E-5 ;
assertS FLUX :: 'K-EFFECTIVE' 1 1.097082 ;
TRACKF INTLINS SYS FLUX := DELETE: TRACKF INTLINS SYS FLUX ;
*----
* Surfacic file tracking for S30 type and specular reflection
*----
TRACKF INTLINS := SALT: GT_SAL ::
EDIT 2
TSPC 12 100.0 LONG ; ! 3, 6, 12 or 18 is mandatory
TRACKF := MCCGT: TRACKF INTLINS ::
EDIT 2
LCMD 3 AAC 150 TMT SCR 0 EPSI 1E-5
MAXI 1 KRYL 0 HDD 0.0 ;
*----
* Compute flux
*----
SYS := ASM: MACRO4G TRACKF INTLINS :: ARM EDIT 1 ;
FLUX := FLU: MACRO4G SYS TRACKF INTLINS ::
EDIT 1 TYPE K EXTE 100 1E-5 ;
assertS FLUX :: 'K-EFFECTIVE' 1 1.096100 ;
ECHO "test TDCM63 completed" ;
END: ;
QUIT .
|
