test/swim.good.c

   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);
   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
 136 void 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 }