[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.12 and 1.14

version 1.12, 2004/05/15 12:00:48 version 1.14, 2005/06/16 05:07:23
Line 1 
Line 1 
 /* $OpenXM: OpenXM/src/kan96xx/Kan/order.c,v 1.11 2004/05/13 06:30:51 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 196  void showRing(level,ringp) 
Line 196  void showRing(level,ringp) 
   }    }
   fprintf(fp,"---  weight vectors ---\n");    fprintf(fp,"---  weight vectors ---\n");
   if (level) printOrder(ringp);    if (level) printOrder(ringp);
   
     if (ringp->partialEcart) {
       fprintf(fp,"---  partialEcartGlobalVarX ---\n");
       for (i=0; i<ringp->partialEcart; i++) {
         fprintf(fp," %4s ",TransX[ringp->partialEcartGlobalVarX[i]]);
       }
       fprintf(fp,"\n");
     }
   
   if (ringp->next != (struct ring *)NULL) {    if (ringp->next != (struct ring *)NULL) {
     fprintf(fp,"\n\n-------- The next ring is .... --------------\n");      fprintf(fp,"\n\n-------- The next ring is .... --------------\n");
Line 318  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 623  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 680  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 700  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 802  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 888  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.12  
changed lines
  Added in v.1.14
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>