fdurastante
/
amg4psblas
mirror of https://github.com/sfilippone/amg4psblas.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fix error message args for LPK4/LP8

Browse Source
stopcriterion
Salvatore Filippone 6 years ago
parent 6b4980490c
commit 7398693f57
4 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File

5
mlprec/impl/solver/mld_c_mumps_solver_apply.F90
Unescape Escape View File

@ -57,6 +57,7 @@ subroutine c_mumps_solver_apply(alpha,sv,x,beta,y,desc_data,&
integer(psb_ipk_) :: n_row, n_col integer(psb_ipk_) :: n_row, n_col
integer(psb_lpk_) :: nglob integer(psb_lpk_) :: nglob
integer(psb_epk_) :: eng
complex(psb_spk_), allocatable :: ww(:) complex(psb_spk_), allocatable :: ww(:)
complex(psb_spk_), allocatable, target :: gx(:) complex(psb_spk_), allocatable, target :: gx(:)
integer(psb_ipk_) :: ictxt,np,me,i, err_act integer(psb_ipk_) :: ictxt,np,me,i, err_act
@ -101,8 +102,8 @@ subroutine c_mumps_solver_apply(alpha,sv,x,beta,y,desc_data,&
end if end if
allocate(gx(nglob),stat=info) allocate(gx(nglob),stat=info)
if (info /= psb_success_) then if (info /= psb_success_) then
info=psb_err_alloc_request_ info=psb_err_alloc_request_; eng=nglob
call psb_errpush(info,name,e_err=(/nglob/),& call psb_errpush(info,name,e_err=(/eng/),&
& a_err='complex(psb_spk_)') & a_err='complex(psb_spk_)')
goto 9999 goto 9999
end if end if

5
mlprec/impl/solver/mld_d_mumps_solver_apply.F90
Unescape Escape View File

@ -57,6 +57,7 @@ subroutine d_mumps_solver_apply(alpha,sv,x,beta,y,desc_data,&
integer(psb_ipk_) :: n_row, n_col integer(psb_ipk_) :: n_row, n_col
integer(psb_lpk_) :: nglob integer(psb_lpk_) :: nglob
integer(psb_epk_) :: eng
real(psb_dpk_), allocatable :: ww(:) real(psb_dpk_), allocatable :: ww(:)
real(psb_dpk_), allocatable, target :: gx(:) real(psb_dpk_), allocatable, target :: gx(:)
integer(psb_ipk_) :: ictxt,np,me,i, err_act integer(psb_ipk_) :: ictxt,np,me,i, err_act
@ -101,8 +102,8 @@ subroutine d_mumps_solver_apply(alpha,sv,x,beta,y,desc_data,&
end if end if
allocate(gx(nglob),stat=info) allocate(gx(nglob),stat=info)
if (info /= psb_success_) then if (info /= psb_success_) then
info=psb_err_alloc_request_ info=psb_err_alloc_request_; eng=nglob
call psb_errpush(info,name,e_err=(/nglob/),& call psb_errpush(info,name,e_err=(/eng/),&
& a_err='real(psb_dpk_)') & a_err='real(psb_dpk_)')
goto 9999 goto 9999
end if end if

5
mlprec/impl/solver/mld_s_mumps_solver_apply.F90
Unescape Escape View File

@ -57,6 +57,7 @@ subroutine s_mumps_solver_apply(alpha,sv,x,beta,y,desc_data,&
integer(psb_ipk_) :: n_row, n_col integer(psb_ipk_) :: n_row, n_col
integer(psb_lpk_) :: nglob integer(psb_lpk_) :: nglob
integer(psb_epk_) :: eng
real(psb_spk_), allocatable :: ww(:) real(psb_spk_), allocatable :: ww(:)
real(psb_spk_), allocatable, target :: gx(:) real(psb_spk_), allocatable, target :: gx(:)
integer(psb_ipk_) :: ictxt,np,me,i, err_act integer(psb_ipk_) :: ictxt,np,me,i, err_act
@ -101,8 +102,8 @@ subroutine s_mumps_solver_apply(alpha,sv,x,beta,y,desc_data,&
end if end if
allocate(gx(nglob),stat=info) allocate(gx(nglob),stat=info)
if (info /= psb_success_) then if (info /= psb_success_) then
info=psb_err_alloc_request_ info=psb_err_alloc_request_; eng=nglob
call psb_errpush(info,name,e_err=(/nglob/),& call psb_errpush(info,name,e_err=(/eng/),&
& a_err='real(psb_spk_)') & a_err='real(psb_spk_)')
goto 9999 goto 9999
end if end if

5
mlprec/impl/solver/mld_z_mumps_solver_apply.F90
Unescape Escape View File

@ -57,6 +57,7 @@ subroutine z_mumps_solver_apply(alpha,sv,x,beta,y,desc_data,&
integer(psb_ipk_) :: n_row, n_col integer(psb_ipk_) :: n_row, n_col
integer(psb_lpk_) :: nglob integer(psb_lpk_) :: nglob
integer(psb_epk_) :: eng
complex(psb_dpk_), allocatable :: ww(:) complex(psb_dpk_), allocatable :: ww(:)
complex(psb_dpk_), allocatable, target :: gx(:) complex(psb_dpk_), allocatable, target :: gx(:)
integer(psb_ipk_) :: ictxt,np,me,i, err_act integer(psb_ipk_) :: ictxt,np,me,i, err_act
@ -101,8 +102,8 @@ subroutine z_mumps_solver_apply(alpha,sv,x,beta,y,desc_data,&
end if end if
allocate(gx(nglob),stat=info) allocate(gx(nglob),stat=info)
if (info /= psb_success_) then if (info /= psb_success_) then
info=psb_err_alloc_request_ info=psb_err_alloc_request_; eng=nglob
call psb_errpush(info,name,e_err=(/nglob/),& call psb_errpush(info,name,e_err=(/eng/),&
& a_err='complex(psb_dpk_)') & a_err='complex(psb_dpk_)')
goto 9999 goto 9999
end if end if

Write Preview
Loading…
Cancel
Save