test/dartef.f.ppl

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