1
subroutine cfc(i0,inf,lp1,ls1,m,n,nc,nfcomp,
4
dimension lp1(*),ls1(m),pw(n),nn(n),nfcomp(n),
5
& inf(n),pile(n),num(n)
13
100 if(nn(i).eq.0) goto 200
17
if(pw(j).lt.0) goto 130
18
if(pw(j).gt.0) goto 120
27
120 inf(i)=min0(num(j),inf(i))
29
130 if(nfcomp(j).ne.0) goto 140
30
inf(i)=min0(inf(i),inf(j))
32
200 if(inf(i).ne.num(i)) goto 220
33
205 if(pile(np).eq.i) goto 210
44
inf(j)=min0(inf(j),inf(i))