version 1.4, 2018/10/19 23:27:38 |
version 1.7, 2020/01/09 01:47:40 |
|
|
* 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/asir2018/builtin/array.c,v 1.3 2018/10/01 05:49:06 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2018/builtin/array.c,v 1.6 2019/12/13 14:40:49 fujimoto Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "base.h" |
#include "base.h" |
Line 170 void solve_u(int *,ent **,int,int *,int); |
|
Line 170 void solve_u(int *,ent **,int,int *,int); |
|
static int *ul,*ll; |
static int *ul,*ll; |
static ent **u,**l; |
static ent **u,**l; |
static int modulus; |
static int modulus; |
|
#if defined(ANDROID) |
|
int getw(FILE *fp) |
|
{ |
|
int x; |
|
return (fread((void *)&x, sizeof(x), 1, fp) == 1 ? x : EOF); |
|
} |
|
#endif |
|
|
void Plusolve_prep(NODE arg,Q *rp) |
void Plusolve_prep(NODE arg,Q *rp) |
{ |
{ |
Line 1164 void Pgeneric_gauss_elim(NODE arg,LIST *rp) |
|
Line 1171 void Pgeneric_gauss_elim(NODE arg,LIST *rp) |
|
if ( is_hensel ) |
if ( is_hensel ) |
rank = generic_gauss_elim_hensel(m,&nm,&dn,&ri,&ci); |
rank = generic_gauss_elim_hensel(m,&nm,&dn,&ri,&ci); |
else |
else |
rank = generic_gauss_elim64(m,&nm,&dn,&ri,&ci); |
rank = generic_gauss_elim(m,&nm,&dn,&ri,&ci); |
t = col-rank; |
t = col-rank; |
MKVECT(rind,rank); |
MKVECT(rind,rank); |
MKVECT(cind,t); |
MKVECT(cind,t); |
Line 1423 int gauss_elim_mod(int **mat,int row,int col,int md) |
|
Line 1430 int gauss_elim_mod(int **mat,int row,int col,int md) |
|
return -1; |
return -1; |
} |
} |
|
|
struct oEGT eg_mod,eg_elim,eg_elim1,eg_elim2,eg_chrem,eg_gschk,eg_intrat,eg_symb; |
struct oEGT eg_mod,eg_elim,eg_elim1,eg_elim2,eg_chrem,eg_gschk,eg_intrat,eg_symb,eg_back,eg_fore; |
struct oEGT eg_conv; |
struct oEGT eg_conv; |
|
|
#if 0 |
#if 0 |