*** empty log message ***

psblas3-type-indexed
Salvatore Filippone 18 years ago
parent 7bac86e813
commit c8a76918a8

@ -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

Loading…
Cancel
Save