summaryrefslogtreecommitdiff
path: root/Donjon/data/proc/Pdevc.c2m
blob: 76f7778fb3ecf6a1a1671e8c8e8ed90304237596 (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
***********************************************************
*                                                         *
* Procedure :  Pdevc.c2m                                  *
* Purpose   :  Reactor rod-devices specification          *
* Author(s) :  D. Sekki (2007/06)                         *
*                                                         *
* CALL      :  DEVICE MATEX := Pdevc MATEX ::             *
*        <<mZCRin>> <<mZCRout>> <<mSORin>> <<mSORout>> ;  *
*                                                         *
***********************************************************

PARAMETER  DEVICE MATEX ::
                          ::: LINKED_LIST DEVICE MATEX ; ;
MODULE     END: DEVINI: ;
INTEGER    mZCRin mZCRout mSORin mSORout ;
*--
* Read arguments:
*--
  :: >>mZCRin<< >>mZCRout<< >>mSORin<< >>mSORout<< ;

  DEVICE MATEX := DEVINI: MATEX :: EDIT 1 NUM-ROD 56 FADE

*--
* ZCR:
*--
    ROD 1
      ROD-NAME ZCR01A
      LEVEL 0.0   AXIS Y  FROM H-
      MAXPOS 161.0 183.0   0.0 260.0   123.825 173.355
      DMIX <<mZCRin>> <<mZCRout>>
    ENDROD
*
    ROD 2
      ROD-NAME ZCR01B
      LEVEL 0.0   AXIS Y  FROM H+
      MAXPOS 161.0 183.0   260.0 520.0   123.825 173.355
      DMIX <<mZCRin>> <<mZCRout>>
    ENDROD
*
    ROD 3
      ROD-NAME ZCR02A
      LEVEL 0.0   AXIS Y  FROM H-
      MAXPOS 205.0 227.0   0.0 260.0   123.825 173.355
      DMIX <<mZCRin>> <<mZCRout>>
    ENDROD
*
    ROD 4
      ROD-NAME ZCR02B
      LEVEL 0.0   AXIS Y  FROM H+
      MAXPOS 205.0 227.0   260.0 520.0   123.825 173.355
      DMIX <<mZCRin>> <<mZCRout>>
    ENDROD
*
    ROD 5
      ROD-NAME ZCR03A
      LEVEL 0.0   AXIS Y  FROM H-
      MAXPOS 249.0 271.0   0.0 260.0   123.825 173.355
      DMIX <<mZCRin>> <<mZCRout>>
    ENDROD
*
    ROD 6
      ROD-NAME ZCR03B
      LEVEL 0.0   AXIS Y  FROM H+
      MAXPOS 249.0 271.0   260.0 520.0   123.825 173.355
      DMIX <<mZCRin>> <<mZCRout>>
    ENDROD
*
    ROD 7
      ROD-NAME ZCR04A
      LEVEL 0.0   AXIS Y  FROM H-
      MAXPOS 293.0 315.0   0.0 260.0   123.825 173.355
      DMIX <<mZCRin>> <<mZCRout>>
    ENDROD
*
    ROD 8
      ROD-NAME ZCR04B
      LEVEL 0.0   AXIS Y  FROM H+
      MAXPOS 293.0 315.0   260.0 520.0   123.825 173.355
      DMIX <<mZCRin>> <<mZCRout>>
    ENDROD
*
    ROD 9
      ROD-NAME ZCR05A
      LEVEL 0.0   AXIS Y  FROM H-
      MAXPOS 337.0 359.0   0.0 260.0   123.825 173.355
      DMIX <<mZCRin>> <<mZCRout>>
    ENDROD
*
    ROD 10
      ROD-NAME ZCR05B
      LEVEL 0.0   AXIS Y  FROM H+
      MAXPOS 337.0 359.0   260.0 520.0   123.825 173.355
      DMIX <<mZCRin>> <<mZCRout>>
    ENDROD
*
    ROD 11
      ROD-NAME ZCR06A
      LEVEL 0.0   AXIS Y  FROM H-
      MAXPOS 161.0 183.0   0.0 260.0   272.415 321.945
      DMIX <<mZCRin>> <<mZCRout>>
    ENDROD
*
    ROD 12
      ROD-NAME ZCR06B
      LEVEL 0.0   AXIS Y  FROM H+
      MAXPOS 161.0 183.0   260.0 520.0   272.415 321.945
      DMIX <<mZCRin>> <<mZCRout>>
    ENDROD
*
    ROD 13
      ROD-NAME ZCR07A
      LEVEL 0.0   AXIS Y  FROM H-
      MAXPOS 205.0 227.0   0.0 260.0   272.415 321.945
      DMIX <<mZCRin>> <<mZCRout>>
    ENDROD
*
    ROD 14
      ROD-NAME ZCR07B
      LEVEL 0.0   AXIS Y  FROM H+
      MAXPOS 205.0 227.0   260.0 520.0   272.415 321.945
      DMIX <<mZCRin>> <<mZCRout>>
    ENDROD
*
    ROD 15
      ROD-NAME ZCR08A
      LEVEL 0.0   AXIS Y  FROM H-
      MAXPOS 249.0 271.0   0.0 260.0   272.415 321.945
      DMIX <<mZCRin>> <<mZCRout>>
    ENDROD
*
    ROD 16
      ROD-NAME ZCR08B
      LEVEL 0.0   AXIS Y  FROM H+
      MAXPOS 249.0 271.0   260.0 520.0   272.415 321.945
      DMIX <<mZCRin>> <<mZCRout>>
    ENDROD
*
    ROD 17
      ROD-NAME ZCR09A
      LEVEL 0.0   AXIS Y  FROM H-
      MAXPOS 293.0 315.0   0.0 260.0   272.415 321.945
      DMIX <<mZCRin>> <<mZCRout>>
    ENDROD
*
    ROD 18
      ROD-NAME ZCR09B
      LEVEL 0.0   AXIS Y  FROM H+
      MAXPOS 293.0 315.0   260.0 520.0   272.415 321.945
      DMIX <<mZCRin>> <<mZCRout>>
    ENDROD
*
    ROD 19
      ROD-NAME ZCR10A
      LEVEL 0.0   AXIS Y  FROM H-
      MAXPOS 337.0 359.0   0.0   260.0   272.415 321.945
      DMIX <<mZCRin>> <<mZCRout>>
    ENDROD
*
    ROD 20
      ROD-NAME ZCR10B
      LEVEL 0.0   AXIS Y  FROM H+
      MAXPOS 337.0 359.0   260.0 520.0   272.415 321.945
      DMIX <<mZCRin>> <<mZCRout>>
    ENDROD
*
    ROD 21
      ROD-NAME ZCR11A
      LEVEL 0.0   AXIS Y  FROM H-
      MAXPOS 161.0 183.0   0.0 260.0   421.005 470.535
      DMIX <<mZCRin>> <<mZCRout>>
    ENDROD
*
    ROD 22
      ROD-NAME ZCR11B
      LEVEL 0.0   AXIS Y  FROM H+
      MAXPOS 161.0 183.0   260.0 520.0   421.005 470.535
      DMIX <<mZCRin>> <<mZCRout>>
    ENDROD
*
    ROD 23
      ROD-NAME ZCR12A
      LEVEL 0.0   AXIS Y  FROM H-
      MAXPOS 205.0 227.0   0.0 260.0   421.005 470.535
      DMIX <<mZCRin>> <<mZCRout>>
    ENDROD
*
    ROD 24
      ROD-NAME ZCR12B
      LEVEL 0.0   AXIS Y  FROM H+
      MAXPOS 205.0 227.0   260.0 520.0   421.005 470.535
      DMIX <<mZCRin>> <<mZCRout>>
    ENDROD
*
    ROD 25
      ROD-NAME ZCR13A
      LEVEL 0.0   AXIS Y  FROM H-
      MAXPOS 249.0 271.0   0.0 260.0   421.005 470.535
      DMIX <<mZCRin>> <<mZCRout>>
    ENDROD
*
    ROD 26
      ROD-NAME ZCR13B
      LEVEL 0.0   AXIS Y  FROM H+
      MAXPOS 249.0 271.0   260.0 520.0   421.005 470.535
      DMIX <<mZCRin>> <<mZCRout>>
    ENDROD
*
    ROD 27
      ROD-NAME ZCR14A
      LEVEL 0.0   AXIS Y  FROM H-
      MAXPOS 293.0 315.0   0.0 260.0   421.005 470.535
      DMIX <<mZCRin>> <<mZCRout>>
    ENDROD
*
    ROD 28
      ROD-NAME ZCR14B
      LEVEL 0.0   AXIS Y  FROM H+
      MAXPOS 293.0 315.0   260.0 520.0   421.005 470.535
      DMIX <<mZCRin>> <<mZCRout>>
    ENDROD
*
    ROD 29
      ROD-NAME ZCR15A
      LEVEL 0.0   AXIS Y  FROM H-
      MAXPOS 337.0 359.0   0.0 260.0   421.005 470.535
      DMIX <<mZCRin>> <<mZCRout>>
    ENDROD
*
    ROD 30
      ROD-NAME ZCR15B
      LEVEL 0.0   AXIS Y  FROM H+
      MAXPOS 337.0 359.0   260.0 520.0   421.005 470.535
      DMIX <<mZCRin>> <<mZCRout>>
    ENDROD

*--
* SOR:
*--
    ROD 31
      ROD-NAME SOR01
      LEVEL 0.0   AXIS Y  FROM H+
      MAXPOS 117.0 139.0   53.75 466.25   49.53 99.06
      DMIX <<mSORin>> <<mSORout>>
    ENDROD
*
    ROD 32
      ROD-NAME SOR02
      LEVEL 0.0   AXIS Y  FROM H+
      MAXPOS 183.0 205.0   24.5 495.5   49.53 99.06
      DMIX <<mSORin>> <<mSORout>>
    ENDROD
*
    ROD 33
      ROD-NAME SOR03
      LEVEL 0.0   AXIS Y  FROM H+
      MAXPOS 227.0 249.0   24.5 495.5   49.53 99.06
      DMIX <<mSORin>> <<mSORout>>
    ENDROD
*
    ROD 34
      ROD-NAME SOR04
      LEVEL 0.0   AXIS Y  FROM H+
      MAXPOS 271.0 293.0   24.5 495.5   49.53 99.06
      DMIX <<mSORin>> <<mSORout>>
    ENDROD
*
    ROD 35
      ROD-NAME SOR05
      LEVEL 0.0   AXIS Y  FROM H+
      MAXPOS 315.0 337.0   24.5 495.5   49.53 99.06
      DMIX <<mSORin>> <<mSORout>>
    ENDROD
*
    ROD 36
      ROD-NAME SOR06
      LEVEL 0.0   AXIS Y  FROM H+
      MAXPOS 381.0 403.0   53.75 466.25   49.53 99.06
      DMIX <<mSORin>> <<mSORout>>
    ENDROD
*
    ROD 37
      ROD-NAME SOR07
      LEVEL 0.0   AXIS Y  FROM H+
      MAXPOS 117.0 139.0   53.75 466.25   123.825 173.355
      DMIX <<mSORin>> <<mSORout>>
    ENDROD
*
    ROD 38
      ROD-NAME SOR08
      LEVEL 0.0   AXIS Y  FROM H+
      MAXPOS 381.0 403.0   53.75 466.25   123.825 173.355
      DMIX <<mSORin>> <<mSORout>>
    ENDROD
*
    ROD 39
      ROD-NAME SOR09
      LEVEL 0.0   AXIS Y  FROM H+
      MAXPOS 117.0 139.0   53.75 466.25   222.885 272.415
      DMIX <<mSORin>> <<mSORout>>
    ENDROD
*
    ROD 40
      ROD-NAME SOR10
      LEVEL 0.0   AXIS Y  FROM H+
      MAXPOS 227.0 249.0   24.5 495.5   198.12 247.65
      DMIX <<mSORin>> <<mSORout>>
    ENDROD
*
    ROD 41
      ROD-NAME SOR11
      LEVEL 0.0   AXIS Y  FROM H+
      MAXPOS 271.0 293.0   24.5 495.5   198.12 247.65
      DMIX <<mSORin>> <<mSORout>>
    ENDROD
*
    ROD 42
      ROD-NAME SOR12
      LEVEL 0.0   AXIS Y  FROM H+
      MAXPOS 381.0 403.0   53.75 466.25   222.885 272.415
      DMIX <<mSORin>> <<mSORout>>
    ENDROD
*
    ROD 43
      ROD-NAME SOR13
      LEVEL 0.0   AXIS Y  FROM H+
      MAXPOS 117.0 139.0   53.75 466.25   272.415 321.945
      DMIX <<mSORin>> <<mSORout>>
    ENDROD
*
    ROD 44
      ROD-NAME SOR14
      LEVEL 0.0   AXIS Y  FROM H+
      MAXPOS 381.0 403.0   53.75 466.25   272.415 321.945
      DMIX <<mSORin>> <<mSORout>>
    ENDROD
*
    ROD 45
      ROD-NAME SOR15
      LEVEL 0.0   AXIS Y  FROM H+
      MAXPOS 117.0 139.0   53.75 466.25   321.945 371.475
      DMIX <<mSORin>> <<mSORout>>
    ENDROD
*
    ROD 46
      ROD-NAME SOR16
      LEVEL 0.0   AXIS Y  FROM H+
      MAXPOS 227.0 249.0   24.5 495.5   346.71 396.24
      DMIX <<mSORin>> <<mSORout>>
    ENDROD
*
    ROD 47
      ROD-NAME SOR17
      LEVEL 0.0   AXIS Y  FROM H+
      MAXPOS 271.0 293.0   24.5 495.5   346.71 396.24
      DMIX <<mSORin>> <<mSORout>>
    ENDROD
*
    ROD 48
      ROD-NAME SOR18
      LEVEL 0.0   AXIS Y  FROM H+
      MAXPOS 381.0 403.0   53.75 466.25   321.945 371.475
      DMIX <<mSORin>> <<mSORout>>
    ENDROD
*
    ROD 49
      ROD-NAME SOR19
      LEVEL 0.0   AXIS Y  FROM H+
      MAXPOS 117.0 139.0   53.75 466.25   421.005 470.535
      DMIX <<mSORin>> <<mSORout>>
    ENDROD
*
    ROD 50
      ROD-NAME SOR20
      LEVEL 0.0   AXIS Y  FROM H+
      MAXPOS 381.0 403.0   53.75 466.25   421.005 470.535
      DMIX <<mSORin>> <<mSORout>>
    ENDROD
*
    ROD 51
      ROD-NAME SOR21
      LEVEL 0.0   AXIS Y  FROM H+
      MAXPOS 117.0 139.0   53.75 466.25   495.3 544.83
      DMIX <<mSORin>> <<mSORout>>
    ENDROD
*
    ROD 52
      ROD-NAME SOR22
      LEVEL 0.0   AXIS Y  FROM H+
      MAXPOS 183.0 205.0   24.5 495.5   495.3 544.83
      DMIX <<mSORin>> <<mSORout>>
    ENDROD
*
    ROD 53
      ROD-NAME SOR23
      LEVEL 0.0   AXIS Y  FROM H+
      MAXPOS 227.0 249.0   24.5 495.5   495.3 544.83
      DMIX <<mSORin>> <<mSORout>>
    ENDROD
*
    ROD 54
      ROD-NAME SOR24
      LEVEL 0.0   AXIS Y  FROM H+
      MAXPOS 271.0 293.0   24.5 495.5   495.3 544.83
      DMIX <<mSORin>> <<mSORout>>
    ENDROD
*
    ROD 55
      ROD-NAME SOR25
      LEVEL 0.0   AXIS Y  FROM H+
      MAXPOS 315.0 337.0   24.5 495.5   495.3 544.83
      DMIX <<mSORin>> <<mSORout>>
    ENDROD
*
    ROD 56
      ROD-NAME SOR26
      LEVEL 0.0   AXIS Y  FROM H+
      MAXPOS 381.0 403.0   53.75 466.25   495.3 544.83
      DMIX <<mSORin>> <<mSORout>>
    ENDROD

*--
* create rod-devices groups:
*--
    CREATE ROD-GR 5

    GROUP-ID 1
    ROD-ID 1 2 15 16 19 20 23 24 27 28

    GROUP-ID 2
    ROD-ID 3 4 7 8 9 10 13 14

    GROUP-ID 3
    ROD-ID 5 6 11 12 17 18 21 22 25 26 29 30

    GROUP-ID 4
    ROD-ID 31 36 37 38 39 42 43 44 45 48 49 50 51 52 53 54 55

    GROUP-ID 5
    ROD-ID 32 33 34 35 40 41 46 47 53 56 ;

END: ;
QUIT .