test/dartef.f

   1 ! Generated from ./test/dartef.cloog by CLooG v0.14.0 64 bits in 0.13s.
   2 ! CLooG asked for 168 KBytes.
   3 IF (n >= 1) THEN
   4   t1 = -n+1
   5   t2 = n+1
   6   DO t3=n+3, 3*n+1
   7     IF (MOD(t3-n-1,2) == 0) THEN
   8       k = (t3-n-1)/2
   9       S1(i = 1,j = n)
  10     END IF
  11   END DO
  12 END IF
  13 IF ((n >= 2) .AND. (n <= 2)) THEN
  14   t1 = -n+2
  15   DO t2=-n+4, 3*n-2
  16     DO t3=t2+2, t2+2*n
  17       IF (MOD(t2-n+2,2) == 0) THEN
  18         i = (t2-n+2)/2
  19         IF (MOD(t2+n-2,2) == 0) THEN
  20           j = (t2+n-2)/2
  21           IF (MOD(-t2+t3,2) == 0) THEN
  22             k = (-t2+t3)/2
  23             S1
  24           END IF
  25         END IF
  26       END IF
  27     END DO
  28   END DO
  29   t2 = n+3
  30   DO t3=1, n
  31     S2(i = 1,j = n,k = t3)
  32   END DO
  33 END IF
  34 IF (n >= 3) THEN
  35   t1 = -n+2
  36   DO t2=n, n+2
  37     DO t3=t2+2, t2+2*n
  38       IF (MOD(t2-n+2,2) == 0) THEN
  39         i = (t2-n+2)/2
  40         IF (MOD(t2+n-2,2) == 0) THEN
  41           j = (t2+n-2)/2
  42           IF (MOD(-t2+t3,2) == 0) THEN
  43             k = (-t2+t3)/2
  44             S1
  45           END IF
  46         END IF
  47       END IF
  48     END DO
  49   END DO
  50   t2 = n+3
  51   DO t3=1, n
  52     S2(i = 1,j = n,k = t3)
  53   END DO
  54 END IF
  55 DO t1=CEILING(REAL(-2*n+5)/REAL(2)), MIN(-n+6,-1)
  56   DO t2=-t1+2, -t1+4
  57     DO t3=t2+2, t2+2*n
  58       IF (MOD(t1+t2,2) == 0) THEN
  59         i = (t1+t2)/2
  60         IF (MOD(-t1+t2,2) == 0) THEN
  61           j = (-t1+t2)/2
  62           IF (MOD(-t2+t3,2) == 0) THEN
  63             k = (-t2+t3)/2
  64             S1
  65           END IF
  66         END IF
  67       END IF
  68     END DO
  69   END DO
  70   DO t2=-t1+5, t1+2*n
  71     DO t3=1, n
  72       IF (MOD(t1+t2-3,2) == 0) THEN
  73         i = (t1+t2-3)/2
  74         IF (MOD(-t1+t2-1,2) == 0) THEN
  75           j = (-t1+t2-1)/2
  76           S2(k = t3)
  77         END IF
  78       END IF
  79     END DO
  80     DO t3=t2+2, t2+2*n
  81       IF (MOD(t1+t2,2) == 0) THEN
  82         i = (t1+t2)/2
  83         IF (MOD(-t1+t2,2) == 0) THEN
  84           j = (-t1+t2)/2
  85           IF (MOD(-t2+t3,2) == 0) THEN
  86             k = (-t2+t3)/2
  87             S1
  88           END IF
  89         END IF
  90       END IF
  91     END DO
  92   END DO
  93   t2 = t1+2*n+1
  94   DO t3=1, n
  95     i = t1+n-1
  96     S2(j = n,k = t3)
  97   END DO
  98 END DO
  99 IF (n == 2) THEN
 100   DO t3=5, 2*n+3
 101     IF (MOD(t3-3,2) == 0) THEN
 102       k = (t3-3)/2
 103       S1(i = 2,j = 1)
 104     END IF
 105   END DO
 106   DO t2=4, 6
 107     DO t3=1, n
 108       IF (MOD(t2-2,2) == 0) THEN
 109         i = (t2-2)/2
 110         IF (MOD(t2-2,2) == 0) THEN
 111           j = (t2-2)/2
 112           S2(k = t3)
 113         END IF
 114       END IF
 115     END DO
 116   END DO
 117 END IF
 118 DO t1=-n+7, -1
 119   DO t2=-t1+2, -t1+4
 120     DO t3=t2+2, t2+2*n
 121       IF (MOD(t1+t2,2) == 0) THEN
 122         i = (t1+t2)/2
 123         IF (MOD(-t1+t2,2) == 0) THEN
 124           j = (-t1+t2)/2
 125           IF (MOD(-t2+t3,2) == 0) THEN
 126             k = (-t2+t3)/2
 127             S1
 128           END IF
 129         END IF
 130       END IF
 131     END DO
 132   END DO
 133   DO t2=-t1+5, n-2
 134     DO t3=1, t2+1
 135       IF (MOD(t1+t2-3,2) == 0) THEN
 136         i = (t1+t2-3)/2
 137         IF (MOD(-t1+t2-1,2) == 0) THEN
 138           j = (-t1+t2-1)/2
 139           S2(k = t3)
 140         END IF
 141       END IF
 142     END DO
 143     DO t3=t2+2, n
 144       IF (MOD(t1+t2-3,2) == 0) THEN
 145         i = (t1+t2-3)/2
 146         IF (MOD(-t1+t2-1,2) == 0) THEN
 147           j = (-t1+t2-1)/2
 148           S2(k = t3)
 149         END IF
 150       END IF
 151       IF (MOD(t1+t2,2) == 0) THEN
 152         i = (t1+t2)/2
 153         IF (MOD(-t1+t2,2) == 0) THEN
 154           j = (-t1+t2)/2
 155           IF (MOD(-t2+t3,2) == 0) THEN
 156             k = (-t2+t3)/2
 157             S1
 158           END IF
 159         END IF
 160       END IF
 161     END DO
 162     DO t3=n+1, t2+2*n
 163       IF (MOD(t1+t2,2) == 0) THEN
 164         i = (t1+t2)/2
 165         IF (MOD(-t1+t2,2) == 0) THEN
 166           j = (-t1+t2)/2
 167           IF (MOD(-t2+t3,2) == 0) THEN
 168             k = (-t2+t3)/2
 169             S1
 170           END IF
 171         END IF
 172       END IF
 173     END DO
 174   END DO
 175   DO t2=n-1, t1+2*n
 176     DO t3=1, n
 177       IF (MOD(t1+t2-3,2) == 0) THEN
 178         i = (t1+t2-3)/2
 179         IF (MOD(-t1+t2-1,2) == 0) THEN
 180           j = (-t1+t2-1)/2
 181           S2(k = t3)
 182         END IF
 183       END IF
 184     END DO
 185     DO t3=t2+2, t2+2*n
 186       IF (MOD(t1+t2,2) == 0) THEN
 187         i = (t1+t2)/2
 188         IF (MOD(-t1+t2,2) == 0) THEN
 189           j = (-t1+t2)/2
 190           IF (MOD(-t2+t3,2) == 0) THEN
 191             k = (-t2+t3)/2
 192             S1
 193           END IF
 194         END IF
 195       END IF
 196     END DO
 197   END DO
 198   t2 = t1+2*n+1
 199   DO t3=1, n
 200     i = t1+n-1
 201     S2(j = n,k = t3)
 202   END DO
 203 END DO
 204 IF (n >= 3) THEN
 205   DO t1=0, MIN(1,-n+6)
 206     DO t2=t1+2, -t1+4
 207       DO t3=t2+2, t2+2*n
 208         IF (MOD(t1+t2,2) == 0) THEN
 209           i = (t1+t2)/2
 210           IF (MOD(-t1+t2,2) == 0) THEN
 211             j = (-t1+t2)/2
 212             IF (MOD(-t2+t3,2) == 0) THEN
 213               k = (-t2+t3)/2
 214               S1
 215             END IF
 216           END IF
 217         END IF
 218       END DO
 219     END DO
 220     DO t2=-t1+5, -t1+2*n
 221       DO t3=1, n
 222         IF (MOD(t1+t2-3,2) == 0) THEN
 223           i = (t1+t2-3)/2
 224           IF (MOD(-t1+t2-1,2) == 0) THEN
 225             j = (-t1+t2-1)/2
 226             S2(k = t3)
 227           END IF
 228         END IF
 229       END DO
 230       DO t3=t2+2, t2+2*n
 231         IF (MOD(t1+t2,2) == 0) THEN
 232           i = (t1+t2)/2
 233           IF (MOD(-t1+t2,2) == 0) THEN
 234             j = (-t1+t2)/2
 235             IF (MOD(-t2+t3,2) == 0) THEN
 236               k = (-t2+t3)/2
 237               S1
 238             END IF
 239           END IF
 240         END IF
 241       END DO
 242     END DO
 243     DO t2=-t1+2*n+1, t1+2*n+1
 244       DO t3=1, n
 245         IF (MOD(t1+t2-3,2) == 0) THEN
 246           i = (t1+t2-3)/2
 247           IF (MOD(-t1+t2-1,2) == 0) THEN
 248             j = (-t1+t2-1)/2
 249             S2(k = t3)
 250           END IF
 251         END IF
 252       END DO
 253     END DO
 254   END DO
 255 END IF
 256 DO t1=MAX(-n+7,0), 1
 257   DO t2=t1+2, -t1+4
 258     DO t3=t2+2, t2+2*n
 259       IF (MOD(t1+t2,2) == 0) THEN
 260         i = (t1+t2)/2
 261         IF (MOD(-t1+t2,2) == 0) THEN
 262           j = (-t1+t2)/2
 263           IF (MOD(-t2+t3,2) == 0) THEN
 264             k = (-t2+t3)/2
 265             S1
 266           END IF
 267         END IF
 268       END IF
 269     END DO
 270   END DO
 271   DO t2=-t1+5, n-2
 272     DO t3=1, t2+1
 273       IF (MOD(t1+t2-3,2) == 0) THEN
 274         i = (t1+t2-3)/2
 275         IF (MOD(-t1+t2-1,2) == 0) THEN
 276           j = (-t1+t2-1)/2
 277           S2(k = t3)
 278         END IF
 279       END IF
 280     END DO
 281     DO t3=t2+2, n
 282       IF (MOD(t1+t2-3,2) == 0) THEN
 283         i = (t1+t2-3)/2
 284         IF (MOD(-t1+t2-1,2) == 0) THEN
 285           j = (-t1+t2-1)/2
 286           S2(k = t3)
 287         END IF
 288       END IF
 289       IF (MOD(t1+t2,2) == 0) THEN
 290         i = (t1+t2)/2
 291         IF (MOD(-t1+t2,2) == 0) THEN
 292           j = (-t1+t2)/2
 293           IF (MOD(-t2+t3,2) == 0) THEN
 294             k = (-t2+t3)/2
 295             S1
 296           END IF
 297         END IF
 298       END IF
 299     END DO
 300     DO t3=n+1, t2+2*n
 301       IF (MOD(t1+t2,2) == 0) THEN
 302         i = (t1+t2)/2
 303         IF (MOD(-t1+t2,2) == 0) THEN
 304           j = (-t1+t2)/2
 305           IF (MOD(-t2+t3,2) == 0) THEN
 306             k = (-t2+t3)/2
 307             S1
 308           END IF
 309         END IF
 310       END IF
 311     END DO
 312   END DO
 313   DO t2=n-1, -t1+2*n
 314     DO t3=1, n
 315       IF (MOD(t1+t2-3,2) == 0) THEN
 316         i = (t1+t2-3)/2
 317         IF (MOD(-t1+t2-1,2) == 0) THEN
 318           j = (-t1+t2-1)/2
 319           S2(k = t3)
 320         END IF
 321       END IF
 322     END DO
 323     DO t3=t2+2, t2+2*n
 324       IF (MOD(t1+t2,2) == 0) THEN
 325         i = (t1+t2)/2
 326         IF (MOD(-t1+t2,2) == 0) THEN
 327           j = (-t1+t2)/2
 328           IF (MOD(-t2+t3,2) == 0) THEN
 329             k = (-t2+t3)/2
 330             S1
 331           END IF
 332         END IF
 333       END IF
 334     END DO
 335   END DO
 336   DO t2=-t1+2*n+1, t1+2*n+1
 337     DO t3=1, n
 338       IF (MOD(t1+t2-3,2) == 0) THEN
 339         i = (t1+t2-3)/2
 340         IF (MOD(-t1+t2-1,2) == 0) THEN
 341           j = (-t1+t2-1)/2
 342           S2(k = t3)
 343         END IF
 344       END IF
 345     END DO
 346   END DO
 347 END DO
 348 DO t1=2, n-5
 349   t2 = t1+2
 350   DO t3=t1+4, t1+2*n+2
 351     i = t1+1
 352     IF (MOD(-t1+t3-2,2) == 0) THEN
 353       k = (-t1+t3-2)/2
 354       S1(j = 1)
 355     END IF
 356   END DO
 357   DO t2=t1+3, n-2
 358     DO t3=1, t2+1
 359       IF (MOD(t1+t2-3,2) == 0) THEN
 360         i = (t1+t2-3)/2
 361         IF (MOD(-t1+t2-1,2) == 0) THEN
 362           j = (-t1+t2-1)/2
 363           S2(k = t3)
 364         END IF
 365       END IF
 366     END DO
 367     DO t3=t2+2, n
 368       IF (MOD(t1+t2-3,2) == 0) THEN
 369         i = (t1+t2-3)/2
 370         IF (MOD(-t1+t2-1,2) == 0) THEN
 371           j = (-t1+t2-1)/2
 372           S2(k = t3)
 373         END IF
 374       END IF
 375       IF (MOD(t1+t2,2) == 0) THEN
 376         i = (t1+t2)/2
 377         IF (MOD(-t1+t2,2) == 0) THEN
 378           j = (-t1+t2)/2
 379           IF (MOD(-t2+t3,2) == 0) THEN
 380             k = (-t2+t3)/2
 381             S1
 382           END IF
 383         END IF
 384       END IF
 385     END DO
 386     DO t3=n+1, t2+2*n
 387       IF (MOD(t1+t2,2) == 0) THEN
 388         i = (t1+t2)/2
 389         IF (MOD(-t1+t2,2) == 0) THEN
 390           j = (-t1+t2)/2
 391           IF (MOD(-t2+t3,2) == 0) THEN
 392             k = (-t2+t3)/2
 393             S1
 394           END IF
 395         END IF
 396       END IF
 397     END DO
 398   END DO
 399   DO t2=n-1, -t1+2*n
 400     DO t3=1, n
 401       IF (MOD(t1+t2-3,2) == 0) THEN
 402         i = (t1+t2-3)/2
 403         IF (MOD(-t1+t2-1,2) == 0) THEN
 404           j = (-t1+t2-1)/2
 405           S2(k = t3)
 406         END IF
 407       END IF
 408     END DO
 409     DO t3=t2+2, t2+2*n
 410       IF (MOD(t1+t2,2) == 0) THEN
 411         i = (t1+t2)/2
 412         IF (MOD(-t1+t2,2) == 0) THEN
 413           j = (-t1+t2)/2
 414           IF (MOD(-t2+t3,2) == 0) THEN
 415             k = (-t2+t3)/2
 416             S1
 417           END IF
 418         END IF
 419       END IF
 420     END DO
 421   END DO
 422   DO t2=-t1+2*n+1, -t1+2*n+3
 423     DO t3=1, n
 424       IF (MOD(t1+t2-3,2) == 0) THEN
 425         i = (t1+t2-3)/2
 426         IF (MOD(-t1+t2-1,2) == 0) THEN
 427           j = (-t1+t2-1)/2
 428           S2(k = t3)
 429         END IF
 430       END IF
 431     END DO
 432   END DO
 433 END DO
 434 DO t1=MAX(2,n-4), FLOOR(REAL(2*n-3)/REAL(2))
 435   t2 = t1+2
 436   DO t3=t1+4, t1+2*n+2
 437     i = t1+1
 438     IF (MOD(-t1+t3-2,2) == 0) THEN
 439       k = (-t1+t3-2)/2
 440       S1(j = 1)
 441     END IF
 442   END DO
 443   DO t2=t1+3, -t1+2*n
 444     DO t3=1, n
 445       IF (MOD(t1+t2-3,2) == 0) THEN
 446         i = (t1+t2-3)/2
 447         IF (MOD(-t1+t2-1,2) == 0) THEN
 448           j = (-t1+t2-1)/2
 449           S2(k = t3)
 450         END IF
 451       END IF
 452     END DO
 453     DO t3=t2+2, t2+2*n
 454       IF (MOD(t1+t2,2) == 0) THEN
 455         i = (t1+t2)/2
 456         IF (MOD(-t1+t2,2) == 0) THEN
 457           j = (-t1+t2)/2
 458           IF (MOD(-t2+t3,2) == 0) THEN
 459             k = (-t2+t3)/2
 460             S1
 461           END IF
 462         END IF
 463       END IF
 464     END DO
 465   END DO
 466   DO t2=-t1+2*n+1, -t1+2*n+3
 467     DO t3=1, n
 468       IF (MOD(t1+t2-3,2) == 0) THEN
 469         i = (t1+t2-3)/2
 470         IF (MOD(-t1+t2-1,2) == 0) THEN
 471           j = (-t1+t2-1)/2
 472           S2(k = t3)
 473         END IF
 474       END IF
 475     END DO
 476   END DO
 477 END DO
 478 IF (n >= 3) THEN
 479   t1 = n-1
 480   t2 = n+1
 481   DO t3=n+3, 3*n+1
 482     IF (MOD(t3-n-1,2) == 0) THEN
 483       k = (t3-n-1)/2
 484       S1(i = n,j = 1)
 485     END IF
 486   END DO
 487   DO t2=n+2, n+4
 488     DO t3=1, n
 489       IF (MOD(t2+n-4,2) == 0) THEN
 490         i = (t2+n-4)/2
 491         IF (MOD(t2-n,2) == 0) THEN
 492           j = (t2-n)/2
 493           S2(k = t3)
 494         END IF
 495       END IF
 496     END DO
 497   END DO
 498 END IF
 499 IF (n >= 1) THEN
 500   t2 = n+3
 501   DO t3=1, n
 502     S2(i = n,j = 1,k = t3)
 503   END DO
 504 END IF