blob: 172f2e33dc1e459b47a2feabc590d56a7d463a64 (
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
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
|
!***********************************************************************
!* **
!* PROCEDURE: Pinires **
!* USAGE: Fuel map description for Gentilly2 reactor **
!* AUTHOR: E.Varin (96/02/12) **
!* REVISED: W.SHEN (98/11/19) **
!* B. Dionne (01/03/04) (pour cours ENE6209) **
!* CALL: **
!* **
!* RESEAU INDEX := Pinires INDEX :: B1 B2 B3 ; **
!* **
!* NOTES: **
!* Bi = average exit burnup for zone # i **
!* **
!***********************************************************************
PARAMETER RESEAU INDEX ::
::: LINKED_LIST RESEAU INDEX ;
;
MODULE END: RESINI: ;
!* Declaration des variables
!***************************
REAL B1 B2 B3 ;
!* Lecture des arguments de la procedure
!***************************************
:: >>B1<< >>B2<< >>B3<< ;
!* Creation et initialisation de RESEAU
!**************************************
RESEAU INDEX := RESINI: INDEX ::
::: GEO: CAR3D 26 26 12
EDIT 0
X- VOID X+ VOID
Y- VOID Y+ VOID
Z- VOID Z+ VOID
MIX
PLANE 1
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0
0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0
0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0
0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0
0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0
0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0
0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0
0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0
0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0
0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0
0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0
0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0
0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0
0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0
0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0
0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0
0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0
0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0
0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0
0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
PLANE 2 SAME 1
PLANE 3 SAME 1
PLANE 4 SAME 1
PLANE 5 SAME 1
PLANE 6 SAME 1
PLANE 7 SAME 1
PLANE 8 SAME 1
PLANE 9 SAME 1
PLANE 10 SAME 1
PLANE 11 SAME 1
PLANE 12 SAME 1
MESHX 3.150 45.050 68.525 97.100 125.675 154.250 182.825 211.400
239.975 268.550 297.125 325.700 354.275 382.850 411.425
440.000 468.575 497.150 525.725 554.300 582.875 611.450
640.025 668.600 697.175 720.650 762.550
MESHY 3.150 45.050 68.525 97.100 125.675 154.250 182.825 211.400
239.975 268.550 297.125 325.700 354.275 382.850 411.425
440.000 468.575 497.150 525.725 554.300 582.875 611.450
640.025 668.600 697.175 720.650 762.550
MESHZ 3.940 53.470 103.000 152.530 202.060 251.590 301.120 350.650
400.180 449.710 499.240 548.770 598.30 ;
NXNAME '-' '-' '1' '2' '3' '4' '5' '6' '7' '8' '9' '10' '11'
'12' '13' '14' '15' '16' '17' '18' '19' '20' '21' '22'
'-' '-'
NYNAME '-' '-' 'A' 'B' 'C' 'D' 'E' 'F' 'G' 'H' 'J' 'K' 'L'
'M' 'N' 'O' 'P' 'Q' 'R' 'S' 'T' 'U' 'V' 'W' '-' '-'
NCOMB 3 B-ZONE
3 3 3 3 3 3
3 3 3 3 3 3 3 3 3 3 3 3
3 3 3 3 3 3 3 3 3 3 3 3 3 3
3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3
3 3 3 3 3 2 2 2 2 2 2 2 2 3 3 3 3 3
3 3 3 2 2 2 1 1 1 1 1 1 2 2 2 3 3 3
3 3 3 3 2 1 1 1 1 1 1 1 1 1 1 2 3 3 3 3
3 3 3 2 2 1 1 1 1 1 1 1 1 1 1 2 2 3 3 3
3 3 3 3 2 1 1 1 1 1 1 1 1 1 1 1 1 2 3 3 3 3
3 3 3 3 2 1 1 1 1 1 1 1 1 1 1 1 1 2 3 3 3 3
3 3 3 3 2 1 1 1 1 1 1 1 1 1 1 1 1 2 3 3 3 3
3 3 3 3 2 1 1 1 1 1 1 1 1 1 1 1 1 2 3 3 3 3
3 3 3 3 2 1 1 1 1 1 1 1 1 1 1 1 1 2 3 3 3 3
3 3 3 3 2 1 1 1 1 1 1 1 1 1 1 1 1 2 3 3 3 3
3 3 3 2 2 1 1 1 1 1 1 1 1 1 1 2 2 3 3 3
3 3 3 3 2 1 1 1 1 1 1 1 1 1 1 2 3 3 3 3
3 3 3 2 2 2 1 1 1 1 1 1 2 2 2 3 3 3
3 3 3 3 3 2 2 2 2 2 2 2 2 3 3 3 3 3
3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3
3 3 3 3 3 3 3 3 3 3 3 3 3 3
3 3 3 3 3 3 3 3 3 3 3 3
3 3 3 3 3 3
BTYPE TIMAV-BURN
REF-SHIFT 8
TIMAV-BVAL <<B1>> <<B2>> <<B3>>
! ENRICH 0.714
;
END: ;
QUIT .
|
