=================================================================== 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; + } +}