=================================================================== RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/kanExport1.c,v retrieving revision 1.4 retrieving revision 1.5 diff -u -p -r1.4 -r1.5 --- OpenXM/src/kan96xx/Kan/kanExport1.c 2003/07/13 07:53:17 1.4 +++ OpenXM/src/kan96xx/Kan/kanExport1.c 2003/07/17 07:33:03 1.5 @@ -1,4 +1,4 @@ -/* $OpenXM$ */ +/* $OpenXM: OpenXM/src/kan96xx/Kan/kanExport1.c,v 1.4 2003/07/13 07:53:17 takayama Exp $ */ #include #include "datatype.h" #include "stackm.h" @@ -12,6 +12,10 @@ static int Message = 1; extern int KanGBmessage; +struct object DegreeShifto; +int DegreeShifto_size = 0; +int *DegreeShifto_vec = NULL; + /** :kan, :ring */ struct object Kreduction(f,set) struct object f; @@ -684,7 +688,7 @@ struct object homogenizeObject(ob,gradep) rob = newObjectArray(size); flag = 0; ob1 = getoa(ob,0); - if (ob1.tag == Sdollar) return(homogenizeObject_go(ob,gradep)); + if (ob1.tag == Sdollar) return(homogenizeObject_go(ob,gradep)); ob1 = homogenizeObject(ob1,&gr); maxg = gr; getoa(rob,0) = ob1; @@ -746,7 +750,7 @@ struct object homogenizeObject_vec(ob,gradep) if (size == 0) { errorKan1("%s\n","homogenizeObject_vec() is called for the empty array."); } - if (getoa(ob,0).tag == Sdollar) return(homogenizeObject_go(ob,gradep)); + if (getoa(ob,0).tag == Sdollar) return(homogenizeObject_go(ob,gradep)); rob = newObjectArray(size); for (i=0; i0?dssize:1)); - for (i=0; i0?dssize:1)); + for (i=0; i