version 1.74, 2003/09/19 02:33:12 |
version 1.75, 2003/09/19 10:09:42 |
|
|
/* $OpenXM: OpenXM_contrib2/asir2000/engine/nd.c,v 1.73 2003/09/17 08:37:49 noro Exp $ */ |
/* $OpenXM: OpenXM_contrib2/asir2000/engine/nd.c,v 1.74 2003/09/19 02:33:12 noro Exp $ */ |
|
|
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
Line 4070 NODE nd_f4_red(int m,ND_pairs sp0,UINT *s0vect,int col |
|
Line 4070 NODE nd_f4_red(int m,ND_pairs sp0,UINT *s0vect,int col |
|
svect = (UINT *)ALLOCA(col*sizeof(UINT)); |
svect = (UINT *)ALLOCA(col*sizeof(UINT)); |
for ( a = sprow = 0, sp = sp0; a < nsp; a++, sp = NEXT(sp) ) { |
for ( a = sprow = 0, sp = sp0; a < nsp; a++, sp = NEXT(sp) ) { |
nd_sp(m,0,sp,&spol); |
nd_sp(m,0,sp,&spol); |
|
if ( !spol ) continue; |
nd_to_vect(m,s0vect,col,spol,svect); |
nd_to_vect(m,s0vect,col,spol,svect); |
nd_free(spol); |
nd_free(spol); |
if ( m == -1 ) ndv_reduce_vect_sf(m,svect,col,imat,rvect,nred); |
if ( m == -1 ) ndv_reduce_vect_sf(m,svect,col,imat,rvect,nred); |
Line 4328 void nd_exec_f4_red_dist() |
|
Line 4329 void nd_exec_f4_red_dist() |
|
svect = (UINT *)MALLOC(col*sizeof(UINT)); |
svect = (UINT *)MALLOC(col*sizeof(UINT)); |
for ( a = sprow = 0; a < nsp; a++ ) { |
for ( a = sprow = 0; a < nsp; a++ ) { |
nd_sp(m,0,sp0[a],&spol); |
nd_sp(m,0,sp0[a],&spol); |
|
if ( !spol ) continue; |
nd_to_vect(m,s0vect,col,spol,svect); |
nd_to_vect(m,s0vect,col,spol,svect); |
nd_free(spol); |
nd_free(spol); |
if ( m == -1 ) ndv_reduce_vect_sf(m,svect,col,imat,rp0,nred); |
if ( m == -1 ) ndv_reduce_vect_sf(m,svect,col,imat,rp0,nred); |