| version 1.222, 2015/08/08 14:19:41 |
version 1.223, 2015/08/14 13:51:54 |
|
|
| /* $OpenXM: OpenXM_contrib2/asir2000/engine/nd.c,v 1.221 2015/03/15 19:31:30 ohara Exp $ */ |
/* $OpenXM: OpenXM_contrib2/asir2000/engine/nd.c,v 1.222 2015/08/08 14:19:41 fujimoto Exp $ */ |
| |
|
| #include "nd.h" |
#include "nd.h" |
| |
|
| Line 6655 init_eg(&eg_search); |
|
| Line 6655 init_eg(&eg_search); |
|
| |
|
| /* construction of index arrays */ |
/* construction of index arrays */ |
| fprintf(stderr,"%dx%d,",nsp+nred,col); |
fprintf(stderr,"%dx%d,",nsp+nred,col); |
| #if defined(__MINGW32__) || defined(__MINGW64__) |
|
| fflush(stderr); |
|
| #endif |
|
| rvect = (NM_ind_pair *)ALLOCA(nred*sizeof(NM_ind_pair)); |
rvect = (NM_ind_pair *)ALLOCA(nred*sizeof(NM_ind_pair)); |
| s0hash = (int *)ALLOCA(col*sizeof(int)); |
s0hash = (int *)ALLOCA(col*sizeof(int)); |
| for ( i = 0, s = s0vect; i < col; i++, s += nd_wpd ) |
for ( i = 0, s = s0vect; i < col; i++, s += nd_wpd ) |
| Line 7646 void nd_det(int mod,MAT f,P *rp) |
|
| Line 7643 void nd_det(int mod,MAT f,P *rp) |
|
| for ( j = 0, sgn = 1; j < n; j++ ) { |
for ( j = 0, sgn = 1; j < n; j++ ) { |
| if ( DP_Print ) { |
if ( DP_Print ) { |
| fprintf(stderr,".",j); |
fprintf(stderr,".",j); |
| #if defined(__MINGW32__) || defined(__MINGW64__) |
|
| fflush(stderr); |
|
| #endif |
|
| } |
} |
| for ( i = j; i < n && !dm[i][j]; i++ ); |
for ( i = j; i < n && !dm[i][j]; i++ ); |
| if ( i == n ) { |
if ( i == n ) { |
| Line 7710 void nd_det(int mod,MAT f,P *rp) |
|
| Line 7704 void nd_det(int mod,MAT f,P *rp) |
|
| } |
} |
| if ( DP_Print ) { |
if ( DP_Print ) { |
| fprintf(stderr,"\n",k); |
fprintf(stderr,"\n",k); |
| #if defined(__MINGW32__) || defined(__MINGW64__) |
|
| fflush(stderr); |
|
| #endif |
|
| } |
} |
| if ( sgn < 0 ) |
if ( sgn < 0 ) |
| if ( mod ) |
if ( mod ) |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to nd.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib2 / asir2000 / engine