===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/engine/nd.c,v
retrieving revision 1.160
retrieving revision 1.161
diff -u -p -r1.160 -r1.161
--- OpenXM_contrib2/asir2000/engine/nd.c	2009/01/05 01:47:30	1.160
+++ OpenXM_contrib2/asir2000/engine/nd.c	2009/01/05 02:08:18	1.161
@@ -1,4 +1,4 @@
-/* $OpenXM: OpenXM_contrib2/asir2000/engine/nd.c,v 1.159 2009/01/05 00:52:20 noro Exp $ */
+/* $OpenXM: OpenXM_contrib2/asir2000/engine/nd.c,v 1.160 2009/01/05 01:47:30 noro Exp $ */
 
 #include "nd.h"
 
@@ -399,6 +399,8 @@ int ndl_weight(UINT *d)
             for ( j = 0; j < nd_epw; j++, u>>=nd_bpe )
                 t += (u&nd_mask0); 
         }
+	if ( nd_module && current_module_weight_vector && MPOS(d) )
+		t += current_module_weight_vector[MPOS(d)];
     return t;
 }