*** empty log message ***

2026-10-18 11:52:11 +00:00 · 2007-04-24 15:12:52 +00:00
parent 7bac86e813
commit c8a76918a8
1 changed files with 1 additions and 0 deletions
@@ -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