Function: quadunit
Section: number_theoretical
C-Name: gfundunit
Prototype: Gp
Help: quadunit(x): fundamental unit of the quadratic field of discriminant x
 where x must be positive
Description: 
 (int):gen	fundunit($1)
 (gen):gen	gfundunit($1)

