Changeset e6ddbd in git

Timestamp:

Mar 6, 2010, 3:08:49 PM (13 years ago)

Author:

Martin Monerjan

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

fd2218baad4221e6290715eab6c8ce08df409b4d

Parents:

73809b3238e9c892b9499243f1d22f8a468631a8

Message:

Gcd fix in makeInt


git-svn-id: file:///usr/local/Singular/svn/trunk@12610 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• kernel/gfan.cc (modified) (1 diff)

kernel/gfan.cc

@@ -3579 +3579 @@
                         
 //                      mpq_canonicalize(qkgV);
-        int ggT=1;
+//      int ggT=1;
         for (int ii=0;ii<(M->colsize)-1;ii++)
         {
                 mpq_mul(res,qkgV,M->matrix[line-1][ii+1]);
                 n[ii]=(int)mpz_get_d(mpq_numref(res));
-                ggT=intgcd(ggT,n[ii]);
-        }
+//              ggT=intgcd(ggT,n[ii]);
+        }
+        int ggT=n[0];
+        for(int ii=0;ii<this->numVars;ii++)
+                ggT=intgcd(ggT,n[ii]);  
         //Normalization
         if(ggT>1)