![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to PU.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib2 / asir2000 / engine|
Return to PU.c CVS log | Up to [local] / OpenXM_contrib2 / asir2000 / engine |
| version 1.1, 1999/12/03 07:39:08 | version 1.2, 1999/12/27 04:16:31 | ||
|---|---|---|---|
|
|
||
| return s; | 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; | |||
| } | |||
| } |