| version 1.9, 2001/06/26 03:00:40 |
version 1.10, 2001/06/26 08:52:59 |
|
|
| /* $OpenXM: OpenXM_contrib2/asir2000/engine/Hgfs.c,v 1.8 2001/06/25 10:01:28 noro Exp $ */ |
/* $OpenXM: OpenXM_contrib2/asir2000/engine/Hgfs.c,v 1.9 2001/06/26 03:00:40 noro Exp $ */ |
| |
|
| #include "ca.h" |
#include "ca.h" |
| |
|
|
|
| int d,i,n; |
int d,i,n; |
| UM t; |
UM t; |
| |
|
| |
n = QTOS(DEG(DC(f))); |
| |
clearsfbm(bound,n,fl); |
| DEG(fl) = bound; |
DEG(fl) = bound; |
| t = UMALLOC(bound); |
t = UMALLOC(bound); |
| for ( dc = DC(f); dc; dc = NEXT(dc) ) { |
for ( dc = DC(f); dc; dc = NEXT(dc) ) { |
|
|
| for ( i = 0; i <= DEG(t); i++ ) |
for ( i = 0; i <= DEG(t); i++ ) |
| COEF(COEF(fl)[i])[d] = COEF(t)[i]; |
COEF(COEF(fl)[i])[d] = COEF(t)[i]; |
| } |
} |
| n = QTOS(DEG(DC(f))); |
|
| for ( i = 0; i < bound; i++ ) |
for ( i = 0; i < bound; i++ ) |
| degum(COEF(fl)[i],n); |
degum(COEF(fl)[i],n); |
| } |
} |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to Hgfs.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib2 / asir2000 / engine