blob: e15fc143911546dc7dd77f2b4551f4b96d538fe4 (
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
|
*----
*
* TEST CASE fbr
* Junjie Rao and Xingjie Peng
*
*----
* Define STRUCTURES and MODULES used
*----
LINKED_LIST GEOM TRACK LIBRARY ASB FLUX ;
MODULE LIB: GEO: SYBILT: TONE: ASM: FLU: DELETE: END: ;
PROCEDURE assertS ;
*
GEOM := GEO: :: TUBE 3
R+ REFL
RADIUS 0.0 0.3236 0.3859 0.53703
SPLITR 2 1 5
MIX 1 2 3 ;
TRACK := SYBILT: GEOM ::
MAXR 20 QUA1 16 ;
*----
* USS
*----
LIBRARY := LIB: ::
EDIT 1
NMIX 3 (*MAXIMUM OF MATERIAL MIXTURES*)
CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*)
ANIS 2
*
MIXS LIB: DRAGON FIL: DLIB_315
MIX 1 300.0 (*COMB*)
U235 = U235 3.08220E-5 1
U238 = U238 1.82440E-2 1
Pu239 = Pu239 2.81470E-3 1
MIX 2 300.0 (*GAIN1*)
Cr52 = Cr52 8.68256E-3 2
Fe56 = Fe56 6.39008E-2 2
MIX 3 300.0 (*MODE1*)
Na23 = Na23 2.22720E-2
;
LIBRARY := TONE: LIBRARY TRACK :: EDIT 3 TRAN PIJ ;
ASB := ASM: LIBRARY TRACK :: PIJ ;
FLUX := FLU: LIBRARY TRACK ASB :: TYPE K ;
assertS FLUX :: K-EFFECTIVE 1 1.466248 ;
LIBRARY ASB FLUX := DELETE: LIBRARY ASB FLUX ;
ECHO "test fbr_tone completed" ;
END: ;
|
