olda-1.c

Go to the documentation of this file.

for (int c0 = 1; c0 <= morb; c0 += 1)
  for (int c1 = 1; c1 <= np; c1 += 1) {
    for (int c2 = 1; c2 < c1; c2 += 1)
      s1(c1, c2, c0);
    s0(c1, c1, c0);
    s1(c1, c1, c0);
    for (int c2 = c1 + 1; c2 <= np; c2 += 1)
      s0(c2, c1, c0);
  }