OpenXM/src/kan96xx/Kan/kanExport1.c - diff

Return to kanExport1.c CVS log

Up to [local] / OpenXM / src / kan96xx / Kan

version 1.9, 2003/08/24 05:19:42

version 1.11, 2004/02/23 09:03:42

Line 1

/* $OpenXM: OpenXM/src/kan96xx/Kan/kanExport1.c,v 1.8 2003/08/23 02:28:38 takayama Exp $ */

/* $OpenXM: OpenXM/src/kan96xx/Kan/kanExport1.c,v 1.10 2003/08/27 03:11:12 takayama Exp $ */

#include <stdio.h>

#include "datatype.h"

#include "stackm.h"

Line 234 struct object Kgroebner(ob)

}

/* Assume ob1Size , ob2Size > 0 */

ob2 = newObjectArray(ob2Size);

ob1ToOb2 = (int *)GC_malloc(sizeof(int)*ob1Size);

ob1ToOb2 = (int *)sGC_malloc(sizeof(int)*ob1Size);

ob1ZeroPos = (int *)GC_malloc(sizeof(int)*(ob1Size-ob2Size+1));

ob1ZeroPos = (int *)sGC_malloc(sizeof(int)*(ob1Size-ob2Size+1));

if (ob1ToOb2 == NULL || ob1ZeroPos == NULL) errorKan1("%s\n","No more memory.");

j = 0; k = 0;

for (i=0; i<ob1Size; i++) {

Line 274 struct object Kgroebner(ob)

fflush(stdout);

}

mp = getSyzygy(grG,grP->next,&grBases,&backwardMat);

if (mp == NULL) errorKan1("%s\n","Internal error in getSyzygy(). BUG of sm1.");

if (KanGBmessage) printf("Done.\n");

putoa(rob,0,gradedPolySetToArray(grG,0));