APDWR(M,I,b,n)
[Algebraic point, decimal write. M,I, and b constitute the
representation of an algebraic point in r-dimensional Euclidean
space for some r>=1. n is a nonnegative integer. For each
coordinate @b sub i@ of b, @b sub i@ is represented by a rational
number @R sub i@ with inaccuracy of approximation at most
@10 sup -(n+1)@. Then @R sub i@ is approximated by a decimal
fraction @D sub i@ with n decimal digits following the decimal
point, and @D sub i@ is written in the output stream. The
inaccuracy of the approximation of @D sub i@ to @R sub i@ is
at most (1/2) @10 sup -n@.]
(1) b'=b; CWRIT2('(',' '); while b'~=() do { ADV(b';b1,b');
ANFAF(M,I,b1;N,J); ANDWR(N,J,n); if b'~=() then
CLOUT(" , ") }; CWRIT2(' ',')'); return..