blob: 8bcb2e9562a0970c118bebb48462df48858872e5 (
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
|
*----
* TEST CASE TCDR18
* SOURCE PROBLEM WITH FISSION
* 172-GROUP JEF2.2 DRAGLIB
*----
* Define STRUCTURES and MODULES used
*----
LINKED_LIST
LIBRARY LIBRARY2 GEOMETRY TRACK SYS FLUX EDITION GROUP ;
SEQ_BINARY
YTH ;
*----
MODULE
GEO: EXCELT: MAC: LIB: SHI: ASM: FLU: EDI: GREP: END: ;
PROCEDURE assertS ;
*---
LIBRARY := LIB: ::
NMIX 2 CTRA WIMS
MIXS LIB: DRAGON FIL: DLIB_J2
MIX 1 COMB 0 1.0
MIX 2 300.0
U235 = U235 8.8365E-05 1
U238 = U238 1.2133E-02 1
O16 = O16 4.1252E-02
H1H2O = H1_H2O 3.3615E-02
;
GEOMETRY := GEO: :: CAR2D 10 5
X- REFL X+ REFL Y- REFL Y+ REFL
MESHX 0.0 0.2 0.4 0.6 0.8 1.0 1.2 1.4 1.6 1.8 2.0
MESHY 0.0 0.2 0.4 0.6 0.8 1.0
MIX 1 2 2 2 2 2 2 2 2 2
1 2 2 2 2 2 2 2 2 2
1 2 2 2 2 2 2 2 2 2
1 2 2 2 2 2 2 2 2 2
1 2 2 2 2 2 2 2 2 2 ;
*---
TRACK YTH := EXCELT: GEOMETRY ::
MAXR 50
TRAK TISO 12 20.0
;
LIBRARY2 := SHI: LIBRARY TRACK YTH ::
NOLJ
;
LIBRARY2 := MAC: LIBRARY2 ::
READ INPUT
MIX 1 FIXE
0.0 0.0 0.0 0.0 10.0 0.0 0.0 0.0 0.0 0.0
0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0
0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0
0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0
0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0
0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0
0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0
0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0
0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0
0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0
0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0
0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0
0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0
0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0
0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0
0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0
0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0
0.0 0.0
;
*---
SYS := ASM: LIBRARY2 TRACK YTH ::
PIJ ;
FLUX := FLU: SYS LIBRARY2 TRACK YTH ::
TYPE S ;
*--
EDITION := EDI: LIBRARY2 FLUX TRACK ::
EDIT 2
MERG COMP
COND NONE
SAVE ON 'EDITMOD' ;
*--
GROUP := EDITION :: STEP UP EDITMOD STEP UP MACROLIB STEP UP GROUP
STEP AT 1 ;
assertS GROUP :: 'NTOT0' 1 1.447905E-01 ;
ECHO "test TCDR18 completed" ;
END: ;
QUIT "LIST" .
|
