Fixed bug in imsr/imsrx handling of iaux.

2026-10-19 12:22:10 +00:00 · 2006-10-03 10:18:03 +00:00
parent 2d3405786b
commit 793e4ba81e
2 changed files with 2 additions and 2 deletions
@@ -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)
@@ -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)