===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/extern2.h,v
retrieving revision 1.8
retrieving revision 1.10
diff -u -p -r1.8 -r1.10
--- OpenXM/src/kan96xx/Kan/extern2.h	2003/08/21 02:30:23	1.8
+++ OpenXM/src/kan96xx/Kan/extern2.h	2003/08/26 12:46:05	1.10
@@ -1,4 +1,4 @@
-/* $OpenXM: OpenXM/src/kan96xx/Kan/extern2.h,v 1.7 2003/08/20 01:39:17 takayama Exp $ */
+/* $OpenXM: OpenXM/src/kan96xx/Kan/extern2.h,v 1.9 2003/08/22 11:47:03 takayama Exp $ */
 /* poly.c */
 void KinitKan(void);
 MONOMIAL newMonomial(struct ring *ringp);
@@ -72,6 +72,8 @@ int isHomogenized_vec(POLY f);
 int containVectorVariable(POLY f);
 POLY POLYToPrincipalPart(POLY f);
 POLY POLYToInitW(POLY f,int w[]);
+POLY POLYToInitWS(POLY f,int w[],int s[]);
+int ordWsAll(POLY f,int w[],int s[]);
 
 POLY polyGCD(POLY f,POLY g);
 int isTheSameRing(struct ring *rstack[], int rp, struct ring *newRingp);
@@ -127,6 +129,7 @@ int isMinusOne(struct coeff *cp);
 int isMinusOne(struct coeff *cp);
 int isNegative(struct coeff *cp);
 int isConstant(POLY f);
+int isConstantAll(POLY f);
 void errorOutput(char *s);
 int validOutputOrder(int w[],int n);