test/polylib/dartef.f

   1 ! Generated from ../../../git/cloog/test/dartef.cloog by CLooG 0.14.0-136-gb91ef26 gmp bits in 0.29s.
   2 IF (n >= 1) THEN
   3   DO t3=n+3, 3*n+1
   4     IF (MOD(t3+n+1, 2) == 0) THEN
   5       S1(1,n,(t3-n-1)/2)
   6     END IF
   7   END DO
   8   IF ((n <= 2) .AND. (n >= 2)) THEN
   9     DO t2=-n+4, 3*n-2
  10       DO t3=t2+2, t2+2*n
  11         IF (MOD(t2+n, 2) == 0) THEN
  12           IF (MOD(t3+n, 2) == 0) THEN
  13             S1((t2-n+2)/2,(t2+n-2)/2,(-t2+t3)/2)
  14           END IF
  15         END IF
  16       END DO
  17     END DO
  18     DO t3=1, n
  19       S2(1,n,t3)
  20     END DO
  21   END IF
  22   IF (n >= 3) THEN
  23     DO t2=n, n+2
  24       DO t3=t2+2, t2+2*n
  25         IF (MOD(t2+n, 2) == 0) THEN
  26           IF (MOD(t3+n, 2) == 0) THEN
  27             S1((t2-n+2)/2,(t2+n-2)/2,(-t2+t3)/2)
  28           END IF
  29         END IF
  30       END DO
  31     END DO
  32     DO t3=1, n
  33       S2(1,n,t3)
  34     END DO
  35   END IF
  36   DO t1=CEILING(REAL(-2*n+5)/REAL(2)), MIN(-1,-n+6)
  37     DO t2=-t1+2, -t1+4
  38       DO t3=t2+2, t2+2*n
  39         IF (MOD(t1+t2, 2) == 0) THEN
  40           IF (MOD(t1+t3, 2) == 0) THEN
  41             S1((t1+t2)/2,(-t1+t2)/2,(-t2+t3)/2)
  42           END IF
  43         END IF
  44       END DO
  45     END DO
  46     DO t2=-t1+5, t1+2*n
  47       DO t3=1, n
  48         IF (MOD(t1+t2+1, 2) == 0) THEN
  49           S2((t1+t2-3)/2,(-t1+t2-1)/2,t3)
  50         END IF
  51       END DO
  52       DO t3=t2+2, t2+2*n
  53         IF (MOD(t1+t2, 2) == 0) THEN
  54           IF (MOD(t1+t3, 2) == 0) THEN
  55             S1((t1+t2)/2,(-t1+t2)/2,(-t2+t3)/2)
  56           END IF
  57         END IF
  58       END DO
  59     END DO
  60     DO t3=1, n
  61       S2(t1+n-1,n,t3)
  62     END DO
  63   END DO
  64   IF (n == 2) THEN
  65     DO t3=5, 7
  66       IF (MOD(t3+1, 2) == 0) THEN
  67         S1(2,1,(t3-3)/2)
  68       END IF
  69     END DO
  70     DO t2=4, 6
  71       DO t3=1, 2
  72         IF (MOD(t2, 2) == 0) THEN
  73           S2((t2-2)/2,(t2-2)/2,t3)
  74         END IF
  75       END DO
  76     END DO
  77   END IF
  78   DO t1=-n+7, -1
  79     DO t2=-t1+2, -t1+4
  80       DO t3=t2+2, t2+2*n
  81         IF (MOD(t1+t2, 2) == 0) THEN
  82           IF (MOD(t1+t3, 2) == 0) THEN
  83             S1((t1+t2)/2,(-t1+t2)/2,(-t2+t3)/2)
  84           END IF
  85         END IF
  86       END DO
  87     END DO
  88     DO t2=-t1+5, n-2
  89       DO t3=1, t2+1
  90         IF (MOD(t1+t2+1, 2) == 0) THEN
  91           S2((t1+t2-3)/2,(-t1+t2-1)/2,t3)
  92         END IF
  93       END DO
  94       DO t3=t2+2, n
  95         IF (MOD(t1+t2+1, 2) == 0) THEN
  96           S2((t1+t2-3)/2,(-t1+t2-1)/2,t3)
  97         END IF
  98         IF (MOD(t1+t2, 2) == 0) THEN
  99           IF (MOD(t1+t3, 2) == 0) THEN
 100             S1((t1+t2)/2,(-t1+t2)/2,(-t2+t3)/2)
 101           END IF
 102         END IF
 103       END DO
 104       DO t3=n+1, t2+2*n
 105         IF (MOD(t1+t2, 2) == 0) THEN
 106           IF (MOD(t1+t3, 2) == 0) THEN
 107             S1((t1+t2)/2,(-t1+t2)/2,(-t2+t3)/2)
 108           END IF
 109         END IF
 110       END DO
 111     END DO
 112     DO t2=n-1, t1+2*n
 113       DO t3=1, n
 114         IF (MOD(t1+t2+1, 2) == 0) THEN
 115           S2((t1+t2-3)/2,(-t1+t2-1)/2,t3)
 116         END IF
 117       END DO
 118       DO t3=t2+2, t2+2*n
 119         IF (MOD(t1+t2, 2) == 0) THEN
 120           IF (MOD(t1+t3, 2) == 0) THEN
 121             S1((t1+t2)/2,(-t1+t2)/2,(-t2+t3)/2)
 122           END IF
 123         END IF
 124       END DO
 125     END DO
 126     DO t3=1, n
 127       S2(t1+n-1,n,t3)
 128     END DO
 129   END DO
 130   IF (n >= 3) THEN
 131     DO t1=0, MIN(1,-n+6)
 132       DO t2=t1+2, -t1+4
 133         DO t3=t2+2, t2+2*n
 134           IF (MOD(t1+t2, 2) == 0) THEN
 135             IF (MOD(t1+t3, 2) == 0) THEN
 136               S1((t1+t2)/2,(-t1+t2)/2,(-t2+t3)/2)
 137             END IF
 138           END IF
 139         END DO
 140       END DO
 141       DO t2=-t1+5, -t1+2*n
 142         DO t3=1, n
 143           IF (MOD(t1+t2+1, 2) == 0) THEN
 144             S2((t1+t2-3)/2,(-t1+t2-1)/2,t3)
 145           END IF
 146         END DO
 147         DO t3=t2+2, t2+2*n
 148           IF (MOD(t1+t2, 2) == 0) THEN
 149             IF (MOD(t1+t3, 2) == 0) THEN
 150               S1((t1+t2)/2,(-t1+t2)/2,(-t2+t3)/2)
 151             END IF
 152           END IF
 153         END DO
 154       END DO
 155       DO t2=-t1+2*n+1, t1+2*n+1
 156         DO t3=1, n
 157           IF (MOD(t1+t2+1, 2) == 0) THEN
 158             S2((t1+t2-3)/2,(-t1+t2-1)/2,t3)
 159           END IF
 160         END DO
 161       END DO
 162     END DO
 163   END IF
 164   DO t1=MAX(0,-n+7), 1
 165     DO t2=t1+2, -t1+4
 166       DO t3=t2+2, t2+2*n
 167         IF (MOD(t1+t2, 2) == 0) THEN
 168           IF (MOD(t1+t3, 2) == 0) THEN
 169             S1((t1+t2)/2,(-t1+t2)/2,(-t2+t3)/2)
 170           END IF
 171         END IF
 172       END DO
 173     END DO
 174     DO t2=-t1+5, n-2
 175       DO t3=1, t2+1
 176         IF (MOD(t1+t2+1, 2) == 0) THEN
 177           S2((t1+t2-3)/2,(-t1+t2-1)/2,t3)
 178         END IF
 179       END DO
 180       DO t3=t2+2, n
 181         IF (MOD(t1+t2+1, 2) == 0) THEN
 182           S2((t1+t2-3)/2,(-t1+t2-1)/2,t3)
 183         END IF
 184         IF (MOD(t1+t2, 2) == 0) THEN
 185           IF (MOD(t1+t3, 2) == 0) THEN
 186             S1((t1+t2)/2,(-t1+t2)/2,(-t2+t3)/2)
 187           END IF
 188         END IF
 189       END DO
 190       DO t3=n+1, t2+2*n
 191         IF (MOD(t1+t2, 2) == 0) THEN
 192           IF (MOD(t1+t3, 2) == 0) THEN
 193             S1((t1+t2)/2,(-t1+t2)/2,(-t2+t3)/2)
 194           END IF
 195         END IF
 196       END DO
 197     END DO
 198     DO t2=n-1, -t1+2*n
 199       DO t3=1, n
 200         IF (MOD(t1+t2+1, 2) == 0) THEN
 201           S2((t1+t2-3)/2,(-t1+t2-1)/2,t3)
 202         END IF
 203       END DO
 204       DO t3=t2+2, t2+2*n
 205         IF (MOD(t1+t2, 2) == 0) THEN
 206           IF (MOD(t1+t3, 2) == 0) THEN
 207             S1((t1+t2)/2,(-t1+t2)/2,(-t2+t3)/2)
 208           END IF
 209         END IF
 210       END DO
 211     END DO
 212     DO t2=-t1+2*n+1, t1+2*n+1
 213       DO t3=1, n
 214         IF (MOD(t1+t2+1, 2) == 0) THEN
 215           S2((t1+t2-3)/2,(-t1+t2-1)/2,t3)
 216         END IF
 217       END DO
 218     END DO
 219   END DO
 220   DO t1=2, n-5
 221     DO t3=t1+4, t1+2*n+2
 222       IF (MOD(t1+t3, 2) == 0) THEN
 223         S1(t1+1,1,(-t1+t3-2)/2)
 224       END IF
 225     END DO
 226     DO t2=t1+3, n-2
 227       DO t3=1, t2+1
 228         IF (MOD(t1+t2+1, 2) == 0) THEN
 229           S2((t1+t2-3)/2,(-t1+t2-1)/2,t3)
 230         END IF
 231       END DO
 232       DO t3=t2+2, n
 233         IF (MOD(t1+t2+1, 2) == 0) THEN
 234           S2((t1+t2-3)/2,(-t1+t2-1)/2,t3)
 235         END IF
 236         IF (MOD(t1+t2, 2) == 0) THEN
 237           IF (MOD(t1+t3, 2) == 0) THEN
 238             S1((t1+t2)/2,(-t1+t2)/2,(-t2+t3)/2)
 239           END IF
 240         END IF
 241       END DO
 242       DO t3=n+1, t2+2*n
 243         IF (MOD(t1+t2, 2) == 0) THEN
 244           IF (MOD(t1+t3, 2) == 0) THEN
 245             S1((t1+t2)/2,(-t1+t2)/2,(-t2+t3)/2)
 246           END IF
 247         END IF
 248       END DO
 249     END DO
 250     DO t2=n-1, -t1+2*n
 251       DO t3=1, n
 252         IF (MOD(t1+t2+1, 2) == 0) THEN
 253           S2((t1+t2-3)/2,(-t1+t2-1)/2,t3)
 254         END IF
 255       END DO
 256       DO t3=t2+2, t2+2*n
 257         IF (MOD(t1+t2, 2) == 0) THEN
 258           IF (MOD(t1+t3, 2) == 0) THEN
 259             S1((t1+t2)/2,(-t1+t2)/2,(-t2+t3)/2)
 260           END IF
 261         END IF
 262       END DO
 263     END DO
 264     DO t2=-t1+2*n+1, -t1+2*n+3
 265       DO t3=1, n
 266         IF (MOD(t1+t2+1, 2) == 0) THEN
 267           S2((t1+t2-3)/2,(-t1+t2-1)/2,t3)
 268         END IF
 269       END DO
 270     END DO
 271   END DO
 272   DO t1=MAX(2,n-4), FLOOR(REAL(2*n-3)/REAL(2))
 273     DO t3=t1+4, t1+2*n+2
 274       IF (MOD(t1+t3, 2) == 0) THEN
 275         S1(t1+1,1,(-t1+t3-2)/2)
 276       END IF
 277     END DO
 278     DO t2=t1+3, -t1+2*n
 279       DO t3=1, n
 280         IF (MOD(t1+t2+1, 2) == 0) THEN
 281           S2((t1+t2-3)/2,(-t1+t2-1)/2,t3)
 282         END IF
 283       END DO
 284       DO t3=t2+2, t2+2*n
 285         IF (MOD(t1+t2, 2) == 0) THEN
 286           IF (MOD(t1+t3, 2) == 0) THEN
 287             S1((t1+t2)/2,(-t1+t2)/2,(-t2+t3)/2)
 288           END IF
 289         END IF
 290       END DO
 291     END DO
 292     DO t2=-t1+2*n+1, -t1+2*n+3
 293       DO t3=1, n
 294         IF (MOD(t1+t2+1, 2) == 0) THEN
 295           S2((t1+t2-3)/2,(-t1+t2-1)/2,t3)
 296         END IF
 297       END DO
 298     END DO
 299   END DO
 300   IF (n >= 3) THEN
 301     DO t3=n+3, 3*n+1
 302       IF (MOD(t3+n+1, 2) == 0) THEN
 303         S1(n,1,(t3-n-1)/2)
 304       END IF
 305     END DO
 306     DO t2=n+2, n+4
 307       DO t3=1, n
 308         IF (MOD(t2+n, 2) == 0) THEN
 309           S2((t2+n-4)/2,(t2-n)/2,t3)
 310         END IF
 311       END DO
 312     END DO
 313   END IF
 314   DO t3=1, n
 315     S2(n,1,t3)
 316   END DO
 317 END IF