fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-17 03:12:15 +00:00
Code Issues Packages Projects Releases Wiki Activity

psblas3-integer8:

Browse Source 
base/comm/psb_cscatter.F90
 base/comm/psb_cspgather.F90
 base/comm/psb_dscatter.F90
 base/comm/psb_dspgather.F90
 base/comm/psb_iscatter.F90
 base/comm/psb_sscatter.F90
 base/comm/psb_sspgather.F90
 base/comm/psb_zscatter.F90
 base/comm/psb_zspgather.F90
 base/internals/psb_indx_map_fnd_owner.F90
 base/internals/psi_desc_index.F90
 base/internals/psi_extrct_dl.F90
 base/internals/psi_iswapdata.F90
 base/internals/psi_iswaptran.F90
 base/modules/psb_const_mod.F90
 base/modules/psi_bcast_mod.F90
 base/modules/psi_comm_buffers_mod.F90
 base/modules/psi_p2p_mod.F90
 base/modules/psi_penv_mod.F90
 base/modules/psi_reduce_mod.F90
 base/tools/psb_ccdbldext.F90
 base/tools/psb_csphalo.F90
 base/tools/psb_dcdbldext.F90
 base/tools/psb_dsphalo.F90
 base/tools/psb_scdbldext.F90
 base/tools/psb_ssphalo.F90
 base/tools/psb_zcdbldext.F90
 base/tools/psb_zsphalo.F90

