version 1.4, 2001/03/08 07:49:13 |
version 1.7, 2003/10/20 00:58:47 |
|
|
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* |
* |
* $OpenXM: OpenXM_contrib2/asir2000/lib/fff,v 1.3 2000/08/22 05:04:21 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/lib/fff,v 1.6 2001/09/03 07:01:09 noro Exp $ |
*/ |
*/ |
/* |
/* |
fff : Univariate factorizer over a finite field. |
fff : Univariate factorizer over a finite field. |
|
|
99/06/11 noro |
99/06/11 noro |
99/07/27 noro |
99/07/27 noro |
*/ |
*/ |
|
module fff $ |
|
/* Empty for now. It will be used in a future. */ |
|
endmodule $ |
|
|
#include "defs.h" |
#include "defs.h" |
|
|
Line 469 def lnf_insert(P,L,V) |
|
Line 472 def lnf_insert(P,L,V) |
|
def c_z_ff(F,E) |
def c_z_ff(F,E) |
{ |
{ |
Type = field_type_ff(); |
Type = field_type_ff(); |
if ( Type == 1 || Type == 3 ) |
if ( Type == 1 || Type == 3 || Type == 4 || Type == 5 ) |
return c_z_lm(F,E); |
return c_z_lm(F,E); |
else |
else |
return c_z_gf2n(F,E); |
return c_z_gf2n(F,E); |
Line 500 def find_root_ff(P) |
|
Line 503 def find_root_ff(P) |
|
def c_z_one_ff(F,E) |
def c_z_one_ff(F,E) |
{ |
{ |
Type = field_type_ff(); |
Type = field_type_ff(); |
if ( Type == 1 || Type == 3 ) |
if ( Type == 1 || Type == 3 || Type == 4 || Type == 5 ) |
return c_z_one_lm(F,E); |
return c_z_one_lm(F,E); |
else |
else |
return c_z_one_gf2n(F,E); |
return c_z_one_gf2n(F,E); |