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
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)
krylov/psb_ccgstabl.f90
+1 -1
View File
@@ -198,7 +198,7 @@ Subroutine psb_ccgstabl_vect(a,prec,b,x,eps,desc_a,info,&
& ' not present: irst: ',irst,nl
endif
if (nl <=0 ) then
info=psb_err_invalid_istop_
info=psb_err_invalid_irst_
err=info
call psb_errpush(info,name,i_err=(/nl/))
goto 9999
krylov/psb_ckrylov.f90
+2 -1
View File
@@ -211,7 +211,8 @@ Subroutine psb_ckrylov_vect(method,a,prec,b,x,eps,desc_a,info,&
if ((info==psb_success_).and.do_alloc_wrk) call prec%free_wrk(info)
if(info /= psb_success_) then
call psb_errpush(info,name)
info = psb_err_from_subroutine_
call psb_errpush(info,name,a_err=trim(method))
goto 9999
end if
krylov/psb_crgmres.f90
+1 -1
View File
@@ -209,7 +209,7 @@ subroutine psb_crgmres_vect(a,prec,b,x,eps,desc_a,info,&
& ' not present: irst: ',irst,nl
endif
if (nl <=0 ) then
info=psb_err_invalid_istop_
info=psb_err_invalid_irst_
err=info
call psb_errpush(info,name,i_err=(/nl/))
goto 9999
krylov/psb_dcgstabl.f90
+1 -1
View File
@@ -198,7 +198,7 @@ Subroutine psb_dcgstabl_vect(a,prec,b,x,eps,desc_a,info,&
& ' not present: irst: ',irst,nl
endif
if (nl <=0 ) then
info=psb_err_invalid_istop_
info=psb_err_invalid_irst_
err=info
call psb_errpush(info,name,i_err=(/nl/))
goto 9999
krylov/psb_dkrylov.f90
+2 -1
View File
@@ -211,7 +211,8 @@ Subroutine psb_dkrylov_vect(method,a,prec,b,x,eps,desc_a,info,&
if ((info==psb_success_).and.do_alloc_wrk) call prec%free_wrk(info)
if(info /= psb_success_) then
call psb_errpush(info,name)
info = psb_err_from_subroutine_
call psb_errpush(info,name,a_err=trim(method))
goto 9999
end if
krylov/psb_drgmres.f90
+1 -1
View File
@@ -209,7 +209,7 @@ subroutine psb_drgmres_vect(a,prec,b,x,eps,desc_a,info,&
& ' not present: irst: ',irst,nl
endif
if (nl <=0 ) then
info=psb_err_invalid_istop_
info=psb_err_invalid_irst_
err=info
call psb_errpush(info,name,i_err=(/nl/))
goto 9999
krylov/psb_scgstabl.f90
+1 -1
View File
@@ -198,7 +198,7 @@ Subroutine psb_scgstabl_vect(a,prec,b,x,eps,desc_a,info,&
& ' not present: irst: ',irst,nl
endif
if (nl <=0 ) then
info=psb_err_invalid_istop_
info=psb_err_invalid_irst_
err=info
call psb_errpush(info,name,i_err=(/nl/))
goto 9999
krylov/psb_skrylov.f90
+2 -1
View File
@@ -211,7 +211,8 @@ Subroutine psb_skrylov_vect(method,a,prec,b,x,eps,desc_a,info,&
if ((info==psb_success_).and.do_alloc_wrk) call prec%free_wrk(info)
if(info /= psb_success_) then
call psb_errpush(info,name)
info = psb_err_from_subroutine_
call psb_errpush(info,name,a_err=trim(method))
goto 9999
end if
krylov/psb_srgmres.f90
+1 -1
View File
@@ -209,7 +209,7 @@ subroutine psb_srgmres_vect(a,prec,b,x,eps,desc_a,info,&
& ' not present: irst: ',irst,nl
endif
if (nl <=0 ) then
info=psb_err_invalid_istop_
info=psb_err_invalid_irst_
err=info
call psb_errpush(info,name,i_err=(/nl/))
goto 9999
krylov/psb_zcgstabl.f90
+1 -1
View File
@@ -198,7 +198,7 @@ Subroutine psb_zcgstabl_vect(a,prec,b,x,eps,desc_a,info,&
& ' not present: irst: ',irst,nl
endif
if (nl <=0 ) then
info=psb_err_invalid_istop_
info=psb_err_invalid_irst_
err=info
call psb_errpush(info,name,i_err=(/nl/))
goto 9999
krylov/psb_zkrylov.f90
+2 -1
View File
@@ -211,7 +211,8 @@ Subroutine psb_zkrylov_vect(method,a,prec,b,x,eps,desc_a,info,&
if ((info==psb_success_).and.do_alloc_wrk) call prec%free_wrk(info)
if(info /= psb_success_) then
call psb_errpush(info,name)
info = psb_err_from_subroutine_
call psb_errpush(info,name,a_err=trim(method))
goto 9999
end if
krylov/psb_zrgmres.f90
+1 -1
View File
@@ -209,7 +209,7 @@ subroutine psb_zrgmres_vect(a,prec,b,x,eps,desc_a,info,&
& ' not present: irst: ',irst,nl
endif
if (nl <=0 ) then
info=psb_err_invalid_istop_
info=psb_err_invalid_irst_
err=info
call psb_errpush(info,name,i_err=(/nl/))
goto 9999
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)