version 1.41, 2020/11/26 03:55:23 |
version 1.42, 2020/12/03 07:58:54 |
|
|
/* $OpenXM: OpenXM_contrib2/asir2018/engine/nd.c,v 1.40 2020/11/02 08:30:55 noro Exp $ */ |
/* $OpenXM: OpenXM_contrib2/asir2018/engine/nd.c,v 1.41 2020/11/26 03:55:23 noro Exp $ */ |
|
|
#include "nd.h" |
#include "nd.h" |
|
|
Line 4503 void nd_sba(LIST f,LIST v,int m,int homo,int retdp,int |
|
Line 4503 void nd_sba(LIST f,LIST v,int m,int homo,int retdp,int |
|
} |
} |
homogenize_order(ord,nvar,&ord1); |
homogenize_order(ord,nvar,&ord1); |
nd_init_ord(ord1); |
nd_init_ord(ord1); |
|
// for SIG comparison |
|
initd(ord1); |
nd_setup_parameters(nvar+1,nd_nzlist?0:wmax); |
nd_setup_parameters(nvar+1,nd_nzlist?0:wmax); |
for ( t = fd0; t; t = NEXT(t) ) |
for ( t = fd0; t; t = NEXT(t) ) |
ndv_homogenize((NDV)BDY(t),obpe,oadv,oepos,ompos); |
ndv_homogenize((NDV)BDY(t),obpe,oadv,oepos,ompos); |
Line 4517 void nd_sba(LIST f,LIST v,int m,int homo,int retdp,int |
|
Line 4519 void nd_sba(LIST f,LIST v,int m,int homo,int retdp,int |
|
/* dehomogenization */ |
/* dehomogenization */ |
for ( t = x; t; t = NEXT(t) ) ndv_dehomogenize((NDV)BDY(t),ord); |
for ( t = x; t; t = NEXT(t) ) ndv_dehomogenize((NDV)BDY(t),ord); |
nd_init_ord(ord); |
nd_init_ord(ord); |
|
// for SIG comparison |
|
initd(ord); |
nd_setup_parameters(nvar,0); |
nd_setup_parameters(nvar,0); |
} |
} |
nd_demand = 0; |
nd_demand = 0; |