1for (int c0 = 1; c0 <= morb; c0 += 1)
2  for (int c1 = 1; c1 <= np; c1 += 1) {
3    for (int c2 = 1; c2 < c1; c2 += 1)
4      s1(c1, c2, c0);
5    s0(c1, c1, c0);
6    s1(c1, c1, c0);
7    for (int c2 = c1 + 1; c2 <= np; c2 += 1)
8      s0(c2, c1, c0);
9  }
10