fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-20 21:02:26 +00:00
Code Issues Packages Projects Releases Wiki Activity

Merged MixedI8 in new branch (to be later merged into development)

Browse Source
This commit is contained in:
Salvatore Filippone
2018-12-10 11:42:40 +00:00
parent 5371e39c16
commit 8d489f8ce2
921 changed files with 172036 additions and 57462 deletions
Download Patch File Download Diff File Expand all files Collapse all files
prec/impl/psb_c_bjacprec_impl.f90
+3 -1
View File
@@ -434,10 +434,12 @@ subroutine psb_c_bjac_precbld(a,desc_a,prec,info,amold,vmold,imold)
character(len=20) :: ch_err
if(psb_get_errstatus() /= 0) return
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_ctxt()
call prec%set_ctxt(ictxt)
prec/impl/psb_cprecbld.f90
+4 -5
View File
@@ -46,19 +46,18 @@ subroutine psb_cprecbld(a,desc_a,p,info,amold,vmold,imold)
! Local scalars
integer(psb_ipk_) :: ictxt, me,np
integer(psb_ipk_) :: err, n_row, n_col,mglob, err_act
integer(psb_ipk_) :: int_err(5)
integer(psb_ipk_),parameter :: iroot=psb_root_,iout=60,ilout=40
character(len=20) :: name, ch_err
if(psb_get_errstatus() /= 0) return
info=psb_success_
err=0
call psb_erractionsave(err_act)
name = 'psb_precbld'
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
info = psb_success_
int_err(1) = 0
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
prec/impl/psb_d_bjacprec_impl.f90
+3 -1
View File
@@ -434,10 +434,12 @@ subroutine psb_d_bjac_precbld(a,desc_a,prec,info,amold,vmold,imold)
character(len=20) :: ch_err
if(psb_get_errstatus() /= 0) return
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_ctxt()
call prec%set_ctxt(ictxt)
prec/impl/psb_dprecbld.f90
+4 -5
View File
@@ -46,19 +46,18 @@ subroutine psb_dprecbld(a,desc_a,p,info,amold,vmold,imold)
! Local scalars
integer(psb_ipk_) :: ictxt, me,np
integer(psb_ipk_) :: err, n_row, n_col,mglob, err_act
integer(psb_ipk_) :: int_err(5)
integer(psb_ipk_),parameter :: iroot=psb_root_,iout=60,ilout=40
character(len=20) :: name, ch_err
if(psb_get_errstatus() /= 0) return
info=psb_success_
err=0
call psb_erractionsave(err_act)
name = 'psb_precbld'
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
info = psb_success_
int_err(1) = 0
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
prec/impl/psb_s_bjacprec_impl.f90
+3 -1
View File
@@ -434,10 +434,12 @@ subroutine psb_s_bjac_precbld(a,desc_a,prec,info,amold,vmold,imold)
character(len=20) :: ch_err
if(psb_get_errstatus() /= 0) return
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_ctxt()
call prec%set_ctxt(ictxt)
prec/impl/psb_sprecbld.f90
+4 -5
View File
@@ -46,19 +46,18 @@ subroutine psb_sprecbld(a,desc_a,p,info,amold,vmold,imold)
! Local scalars
integer(psb_ipk_) :: ictxt, me,np
integer(psb_ipk_) :: err, n_row, n_col,mglob, err_act
integer(psb_ipk_) :: int_err(5)
integer(psb_ipk_),parameter :: iroot=psb_root_,iout=60,ilout=40
character(len=20) :: name, ch_err
if(psb_get_errstatus() /= 0) return
info=psb_success_
err=0
call psb_erractionsave(err_act)
name = 'psb_precbld'
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
info = psb_success_
int_err(1) = 0
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
prec/impl/psb_z_bjacprec_impl.f90
+3 -1
View File
@@ -434,10 +434,12 @@ subroutine psb_z_bjac_precbld(a,desc_a,prec,info,amold,vmold,imold)
character(len=20) :: ch_err
if(psb_get_errstatus() /= 0) return
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_ctxt()
call prec%set_ctxt(ictxt)
prec/impl/psb_zprecbld.f90
+4 -5
View File
@@ -46,19 +46,18 @@ subroutine psb_zprecbld(a,desc_a,p,info,amold,vmold,imold)
! Local scalars
integer(psb_ipk_) :: ictxt, me,np
integer(psb_ipk_) :: err, n_row, n_col,mglob, err_act
integer(psb_ipk_) :: int_err(5)
integer(psb_ipk_),parameter :: iroot=psb_root_,iout=60,ilout=40
character(len=20) :: name, ch_err
if(psb_get_errstatus() /= 0) return
info=psb_success_
err=0
call psb_erractionsave(err_act)
name = 'psb_precbld'
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
info = psb_success_
int_err(1) = 0
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)