===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/lib/weight,v
retrieving revision 1.12
retrieving revision 1.14
diff -u -p -r1.12 -r1.14
--- OpenXM_contrib2/asir2000/lib/weight	2003/12/08 07:18:14	1.12
+++ OpenXM_contrib2/asir2000/lib/weight	2003/12/11 15:12:35	1.14
@@ -249,7 +249,7 @@ def roundret(V){
 	VN=size(V)[0]$
 
 	RET0=V$
-	for(I=2;I<1000;I++){
+	for(I=1;I<1000;I++){
 		RET1=I*RET0$
 		for(J=0;J<VN;J++){
 			X=drint(RET1[J])$
@@ -450,7 +450,7 @@ def leastsq(NormMat,ExpMat,Vars,FLAG){
 	if(nonposdegchk(Res)){
 		TMP1=makeret(Res,Vars,1)$
 		if(TMP1[0]==0){	
-			TMP=roundret(TMP1[1]*1.0)$
+			TMP=roundret(TMP1[1])$
 			if(TMP!=[])
 				RET=append(RET,wsort(TMP1[1],Vars,TMP,FLAG))$
 
@@ -566,7 +566,7 @@ def weightr(ExpMat,Vars,PolyListNum,OneMat,FLAG){
 
 			TMP1=makeret(Res,Vars,1)$
 			if(TMP1[0]==0){	
-				TMP=roundret(TMP1[1]*1.0)$
+				TMP=roundret(TMP1[1])$
 				if(TMP!=[])
 					RET=append(RET,wsort(TMP1[1],Vars,
 						TMP,FLAG))$