1/* Generated from ../../../git/cloog/test/swim.cloog by CLooG 0.14.0-72-gefe2fc2 gmp bits in 0.70s. */
2extern void hash(int);
3
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))
9
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); }
135
136void test(int M, int N, int O, int P, int Q, int R)
137{
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() ;
170  }
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) ;
177      }
178      S31(p1) ;
179    }
180  }
181  if (M == 1) {
182    S32() ;
183    S33() ;
184    S34() ;
185  }
186  if ((M == 1) && (O <= 1)) {
187    S35() ;
188  }
189  if (M == 1) {
190    S36() ;
191    S37() ;
192  }
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) ;
203        }
204      }
205      for (p3=1;p3<=Q;p3++) {
206        S44(p1,p3) ;
207        S45(p1,p3) ;
208        S46(p1,p3) ;
209        S47(p1,p3) ;
210      }
211      for (p3=1;p3<=R;p3++) {
212        S48(p1,p3) ;
213        S49(p1,p3) ;
214        S50(p1,p3) ;
215        S51(p1,p3) ;
216      }
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) ;
229        }
230      }
231      for (p3=1;p3<=Q;p3++) {
232        S62(p1,p3) ;
233        S63(p1,p3) ;
234        S64(p1,p3) ;
235      }
236      for (p3=1;p3<=R;p3++) {
237        S65(p1,p3) ;
238        S66(p1,p3) ;
239        S67(p1,p3) ;
240      }
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) ;
273        }
274        S98(p1,p3) ;
275      }
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) ;
287        }
288      }
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) ;
296      }
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) ;
304      }
305      S120(p1) ;
306      S121(p1) ;
307      S122(p1) ;
308      S123(p1) ;
309      S124(p1) ;
310      S125(p1) ;
311    }
312  }
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) ;
323        }
324      }
325      for (p3=1;p3<=Q;p3++) {
326        S44(p1,p3) ;
327        S45(p1,p3) ;
328        S46(p1,p3) ;
329        S47(p1,p3) ;
330      }
331      for (p3=1;p3<=R;p3++) {
332        S48(p1,p3) ;
333        S49(p1,p3) ;
334        S50(p1,p3) ;
335        S51(p1,p3) ;
336      }
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) ;
349        }
350      }
351      for (p3=1;p3<=Q;p3++) {
352        S62(p1,p3) ;
353        S63(p1,p3) ;
354        S64(p1,p3) ;
355      }
356      for (p3=1;p3<=R;p3++) {
357        S65(p1,p3) ;
358        S66(p1,p3) ;
359        S67(p1,p3) ;
360      }
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) ;
399        }
400      }
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) ;
408      }
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) ;
416      }
417      S120(p1) ;
418      S121(p1) ;
419      S122(p1) ;
420      S123(p1) ;
421      S124(p1) ;
422      S125(p1) ;
423    }
424  }
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) ;
434      }
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) ;
446      }
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) ;
479        }
480        S98(p1,p3) ;
481      }
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) ;
492      }
493      S120(p1) ;
494      S121(p1) ;
495      S122(p1) ;
496      S123(p1) ;
497      S124(p1) ;
498      S125(p1) ;
499    }
500  }
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) ;
510      }
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) ;
522      }
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) ;
560      }
561      S120(p1) ;
562      S121(p1) ;
563      S122(p1) ;
564      S123(p1) ;
565      S124(p1) ;
566      S125(p1) ;
567    }
568  }
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) ;
612        }
613        S98(p1,p3) ;
614      }
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) ;
624    }
625  }
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) ;
673    }
674  }
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) ;
684      }
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) ;
696      }
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) ;
729        }
730        S98(p1,p3) ;
731      }
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) ;
742      }
743      S120(p1) ;
744      S121(p1) ;
745      S122(p1) ;
746      S123(p1) ;
747      S124(p1) ;
748      S125(p1) ;
749    }
750  }
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) ;
760      }
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) ;
772      }
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) ;
810      }
811      S120(p1) ;
812      S121(p1) ;
813      S122(p1) ;
814      S123(p1) ;
815      S124(p1) ;
816      S125(p1) ;
817    }
818  }
819}
820