|  |  D.12.2.37 is_primitive_root Procedure from librarycrypto.lib(see  crypto_lib).
 
Example:Usage:
is_primitive_root(primitive, mod1)
Return:
1 if primitive is a primitive root modulo mod1, 0 otherwise
 |  | LIB "crypto.lib";
is_primitive_root(3,7);
==> 1
is_primitive_root(2,7);
==> 0
 | 
 
 |