|  |  D.12.2.13 wUnit Procedure from libraryatkins.lib(see  atkins_lib).
 
Example:Usage:
wUnit(D);
Return:
the number of roots of unity in the quadratic order of discriminant D
Assume:
D<0 a discriminant kongruent to 0 or 1 modulo 4
 |  | LIB "atkins.lib";
bigint D=-3;
wUnit(D);
==> 6
 | 
 
 |