version 1.20, 2005/06/16 08:40:04 |
version 1.21, 2005/07/03 11:08:53 |
|
|
/* $OpenXM: OpenXM/src/kan96xx/Kan/kanExport1.c,v 1.19 2005/06/16 06:54:55 takayama Exp $ */ |
/* $OpenXM: OpenXM/src/kan96xx/Kan/kanExport1.c,v 1.20 2005/06/16 08:40:04 takayama Exp $ */ |
#include <stdio.h> |
#include <stdio.h> |
#include "datatype.h" |
#include "datatype.h" |
#include "stackm.h" |
#include "stackm.h" |
Line 19 struct object DegreeShiftD = OINIT; |
|
Line 19 struct object DegreeShiftD = OINIT; |
|
int DegreeShiftD_size = 0; |
int DegreeShiftD_size = 0; |
int *DegreeShiftD_vec = NULL; |
int *DegreeShiftD_vec = NULL; |
|
|
|
static struct object paddingVector(struct object ob, int table[], int m); |
|
static struct object unitVector(int pos, int size,struct ring *r); |
|
|
/** :kan, :ring */ |
/** :kan, :ring */ |
struct object Kreduction(f,set) |
struct object Kreduction(f,set) |
struct object f; |
struct object f; |
Line 104 struct object Kgroebner(ob) |
|
Line 107 struct object Kgroebner(ob) |
|
struct object newB = OINIT; |
struct object newB = OINIT; |
struct object orgC = OINIT; |
struct object orgC = OINIT; |
struct object newC = OINIT; |
struct object newC = OINIT; |
static struct object paddingVector(struct object ob, int table[], int m); |
struct object paddingVector(struct object ob, int table[], int m); |
static struct object unitVector(int pos, int size,struct ring *r); |
struct object unitVector(int pos, int size,struct ring *r); |
extern struct ring *CurrentRingp; |
extern struct ring *CurrentRingp; |
|
|
StopDegree = 0x7fff; |
StopDegree = 0x7fff; |