| version 1.14, 2005/06/16 05:07:23 |
version 1.17, 2020/10/06 11:33:46 |
|
|
| /* $OpenXM: OpenXM/src/kan96xx/Kan/order.c,v 1.13 2004/09/13 11:24:11 takayama Exp $ */ |
/* $OpenXM: OpenXM/src/kan96xx/Kan/order.c,v 1.16 2018/09/07 00:15:44 takayama Exp $ */ |
| #include <stdio.h> |
#include <stdio.h> |
| |
#include <stdlib.h> |
| |
#include <string.h> |
| #include "datatype.h" |
#include "datatype.h" |
| #include "stackm.h" |
#include "stackm.h" |
| #include "extern.h" |
#include "extern.h" |
| Line 173 void showRing(level,ringp) |
|
| Line 175 void showRing(level,ringp) |
|
| }else { |
}else { |
| mtype = "unknown"; |
mtype = "unknown"; |
| } |
} |
| fprintf(fp,"Multiplication function --%s(%xH).\n", |
fprintf(fp,"Multiplication function --%s(%p).\n", |
| mtype,(unsigned int) ringp->multiplication); |
mtype, ringp->multiplication); |
| if (ringp->schreyer) { |
if (ringp->schreyer) { |
| fprintf(fp,"schreyer=1, gbListTower="); |
fprintf(fp,"schreyer=1, gbListTower="); |
| printObjectList((struct object *)(ringp->gbListTower)); |
printObjectList((struct object *)(ringp->gbListTower)); |
| Line 464 int mmLarger_qmatrix(ff,gg) |
|
| Line 466 int mmLarger_qmatrix(ff,gg) |
|
| } |
} |
| |
|
| /* x(N-1)>x(N-2)>....>D(N-1)>....>D(0) */ |
/* x(N-1)>x(N-2)>....>D(N-1)>....>D(0) */ |
| mmLarger_pureLexicographic(f,g) |
int mmLarger_pureLexicographic(f,g) |
| POLY f; |
POLY f; |
| POLY g; |
POLY g; |
| { |
{ |