Fixed bug in imsr/imsrx handling of iaux.

18 years ago · 793e4ba81e
parent 2d3405786b
commit 793e4ba81e
2 changed files with 2 additions and 2 deletions
--- 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)
--- 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)