1 /* $Id: warshall.c,v 1.8 2020/09/10 17:31:42 tom Exp $ */
6 transitive_closure(unsigned *R, int n)
17 rowsize = WORDSIZE(n);
18 relend = R + n * rowsize;
25 unsigned *ccol = cword;
31 if (*ccol & (unsigned)(1 << i))
34 rend = rowj + rowsize;
46 if (++i >= BITS_PER_WORD)
57 reflexive_transitive_closure(unsigned *R, int n)
64 transitive_closure(R, n);
66 rowsize = WORDSIZE(n);
67 relend = R + n * rowsize;
73 *rp |= (unsigned)(1 << i);
74 if (++i >= BITS_PER_WORD)