test/dartef.f

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