version 1.77, 2019/03/03 05:21:16 |
version 1.79, 2021/03/24 18:28:07 |
|
|
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* |
* |
* $OpenXM: OpenXM_contrib2/asir2000/builtin/array.c,v 1.76 2018/03/29 01:32:50 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/builtin/array.c,v 1.78 2020/10/04 03:14:07 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "base.h" |
#include "base.h" |
Line 1180 void Pgeneric_gauss_elim(NODE arg,LIST *rp) |
|
Line 1180 void Pgeneric_gauss_elim(NODE arg,LIST *rp) |
|
MKLIST(*rp,n0); |
MKLIST(*rp,n0); |
} |
} |
|
|
|
int indep_rows_mod(int **mat0,int row,int col,int md,int *rowstat); |
|
|
void Pindep_rows_mod(NODE arg,VECT *rp) |
void Pindep_rows_mod(NODE arg,VECT *rp) |
{ |
{ |
MAT m,mat; |
MAT m,mat; |
|
|
} |
} |
} |
} |
|
|
|
struct oEGT eg_chrem,eg_back,eg_fore; |
|
|
void lu_dec_cr(MAT mat,MAT lu,Q *dn,int **perm); |
void lu_dec_cr(MAT mat,MAT lu,Q *dn,int **perm); |
|
|
/* XXX broken */ |
/* XXX broken */ |
Line 3220 int gauss_elim_geninv_mod_swap(unsigned int **mat,int |
|
Line 3224 int gauss_elim_geninv_mod_swap(unsigned int **mat,int |
|
s[j] = t[col+index[j]]; |
s[j] = t[col+index[j]]; |
return 0; |
return 0; |
} |
} |
|
|
|
int gauss_elim_geninv_sf_swap(int **mat,int row,int col,int ***invmatp,int **indexp); |
|
|
void Pgeninv_sf_swap(NODE arg,LIST *rp) |
void Pgeninv_sf_swap(NODE arg,LIST *rp) |
{ |
{ |