version 1.6, 2001/06/20 09:30:34 |
version 1.8, 2001/06/29 09:08:53 |
|
|
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* |
* |
* $OpenXM: OpenXM_contrib2/asir2000/engine/gfs.c,v 1.5 2001/05/28 08:22:01 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/engine/gfs.c,v 1.7 2001/06/21 07:47:02 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
|
|
|
|
*c = t; |
*c = t; |
} |
} |
|
|
|
/* GF(pn)={0,1,a,a^2,...} -> GF(pm)={0,1,b,b^2,...}; a->b^k */ |
|
|
|
void gfs_embed(z,k,pm,c) |
|
GFS z; |
|
int k,pm; |
|
GFS *c; |
|
{ |
|
int t; |
|
|
|
if ( !z ) |
|
*c = 0; |
|
else { |
|
t = dmar(k,CONT(z),0,pm-1); |
|
MKGFS(t,*c); |
|
} |
|
} |
void qtogfs(a,c) |
void qtogfs(a,c) |
Q a; |
Q a; |
GFS *c; |
GFS *c; |
Line 1077 int characteristic_sf() |
|
Line 1093 int characteristic_sf() |
|
return current_gfs_p; |
return current_gfs_p; |
} |
} |
|
|
|
int extdeg_sf() |
|
{ |
|
return UDEG(current_gfs_ext); |
|
} |