| version 1.6, 2001/06/25 10:01:28 |
version 1.7, 2001/06/27 04:07:57 |
|
|
| /* $OpenXM: OpenXM_contrib2/asir2000/engine/Mgfs.c,v 1.5 2001/06/25 05:30:49 noro Exp $ */ |
/* $OpenXM: OpenXM_contrib2/asir2000/engine/Mgfs.c,v 1.6 2001/06/25 10:01:28 noro Exp $ */ |
| |
|
| #include "ca.h" |
#include "ca.h" |
| |
|
|
|
| if ( DEG(mul) >= 0 ) |
if ( DEG(mul) >= 0 ) |
| for ( j = 0; i+j < bound; j++ ) { |
for ( j = 0; i+j < bound; j++ ) { |
| if ( COEF(f1)[j] ) { |
if ( COEF(f1)[j] ) { |
| mulsfum(COEF(f1)[j],mul,t); |
kmulsfum(COEF(f1)[j],mul,t); |
| addsfum(t,COEF(fr)[i+j],s); |
addsfum(t,COEF(fr)[i+j],s); |
| cpyum(s,COEF(fr)[i+j]); |
cpyum(s,COEF(fr)[i+j]); |
| } |
} |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to Mgfs.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib2 / asir2000 / engine