From c8a76918a8b93391367294568ec6b518e6696a67 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Tue, 24 Apr 2007 15:12:52 +0000
Subject: [PATCH] *** empty log message ***

---
 base/serial/aux/imsru.f90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/base/serial/aux/imsru.f90 b/base/serial/aux/imsru.f90
index c3ae2813..136cc330 100644
--- a/base/serial/aux/imsru.f90
+++ b/base/serial/aux/imsru.f90
@@ -42,6 +42,7 @@ subroutine imsru(n,x,idir,nout)
   integer :: iswap, iret, info, lp, k
   integer :: lswap
 
+  nout = 0 
   if (n<0) then 
 !!$    write(0,*) 'Error: IMSR: N<0'
     return