blob: 48c2d27bec3b44ce4bc1578e5a5901d7acc59299 (
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
|
*DECK Autop1
*----
* Name : Autop1.c2m
* Type : DRAGON procedure
* Use : Realize the first self shielding calculation
* Author : R. Vallerent
*
* Procedure called as:
*
* LIBRARY2 := Autop1 LIBRARY TRACKSS :: <<Fuel>> <<NbRegions>> ;
*
* Input data :
* LIBRARY : Library with SUBG key word
* TRACKSS : Tracking of the SS geometry
* Fuel : Type of fuel (UOX/MOX)
* NbRegions : Number of regions for the calculation (20/32)
* Output data :
* LIBRARY2 : Self shielded Library
PARAMETER LIBRARY2 LIBRARY TRACKSS ::
EDIT 1
::: LINKED_LIST LIBRARY2 LIBRARY TRACKSS ;
;
* ;
MODULE USS: END: ;
STRING Fuel ;
:: >>Fuel<< ;
INTEGER NbRegions ;
:: >>NbRegions<< ;
IF Fuel "UOX" = THEN
IF NbRegions 20 = THEN
LIBRARY2 := USS: LIBRARY TRACKSS ::
EDIT 0
ARM
TRAN
PASS 2
GRMIN 31 GRMAX 93
CALC
REGI W1 U235 ALL
REGI W1 U236 ALL
REGI W1 Pu239 ALL
REGI W1 Pu240 ALL
REGI W1 Pu241 ALL
REGI W1 Pu242 ALL
REGI W1 Zr90g ALL
REGI W1 Zr91g ALL
REGI W1 Zr92g ALL
REGI W1 Zr94g ALL
REGI W1 Zr96g ALL
REGI W1 Zr90f ALL
REGI W1 Zr91f ALL
REGI W1 Zr92f ALL
REGI W1 Zr94f ALL
REGI W1 Zr96f ALL
REGI W1 U238 9
REGI W2 U238 10
REGI W3 U238 11
REGI W4 U238 12
REGI W5 U238 13 17 21 25
REGI W6 U238 14 18 22 26
REGI W7 U238 15 19 23 27
REGI W8 U238 16 20 24 28
ENDC
;
ELSEIF NbRegions 32 = THEN
LIBRARY2 := USS: LIBRARY TRACKSS ::
EDIT 0
ARM
TRAN
PASS 2
GRMIN 31 GRMAX 93
CALC
REGI W1 U235 ALL
REGI W1 U236 ALL
REGI W1 Pu239 ALL
REGI W1 Pu240 ALL
REGI W1 Pu241 ALL
REGI W1 Pu242 ALL
REGI W1 Zr90g ALL
REGI W1 Zr91g ALL
REGI W1 Zr92g ALL
REGI W1 Zr94g ALL
REGI W1 Zr96g ALL
REGI W1 Zr90f ALL
REGI W1 Zr91f ALL
REGI W1 Zr92f ALL
REGI W1 Zr94f ALL
REGI W1 Zr96f ALL
REGI W1 U238 9 21
REGI W2 U238 10 22
REGI W3 U238 11 23
REGI W4 U238 12 24
REGI W5 U238 13 17 25 29 33 37
REGI W6 U238 14 18 26 30 34 38
REGI W7 U238 15 19 27 31 35 39
REGI W8 U238 16 20 28 32 36 40
ENDC
;
ENDIF ;
ELSE
ECHO "Mauvaise donnée de Fuel" ;
ENDIF ;
END: ;
QUIT .
|
