Changeset 69658e in git for kernel/ideals.cc
 Timestamp:
 Feb 22, 2013, 12:29:35 AM (10 years ago)
 Branches:
 (u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')
 Children:
 2e2c67897e034b7ffa5b8a0dda72431cff944d4a
 Parents:
 367df95c40f03bb94a871481eb198951b3a42c85cd4f243f3aafc7080a52fa973f2d90493e4847f2
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

kernel/ideals.cc
r367df9 r69658e 939 939 BOOLEAN isSB, BOOLEAN divide, matrix *unit) 940 940 { 941 int lsmod =id_RankFreeModule(submod,currRing), i,j, k;941 int lsmod =id_RankFreeModule(submod,currRing), j, k; 942 942 int comps_to_add=0; 943 943 poly p; … … 1646 1646 poly idMinor(matrix a, int ar, unsigned long which, ideal R) 1647 1647 { 1648 int i,j ,k,size;1648 int i,j/*,k,size*/; 1649 1649 unsigned long curr; 1650 1650 int *rowchoise,*colchoise; 1651 1651 BOOLEAN rowch,colch; 1652 ideal result;1652 // ideal result; 1653 1653 matrix tmp; 1654 1654 poly p,q; … … 1659 1659 rowchoise=(int *)omAlloc(ar*sizeof(int)); 1660 1660 colchoise=(int *)omAlloc(ar*sizeof(int)); 1661 if ((i>512)  (j>512)  (i*j >512)) size=512;1662 else size=i*j;1663 result=idInit(size,1);1661 // if ((i>512)  (j>512)  (i*j >512)) size=512; 1662 // else size=i*j; 1663 // result=idInit(size,1); 1664 1664 tmp=mpNew(ar,ar); 1665 k = 0; /* the index in result*/1665 // k = 0; /* the index in result*/ 1666 1666 curr = 0; /* index of current minor */ 1667 1667 idInitChoise(ar,1,a>rows(),&rowch,rowchoise); … … 1714 1714 ideal idMinors(matrix a, int ar, ideal R) 1715 1715 { 1716 int i,j, k,size;1716 int i,j,/*k,*/size; 1717 1717 int *rowchoise,*colchoise; 1718 1718 BOOLEAN rowch,colch; … … 1730 1730 result=idInit(size,1); 1731 1731 tmp=mpNew(ar,ar); 1732 k = 0; /* the index in result*/1732 // k = 0; /* the index in result*/ 1733 1733 idInitChoise(ar,1,a>rows(),&rowch,rowchoise); 1734 1734 while (!rowch)
Note: See TracChangeset
for help on using the changeset viewer.