fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-17 11:22:09 +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/modules/desc/psb_gen_block_map_mod.F90
+1 -1
View File
@@ -2005,7 +2005,7 @@ contains
idxmap%local_cols = nl
idxmap%ictxt = ictxt
idxmap%state = psb_desc_bld_
call psb_get_mpicomm(ictxt,idxmap%mpic)
idxmap%mpic = psb_get_mpicomm(ictxt)
idxmap%min_glob_row = vnl(iam)+1
idxmap%max_glob_row = vnl(iam+1)
call move_alloc(vnl,idxmap%vnl)
base/modules/desc/psb_glist_map_mod.f90
+3 -3
View File
@@ -124,9 +124,9 @@ contains
return
end if
idxmap%ictxt = ictxt
idxmap%state = psb_desc_bld_
call psb_get_mpicomm(ictxt,idxmap%mpic)
idxmap%ictxt = ictxt
idxmap%state = psb_desc_bld_
idxmap%mpic = psb_get_mpicomm(ictxt)
nl = 0
do i=1, n
base/modules/desc/psb_hash_map_mod.f90
+1 -1
View File
@@ -961,7 +961,7 @@ contains
idxmap%local_cols = nl
idxmap%ictxt = ictxt
idxmap%state = psb_desc_bld_
call psb_get_mpicomm(ictxt,idxmap%mpic)
idxmap%mpic = psb_get_mpicomm(ictxt)
lc2 = int(1.5*nl)
call psb_realloc(lc2,idxmap%loc_to_glob,info)
base/modules/desc/psb_list_map_mod.f90
+3 -3
View File
@@ -1117,9 +1117,9 @@ contains
return
end if
idxmap%ictxt = ictxt
idxmap%state = psb_desc_bld_
call psb_get_mpicomm(ictxt,idxmap%mpic)
idxmap%ictxt = ictxt
idxmap%state = psb_desc_bld_
idxmap%mpic = psb_get_mpicomm(ictxt)
do i=1, n
idxmap%glob_to_loc(i) = -1
end do
base/modules/desc/psb_repl_map_mod.f90
+1 -1
View File
@@ -746,7 +746,7 @@ contains
idxmap%local_cols = nl
idxmap%ictxt = ictxt
idxmap%state = psb_desc_bld_
call psb_get_mpicomm(ictxt,idxmap%mpic)
idxmap%mpic = psb_get_mpicomm(ictxt)
call idxmap%set_state(psb_desc_bld_)
end subroutine repl_init
base/modules/penv/psi_penv_mod.F90
+4 -4
View File
@@ -563,17 +563,17 @@ contains
end subroutine psb_info_mpik
subroutine psb_get_mpicomm(ictxt,comm)
function psb_get_mpicomm(ictxt) result(comm)
integer(psb_mpk_) :: ictxt, comm
comm = ictxt
end subroutine psb_get_mpicomm
end function psb_get_mpicomm
subroutine psb_get_rank(rank,ictxt,id)
function psb_get_rank(ictxt,id) result(rank)
integer(psb_mpk_) :: rank,ictxt,id
rank = id
end subroutine psb_get_rank
end function psb_get_rank
! !!!!!!!!!!!!!!!!!!!!!!