1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
/*===========================================================================
k <- ECLEVEL(L)
Equational constraint level.
Input
L : a list of the labels of projection factors whose product
constitutes an equational constraint.
Output
k : the level of the equational constraint.
===========================================================================*/
#include "qepcad.h"
Word ECLEVEL(Word L)
{
Word k,L1;
Step1: /* Initialize. */
k = 0;
Step2: /* Loop. */
while (L != NIL) {
ADV(L,&L1,&L);
k = MAX(k,LBLLEVEL(L1)); }
Return: /* Prepare for return. */
return(k);
}
|
