blob: 01666dcba88a2d9ac1778ae65bcc60d1aff23661 (
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
|
*
* TEST CASE TCM12
* MACROSCOPIC CROSS SECTIONS
* FISSION SOURCE PROBLEM
* 3D HEXAGONAL S30 ASSEMBLY WITH FUEL RODS
*
LINKED_LIST GEOMETRY TRACKING ASSEMBLY MACLIB FLUX ;
MODULE MAC: GEO: EXCELT: ASM: FLU: TRIVAT: END: ;
SEQ_BINARY TRKSPC ;
PROCEDURE assertS ;
MACLIB := MAC: ::
EDIT 2 NGRO 1 NMIX 4 NIFI 1
READ INPUT
MIX 1
TOTAL 0.41 SCAT 1 1 0.3
NUSIGF 0.1 CHI 1.0
MIX 2
TOTAL 0.53 SCAT 1 1 0.5
MIX 3
TOTAL 0.45 SCAT 1 1 0.347
NUSIGF 0.17 CHI 1.0
MIX 4
TOTAL 0.3 SCAT 1 1 0.2
NUSIGF 0.1 CHI 1.0
;
GEOMETRY := GEO: :: HEXZ 2 2
EDIT 2
HBC S30 REFL Z+ REFL Z- REFL
MIX UDEPLETED_1 UDEPLETED_1 UDEPLETED_2 UDEPLETED_2
::: UDEPLETED_1 := GEO: HEXCELZ 4 1
EDIT 2
SIDE 2.804
RADIUS 0.0 2.23 2.275 2.4 2.5
MESHZ 0.0 0.7
MIX 1 3 4 2 2 ;
::: UDEPLETED_2 := GEO: HEXCELZ 4 1
EDIT 2
SIDE 2.804
RADIUS 0.0 2.23 2.275 2.4 2.5
MESHZ 0.7 1.0
MIX 4 3 1 2 2 ;
;
TRACKING TRKSPC := EXCELT: GEOMETRY ::
EDIT 2
MAXR 200 TRAK TISO 6 10 10. 5.
;
ASSEMBLY := ASM: MACLIB TRACKING TRKSPC :: EDIT 1 ;
FLUX := FLU: ASSEMBLY MACLIB TRACKING TRKSPC :: TYPE K ;
assertS FLUX :: 'K-EFFECTIVE' 1 0.9292231 ;
ECHO "test TCM12 completed" ;
END: ;
QUIT .
|
