version 1.4, 2018/10/19 23:27:38 |
version 1.6, 2019/12/13 14:40:49 |
|
|
* 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.5 2019/03/28 06:44:04 noro 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); |