*** empty log message ***

18 years ago · c8a76918a8
parent 7bac86e813
commit c8a76918a8
1 changed files with 1 additions and 0 deletions
--- 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