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)