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

Diff for /OpenXM/src/kan96xx/Kan/hilbert.c between version 1.3 and 1.5

version 1.3, 2001/05/04 01:06:23 version 1.5, 2020/10/06 11:33:46
Line 1 
Line 1 
 /* $OpenXM: OpenXM/src/kan96xx/Kan/hilbert.c,v 1.2 2000/01/16 07:55:39 takayama Exp $ */  /* $OpenXM: OpenXM/src/kan96xx/Kan/hilbert.c,v 1.4 2005/06/16 05:07:23 takayama Exp $ */
 /*   hilbert.c  /*   hilbert.c
      1992/06/16       1992/06/16
      1992/06/18       1992/06/18
Line 16 
Line 16 
 #include "extern.h"  #include "extern.h"
 #include "extern2.h"  #include "extern2.h"
   
   void warningHilbert(char str[]);
   void errorHilbert(char str[]);
   
 struct arrayOfPOLYold {  struct arrayOfPOLYold {
   int n;    int n;
   POLY *array;    POLY *array;
Line 41  struct object hilberto(struct object obgb,struct objec
Line 44  struct object hilberto(struct object obgb,struct objec
   int n; /* number of variables */    int n; /* number of variables */
   int i,j,k;    int i,j,k;
   int n0; /* number of the variables for the polynomials in base. */    int n0; /* number of the variables for the polynomials in base. */
   struct object obf;    struct object obf = OINIT;
   struct ring *rp;    struct ring *rp;
   struct ring *rr = (struct ring *)NULL;    struct ring *rr = (struct ring *)NULL;
   POLY *base;    POLY *base;
Line 50  struct object hilberto(struct object obgb,struct objec
Line 53  struct object hilberto(struct object obgb,struct objec
   int debug = 0;    int debug = 0;
   POLY f;    POLY f;
   POLY g;    POLY g;
   struct object rob;    struct object rob = OINIT;
   struct object ccc;    struct object ccc = OINIT;
   extern struct ring SmallRing;    extern struct ring SmallRing;
   int worg;    int worg;
   extern int WarningNoVectorVariable;    extern int WarningNoVectorVariable;
Line 219  static int polyToInt(POLY f) {
Line 222  static int polyToInt(POLY f) {
 }  }
   
   
 static shell(v,n)  static void shell(v,n)
      int v[];       int v[];
      int n;       int n;
 {  {
Line 750  outputarrayOfPOLYold(set)
Line 753  outputarrayOfPOLYold(set)
 #endif  #endif
   
   
 warningHilbert(str)  void warningHilbert(char str[])
      char str[];  
 {  {
   fprintf(stderr,"Warning (hilbert.c): %s\n",str);    fprintf(stderr,"Warning (hilbert.c): %s\n",str);
 }  }
   
 errorHilbert(str)  void errorHilbert(char str[])
      char str[];  
 {  {
   errorKan1("%s\n",str);    errorKan1("%s\n",str);
 }  }
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.5
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>