fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-06 22:55:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix error message for wrong IRST.

Browse Source
This commit is contained in:
Salvatore Filippone
2019-12-03 15:02:41 +00:00
parent e95063701b
commit 59e640c8a1
18 changed files with 30 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files
prec/impl/psb_cprecinit.f90
+1 -1
View File
@@ -65,7 +65,7 @@ subroutine psb_cprecinit(ictxt,p,ptype,info)
case default
write(psb_err_unit,*) 'Unknown preconditioner type request "',ptype,'"'
info = psb_err_pivot_too_small_
info = psb_err_invalid_preca_
end select
if (info == psb_success_) call p%prec%precinit(info)
prec/impl/psb_dprecinit.f90
+1 -1
View File
@@ -65,7 +65,7 @@ subroutine psb_dprecinit(ictxt,p,ptype,info)
case default
write(psb_err_unit,*) 'Unknown preconditioner type request "',ptype,'"'
info = psb_err_pivot_too_small_
info = psb_err_invalid_preca_
end select
if (info == psb_success_) call p%prec%precinit(info)
prec/impl/psb_sprecinit.f90
+1 -1
View File
@@ -65,7 +65,7 @@ subroutine psb_sprecinit(ictxt,p,ptype,info)
case default
write(psb_err_unit,*) 'Unknown preconditioner type request "',ptype,'"'
info = psb_err_pivot_too_small_
info = psb_err_invalid_preca_
end select
if (info == psb_success_) call p%prec%precinit(info)
prec/impl/psb_zprecinit.f90
+1 -1
View File
@@ -65,7 +65,7 @@ subroutine psb_zprecinit(ictxt,p,ptype,info)
case default
write(psb_err_unit,*) 'Unknown preconditioner type request "',ptype,'"'
info = psb_err_pivot_too_small_
info = psb_err_invalid_preca_
end select
if (info == psb_success_) call p%prec%precinit(info)