| version 1.220, 2015/01/13 00:54:54 |
version 1.223, 2015/08/14 13:51:54 |
|
|
| /* $OpenXM: OpenXM_contrib2/asir2000/engine/nd.c,v 1.219 2014/08/19 06:35:01 noro 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 88 NDV ndvgztondv(NDV p); |
|
| Line 88 NDV ndvgztondv(NDV p); |
|
| ND ndtondgz(ND p); |
ND ndtondgz(ND p); |
| ND ndgztond(ND p); |
ND ndgztond(ND p); |
| |
|
| |
void Pdp_set_weight(NODE,VECT *); |
| |
void Pox_cmo_rpc(NODE,Obj *); |
| |
|
| extern int Denominator,DP_Multiple; |
extern int Denominator,DP_Multiple; |
| |
|
| #define BLEN (8*sizeof(unsigned long)) |
#define BLEN (8*sizeof(unsigned long)) |
| Line 7638 void nd_det(int mod,MAT f,P *rp) |
|
| Line 7641 void nd_det(int mod,MAT f,P *rp) |
|
| if ( mod ) ndv_mod(mod,d); |
if ( mod ) ndv_mod(mod,d); |
| chsgnq(ONE,&mone); |
chsgnq(ONE,&mone); |
| for ( j = 0, sgn = 1; j < n; j++ ) { |
for ( j = 0, sgn = 1; j < n; j++ ) { |
| if ( DP_Print ) fprintf(stderr,".",j); |
if ( DP_Print ) { |
| |
fprintf(stderr,".",j); |
| |
} |
| for ( i = j; i < n && !dm[i][j]; i++ ); |
for ( i = j; i < n && !dm[i][j]; i++ ); |
| if ( i == n ) { |
if ( i == n ) { |
| *rp = 0; |
*rp = 0; |
| Line 7697 void nd_det(int mod,MAT f,P *rp) |
|
| Line 7702 void nd_det(int mod,MAT f,P *rp) |
|
| } |
} |
| d = mjj; |
d = mjj; |
| } |
} |
| if ( DP_Print ) fprintf(stderr,"\n",k); |
if ( DP_Print ) { |
| |
fprintf(stderr,"\n",k); |
| |
} |
| if ( sgn < 0 ) |
if ( sgn < 0 ) |
| if ( mod ) |
if ( mod ) |
| ndv_mul_c(mod,d,mod-1); |
ndv_mul_c(mod,d,mod-1); |
![[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