Fixed stupid bug with reordering.

19 years ago · cb1bfc14f0
parent 080c630fed
commit cb1bfc14f0
2 changed files with 2 additions and 2 deletions
--- a/src/serial/aux/imsr.f90
+++ b/src/serial/aux/imsr.f90
@ -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
--- a/src/serial/aux/imsrx.f90
+++ b/src/serial/aux/imsrx.f90
@ -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