blob: 0e89b81dd2d11765d6bc9b00a4094336fddde8d6 (
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
|
*DECK MicACRE6UH.c2m
*----
* Name : MicACRE6UH.c2m
* Type : DRAGON procedure
* Use : To update the ENDF/B-VI Microlib for the ACR
* by adding the mixtures required
* for homogenisation by mixture.
* Author : G. Marleau, E. Varin
* Date : 2005/07/19 (Revision 1 by G. M.)
* Reference : MicACRE6.c2m
*
* Procedure called as:
*
* MicLib := MicACRE6UH MicLib ;
*
* Parameters of the procedure
* MicLib : Microlib tabulated for the required parameters stored in an XSM file
* At input, the minimal set of mixtures included in this microlib is:
* Mix 0 = void
* Mix 1 = coolant at reference conditions
* Mix 2 = pressure tube material
* Mix 3 = gap material
* Mix 4 = calendria tube material
* Mix 5 = moderator
* Mix 6 = fuel sheat
* Mix 7 = central (first) Dy+Gd element
* Mix 8 = second ring of fuel
* Mix 9 = third ring of fuel
* Mix 10 = last (fourth) ring of fuel
* Mix 11 = coolant at 50 % density
* Mix 12 = Natural uranium
* Mix 13 = Dy2O3
* The mixtures added to MicLib by the current procedure are:
* Mix 14 = Full density coolant for central (first) fuel
* Mix 15 = Full density coolant for second ring of fuel
* Mix 16 = Full density coolant for third ring of fuel
* Mix 17 = Full density coolant for last (fourth) ring of fuel
* Mix 18 = Sheat for central (first) fuel element
* Mix 19 = Sheat for second ring of fuel
* Mix 20 = Sheat for third ring of fuel
* Mix 21 = Sheat for last (fourth) ring of fuel
* Mix 22 = Half density coolant for central (first) fuel
* Mix 23 = Half density coolant for second ring of fuel
* Mix 24 = Half density coolant for third ring of fuel
* Mix 25 = Half density coolant for last (fourth) ring of fuel
* Note: 1- MIX 14, 15, 16 and 17 are identical to MIX 1
* 2- MIX 18, 19, 20 and 21 are identical to MIX 6
* 3- MIX 22, 23, 24 and 25 are identical to MIX 11
*----
* Definition of output data structures
*----
PARAMETER MicLib :: ::: XSM_FILE MicLib ; ;
*----
* Local modules used in this procedure
*----
MODULE LIB: DELETE: END: ;
*----
* Library name
*----
STRING LibName := "E6MLIB" ;
*----
* Update library
*----
MicLib := LIB: MicLib ::
EDIT 0
NMIX 25 CTRA WIMS
MIXS LIB: WIMSAECL FIL: <<LibName>>
*----
* Full density coolant mixtures
MIX 14 COMB 1 1.0
MIX 15 COMB 1 1.0
MIX 16 COMB 1 1.0
MIX 17 COMB 1 1.0
*----
* Sheat mixtures
MIX 18 COMB 6 1.0
MIX 19 COMB 6 1.0
MIX 20 COMB 6 1.0
MIX 21 COMB 6 1.0
*----
* Half density coolant mixtures
MIX 22 COMB 11 1.0
MIX 23 COMB 11 1.0
MIX 24 COMB 11 1.0
MIX 25 COMB 11 1.0
;
QUIT .
|
