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

psblas-testpre:

Browse Source 
base/tools/psb_csphalo.F90
 base/tools/psb_dsphalo.F90
 base/tools/psb_ssphalo.F90
 base/tools/psb_zsphalo.F90

wrong kind for icomm.
psblas3-final
Salvatore Filippone 12 years ago
parent 7c874c0be5
commit 7c42957207
4 changed files with 20 additions and 16 deletions
Show Stats Download Patch File Download Diff File

9
base/tools/psb_csphalo.F90
Unescape Escape View File

@ -78,8 +78,9 @@ Subroutine psb_csphalo(a,desc_a,blk,info,rowcnv,colcnv,&
integer(psb_ipk_) :: np,me,counter,proc,i, & integer(psb_ipk_) :: np,me,counter,proc,i, &
& n_el_send,k,n_el_recv,ictxt, idx, r, tot_elem,& & n_el_send,k,n_el_recv,ictxt, idx, r, tot_elem,&
& n_elem, j, ipx,mat_recv, iszs, iszr,idxs,idxr,nz,& & n_elem, j, ipx,mat_recv, iszs, iszr,idxs,idxr,nz,&
& irmin,icmin,irmax,icmax,data_,ngtz,totxch,nxs, nxr & irmin,icmin,irmax,icmax,data_,ngtz,totxch,nxs, nxr,&
integer(psb_ipk_) :: l1, icomm, err_act & l1, err_act
integer(psb_mpik_) :: icomm
integer(psb_mpik_), allocatable :: brvindx(:), & integer(psb_mpik_), allocatable :: brvindx(:), &
& rvsz(:), bsdindx(:),sdsz(:) & rvsz(:), bsdindx(:),sdsz(:)
integer(psb_ipk_), allocatable :: iasnd(:), jasnd(:) integer(psb_ipk_), allocatable :: iasnd(:), jasnd(:)
@ -272,8 +273,8 @@ Subroutine psb_csphalo(a,desc_a,blk,info,rowcnv,colcnv,&
end if end if
call mpi_alltoallv(valsnd,sdsz,bsdindx,psb_mpi_c_spk_,& call mpi_alltoallv(valsnd,sdsz,bsdindx,mpi_complex,&
& acoo%val,rvsz,brvindx,psb_mpi_c_spk_,icomm,info) & acoo%val,rvsz,brvindx,mpi_complex,icomm,info)
call mpi_alltoallv(iasnd,sdsz,bsdindx,psb_mpi_ipk_integer,& call mpi_alltoallv(iasnd,sdsz,bsdindx,psb_mpi_ipk_integer,&
& acoo%ia,rvsz,brvindx,psb_mpi_ipk_integer,icomm,info) & acoo%ia,rvsz,brvindx,psb_mpi_ipk_integer,icomm,info)
call mpi_alltoallv(jasnd,sdsz,bsdindx,psb_mpi_ipk_integer,& call mpi_alltoallv(jasnd,sdsz,bsdindx,psb_mpi_ipk_integer,&

9
base/tools/psb_dsphalo.F90
Unescape Escape View File

@ -78,8 +78,9 @@ Subroutine psb_dsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
integer(psb_ipk_) :: np,me,counter,proc,i, & integer(psb_ipk_) :: np,me,counter,proc,i, &
& n_el_send,k,n_el_recv,ictxt, idx, r, tot_elem,& & n_el_send,k,n_el_recv,ictxt, idx, r, tot_elem,&
& n_elem, j, ipx,mat_recv, iszs, iszr,idxs,idxr,nz,& & n_elem, j, ipx,mat_recv, iszs, iszr,idxs,idxr,nz,&
& irmin,icmin,irmax,icmax,data_,ngtz,totxch,nxs, nxr & irmin,icmin,irmax,icmax,data_,ngtz,totxch,nxs, nxr,&
integer(psb_ipk_) :: l1, icomm, err_act & l1, err_act
integer(psb_mpik_) :: icomm
integer(psb_mpik_), allocatable :: brvindx(:), & integer(psb_mpik_), allocatable :: brvindx(:), &
& rvsz(:), bsdindx(:),sdsz(:) & rvsz(:), bsdindx(:),sdsz(:)
integer(psb_ipk_), allocatable :: iasnd(:), jasnd(:) integer(psb_ipk_), allocatable :: iasnd(:), jasnd(:)
@ -272,8 +273,8 @@ Subroutine psb_dsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
end if end if
call mpi_alltoallv(valsnd,sdsz,bsdindx,psb_mpi_r_dpk_,& call mpi_alltoallv(valsnd,sdsz,bsdindx,mpi_double_precision,&
& acoo%val,rvsz,brvindx,psb_mpi_r_dpk_,icomm,info) & acoo%val,rvsz,brvindx,mpi_double_precision,icomm,info)
call mpi_alltoallv(iasnd,sdsz,bsdindx,psb_mpi_ipk_integer,& call mpi_alltoallv(iasnd,sdsz,bsdindx,psb_mpi_ipk_integer,&
& acoo%ia,rvsz,brvindx,psb_mpi_ipk_integer,icomm,info) & acoo%ia,rvsz,brvindx,psb_mpi_ipk_integer,icomm,info)
call mpi_alltoallv(jasnd,sdsz,bsdindx,psb_mpi_ipk_integer,& call mpi_alltoallv(jasnd,sdsz,bsdindx,psb_mpi_ipk_integer,&

9
base/tools/psb_ssphalo.F90
Unescape Escape View File

@ -78,8 +78,9 @@ Subroutine psb_ssphalo(a,desc_a,blk,info,rowcnv,colcnv,&
integer(psb_ipk_) :: np,me,counter,proc,i, & integer(psb_ipk_) :: np,me,counter,proc,i, &
& n_el_send,k,n_el_recv,ictxt, idx, r, tot_elem,& & n_el_send,k,n_el_recv,ictxt, idx, r, tot_elem,&
& n_elem, j, ipx,mat_recv, iszs, iszr,idxs,idxr,nz,& & n_elem, j, ipx,mat_recv, iszs, iszr,idxs,idxr,nz,&
& irmin,icmin,irmax,icmax,data_,ngtz,totxch,nxs, nxr & irmin,icmin,irmax,icmax,data_,ngtz,totxch,nxs, nxr,&
integer(psb_ipk_) :: l1, icomm, err_act & l1, err_act
integer(psb_mpik_) :: icomm
integer(psb_mpik_), allocatable :: brvindx(:), & integer(psb_mpik_), allocatable :: brvindx(:), &
& rvsz(:), bsdindx(:),sdsz(:) & rvsz(:), bsdindx(:),sdsz(:)
integer(psb_ipk_), allocatable :: iasnd(:), jasnd(:) integer(psb_ipk_), allocatable :: iasnd(:), jasnd(:)
@ -272,8 +273,8 @@ Subroutine psb_ssphalo(a,desc_a,blk,info,rowcnv,colcnv,&
end if end if
call mpi_alltoallv(valsnd,sdsz,bsdindx,psb_mpi_r_spk_,& call mpi_alltoallv(valsnd,sdsz,bsdindx,mpi_real,&
& acoo%val,rvsz,brvindx,psb_mpi_r_spk_,icomm,info) & acoo%val,rvsz,brvindx,mpi_real,icomm,info)
call mpi_alltoallv(iasnd,sdsz,bsdindx,psb_mpi_ipk_integer,& call mpi_alltoallv(iasnd,sdsz,bsdindx,psb_mpi_ipk_integer,&
& acoo%ia,rvsz,brvindx,psb_mpi_ipk_integer,icomm,info) & acoo%ia,rvsz,brvindx,psb_mpi_ipk_integer,icomm,info)
call mpi_alltoallv(jasnd,sdsz,bsdindx,psb_mpi_ipk_integer,& call mpi_alltoallv(jasnd,sdsz,bsdindx,psb_mpi_ipk_integer,&

9
base/tools/psb_zsphalo.F90
Unescape Escape View File

@ -78,8 +78,9 @@ Subroutine psb_zsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
integer(psb_ipk_) :: np,me,counter,proc,i, & integer(psb_ipk_) :: np,me,counter,proc,i, &
& n_el_send,k,n_el_recv,ictxt, idx, r, tot_elem,& & n_el_send,k,n_el_recv,ictxt, idx, r, tot_elem,&
& n_elem, j, ipx,mat_recv, iszs, iszr,idxs,idxr,nz,& & n_elem, j, ipx,mat_recv, iszs, iszr,idxs,idxr,nz,&
& irmin,icmin,irmax,icmax,data_,ngtz,totxch,nxs, nxr & irmin,icmin,irmax,icmax,data_,ngtz,totxch,nxs, nxr,&
integer(psb_ipk_) :: l1, icomm, err_act & l1, err_act
integer(psb_mpik_) :: icomm
integer(psb_mpik_), allocatable :: brvindx(:), & integer(psb_mpik_), allocatable :: brvindx(:), &
& rvsz(:), bsdindx(:),sdsz(:) & rvsz(:), bsdindx(:),sdsz(:)
integer(psb_ipk_), allocatable :: iasnd(:), jasnd(:) integer(psb_ipk_), allocatable :: iasnd(:), jasnd(:)
@ -272,8 +273,8 @@ Subroutine psb_zsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
end if end if
call mpi_alltoallv(valsnd,sdsz,bsdindx,psb_mpi_c_dpk_,& call mpi_alltoallv(valsnd,sdsz,bsdindx,mpi_double_complex,&
& acoo%val,rvsz,brvindx,psb_mpi_c_dpk_,icomm,info) & acoo%val,rvsz,brvindx,mpi_double_complex,icomm,info)
call mpi_alltoallv(iasnd,sdsz,bsdindx,psb_mpi_ipk_integer,& call mpi_alltoallv(iasnd,sdsz,bsdindx,psb_mpi_ipk_integer,&
& acoo%ia,rvsz,brvindx,psb_mpi_ipk_integer,icomm,info) & acoo%ia,rvsz,brvindx,psb_mpi_ipk_integer,icomm,info)
call mpi_alltoallv(jasnd,sdsz,bsdindx,psb_mpi_ipk_integer,& call mpi_alltoallv(jasnd,sdsz,bsdindx,psb_mpi_ipk_integer,&

Write Preview
Loading…
Cancel
Save