Mumps: use izero instead of 0 in calling sequence

stopcriterion
Salvatore Filippone 5 years ago
parent 0380a90ead
commit 8006626693

@ -107,7 +107,7 @@ subroutine c_mumps_solver_apply(alpha,sv,x,beta,y,desc_data,&
& a_err='complex(psb_spk_)') & a_err='complex(psb_spk_)')
goto 9999 goto 9999
end if end if
call psb_gather(gx, x, desc_data, info, root=0) call psb_gather(gx, x, desc_data, info, root=izero)
else else
info=psb_err_internal_error_ info=psb_err_internal_error_
call psb_errpush(info,name,& call psb_errpush(info,name,&

@ -107,7 +107,7 @@ subroutine d_mumps_solver_apply(alpha,sv,x,beta,y,desc_data,&
& a_err='real(psb_dpk_)') & a_err='real(psb_dpk_)')
goto 9999 goto 9999
end if end if
call psb_gather(gx, x, desc_data, info, root=0) call psb_gather(gx, x, desc_data, info, root=izero)
else else
info=psb_err_internal_error_ info=psb_err_internal_error_
call psb_errpush(info,name,& call psb_errpush(info,name,&

@ -107,7 +107,7 @@ subroutine s_mumps_solver_apply(alpha,sv,x,beta,y,desc_data,&
& a_err='real(psb_spk_)') & a_err='real(psb_spk_)')
goto 9999 goto 9999
end if end if
call psb_gather(gx, x, desc_data, info, root=0) call psb_gather(gx, x, desc_data, info, root=izero)
else else
info=psb_err_internal_error_ info=psb_err_internal_error_
call psb_errpush(info,name,& call psb_errpush(info,name,&

@ -107,7 +107,7 @@ subroutine z_mumps_solver_apply(alpha,sv,x,beta,y,desc_data,&
& a_err='complex(psb_dpk_)') & a_err='complex(psb_dpk_)')
goto 9999 goto 9999
end if end if
call psb_gather(gx, x, desc_data, info, root=0) call psb_gather(gx, x, desc_data, info, root=izero)
else else
info=psb_err_internal_error_ info=psb_err_internal_error_
call psb_errpush(info,name,& call psb_errpush(info,name,&

Loading…
Cancel
Save