blob: 4ebf607cedc05186103b2c935b29a3dfd09aa435 (
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
|
*
* Perform resonance self-shielding and onstruct LIBRARY2 by concatenation
*
PARAMETER LIBRARY2 LIBRARY2A LIBRARY2B LIBRARY TRACK_SS1 TRACK_SS2 ::
::: LINKED_LIST LIBRARY2 ;
::: LINKED_LIST LIBRARY2A ;
::: LINKED_LIST LIBRARY2B ;
::: LINKED_LIST LIBRARY ;
::: LINKED_LIST TRACK_SS1 ;
::: LINKED_LIST TRACK_SS2 ; ;
INTEGER istep ;
:: >>istep<< ;
MODULE USS: LIB: UTL: ERASE: END: ;
IF istep 1 = THEN
ECHO "construct LIBRARY2A at step 1:" ;
LIBRARY2A := USS: LIBRARY TRACK_SS1 ::
EDIT 1 MAXST 100 PASS 2 PIJ
CALC
REGI W1 U235 ALL
REGI W1 Pu239 ALL
ENDC
;
LIBRARY2B := USS: LIBRARY TRACK_SS2 ::
EDIT 1 MAXST 100 PASS 2 PIJ
CALC
REGI W2 U235 ALL
REGI W2 Pu239 ALL
ENDC
;
* create the LIBRARY2 object for later.
LIBRARY2 := LIB: ::
NMIX 11 (*MAXIMUM OF MATERIAL MIXTURES*)
EDIT 0
;
ELSE
ECHO "construct LIBRARY2A using number densities of LIBRARY2:" ;
* recover number densities from LIBRARY2 and copy them in LIBRARY2A
LIBRARY2A := LIB: LIBRARY2A LIBRARY2 :: EDIT 1
MAXS
MIX 1 MIX 2 MIX 3 MIX 4 MIX 5
;
LIBRARY2A := USS: LIBRARY LIBRARY2A TRACK_SS1 ::
EDIT 0 MAXST 100 PASS 2 PIJ
ARM
CALC
REGI W1 U235 ALL
REGI W1 Pu239 ALL
ENDC
;
LIBRARY2B := LIB: LIBRARY2B LIBRARY2 :: EDIT 1
MAXS
MIX 7 MIX 8 MIX 9 MIX 10 MIX 11
;
LIBRARY2B := USS: LIBRARY LIBRARY2B TRACK_SS2 ::
EDIT 1 MAXST 100 PASS 2 PIJ
CALC
REGI W2 U235 ALL
REGI W2 Pu239 ALL
ENDC
;
LIBRARY2 := ERASE: LIBRARY2 ;
ENDIF ;
ECHO "construct LIBRARY2 by concatenation:" ;
LIBRARY2 := LIB: LIBRARY2 LIBRARY2A ::
NMIX 11 (*MAXIMUM OF MATERIAL MIXTURES*)
EDIT 2
SKIP ! skip the macrolib construction
CATL
MIX 1 1
MIX 2 2
MIX 3 3
MIX 4 4
MIX 5 5
;
LIBRARY2 := LIB: LIBRARY2 LIBRARY ::
EDIT 2
SKIP ! skip the macrolib construction
CATL
MIX 6 6
;
LIBRARY2 := LIB: LIBRARY2 LIBRARY2B ::
EDIT 2
MACR ! activate the macrolib construction
DEPL LIB: DRAGON FIL: DLIB_295
CATL
MIX 7 7
MIX 8 8
MIX 9 9
MIX 10 10
MIX 11 11
;
END: ;
QUIT .
|
