contrib/gcc/lambda-mat.c

37   lambda_matrix mat;
40   mat = ggc_alloc (m * sizeof (lambda_vector));
43     mat[i] = lambda_vector_new (n);
45   return mat;
63 lambda_matrix_id (lambda_matrix mat, int size)
69       mat[i][j] = (i == j) ? 1 : 0;
75 lambda_matrix_id_p (lambda_matrix mat, int size)
83 	    if (mat[i][j] != 1)
88 	    if (mat[i][j] != 0)
171 lambda_matrix_get_column (lambda_matrix mat, int n, int col,
177     vec[i] = mat[i][col];
183 lambda_matrix_delete_rows (lambda_matrix mat, int rows, int from, int to)
190     mat[i - dist] = mat[i];
193     mat[i] = NULL;
199 lambda_matrix_row_exchange (lambda_matrix mat, int r1, int r2)
203   row = mat[r1];
204   mat[r1] = mat[r2];
205   mat[r2] = row;
212 lambda_matrix_row_add (lambda_matrix mat, int n, int r1, int r2, int const1)
220     mat[r2][i] += const1 * mat[r1][i];
226 lambda_matrix_row_negate (lambda_matrix mat, int n, int r1)
228   lambda_vector_negate (mat[r1], mat[r1], n);
234 lambda_matrix_row_mc (lambda_matrix mat, int n, int r1, int const1)
239     mat[r1][i] *= const1;
245 lambda_matrix_col_exchange (lambda_matrix mat, int m, int col1, int col2)
251       tmp = mat[i][col1];
252       mat[i][col1] = mat[i][col2];
253       mat[i][col2] = tmp;
261 lambda_matrix_col_add (lambda_matrix mat, int m, int c1, int c2, int const1)
269     mat[i][c2] += const1 * mat[i][c1];
275 lambda_matrix_col_negate (lambda_matrix mat, int m, int c1)
280     mat[i][c1] *= -1;
286 lambda_matrix_col_mc (lambda_matrix mat, int m, int c1, int const1)
291     mat[i][c1] *= const1;
312 lambda_matrix_inverse (lambda_matrix mat, lambda_matrix inv, int n)
317       a = mat[0][0];
318       b = mat[1][0];
319       c = mat[0][1];
320       d = mat[1][1];
337     return lambda_matrix_inverse_hard (mat, inv, n);
343 lambda_matrix_inverse_hard (lambda_matrix mat, lambda_matrix inv, int n)
351   lambda_matrix_copy (mat, temp, n, n);
442 lambda_matrix_hermite (lambda_matrix mat, int n,
448   lambda_matrix_copy (mat, H, n, n);
576 lambda_matrix_first_nz_vec (lambda_matrix mat, int rowsize, int colsize,
584       if ((mat[j] != NULL)
585 	  && (lambda_vector_first_nz (mat[j], colsize, startrow) < colsize))