Bill Allombert on Sat, 11 Dec 1999 22:03:04 +0100 (MET)


[Date Prev] [Date Next] [Thread Prev] [Thread Next] [Date Index] [Thread Index]

Re: bnfisnorm() bug


Igor wrote:

? bnfisnorm(bnfinit(polsubcyclo(7,3)),2)
  ***   impossible concatenation in concat

Here a patch contributed by Denis Simon, who wrote the initial code of
bnfisnorm.

Bill.
CVS version updated
Index: src/basemath/buch4.c
===================================================================
RCS file: /home/megrez/cvsroot/pari/src/basemath/buch4.c,v
retrieving revision 1.1.1.1
diff -u -r1.1.1.1 buch4.c
--- src/basemath/buch4.c        1999/09/16 13:47:29     1.1.1.1
+++ src/basemath/buch4.c        1999/12/11 20:53:20
@@ -768,7 +768,7 @@
     aux=(GEN)aux[1];
   }
   if (lg(aux)>1)
-    sunitrelnf=concatsp(gtrans(aux),sunitrelnf);
+    sunitrelnf=concatsp(aux,sunitrelnf);
   lgsunitrelnf=lg(sunitrelnf);
   M=cgetg(lgsunitrelnf+1,t_MAT);
   sunitnormnf=cgetg(lgsunitrelnf,t_VEC);