version 1.67, 2015/08/08 14:19:41 |
version 1.68, 2015/08/14 13:51:54 |
|
|
* 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/builtin/array.c,v 1.66 2015/03/04 08:44:26 ohara Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/builtin/array.c,v 1.67 2015/08/08 14:19:41 fujimoto Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "base.h" |
#include "base.h" |
Line 231 int lu_gauss(int *ul,ent **u,int *ll,ent **l,int n,int |
|
Line 231 int lu_gauss(int *ul,ent **u,int *ll,ent **l,int n,int |
|
for ( i = 0; i < n; i++ ) ll2[i] = 0; |
for ( i = 0; i < n; i++ ) ll2[i] = 0; |
for ( i = 0; i < n; i++ ) { |
for ( i = 0; i < n; i++ ) { |
fprintf(stderr,"i=%d\n",i); |
fprintf(stderr,"i=%d\n",i); |
#if defined(__MINGW32__) || defined(__MINGW64__) |
|
fflush(stderr); |
|
#endif |
|
inv = invm(u[i][0].e,mod); |
inv = invm(u[i][0].e,mod); |
for ( k = i+1; k < n; k++ ) |
for ( k = i+1; k < n; k++ ) |
if ( u[k][0].j == n-i ) { |
if ( u[k][0].j == n-i ) { |
Line 1778 int generic_gauss_elim_hensel(MAT mat,MAT *nmmat,Q *dn |
|
Line 1775 int generic_gauss_elim_hensel(MAT mat,MAT *nmmat,Q *dn |
|
} |
} |
} |
} |
} |
} |
#if defined(__MINGW32__) || defined(__MINGW64__) |
|
fflush(stderr); |
|
#endif |
|
} |
} |
|
|
int generic_gauss_elim_hensel_dalg(MAT mat,DP *mb,MAT *nmmat,Q *dn,int **rindp,int **cindp) |
int generic_gauss_elim_hensel_dalg(MAT mat,DP *mb,MAT *nmmat,Q *dn,int **rindp,int **cindp) |
Line 1966 int generic_gauss_elim_hensel_dalg(MAT mat,DP *mb,MAT |
|
Line 1960 int generic_gauss_elim_hensel_dalg(MAT mat,DP *mb,MAT |
|
} |
} |
} |
} |
} |
} |
#if defined(__MINGW32__) || defined(__MINGW64__) |
|
fflush(stderr); |
|
#endif |
|
} |
} |
|
|
int f4_nocheck; |
int f4_nocheck; |