Skip to main content
. Author manuscript; available in PMC: 2012 Jul 1.
Published in final edited form as: Comput Phys Commun. 2011 Jul 1;182(7):1455–1462. doi: 10.1016/j.cpc.2011.03.014
1: i ← 2
2: while i ≤ Length( Inline graphic) do
3:  im ← i − 1
4:  j ← i
5:  while j ≤ Length( Inline graphic) do
6:   if IsIn( Inline graphic, Inline graphic) then
7:    ReplacePart( Inline graphic, Inline graphic ← MergeIn( Inline graphic, Inline graphic))
8:    j ← i
9:    Drop( Inline graphic, Inline graphic)
10:   else if IsIn( Inline graphic, Inline graphic) then
11:    ReplacePart( Inline graphic, Inline graphic ← MergeIn( Inline graphic, Inline graphic))
12:    Drop( Inline graphic, Inline graphic)
13:   else
14:    Leave Inline graphic unchanged
15:    j ← j + 1
16:    end if
17:   end while
18:   i ← i + 1
19: end while
20: return Inline graphic