test/dartef.f.ppl

   1 ! Generated from dartef.cloog by CLooG  64 bits in 2.50s.
   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 >= 3) THEN
  13   t1 = -n+2
  14   DO t2=n, 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,-1)
  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, -1
  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=0, 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+1
 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   END DO
 184 END IF
 185 DO t1=MAX(-n+7,0), 1
 186   DO t2=-t1+5, n-2
 187     DO t3=1, t2+1
 188       IF (MOD(t1+t2+1, 2) == 0) THEN
 189         i = (t1+t2-3)/2
 190         j = (-t1+t2-1)/2
 191         S2(k = t3)
 192       END IF
 193     END DO
 194     DO t3=t2+2, n
 195       IF (MOD(t1+t2+1, 2) == 0) THEN
 196         i = (t1+t2-3)/2
 197         j = (-t1+t2-1)/2
 198         S2(k = t3)
 199       END IF
 200       IF (MOD(t1+t2, 2) == 0) THEN
 201         i = (t1+t2)/2
 202         j = (-t1+t2)/2
 203         IF (MOD(t1+t3, 2) == 0) THEN
 204           k = (-t2+t3)/2
 205           S1
 206         END IF
 207       END IF
 208     END DO
 209     DO t3=n+1, t2+2*n
 210       IF (MOD(t1+t2, 2) == 0) THEN
 211         i = (t1+t2)/2
 212         j = (-t1+t2)/2
 213         IF (MOD(t1+t3, 2) == 0) THEN
 214           k = (-t2+t3)/2
 215           S1
 216         END IF
 217       END IF
 218     END DO
 219   END DO
 220   DO t2=n-1, -t1+2*n
 221     DO t3=1, n
 222       IF (MOD(t1+t2+1, 2) == 0) THEN
 223         i = (t1+t2-3)/2
 224         j = (-t1+t2-1)/2
 225         S2(k = t3)
 226       END IF
 227     END DO
 228     DO t3=t2+2, t2+2*n
 229       IF (MOD(t1+t2, 2) == 0) THEN
 230         i = (t1+t2)/2
 231         j = (-t1+t2)/2
 232         IF (MOD(t1+t3, 2) == 0) THEN
 233           k = (-t2+t3)/2
 234           S1
 235         END IF
 236       END IF
 237     END DO
 238   END DO
 239   DO t2=t1+2, -t1+4
 240     DO t3=t2+2, t2+2*n
 241       IF (MOD(t1+t2, 2) == 0) THEN
 242         i = (t1+t2)/2
 243         j = (-t1+t2)/2
 244         IF (MOD(t1+t3, 2) == 0) THEN
 245           k = (-t2+t3)/2
 246           S1
 247         END IF
 248       END IF
 249     END DO
 250   END DO
 251   DO t2=-t1+2*n+1, t1+2*n+1
 252     DO t3=1, n
 253       IF (MOD(t1+t2+1, 2) == 0) THEN
 254         i = (t1+t2-3)/2
 255         j = (-t1+t2-1)/2
 256         S2(k = t3)
 257       END IF
 258     END DO
 259   END DO
 260 END DO
 261 DO t1=2, n-5
 262   t2 = t1+2
 263   DO t3=t1+4, t1+2*n+2
 264     i = t1+1
 265     IF (MOD(t1+t3, 2) == 0) THEN
 266       k = (-t1+t3-2)/2
 267       S1(j = 1)
 268     END IF
 269   END DO
 270   DO t2=t1+3, n-2
 271     DO t3=1, t2+1
 272       IF (MOD(t1+t2+1, 2) == 0) THEN
 273         i = (t1+t2-3)/2
 274         j = (-t1+t2-1)/2
 275         S2(k = t3)
 276       END IF
 277     END DO
 278     DO t3=t2+2, n
 279       IF (MOD(t1+t2+1, 2) == 0) THEN
 280         i = (t1+t2-3)/2
 281         j = (-t1+t2-1)/2
 282         S2(k = t3)
 283       END IF
 284       IF (MOD(t1+t2, 2) == 0) THEN
 285         i = (t1+t2)/2
 286         j = (-t1+t2)/2
 287         IF (MOD(t1+t3, 2) == 0) THEN
 288           k = (-t2+t3)/2
 289           S1
 290         END IF
 291       END IF
 292     END DO
 293     DO t3=n+1, t2+2*n
 294       IF (MOD(t1+t2, 2) == 0) THEN
 295         i = (t1+t2)/2
 296         j = (-t1+t2)/2
 297         IF (MOD(t1+t3, 2) == 0) THEN
 298           k = (-t2+t3)/2
 299           S1
 300         END IF
 301       END IF
 302     END DO
 303   END DO
 304   DO t2=n-1, -t1+2*n
 305     DO t3=1, n
 306       IF (MOD(t1+t2+1, 2) == 0) THEN
 307         i = (t1+t2-3)/2
 308         j = (-t1+t2-1)/2
 309         S2(k = t3)
 310       END IF
 311     END DO
 312     DO t3=t2+2, t2+2*n
 313       IF (MOD(t1+t2, 2) == 0) THEN
 314         i = (t1+t2)/2
 315         j = (-t1+t2)/2
 316         IF (MOD(t1+t3, 2) == 0) THEN
 317           k = (-t2+t3)/2
 318           S1
 319         END IF
 320       END IF
 321     END DO
 322   END DO
 323   DO t2=-t1+2*n+1, -t1+2*n+3
 324     DO t3=1, n
 325       IF (MOD(t1+t2+1, 2) == 0) THEN
 326         i = (t1+t2-3)/2
 327         j = (-t1+t2-1)/2
 328         S2(k = t3)
 329       END IF
 330     END DO
 331   END DO
 332 END DO
 333 IF (n >= 3) THEN
 334   t1 = n-1
 335   t2 = n+1
 336   DO t3=n+3, 3*n+1
 337     IF (MOD(t3+n+1, 2) == 0) THEN
 338       k = (t3-n-1)/2
 339       S1(i = n,j = 1)
 340     END IF
 341   END DO
 342   DO t2=n+2, n+4
 343     DO t3=1, n
 344       IF (MOD(t2+n, 2) == 0) THEN
 345         i = (t2+n-4)/2
 346         j = (t2-n)/2
 347         S2(k = t3)
 348       END IF
 349     END DO
 350   END DO
 351 END IF
 352 IF ((n >= 2) .AND. (n <= 2)) THEN
 353   t1 = -n+2
 354   DO t2=-n+4, 3*n-2
 355     DO t3=t2+2, t2+2*n
 356       IF (MOD(t2+n, 2) == 0) THEN
 357         i = (t2-n+2)/2
 358         j = (t2+n-2)/2
 359         IF (MOD(t3+n, 2) == 0) THEN
 360           k = (-t2+t3)/2
 361           S1
 362         END IF
 363       END IF
 364     END DO
 365   END DO
 366   t2 = n+3
 367   DO t3=1, n
 368     S2(i = 1,j = n,k = t3)
 369   END DO
 370 END IF
 371 DO t1=MAX(n-4,2), FLOOR(REAL(2*n-3)/REAL(2))
 372   t2 = t1+2
 373   DO t3=t1+4, t1+2*n+2
 374     i = t1+1
 375     IF (MOD(t1+t3, 2) == 0) THEN
 376       k = (-t1+t3-2)/2
 377       S1(j = 1)
 378     END IF
 379   END DO
 380   DO t2=t1+3, -t1+2*n
 381     DO t3=1, n
 382       IF (MOD(t1+t2+1, 2) == 0) THEN
 383         i = (t1+t2-3)/2
 384         j = (-t1+t2-1)/2
 385         S2(k = t3)
 386       END IF
 387     END DO
 388     DO t3=t2+2, t2+2*n
 389       IF (MOD(t1+t2, 2) == 0) THEN
 390         i = (t1+t2)/2
 391         j = (-t1+t2)/2
 392         IF (MOD(t1+t3, 2) == 0) THEN
 393           k = (-t2+t3)/2
 394           S1
 395         END IF
 396       END IF
 397     END DO
 398   END DO
 399   DO t2=-t1+2*n+1, -t1+2*n+3
 400     DO t3=1, n
 401       IF (MOD(t1+t2+1, 2) == 0) THEN
 402         i = (t1+t2-3)/2
 403         j = (-t1+t2-1)/2
 404         S2(k = t3)
 405       END IF
 406     END DO
 407   END DO
 408 END DO
 409 IF (n == 2) THEN
 410   DO t3=5, 7
 411     IF (MOD(t3+1, 2) == 0) THEN
 412       k = (t3-3)/2
 413       S1(i = 2,j = 1)
 414     END IF
 415   END DO
 416   DO t2=4, 6
 417     DO t3=1, 2
 418       IF (MOD(t2, 2) == 0) THEN
 419         i = (t2-2)/2
 420         j = (t2-2)/2
 421         S2(k = t3)
 422       END IF
 423     END DO
 424   END DO
 425 END IF
 426 IF (n >= 1) THEN
 427   t2 = n+3
 428   DO t3=1, n
 429     S2(i = n,j = 1,k = t3)
 430   END DO
 431 END IF