blob: 6b1733e624e37f0af191d46b349ad80660afb050 (
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
|
*DECK MultLIBEQ_20
*----
* Name : MultLIBEQ_20.c2m
* Type : DRAGON procedure
* Use : Increase the number of mixes in the microlib
* Author : R. Vallerent
*
* Procedure called as:
*
* LIBEQ := MultLIBEQ_20 LIBEQ ;
*
* Input data :
* LIBEQ : Microlib with the number of mixs of the 1st level
*
* Output data :
* LIBEQ : Microlib with the number of mixs of the 2nd level
PARAMETER LIBEQ ::
EDIT 0
::: LINKED_LIST LIBEQ ;
;
* ;
MODULE LIB: END: ;
LIBEQ := LIB: LIBEQ ::
EDIT 0
NMIX 164
MIXS LIB: DRAGON FIL: LIBEQ
* Multiplication pour C1
MIX 41
COMB 9 1.0
MIX 42
COMB 10 1.0
MIX 43
COMB 11 1.0
MIX 44
COMB 12 1.0
MIX 45
COMB 9 1.0
MIX 46
COMB 10 1.0
MIX 47
COMB 11 1.0
MIX 48
COMB 12 1.0
MIX 49
COMB 9 1.0
MIX 50
COMB 10 1.0
MIX 51
COMB 11 1.0
MIX 52
COMB 12 1.0
MIX 53
COMB 9 1.0
MIX 54
COMB 10 1.0
MIX 55
COMB 11 1.0
MIX 56
COMB 12 1.0
MIX 57
COMB 9 1.0
MIX 58
COMB 10 1.0
MIX 59
COMB 11 1.0
MIX 60
COMB 12 1.0
MIX 61
COMB 9 1.0
MIX 62
COMB 10 1.0
MIX 63
COMB 11 1.0
MIX 64
COMB 12 1.0
MIX 65
COMB 9 1.0
MIX 66
COMB 10 1.0
MIX 67
COMB 11 1.0
MIX 68
COMB 12 1.0
MIX 69
COMB 9 1.0
MIX 70
COMB 10 1.0
MIX 71
COMB 11 1.0
MIX 72
COMB 12 1.0
MIX 73
COMB 9 1.0
MIX 74
COMB 10 1.0
MIX 75
COMB 11 1.0
MIX 76
COMB 12 1.0
MIX 77
COMB 9 1.0
MIX 78
COMB 10 1.0
MIX 79
COMB 11 1.0
MIX 80
COMB 12 1.0
MIX 81
COMB 9 1.0
MIX 82
COMB 10 1.0
MIX 83
COMB 11 1.0
MIX 84
COMB 12 1.0
MIX 85
COMB 9 1.0
MIX 86
COMB 10 1.0
MIX 87
COMB 11 1.0
MIX 88
COMB 12 1.0
* Multiplication pour C2
MIX 89
COMB 13 1.0
MIX 90
COMB 14 1.0
MIX 91
COMB 15 1.0
MIX 92
COMB 16 1.0
MIX 93
COMB 13 1.0
MIX 94
COMB 14 1.0
MIX 95
COMB 15 1.0
MIX 96
COMB 16 1.0
MIX 97
COMB 13 1.0
MIX 98
COMB 14 1.0
MIX 99
COMB 15 1.0
MIX 100
COMB 16 1.0
MIX 101
COMB 13 1.0
MIX 102
COMB 14 1.0
MIX 103
COMB 15 1.0
MIX 104
COMB 16 1.0
MIX 105
COMB 13 1.0
MIX 106
COMB 14 1.0
MIX 107
COMB 15 1.0
MIX 108
COMB 16 1.0
MIX 109
COMB 13 1.0
MIX 110
COMB 14 1.0
MIX 111
COMB 15 1.0
MIX 112
COMB 16 1.0
MIX 113
COMB 13 1.0
MIX 114
COMB 14 1.0
MIX 115
COMB 15 1.0
MIX 116
COMB 16 1.0
MIX 117
COMB 13 1.0
MIX 118
COMB 14 1.0
MIX 119
COMB 15 1.0
MIX 120
COMB 16 1.0
MIX 121
COMB 13 1.0
MIX 122
COMB 14 1.0
MIX 123
COMB 15 1.0
MIX 124
COMB 16 1.0
MIX 125
COMB 13 1.0
MIX 126
COMB 14 1.0
MIX 127
COMB 15 1.0
MIX 128
COMB 16 1.0
MIX 129
COMB 13 1.0
MIX 130
COMB 14 1.0
MIX 131
COMB 15 1.0
MIX 132
COMB 16 1.0
* Multiplication pour C3
MIX 133
COMB 17 1.0
MIX 134
COMB 18 1.0
MIX 135
COMB 19 1.0
MIX 136
COMB 20 1.0
* Multiplication pour C4 -> devient type C1 -> C26
MIX 137
COMB 9 1.0
MIX 138
COMB 10 1.0
MIX 139
COMB 11 1.0
MIX 140
COMB 12 1.0
* Multiplication pour C6 -> devient du C4
MIX 141
COMB 21 1.0
MIX 142
COMB 22 1.0
MIX 143
COMB 23 1.0
MIX 144
COMB 24 1.0
MIX 145
COMB 21 1.0
MIX 146
COMB 22 1.0
MIX 147
COMB 23 1.0
MIX 148
COMB 24 1.0
MIX 149
COMB 21 1.0
MIX 150
COMB 22 1.0
MIX 151
COMB 23 1.0
MIX 152
COMB 24 1.0
MIX 153
COMB 21 1.0
MIX 154
COMB 22 1.0
MIX 155
COMB 23 1.0
MIX 156
COMB 24 1.0
MIX 157
COMB 21 1.0
MIX 158
COMB 22 1.0
MIX 159
COMB 23 1.0
MIX 160
COMB 24 1.0
MIX 161
COMB 21 1.0
MIX 162
COMB 22 1.0
MIX 163
COMB 23 1.0
MIX 164
COMB 24 1.0
* Ajout des milieux C5 (=C3) -> cellule C30
MIX 29
COMB 17 1.0
MIX 30
COMB 18 1.0
MIX 31
COMB 19 1.0
MIX 32
COMB 20 1.0
* Ajout des milieux C4 (=C1) -> cellule C23
MIX 33
COMB 9 1.0
MIX 34
COMB 10 1.0
MIX 35
COMB 11 1.0
MIX 36
COMB 12 1.0
* Ajout des milieux C7 (=C4) -> cellule C38
MIX 37
COMB 21 1.0
MIX 38
COMB 22 1.0
MIX 39
COMB 23 1.0
MIX 40
COMB 24 1.0
;
END: ;
QUIT .
|
