test/openscop/loops.c

   1 /* Generated from ./openscop/loops.scop by CLooG 0.18.3 gmp bits in 0.04s. */
   2 /* Useful macros. */
   3 #define floord(n,d) (((n)<0) ? -((-(n)+(d)-1)/(d)) : (n)/(d))
   4 #define ceild(n,d)  (((n)<0) ? -((-(n))/(d)) : ((n)+(d)-1)/(d))
   5 #define max(x,y)    ((x) > (y) ? (x) : (y))
   6 #define min(x,y)    ((x) < (y) ? (x) : (y))
   7
   8 #ifdef TIME
   9 #define IF_TIME(foo) foo;
  10 #else
  11 #define IF_TIME(foo)
  12 #endif
  13
  14 /* Scattering iterators. */
  15 int t2, t3, t4, t5, t6, t9;
  16 /* Original iterators. */
  17 int i, j, k, l, m, n;
  18 int lbp, ubp;
  19 int lbv, ubv;
  20
  21 if (N >= 1) {
  22   lbp=0;
  23   ubp=floord(N-1,32);
  24 #pragma omp parallel for private(lbv,ubv,t3,t4,t5,t6,t7,t8,t9)
  25   for (t2=lbp;t2<=ubp;t2++) {
  26     for (t3=0;t3<=floord(N-1,32);t3++) {
  27       for (t4=32*t2;t4<=min(N-1,32*t2+31);t4++) {
  28         lbv=32*t3;
  29         ubv=min(N-1,32*t3+31);
  30         #pragma ivdep
  31         #pragma vector always
  32         for (t9=lbv;t9<=ubv;t9++) {
  33           c[t4][t9] = 0.0;
  34         }
  35       }
  36     }
  37   }
  38   lbp=0;
  39   ubp=floord(N-1,32);
  40 #pragma omp parallel for private(lbv,ubv,t3,t4,t5,t6,t7,t8,t9)
  41   for (t2=lbp;t2<=ubp;t2++) {
  42     for (t3=0;t3<=floord(N-1,32);t3++) {
  43       for (t4=0;t4<=floord(N-1,32);t4++) {
  44         for (t5=32*t2;t5<=min(N-1,32*t2+31);t5++) {
  45           for (t6=32*t4;t6<=min(N-1,32*t4+31);t6++) {
  46             lbv=32*t3;
  47             ubv=min(N-1,32*t3+31);
  48             #pragma ivdep
  49             #pragma vector always
  50             for (t9=lbv;t9<=ubv;t9++) {
  51               c[t5][t9] = c[t5][t9] + a[t5][t6]*b[t6][t9];
  52             }
  53           }
  54         }
  55       }
  56     }
  57   }
  58 }