blob: 5f4de4c0e182826f493edc15029421c466a1492c (
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
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
|
!***********************************************************************
!* PROCEDURE: PdevT **
!* USAGE: Device descriptions for Gentilly2 reactor **
!* AUTHOR: E. Varin (96/02/01) **
!* A. Hebert (11/11/11) (pour DONJON4) **
!* CALL: **
!* **
!* DEVICE INDEX := PdevT INDEX :: fmean **
!* m23M m12M m01M mNai mNao mNbi mNci mNco mNdi mNobs ; **
!* **
!* NOTES: **
!* Mixture number for device must be set and changed HERE **
!* fmean = LZC water level **
!* **
!* Other integer values are mixture numbers of no **
!* device **
!* **
!***********************************************************************
PARAMETER DEVICE INDEX ::
::: LINKED_LIST DEVICE INDEX ;
;
MODULE END: DEVINI: LZC: ;
!*Declaration et initialisation des variables
!********************************************
!* MEAN FILLING FOR ZCRS **
REAL fmean ;
INTEGER m23M m12M m01M mNai mNao mNbi mNci mNco mNdi mNobs nlp ;
!* INSERTION TIME FOR ADJUSTERS **
!* FILLINGS FOR ALL ZCRS: ***CHANGE AT YOUR CONVENIENCE *** **
REAL f01 f02 f03 f04 f05 f06 f07
f08 f09 f10 f11 f12 f13 f14 ;
!* DEFINE LATTICE PITCH **
REAL lp := 28.5750 ;
!* DEFINE X- X+ ADJUSTER POSITIONS **
REAL Am1 Ap1 Am2 Ap2 Am3 Ap3
Am4 Ap4 Am5 Ap5 Am6 Ap6
Am7 Ap7 :=
197.1125 225.6875 254.2625 282.8375 311.4125 339.9875
368.5625 397.1375 425.7125 454.2875 482.8625 511.4375
540.0125 568.5875 ;
!* DEFINE X- X+ LZC POSITIONS **
REAL LmU12 LpU12 LmU34 LpU34 LmU56 LpU56 :=
197.1125 225.6875 368.5625 397.1375 540.0125 568.5875 ;
!* DEFINE MIX NUMBERS FOR ZCR BY TYPE: 32 21 10 FOR FULL/EMPTY **
INTEGER m23E m23F m12E m12F m01E m01F :=
18 19 21 22 24 25 ;
!* DEFINE MIX NUMBERS FOR BC BY TYPE **
INTEGER mRai mRao mRbi mRci mRco mRdi :=
5 6 7 8 9 10 ;
INTEGER mRbs :=
26 ;
REAL yful1 yful3 ;
EVALUATE yful1 yful3 := 170.1827 53.8898 ;
!* Lecture des arguments de la procedure
!***************************************
:: >>fmean<< >>m23M<< >>m12M<< >>m01M<< >>mNai<< >>mNao<< >>mNbi<<
>>mNci<< >>mNco<< >>mNdi<< >>mNobs<< ;
!* FILLINGS FOR ALL ZCRS: ***CHANGE AT YOUR CONVENIENCE *** **
EVALUATE f01 f02 f03 f04 f05 f06 f07
f08 f09 f10 f11 f12 f13 f14 :=
fmean fmean fmean fmean fmean fmean fmean
fmean fmean fmean fmean fmean fmean fmean ;
!* Y REFERENCE LENGTHS FOR ZCR **
REAL yzcL1 yzcL2 yzcL3 yzcL4 yzcL5 :=
lp 8.504 * lp 8. * lp 7.489 * lp 7. * lp 7. * ;
!* Y+ REFERENCE COORDINATES FOR ZCR **
REAL yzcP1 yzcP2 yzcP3 yzcP4 yzcP5 :=
354.2750 582.8750 239.9750 440.0000 640.0250 ;
!* Y LENGHTS FOR ALL ZCRS IN G2 **
REAL L01 L02 L03 L04 L05 L06 L07
L08 L09 L10 L11 L12 L13 L14 :=
yzcL1 yzcL2 yzcL3 yzcL4 yzcL5 yzcL1 yzcL2
yzcL1 yzcL2 yzcL3 yzcL4 yzcL5 yzcL1 yzcL2 ;
!* Y+ COORDINATES FOR ALL ZCRS IN G2 **
REAL yP01 yP02 yP03 yP04 yP05 yP06 yP07
yP08 yP09 yP10 yP11 yP12 yP13 yP14 :=
yzcP1 yzcP2 yzcP3 yzcP4 yzcP5 yzcP1 yzcP2
yzcP1 yzcP2 yzcP3 yzcP4 yzcP5 yzcP1 yzcP2 ;
!* Y- COORDINATES FOR ALL ZCRS IN G2 **
REAL yM01 := yP01 L01 - ;
REAL yM02 := yP02 L02 - ;
REAL yM03 := yP03 L03 - ;
REAL yM04 := yP04 L04 - ;
REAL yM05 := yP05 L05 - ;
REAL yM06 := yP06 L06 - ;
REAL yM07 := yP07 L07 - ;
REAL yM08 := yP08 L08 - ;
REAL yM09 := yP09 L09 - ;
REAL yM10 := yP10 L10 - ;
REAL yM11 := yP11 L11 - ;
REAL yM12 := yP12 L12 - ;
REAL yM13 := yP13 L13 - ;
REAL yM14 := yP14 L14 - ;
!* Initialisation des devices
!****************************
DEVICE INDEX := DEVINI: INDEX ::
EDIT 2 NUM-ROD 21 MOVE
*
ROD 1
ROD-NAME BC#1
LEVEL 1.0
AXIS Y FROM H-
MAXPOS <<Am1>> <<Ap1>> 325.700 440.000 196.3600 245.8900
DMIX <<mRdi>> <<mNdi>>
ENDROD
*
ROD 2
ROD-NAME BC#2
LEVEL 1.0
AXIS Y FROM H-
MAXPOS <<Am2>> <<Ap2>> 211.400 297.125 196.3600 245.8900
DMIX <<mRco>> <<mNco>>
MAXPOS <<Am2>> <<Ap2>> 297.125 468.575 196.3600 245.8900
DMIX <<mRci>> <<mNci>>
MAXPOS <<Am2>> <<Ap2>> 468.575 554.300 196.3600 245.8900
DMIX <<mRco>> <<mNco>>
ENDROD
*
ROD 3
ROD-NAME BC#3
LEVEL 1.0
AXIS Y FROM H-
MAXPOS <<Am3>> <<Ap3>> 211.400 554.300 196.3600 245.8900
DMIX <<mRbi>> <<mNbi>>
ENDROD
*
ROD 4
ROD-NAME BC#4
LEVEL 1.0
AXIS Y FROM H-
MAXPOS <<Am4>> <<Ap4>> 211.400 297.125 196.3600 245.8900
DMIX <<mRao>> <<mNao>>
MAXPOS <<Am4>> <<Ap4>> 297.125 468.575 196.3600 245.8900
DMIX <<mRai>> <<mNai>>
MAXPOS <<Am4>> <<Ap4>> 468.575 554.300 196.3600 245.8900
DMIX <<mRao>> <<mNao>>
ENDROD
*
ROD 5
ROD-NAME BC#5
LEVEL 1.0
AXIS Y FROM H-
MAXPOS <<Am5>> <<Ap5>> 211.400 554.300 196.3600 245.8900
DMIX <<mRbi>> <<mNbi>>
ENDROD
*
ROD 6
ROD-NAME BC#6
LEVEL 1.0
AXIS Y FROM H-
MAXPOS <<Am6>> <<Ap6>> 211.400 297.125 196.3600 245.8900
DMIX <<mRco>> <<mNco>>
MAXPOS <<Am6>> <<Ap6>> 297.125 468.575 196.3600 245.8900
DMIX <<mRci>> <<mNci>>
MAXPOS <<Am6>> <<Ap6>> 468.575 554.300 196.3600 245.8900
DMIX <<mRco>> <<mNco>>
ENDROD
*
ROD 7
ROD-NAME BC#7
LEVEL 1.0
AXIS Y FROM H-
MAXPOS <<Am7>> <<Ap7>> 325.700 440.000 196.3600 245.8900
DMIX <<mRdi>> <<mNdi>>
ENDROD
*
ROD 8
ROD-NAME BC#8
LEVEL 1.0
AXIS Y FROM H-
MAXPOS <<Am1>> <<Ap1>> 325.700 440.000 276.3600 325.8900
DMIX <<mRdi>> <<mNdi>>
ENDROD
*
ROD 9
ROD-NAME BC#9
LEVEL 1.0
AXIS Y FROM H-
MAXPOS <<Am2>> <<Ap2>> 211.400 297.125 276.3600 325.8900
DMIX <<mRco>> <<mNco>>
MAXPOS <<Am2>> <<Ap2>> 297.125 468.575 276.3600 325.8900
DMIX <<mRci>> <<mNci>>
MAXPOS <<Am2>> <<Ap2>> 468.575 554.300 276.3600 325.8900
DMIX <<mRco>> <<mNco>>
ENDROD
*
ROD 10
ROD-NAME BC#10
LEVEL 1.0
AXIS Y FROM H-
MAXPOS <<Am3>> <<Ap3>> 211.400 554.300 276.3600 325.8900
DMIX <<mRbi>> <<mNbi>>
ENDROD
*
ROD 11
ROD-NAME BC#11
LEVEL 1.0
AXIS Y FROM H-
MAXPOS <<Am4>> <<Ap4>> 211.400 297.125 276.3600 325.8900
DMIX <<mRao>> <<mNao>>
MAXPOS <<Am4>> <<Ap4>> 297.125 468.575 276.3600 325.8900
DMIX <<mRai>> <<mNai>>
MAXPOS <<Am4>> <<Ap4>> 468.575 554.300 276.3600 325.8900
DMIX <<mRao>> <<mNao>>
ENDROD
*
ROD 12
ROD-NAME BC#12
LEVEL 1.0
AXIS Y FROM H-
MAXPOS <<Am5>> <<Ap5>> 211.400 554.300 276.3600 325.8900
DMIX <<mRbi>> <<mNbi>>
ENDROD
*
ROD 13
ROD-NAME BC#13
LEVEL 1.0
AXIS Y FROM H-
MAXPOS <<Am6>> <<Ap6>> 211.400 297.125 276.3600 325.8900
DMIX <<mRco>> <<mNco>>
MAXPOS <<Am6>> <<Ap6>> 297.125 468.575 276.3600 325.8900
DMIX <<mRci>> <<mNci>>
MAXPOS <<Am6>> <<Ap6>> 468.575 554.300 276.3600 325.8900
DMIX <<mRco>> <<mNco>>
ENDROD
*
ROD 14
ROD-NAME BC#14
LEVEL 1.0
AXIS Y FROM H-
MAXPOS <<Am7>> <<Ap7>> 325.700 440.000 276.3600 325.8900
DMIX <<mRdi>> <<mNdi>>
ENDROD
*
ROD 15
ROD-NAME BC#15
LEVEL 1.0
AXIS Y FROM H-
MAXPOS <<Am1>> <<Ap1>> 325.700 440.000 356.3600 405.8900
DMIX <<mRdi>> <<mNdi>>
ENDROD
*
ROD 16
ROD-NAME BC#16
LEVEL 1.0
AXIS Y FROM H-
MAXPOS <<Am2>> <<Ap2>> 211.400 297.125 356.3600 405.8900
DMIX <<mRco>> <<mNco>>
MAXPOS <<Am2>> <<Ap2>> 297.125 468.575 356.3600 405.8900
DMIX <<mRci>> <<mNci>>
MAXPOS <<Am2>> <<Ap2>> 468.575 554.300 356.3600 405.8900
DMIX <<mRco>> <<mNco>>
ENDROD
*
ROD 17
ROD-NAME BC#17
LEVEL 1.0
AXIS Y FROM H-
MAXPOS <<Am3>> <<Ap3>> 211.400 554.300 356.3600 405.8900
DMIX <<mRbi>> <<mNbi>>
ENDROD
*
ROD 18
ROD-NAME BC#18
LEVEL 1.0
AXIS Y FROM H-
MAXPOS <<Am4>> <<Ap4>> 211.400 297.125 356.3600 405.8900
DMIX <<mRao>> <<mNao>>
MAXPOS <<Am4>> <<Ap4>> 297.125 468.575 356.3600 405.8900
DMIX <<mRai>> <<mNai>>
MAXPOS <<Am4>> <<Ap4>> 468.575 554.300 356.3600 405.8900
DMIX <<mRao>> <<mNao>>
ENDROD
*
ROD 19
ROD-NAME BC#19
LEVEL 1.0
AXIS Y FROM H-
MAXPOS <<Am5>> <<Ap5>> 211.400 554.300 356.3600 405.8900
DMIX <<mRbi>> <<mNbi>>
ENDROD
*
ROD 20
ROD-NAME BC#20
LEVEL 1.0
AXIS Y FROM H-
MAXPOS <<Am6>> <<Ap6>> 211.400 297.125 356.3600 405.8900
DMIX <<mRco>> <<mNco>>
MAXPOS <<Am6>> <<Ap6>> 297.125 468.575 356.3600 405.8900
DMIX <<mRci>> <<mNci>>
MAXPOS <<Am6>> <<Ap6>> 468.575 554.300 356.3600 405.8900
DMIX <<mRco>> <<mNco>>
ENDROD
*
ROD 21
ROD-NAME BC#21
LEVEL 1.0
AXIS Y FROM H-
MAXPOS <<Am7>> <<Ap7>> 325.700 440.000 356.3600 405.8900
DMIX <<mRdi>> <<mNdi>>
ENDROD
*--
* create rod-devices groups:
*--
CREATE ROD-GR 1
GROUP-ID 1 ALL
;
DEVICE INDEX := LZC: DEVICE INDEX ::
EDIT 1 NUM-LZC 14
*
LZC 1
MAXPOS <<LmU12>> <<LpU12>> <<yM01>> <<yP01>> 146.3600 195.8900
MAX-FULL <<yful1>>
AXIS Y
LEVEL <<fmean>> RATE 0.670 TIME 60.
EMPTY-MIX <<m12E>> <<m12M>>
FULL-MIX <<m12F>> <<m12M>>
*
LZC 2
MAXPOS <<LmU12>> <<LpU12>> <<yM02>> <<yP02>> 146.3600 195.8900
MAX-FULL <<yM02>>
AXIS Y
LEVEL <<fmean>> RATE 0.602 TIME 36.
EMPTY-MIX <<m01E>> <<m01M>>
FULL-MIX <<m01F>> <<m01M>>
*
LZC 3
MAXPOS <<LmU34>> <<LpU34>> <<yM03>> <<yP03>> 146.3600 195.8900
MAX-FULL <<yful3>>
AXIS Y
LEVEL <<fmean>> RATE 0.544 TIME 36.
EMPTY-MIX <<m23E>> <<m23M>>
FULL-MIX <<m23F>> <<m23M>>
*
LZC 4
MAXPOS <<LmU34>> <<LpU34>> <<yM04>> <<yP04>> 146.3600 195.8900
MAX-FULL <<yM04>>
AXIS Y
LEVEL <<fmean>> RATE 0.622 TIME 36.
EMPTY-MIX <<m12E>> <<m12M>>
FULL-MIX <<m12F>> <<m12M>>
*
LZC 5
MAXPOS <<LmU34>> <<LpU34>> <<yM05>> <<yP05>> 152.535 202.065
MAX-FULL <<yM05>>
AXIS Y
LEVEL <<fmean>> RATE 0.585 TIME 36.
EMPTY-MIX <<m01E>> <<m01M>>
FULL-MIX <<m01F>> <<m01M>>
*
LZC 6
MAXPOS <<LmU56>> <<LpU56>> <<yM06>> <<yP06>> 146.3600 195.8900
MAX-FULL <<yful1>>
AXIS Y
LEVEL <<fmean>> RATE 0.651 TIME 60.
EMPTY-MIX <<m12E>> <<m12M>>
FULL-MIX <<m12F>> <<m12M>>
*
LZC 7
MAXPOS <<LmU56>> <<LpU56>> <<yM07>> <<yP07>> 146.3600 195.8900
MAX-FULL <<yM07>>
AXIS Y
LEVEL <<fmean>> RATE 0.591 TIME 36.
EMPTY-MIX <<m01E>> <<m01M>>
FULL-MIX <<m01F>> <<m01M>>
*
LZC 8
MAXPOS <<LmU12>> <<LpU12>> <<yM08>> <<yP08>> 406.3600 455.8900
MAX-FULL <<yful1>>
AXIS Y
LEVEL <<fmean>> RATE 0.634 TIME 60.
EMPTY-MIX <<m12E>> <<m12M>>
FULL-MIX <<m12F>> <<m12M>>
*
LZC 9
MAXPOS <<LmU12>> <<LpU12>> <<yM09>> <<yP09>> 406.3600 455.8900
MAX-FULL <<yM09>>
AXIS Y
LEVEL <<fmean>> RATE 0.601 TIME 36.
EMPTY-MIX <<m01E>> <<m01M>>
FULL-MIX <<m01F>> <<m01M>>
*
LZC 10
MAXPOS <<LmU34>> <<LpU34>> <<yM10>> <<yP10>> 406.3600 455.8900
MAX-FULL <<yful3>>
AXIS Y
LEVEL <<fmean>> RATE 0.671 TIME 36.
EMPTY-MIX <<m23E>> <<m23M>>
FULL-MIX <<m23F>> <<m23M>>
*
LZC 11
MAXPOS <<LmU34>> <<LpU34>> <<yM11>> <<yP11>> 406.3600 455.8900
MAX-FULL <<yM11>>
AXIS Y
LEVEL <<fmean>> RATE 0.619 TIME 36.
EMPTY-MIX <<m12E>> <<m12M>>
FULL-MIX <<m12F>> <<m12M>>
*
LZC 12
MAXPOS <<LmU34>> <<LpU34>> <<yM12>> <<yP12>> 406.3600 455.8900
MAX-FULL <<yM12>>
AXIS Y
LEVEL <<fmean>> RATE 0.526 TIME 36.
EMPTY-MIX <<m01E>> <<m01M>>
FULL-MIX <<m01F>> <<m01M>>
*
LZC 13
MAXPOS <<LmU56>> <<LpU56>> <<yM13>> <<yP13>> 406.3600 455.8900
MAX-FULL <<yful1>>
AXIS Y
LEVEL <<fmean>> RATE 0.628 TIME 60.
EMPTY-MIX <<m12E>> <<m12M>>
FULL-MIX <<m12F>> <<m12M>>
*
LZC 14
MAXPOS <<LmU56>> <<LpU56>> <<yM14>> <<yP14>> 406.3600 455.8900
MAX-FULL <<yM14>>
AXIS Y
LEVEL <<fmean>> RATE 0.601 TIME 36.
EMPTY-MIX <<m01E>> <<m01M>>
FULL-MIX <<m01F>> <<m01M>>
;
END: ;
QUIT .
|
