version 1.247, 2018/07/28 00:45:55 |
version 1.249, 2020/10/04 03:14:08 |
|
|
/* $OpenXM: OpenXM_contrib2/asir2000/engine/nd.c,v 1.246 2018/04/20 06:24:56 noro Exp $ */ |
/* $OpenXM: OpenXM_contrib2/asir2000/engine/nd.c,v 1.248 2019/03/03 05:21:16 noro Exp $ */ |
|
|
#include "nd.h" |
#include "nd.h" |
|
|
Line 107 NODE nd_f4_red_lf_main(int m,ND_pairs sp0,int nsp,int |
|
Line 107 NODE nd_f4_red_lf_main(int m,ND_pairs sp0,int nsp,int |
|
int nd_gauss_elim_lf(mpz_t **mat0,int *sugar,int row,int col,int *colstat); |
int nd_gauss_elim_lf(mpz_t **mat0,int *sugar,int row,int col,int *colstat); |
NODE nd_f4_lf_trace_main(int m,int **indp); |
NODE nd_f4_lf_trace_main(int m,int **indp); |
void nd_f4_lf_trace(LIST f,LIST v,int trace,int homo,struct order_spec *ord,LIST *rp); |
void nd_f4_lf_trace(LIST f,LIST v,int trace,int homo,struct order_spec *ord,LIST *rp); |
|
void addlf(Z a,Z b,Z *c); |
|
void sublf(Z a,Z b,Z *c); |
|
void mullf(Z a,Z b,Z *c); |
|
void divlf(Z a,Z b,Z *c); |
|
void chsgnlf(Z a,Z *c); |
|
int cmplf(Z a,Z b); |
|
void simplf(Z a,Z *b); |
|
void simplf_force(Z a,Z *b); |
|
void setmod_lf(Z p); |
|
void lmtolf(LM f,Z *b); |
|
void invgz(GZ n1,GZ *nq); |
|
|
extern int lf_lazy; |
extern int lf_lazy; |
extern GZ current_mod_lf; |
extern GZ current_mod_lf; |
Line 4107 void ndv_homogenize(NDV p,int obpe,int oadv,EPOS oepos |
|
Line 4118 void ndv_homogenize(NDV p,int obpe,int oadv,EPOS oepos |
|
NMV m,mr0,mr,t; |
NMV m,mr0,mr,t; |
|
|
len = p->len; |
len = p->len; |
for ( m = BDY(p), i = 0, max = 1; i < len; NMV_OADV(m), i++ ) |
for ( m = BDY(p), i = 0, max = 0; i < len; NMV_OADV(m), i++ ) |
max = MAX(max,TD(DL(m))); |
max = MAX(max,TD(DL(m))); |
mr0 = nmv_adv>oadv?(NMV)REALLOC(BDY(p),len*nmv_adv):BDY(p); |
mr0 = nmv_adv>oadv?(NMV)REALLOC(BDY(p),len*nmv_adv):BDY(p); |
m = (NMV)((char *)mr0+(len-1)*oadv); |
m = (NMV)((char *)mr0+(len-1)*oadv); |