version 1.2, 2000/04/13 06:01:01 |
version 1.3, 2000/04/20 02:20:15 |
|
|
/* $OpenXM: OpenXM_contrib2/asir2000/builtin/gr.c,v 1.1.1.1 1999/12/03 07:39:07 noro Exp $ */ |
/* $OpenXM: OpenXM_contrib2/asir2000/builtin/gr.c,v 1.2 2000/04/13 06:01:01 noro Exp $ */ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
#include "base.h" |
#include "base.h" |
|
|
fprintf(asir_out,"mat : %d x %d",row,col); |
fprintf(asir_out,"mat : %d x %d",row,col); |
fflush(asir_out); |
fflush(asir_out); |
} |
} |
|
#if 0 |
|
rank = generic_gauss_elim_hensel(mat,&nm,&dn,&rind,&cind); |
|
#else |
rank = generic_gauss_elim(mat,&nm,&dn,&rind,&cind); |
rank = generic_gauss_elim(mat,&nm,&dn,&rind,&cind); |
|
#endif |
if ( Print ) |
if ( Print ) |
fprintf(asir_out,"done rank = %d\n",rank,row,col); |
fprintf(asir_out,"done rank = %d\n",rank,row,col); |
for ( i = 0; i < rank; i++ ) { |
for ( i = 0; i < rank; i++ ) { |