===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/engine/PU.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -u -p -r1.1.1.1 -r1.2
--- OpenXM_contrib2/asir2000/engine/PU.c	1999/12/03 07:39:08	1.1.1.1
+++ OpenXM_contrib2/asir2000/engine/PU.c	1999/12/27 04:16:31	1.2
@@ -991,3 +991,22 @@ P p;
 		return s;
 	}
 }
+
+int maxblenp(p)
+P p;
+{
+	int s,t;
+	DCP dc;
+
+	if ( !p )
+		return 0;
+	else if ( OID(p) == O_N )
+		return n_bits(NM((Q)p))+(INT((Q)p)?0:n_bits(DN((Q)p)));
+	else {
+		for ( dc = DC(p), s = 0; dc; dc = NEXT(dc) ) {
+			t = p_mag(COEF(dc));
+			s = MAX(t,s);
+		}
+		return s;
+	}
+}