version 1.82, 2003/10/15 03:21:44 |
version 1.84, 2003/10/18 01:39:42 |
|
|
/* $OpenXM: OpenXM_contrib2/asir2000/engine/nd.c,v 1.81 2003/10/11 02:14:19 noro Exp $ */ |
/* $OpenXM: OpenXM_contrib2/asir2000/engine/nd.c,v 1.83 2003/10/17 05:15:20 noro Exp $ */ |
|
|
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
Line 2899 void nd_setup_parameters(int nvar,int max) { |
|
Line 2899 void nd_setup_parameters(int nvar,int max) { |
|
|
|
nd_nvar = nvar; |
nd_nvar = nvar; |
if ( max ) { |
if ( max ) { |
if ( max < 2 ) nd_bpe = 1; |
/* XXX */ |
|
if ( do_weyl ) nd_bpe = 32; |
|
else if ( max < 2 ) nd_bpe = 1; |
else if ( max < 4 ) nd_bpe = 2; |
else if ( max < 4 ) nd_bpe = 2; |
else if ( max < 8 ) nd_bpe = 3; |
else if ( max < 8 ) nd_bpe = 3; |
else if ( max < 16 ) nd_bpe = 4; |
else if ( max < 16 ) nd_bpe = 4; |
Line 4129 NODE nd_f4(int m) |
|
Line 4131 NODE nd_f4(int m) |
|
ND spol,red; |
ND spol,red; |
NDV nf,redv; |
NDV nf,redv; |
NM s0,s; |
NM s0,s; |
NODE rp0,sp0,srp0,nflist; |
NODE rp0,srp0,nflist; |
int nsp,nred,col,rank,len,k,j,a; |
int nsp,nred,col,rank,len,k,j,a; |
UINT c; |
UINT c; |
UINT **spmat; |
UINT **spmat; |
Line 4162 NODE nd_f4(int m) |
|
Line 4164 NODE nd_f4(int m) |
|
d = nd_reconstruct(m,0,d); |
d = nd_reconstruct(m,0,d); |
continue; |
continue; |
} |
} |
if ( !sp0 ) continue; |
|
col = nd_symbolic_preproc(bucket,&s0vect,&rp0); |
col = nd_symbolic_preproc(bucket,&s0vect,&rp0); |
if ( !col ) { |
if ( !col ) { |
for ( t = l; NEXT(t); t = NEXT(t) ); |
for ( t = l; NEXT(t); t = NEXT(t) ); |