fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-19 04:12:09 +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
base/modules/psb_const_mod.F90
+3
View File
@@ -309,5 +309,8 @@ module psb_const_mod
integer(psb_ipk_), parameter, public :: psb_err_alloc_request_=4025
integer(psb_ipk_), parameter, public :: psb_err_from_subroutine_non_=4011
integer(psb_ipk_), parameter, public :: psb_err_invalid_istop_=5001
integer(psb_ipk_), parameter, public :: psb_err_invalid_irst_ =5002
integer(psb_ipk_), parameter, public :: psb_err_invalid_preci_=5003
integer(psb_ipk_), parameter, public :: psb_err_invalid_preca_=5004
end module psb_const_mod
base/modules/psb_error_mod.F90
+7 -2
View File
@@ -1043,12 +1043,17 @@ contains
achmsg(1) = tmpmsg
write(achmsg(2),'("Invalid ISTOP: ",i0)')e_e_d(1)
case(5002)
case(psb_err_invalid_irst_)
allocate(achmsg(2))
achmsg(1) = tmpmsg
write(achmsg(2),'("Invalid IRST: ",i0)')e_e_d(1)
case(psb_err_invalid_preci_)
allocate(achmsg(2))
achmsg(1) = tmpmsg
write(achmsg(2),'("Invalid PREC: ",i0)')e_e_d(1)
case(5003)
case(psb_err_invalid_preca_)
allocate(achmsg(2))
achmsg(1) = tmpmsg
write(achmsg(2),'("Invalid PREC: ",a3)')a_e_d(1:3)