fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-20 04:42: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
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)