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