Fixed special exit case.

18 years ago · 7bac86e813
parent 45c74ea2d8
commit 7bac86e813
1 changed files with 6 additions and 2 deletions
--- a/base/serial/aux/imsru.f90
+++ b/base/serial/aux/imsru.f90
@ -47,7 +47,11 @@ subroutine imsru(n,x,idir,nout)
    return
  endif
-  if (n<=1) return
+
  if (n<=1) then 
    nout = n 
    return
  endif
  call imsr(n,x,idir)
  nout  = 1