OpenXM_contrib2/asir2000/engine/nd.c - diff

Return to nd.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / engine

Diff for /OpenXM_contrib2/asir2000/engine/nd.c between version 1.102 and 1.118

version 1.102, 2004/09/15 01:43:33

version 1.118, 2004/12/04 09:39:27

Line 1

/* $OpenXM: OpenXM_contrib2/asir2000/engine/nd.c,v 1.101 2004/09/14 10:00:26 noro Exp $ */

/* $OpenXM: OpenXM_contrib2/asir2000/engine/nd.c,v 1.117 2004/12/03 08:57:30 noro Exp $ */

#include "nd.h"

Line 8 NM _nm_free_list;

ND _nd_free_list;

ND_pairs _ndp_free_list;

static int nd_nalg;

#if 0

static int ndv_alloc;

#endif

#if 1

static int nd_f4_nsp=0x7fffffff;

#else

Line 39 static int nd_found,nd_create,nd_notfirst;

Line 42 static int nd_found,nd_create,nd_notfirst;

static int nmv_adv;

static int nd_demand;

UINT *nd_det_compute_bound(NDV **dm,int n,int j);

void nd_det_reconstruct(NDV **dm,int n,int j,NDV d);

int nd_monic(int m,ND *p);

void nd_free_private_storage()

{

_nm_free_list = 0;

Line 722 int ndl_disjoint(UINT *d1,UINT *d2)

Line 729 int ndl_disjoint(UINT *d1,UINT *d2)

#endif

}

int ndl_check_bound2(int index,UINT *d2)

int ndl_check_bound(UINT *d1,UINT *d2)

