===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/engine/nd.c,v
retrieving revision 1.220
retrieving revision 1.223
diff -u -p -r1.220 -r1.223
--- OpenXM_contrib2/asir2000/engine/nd.c	2015/01/13 00:54:54	1.220
+++ OpenXM_contrib2/asir2000/engine/nd.c	2015/08/14 13:51:54	1.223
@@ -1,4 +1,4 @@
-/* $OpenXM: OpenXM_contrib2/asir2000/engine/nd.c,v 1.219 2014/08/19 06:35:01 noro Exp $ */
+/* $OpenXM: OpenXM_contrib2/asir2000/engine/nd.c,v 1.222 2015/08/08 14:19:41 fujimoto Exp $ */
 
 #include "nd.h"
 
@@ -88,6 +88,9 @@ NDV ndvgztondv(NDV p);
 ND ndtondgz(ND p);
 ND ndgztond(ND p);
 
+void Pdp_set_weight(NODE,VECT *);
+void Pox_cmo_rpc(NODE,Obj *);
+
 extern int Denominator,DP_Multiple;
 
 #define BLEN (8*sizeof(unsigned long))
@@ -7638,7 +7641,9 @@ void nd_det(int mod,MAT f,P *rp)
     if ( mod ) ndv_mod(mod,d);
     chsgnq(ONE,&mone);
     for ( j = 0, sgn = 1; j < n; j++ ) {
-        if ( DP_Print ) fprintf(stderr,".",j);
+        if ( DP_Print ) {
+	  fprintf(stderr,".",j);
+	}
         for ( i = j; i < n && !dm[i][j]; i++ );
         if ( i == n ) {
             *rp = 0;
@@ -7697,7 +7702,9 @@ void nd_det(int mod,MAT f,P *rp)
         }
         d = mjj;
     }
-    if ( DP_Print ) fprintf(stderr,"\n",k);
+    if ( DP_Print ) {
+      fprintf(stderr,"\n",k);
+    }
     if ( sgn < 0 )
         if ( mod )
             ndv_mul_c(mod,d,mod-1);