summaryrefslogtreecommitdiff
path: root/cloog-0.17.0/test/cholesky2.c
blob: 3141bdc8393491793abe1ca03e6c07a59089061b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
/* Generated from ../../../git/cloog/test/cholesky2.cloog by CLooG 0.16.1-2-g33ac553 gmp bits in 0.02s. */
if (M >= 1) {
  for (c2=1;c2<=M-1;c2++) {
    S1(c2);
    for (c3=c2+1;c3<=M;c3++) {
      S4(c2,c3);
    }
  }
  S1(M);
  S3(1);
  if (M >= 3) {
    S6(1,2);
    for (c2=3;c2<=M;c2++) {
      S6(1,c2);
      for (i=2;i<=c2-1;i++) {
        S5(i,c2,1);
      }
    }
  }
  if (M == 2) {
    S6(1,2);
  }
  for (c1=3;c1<=3*M-7;c1++) {
    if ((c1+2)%3 == 0) {
      S3((c1+2)/3);
    }
    if (c1%3 == 0) {
      S2((c1+3)/3,c1/3);
    }
    if ((c1+1)%3 == 0) {
      S6((c1+1)/3,(c1+4)/3);
    }
    if (c1%3 == 0) {
      S2((c1+6)/3,c1/3);
    }
    for (c2=ceild(c1+7,3);c2<=M;c2++) {
      if ((c1+1)%3 == 0) {
        S6((c1+1)/3,c2);
      }
      if (c1%3 == 0) {
        S2(c2,c1/3);
      }
      if ((c1+1)%3 == 0) {
        for (i=ceild(c1+4,3);i<=c2-1;i++) {
          S5(i,c2,(c1+1)/3);
        }
      }
    }
  }
  if (M >= 3) {
    for (c2=M-1;c2<=M;c2++) {
      S2(c2,M-2);
    }
  }
  if (M >= 3) {
    S3(M-1);
  }
  if (M >= 3) {
    S6(M-1,M);
  }
  if (M >= 2) {
    S2(M,M-1);
  }
  if (M >= 2) {
    S3(M);
  }
}