version 1.2, 2000/01/11 06:43:37 |
version 1.3, 2000/06/05 02:26:48 |
|
|
/* $OpenXM: OpenXM_contrib2/asir2000/lib/gr,v 1.1.1.1 1999/12/03 07:39:11 noro Exp $ */ |
/* $OpenXM: OpenXM_contrib2/asir2000/lib/gr,v 1.2 2000/01/11 06:43:37 noro Exp $ */ |
extern INIT_COUNT,ITOR_FAIL$ |
extern INIT_COUNT,ITOR_FAIL$ |
extern REMOTE_MATRIX,REMOTE_NF,REMOTE_VARS$ |
extern REMOTE_MATRIX,REMOTE_NF,REMOTE_VARS$ |
|
|
Line 1086 def henleq_gsl(L,B,MOD) |
|
Line 1086 def henleq_gsl(L,B,MOD) |
|
if ( !COUNT ) |
if ( !COUNT ) |
COUNT = 1; |
COUNT = 1; |
MOD2 = idiv(MOD,2); |
MOD2 = idiv(MOD,2); |
for ( I = 0, C = BB, X = 0, PK = 1, CCC = 0, ITOR_FAIL = -1; ; |
X = newvect(size(AA)[0]); |
|
for ( I = 0, C = BB, PK = 1, CCC = 0, ITOR_FAIL = -1; ; |
I++, PK *= MOD ) { |
I++, PK *= MOD ) { |
if ( zerovector(C) ) |
if ( zerovector(C) ) |
if ( zerovector(RESTA*X+RESTB) ) { |
if ( zerovector(RESTA*X+RESTB) ) { |