Skip to content
Snippets Groups Projects

Draft: Add missing subroutines from libgridman

Open Yen-Chen Chen requested to merge support_gridman into master
1 file
+ 2
2
Compare changes
  • Side-by-side
  • Inline
+ 2
2
@@ -701,8 +701,8 @@ CONTAINS
t_p = permutation(i)
DO h = i - 1, 1, -1
IF (t >= a(h)) EXIT
a(h + 1) = a(h)
permutation(h+1) = permutation(h)
a(h + 1) = a(h)
permutation(h + 1) = permutation(h)
END DO
a(h + 1) = t
permutation(h + 1) = t_p
Loading