[BACK]Return to order.c CVS log [TXT][DIR] Up to [local] / OpenXM / src / kan96xx / Kan

Diff for /OpenXM/src/kan96xx/Kan/order.c between version 1.13 and 1.14

version 1.13, 2004/09/13 11:24:11 version 1.14, 2005/06/16 05:07:23
Line 1 
Line 1 
 /* $OpenXM: OpenXM/src/kan96xx/Kan/order.c,v 1.12 2004/05/15 12:00:48 takayama Exp $ */  /* $OpenXM: OpenXM/src/kan96xx/Kan/order.c,v 1.13 2004/09/13 11:24:11 takayama Exp $ */
 #include <stdio.h>  #include <stdio.h>
 #include "datatype.h"  #include "datatype.h"
 #include "stackm.h"  #include "stackm.h"
Line 326  void printOrder(ringp)
Line 326  void printOrder(ringp)
   
 struct object oGetOrderMatrix(struct ring *ringp)  struct object oGetOrderMatrix(struct ring *ringp)
 {  {
   struct object rob,ob2;    struct object rob = OINIT;
     struct object ob2 = OINIT;
   int n,i,j,m;    int n,i,j,m;
   int *om;    int *om;
   n = ringp->n;    n = ringp->n;
Line 631  int mmLarger_tower3(POLY f,POLY g,struct object *gbLis
Line 632  int mmLarger_tower3(POLY f,POLY g,struct object *gbLis
   int n,fv,gv,t,r,nn;    int n,fv,gv,t,r,nn;
   POLY fm;    POLY fm;
   POLY gm;    POLY gm;
   struct object gb;    struct object gb = OINIT;
   
   if (f == POLYNULL) {    if (f == POLYNULL) {
     if (g == POLYNULL)  return(2);      if (g == POLYNULL)  return(2);
Line 688  int mmLarger_tower3(POLY f,POLY g,struct object *gbLis
Line 689  int mmLarger_tower3(POLY f,POLY g,struct object *gbLis
   
 static struct object auxPruneZeroRow(struct object ob) {  static struct object auxPruneZeroRow(struct object ob) {
   int i,m,size;    int i,m,size;
   struct object obt;    struct object obt = OINIT;
   struct object rob;    struct object rob = OINIT;
   m = getoaSize(ob);    m = getoaSize(ob);
   size=0;    size=0;
   for (i=0; i<m; i++) {    for (i=0; i<m; i++) {
Line 708  static struct object auxPruneZeroRow(struct object ob)
Line 709  static struct object auxPruneZeroRow(struct object ob)
 }  }
 static struct object oRingToOXringStructure_long(struct ring *ringp)  static struct object oRingToOXringStructure_long(struct ring *ringp)
 {  {
   struct object rob,ob2;    struct object rob = OINIT;
   struct object obMat;    struct object ob2 = OINIT;
   struct object obV;    struct object obMat = OINIT;
   struct object obShift;    struct object obV = OINIT;
   struct object obt;    struct object obShift = OINIT;
     struct object obt = OINIT;
   char **TransX; char **TransD;    char **TransX; char **TransD;
   int n,i,j,m,p,nonzero;    int n,i,j,m,p,nonzero;
   int *om;    int *om;
Line 810  static int auxEffectiveVar(int idx,int n) {
Line 812  static int auxEffectiveVar(int idx,int n) {
  */   */
 static struct object oRingToOXringStructure_short(struct ring *ringp)  static struct object oRingToOXringStructure_short(struct ring *ringp)
 {  {
   struct object rob,ob2;    struct object rob = OINIT;
   struct object obMat;    struct object ob2 = OINIT;
   struct object obV;    struct object obMat = OINIT;
   struct object obShift;    struct object obV = OINIT;
   struct object obt;    struct object obShift = OINIT;
     struct object obt = OINIT;
   char **TransX; char **TransD;    char **TransX; char **TransD;
   int n,i,j,m,p,nonzero;    int n,i,j,m,p,nonzero;
   int *om;    int *om;
Line 896  static struct object oRingToOXringStructure_short(stru
Line 899  static struct object oRingToOXringStructure_short(stru
 }  }
 struct object oRingToOXringStructure(struct ring *ringp)  struct object oRingToOXringStructure(struct ring *ringp)
 {  {
   struct object rob;    struct object rob = OINIT;
   struct object tob;    struct object tob = OINIT;
   rob = newObjectArray(2);    rob = newObjectArray(2);
   tob = oRingToOXringStructure_short(ringp);    tob = oRingToOXringStructure_short(ringp);
   putoa(rob,0,tob);    putoa(rob,0,tob);
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>