fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-24 14:51:49 +00:00
Code Issues Packages Projects Releases Wiki Activity

psblas-3:

Browse Source 
base/internals/Makefile
 base/internals/psi_fnd_owner.F90
 base/internals/psi_idx_cnv.f90
 base/internals/psi_idx_ins_cnv.f90
 base/modules/psi_i_mod.f90
 base/tools/psb_ccdbldext.F90
 base/tools/psb_cins.f90
 base/tools/psb_dcdbldext.F90
 base/tools/psb_dins.f90
 base/tools/psb_glob_to_loc.f90
 base/tools/psb_iins.f90
 base/tools/psb_scdbldext.F90
 base/tools/psb_sins.f90
 base/tools/psb_zcdbldext.F90
 base/tools/psb_zins.f90


Take out idx_cnv.
This commit is contained in:
Salvatore Filippone
2013-10-01 15:37:23 +00:00
parent 775b1de8d6
commit 74ba49f863
15 changed files with 82 additions and 972 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psi_i_mod.f90
-77
View File
@@ -147,83 +147,6 @@ module psi_i_mod
end subroutine psi_bld_tmpovrl
end interface
interface psi_idx_cnv
subroutine psi_idx_cnv1(nv,idxin,desc,info,mask,owned)
import :: psb_desc_type, psb_ipk_
integer(psb_ipk_), intent(in) :: nv
integer(psb_ipk_), intent(inout) :: idxin(:)
type(psb_desc_type), intent(in) :: desc
integer(psb_ipk_), intent(out) :: info
logical, intent(in), optional :: mask(:)
logical, intent(in), optional :: owned
end subroutine psi_idx_cnv1
subroutine psi_idx_cnv2(nv,idxin,idxout,desc,info,mask,owned)
import :: psb_desc_type, psb_ipk_
integer(psb_ipk_), intent(in) :: nv, idxin(:)
integer(psb_ipk_), intent(out) :: idxout(:)
type(psb_desc_type), intent(in) :: desc
integer(psb_ipk_), intent(out) :: info
logical, intent(in), optional :: mask(:)
logical, intent(in), optional :: owned
end subroutine psi_idx_cnv2
subroutine psi_idx_cnvs(idxin,idxout,desc,info,mask,owned)
import :: psb_desc_type, psb_ipk_
integer(psb_ipk_), intent(in) :: idxin
integer(psb_ipk_), intent(out) :: idxout
type(psb_desc_type), intent(in) :: desc
integer(psb_ipk_), intent(out) :: info
logical, intent(in), optional :: mask
logical, intent(in), optional :: owned
end subroutine psi_idx_cnvs
subroutine psi_idx_cnvs1(idxin,desc,info,mask,owned)
import :: psb_desc_type, psb_ipk_
integer(psb_ipk_), intent(inout) :: idxin
type(psb_desc_type), intent(in) :: desc
integer(psb_ipk_), intent(out) :: info
logical, intent(in), optional :: mask
logical, intent(in), optional :: owned
end subroutine psi_idx_cnvs1
end interface
interface psi_idx_ins_cnv
subroutine psi_idx_ins_cnv1(nv,idxin,desc,info,mask,lidx)
import :: psb_desc_type, psb_ipk_
integer(psb_ipk_), intent(in) :: nv
integer(psb_ipk_), intent(inout) :: idxin(:)
type(psb_desc_type), intent(inout) :: desc
integer(psb_ipk_), intent(out) :: info
logical, intent(in), optional :: mask(:)
integer(psb_ipk_), intent(in), optional :: lidx(:)
end subroutine psi_idx_ins_cnv1
subroutine psi_idx_ins_cnv2(nv,idxin,idxout,desc,info,mask,lidx)
import :: psb_desc_type, psb_ipk_
integer(psb_ipk_), intent(in) :: nv, idxin(:)
integer(psb_ipk_), intent(out) :: idxout(:)
type(psb_desc_type), intent(inout) :: desc
integer(psb_ipk_), intent(out) :: info
logical, intent(in), optional :: mask(:)
integer(psb_ipk_), intent(in), optional :: lidx(:)
end subroutine psi_idx_ins_cnv2
subroutine psi_idx_ins_cnvs2(idxin,idxout,desc,info,mask,lidx)
import :: psb_desc_type, psb_ipk_
integer(psb_ipk_), intent(in) :: idxin
integer(psb_ipk_), intent(out) :: idxout
type(psb_desc_type), intent(inout) :: desc
integer(psb_ipk_), intent(out) :: info
logical, intent(in), optional :: mask
integer(psb_ipk_), intent(in), optional :: lidx
end subroutine psi_idx_ins_cnvs2
subroutine psi_idx_ins_cnvs1(idxin,desc,info,mask,lidx)
import :: psb_desc_type, psb_ipk_
integer(psb_ipk_), intent(inout) :: idxin
type(psb_desc_type), intent(inout) :: desc
integer(psb_ipk_), intent(out) :: info
logical, intent(in), optional :: mask
integer(psb_ipk_), intent(in), optional :: lidx
end subroutine psi_idx_ins_cnvs1
end interface
interface psi_cnv_dsc
subroutine psi_cnv_dsc(halo_in,ovrlap_in,ext_in,cdesc, info)
import :: psb_desc_type, psb_ipk_