INNER CODE UNIT · C
t
lh3/yak · 6gjdn.c:15
t = fabs(a[i * n + j]);
if (t > d) {
d = t;
js[k] = j;
is = i;
}
}
if (d + 1.0 == 1.0)
l = 0;
else {
if (js[k] != k)
for (i = 0; i <= n - 1; i++) {
p = i * n + k;
q = i * n + js[k];
t = a[p];
a[p] = a[q];
a[q] = t;
}