fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-23 22:31:47 +00:00
Code Issues Packages Projects Releases Wiki Activity

get_rank and get_mpicomm

Browse Source 
Make psb_get_rank and  psb_get_mpicomm functions, not
subroutines. Document same.
This commit is contained in:
Salvatore Filippone
2019-11-20 14:03:59 +00:00
parent 35b6ee6578
commit cf6db2ea0b
54 changed files with 158 additions and 160 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/tools/psb_csphalo.F90
+2 -2
View File
@@ -1208,7 +1208,7 @@ contains
n_el_recv = ipdxv(counter+psb_n_elem_recv_)
counter = counter+n_el_recv
n_el_send = ipdxv(counter+psb_n_elem_send_)
call psb_get_rank(prcid(ip+1),ictxt,ip)
prcid(ip+1) = psb_get_rank(ictxt,ip)
sz = rvsz(ip+1)
if (sz > 0) then
idx = brvindx(ip+1)
@@ -1235,7 +1235,7 @@ contains
n_el_recv = ipdxv(counter+psb_n_elem_recv_)
counter = counter+n_el_recv
n_el_send = ipdxv(counter+psb_n_elem_send_)
if (prcid(ip+1)<0) call psb_get_rank(prcid(ip+1),ictxt,ip)
if (prcid(ip+1)<0) prcid(ip+1) = psb_get_rank(ictxt,ip)
sz = sdsz(ip+1)
if (sz > 0) then
idx = bsdindx(ip+1)
base/tools/psb_dsphalo.F90
+2 -2
View File
@@ -1208,7 +1208,7 @@ contains
n_el_recv = ipdxv(counter+psb_n_elem_recv_)
counter = counter+n_el_recv
n_el_send = ipdxv(counter+psb_n_elem_send_)
call psb_get_rank(prcid(ip+1),ictxt,ip)
prcid(ip+1) = psb_get_rank(ictxt,ip)
sz = rvsz(ip+1)
if (sz > 0) then
idx = brvindx(ip+1)
@@ -1235,7 +1235,7 @@ contains
n_el_recv = ipdxv(counter+psb_n_elem_recv_)
counter = counter+n_el_recv
n_el_send = ipdxv(counter+psb_n_elem_send_)
if (prcid(ip+1)<0) call psb_get_rank(prcid(ip+1),ictxt,ip)
if (prcid(ip+1)<0) prcid(ip+1) = psb_get_rank(ictxt,ip)
sz = sdsz(ip+1)
if (sz > 0) then
idx = bsdindx(ip+1)
base/tools/psb_icdasb.F90
+1 -1
View File
@@ -80,7 +80,7 @@ subroutine psb_icdasb(desc,info,ext_hv,mold)
dectype = desc%get_dectype()
n_row = desc%get_local_rows()
n_col = desc%get_local_cols()
call psb_get_mpicomm(ictxt,icomm )
icomm = desc%get_mpic()
! check on blacs grid
call psb_info(ictxt, me, np)
base/tools/psb_ssphalo.F90
+2 -2
View File
@@ -1208,7 +1208,7 @@ contains
n_el_recv = ipdxv(counter+psb_n_elem_recv_)
counter = counter+n_el_recv
n_el_send = ipdxv(counter+psb_n_elem_send_)
call psb_get_rank(prcid(ip+1),ictxt,ip)
prcid(ip+1) = psb_get_rank(ictxt,ip)
sz = rvsz(ip+1)
if (sz > 0) then
idx = brvindx(ip+1)
@@ -1235,7 +1235,7 @@ contains
n_el_recv = ipdxv(counter+psb_n_elem_recv_)
counter = counter+n_el_recv
n_el_send = ipdxv(counter+psb_n_elem_send_)
if (prcid(ip+1)<0) call psb_get_rank(prcid(ip+1),ictxt,ip)
if (prcid(ip+1)<0) prcid(ip+1) = psb_get_rank(ictxt,ip)
sz = sdsz(ip+1)
if (sz > 0) then
idx = bsdindx(ip+1)
base/tools/psb_zsphalo.F90
+2 -2
View File
@@ -1208,7 +1208,7 @@ contains
n_el_recv = ipdxv(counter+psb_n_elem_recv_)
counter = counter+n_el_recv
n_el_send = ipdxv(counter+psb_n_elem_send_)
call psb_get_rank(prcid(ip+1),ictxt,ip)
prcid(ip+1) = psb_get_rank(ictxt,ip)
sz = rvsz(ip+1)
if (sz > 0) then
idx = brvindx(ip+1)
@@ -1235,7 +1235,7 @@ contains
n_el_recv = ipdxv(counter+psb_n_elem_recv_)
counter = counter+n_el_recv
n_el_send = ipdxv(counter+psb_n_elem_send_)
if (prcid(ip+1)<0) call psb_get_rank(prcid(ip+1),ictxt,ip)
if (prcid(ip+1)<0) prcid(ip+1) = psb_get_rank(ictxt,ip)
sz = sdsz(ip+1)
if (sz > 0) then
idx = bsdindx(ip+1)