Lines Matching refs:ii
47 int ii, jj, *index, err_code;
58 for (ii = 0; ii < dim; ii++)
60 input[ii] = (double *) CALLOC(dim, sizeof(double), "clib.input_imatrix[]");
62 input[ii][jj] = mat[ii][jj];
68 for (ii = 0; ii < dim; ii++)
69 col[ii] = 0;
72 for (ii = 0; ii < dim; ii++)
73 inv[ii][jj] = col[ii];
75 for (ii = 0; ii < dim; ii++)
76 FREE((char *)input[ii]);
83 for (ii = 0; ii < dim; ii++)
89 sum += mat[ii][kk] * inv[kk][jj];
104 int ii, imax = 0, jj, kk;
110 for (ii = 0; ii < dim; ii++)
114 if ((temp = (double) fabs(mat[ii][jj])) > big) big = temp;
120 vv[ii] = 1 / big;
126 for (ii = 0; ii < jj; ii++)
128 sum = mat[ii][jj];
129 for (kk = 0; kk < ii; kk++)
130 sum -= mat[ii][kk] * mat[kk][jj];
131 mat[ii][jj] = sum;
134 for (ii = jj; ii < dim; ii++)
136 sum = mat[ii][jj];
138 sum -= mat[ii][kk] * mat[kk][jj];
139 mat[ii][jj] = sum;
140 if ((dumm = (double)(vv[ii] * fabs(sum))) >= big)
143 imax = ii;
167 for (ii = jj + 1; ii < dim; ii++)
168 mat[ii][jj] *= dumm;
178 int ii, ix = -1, ip, jj;
181 for (ii = 0; ii < dim; ii++)
184 ip = index[ii];
186 b[ip] = b[ii];
188 sum = b[ii];
191 for (jj = ix; jj < ii; jj++)
192 sum -= mat[ii][jj] * b[jj];
193 else if (sum) ix = ii;
194 b[ii] = sum;
197 for (ii = dim - 1; ii >= 0; ii--)
199 sum = b[ii];
200 for (jj = ii + 1; jj < dim; jj++)
201 sum -= mat[ii][jj] * b[jj];
202 b[ii] = sum / mat[ii][ii];