From cb1bfc14f01f00ec333d64ce50833dbbeee5f9de Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Tue, 5 Sep 2006 12:32:03 +0000
Subject: [PATCH] Fixed stupid bug with reordering.

---
 src/serial/aux/imsr.f90  | 2 +-
 src/serial/aux/imsrx.f90 | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/serial/aux/imsr.f90 b/src/serial/aux/imsr.f90
index dda3301e..14140fd4 100644
--- 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
diff --git a/src/serial/aux/imsrx.f90 b/src/serial/aux/imsrx.f90
index ce4725b3..e5a384c6 100644
--- 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