===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/extern2.h,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -p -r1.4 -r1.5
--- OpenXM/src/kan96xx/Kan/extern2.h	2003/07/10 08:20:04	1.4
+++ OpenXM/src/kan96xx/Kan/extern2.h	2003/07/17 07:33:03	1.5
@@ -1,4 +1,4 @@
-/* $OpenXM: OpenXM/src/kan96xx/Kan/extern2.h,v 1.3 2003/04/09 01:06:57 ohara Exp $ */
+/* $OpenXM: OpenXM/src/kan96xx/Kan/extern2.h,v 1.4 2003/07/10 08:20:04 takayama Exp $ */
 /* poly.c */
 void KinitKan(void);
 MONOMIAL newMonomial(struct ring *ringp);
@@ -70,10 +70,11 @@ POLY POLYToInitW(POLY f,int w[]);
 
 POLY polyGCD(POLY f,POLY g);
 int isTheSameRing(struct ring *rstack[], int rp, struct ring *newRingp);
-POLY goHomogenize(POLY f,int u[],int v[],int ds[],int dssize,int ei);
-POLY goHomogenize11(POLY f,int ds[],int dssize,int ei);
-POLY goHomogenize_dsIdx(POLY f,int u[],int v[],int dsIdx,int ei);
-POLY goHomogenize11_dsIdx(POLY f,int ds[],int dsIdx,int ei);
+POLY goDeHomogenizeS(POLY f);
+POLY goHomogenize(POLY f,int u[],int v[],int ds[],int dssize,int ei,int onlyS);
+POLY goHomogenize11(POLY f,int ds[],int dssize,int ei,int onlyS);
+POLY goHomogenize_dsIdx(POLY f,int u[],int v[],int dsIdx,int ei,int onlyS);
+POLY goHomogenize11_dsIdx(POLY f,int ds[],int dsIdx,int ei,int onlyS);
 
 /* coeff.c */
 char *intToString(int i);