| version 1.104, 2004/09/17 01:27:48 |
version 1.105, 2004/09/17 05:43:22 |
|
|
| /* $OpenXM: OpenXM_contrib2/asir2000/engine/nd.c,v 1.103 2004/09/15 06:06:42 noro Exp $ */ |
/* $OpenXM: OpenXM_contrib2/asir2000/engine/nd.c,v 1.104 2004/09/17 01:27:48 noro Exp $ */ |
| |
|
| #include "nd.h" |
#include "nd.h" |
| |
|
| Line 4824 ND ndv_mul_nmv_trunc(int mod,NMV m0,NDV p,UINT *d) |
|
| Line 4824 ND ndv_mul_nmv_trunc(int mod,NMV m0,NDV p,UINT *d) |
|
| return 0; |
return 0; |
| else { |
else { |
| NEXT(mr) = 0; |
NEXT(mr) = 0; |
| |
for ( len = 0, mr = mr0; mr; mr = NEXT(mr), len++ ); |
| MKND(NV(p),mr0,len,r); |
MKND(NV(p),mr0,len,r); |
| SG(r) = SG(p) + TD(d0); |
SG(r) = SG(p) + TD(d0); |
| return r; |
return r; |
![[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