New names for variables holding mpi datatypes; hopefully clear enough.
This commit is contained in:
Salvatore Filippone
2012-02-05 17:17:32 +00:00
parent b41af4a30a
commit 0b2b2e5bad
28 changed files with 260 additions and 250 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/comm/psb_cscatter.F90
+8 -8
View File
@@ -169,8 +169,8 @@ subroutine psb_cscatterm(globx, locx, desc_a, info, iroot)
end do
call psb_loc_to_glob(ltg(1:nrow),desc_a,info)
call mpi_gather(nrow,1,psb_mpi_integer,all_dim,&
& 1,psb_mpi_integer,rootrank,icomm,info)
call mpi_gather(nrow,1,psb_mpi_ipk_integer,all_dim,&
& 1,psb_mpi_ipk_integer,rootrank,icomm,info)
if (me == root) then
displ(1)=0
@@ -190,8 +190,8 @@ subroutine psb_cscatterm(globx, locx, desc_a, info, iroot)
end if
call mpi_gatherv(ltg,nrow,&
& psb_mpi_integer,l_t_g_all,all_dim,&
& displ,psb_mpi_integer,rootrank,icomm,info)
& psb_mpi_ipk_integer,l_t_g_all,all_dim,&
& displ,psb_mpi_ipk_integer,rootrank,icomm,info)
do c=1, k
@@ -383,8 +383,8 @@ subroutine psb_cscatterv(globx, locx, desc_a, info, iroot)
call psb_loc_to_glob(ltg(1:nrow),desc_a,info)
call mpi_gather(nrow,1,psb_mpi_integer,all_dim,&
& 1,psb_mpi_integer,rootrank,icomm,info)
call mpi_gather(nrow,1,psb_mpi_ipk_integer,all_dim,&
& 1,psb_mpi_ipk_integer,rootrank,icomm,info)
if(me == root) then
displ(1)=0
@@ -401,8 +401,8 @@ subroutine psb_cscatterv(globx, locx, desc_a, info, iroot)
end if
call mpi_gatherv(ltg,nrow,&
& psb_mpi_integer,l_t_g_all,all_dim,&
& displ,psb_mpi_integer,rootrank,icomm,info)
& psb_mpi_ipk_integer,l_t_g_all,all_dim,&
& displ,psb_mpi_ipk_integer,rootrank,icomm,info)
! prepare vector to scatter
if (me == root) then
base/comm/psb_cspgather.F90
+4 -4
View File
@@ -73,12 +73,12 @@ subroutine psb_csp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keep
call mpi_allgatherv(loc_coo%val,ndx,mpi_complex,&
& glob_coo%val,nzbr,idisp,&
& mpi_complex,icomm,minfo)
if (minfo == psb_success_) call mpi_allgatherv(loc_coo%ia,ndx,psb_mpi_integer,&
if (minfo == psb_success_) call mpi_allgatherv(loc_coo%ia,ndx,psb_mpi_ipk_integer,&
& glob_coo%ia,nzbr,idisp,&
& psb_mpi_integer,icomm,minfo)
if (minfo == psb_success_) call mpi_allgatherv(loc_coo%ja,ndx,psb_mpi_integer,&
& psb_mpi_ipk_integer,icomm,minfo)
if (minfo == psb_success_) call mpi_allgatherv(loc_coo%ja,ndx,psb_mpi_ipk_integer,&
& glob_coo%ja,nzbr,idisp,&
& psb_mpi_integer,icomm,minfo)
& psb_mpi_ipk_integer,icomm,minfo)
if (minfo /= psb_success_) then
info = minfo
base/comm/psb_dscatter.F90
+8 -8
View File
@@ -169,8 +169,8 @@ subroutine psb_dscatterm(globx, locx, desc_a, info, iroot)
end do
call psb_loc_to_glob(ltg(1:nrow),desc_a,info)
call mpi_gather(nrow,1,psb_mpi_integer,all_dim,&
& 1,psb_mpi_integer,rootrank,icomm,info)
call mpi_gather(nrow,1,psb_mpi_ipk_integer,all_dim,&
& 1,psb_mpi_ipk_integer,rootrank,icomm,info)
if (me == root) then
displ(1)=0
@@ -190,8 +190,8 @@ subroutine psb_dscatterm(globx, locx, desc_a, info, iroot)
end if
call mpi_gatherv(ltg,nrow,&
& psb_mpi_integer,l_t_g_all,all_dim,&
& displ,psb_mpi_integer,rootrank,icomm,info)
& psb_mpi_ipk_integer,l_t_g_all,all_dim,&
& displ,psb_mpi_ipk_integer,rootrank,icomm,info)
do c=1, k
@@ -383,8 +383,8 @@ subroutine psb_dscatterv(globx, locx, desc_a, info, iroot)
call psb_loc_to_glob(ltg(1:nrow),desc_a,info)
call mpi_gather(nrow,1,psb_mpi_integer,all_dim,&
& 1,psb_mpi_integer,rootrank,icomm,info)
call mpi_gather(nrow,1,psb_mpi_ipk_integer,all_dim,&
& 1,psb_mpi_ipk_integer,rootrank,icomm,info)
if(me == root) then
displ(1)=0
@@ -401,8 +401,8 @@ subroutine psb_dscatterv(globx, locx, desc_a, info, iroot)
end if
call mpi_gatherv(ltg,nrow,&
& psb_mpi_integer,l_t_g_all,all_dim,&
& displ,psb_mpi_integer,rootrank,icomm,info)
& psb_mpi_ipk_integer,l_t_g_all,all_dim,&
& displ,psb_mpi_ipk_integer,rootrank,icomm,info)
! prepare vector to scatter
if (me == root) then
base/comm/psb_dspgather.F90
+4 -4
View File
@@ -73,12 +73,12 @@ subroutine psb_dsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keep
call mpi_allgatherv(loc_coo%val,ndx,mpi_complex,&
& glob_coo%val,nzbr,idisp,&
& mpi_complex,icomm,minfo)
if (minfo == psb_success_) call mpi_allgatherv(loc_coo%ia,ndx,psb_mpi_integer,&
if (minfo == psb_success_) call mpi_allgatherv(loc_coo%ia,ndx,psb_mpi_ipk_integer,&
& glob_coo%ia,nzbr,idisp,&
& psb_mpi_integer,icomm,minfo)
if (minfo == psb_success_) call mpi_allgatherv(loc_coo%ja,ndx,psb_mpi_integer,&
& psb_mpi_ipk_integer,icomm,minfo)
if (minfo == psb_success_) call mpi_allgatherv(loc_coo%ja,ndx,psb_mpi_ipk_integer,&
& glob_coo%ja,nzbr,idisp,&
& psb_mpi_integer,icomm,minfo)
& psb_mpi_ipk_integer,icomm,minfo)
if (minfo /= psb_success_) then
info = minfo
base/comm/psb_iscatter.F90
+12 -12
View File
@@ -167,8 +167,8 @@ subroutine psb_iscatterm(globx, locx, desc_a, info, iroot)
end do
call psb_loc_to_glob(ltg(1:nrow),desc_a,info)
call mpi_gather(nrow,1,psb_mpi_integer,all_dim,&
& 1,psb_mpi_integer,rootrank,icomm,info)
call mpi_gather(nrow,1,psb_mpi_ipk_integer,all_dim,&
& 1,psb_mpi_ipk_integer,rootrank,icomm,info)
if (me == root) then
displ(1)=0
@@ -188,8 +188,8 @@ subroutine psb_iscatterm(globx, locx, desc_a, info, iroot)
end if
call mpi_gatherv(ltg,nrow,&
& psb_mpi_integer,l_t_g_all,all_dim,&
& displ,psb_mpi_integer,rootrank,icomm,info)
& psb_mpi_ipk_integer,l_t_g_all,all_dim,&
& displ,psb_mpi_ipk_integer,rootrank,icomm,info)
do c=1, k
@@ -206,8 +206,8 @@ subroutine psb_iscatterm(globx, locx, desc_a, info, iroot)
! scatter !!!
call mpi_scatterv(scatterv,all_dim,displ,&
& psb_mpi_integer,locx(1,jlocx+c-1),nrow,&
& psb_mpi_integer,rootrank,icomm,info)
& psb_mpi_ipk_integer,locx(1,jlocx+c-1),nrow,&
& psb_mpi_ipk_integer,rootrank,icomm,info)
end do
@@ -381,8 +381,8 @@ subroutine psb_iscatterv(globx, locx, desc_a, info, iroot)
call psb_loc_to_glob(ltg(1:nrow),desc_a,info)
call mpi_gather(nrow,1,psb_mpi_integer,all_dim,&
& 1,psb_mpi_integer,rootrank,icomm,info)
call mpi_gather(nrow,1,psb_mpi_ipk_integer,all_dim,&
& 1,psb_mpi_ipk_integer,rootrank,icomm,info)
if(me == root) then
displ(1)=0
@@ -399,8 +399,8 @@ subroutine psb_iscatterv(globx, locx, desc_a, info, iroot)
end if
call mpi_gatherv(ltg,nrow,&
& psb_mpi_integer,l_t_g_all,all_dim,&
& displ,psb_mpi_integer,rootrank,icomm,info)
& psb_mpi_ipk_integer,l_t_g_all,all_dim,&
& displ,psb_mpi_ipk_integer,rootrank,icomm,info)
! prepare vector to scatter
if (me == root) then
@@ -415,8 +415,8 @@ subroutine psb_iscatterv(globx, locx, desc_a, info, iroot)
end if
call mpi_scatterv(scatterv,all_dim,displ,&
& psb_mpi_integer,locx,nrow,&
& psb_mpi_integer,rootrank,icomm,info)
& psb_mpi_ipk_integer,locx,nrow,&
& psb_mpi_ipk_integer,rootrank,icomm,info)
if (me == root) deallocate(all_dim, l_t_g_all, displ, scatterv)
end if
base/comm/psb_sscatter.F90
+8 -8
View File
@@ -169,8 +169,8 @@ subroutine psb_sscatterm(globx, locx, desc_a, info, iroot)
end do
call psb_loc_to_glob(ltg(1:nrow),desc_a,info)
call mpi_gather(nrow,1,psb_mpi_integer,all_dim,&
& 1,psb_mpi_integer,rootrank,icomm,info)
call mpi_gather(nrow,1,psb_mpi_ipk_integer,all_dim,&
& 1,psb_mpi_ipk_integer,rootrank,icomm,info)
if (me == root) then
displ(1)=0
@@ -190,8 +190,8 @@ subroutine psb_sscatterm(globx, locx, desc_a, info, iroot)
end if
call mpi_gatherv(ltg,nrow,&
& psb_mpi_integer,l_t_g_all,all_dim,&
& displ,psb_mpi_integer,rootrank,icomm,info)
& psb_mpi_ipk_integer,l_t_g_all,all_dim,&
& displ,psb_mpi_ipk_integer,rootrank,icomm,info)
do c=1, k
@@ -383,8 +383,8 @@ subroutine psb_sscatterv(globx, locx, desc_a, info, iroot)
call psb_loc_to_glob(ltg(1:nrow),desc_a,info)
call mpi_gather(nrow,1,psb_mpi_integer,all_dim,&
& 1,psb_mpi_integer,rootrank,icomm,info)
call mpi_gather(nrow,1,psb_mpi_ipk_integer,all_dim,&
& 1,psb_mpi_ipk_integer,rootrank,icomm,info)
if(me == root) then
displ(1)=0
@@ -401,8 +401,8 @@ subroutine psb_sscatterv(globx, locx, desc_a, info, iroot)
end if
call mpi_gatherv(ltg,nrow,&
& psb_mpi_integer,l_t_g_all,all_dim,&
& displ,psb_mpi_integer,rootrank,icomm,info)
& psb_mpi_ipk_integer,l_t_g_all,all_dim,&
& displ,psb_mpi_ipk_integer,rootrank,icomm,info)
! prepare vector to scatter
if (me == root) then
base/comm/psb_sspgather.F90
+4 -4
View File
@@ -73,12 +73,12 @@ subroutine psb_ssp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keep
call mpi_allgatherv(loc_coo%val,ndx,mpi_complex,&
& glob_coo%val,nzbr,idisp,&
& mpi_complex,icomm,minfo)
if (minfo == psb_success_) call mpi_allgatherv(loc_coo%ia,ndx,psb_mpi_integer,&
if (minfo == psb_success_) call mpi_allgatherv(loc_coo%ia,ndx,psb_mpi_ipk_integer,&
& glob_coo%ia,nzbr,idisp,&
& psb_mpi_integer,icomm,minfo)
if (minfo == psb_success_) call mpi_allgatherv(loc_coo%ja,ndx,psb_mpi_integer,&
& psb_mpi_ipk_integer,icomm,minfo)
if (minfo == psb_success_) call mpi_allgatherv(loc_coo%ja,ndx,psb_mpi_ipk_integer,&
& glob_coo%ja,nzbr,idisp,&
& psb_mpi_integer,icomm,minfo)
& psb_mpi_ipk_integer,icomm,minfo)
if (minfo /= psb_success_) then
info = minfo
base/comm/psb_zscatter.F90
+8 -8
View File
@@ -169,8 +169,8 @@ subroutine psb_zscatterm(globx, locx, desc_a, info, iroot)
end do
call psb_loc_to_glob(ltg(1:nrow),desc_a,info)
call mpi_gather(nrow,1,psb_mpi_integer,all_dim,&
& 1,psb_mpi_integer,rootrank,icomm,info)
call mpi_gather(nrow,1,psb_mpi_ipk_integer,all_dim,&
& 1,psb_mpi_ipk_integer,rootrank,icomm,info)
if (me == root) then
displ(1)=0
@@ -190,8 +190,8 @@ subroutine psb_zscatterm(globx, locx, desc_a, info, iroot)
end if
call mpi_gatherv(ltg,nrow,&
& psb_mpi_integer,l_t_g_all,all_dim,&
& displ,psb_mpi_integer,rootrank,icomm,info)
& psb_mpi_ipk_integer,l_t_g_all,all_dim,&
& displ,psb_mpi_ipk_integer,rootrank,icomm,info)
do c=1, k
@@ -383,8 +383,8 @@ subroutine psb_zscatterv(globx, locx, desc_a, info, iroot)
call psb_loc_to_glob(ltg(1:nrow),desc_a,info)
call mpi_gather(nrow,1,psb_mpi_integer,all_dim,&
& 1,psb_mpi_integer,rootrank,icomm,info)
call mpi_gather(nrow,1,psb_mpi_ipk_integer,all_dim,&
& 1,psb_mpi_ipk_integer,rootrank,icomm,info)
if(me == root) then
displ(1)=0
@@ -401,8 +401,8 @@ subroutine psb_zscatterv(globx, locx, desc_a, info, iroot)
end if
call mpi_gatherv(ltg,nrow,&
& psb_mpi_integer,l_t_g_all,all_dim,&
& displ,psb_mpi_integer,rootrank,icomm,info)
& psb_mpi_ipk_integer,l_t_g_all,all_dim,&
& displ,psb_mpi_ipk_integer,rootrank,icomm,info)
! prepare vector to scatter
if (me == root) then
base/comm/psb_zspgather.F90
+4 -4
View File
@@ -73,12 +73,12 @@ subroutine psb_zsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keep
call mpi_allgatherv(loc_coo%val,ndx,mpi_complex,&
& glob_coo%val,nzbr,idisp,&
& mpi_complex,icomm,minfo)
if (minfo == psb_success_) call mpi_allgatherv(loc_coo%ia,ndx,psb_mpi_integer,&
if (minfo == psb_success_) call mpi_allgatherv(loc_coo%ia,ndx,psb_mpi_ipk_integer,&
& glob_coo%ia,nzbr,idisp,&
& psb_mpi_integer,icomm,minfo)
if (minfo == psb_success_) call mpi_allgatherv(loc_coo%ja,ndx,psb_mpi_integer,&
& psb_mpi_ipk_integer,icomm,minfo)
if (minfo == psb_success_) call mpi_allgatherv(loc_coo%ja,ndx,psb_mpi_ipk_integer,&
& glob_coo%ja,nzbr,idisp,&
& psb_mpi_integer,icomm,minfo)
& psb_mpi_ipk_integer,icomm,minfo)
if (minfo /= psb_success_) then
info = minfo