Page 353 - Handbook Of Multiphase Flow Assurance

352 10. Research methods in flow assurance

begin
k:=k+1;

ring[k,1]:=j;
end;
repeat
{remove duplic.from list of rep.bonds}
begin
nothere:=true; {reset change indicator}
for i:=1 to k−1 do
for j:=i+1 to k do
if ring[i,1]=ring[j,1] then
begin
nothere:=false;
for l:=j+1 to k do
ring[l−1,1]:=ring[l,1];
k:=k−1;
end;
end
until nothere;

for i:=1 to k do {remove repeated bonds from the list}
begin
for j:=ring[i,1]+1 to n do
begin
nhb[j−1,1]:=nhb[j,1];
nhb[j−1,2]:=nhb[j,2];
pass[j−1]:=pass[j];
end;
nhb[n,1]:=0;
nhb[n,2]:=0;
pass[n]:=0;
n:=n−1; {decrease by 1 number of bonds}
for j:=i to k do
ring[j,1]:=ring[j,1]−1; {correct values in ring[k,1]}
end;
writeln(ttyout,'All duplicate bonds eliminated');
end;

begin {discard all dead–end bonds which
don't participate in rings}
repeat
C2:begin
nothere:=true; {reset change indicator}
for i:=1 to n do