Fixed special exit case.

2026-10-19 20:32:12 +00:00 · 2007-04-24 08:17:38 +00:00
parent 45c74ea2d8
commit 7bac86e813
1 changed files with 6 additions and 2 deletions
@@ -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