{

UINT u2;

UINT *d1;

int i,j,ind,k;

d1 = nd_bound[index];

ind = 0;

#if USE_UNROLL

switch ( nd_bpe ) {

Line 817 int ndl_check_bound2(int index,UINT *d2)

Line 822 int ndl_check_bound2(int index,UINT *d2)

#endif

}

int ndl_check_bound2(int index,UINT *d2)

{

return ndl_check_bound(nd_bound[index],d2);

}

INLINE int ndl_hash_value(UINT *d)

{

int i;

Line 1285 again:

Line 1295 again:

d = ndvtond(0,r);

stat = nd_nf(0,d,nd_ps,0,0,&nf);

if ( !stat ) {

nd_reconstruct(0,0,0);

nd_reconstruct(0,0);

goto again;

} else if ( nf ) return 0;

if ( DP_Print ) { printf("."); fflush(stdout); }

Line 1572 NODE nd_gb(int m,int ishomo,int checkonly)

Line 1582 NODE nd_gb(int m,int ishomo,int checkonly)

NODE r,g,t;

ND_pairs d;

ND_pairs l;

ND h,nf,s,head;

ND h,nf,s,head,nf1;

NDV nfv;

Q q,num,den;

union oNDC dn;

Line 1595 again:

Line 1605 again:

stat = nd_sp(m,0,l,&h);

if ( !stat ) {

NEXT(l) = d; d = l;

d = nd_reconstruct(m,0,d);

d = nd_reconstruct(0,d);

goto again;

}

#if USE_GEOBUCKET

Line 1605 again:

Line 1615 again:

#endif

if ( !stat ) {

NEXT(l) = d; d = l;

d = nd_reconstruct(m,0,d);

d = nd_reconstruct(0,d);

goto again;

} else if ( nf ) {

if ( checkonly ) return 0;

if ( DP_Print ) { printf("+"); fflush(stdout); }

nd_removecont(m,nf);

if ( !m && nd_nalg ) {

nd_monic(0,&nf);

nd_removecont(m,nf);

}

nfv = ndtondv(m,nf); nd_free(nf);

nh = ndv_newps(m,nfv,0);

d = update_pairs(d,g,nh);

Line 1677 void do_diagonalize_trace(int sugar,int m)

Line 1691 void do_diagonalize_trace(int sugar,int m)

}

static struct oEGT eg_invdalg;

struct oEGT eg_le;

NODE nd_gb_trace(int m,int ishomo)

{

int i,nh,sugar,stat;

Line 1687 NODE nd_gb_trace(int m,int ishomo)

Line 1704 NODE nd_gb_trace(int m,int ishomo)

NDV nfv,nfqv;

Q q,den,num;

union oNDC dn;

struct oEGT eg_monic,egm0,egm1;

init_eg(&eg_monic);

init_eg(&eg_invdalg);

init_eg(&eg_le);

g = 0; d = 0;

for ( i = 0; i < nd_psn; i++ ) {

d = update_pairs(d,g,i);

Line 1705 again:

Line 1726 again:

stat = nd_sp(m,0,l,&h);

if ( !stat ) {

NEXT(l) = d; d = l;

d = nd_reconstruct(m,1,d);

d = nd_reconstruct(1,d);

goto again;

}

#if USE_GEOBUCKET

Line 1715 again:

Line 1736 again:

#endif

if ( !stat ) {

NEXT(l) = d; d = l;

d = nd_reconstruct(m,1,d);

d = nd_reconstruct(1,d);

goto again;

} else if ( nf ) {

if ( nd_demand ) {

Line 1726 again:

Line 1747 again:

if ( !nfq ) {

if ( !nd_sp(0,1,l,&h) || !nd_nf(0,h,nd_ps_trace,!Top,0,&nfq) ) {

NEXT(l) = d; d = l;

d = nd_reconstruct(m,1,d);

d = nd_reconstruct(1,d);

goto again;

}

Line 1735 again:

Line 1756 again:

if ( !rem(NM(HCQ(nfq)),m) ) return 0;

if ( DP_Print ) { printf("+"); fflush(stdout); }

nd_removecont(m,nf); nfv = ndtondv(m,nf); nd_free(nf);

if ( nd_nalg ) {

nd_removecont(0,nfq); nfqv = ndtondv(0,nfq); nd_free(nfq);

/* m|DN(HC(nf)^(-1)) => failure */

get_eg(&egm0);

if ( !nd_monic(m,&nfq) ) return 0;

get_eg(&egm1); add_eg(&eg_monic,&egm0,&egm1);

nd_removecont(0,nfq); nfqv = ndtondv(0,nfq); nd_free(nfq);

nfv = ndv_dup(0,nfqv); ndv_mod(m,nfv); nd_free(nf);

} else {

nd_removecont(0,nfq); nfqv = ndtondv(0,nfq); nd_free(nfq);

nd_removecont(m,nf); nfv = ndtondv(m,nf); nd_free(nf);

}

nh = ndv_newps(0,nfv,nfqv);

d = update_pairs(d,g,nh);

g = update_base(g,nh);

Line 1754 again:

Line 1784 again:

else

for ( t = g; t; t = NEXT(t) )

BDY(t) = (pointer)nd_ps_trace[(int)BDY(t)];

if ( nd_nalg ) {

print_eg("monic",&eg_monic);

print_eg("invdalg",&eg_invdalg);

print_eg("le",&eg_le);

}

return g;

}

Line 1790 NODE ndv_reduceall(int m,NODE f)

Line 1825 NODE ndv_reduceall(int m,NODE f)

g = nd_separate_head(g,&head);

stat = nd_nf(m,g,nd_ps,1,&dn,&nf);

if ( !stat )

nd_reconstruct(m,0,0);

nd_reconstruct(0,0);

else {

if ( DP_Print ) { printf("."); fflush(stdout); }

if ( !m ) {

Line 2186 void nd_gr(LIST f,LIST v,int m,int f4,struct order_spe

Line 2221 void nd_gr(LIST f,LIST v,int m,int f4,struct order_spe

if ( !m && Demand ) nd_demand = 1;

else nd_demand = 0;

#if 0

ndv_alloc = 0;

#endif

get_vars((Obj)f,&fv); pltovl(v,&vv);

for ( nvar = 0, tv = vv; tv; tv = NEXT(tv), nvar++ );

switch ( ord->id ) {

Line 2224 void nd_gr(LIST f,LIST v,int m,int f4,struct order_spe

Line 2261 void nd_gr(LIST f,LIST v,int m,int f4,struct order_spe

}

if ( r0 ) NEXT(r) = 0;

MKLIST(*rp,r0);

#if 0

fprintf(asir_out,"ndv_alloc=%d\n",ndv_alloc);

#endif

}

void nd_gr_trace(LIST f,LIST v,int trace,int homo,struct order_spec *ord,LIST *rp)

Line 2573 void removecont_array(Q *c,int n)

Line 2612 void removecont_array(Q *c,int n)

{

struct oVECT v;

Q d0,d1,a,u,u1,gcd;

int i;

int i,j;

N qn,rn,gn;

Q *q,*r;

Line 2610 void nd_mul_c(int mod,ND p,int mul)

Line 2649 void nd_mul_c(int mod,ND p,int mul)

int c,c1;

if ( !p ) return;

if ( mul == 1 ) return;

if ( mod == -1 )

for ( m = BDY(p); m; m = NEXT(m) )

CM(m) = _mulsf(CM(m),mul);

Line 2625 void nd_mul_c_q(ND p,Q mul)

Line 2665 void nd_mul_c_q(ND p,Q mul)

Q c;

if ( !p ) return;

if ( UNIQ(mul) ) return;

for ( m = BDY(p); m; m = NEXT(m) ) {

mulq(CQ(m),mul,&c); CQ(m) = c;

}

Line 2789 void nd_setup_parameters(int nvar,int max) {

Line 2830 void nd_setup_parameters(int nvar,int max) {

nd_work_vector = (int *)REALLOC(nd_work_vector,nd_nvar*sizeof(int));

}

ND_pairs nd_reconstruct(int mod,int trace,ND_pairs d)

ND_pairs nd_reconstruct(int trace,ND_pairs d)

{

int i,obpe,oadv,h;

static NM prev_nm_free_list;

Line 3196 ND ndv_mul_nm(int mod,NM m0,NDV p)

Line 3237 ND ndv_mul_nm(int mod,NM m0,NDV p)

}

ND nd_quo(int mod,ND p,NDV d)

ND nd_quo(int mod,PGeoBucket bucket,NDV d)

{

NM mq0,mq;

NMV tm;

Q q;

int i,nv,sg,c,c1,c2;

int i,nv,sg,c,c1,c2,hindex;

ND t,r;

ND p,t,r;

N tnm;

if ( !p ) return 0;

else {

nv = NV(p);

nv = NV(d);

sg = SG(p);

mq0 = 0;

tm = (NMV)ALLOCA(nmv_adv);

while ( p ) {

while ( 1 ) {

hindex = mod?head_pbucket(mod,bucket):head_pbucket_q(bucket);

if ( hindex < 0 ) break;

p = bucket->body[hindex];

NEXTNM(mq0,mq);

ndl_sub(HDL(p),HDL(d),DL(mq));

ndl_copy(DL(mq),DL(tm));

Line 3219 ND nd_quo(int mod,ND p,NDV d)

Line 3263 ND nd_quo(int mod,ND p,NDV d)

DMAR(c1,c2,0,mod,c); CM(mq) = c;

CM(tm) = mod-c;

} else {

divq(HCQ(p),HCQ(d),&CQ(mq));

divsn(NM(HCQ(p)),NM(HCQ(d)),&tnm);

NTOQ(tnm,SGN(HCQ(p))*SGN(HCQ(d)),CQ(mq));

chsgnq(CQ(mq),&CQ(tm));

}

t = ndv_mul_nmv_trunc(mod,tm,d,HDL(d));

p = nd_add(mod,p,t);

bucket->body[hindex] = nd_remove_head(p);

t = nd_remove_head(t);

add_pbucket(mod,bucket,t);

}

NEXT(mq) = 0;

if ( !mq0 )

for ( i = 0, mq = mq0; mq; mq = NEXT(mq), i++ );

r = 0;

MKND(nv,mq0,i,r);

else {

/* XXX */

NEXT(mq) = 0;

SG(r) = sg-SG(d);

for ( i = 0, mq = mq0; mq; mq = NEXT(mq), i++ );

MKND(nv,mq0,i,r);

/* XXX */

SG(r) = HTD(r);

}

return r;

}

Line 3456 NDV ndtondv(int mod,ND p)

Line 3507 NDV ndtondv(int mod,ND p)

m0 = m = (NMV)GC_malloc_atomic_ignore_off_page(len*nmv_adv);

else

m0 = m = MALLOC(len*nmv_adv);

#if 0

ndv_alloc += nmv_adv*len;

#endif

for ( t = BDY(p), i = 0; t; t = NEXT(t), i++, NMV_ADV(m) ) {

ndl_copy(DL(t),DL(m));

CQ(m) = CQ(t);

Line 3691 void nd_nf_p(P f,LIST g,LIST v,int m,struct order_spec

Line 3744 void nd_nf_p(P f,LIST g,LIST v,int m,struct order_spec

int stat,nvar,max,e;

union oNDC dn;

if ( !f ) {

*rp = 0;

return;

}

pltovl(v,&vv);

for ( nvar = 0, tv = vv; tv; tv = NEXT(tv), nvar++ );

Line 3727 void nd_nf_p(P f,LIST g,LIST v,int m,struct order_spec

Line 3784 void nd_nf_p(P f,LIST g,LIST v,int m,struct order_spec

stat = nd_nf(m,nd,nd_ps,1,0,&nf);

if ( !stat ) {

nd_psn++;

nd_reconstruct(m,0,0);

nd_reconstruct(0,0);

nd_psn--;

} else

break;

Line 3751 int nd_to_vect(int mod,UINT *s0,int n,ND d,UINT *r)

Line 3808 int nd_to_vect(int mod,UINT *s0,int n,ND d,UINT *r)

return i;

}

int ndv_to_vect(int mod,UINT *s0,int n,NDV d,UINT *r)

int nd_to_vect_q(UINT *s0,int n,ND d,Q *r)

{

NMV m;

NM m;

UINT *t,*s;

int i,j,len;

int i;

for ( i = 0; i < n; i++ ) r[i] = 0;

m = BDY(d);

for ( i = 0, s = s0, m = BDY(d); m; m = NEXT(m) ) {

len = LEN(d);

for ( i = j = 0, s = s0; j < len; j++, NMV_ADV(m)) {

t = DL(m);

for ( ; !ndl_equal(t,s); s += nd_wpd, i++ );

r[i] = CM(m);

r[i] = CQ(m);

}

for ( i = 0; !r[i]; i++ );

return i;

}

int nm_ind_pair_to_vect(int mod,UINT *s0,int n,NM_ind_pair pair,UINT *r)

{

NM m;

NMV mr;

UINT *d,*t,*s;

NDV p;

int i,j,len;

m = pair->mul;

d = DL(m);

p = nd_ps[pair->index];

t = (UINT *)ALLOCA(nd_wpd*sizeof(UINT));

for ( i = 0; i < n; i++ ) r[i] = 0;

len = LEN(p);

for ( i = j = 0, s = s0, mr = BDY(p); j < len; j++, NMV_ADV(mr) ) {

ndl_add(d,DL(mr),t);

for ( ; !ndl_equal(t,s); s += nd_wpd, i++ );

r[i] = CM(mr);

}

for ( i = 0; !r[i]; i++ );

return i;

}

IndArray nm_ind_pair_to_vect_compress(int mod,UINT *s0,int n,NM_ind_pair pair)

{

NM m;

Line 3841 IndArray nm_ind_pair_to_vect_compress(int mod,UINT *s0

Line 3873 IndArray nm_ind_pair_to_vect_compress(int mod,UINT *s0

}

int ndv_reduce_vect_q(Q *svect,int col,IndArray *imat,NM_ind_pair *rp0,int nred)

{

int i,j,k,len,pos,prev;

Q cs,mcs,c1,c2,cr,gcd,t;

IndArray ivect;

unsigned char *ivc;

unsigned short *ivs;

unsigned int *ivi;

NDV redv;

NMV mr;

NODE rp;

int maxrs;

maxrs = 0;

for ( i = 0; i < nred; i++ ) {

ivect = imat[i];

k = ivect->head;

if ( svect[k] ) {

maxrs = MAX(maxrs,rp0[i]->sugar);

redv = nd_ps[rp0[i]->index];

len = LEN(redv); mr = BDY(redv);

igcd_cofactor(svect[k],CQ(mr),&gcd,&cs,&cr);

chsgnq(cs,&mcs);

if ( !UNIQ(cr) ) {

for ( j = 0; j < col; j++ ) {

mulq(svect[j],cr,&c1); svect[j] = c1;

}

svect[k] = 0; prev = k;

switch ( ivect->width ) {

case 1:

ivc = ivect->index.c;

for ( j = 1, NMV_ADV(mr); j < len; j++, NMV_ADV(mr) ) {

pos = prev+ivc[j]; prev = pos;

mulq(CQ(mr),mcs,&c2); addq(svect[pos],c2,&t); svect[pos] = t;

}

break;

case 2:

ivs = ivect->index.s;

for ( j = 1, NMV_ADV(mr); j < len; j++, NMV_ADV(mr) ) {

pos = prev+ivs[j]; prev = pos;

mulq(CQ(mr),mcs,&c2); addq(svect[pos],c2,&t); svect[pos] = t;

}

break;

case 4:

ivi = ivect->index.i;

for ( j = 1, NMV_ADV(mr); j < len; j++, NMV_ADV(mr) ) {

pos = prev+ivi[j]; prev = pos;

mulq(CQ(mr),mcs,&c2); addq(svect[pos],c2,&t); svect[pos] = t;

}

break;

}

return maxrs;

}

int ndv_reduce_vect(int m,UINT *svect,int col,IndArray *imat,NM_ind_pair *rp0,int nred)

{

int i,j,k,len,pos,prev;

Line 3964 NDV vect_to_ndv(UINT *vect,int spcol,int col,int *rhea

Line 4053 NDV vect_to_ndv(UINT *vect,int spcol,int col,int *rhea

if ( !len ) return 0;

else {

mr0 = (NMV)GC_malloc_atomic_ignore_off_page(nmv_adv*len);

#if 0

ndv_alloc += nmv_adv*len;

#endif

mr = mr0;

p = s0vect;

for ( j = k = 0; j < col; j++, p += nd_wpd )

Line 3978 NDV vect_to_ndv(UINT *vect,int spcol,int col,int *rhea

Line 4069 NDV vect_to_ndv(UINT *vect,int spcol,int col,int *rhea

}

NDV vect_to_ndv_q(Q *vect,int spcol,int col,int *rhead,UINT *s0vect)

{

int j,k,len;

UINT *p;

Q c;

NDV r;

NMV mr0,mr;

for ( j = 0, len = 0; j < spcol; j++ ) if ( vect[j] ) len++;

if ( !len ) return 0;

else {

mr0 = (NMV)GC_malloc(nmv_adv*len);

#if 0

ndv_alloc += nmv_adv*len;

#endif

mr = mr0;

p = s0vect;

for ( j = k = 0; j < col; j++, p += nd_wpd )

if ( !rhead[j] ) {

if ( c = vect[k++] ) {

if ( DN(c) )

error("afo");

ndl_copy(p,DL(mr)); CQ(mr) = c; NMV_ADV(mr);

}

MKNDV(nd_nvar,mr0,len,r);

return r;

}

int nd_sp_f4(int m,ND_pairs l,PGeoBucket bucket)

{

ND_pairs t;

Line 4057 NODE nd_f4(int m)

Line 4178 NODE nd_f4(int m)

PGeoBucket bucket;

struct oEGT eg0,eg1,eg_f4;

if ( !m )

#if 0

error("nd_f4 : not implemented");

ndv_alloc = 0;

#endif

g = 0; d = 0;

for ( i = 0; i < nd_psn; i++ ) {

d = update_pairs(d,g,i);

Line 4074 NODE nd_f4(int m)

Line 4195 NODE nd_f4(int m)

if ( !stat ) {

for ( t = l; NEXT(t); t = NEXT(t) );

NEXT(t) = d; d = l;

d = nd_reconstruct(m,0,d);

d = nd_reconstruct(0,d);

continue;

}

if ( bucket->m < 0 ) continue;

Line 4082 NODE nd_f4(int m)

Line 4203 NODE nd_f4(int m)

if ( !col ) {

for ( t = l; NEXT(t); t = NEXT(t) );

NEXT(t) = d; d = l;

d = nd_reconstruct(m,0,d);

d = nd_reconstruct(0,d);

continue;

}

get_eg(&eg1); init_eg(&eg_f4); add_eg(&eg_f4,&eg0,&eg1);

Line 4103 NODE nd_f4(int m)

Line 4224 NODE nd_f4(int m)

}

for ( r = g; r; r = NEXT(r) ) BDY(r) = (pointer)nd_ps[(int)BDY(r)];

#if 0

fprintf(asir_out,"ndv_alloc=%d\n",ndv_alloc);

#endif

return g;

}

NODE nd_f4_red(int m,ND_pairs sp0,UINT *s0vect,int col,NODE rp0)

{

IndArray *imat;

int nsp,nred,spcol,sprow,a;

int nsp,nred,i;

int *rhead;

int i,j,k,l,rank;

NODE r0,rp;

NODE rp,r0,r;

ND_pairs sp;

ND spol;

int **spmat;

UINT *svect,*v;

int *colstat;

struct oEGT eg0,eg1,eg2,eg_f4,eg_f4_1,eg_f4_2;

NM_ind_pair *rvect;

int maxrs;

int *spsugar;

get_eg(&eg0);

for ( sp = sp0, nsp = 0; sp; sp = NEXT(sp), nsp++ );

nred = length(rp0); spcol = col-nred;

nred = length(rp0);

imat = (IndArray *)ALLOCA(nred*sizeof(IndArray));

rhead = (int *)ALLOCA(col*sizeof(int));

for ( i = 0; i < col; i++ ) rhead[i] = 0;

Line 4138 NODE nd_f4_red(int m,ND_pairs sp0,UINT *s0vect,int col

Line 4252 NODE nd_f4_red(int m,ND_pairs sp0,UINT *s0vect,int col

imat[i] = nm_ind_pair_to_vect_compress(m,s0vect,col,rvect[i]);

rhead[imat[i]->head] = 1;

}

if ( m )

r0 = nd_f4_red_main(m,sp0,nsp,s0vect,col,rvect,rhead,imat,nred);

else

r0 = nd_f4_red_q_main(sp0,nsp,s0vect,col,rvect,rhead,imat,nred);

return r0;

}

NODE nd_f4_red_main(int m,ND_pairs sp0,int nsp,UINT *s0vect,int col,

NM_ind_pair *rvect,int *rhead,IndArray *imat,int nred)

{

int spcol,sprow,a;

int i,j,k,l,rank;

NODE r0,r;

ND_pairs sp;

ND spol;

int **spmat;

UINT *svect,*v;

int *colstat;

struct oEGT eg0,eg1,eg2,eg_f4,eg_f4_1,eg_f4_2;

int maxrs;

int *spsugar;

spcol = col-nred;

get_eg(&eg0);

/* elimination (1st step) */

spmat = (int **)ALLOCA(nsp*sizeof(UINT *));

svect = (UINT *)ALLOCA(col*sizeof(UINT));

Line 4182 NODE nd_f4_red(int m,ND_pairs sp0,UINT *s0vect,int col

Line 4319 NODE nd_f4_red(int m,ND_pairs sp0,UINT *s0vect,int col

SG((NDV)BDY(r)) = spsugar[i];

GC_free(spmat[i]);

}

if ( r0 ) NEXT(r) = 0;

for ( ; i < sprow; i++ ) GC_free(spmat[i]);

get_eg(&eg2); init_eg(&eg_f4_2); add_eg(&eg_f4_2,&eg1,&eg2);

init_eg(&eg_f4); add_eg(&eg_f4,&eg0,&eg2);

Line 4194 NODE nd_f4_red(int m,ND_pairs sp0,UINT *s0vect,int col

Line 4332 NODE nd_f4_red(int m,ND_pairs sp0,UINT *s0vect,int col

return r0;

}

NODE nd_f4_red_q_main(ND_pairs sp0,int nsp,UINT *s0vect,int col,

NM_ind_pair *rvect,int *rhead,IndArray *imat,int nred)

{

int spcol,sprow,a;

int i,j,k,l,rank;

NODE r0,r;

ND_pairs sp;

ND spol;

Q **spmat;

Q *svect,*v;

int *colstat;

struct oEGT eg0,eg1,eg2,eg_f4,eg_f4_1,eg_f4_2;

int maxrs;

int *spsugar;

spcol = col-nred;

get_eg(&eg0);

/* elimination (1st step) */

spmat = (Q **)ALLOCA(nsp*sizeof(Q *));

svect = (Q *)ALLOCA(col*sizeof(Q));

spsugar = (int *)ALLOCA(nsp*sizeof(Q));

for ( a = sprow = 0, sp = sp0; a < nsp; a++, sp = NEXT(sp) ) {

nd_sp(0,0,sp,&spol);

if ( !spol ) continue;

nd_to_vect_q(s0vect,col,spol,svect);

maxrs = ndv_reduce_vect_q(svect,col,imat,rvect,nred);

for ( i = 0; i < col; i++ ) if ( svect[i] ) break;

if ( i < col ) {

spmat[sprow] = v = (Q *)MALLOC(spcol*sizeof(Q));

for ( j = k = 0; j < col; j++ )

if ( !rhead[j] ) v[k++] = svect[j];

spsugar[sprow] = MAX(maxrs,SG(spol));

sprow++;

}

/* nd_free(spol); */

}

get_eg(&eg1); init_eg(&eg_f4_1); add_eg(&eg_f4_1,&eg0,&eg1);

if ( DP_Print ) {

fprintf(asir_out,"elim1=%fsec,",eg_f4_1.exectime+eg_f4_1.gctime);

fflush(asir_out);

}

/* free index arrays */

/* for ( i = 0; i < nred; i++ ) GC_free(imat[i]->index.c); */

/* elimination (2nd step) */

colstat = (int *)ALLOCA(spcol*sizeof(int));

rank = nd_gauss_elim_q(spmat,spsugar,sprow,spcol,colstat);

r0 = 0;

for ( i = 0; i < rank; i++ ) {

NEXTNODE(r0,r); BDY(r) =

(pointer)vect_to_ndv_q(spmat[i],spcol,col,rhead,s0vect);

SG((NDV)BDY(r)) = spsugar[i];

/* GC_free(spmat[i]); */

}

if ( r0 ) NEXT(r) = 0;

/* for ( ; i < sprow; i++ ) GC_free(spmat[i]); */

get_eg(&eg2); init_eg(&eg_f4_2); add_eg(&eg_f4_2,&eg1,&eg2);

init_eg(&eg_f4); add_eg(&eg_f4,&eg0,&eg2);

if ( DP_Print ) {

fprintf(asir_out,"elim2=%fsec\n",eg_f4_2.exectime+eg_f4_2.gctime);

fprintf(asir_out,"nsp=%d,nred=%d,spmat=(%d,%d),rank=%d ",

nsp,nred,sprow,spcol,rank);

fprintf(asir_out,"%fsec\n",eg_f4.exectime+eg_f4.gctime);

}

return r0;

}

FILE *nd_write,*nd_read;

void nd_send_int(int a) {

Line 4257 NDV nd_recv_ndv()

Line 4463 NDV nd_recv_ndv()

if ( !len ) return 0;

else {

m0 = m = (NMV)GC_malloc_atomic_ignore_off_page(nmv_adv*len);

#if 0

ndv_alloc += len*nmv_adv;

#endif

for ( i = 0; i < len; i++, NMV_ADV(m) ) {

CM(m) = nd_recv_int();

nd_recv_intarray(DL(m),nd_wpd);

Line 4448 void nd_exec_f4_red_dist()

Line 4656 void nd_exec_f4_red_dist()

fflush(nd_write);

}

int nd_gauss_elim_q(Q **mat0,int *sugar,int row,int col,int *colstat)

{

int mod,i,j,t,c,rank,rank0,inv;

int *ci,*ri;

Q dn;

MAT m,nm;

int **wmat;

/* XXX */

mod = 99999989;

wmat = (int **)ALLOCA(row*sizeof(int *));

for ( i = 0; i < row; i++ ) {

wmat[i] = (int *)ALLOCA(col*sizeof(int));

for ( j = 0; j < col; j++ ) {

if ( mat0[i][j] ) {

t = rem(NM(mat0[i][j]),mod);

if ( SGN(mat0[i][j]) < 0 ) t = mod-t;

wmat[i][j] = t;

} else

wmat[i][j] = 0;

}

rank0 = nd_gauss_elim_mod(wmat,sugar,row,col,mod,colstat);

NEWMAT(m); m->row = row; m->col = col; m->body = (pointer **)mat0;

rank = generic_gauss_elim(m,&nm,&dn,&ri,&ci);

if ( rank != rank0 )

error("afo");

for ( i = 0; i < row; i++ )

for ( j = 0; j < col; j++ )

mat0[i][j] = 0;

c = col-rank;

for ( i = 0; i < rank; i++ ) {

mat0[i][ri[i]] = dn;

for ( j = 0; j < c; j++ )

mat0[i][ci[j]] = (Q)BDY(nm)[i][j];

}

inv = invm(rem(NM(dn),mod),mod);

if ( SGN(dn) < 0 ) inv = mod-inv;

for ( i = 0; i < row; i++ )

for ( j = 0; j < col; j++ ) {

if ( mat0[i][j] ) {

t = rem(NM(mat0[i][j]),mod);

if ( SGN(mat0[i][j]) < 0 ) t = mod-t;

} else

t = 0;

c = dmar(t,inv,0,mod);

if ( wmat[i][j] != c )

error("afo");

}

return rank;

}

int nd_gauss_elim_mod(int **mat0,int *sugar,int row,int col,int md,int *colstat)

{

int i,j,k,l,inv,a,rank,s;

Line 4666 void nd_det(int mod,MAT f,P *rp)

Line 4926 void nd_det(int mod,MAT f,P *rp)

NDV d,s,mij,mjj;

ND u;

NMV nmv;

UINT *bound;

PGeoBucket bucket;

struct order_spec *ord;

Line 4683 void nd_det(int mod,MAT f,P *rp)

Line 4944 void nd_det(int mod,MAT f,P *rp)

e = getdeg(tv->v,(P)m[i][j]);

max = MAX(e,max);

}

nd_setup_parameters(nvar,1024);

nd_setup_parameters(nvar,max);

dm = (NDV **)almat_pointer(n,n);

for ( i = 0, max = 0; i < n; i++ )

for ( j = 0; j < n; j++ ) {

Line 4695 void nd_det(int mod,MAT f,P *rp)

Line 4956 void nd_det(int mod,MAT f,P *rp)

if ( mod ) ndv_mod(mod,d);

chsgnq(ONE,&mone);

for ( j = 0, sgn = 1; j < n; j++ ) {

if ( DP_Print ) fprintf(stderr,"j=%d\n",j);

for ( i = j; i < n && !dm[i][j]; i++ );

if ( i == n ) {

*rp = 0;

Line 4716 void nd_det(int mod,MAT f,P *rp)

Line 4978 void nd_det(int mod,MAT f,P *rp)

}

sgn = -sgn;

}

bound = nd_det_compute_bound(dm,n,j);

if ( ndl_check_bound(bound,bound) )

nd_det_reconstruct(dm,n,j,d);

for ( i = j+1, mj = dm[j], mjj = mj[j]; i < n; i++ ) {

/* if ( DP_Print ) fprintf(stderr," i=%d\n ",i); */

mi = dm[i]; mij = mi[j];

if ( mod )

ndv_mul_c(mod,mij,mod-1);

else

ndv_mul_c_q(mij,mone);

for ( k = j+1; k < n; k++ ) {

/* if ( DP_Print ) fprintf(stderr,"k=%d ",k); */

bucket = create_pbucket();

if ( mi[k] )

if ( mi[k] ) {

nmv = BDY(mjj); len = LEN(mjj);

for ( a = 0; a < len; a++, NMV_ADV(nmv) ) {

u = ndv_mul_nmv_trunc(mod,nmv,mi[k],DL(BDY(d)));

add_pbucket(mod,bucket,u);

}

if ( mj[k] && mij ) {

nmv = BDY(mij); len = LEN(mij);

for ( a = 0; a < len; a++, NMV_ADV(nmv) ) {

Line 4737 void nd_det(int mod,MAT f,P *rp)

Line 5006 void nd_det(int mod,MAT f,P *rp)

add_pbucket(mod,bucket,u);

}

u = normalize_pbucket(mod,bucket);

u = nd_quo(mod,bucket,d);

u = nd_quo(mod,u,d);

mi[k] = ndtondv(mod,u);

}

/* if ( DP_Print ) fprintf(stderr,"\n",k); */

}

d = mjj;

}

Line 4776 ND ndv_mul_nmv_trunc(int mod,NMV m0,NDV p,UINT *d)

Line 5045 ND ndv_mul_nmv_trunc(int mod,NMV m0,NDV p,UINT *d)

if ( ndl_reducible(DL(tnm),d) ) {

NEXTNM(mr0,mr);

c1 = CM(m); DMAR(c1,c,0,mod,c2); CM(mr) = c2;

ndl_add(DL(m),d0,DL(mr));

ndl_copy(DL(tnm),DL(mr));

}

} else {

Line 4786 ND ndv_mul_nmv_trunc(int mod,NMV m0,NDV p,UINT *d)

Line 5055 ND ndv_mul_nmv_trunc(int mod,NMV m0,NDV p,UINT *d)

if ( ndl_reducible(DL(tnm),d) ) {

NEXTNM(mr0,mr);

mulq(CQ(m),q,&CQ(mr));

ndl_add(DL(m),d0,DL(mr));

ndl_copy(DL(tnm),DL(mr));

}

Line 4794 ND ndv_mul_nmv_trunc(int mod,NMV m0,NDV p,UINT *d)

Line 5063 ND ndv_mul_nmv_trunc(int mod,NMV m0,NDV p,UINT *d)

return 0;

else {

NEXT(mr) = 0;

for ( len = 0, mr = mr0; mr; mr = NEXT(mr), len++ );

MKND(NV(p),mr0,len,r);

SG(r) = SG(p) + TD(d0);

return r;

}

void nd_det_reconstruct(NDV **dm,int n,int j,NDV d)

{

int i,obpe,oadv,h,k,l;

static NM prev_nm_free_list;

EPOS oepos;

obpe = nd_bpe;

oadv = nmv_adv;

oepos = nd_epos;

if ( obpe < 2 ) nd_bpe = 2;

else if ( obpe < 3 ) nd_bpe = 3;

else if ( obpe < 4 ) nd_bpe = 4;

else if ( obpe < 5 ) nd_bpe = 5;

else if ( obpe < 6 ) nd_bpe = 6;

else if ( obpe < 8 ) nd_bpe = 8;

else if ( obpe < 10 ) nd_bpe = 10;

else if ( obpe < 16 ) nd_bpe = 16;

else if ( obpe < 32 ) nd_bpe = 32;

else error("nd_det_reconstruct : exponent too large");

nd_setup_parameters(nd_nvar,0);

prev_nm_free_list = _nm_free_list;

_nm_free_list = 0;

for ( k = j; k < n; k++ )

for (l = j; l < n; l++ )

ndv_realloc(dm[k][l],obpe,oadv,oepos);

ndv_realloc(d,obpe,oadv,oepos);

prev_nm_free_list = 0;

#if 0

GC_gcollect();

#endif

}

UINT *nd_det_compute_bound(NDV **dm,int n,int j)

{

UINT *d0,*d1,*d,*t,*r;

int k,l;

d0 = (UINT *)ALLOCA(nd_wpd*sizeof(UINT));

d1 = (UINT *)ALLOCA(nd_wpd*sizeof(UINT));

for ( k = 0; k < nd_wpd; k++ ) d0[k] = 0;

for ( k = j; k < n; k++ )

for ( l = j; l < n; l++ )

if ( dm[k][l] ) {

d = ndv_compute_bound(dm[k][l]);

ndl_lcm(d,d0,d1);

t = d1; d1 = d0; d0 = t;

}

r = (UINT *)ALLOCA(nd_wpd*sizeof(UINT));

for ( k = 0; k < nd_wpd; k++ ) r[k] = d0[k];

return r;

}

DL nd_separate_d(UINT *d,UINT *trans)

{

int n,ntrans,td,i,e;

DL a;

n = nd_nvar; ntrans = n-nd_nalg;

ndl_zero(trans);

td = 0;

for ( i = 0; i < ntrans; i++ ) {

e = GET_EXP(d,i);

PUT_EXP(trans,i,e);

td += MUL_WEIGHT(e,i);

}

TD(trans) = td;

if ( nd_blockmask) ndl_weight_mask(trans);

NEWDL(a,nd_nalg);

td = 0;

for ( ; i < n; i++ ) {

e = GET_EXP(d,i);

a->d[i-ntrans] = e;

td += e;

}

a->td = td;

return a;

}

NumberField get_numberfield();

int nd_monic(int mod,ND *p)

{

UINT *trans,*t;

DL alg;

MP mp0,mp;

NM m,m0,m1,ma0,ma,mb,mr0,mr;

ND r;

DL dl;

DP nm;

NDV ndv;

DAlg inv,cd;

ND s,c;

Q l,mul;

N ln;

int n,ntrans,i,e,td,is_lc,len;

NumberField nf;

struct oEGT eg0,eg1;

if ( !(nf = get_numberfield()) )

error("nd_monic : current_numberfield is not set");

n = nd_nvar; ntrans = n-nd_nalg;

/* Q coef -> DAlg coef */

NEWNM(ma0); ma = ma0;

m = BDY(*p);

is_lc = 1;

while ( 1 ) {

NEWMP(mp0); mp = mp0;

mp->c = (P)CQ(m);

mp->dl = nd_separate_d(DL(m),DL(ma));

NEWNM(mb);

for ( m = NEXT(m); m; m = NEXT(m) ) {

alg = nd_separate_d(DL(m),DL(mb));

if ( !ndl_equal(DL(ma),DL(mb)) )

break;

NEXTMP(mp0,mp); mp->c = (P)CQ(m); mp->dl = alg;

}

NEXT(mp) = 0;

MKDP(nd_nalg,mp0,nm);

MKDAlg(nm,ONE,cd);

if ( is_lc == 1 ) {

/* if the lc is a rational number, we have nothing to do */

if ( !mp0->dl->td )

return 1;

get_eg(&eg0);

invdalg(cd,&inv);

get_eg(&eg1); add_eg(&eg_invdalg,&eg0,&eg1);

/* check the validity of inv */

if ( mod && !rem(NM(inv->dn),mod) )

return 0;

CA(ma) = nf->one;

is_lc = 0;

ln = ONEN;

} else {

muldalg(cd,inv,&CA(ma));

lcmn(ln,NM(CA(ma)->dn),&ln);

}

if ( m ) {

NEXT(ma) = mb; ma = mb;

} else {

NEXT(ma) = 0;

break;

}

/* l = lcm(denoms) */

NTOQ(ln,1,l);

for ( mr0 = 0, m = ma0; m; m = NEXT(m) ) {

divq(l,CA(m)->dn,&mul);

for ( mp = BDY(CA(m)->nm); mp; mp = NEXT(mp) ) {

NEXTNM(mr0,mr);

mulq((Q)mp->c,mul,&CQ(mr));

dl = mp->dl;

td = TD(DL(m));

ndl_copy(DL(m),DL(mr));

for ( i = ntrans; i < n; i++ ) {

e = dl->d[i-ntrans];

PUT_EXP(DL(mr),i,e);

td += MUL_WEIGHT(e,i);

}

TD(DL(mr)) = td;

if ( nd_blockmask) ndl_weight_mask(DL(mr));

}

NEXT(mr) = 0;

for ( len = 0, mr = mr0; mr; mr = NEXT(mr), len++ );

MKND(NV(*p),mr0,len,r);

/* XXX */

SG(r) = SG(*p);

nd_free(*p);

*p = r;

return 1;

}

void nd_set_nalg(int nalg)

{

nd_nalg = nalg;

}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>