@ -1,6 +1,6 @@
$Format:%d%n%n$
# Fall back version, probably last release:
3.9.0
3.9.1
# PSBLAS version file.
#
@ -509,7 +509,6 @@ contains
write(tmpmsg,'("PSBLAS Error (",i0,") in subroutine: ",a)')&
& err_c,trim(r_name)
end if
select case (err_c)
case(:psb_success_)