===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/lib/weight,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -p -r1.18 -r1.19
--- OpenXM_contrib2/asir2000/lib/weight	2004/01/07 06:33:31	1.18
+++ OpenXM_contrib2/asir2000/lib/weight	2004/01/07 06:53:11	1.19
@@ -4,6 +4,7 @@ load("gr")$
 #define EPS 1E-6
 #define TINY 1E-20
 #define MAX_ITER 100
+#define ROUND_THRESHOLD 0.4
 
 def rotate(A,I,J,K,L,C,S){
 
@@ -352,7 +353,7 @@ def roundret(V){
 		RET1=I*RET0$
 		for(J=0;J<VN;J++){
 			X=drint(RET1[J])$
-			if(dabs(X-RET1[J])<0.2)
+			if(dabs(X-RET1[J])<ROUND_THRESHOLD)
 				RET1[J]=X$
 			else
 				break$