From 793e4ba81eadf3a2fa775775771e77416497cb4d Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Tue, 3 Oct 2006 10:18:03 +0000 Subject: [PATCH] Fixed bug in imsr/imsrx handling of iaux. --- 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 14140fd4..121c53e7 100644 --- a/src/serial/aux/imsr.f90 +++ b/src/serial/aux/imsr.f90 @@ -54,7 +54,7 @@ subroutine imsr(n,x) endif - call mrgsrt(n,x(1),iaux(1),iret) + call mrgsrt(n,x,iaux,iret) if (iret == 0) then lp = iaux(0) diff --git a/src/serial/aux/imsrx.f90 b/src/serial/aux/imsrx.f90 index e5a384c6..ee50b03d 100644 --- a/src/serial/aux/imsrx.f90 +++ b/src/serial/aux/imsrx.f90 @@ -62,7 +62,7 @@ subroutine imsrx(n,x,indx) indx(k) = k enddo - call mrgsrt(n,x(1),iaux(1),iret) + call mrgsrt(n,x,iaux,iret) if (iret /= 1) then lp = iaux(0)