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]); |
} |
} |