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