CLooG 0.18.4
[cloog.git] / test / swim.good.c
blob80f0de1b223c92ea47eb8be22e155ef8ddd6e2e0
1 /* Generated from ../../../git/cloog/test/swim.cloog by CLooG 0.14.0-72-gefe2fc2 gmp bits in 0.70s. */
2 extern void hash(int);
4 /* Useful macros. */
5 #define floord(n,d) (((n)<0) ? -((-(n)+(d)-1)/(d)) : (n)/(d))
6 #define ceild(n,d) (((n)<0) ? -((-(n))/(d)) : ((n)+(d)-1)/(d))
7 #define max(x,y) ((x) > (y) ? (x) : (y))
8 #define min(x,y) ((x) < (y) ? (x) : (y))
10 #define S1() { hash(1); }
11 #define S2() { hash(2); }
12 #define S3() { hash(3); }
13 #define S4() { hash(4); }
14 #define S5() { hash(5); }
15 #define S6() { hash(6); }
16 #define S7() { hash(7); }
17 #define S8() { hash(8); }
18 #define S9() { hash(9); }
19 #define S10() { hash(10); }
20 #define S11() { hash(11); }
21 #define S12() { hash(12); }
22 #define S13() { hash(13); }
23 #define S14() { hash(14); }
24 #define S15() { hash(15); }
25 #define S16() { hash(16); }
26 #define S17() { hash(17); }
27 #define S18() { hash(18); }
28 #define S19() { hash(19); }
29 #define S20() { hash(20); }
30 #define S21() { hash(21); }
31 #define S22() { hash(22); }
32 #define S23() { hash(23); }
33 #define S24() { hash(24); }
34 #define S25() { hash(25); }
35 #define S26() { hash(26); }
36 #define S27() { hash(27); }
37 #define S28(i,j) { hash(28); hash(i); hash(j); }
38 #define S29(i,j) { hash(29); hash(i); hash(j); }
39 #define S30(i,j) { hash(30); hash(i); hash(j); }
40 #define S31(i) { hash(31); hash(i); }
41 #define S32() { hash(32); }
42 #define S33() { hash(33); }
43 #define S34() { hash(34); }
44 #define S35() { hash(35); }
45 #define S36() { hash(36); }
46 #define S37() { hash(37); }
47 #define S38(i) { hash(38); hash(i); }
48 #define S39(i) { hash(39); hash(i); }
49 #define S40(i,j,k) { hash(40); hash(i); hash(j); hash(k); }
50 #define S41(i,j,k) { hash(41); hash(i); hash(j); hash(k); }
51 #define S42(i,j,k) { hash(42); hash(i); hash(j); hash(k); }
52 #define S43(i,j,k) { hash(43); hash(i); hash(j); hash(k); }
53 #define S44(i,j) { hash(44); hash(i); hash(j); }
54 #define S45(i,j) { hash(45); hash(i); hash(j); }
55 #define S46(i,j) { hash(46); hash(i); hash(j); }
56 #define S47(i,j) { hash(47); hash(i); hash(j); }
57 #define S48(i,j) { hash(48); hash(i); hash(j); }
58 #define S49(i,j) { hash(49); hash(i); hash(j); }
59 #define S50(i,j) { hash(50); hash(i); hash(j); }
60 #define S51(i,j) { hash(51); hash(i); hash(j); }
61 #define S52(i) { hash(52); hash(i); }
62 #define S53(i) { hash(53); hash(i); }
63 #define S54(i) { hash(54); hash(i); }
64 #define S55(i) { hash(55); hash(i); }
65 #define S56(i) { hash(56); hash(i); }
66 #define S57(i) { hash(57); hash(i); }
67 #define S58(i) { hash(58); hash(i); }
68 #define S59(i,j,k) { hash(59); hash(i); hash(j); hash(k); }
69 #define S60(i,j,k) { hash(60); hash(i); hash(j); hash(k); }
70 #define S61(i,j,k) { hash(61); hash(i); hash(j); hash(k); }
71 #define S62(i,j) { hash(62); hash(i); hash(j); }
72 #define S63(i,j) { hash(63); hash(i); hash(j); }
73 #define S64(i,j) { hash(64); hash(i); hash(j); }
74 #define S65(i,j) { hash(65); hash(i); hash(j); }
75 #define S66(i,j) { hash(66); hash(i); hash(j); }
76 #define S67(i,j) { hash(67); hash(i); hash(j); }
77 #define S68(i) { hash(68); hash(i); }
78 #define S69(i) { hash(69); hash(i); }
79 #define S70(i) { hash(70); hash(i); }
80 #define S71(i) { hash(71); hash(i); }
81 #define S72(i) { hash(72); hash(i); }
82 #define S73(i) { hash(73); hash(i); }
83 #define S74(i) { hash(74); hash(i); }
84 #define S75(i) { hash(75); hash(i); }
85 #define S76(i) { hash(76); hash(i); }
86 #define S77(i) { hash(77); hash(i); }
87 #define S78(i) { hash(78); hash(i); }
88 #define S79(i) { hash(79); hash(i); }
89 #define S80(i) { hash(80); hash(i); }
90 #define S81(i) { hash(81); hash(i); }
91 #define S82(i) { hash(82); hash(i); }
92 #define S83(i) { hash(83); hash(i); }
93 #define S84(i) { hash(84); hash(i); }
94 #define S85(i) { hash(85); hash(i); }
95 #define S86(i) { hash(86); hash(i); }
96 #define S87(i) { hash(87); hash(i); }
97 #define S88(i) { hash(88); hash(i); }
98 #define S89(i) { hash(89); hash(i); }
99 #define S90(i) { hash(90); hash(i); }
100 #define S91(i) { hash(91); hash(i); }
101 #define S92(i) { hash(92); hash(i); }
102 #define S93(i) { hash(93); hash(i); }
103 #define S94(i) { hash(94); hash(i); }
104 #define S95(i,j,k) { hash(95); hash(i); hash(j); hash(k); }
105 #define S96(i,j,k) { hash(96); hash(i); hash(j); hash(k); }
106 #define S97(i,j,k) { hash(97); hash(i); hash(j); hash(k); }
107 #define S98(i,j) { hash(98); hash(i); hash(j); }
108 #define S99(i) { hash(99); hash(i); }
109 #define S100(i) { hash(100); hash(i); }
110 #define S101(i) { hash(101); hash(i); }
111 #define S102(i,j,k) { hash(102); hash(i); hash(j); hash(k); }
112 #define S103(i,j,k) { hash(103); hash(i); hash(j); hash(k); }
113 #define S104(i,j,k) { hash(104); hash(i); hash(j); hash(k); }
114 #define S105(i,j,k) { hash(105); hash(i); hash(j); hash(k); }
115 #define S106(i,j,k) { hash(106); hash(i); hash(j); hash(k); }
116 #define S107(i,j,k) { hash(107); hash(i); hash(j); hash(k); }
117 #define S108(i,j) { hash(108); hash(i); hash(j); }
118 #define S109(i,j) { hash(109); hash(i); hash(j); }
119 #define S110(i,j) { hash(110); hash(i); hash(j); }
120 #define S111(i,j) { hash(111); hash(i); hash(j); }
121 #define S112(i,j) { hash(112); hash(i); hash(j); }
122 #define S113(i,j) { hash(113); hash(i); hash(j); }
123 #define S114(i,j) { hash(114); hash(i); hash(j); }
124 #define S115(i,j) { hash(115); hash(i); hash(j); }
125 #define S116(i,j) { hash(116); hash(i); hash(j); }
126 #define S117(i,j) { hash(117); hash(i); hash(j); }
127 #define S118(i,j) { hash(118); hash(i); hash(j); }
128 #define S119(i,j) { hash(119); hash(i); hash(j); }
129 #define S120(i) { hash(120); hash(i); }
130 #define S121(i) { hash(121); hash(i); }
131 #define S122(i) { hash(122); hash(i); }
132 #define S123(i) { hash(123); hash(i); }
133 #define S124(i) { hash(124); hash(i); }
134 #define S125(i) { hash(125); hash(i); }
136 void test(int M, int N, int O, int P, int Q, int R)
138 /* Scattering iterators. */
139 int p1, p3, p5;
140 /* Original iterators. */
141 int i, j, k;
142 if (M == 1) {
143 S1() ;
144 S2() ;
145 S3() ;
146 S4() ;
147 S5() ;
148 S6() ;
149 S7() ;
150 S8() ;
151 S9() ;
152 S10() ;
153 S11() ;
154 S12() ;
155 S13() ;
156 S14() ;
157 S15() ;
158 S16() ;
159 S17() ;
160 S18() ;
161 S19() ;
162 S20() ;
163 S21() ;
164 S22() ;
165 S23() ;
166 S24() ;
167 S25() ;
168 S26() ;
169 S27() ;
171 if (M == 1) {
172 for (p1=1;p1<=N;p1++) {
173 for (p3=1;p3<=N;p3++) {
174 S28(p1,p3) ;
175 S29(p1,p3) ;
176 S30(p1,p3) ;
178 S31(p1) ;
181 if (M == 1) {
182 S32() ;
183 S33() ;
184 S34() ;
186 if ((M == 1) && (O <= 1)) {
187 S35() ;
189 if (M == 1) {
190 S36() ;
191 S37() ;
193 if ((M == 1) && (N >= 1) && (Q >= 1) && (R >= 1)) {
194 for (p1=2;p1<=P;p1++) {
195 S38(p1) ;
196 S39(p1) ;
197 for (p3=1;p3<=Q;p3++) {
198 for (p5=1;p5<=R;p5++) {
199 S40(p1,p3,p5) ;
200 S41(p1,p3,p5) ;
201 S42(p1,p3,p5) ;
202 S43(p1,p3,p5) ;
205 for (p3=1;p3<=Q;p3++) {
206 S44(p1,p3) ;
207 S45(p1,p3) ;
208 S46(p1,p3) ;
209 S47(p1,p3) ;
211 for (p3=1;p3<=R;p3++) {
212 S48(p1,p3) ;
213 S49(p1,p3) ;
214 S50(p1,p3) ;
215 S51(p1,p3) ;
217 S52(p1) ;
218 S53(p1) ;
219 S54(p1) ;
220 S55(p1) ;
221 S56(p1) ;
222 S57(p1) ;
223 S58(p1) ;
224 for (p3=1;p3<=Q;p3++) {
225 for (p5=1;p5<=R;p5++) {
226 S59(p1,p3,p5) ;
227 S60(p1,p3,p5) ;
228 S61(p1,p3,p5) ;
231 for (p3=1;p3<=Q;p3++) {
232 S62(p1,p3) ;
233 S63(p1,p3) ;
234 S64(p1,p3) ;
236 for (p3=1;p3<=R;p3++) {
237 S65(p1,p3) ;
238 S66(p1,p3) ;
239 S67(p1,p3) ;
241 S68(p1) ;
242 S69(p1) ;
243 S70(p1) ;
244 S71(p1) ;
245 S72(p1) ;
246 S73(p1) ;
247 S74(p1) ;
248 S75(p1) ;
249 S76(p1) ;
250 S77(p1) ;
251 S78(p1) ;
252 S79(p1) ;
253 S80(p1) ;
254 S81(p1) ;
255 S82(p1) ;
256 S83(p1) ;
257 S84(p1) ;
258 S85(p1) ;
259 S86(p1) ;
260 S87(p1) ;
261 S88(p1) ;
262 S89(p1) ;
263 S90(p1) ;
264 S91(p1) ;
265 S92(p1) ;
266 S93(p1) ;
267 S94(p1) ;
268 for (p3=1;p3<=N;p3++) {
269 for (p5=1;p5<=N;p5++) {
270 S95(p1,p3,p5) ;
271 S96(p1,p3,p5) ;
272 S97(p1,p3,p5) ;
274 S98(p1,p3) ;
276 S99(p1) ;
277 S100(p1) ;
278 S101(p1) ;
279 for (p3=1;p3<=Q;p3++) {
280 for (p5=1;p5<=R;p5++) {
281 S102(p1,p3,p5) ;
282 S103(p1,p3,p5) ;
283 S104(p1,p3,p5) ;
284 S105(p1,p3,p5) ;
285 S106(p1,p3,p5) ;
286 S107(p1,p3,p5) ;
289 for (p3=1;p3<=Q;p3++) {
290 S108(p1,p3) ;
291 S109(p1,p3) ;
292 S110(p1,p3) ;
293 S111(p1,p3) ;
294 S112(p1,p3) ;
295 S113(p1,p3) ;
297 for (p3=1;p3<=R;p3++) {
298 S114(p1,p3) ;
299 S115(p1,p3) ;
300 S116(p1,p3) ;
301 S117(p1,p3) ;
302 S118(p1,p3) ;
303 S119(p1,p3) ;
305 S120(p1) ;
306 S121(p1) ;
307 S122(p1) ;
308 S123(p1) ;
309 S124(p1) ;
310 S125(p1) ;
313 if ((M == 1) && (N <= 0) && (Q >= 1) && (R >= 1)) {
314 for (p1=2;p1<=P;p1++) {
315 S38(p1) ;
316 S39(p1) ;
317 for (p3=1;p3<=Q;p3++) {
318 for (p5=1;p5<=R;p5++) {
319 S40(p1,p3,p5) ;
320 S41(p1,p3,p5) ;
321 S42(p1,p3,p5) ;
322 S43(p1,p3,p5) ;
325 for (p3=1;p3<=Q;p3++) {
326 S44(p1,p3) ;
327 S45(p1,p3) ;
328 S46(p1,p3) ;
329 S47(p1,p3) ;
331 for (p3=1;p3<=R;p3++) {
332 S48(p1,p3) ;
333 S49(p1,p3) ;
334 S50(p1,p3) ;
335 S51(p1,p3) ;
337 S52(p1) ;
338 S53(p1) ;
339 S54(p1) ;
340 S55(p1) ;
341 S56(p1) ;
342 S57(p1) ;
343 S58(p1) ;
344 for (p3=1;p3<=Q;p3++) {
345 for (p5=1;p5<=R;p5++) {
346 S59(p1,p3,p5) ;
347 S60(p1,p3,p5) ;
348 S61(p1,p3,p5) ;
351 for (p3=1;p3<=Q;p3++) {
352 S62(p1,p3) ;
353 S63(p1,p3) ;
354 S64(p1,p3) ;
356 for (p3=1;p3<=R;p3++) {
357 S65(p1,p3) ;
358 S66(p1,p3) ;
359 S67(p1,p3) ;
361 S68(p1) ;
362 S69(p1) ;
363 S70(p1) ;
364 S71(p1) ;
365 S72(p1) ;
366 S73(p1) ;
367 S74(p1) ;
368 S75(p1) ;
369 S76(p1) ;
370 S77(p1) ;
371 S78(p1) ;
372 S79(p1) ;
373 S80(p1) ;
374 S81(p1) ;
375 S82(p1) ;
376 S83(p1) ;
377 S84(p1) ;
378 S85(p1) ;
379 S86(p1) ;
380 S87(p1) ;
381 S88(p1) ;
382 S89(p1) ;
383 S90(p1) ;
384 S91(p1) ;
385 S92(p1) ;
386 S93(p1) ;
387 S94(p1) ;
388 S99(p1) ;
389 S100(p1) ;
390 S101(p1) ;
391 for (p3=1;p3<=Q;p3++) {
392 for (p5=1;p5<=R;p5++) {
393 S102(p1,p3,p5) ;
394 S103(p1,p3,p5) ;
395 S104(p1,p3,p5) ;
396 S105(p1,p3,p5) ;
397 S106(p1,p3,p5) ;
398 S107(p1,p3,p5) ;
401 for (p3=1;p3<=Q;p3++) {
402 S108(p1,p3) ;
403 S109(p1,p3) ;
404 S110(p1,p3) ;
405 S111(p1,p3) ;
406 S112(p1,p3) ;
407 S113(p1,p3) ;
409 for (p3=1;p3<=R;p3++) {
410 S114(p1,p3) ;
411 S115(p1,p3) ;
412 S116(p1,p3) ;
413 S117(p1,p3) ;
414 S118(p1,p3) ;
415 S119(p1,p3) ;
417 S120(p1) ;
418 S121(p1) ;
419 S122(p1) ;
420 S123(p1) ;
421 S124(p1) ;
422 S125(p1) ;
425 if ((M == 1) && (N >= 1) && (Q <= 0) && (R >= 1)) {
426 for (p1=2;p1<=P;p1++) {
427 S38(p1) ;
428 S39(p1) ;
429 for (p3=1;p3<=R;p3++) {
430 S48(p1,p3) ;
431 S49(p1,p3) ;
432 S50(p1,p3) ;
433 S51(p1,p3) ;
435 S52(p1) ;
436 S53(p1) ;
437 S54(p1) ;
438 S55(p1) ;
439 S56(p1) ;
440 S57(p1) ;
441 S58(p1) ;
442 for (p3=1;p3<=R;p3++) {
443 S65(p1,p3) ;
444 S66(p1,p3) ;
445 S67(p1,p3) ;
447 S68(p1) ;
448 S69(p1) ;
449 S70(p1) ;
450 S71(p1) ;
451 S72(p1) ;
452 S73(p1) ;
453 S74(p1) ;
454 S75(p1) ;
455 S76(p1) ;
456 S77(p1) ;
457 S78(p1) ;
458 S79(p1) ;
459 S80(p1) ;
460 S81(p1) ;
461 S82(p1) ;
462 S83(p1) ;
463 S84(p1) ;
464 S85(p1) ;
465 S86(p1) ;
466 S87(p1) ;
467 S88(p1) ;
468 S89(p1) ;
469 S90(p1) ;
470 S91(p1) ;
471 S92(p1) ;
472 S93(p1) ;
473 S94(p1) ;
474 for (p3=1;p3<=N;p3++) {
475 for (p5=1;p5<=N;p5++) {
476 S95(p1,p3,p5) ;
477 S96(p1,p3,p5) ;
478 S97(p1,p3,p5) ;
480 S98(p1,p3) ;
482 S99(p1) ;
483 S100(p1) ;
484 S101(p1) ;
485 for (p3=1;p3<=R;p3++) {
486 S114(p1,p3) ;
487 S115(p1,p3) ;
488 S116(p1,p3) ;
489 S117(p1,p3) ;
490 S118(p1,p3) ;
491 S119(p1,p3) ;
493 S120(p1) ;
494 S121(p1) ;
495 S122(p1) ;
496 S123(p1) ;
497 S124(p1) ;
498 S125(p1) ;
501 if ((M == 1) && (N <= 0) && (Q <= 0) && (R >= 1)) {
502 for (p1=2;p1<=P;p1++) {
503 S38(p1) ;
504 S39(p1) ;
505 for (p3=1;p3<=R;p3++) {
506 S48(p1,p3) ;
507 S49(p1,p3) ;
508 S50(p1,p3) ;
509 S51(p1,p3) ;
511 S52(p1) ;
512 S53(p1) ;
513 S54(p1) ;
514 S55(p1) ;
515 S56(p1) ;
516 S57(p1) ;
517 S58(p1) ;
518 for (p3=1;p3<=R;p3++) {
519 S65(p1,p3) ;
520 S66(p1,p3) ;
521 S67(p1,p3) ;
523 S68(p1) ;
524 S69(p1) ;
525 S70(p1) ;
526 S71(p1) ;
527 S72(p1) ;
528 S73(p1) ;
529 S74(p1) ;
530 S75(p1) ;
531 S76(p1) ;
532 S77(p1) ;
533 S78(p1) ;
534 S79(p1) ;
535 S80(p1) ;
536 S81(p1) ;
537 S82(p1) ;
538 S83(p1) ;
539 S84(p1) ;
540 S85(p1) ;
541 S86(p1) ;
542 S87(p1) ;
543 S88(p1) ;
544 S89(p1) ;
545 S90(p1) ;
546 S91(p1) ;
547 S92(p1) ;
548 S93(p1) ;
549 S94(p1) ;
550 S99(p1) ;
551 S100(p1) ;
552 S101(p1) ;
553 for (p3=1;p3<=R;p3++) {
554 S114(p1,p3) ;
555 S115(p1,p3) ;
556 S116(p1,p3) ;
557 S117(p1,p3) ;
558 S118(p1,p3) ;
559 S119(p1,p3) ;
561 S120(p1) ;
562 S121(p1) ;
563 S122(p1) ;
564 S123(p1) ;
565 S124(p1) ;
566 S125(p1) ;
569 if ((M == 1) && (N >= 1) && (Q <= 0) && (R <= 0)) {
570 for (p1=2;p1<=P;p1++) {
571 S38(p1) ;
572 S39(p1) ;
573 S52(p1) ;
574 S53(p1) ;
575 S54(p1) ;
576 S55(p1) ;
577 S56(p1) ;
578 S57(p1) ;
579 S58(p1) ;
580 S68(p1) ;
581 S69(p1) ;
582 S70(p1) ;
583 S71(p1) ;
584 S72(p1) ;
585 S73(p1) ;
586 S74(p1) ;
587 S75(p1) ;
588 S76(p1) ;
589 S77(p1) ;
590 S78(p1) ;
591 S79(p1) ;
592 S80(p1) ;
593 S81(p1) ;
594 S82(p1) ;
595 S83(p1) ;
596 S84(p1) ;
597 S85(p1) ;
598 S86(p1) ;
599 S87(p1) ;
600 S88(p1) ;
601 S89(p1) ;
602 S90(p1) ;
603 S91(p1) ;
604 S92(p1) ;
605 S93(p1) ;
606 S94(p1) ;
607 for (p3=1;p3<=N;p3++) {
608 for (p5=1;p5<=N;p5++) {
609 S95(p1,p3,p5) ;
610 S96(p1,p3,p5) ;
611 S97(p1,p3,p5) ;
613 S98(p1,p3) ;
615 S99(p1) ;
616 S100(p1) ;
617 S101(p1) ;
618 S120(p1) ;
619 S121(p1) ;
620 S122(p1) ;
621 S123(p1) ;
622 S124(p1) ;
623 S125(p1) ;
626 if ((M == 1) && (N <= 0) && (Q <= 0) && (R <= 0)) {
627 for (p1=2;p1<=P;p1++) {
628 S38(p1) ;
629 S39(p1) ;
630 S52(p1) ;
631 S53(p1) ;
632 S54(p1) ;
633 S55(p1) ;
634 S56(p1) ;
635 S57(p1) ;
636 S58(p1) ;
637 S68(p1) ;
638 S69(p1) ;
639 S70(p1) ;
640 S71(p1) ;
641 S72(p1) ;
642 S73(p1) ;
643 S74(p1) ;
644 S75(p1) ;
645 S76(p1) ;
646 S77(p1) ;
647 S78(p1) ;
648 S79(p1) ;
649 S80(p1) ;
650 S81(p1) ;
651 S82(p1) ;
652 S83(p1) ;
653 S84(p1) ;
654 S85(p1) ;
655 S86(p1) ;
656 S87(p1) ;
657 S88(p1) ;
658 S89(p1) ;
659 S90(p1) ;
660 S91(p1) ;
661 S92(p1) ;
662 S93(p1) ;
663 S94(p1) ;
664 S99(p1) ;
665 S100(p1) ;
666 S101(p1) ;
667 S120(p1) ;
668 S121(p1) ;
669 S122(p1) ;
670 S123(p1) ;
671 S124(p1) ;
672 S125(p1) ;
675 if ((M == 1) && (N >= 1) && (Q >= 1) && (R <= 0)) {
676 for (p1=2;p1<=P;p1++) {
677 S38(p1) ;
678 S39(p1) ;
679 for (p3=1;p3<=Q;p3++) {
680 S44(p1,p3) ;
681 S45(p1,p3) ;
682 S46(p1,p3) ;
683 S47(p1,p3) ;
685 S52(p1) ;
686 S53(p1) ;
687 S54(p1) ;
688 S55(p1) ;
689 S56(p1) ;
690 S57(p1) ;
691 S58(p1) ;
692 for (p3=1;p3<=Q;p3++) {
693 S62(p1,p3) ;
694 S63(p1,p3) ;
695 S64(p1,p3) ;
697 S68(p1) ;
698 S69(p1) ;
699 S70(p1) ;
700 S71(p1) ;
701 S72(p1) ;
702 S73(p1) ;
703 S74(p1) ;
704 S75(p1) ;
705 S76(p1) ;
706 S77(p1) ;
707 S78(p1) ;
708 S79(p1) ;
709 S80(p1) ;
710 S81(p1) ;
711 S82(p1) ;
712 S83(p1) ;
713 S84(p1) ;
714 S85(p1) ;
715 S86(p1) ;
716 S87(p1) ;
717 S88(p1) ;
718 S89(p1) ;
719 S90(p1) ;
720 S91(p1) ;
721 S92(p1) ;
722 S93(p1) ;
723 S94(p1) ;
724 for (p3=1;p3<=N;p3++) {
725 for (p5=1;p5<=N;p5++) {
726 S95(p1,p3,p5) ;
727 S96(p1,p3,p5) ;
728 S97(p1,p3,p5) ;
730 S98(p1,p3) ;
732 S99(p1) ;
733 S100(p1) ;
734 S101(p1) ;
735 for (p3=1;p3<=Q;p3++) {
736 S108(p1,p3) ;
737 S109(p1,p3) ;
738 S110(p1,p3) ;
739 S111(p1,p3) ;
740 S112(p1,p3) ;
741 S113(p1,p3) ;
743 S120(p1) ;
744 S121(p1) ;
745 S122(p1) ;
746 S123(p1) ;
747 S124(p1) ;
748 S125(p1) ;
751 if ((M == 1) && (N <= 0) && (Q >= 1) && (R <= 0)) {
752 for (p1=2;p1<=P;p1++) {
753 S38(p1) ;
754 S39(p1) ;
755 for (p3=1;p3<=Q;p3++) {
756 S44(p1,p3) ;
757 S45(p1,p3) ;
758 S46(p1,p3) ;
759 S47(p1,p3) ;
761 S52(p1) ;
762 S53(p1) ;
763 S54(p1) ;
764 S55(p1) ;
765 S56(p1) ;
766 S57(p1) ;
767 S58(p1) ;
768 for (p3=1;p3<=Q;p3++) {
769 S62(p1,p3) ;
770 S63(p1,p3) ;
771 S64(p1,p3) ;
773 S68(p1) ;
774 S69(p1) ;
775 S70(p1) ;
776 S71(p1) ;
777 S72(p1) ;
778 S73(p1) ;
779 S74(p1) ;
780 S75(p1) ;
781 S76(p1) ;
782 S77(p1) ;
783 S78(p1) ;
784 S79(p1) ;
785 S80(p1) ;
786 S81(p1) ;
787 S82(p1) ;
788 S83(p1) ;
789 S84(p1) ;
790 S85(p1) ;
791 S86(p1) ;
792 S87(p1) ;
793 S88(p1) ;
794 S89(p1) ;
795 S90(p1) ;
796 S91(p1) ;
797 S92(p1) ;
798 S93(p1) ;
799 S94(p1) ;
800 S99(p1) ;
801 S100(p1) ;
802 S101(p1) ;
803 for (p3=1;p3<=Q;p3++) {
804 S108(p1,p3) ;
805 S109(p1,p3) ;
806 S110(p1,p3) ;
807 S111(p1,p3) ;
808 S112(p1,p3) ;
809 S113(p1,p3) ;
811 S120(p1) ;
812 S121(p1) ;
813 S122(p1) ;
814 S123(p1) ;
815 S124(p1) ;
816 S125(p1) ;