Page 361 - Handbook Of Multiphase Flow Assurance

360 10. Research methods in flow assurance

S3:
end; {end of overall loop on is}
S1:
end; {end of CheckShort}

Procedure Conti;

var j:integer;

begin
contin:=false;
jc:=1;
for j:=1 to nr do
if rinn[j] then
begin
jc:=j; {get # of links to use in new ring}
contin:=true; {use same bond to search other rings}
end;
nr:=jc;
end;

Procedure Conti2;

var j:integer;

begin
for j:=nr+1 to nmax do
begin
rin[j]:=0; {reset the rest of tempor.ring array}
bonds[j]:=0;
rinn[j]:=False;
rinm[j]:=0;
end;
nbond:=rinm[nr]; {define number of new bond}
found:=true;
nnext:=nhb[nbond,1]; {set next atom to search for}
if rin[nr]=nhb[nbond,1] then
nnext:=nhb[nbond,2];
bonds[nr]:=nbond;
end;

begin {start of the main routine}
{n:=12; {number of H bonded pairs}
{for i:=1 to n do {readin data from array in test mode}
{ for j:=1 to 2 do }
{ nhb[i,j]:=nhb2[i,j]; }