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