===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/engine/nd.c,v
retrieving revision 1.187
retrieving revision 1.189
diff -u -p -r1.187 -r1.189
--- OpenXM_contrib2/asir2000/engine/nd.c	2010/04/26 01:06:22	1.187
+++ OpenXM_contrib2/asir2000/engine/nd.c	2010/05/06 09:22:09	1.189
@@ -1,4 +1,4 @@
-/* $OpenXM: OpenXM_contrib2/asir2000/engine/nd.c,v 1.186 2010/04/23 07:35:44 noro Exp $ */
+/* $OpenXM: OpenXM_contrib2/asir2000/engine/nd.c,v 1.188 2010/04/26 01:10:04 noro Exp $ */
 
 #include "nd.h"
 
@@ -2316,10 +2316,8 @@ ND_pairs nd_newpairs( NODE g, int t )
 				if ( t0 >= min && t0 <= max && t >= min && t <= max )
 					break;
 			}
-			if ( nd_gbblock[i] >= 0 ) {
-				fprintf(stderr,"(%d,%d)",t0,t);
+			if ( nd_gbblock[i] >= 0 )
 				continue;
-			}
 		}
         NEXTND_pairs(r0,r);
         r->i1 = (long)BDY(h);
@@ -6969,7 +6967,7 @@ void parse_nd_option(NODE opt)
 			if ( !value || OID(value) != O_LIST )
 				error("nd_* : invalid value for gbblock option");
 			u = BDY((LIST)value);
-            nd_gbblock = MALLOC(2*length(t)+1);
+            nd_gbblock = MALLOC((2*length(u)+1)*sizeof(int));
 			for ( i = 0; u; u = NEXT(u) ) {
 				p = BDY((LIST)BDY(u));
 				s = nd_gbblock[i++] = QTOS((Q)BDY(p));