From 7bac86e813dc2904d27b3e2a127dddc14f4061a8 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Tue, 24 Apr 2007 08:17:38 +0000
Subject: [PATCH] Fixed special exit case.

---
 base/serial/aux/imsru.f90 | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/base/serial/aux/imsru.f90 b/base/serial/aux/imsru.f90
index dbd273fd..c3ae2813 100644
--- 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