| version 1.114, 2004/10/25 04:19:50 |
version 1.115, 2004/11/18 08:29:11 |
|
|
| /* $OpenXM: OpenXM_contrib2/asir2000/engine/nd.c,v 1.113 2004/10/06 12:09:19 noro Exp $ */ |
/* $OpenXM: OpenXM_contrib2/asir2000/engine/nd.c,v 1.114 2004/10/25 04:19:50 noro Exp $ */ |
| |
|
| #include "nd.h" |
#include "nd.h" |
| |
|
| Line 2622 void nd_mul_c(int mod,ND p,int mul) |
|
| Line 2622 void nd_mul_c(int mod,ND p,int mul) |
|
| int c,c1; |
int c,c1; |
| |
|
| if ( !p ) return; |
if ( !p ) return; |
| |
if ( mul == 1 ) return; |
| if ( mod == -1 ) |
if ( mod == -1 ) |
| for ( m = BDY(p); m; m = NEXT(m) ) |
for ( m = BDY(p); m; m = NEXT(m) ) |
| CM(m) = _mulsf(CM(m),mul); |
CM(m) = _mulsf(CM(m),mul); |
| Line 2637 void nd_mul_c_q(ND p,Q mul) |
|
| Line 2638 void nd_mul_c_q(ND p,Q mul) |
|
| Q c; |
Q c; |
| |
|
| if ( !p ) return; |
if ( !p ) return; |
| |
if ( UNIQ(mul) ) return; |
| for ( m = BDY(p); m; m = NEXT(m) ) { |
for ( m = BDY(p); m; m = NEXT(m) ) { |
| mulq(CQ(m),mul,&c); CQ(m) = c; |
mulq(CQ(m),mul,&c); CQ(m) = c; |
| } |
} |
![[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