Function: nfeltissquare
Section: number_fields
C-Name: nfissquare
Prototype: lGGD&
Help: nfeltissquare(nf,x,{&y}): return 1 if x is a square (and set y to a
 square root if present), else return 0.
Doc: return $1$ if $x$ is a square (and set $y$ to a square root if the
 argument is present), else return 0.

 \bprog
 ? nf = nfinit(1+x^2);
 ? nfeltissquare(nf, -1, &y)
 %2 = 1
 ? y
 %3 = [0, -1]~
 @eprog
