Fixed stupid bug with reordering.

2026-10-15 18:39:10 +00:00 · 2006-09-05 12:32:03 +00:00
parent 080c630fed
commit cb1bfc14f0
2 changed files with 2 additions and 2 deletions
@@ -70,7 +70,7 @@ subroutine imsr(n,x)
      x(k)     = iswap
      lswap    = iaux(lp)
      iaux(lp) = iaux(k)
-      iaux(k)  = lswap
+      iaux(k)  = lp
      lp = lswap 
      k  = k + 1
    enddo
@@ -81,7 +81,7 @@ subroutine imsrx(n,x,indx)
      indx(k)  = ixswap
      lswap    = iaux(lp)
      iaux(lp) = iaux(k)
-      iaux(k)  = lswap
+      iaux(k)  = lp
      lp = lswap 
      k  = k + 1
    enddo