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