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
@ -46,8 +46,12 @@ subroutine imsru(n,x,idir,nout)
 !!$    write(0,*) 'Error: IMSR: N<0'
    return
  endif
-  
-  if (n<=1) return
+
+
+  if (n<=1) then 
+    nout = n 
+    return
+  endif
  
  call imsr(n,x,idir)
  nout  = 1