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

*** empty log message ***

Browse Source
psblas3-type-indexed
Salvatore Filippone 13 years ago
parent f146c70251
commit d7a352f919
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File

12
util/psb_mat_dist_impl.f90
Unescape Escape View File

@ -179,8 +179,10 @@ subroutine smatdist(a_glob, a, ictxt, desc_a,&
endif endif
if (use_parts) then if (use_parts) then
call psb_cdall(ictxt,desc_a,info,mg=nrow,parts=parts) call psb_cdall(ictxt,desc_a,info,mg=nrow,parts=parts)
else else if (use_v) then
call psb_cdall(ictxt,desc_a,info,vg=v) call psb_cdall(ictxt,desc_a,info,vg=v)
else
info = -1
end if end if
if(info /= psb_success_) then if(info /= psb_success_) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
@ -1062,8 +1064,10 @@ subroutine cmatdist(a_glob, a, ictxt, desc_a,&
endif endif
if (use_parts) then if (use_parts) then
call psb_cdall(ictxt,desc_a,info,mg=nrow,parts=parts) call psb_cdall(ictxt,desc_a,info,mg=nrow,parts=parts)
else else if (use_v) then
call psb_cdall(ictxt,desc_a,info,vg=v) call psb_cdall(ictxt,desc_a,info,vg=v)
else
info = -1
end if end if
if(info /= psb_success_) then if(info /= psb_success_) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
@ -1501,8 +1505,10 @@ subroutine zmatdist(a_glob, a, ictxt, desc_a,&
endif endif
if (use_parts) then if (use_parts) then
call psb_cdall(ictxt,desc_a,info,mg=nrow,parts=parts) call psb_cdall(ictxt,desc_a,info,mg=nrow,parts=parts)
else else if (use_v) then
call psb_cdall(ictxt,desc_a,info,vg=v) call psb_cdall(ictxt,desc_a,info,vg=v)
else
info = -1
end if end if
if(info /= psb_success_) then if(info /= psb_success_) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_

Write Preview
Loading…
Cancel
Save