===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/builtin/array.c,v
retrieving revision 1.77
retrieving revision 1.79
diff -u -p -r1.77 -r1.79
--- OpenXM_contrib2/asir2000/builtin/array.c	2019/03/03 05:21:16	1.77
+++ OpenXM_contrib2/asir2000/builtin/array.c	2021/03/24 18:28:07	1.79
@@ -45,7 +45,7 @@
  * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,
  * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.
  *
- * $OpenXM: OpenXM_contrib2/asir2000/builtin/array.c,v 1.76 2018/03/29 01:32:50 noro Exp $
+ * $OpenXM: OpenXM_contrib2/asir2000/builtin/array.c,v 1.78 2020/10/04 03:14:07 noro Exp $
 */
 #include "ca.h"
 #include "base.h"
@@ -1180,6 +1180,8 @@ void Pgeneric_gauss_elim(NODE arg,LIST *rp)
   MKLIST(*rp,n0);
 }
 
+int indep_rows_mod(int **mat0,int row,int col,int md,int *rowstat);
+
 void Pindep_rows_mod(NODE arg,VECT *rp)
 {
   MAT m,mat;
@@ -1525,6 +1527,8 @@ RESET:
   }
 }
 
+struct oEGT eg_chrem,eg_back,eg_fore;
+
 void lu_dec_cr(MAT mat,MAT lu,Q *dn,int **perm);
 
 /* XXX broken */
@@ -3220,6 +3224,8 @@ int gauss_elim_geninv_mod_swap(unsigned int **mat,int 
       s[j] = t[col+index[j]];
   return 0;
 }
+
+int gauss_elim_geninv_sf_swap(int **mat,int row,int col,int ***invmatp,int **indexp);
 
 void Pgeninv_sf_swap(NODE arg,LIST *rp)
 {