===================================================================
RCS file: /home/cvs/OpenXM_contrib/pari-2.2/src/test/64/Attic/linear,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -p -r1.1 -r1.2
--- OpenXM_contrib/pari-2.2/src/test/64/Attic/linear	2001/10/02 11:17:13	1.1
+++ OpenXM_contrib/pari-2.2/src/test/64/Attic/linear	2002/09/11 07:27:12	1.2
@@ -11,10 +11,10 @@ z^3 + 7*z^2 + 16*z - 19
 z^2 - 5*z - 2
 ? charpoly(Mod(1,8191)*[1,2;3,4],z,2)
 z^2 + Mod(8186, 8191)*z + Mod(8189, 8191)
-? lindep(Mod(1,7)*[2,-1;1,3],-1)
+? lindep(Mod(1,7)*[2,-1;1,3],-2)
 [Mod(6, 7), Mod(5, 7)]~
 ? lindep([(1-3*sqrt(2))/(3-2*sqrt(3)),1,sqrt(2),sqrt(3),sqrt(6)])
-[-3, -3, 9, -2, 6]
+[3, 3, -9, 2, -6]~
 ? lindep([(1-3*sqrt(2))/(3-2*sqrt(3)),1,sqrt(2),sqrt(3),sqrt(6)],14)
 [-3, -3, 9, -2, 6]
 ? matadjoint([1,2;3,4])
@@ -286,19 +286,19 @@ z^2 + Mod(8186, 8191)*z + Mod(8189, 8191)
 
 [0 1 -1]
 
-? matkerint(matrix(4,6,x,y,2520/(x+y)),2)
+? matkerint(matrix(4,6,x,y,2520/(x+y)))
 
-[3 1]
+[-3 -1]
 
-[-30 -15]
+[30 15]
 
-[70 70]
+[-70 -70]
 
-[0 -140]
+[0 140]
 
-[-126 126]
+[126 -126]
 
-[84 -42]
+[-84 42]
 
 ? matmuldiagonal(amat,[1,2,3,4,5,6,7])
 
@@ -497,36 +497,22 @@ z^2 + Mod(8186, 8191)*z + Mod(8189, 8191)
 
 ? qflll(m)
 
-[-420 -420 840 630 -1092 -83 2562]
+[-420 -420 840 630 -1092 -83 2982]
 
-[-210 -280 630 504 -876 70 2205]
+[-210 -280 630 504 -876 70 2415]
 
-[-140 -210 504 420 -749 137 1910]
+[-140 -210 504 420 -749 137 2050]
 
-[-105 -168 420 360 -658 169 1680]
+[-105 -168 420 360 -658 169 1785]
 
-[-84 -140 360 315 -588 184 1498]
+[-84 -140 360 315 -588 184 1582]
 
-[-70 -120 315 280 -532 190 1351]
+[-70 -120 315 280 -532 190 1421]
 
-[-60 -105 280 252 -486 191 1230]
+[-60 -105 280 252 -486 191 1290]
 
 ? qflll(m,7)
-
-[-420 -420 840 630 -1092 -83 2562]
-
-[-210 -280 630 504 -876 70 2205]
-
-[-140 -210 504 420 -749 137 1910]
-
-[-105 -168 420 360 -658 169 1680]
-
-[-84 -140 360 315 -588 184 1498]
-
-[-70 -120 315 280 -532 190 1351]
-
-[-60 -105 280 252 -486 191 1230]
-
+  ***   invalid flag in qflll.
 ? qflllgram(m)
 
 [1 1 27 -27 69 0 141]
@@ -544,21 +530,7 @@ z^2 + Mod(8186, 8191)*z + Mod(8189, 8191)
 [0 1 3 -17 3 -7 3]
 
 ? qflllgram(m,7)
-
-[1 1 27 -27 69 0 141]
-
-[0 1 4 -22 34 -24 49]
-
-[0 1 3 -21 18 -24 23]
-
-[0 1 3 -20 10 -19 13]
-
-[0 1 3 -19 6 -14 8]
-
-[0 1 3 -18 4 -10 5]
-
-[0 1 3 -17 3 -7 3]
-
+  ***   invalid flag in qflllgram.
 ? qflllgram(m,1)
 
 [1 1 27 -27 69 0 141]
@@ -629,22 +601,6 @@ z^2 + Mod(8186, 8191)*z + Mod(8189, 8191)
 0, 0, 0, 0, 0; 0, 0, 0, 0, 0, 0, 0; 0, 0, 0, 0, 0, 0, 0; 0, 0, 0, 0, 0, 0, 0
 ; 1, 0, 0, 0, 0, 0, 0; 0, 1, 0, 0, 0, 0, 0; 0, 0, 1, 0, 0, 0, 0; 0, 0, 0, 1,
  0, 0, 0; 0, 0, 0, 0, 1, 0, 0; 0, 0, 0, 0, 0, 1, 0; 0, 0, 0, 0, 0, 0, 1]]
-? qflll(m,3)
-
-[-420 -420 840 630 -1092 -83 2982]
-
-[-210 -280 630 504 -876 70 2415]
-
-[-140 -210 504 420 -749 137 2050]
-
-[-105 -168 420 360 -658 169 1785]
-
-[-84 -140 360 315 -588 184 1582]
-
-[-70 -120 315 280 -532 190 1421]
-
-[-60 -105 280 252 -486 191 1290]
-
 ? qfminim([2,1;1,2],4,6)
 [6, 2, [0, -1, 1; 1, 1, 0]]
 ? qfperfection([2,0,1;0,2,1;1,1,2])
@@ -773,7 +729,7 @@ z^2 + Mod(8186, 8191)*z + Mod(8189, 8191)
 [[4, 13, 3, 17, 14]~ [14, 16, 11, 5, 4]~ [9, 11, 13, 7, 15]~]
 
 ? getheap
-[111, 12057]
+[109, 11426]
 ? print("Total time spent: ",gettime);
-Total time spent: 143
+Total time spent: 138
 ? \q