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

Diff for /OpenXM/src/kan96xx/Kan/redm.c between version 1.5 and 1.6

version 1.5, 2003/07/17 09:10:54 version 1.6, 2003/08/24 05:19:43
Line 1 
Line 1 
 /* $OpenXM: OpenXM/src/kan96xx/Kan/redm.c,v 1.4 2003/07/10 08:20:05 takayama Exp $ */  /* $OpenXM: OpenXM/src/kan96xx/Kan/redm.c,v 1.5 2003/07/17 09:10:54 takayama Exp $ */
 #include <stdio.h>  #include <stdio.h>
 #include "datatype.h"  #include "datatype.h"
 #include "extern2.h"  #include "extern2.h"
Line 333  int dGrade1(f)
Line 333  int dGrade1(f)
   MONOMIAL tf;    MONOMIAL tf;
   static int nn,mm,ll,cc,n,m,l,c;    static int nn,mm,ll,cc,n,m,l,c;
   static struct ring *cr = (struct ring *)NULL;    static struct ring *cr = (struct ring *)NULL;
     extern int *DegreeShiftD_vec;
     extern int DegreeShiftD_size;
   
   if (f ISZERO) return(-1);    if (f ISZERO) return(-1);
   tf = f->m;    tf = f->m;
Line 351  int dGrade1(f)
Line 353  int dGrade1(f)
   r = 0;    r = 0;
   for (i=m; i<nn; i++) {    for (i=m; i<nn; i++) {
     r += tf->e[i].D;      r += tf->e[i].D;
     }
     if (DegreeShiftD_size > 0) {
           if ((tf->e[n-1].x <DegreeShiftD_size) && (tf->e[n-1].x >= 0)) {
             r += DegreeShiftD_vec[tf->e[n-1].x];
           }else{
             /* warning. out of range. */
           }
   }    }
   return(r);    return(r);
 }  }

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>