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

psblas3:

Browse Source 
base/comm/psb_cspgather.F90
 base/comm/psb_dspgather.F90
 base/comm/psb_sspgather.F90
 base/comm/psb_zspgather.F90
 base/internals/psi_bld_tmphalo.f90
 base/internals/psi_bld_tmpovrl.f90
 base/internals/psi_compute_size.f90
 base/internals/psi_crea_bnd_elem.f90
 base/internals/psi_crea_index.f90
 base/internals/psi_cswapdata.F90
 base/internals/psi_cswaptran.F90
 base/internals/psi_desc_index.F90
 base/internals/psi_dl_check.f90
 base/internals/psi_dswapdata.F90
 base/internals/psi_dswaptran.F90
 base/internals/psi_extrct_dl.F90
 base/internals/psi_fnd_owner.F90
 base/internals/psi_idx_cnv.f90
 base/internals/psi_idx_ins_cnv.f90
 base/internals/psi_iswapdata.F90
 base/internals/psi_iswaptran.F90
 base/internals/psi_ldsc_pre_halo.f90
 base/internals/psi_ovrl_save.f90
 base/internals/psi_sswapdata.F90
 base/internals/psi_sswaptran.F90
 base/internals/psi_zswapdata.F90
 base/internals/psi_zswaptran.F90
 base/modules/Makefile
 base/modules/psb_base_linmap_mod.f90
 base/modules/psb_base_mod.f90
 base/modules/psb_c_comm_mod.f90
 base/modules/psb_c_linmap_mod.f90
 base/modules/psb_c_psblas_mod.f90
 base/modules/psb_c_tools_mod.f90
 base/modules/psb_cd_tools_mod.f90
 base/modules/psb_check_mod.f90
 base/modules/psb_d_comm_mod.f90
 base/modules/psb_d_linmap_mod.f90
 base/modules/psb_d_psblas_mod.f90
 base/modules/psb_d_tools_mod.f90
 base/modules/psb_desc_mod.f90
 base/modules/psb_desc_type.f90
 base/modules/psb_i_comm_mod.f90
 base/modules/psb_i_tools_mod.f90
 base/modules/psb_s_comm_mod.f90
 base/modules/psb_s_linmap_mod.f90
 base/modules/psb_s_psblas_mod.f90
 base/modules/psb_s_tools_mod.f90
 base/modules/psb_z_comm_mod.f90
 base/modules/psb_z_linmap_mod.f90
 base/modules/psb_z_psblas_mod.f90
 base/modules/psb_z_tools_mod.f90
 base/modules/psi_c_mod.f90
 base/modules/psi_d_mod.f90
 base/modules/psi_i_mod.f90
 base/modules/psi_mod.f90
 base/modules/psi_s_mod.f90
 base/modules/psi_z_mod.f90
 base/psblas/psb_camax.f90
 base/psblas/psb_cdot.f90
 base/psblas/psb_cnrm2.f90
 base/psblas/psb_damax.f90
 base/psblas/psb_ddot.f90
 base/psblas/psb_dnrm2.f90
 base/psblas/psb_samax.f90
 base/psblas/psb_sdot.f90
 base/psblas/psb_snrm2.f90
 base/psblas/psb_sxdot.f90
 base/psblas/psb_zamax.f90
 base/psblas/psb_zdot.f90
 base/psblas/psb_znrm2.f90
 base/tools/psb_cdall.f90
 base/tools/psb_loc_to_glob.f90

Changed name of module for psb_desc_type from psb_descriptor_type into
psb_desc_mod.
psblas3-final
Salvatore Filippone 12 years ago
parent 92bbcf9fac
commit 24155b1a4f
72 changed files with 242 additions and 242 deletions
Show Stats Download Patch File Download Diff File

2
base/comm/psb_cspgather.F90
Unescape Escape View File

@ -31,7 +31,7 @@
!!$
! File: psb_cspgather.f90
subroutine psb_csp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keeploc)
use psb_descriptor_type
use psb_desc_mod
use psb_error_mod
use psb_penv_mod
use psb_mat_mod

2
base/comm/psb_dspgather.F90
Unescape Escape View File

@ -31,7 +31,7 @@
!!$
! File: psb_dspgather.f90
subroutine psb_dsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keeploc)
use psb_descriptor_type
use psb_desc_mod
use psb_error_mod
use psb_penv_mod
use psb_mat_mod

2
base/comm/psb_sspgather.F90
Unescape Escape View File

@ -31,7 +31,7 @@
!!$
! File: psb_sspgather.f90
subroutine psb_ssp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keeploc)
use psb_descriptor_type
use psb_desc_mod
use psb_error_mod
use psb_penv_mod
use psb_mat_mod

2
base/comm/psb_zspgather.F90
Unescape Escape View File

@ -31,7 +31,7 @@
!!$
! File: psb_zspgather.f90
subroutine psb_zsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keeploc)
use psb_descriptor_type
use psb_desc_mod
use psb_error_mod
use psb_penv_mod
use psb_mat_mod

2
base/internals/psi_bld_tmphalo.f90
Unescape Escape View File

@ -45,7 +45,7 @@
! info - integer. return code.
!
subroutine psi_bld_tmphalo(desc,info)
use psb_descriptor_type
use psb_desc_mod
use psb_serial_mod
use psb_const_mod
use psb_error_mod

2
base/internals/psi_bld_tmpovrl.f90
Unescape Escape View File

@ -51,7 +51,7 @@
! info - integer. return code.
!
subroutine psi_bld_tmpovrl(iv,desc,info)
use psb_descriptor_type
use psb_desc_mod
use psb_serial_mod
use psb_const_mod
use psb_error_mod

2
base/internals/psi_compute_size.f90
Unescape Escape View File

@ -36,7 +36,7 @@ subroutine psi_compute_size(desc_data, index_in, dl_lda, info)
use psi_mod, psb_protect_name => psi_compute_size
use psb_const_mod
use psb_descriptor_type
use psb_desc_mod
use psb_error_mod
use psb_penv_mod
implicit none

2
base/internals/psi_crea_bnd_elem.f90
Unescape Escape View File

@ -46,7 +46,7 @@
subroutine psi_crea_bnd_elem(bndel,desc_a,info)
use psi_mod, psb_protect_name => psi_crea_bnd_elem
use psb_realloc_mod
use psb_descriptor_type
use psb_desc_mod
use psb_error_mod
use psb_serial_mod
implicit none

2
base/internals/psi_crea_index.f90
Unescape Escape View File

@ -55,7 +55,7 @@
subroutine psi_crea_index(desc_a,index_in,index_out,glob_idx,nxch,nsnd,nrcv,info)
use psb_realloc_mod
use psb_descriptor_type
use psb_desc_mod
use psb_error_mod
use psb_penv_mod
use psi_mod, psb_protect_name => psi_crea_index

12
base/internals/psi_cswapdata.F90
Unescape Escape View File

@ -87,7 +87,7 @@ subroutine psi_cswapdatam(flag,n,beta,y,desc_a,work,info,data)
use psi_mod, psb_protect_name => psi_cswapdatam
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
#ifdef MPI_MOD
use mpi
@ -160,7 +160,7 @@ subroutine psi_cswapidxm(iictxt,iicomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,wo
use psi_mod, psb_protect_name => psi_cswapidxm
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
#ifdef MPI_MOD
use mpi
@ -585,7 +585,7 @@ subroutine psi_cswapdatav(flag,beta,y,desc_a,work,info,data)
use psi_mod, psb_protect_name => psi_cswapdatav
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
#ifdef MPI_MOD
use mpi
@ -659,7 +659,7 @@ subroutine psi_cswapidxv(iictxt,iicomm,flag,beta,y,idx,totxch,totsnd,totrcv,work
use psi_mod, psb_protect_name => psi_cswapidxv
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
#ifdef MPI_MOD
use mpi
@ -1019,7 +1019,7 @@ subroutine psi_cswapdata_vect(flag,beta,y,desc_a,work,info,data)
use psi_mod, psb_protect_name => psi_cswapdata_vect
use psb_c_base_vect_mod
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
#ifdef MPI_MOD
use mpi
@ -1094,7 +1094,7 @@ subroutine psi_cswapidx_vect(iictxt,iicomm,flag,beta,y,idx,totxch,totsnd,totrcv,
use psi_mod, psb_protect_name => psi_cswapidx_vect
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
use psb_c_base_vect_mod
#ifdef MPI_MOD

12
base/internals/psi_cswaptran.F90
Unescape Escape View File

@ -91,7 +91,7 @@ subroutine psi_cswaptranm(flag,n,beta,y,desc_a,work,info,data)
use psi_mod, psb_protect_name => psi_cswaptranm
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
#ifdef MPI_MOD
use mpi
@ -165,7 +165,7 @@ subroutine psi_ctranidxm(iictxt,iicomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,wo
use psi_mod, psb_protect_name => psi_ctranidxm
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
#ifdef MPI_MOD
use mpi
@ -595,7 +595,7 @@ subroutine psi_cswaptranv(flag,beta,y,desc_a,work,info,data)
use psi_mod, psb_protect_name => psi_cswaptranv
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
#ifdef MPI_MOD
use mpi
@ -670,7 +670,7 @@ subroutine psi_ctranidxv(iictxt,iicomm,flag,beta,y,idx,totxch,totsnd,totrcv,work
use psi_mod, psb_protect_name => psi_ctranidxv
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
#ifdef MPI_MOD
use mpi
@ -1045,7 +1045,7 @@ subroutine psi_cswaptran_vect(flag,beta,y,desc_a,work,info,data)
use psi_mod, psb_protect_name => psi_cswaptran_vect
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
use psb_c_base_vect_mod
#ifdef MPI_MOD
@ -1123,7 +1123,7 @@ subroutine psi_ctranidx_vect(iictxt,iicomm,flag,beta,y,idx,&
use psi_mod, psb_protect_name => psi_ctranidx_vect
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
use psb_c_base_vect_mod
#ifdef MPI_MOD

2
base/internals/psi_desc_index.F90
Unescape Escape View File

@ -100,7 +100,7 @@
!
subroutine psi_desc_index(desc,index_in,dep_list,&
& length_dl,nsnd,nrcv,desc_index,isglob_in,info)
use psb_descriptor_type
use psb_desc_mod
use psb_realloc_mod
use psb_error_mod
use psb_const_mod

2
base/internals/psi_dl_check.f90
Unescape Escape View File

@ -48,7 +48,7 @@ subroutine psi_dl_check(dep_list,dl_lda,np,length_dl)
use psi_mod, psb_protect_name => psi_dl_check
use psb_const_mod
use psb_descriptor_type
use psb_desc_mod
implicit none
integer(psb_ipk_) :: np,dl_lda,length_dl(0:np)

12
base/internals/psi_dswapdata.F90
Unescape Escape View File

@ -87,7 +87,7 @@ subroutine psi_dswapdatam(flag,n,beta,y,desc_a,work,info,data)
use psi_mod, psb_protect_name => psi_dswapdatam
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
#ifdef MPI_MOD
use mpi
@ -160,7 +160,7 @@ subroutine psi_dswapidxm(iictxt,iicomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,wo
use psi_mod, psb_protect_name => psi_dswapidxm
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
#ifdef MPI_MOD
use mpi
@ -585,7 +585,7 @@ subroutine psi_dswapdatav(flag,beta,y,desc_a,work,info,data)
use psi_mod, psb_protect_name => psi_dswapdatav
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
#ifdef MPI_MOD
use mpi
@ -659,7 +659,7 @@ subroutine psi_dswapidxv(iictxt,iicomm,flag,beta,y,idx,totxch,totsnd,totrcv,work
use psi_mod, psb_protect_name => psi_dswapidxv
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
#ifdef MPI_MOD
use mpi
@ -1019,7 +1019,7 @@ subroutine psi_dswapdata_vect(flag,beta,y,desc_a,work,info,data)
use psi_mod, psb_protect_name => psi_dswapdata_vect
use psb_d_base_vect_mod
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
#ifdef MPI_MOD
use mpi
@ -1094,7 +1094,7 @@ subroutine psi_dswapidx_vect(iictxt,iicomm,flag,beta,y,idx,totxch,totsnd,totrcv,
use psi_mod, psb_protect_name => psi_dswapidx_vect
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
use psb_d_base_vect_mod
#ifdef MPI_MOD

12
base/internals/psi_dswaptran.F90
Unescape Escape View File

@ -91,7 +91,7 @@ subroutine psi_dswaptranm(flag,n,beta,y,desc_a,work,info,data)
use psi_mod, psb_protect_name => psi_dswaptranm
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
#ifdef MPI_MOD
use mpi
@ -165,7 +165,7 @@ subroutine psi_dtranidxm(iictxt,iicomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,wo
use psi_mod, psb_protect_name => psi_dtranidxm
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
#ifdef MPI_MOD
use mpi
@ -595,7 +595,7 @@ subroutine psi_dswaptranv(flag,beta,y,desc_a,work,info,data)
use psi_mod, psb_protect_name => psi_dswaptranv
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
#ifdef MPI_MOD
use mpi
@ -670,7 +670,7 @@ subroutine psi_dtranidxv(iictxt,iicomm,flag,beta,y,idx,totxch,totsnd,totrcv,work
use psi_mod, psb_protect_name => psi_dtranidxv
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
#ifdef MPI_MOD
use mpi
@ -1045,7 +1045,7 @@ subroutine psi_dswaptran_vect(flag,beta,y,desc_a,work,info,data)
use psi_mod, psb_protect_name => psi_dswaptran_vect
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
use psb_d_base_vect_mod
#ifdef MPI_MOD
@ -1123,7 +1123,7 @@ subroutine psi_dtranidx_vect(iictxt,iicomm,flag,beta,y,idx,&
use psi_mod, psb_protect_name => psi_dtranidx_vect
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
use psb_d_base_vect_mod
#ifdef MPI_MOD

2
base/internals/psi_extrct_dl.F90
Unescape Escape View File

@ -125,7 +125,7 @@ subroutine psi_extract_dep_list(ictxt,is_bld,is_upd,desc_str,dep_list,&
use psb_penv_mod
use psb_const_mod
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
implicit none
#ifdef MPI_H
include 'mpif.h'

2
base/internals/psi_fnd_owner.F90
Unescape Escape View File

@ -46,7 +46,7 @@
! info - integer. return code.
!
subroutine psi_fnd_owner(nv,idx,iprc,desc,info)
use psb_descriptor_type
use psb_desc_mod
use psb_serial_mod
use psb_const_mod
use psb_error_mod

8
base/internals/psi_idx_cnv.f90
Unescape Escape View File

@ -45,7 +45,7 @@
! owned - logical,optional Restrict to local indices, no halo
! (default false)
subroutine psi_idx_cnv1(nv,idxin,desc,info,mask,owned)
use psb_descriptor_type
use psb_desc_mod
use psb_serial_mod
use psb_const_mod
use psb_error_mod
@ -181,7 +181,7 @@ end subroutine psi_idx_cnv1
! owned - logical,optional Restrict to local indices, no halo
! (default false)
subroutine psi_idx_cnv2(nv,idxin,idxout,desc,info,mask,owned)
use psb_descriptor_type
use psb_desc_mod
use psb_serial_mod
use psb_const_mod
use psb_error_mod
@ -306,7 +306,7 @@ end subroutine psi_idx_cnv2
subroutine psi_idx_cnvs(idxin,idxout,desc,info,mask,owned)
use psi_mod, psb_protect_name => psi_idx_cnvs
use psb_descriptor_type
use psb_desc_mod
integer(psb_ipk_), intent(in) :: idxin
integer(psb_ipk_), intent(out) :: idxout
type(psb_desc_type), intent(in) :: desc
@ -331,7 +331,7 @@ end subroutine psi_idx_cnvs
subroutine psi_idx_cnvs1(idxin,desc,info,mask,owned)
use psi_mod, psb_protect_name => psi_idx_cnvs1
use psb_descriptor_type
use psb_desc_mod
integer(psb_ipk_), intent(inout) :: idxin
type(psb_desc_type), intent(in) :: desc
integer(psb_ipk_), intent(out) :: info

8
base/internals/psi_idx_ins_cnv.f90
Unescape Escape View File

@ -50,7 +50,7 @@
!
subroutine psi_idx_ins_cnv1(nv,idxin,desc,info,mask,lidx)
use psi_mod, psb_protect_name => psi_idx_ins_cnv1
use psb_descriptor_type
use psb_desc_mod
use psb_serial_mod
use psb_const_mod
use psb_error_mod
@ -187,7 +187,7 @@ end subroutine psi_idx_ins_cnv1
!
subroutine psi_idx_ins_cnv2(nv,idxin,idxout,desc,info,mask,lidx)
use psi_mod, psb_protect_name => psi_idx_ins_cnv2
use psb_descriptor_type
use psb_desc_mod
use psb_serial_mod
use psb_const_mod
use psb_error_mod
@ -313,7 +313,7 @@ end subroutine psi_idx_ins_cnv2
!
subroutine psi_idx_ins_cnvs2(idxin,idxout,desc,info,mask,lidx)
use psi_mod, psb_protect_name => psi_idx_ins_cnvs2
use psb_descriptor_type
use psb_desc_mod
integer(psb_ipk_), intent(in) :: idxin
integer(psb_ipk_), intent(out) :: idxout
type(psb_desc_type), intent(inout) :: desc
@ -390,7 +390,7 @@ end subroutine psi_idx_ins_cnvs2
!
subroutine psi_idx_ins_cnvs1(idxin,desc,info,mask,lidx)
use psi_mod, psb_protect_name => psi_idx_ins_cnvs1
use psb_descriptor_type
use psb_desc_mod
integer(psb_ipk_), intent(inout) :: idxin
type(psb_desc_type), intent(inout) :: desc
integer(psb_ipk_), intent(out) :: info

12
base/internals/psi_iswapdata.F90
Unescape Escape View File

@ -87,7 +87,7 @@ subroutine psi_iswapdatam(flag,n,beta,y,desc_a,work,info,data)
use psi_mod, psb_protect_name => psi_iswapdatam
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
#ifdef MPI_MOD
use mpi
@ -160,7 +160,7 @@ subroutine psi_iswapidxm(iictxt,iicomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,wo
use psi_mod, psb_protect_name => psi_iswapidxm
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
#ifdef MPI_MOD
use mpi
@ -585,7 +585,7 @@ subroutine psi_iswapdatav(flag,beta,y,desc_a,work,info,data)
use psi_mod, psb_protect_name => psi_iswapdatav
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
#ifdef MPI_MOD
use mpi
@ -659,7 +659,7 @@ subroutine psi_iswapidxv(iictxt,iicomm,flag,beta,y,idx,totxch,totsnd,totrcv,work
use psi_mod, psb_protect_name => psi_iswapidxv
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
#ifdef MPI_MOD
use mpi
@ -1019,7 +1019,7 @@ subroutine psi_iswapdata_vect(flag,beta,y,desc_a,work,info,data)
use psi_mod, psb_protect_name => psi_iswapdata_vect
use psb_i_base_vect_mod
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
#ifdef MPI_MOD
use mpi
@ -1094,7 +1094,7 @@ subroutine psi_iswapidx_vect(iictxt,iicomm,flag,beta,y,idx,totxch,totsnd,totrcv,
use psi_mod, psb_protect_name => psi_iswapidx_vect
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
use psb_i_base_vect_mod
#ifdef MPI_MOD

12
base/internals/psi_iswaptran.F90
Unescape Escape View File

@ -91,7 +91,7 @@ subroutine psi_iswaptranm(flag,n,beta,y,desc_a,work,info,data)
use psi_mod, psb_protect_name => psi_iswaptranm
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
#ifdef MPI_MOD
use mpi
@ -165,7 +165,7 @@ subroutine psi_itranidxm(iictxt,iicomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,wo
use psi_mod, psb_protect_name => psi_itranidxm
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
#ifdef MPI_MOD
use mpi
@ -595,7 +595,7 @@ subroutine psi_iswaptranv(flag,beta,y,desc_a,work,info,data)
use psi_mod, psb_protect_name => psi_iswaptranv
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
#ifdef MPI_MOD
use mpi
@ -670,7 +670,7 @@ subroutine psi_itranidxv(iictxt,iicomm,flag,beta,y,idx,totxch,totsnd,totrcv,work
use psi_mod, psb_protect_name => psi_itranidxv
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
#ifdef MPI_MOD
use mpi
@ -1045,7 +1045,7 @@ subroutine psi_iswaptran_vect(flag,beta,y,desc_a,work,info,data)
use psi_mod, psb_protect_name => psi_iswaptran_vect
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
use psb_i_base_vect_mod
#ifdef MPI_MOD
@ -1123,7 +1123,7 @@ subroutine psi_itranidx_vect(iictxt,iicomm,flag,beta,y,idx,&
use psi_mod, psb_protect_name => psi_itranidx_vect
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
use psb_i_base_vect_mod
#ifdef MPI_MOD

2
base/internals/psi_ldsc_pre_halo.f90
Unescape Escape View File

@ -43,7 +43,7 @@
! info - integer. return code.
!
subroutine psi_ldsc_pre_halo(desc,ext_hv,info)
use psb_descriptor_type
use psb_desc_mod
use psb_serial_mod
use psb_const_mod
use psb_error_mod

2
base/internals/psi_ovrl_save.f90
Unescape Escape View File

@ -522,7 +522,7 @@ end subroutine psi_iovrl_saver1
subroutine psi_iovrl_saver2(x,xs,desc_a,info)
use psi_mod, psi_protect_name => psi_iovrl_saver2
use psb_descriptor_type
use psb_desc_mod
use psb_const_mod
use psb_error_mod
use psb_realloc_mod

12
base/internals/psi_sswapdata.F90
Unescape Escape View File

@ -87,7 +87,7 @@ subroutine psi_sswapdatam(flag,n,beta,y,desc_a,work,info,data)
use psi_mod, psb_protect_name => psi_sswapdatam
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
#ifdef MPI_MOD
use mpi
@ -160,7 +160,7 @@ subroutine psi_sswapidxm(iictxt,iicomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,wo
use psi_mod, psb_protect_name => psi_sswapidxm
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
#ifdef MPI_MOD
use mpi
@ -585,7 +585,7 @@ subroutine psi_sswapdatav(flag,beta,y,desc_a,work,info,data)
use psi_mod, psb_protect_name => psi_sswapdatav
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
#ifdef MPI_MOD
use mpi
@ -659,7 +659,7 @@ subroutine psi_sswapidxv(iictxt,iicomm,flag,beta,y,idx,totxch,totsnd,totrcv,work
use psi_mod, psb_protect_name => psi_sswapidxv
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
#ifdef MPI_MOD
use mpi
@ -1019,7 +1019,7 @@ subroutine psi_sswapdata_vect(flag,beta,y,desc_a,work,info,data)
use psi_mod, psb_protect_name => psi_sswapdata_vect
use psb_s_base_vect_mod
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
#ifdef MPI_MOD
use mpi
@ -1094,7 +1094,7 @@ subroutine psi_sswapidx_vect(iictxt,iicomm,flag,beta,y,idx,totxch,totsnd,totrcv,
use psi_mod, psb_protect_name => psi_sswapidx_vect
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
use psb_s_base_vect_mod
#ifdef MPI_MOD

12
base/internals/psi_sswaptran.F90
Unescape Escape View File

@ -91,7 +91,7 @@ subroutine psi_sswaptranm(flag,n,beta,y,desc_a,work,info,data)
use psi_mod, psb_protect_name => psi_sswaptranm
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
#ifdef MPI_MOD
use mpi
@ -165,7 +165,7 @@ subroutine psi_stranidxm(iictxt,iicomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,wo
use psi_mod, psb_protect_name => psi_stranidxm
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
#ifdef MPI_MOD
use mpi
@ -595,7 +595,7 @@ subroutine psi_sswaptranv(flag,beta,y,desc_a,work,info,data)
use psi_mod, psb_protect_name => psi_sswaptranv
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
#ifdef MPI_MOD
use mpi
@ -670,7 +670,7 @@ subroutine psi_stranidxv(iictxt,iicomm,flag,beta,y,idx,totxch,totsnd,totrcv,work
use psi_mod, psb_protect_name => psi_stranidxv
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
#ifdef MPI_MOD
use mpi
@ -1045,7 +1045,7 @@ subroutine psi_sswaptran_vect(flag,beta,y,desc_a,work,info,data)
use psi_mod, psb_protect_name => psi_sswaptran_vect
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
use psb_s_base_vect_mod
#ifdef MPI_MOD
@ -1123,7 +1123,7 @@ subroutine psi_stranidx_vect(iictxt,iicomm,flag,beta,y,idx,&
use psi_mod, psb_protect_name => psi_stranidx_vect
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
use psb_s_base_vect_mod
#ifdef MPI_MOD

12
base/internals/psi_zswapdata.F90
Unescape Escape View File

@ -87,7 +87,7 @@ subroutine psi_zswapdatam(flag,n,beta,y,desc_a,work,info,data)
use psi_mod, psb_protect_name => psi_zswapdatam
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
#ifdef MPI_MOD
use mpi
@ -160,7 +160,7 @@ subroutine psi_zswapidxm(iictxt,iicomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,wo
use psi_mod, psb_protect_name => psi_zswapidxm
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
#ifdef MPI_MOD
use mpi
@ -585,7 +585,7 @@ subroutine psi_zswapdatav(flag,beta,y,desc_a,work,info,data)
use psi_mod, psb_protect_name => psi_zswapdatav
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
#ifdef MPI_MOD
use mpi
@ -659,7 +659,7 @@ subroutine psi_zswapidxv(iictxt,iicomm,flag,beta,y,idx,totxch,totsnd,totrcv,work
use psi_mod, psb_protect_name => psi_zswapidxv
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
#ifdef MPI_MOD
use mpi
@ -1019,7 +1019,7 @@ subroutine psi_zswapdata_vect(flag,beta,y,desc_a,work,info,data)
use psi_mod, psb_protect_name => psi_zswapdata_vect
use psb_z_base_vect_mod
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
#ifdef MPI_MOD
use mpi
@ -1094,7 +1094,7 @@ subroutine psi_zswapidx_vect(iictxt,iicomm,flag,beta,y,idx,totxch,totsnd,totrcv,
use psi_mod, psb_protect_name => psi_zswapidx_vect
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
use psb_z_base_vect_mod
#ifdef MPI_MOD

12
base/internals/psi_zswaptran.F90
Unescape Escape View File

@ -91,7 +91,7 @@ subroutine psi_zswaptranm(flag,n,beta,y,desc_a,work,info,data)
use psi_mod, psb_protect_name => psi_zswaptranm
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
#ifdef MPI_MOD
use mpi
@ -165,7 +165,7 @@ subroutine psi_ztranidxm(iictxt,iicomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,wo
use psi_mod, psb_protect_name => psi_ztranidxm
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
#ifdef MPI_MOD
use mpi
@ -595,7 +595,7 @@ subroutine psi_zswaptranv(flag,beta,y,desc_a,work,info,data)
use psi_mod, psb_protect_name => psi_zswaptranv
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
#ifdef MPI_MOD
use mpi
@ -670,7 +670,7 @@ subroutine psi_ztranidxv(iictxt,iicomm,flag,beta,y,idx,totxch,totsnd,totrcv,work
use psi_mod, psb_protect_name => psi_ztranidxv
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
#ifdef MPI_MOD
use mpi
@ -1045,7 +1045,7 @@ subroutine psi_zswaptran_vect(flag,beta,y,desc_a,work,info,data)
use psi_mod, psb_protect_name => psi_zswaptran_vect
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
use psb_z_base_vect_mod
#ifdef MPI_MOD
@ -1123,7 +1123,7 @@ subroutine psi_ztranidx_vect(iictxt,iicomm,flag,beta,y,idx,&
use psi_mod, psb_protect_name => psi_ztranidx_vect
use psb_error_mod
use psb_descriptor_type
use psb_desc_mod
use psb_penv_mod
use psb_z_base_vect_mod
#ifdef MPI_MOD

36
base/modules/Makefile
Unescape Escape View File

@ -5,7 +5,7 @@ COMMINT=psi_comm_buffers_mod.o psi_penv_mod.o psi_bcast_mod.o psi_reduce_mod.o p
UTIL_MODS = psb_string_mod.o psb_desc_const_mod.o psb_indx_map_mod.o\
psb_gen_block_map_mod.o psb_list_map_mod.o psb_repl_map_mod.o\
psb_glist_map_mod.o psb_hash_map_mod.o \
psb_desc_type.o psb_sort_mod.o \
psb_desc_mod.o psb_sort_mod.o \
psb_s_serial_mod.o psb_d_serial_mod.o psb_c_serial_mod.o psb_z_serial_mod.o psb_serial_mod.o \
psb_cd_tools_mod.o psb_i_tools_mod.o psb_s_tools_mod.o psb_d_tools_mod.o\
psb_c_tools_mod.o psb_z_tools_mod.o psb_tools_mod.o \
@ -77,14 +77,14 @@ psb_mat_mod.o: psb_vect_mod.o psb_s_mat_mod.o psb_d_mat_mod.o psb_c_mat_mod.o ps
error.o psb_realloc_mod.o: psb_error_mod.o
psb_error_impl.o: psb_penv_mod.o
psb_spmat_type.o: psb_string_mod.o psb_sort_mod.o
psi_i_mod.o: psb_desc_type.o psb_i_vect_mod.o
psi_s_mod.o: psb_desc_type.o psb_s_vect_mod.o
psi_d_mod.o: psb_desc_type.o psb_d_vect_mod.o
psi_c_mod.o: psb_desc_type.o psb_c_vect_mod.o
psi_z_mod.o: psb_desc_type.o psb_z_vect_mod.o
psi_mod.o: psb_penv_mod.o psb_desc_type.o psi_serial_mod.o psb_serial_mod.o\
psi_i_mod.o: psb_desc_mod.o psb_i_vect_mod.o
psi_s_mod.o: psb_desc_mod.o psb_s_vect_mod.o
psi_d_mod.o: psb_desc_mod.o psb_d_vect_mod.o
psi_c_mod.o: psb_desc_mod.o psb_c_vect_mod.o
psi_z_mod.o: psb_desc_mod.o psb_z_vect_mod.o
psi_mod.o: psb_penv_mod.o psb_desc_mod.o psi_serial_mod.o psb_serial_mod.o\
psi_i_mod.o psi_s_mod.o psi_d_mod.o psi_c_mod.o psi_z_mod.o
psb_desc_type.o: psb_penv_mod.o psb_realloc_mod.o\
psb_desc_mod.o: psb_penv_mod.o psb_realloc_mod.o\
psb_hash_mod.o psb_hash_map_mod.o psb_list_map_mod.o \
psb_repl_map_mod.o psb_gen_block_map_mod.o psb_desc_const_mod.o\
psb_indx_map_mod.o
@ -101,9 +101,9 @@ psb_s_linmap_mod.o: psb_base_linmap_mod.o psb_s_mat_mod.o psb_s_vect_mod.o
psb_d_linmap_mod.o: psb_base_linmap_mod.o psb_d_mat_mod.o psb_d_vect_mod.o
psb_c_linmap_mod.o: psb_base_linmap_mod.o psb_c_mat_mod.o psb_c_vect_mod.o
psb_z_linmap_mod.o: psb_base_linmap_mod.o psb_z_mat_mod.o psb_z_vect_mod.o
psb_base_linmap_mod.o: psb_desc_type.o psb_serial_mod.o psb_comm_mod.o
psb_comm_mod.o: psb_desc_type.o psb_mat_mod.o
psb_check_mod.o: psb_desc_type.o
psb_base_linmap_mod.o: psb_desc_mod.o psb_serial_mod.o psb_comm_mod.o
psb_comm_mod.o: psb_desc_mod.o psb_mat_mod.o
psb_check_mod.o: psb_desc_mod.o
psb_s_serial_mod.o psb_d_serial_mod.o psb_c_serial_mod.o psb_z_serial_mod.o: psb_mat_mod.o psb_string_mod.o psb_sort_mod.o psi_serial_mod.o
psb_serial_mod.o: psb_s_serial_mod.o psb_d_serial_mod.o psb_c_serial_mod.o psb_z_serial_mod.o
psb_i_vect_mod.o: psb_i_base_vect_mod.o
@ -113,7 +113,7 @@ psb_c_vect_mod.o: psb_c_base_vect_mod.o
psb_z_vect_mod.o: psb_z_base_vect_mod.o
psb_tools_mod.o: psb_cd_tools_mod.o psb_s_tools_mod.o psb_d_tools_mod.o\
psb_i_tools_mod.o psb_c_tools_mod.o psb_z_tools_mod.o
psb_cd_tools_mod.o psb_i_tools_mod.o psb_s_tools_mod.o psb_d_tools_mod.o psb_c_tools_mod.o psb_z_tools_mod.o: psb_desc_type.o psi_mod.o psb_mat_mod.o
psb_cd_tools_mod.o psb_i_tools_mod.o psb_s_tools_mod.o psb_d_tools_mod.o psb_c_tools_mod.o psb_z_tools_mod.o: psb_desc_mod.o psi_mod.o psb_mat_mod.o
psb_i_tools_mod.o: psb_i_vect_mod.o
psb_s_tools_mod.o: psb_s_vect_mod.o
psb_d_tools_mod.o: psb_d_vect_mod.o
@ -125,14 +125,14 @@ psb_d_psblas_mod.o: psb_d_vect_mod.o psb_d_mat_mod.o
psb_c_psblas_mod.o: psb_c_vect_mod.o psb_c_mat_mod.o
psb_z_psblas_mod.o: psb_z_vect_mod.o psb_z_mat_mod.o
psb_psblas_mod.o: psb_s_psblas_mod.o psb_c_psblas_mod.o psb_d_psblas_mod.o psb_z_psblas_mod.o
psb_s_psblas_mod.o psb_c_psblas_mod.o psb_d_psblas_mod.o psb_z_psblas_mod.o: psb_mat_mod.o psb_desc_type.o
psb_s_psblas_mod.o psb_c_psblas_mod.o psb_d_psblas_mod.o psb_z_psblas_mod.o: psb_mat_mod.o psb_desc_mod.o
psb_vect_mod.o: psb_i_vect_mod.o psb_d_vect_mod.o psb_s_vect_mod.o psb_c_vect_mod.o psb_z_vect_mod.o
psb_comm_mod.o: psb_i_comm_mod.o psb_s_comm_mod.o psb_d_comm_mod.o psb_c_comm_mod.o psb_z_comm_mod.o
psb_i_comm_mod.o: psb_i_vect_mod.o psb_desc_type.o
psb_s_comm_mod.o: psb_s_vect_mod.o psb_desc_type.o psb_mat_mod.o
psb_d_comm_mod.o: psb_d_vect_mod.o psb_desc_type.o psb_mat_mod.o
psb_c_comm_mod.o: psb_c_vect_mod.o psb_desc_type.o psb_mat_mod.o
psb_z_comm_mod.o: psb_z_vect_mod.o psb_desc_type.o psb_mat_mod.o
psb_i_comm_mod.o: psb_i_vect_mod.o psb_desc_mod.o
psb_s_comm_mod.o: psb_s_vect_mod.o psb_desc_mod.o psb_mat_mod.o
psb_d_comm_mod.o: psb_d_vect_mod.o psb_desc_mod.o psb_mat_mod.o
psb_c_comm_mod.o: psb_c_vect_mod.o psb_desc_mod.o psb_mat_mod.o
psb_z_comm_mod.o: psb_z_vect_mod.o psb_desc_mod.o psb_mat_mod.o
psb_base_mod.o: $(MODULES)

10
base/modules/psb_base_linmap_mod.f90
Unescape Escape View File

@ -37,7 +37,7 @@
!
module psb_base_linmap_mod
use psb_const_mod
use psb_descriptor_type, only: psb_desc_type
use psb_desc_mod, only: psb_desc_type
type psb_base_linmap_type
@ -84,7 +84,7 @@ contains
function base_is_ok(map) result(res)
use psb_descriptor_type
use psb_desc_mod
implicit none
class(psb_base_linmap_type), intent(in) :: map
logical :: res
@ -102,7 +102,7 @@ contains
end function base_is_ok
function base_is_asb(map) result(res)
use psb_descriptor_type
use psb_desc_mod
implicit none
class(psb_base_linmap_type), intent(in) :: map
logical :: res
@ -120,7 +120,7 @@ contains
end function base_is_asb
function base_map_sizeof(map) result(val)
use psb_descriptor_type
use psb_desc_mod
implicit none
class(psb_base_linmap_type), intent(in) :: map
integer(psb_long_int_k_) :: val
@ -137,7 +137,7 @@ contains
subroutine psb_base_linmap_transfer(mapin,mapout,info)
use psb_realloc_mod
use psb_descriptor_type
use psb_desc_mod
use psb_mat_mod, only : psb_move_alloc
implicit none
type(psb_base_linmap_type), intent(inout) :: mapin,mapout

2
base/modules/psb_base_mod.f90
Unescape Escape View File

@ -34,7 +34,7 @@ module psb_base_mod
use psb_error_mod
use psb_penv_mod
use psb_check_mod
use psb_descriptor_type
use psb_desc_mod
use psb_linmap_mod
use psb_vect_mod
use psb_mat_mod

24
base/modules/psb_c_comm_mod.f90
Unescape Escape View File

@ -33,7 +33,7 @@ module psb_c_comm_mod
interface psb_ovrl
subroutine psb_covrlm(x,desc_a,info,jx,ik,work,update,mode)
use psb_descriptor_type
use psb_desc_mod
complex(psb_spk_), intent(inout), target :: x(:,:)
type(psb_desc_type), intent(in) :: desc_a
integer(psb_ipk_), intent(out) :: info
@ -41,7 +41,7 @@ module psb_c_comm_mod
integer(psb_ipk_), intent(in), optional :: update,jx,ik,mode
end subroutine psb_covrlm
subroutine psb_covrlv(x,desc_a,info,work,update,mode)
use psb_descriptor_type
use psb_desc_mod
complex(psb_spk_), intent(inout), target :: x(:)
type(psb_desc_type), intent(in) :: desc_a
integer(psb_ipk_), intent(out) :: info
@ -49,7 +49,7 @@ module psb_c_comm_mod
integer(psb_ipk_), intent(in), optional :: update,mode
end subroutine psb_covrlv
subroutine psb_covrl_vect(x,desc_a,info,work,update,mode)
use psb_descriptor_type
use psb_desc_mod
use psb_c_vect_mod
type(psb_c_vect_type), intent(inout) :: x
type(psb_desc_type), intent(in) :: desc_a
@ -61,7 +61,7 @@ module psb_c_comm_mod
interface psb_halo
subroutine psb_chalom(x,desc_a,info,alpha,jx,ik,work,tran,mode,data)
use psb_descriptor_type
use psb_desc_mod
complex(psb_spk_), intent(inout), target :: x(:,:)
type(psb_desc_type), intent(in) :: desc_a
integer(psb_ipk_), intent(out) :: info
@ -71,7 +71,7 @@ module psb_c_comm_mod
character, intent(in), optional :: tran
end subroutine psb_chalom
subroutine psb_chalov(x,desc_a,info,alpha,work,tran,mode,data)
use psb_descriptor_type
use psb_desc_mod
complex(psb_spk_), intent(inout) :: x(:)
type(psb_desc_type), intent(in) :: desc_a
integer(psb_ipk_), intent(out) :: info
@ -81,7 +81,7 @@ module psb_c_comm_mod
character, intent(in), optional :: tran
end subroutine psb_chalov
subroutine psb_chalo_vect(x,desc_a,info,alpha,work,tran,mode,data)
use psb_descriptor_type
use psb_desc_mod
use psb_c_vect_mod
type(psb_c_vect_type), intent(inout) :: x
type(psb_desc_type), intent(in) :: desc_a
@ -96,7 +96,7 @@ module psb_c_comm_mod
interface psb_scatter
subroutine psb_cscatterm(globx, locx, desc_a, info, root)
use psb_descriptor_type
use psb_desc_mod
complex(psb_spk_), intent(out) :: locx(:,:)
complex(psb_spk_), intent(in) :: globx(:,:)
type(psb_desc_type), intent(in) :: desc_a
@ -104,7 +104,7 @@ module psb_c_comm_mod
integer(psb_ipk_), intent(in), optional :: root
end subroutine psb_cscatterm
subroutine psb_cscatterv(globx, locx, desc_a, info, root)
use psb_descriptor_type
use psb_desc_mod
complex(psb_spk_), intent(out) :: locx(:)
complex(psb_spk_), intent(in) :: globx(:)
type(psb_desc_type), intent(in) :: desc_a
@ -115,7 +115,7 @@ module psb_c_comm_mod
interface psb_gather
subroutine psb_csp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keeploc)
use psb_descriptor_type
use psb_desc_mod
use psb_mat_mod
implicit none
type(psb_cspmat_type), intent(inout) :: loca
@ -126,7 +126,7 @@ module psb_c_comm_mod
logical, intent(in), optional :: keepnum,keeploc
end subroutine psb_csp_allgather
subroutine psb_cgatherm(globx, locx, desc_a, info, root)
use psb_descriptor_type
use psb_desc_mod
complex(psb_spk_), intent(in) :: locx(:,:)
complex(psb_spk_), intent(out), allocatable :: globx(:,:)
type(psb_desc_type), intent(in) :: desc_a
@ -134,7 +134,7 @@ module psb_c_comm_mod
integer(psb_ipk_), intent(in), optional :: root
end subroutine psb_cgatherm
subroutine psb_cgatherv(globx, locx, desc_a, info, root)
use psb_descriptor_type
use psb_desc_mod
complex(psb_spk_), intent(in) :: locx(:)
complex(psb_spk_), intent(out), allocatable :: globx(:)
type(psb_desc_type), intent(in) :: desc_a
@ -142,7 +142,7 @@ module psb_c_comm_mod
integer(psb_ipk_), intent(in), optional :: root
end subroutine psb_cgatherv
subroutine psb_cgather_vect(globx, locx, desc_a, info, root)
use psb_descriptor_type
use psb_desc_mod
use psb_c_vect_mod
type(psb_c_vect_type), intent(inout) :: locx
complex(psb_spk_), intent(out), allocatable :: globx(:)

10
base/modules/psb_c_linmap_mod.f90
Unescape Escape View File

@ -39,7 +39,7 @@ module psb_c_linmap_mod
use psb_const_mod
use psb_c_mat_mod, only : psb_cspmat_type
use psb_descriptor_type, only : psb_desc_type
use psb_desc_mod, only : psb_desc_type
use psb_base_linmap_mod
@ -133,7 +133,7 @@ module psb_c_linmap_mod
contains
function c_map_sizeof(map) result(val)
use psb_descriptor_type
use psb_desc_mod
use psb_c_mat_mod
implicit none
class(psb_clinmap_type), intent(in) :: map
@ -147,7 +147,7 @@ contains
function c_is_asb(map) result(val)
use psb_descriptor_type
use psb_desc_mod
implicit none
class(psb_clinmap_type), intent(in) :: map
logical :: val
@ -186,7 +186,7 @@ contains
subroutine psb_clinmap_transfer(mapin,mapout,info)
use psb_realloc_mod
use psb_descriptor_type
use psb_desc_mod
use psb_mat_mod, only : psb_move_alloc
implicit none
type(psb_clinmap_type) :: mapin,mapout
@ -200,7 +200,7 @@ contains
end subroutine psb_clinmap_transfer
subroutine c_free(map,info)
use psb_descriptor_type
use psb_desc_mod
implicit none
class(psb_clinmap_type) :: map
integer(psb_ipk_), intent(out) :: info

2
base/modules/psb_c_psblas_mod.f90
Unescape Escape View File

@ -30,7 +30,7 @@
!!$
!!$
module psb_c_psblas_mod
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_ipk_
use psb_desc_mod, only : psb_desc_type, psb_spk_, psb_ipk_
use psb_c_vect_mod, only : psb_c_vect_type
use psb_c_mat_mod, only : psb_cspmat_type

2
base/modules/psb_c_tools_mod.f90
Unescape Escape View File

@ -30,7 +30,7 @@
!!$
!!$
Module psb_c_tools_mod
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_ipk_
use psb_desc_mod, only : psb_desc_type, psb_spk_, psb_ipk_
use psb_c_vect_mod, only : psb_c_base_vect_type, psb_c_vect_type
use psb_c_mat_mod, only : psb_cspmat_type, psb_c_base_sparse_mat

2
base/modules/psb_cd_tools_mod.f90
Unescape Escape View File

@ -32,7 +32,7 @@
module psb_cd_tools_mod
use psb_const_mod
use psb_descriptor_type
use psb_desc_mod
use psb_gen_block_map_mod
use psb_list_map_mod
use psb_glist_map_mod

6
base/modules/psb_check_mod.f90
Unescape Escape View File

@ -67,7 +67,7 @@ contains
! iix - integer(optional). The local rows starting index of the submatrix.
! jjx - integer(optional). The local columns starting index of the submatrix.
subroutine psb_chkvect( m, n, lldx, ix, jx, desc_dec, info, iix, jjx)
use psb_descriptor_type
use psb_desc_mod
use psb_const_mod
use psb_error_mod
implicit none
@ -193,7 +193,7 @@ contains
!
subroutine psb_chkglobvect( m, n, lldx, ix, jx, desc_dec, info)
use psb_descriptor_type
use psb_desc_mod
use psb_const_mod
use psb_error_mod
implicit none
@ -316,7 +316,7 @@ contains
!
subroutine psb_chkmat( m, n, ia, ja, desc_dec, info, iia, jja)
use psb_descriptor_type
use psb_desc_mod
use psb_const_mod
use psb_error_mod
implicit none

24
base/modules/psb_d_comm_mod.f90
Unescape Escape View File

@ -33,7 +33,7 @@ module psb_d_comm_mod
interface psb_ovrl
subroutine psb_dovrlm(x,desc_a,info,jx,ik,work,update,mode)
use psb_descriptor_type
use psb_desc_mod
real(psb_dpk_), intent(inout), target :: x(:,:)
type(psb_desc_type), intent(in) :: desc_a
integer(psb_ipk_), intent(out) :: info
@ -41,7 +41,7 @@ module psb_d_comm_mod
integer(psb_ipk_), intent(in), optional :: update,jx,ik,mode
end subroutine psb_dovrlm
subroutine psb_dovrlv(x,desc_a,info,work,update,mode)
use psb_descriptor_type
use psb_desc_mod
real(psb_dpk_), intent(inout), target :: x(:)
type(psb_desc_type), intent(in) :: desc_a
integer(psb_ipk_), intent(out) :: info
@ -49,7 +49,7 @@ module psb_d_comm_mod
integer(psb_ipk_), intent(in), optional :: update,mode
end subroutine psb_dovrlv
subroutine psb_dovrl_vect(x,desc_a,info,work,update,mode)
use psb_descriptor_type
use psb_desc_mod
use psb_d_vect_mod
type(psb_d_vect_type), intent(inout) :: x
type(psb_desc_type), intent(in) :: desc_a
@ -61,7 +61,7 @@ module psb_d_comm_mod
interface psb_halo
subroutine psb_dhalom(x,desc_a,info,alpha,jx,ik,work,tran,mode,data)
use psb_descriptor_type
use psb_desc_mod
real(psb_dpk_), intent(inout), target :: x(:,:)
type(psb_desc_type), intent(in) :: desc_a
integer(psb_ipk_), intent(out) :: info
@ -71,7 +71,7 @@ module psb_d_comm_mod
character, intent(in), optional :: tran
end subroutine psb_dhalom
subroutine psb_dhalov(x,desc_a,info,alpha,work,tran,mode,data)
use psb_descriptor_type
use psb_desc_mod
real(psb_dpk_), intent(inout) :: x(:)
type(psb_desc_type), intent(in) :: desc_a
integer(psb_ipk_), intent(out) :: info
@ -81,7 +81,7 @@ module psb_d_comm_mod
character, intent(in), optional :: tran
end subroutine psb_dhalov
subroutine psb_dhalo_vect(x,desc_a,info,alpha,work,tran,mode,data)
use psb_descriptor_type
use psb_desc_mod
use psb_d_vect_mod
type(psb_d_vect_type), intent(inout) :: x
type(psb_desc_type), intent(in) :: desc_a
@ -96,7 +96,7 @@ module psb_d_comm_mod
interface psb_scatter
subroutine psb_dscatterm(globx, locx, desc_a, info, root)
use psb_descriptor_type
use psb_desc_mod
real(psb_dpk_), intent(out) :: locx(:,:)
real(psb_dpk_), intent(in) :: globx(:,:)
type(psb_desc_type), intent(in) :: desc_a
@ -104,7 +104,7 @@ module psb_d_comm_mod
integer(psb_ipk_), intent(in), optional :: root
end subroutine psb_dscatterm
subroutine psb_dscatterv(globx, locx, desc_a, info, root)
use psb_descriptor_type
use psb_desc_mod
real(psb_dpk_), intent(out) :: locx(:)
real(psb_dpk_), intent(in) :: globx(:)
type(psb_desc_type), intent(in) :: desc_a
@ -115,7 +115,7 @@ module psb_d_comm_mod
interface psb_gather
subroutine psb_dsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keeploc)
use psb_descriptor_type
use psb_desc_mod
use psb_mat_mod
implicit none
type(psb_dspmat_type), intent(inout) :: loca
@ -126,7 +126,7 @@ module psb_d_comm_mod
logical, intent(in), optional :: keepnum,keeploc
end subroutine psb_dsp_allgather
subroutine psb_dgatherm(globx, locx, desc_a, info, root)
use psb_descriptor_type
use psb_desc_mod
real(psb_dpk_), intent(in) :: locx(:,:)
real(psb_dpk_), intent(out), allocatable :: globx(:,:)
type(psb_desc_type), intent(in) :: desc_a
@ -134,7 +134,7 @@ module psb_d_comm_mod
integer(psb_ipk_), intent(in), optional :: root
end subroutine psb_dgatherm
subroutine psb_dgatherv(globx, locx, desc_a, info, root)
use psb_descriptor_type
use psb_desc_mod
real(psb_dpk_), intent(in) :: locx(:)
real(psb_dpk_), intent(out), allocatable :: globx(:)
type(psb_desc_type), intent(in) :: desc_a
@ -142,7 +142,7 @@ module psb_d_comm_mod
integer(psb_ipk_), intent(in), optional :: root
end subroutine psb_dgatherv
subroutine psb_dgather_vect(globx, locx, desc_a, info, root)
use psb_descriptor_type
use psb_desc_mod
use psb_d_vect_mod
type(psb_d_vect_type), intent(inout) :: locx
real(psb_dpk_), intent(out), allocatable :: globx(:)

10
base/modules/psb_d_linmap_mod.f90
Unescape Escape View File

@ -39,7 +39,7 @@ module psb_d_linmap_mod
use psb_const_mod
use psb_d_mat_mod, only : psb_dspmat_type
use psb_descriptor_type, only : psb_desc_type
use psb_desc_mod, only : psb_desc_type
use psb_base_linmap_mod
@ -133,7 +133,7 @@ module psb_d_linmap_mod
contains
function d_map_sizeof(map) result(val)
use psb_descriptor_type
use psb_desc_mod
use psb_d_mat_mod
implicit none
class(psb_dlinmap_type), intent(in) :: map
@ -147,7 +147,7 @@ contains
function d_is_asb(map) result(val)
use psb_descriptor_type
use psb_desc_mod
implicit none
class(psb_dlinmap_type), intent(in) :: map
logical :: val
@ -186,7 +186,7 @@ contains
subroutine psb_dlinmap_transfer(mapin,mapout,info)
use psb_realloc_mod
use psb_descriptor_type
use psb_desc_mod
use psb_mat_mod, only : psb_move_alloc
implicit none
type(psb_dlinmap_type) :: mapin,mapout
@ -200,7 +200,7 @@ contains
end subroutine psb_dlinmap_transfer
subroutine d_free(map,info)
use psb_descriptor_type
use psb_desc_mod
implicit none
class(psb_dlinmap_type) :: map
integer(psb_ipk_), intent(out) :: info

2
base/modules/psb_d_psblas_mod.f90
Unescape Escape View File

@ -30,7 +30,7 @@
!!$
!!$
module psb_d_psblas_mod
use psb_descriptor_type, only : psb_desc_type, psb_dpk_, psb_ipk_
use psb_desc_mod, only : psb_desc_type, psb_dpk_, psb_ipk_
use psb_d_vect_mod, only : psb_d_vect_type
use psb_d_mat_mod, only : psb_dspmat_type

2
base/modules/psb_d_tools_mod.f90
Unescape Escape View File

@ -30,7 +30,7 @@
!!$
!!$
Module psb_d_tools_mod
use psb_descriptor_type, only : psb_desc_type, psb_dpk_, psb_ipk_
use psb_desc_mod, only : psb_desc_type, psb_dpk_, psb_ipk_
use psb_d_vect_mod, only : psb_d_base_vect_type, psb_d_vect_type
use psb_d_mat_mod, only : psb_dspmat_type, psb_d_base_sparse_mat

6
base/modules/psb_desc_type.f90 → base/modules/psb_desc_mod.f90
Unescape Escape View File

@ -31,11 +31,11 @@
!!$
!
!
! package: psb_descriptor_type
! package: psb_desc_mod
! Defines a communication descriptor
!
module psb_descriptor_type
module psb_desc_mod
use psb_const_mod
use psb_hash_mod
use psb_desc_const_mod
@ -898,4 +898,4 @@ contains
end module psb_descriptor_type
end module psb_desc_mod

24
base/modules/psb_i_comm_mod.f90
Unescape Escape View File

@ -33,7 +33,7 @@ module psb_i_comm_mod
interface psb_ovrl
subroutine psb_iovrlm(x,desc_a,info,jx,ik,work,update,mode)
use psb_descriptor_type
use psb_desc_mod
integer(psb_ipk_), intent(inout), target :: x(:,:)
type(psb_desc_type), intent(in) :: desc_a
integer(psb_ipk_), intent(out) :: info
@ -41,7 +41,7 @@ module psb_i_comm_mod
integer(psb_ipk_), intent(in), optional :: update,jx,ik,mode
end subroutine psb_iovrlm
subroutine psb_iovrlv(x,desc_a,info,work,update,mode)
use psb_descriptor_type
use psb_desc_mod
integer(psb_ipk_), intent(inout), target :: x(:)
type(psb_desc_type), intent(in) :: desc_a
integer(psb_ipk_), intent(out) :: info
@ -49,7 +49,7 @@ module psb_i_comm_mod
integer(psb_ipk_), intent(in), optional :: update,mode
end subroutine psb_iovrlv
subroutine psb_iovrl_vect(x,desc_a,info,work,update,mode)
use psb_descriptor_type
use psb_desc_mod
use psb_i_vect_mod
type(psb_i_vect_type), intent(inout) :: x
type(psb_desc_type), intent(in) :: desc_a
@ -61,7 +61,7 @@ module psb_i_comm_mod
interface psb_halo
subroutine psb_ihalom(x,desc_a,info,alpha,jx,ik,work,tran,mode,data)
use psb_descriptor_type
use psb_desc_mod
integer(psb_ipk_), intent(inout), target :: x(:,:)
type(psb_desc_type), intent(in) :: desc_a
integer(psb_ipk_), intent(out) :: info
@ -71,7 +71,7 @@ module psb_i_comm_mod
character, intent(in), optional :: tran
end subroutine psb_ihalom
subroutine psb_ihalov(x,desc_a,info,alpha,work,tran,mode,data)
use psb_descriptor_type
use psb_desc_mod
integer(psb_ipk_), intent(inout) :: x(:)
type(psb_desc_type), intent(in) :: desc_a
integer(psb_ipk_), intent(out) :: info
@ -81,7 +81,7 @@ module psb_i_comm_mod
character, intent(in), optional :: tran
end subroutine psb_ihalov
subroutine psb_ihalo_vect(x,desc_a,info,alpha,work,tran,mode,data)
use psb_descriptor_type
use psb_desc_mod
use psb_i_vect_mod
type(psb_i_vect_type), intent(inout) :: x
type(psb_desc_type), intent(in) :: desc_a
@ -96,7 +96,7 @@ module psb_i_comm_mod
interface psb_scatter
subroutine psb_iscatterm(globx, locx, desc_a, info, root)
use psb_descriptor_type
use psb_desc_mod
integer(psb_ipk_), intent(out) :: locx(:,:)
integer(psb_ipk_), intent(in) :: globx(:,:)
type(psb_desc_type), intent(in) :: desc_a
@ -104,7 +104,7 @@ module psb_i_comm_mod
integer(psb_ipk_), intent(in), optional :: root
end subroutine psb_iscatterm
subroutine psb_iscatterv(globx, locx, desc_a, info, root)
use psb_descriptor_type
use psb_desc_mod
integer(psb_ipk_), intent(out) :: locx(:)
integer(psb_ipk_), intent(in) :: globx(:)
type(psb_desc_type), intent(in) :: desc_a
@ -115,7 +115,7 @@ module psb_i_comm_mod
interface psb_gather
!!$ subroutine psb_isp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keeploc)
! !$ use psb_descriptor_type
! !$ use psb_desc_mod
! !$ use psb_mat_mod
! !$ implicit none
! !$ type(psb_ispmat_type), intent(inout) :: loca
@ -126,7 +126,7 @@ module psb_i_comm_mod
! !$ logical, intent(in), optional :: keepnum,keeploc
! !$ end subroutine psb_isp_allgather
subroutine psb_igatherm(globx, locx, desc_a, info, root)
use psb_descriptor_type
use psb_desc_mod
integer(psb_ipk_), intent(in) :: locx(:,:)
integer(psb_ipk_), intent(out), allocatable :: globx(:,:)
type(psb_desc_type), intent(in) :: desc_a
@ -134,7 +134,7 @@ module psb_i_comm_mod
integer(psb_ipk_), intent(in), optional :: root
end subroutine psb_igatherm
subroutine psb_igatherv(globx, locx, desc_a, info, root)
use psb_descriptor_type
use psb_desc_mod
integer(psb_ipk_), intent(in) :: locx(:)
integer(psb_ipk_), intent(out), allocatable :: globx(:)
type(psb_desc_type), intent(in) :: desc_a
@ -142,7 +142,7 @@ module psb_i_comm_mod
integer(psb_ipk_), intent(in), optional :: root
end subroutine psb_igatherv
subroutine psb_igather_vect(globx, locx, desc_a, info, root)
use psb_descriptor_type
use psb_desc_mod
use psb_i_vect_mod
type(psb_i_vect_type), intent(inout) :: locx
integer(psb_ipk_), intent(out), allocatable :: globx(:)

2
base/modules/psb_i_tools_mod.f90
Unescape Escape View File

@ -30,7 +30,7 @@
!!$
!!$
module psb_i_tools_mod
use psb_descriptor_type, only : psb_desc_type, psb_ipk_, psb_success_
use psb_desc_mod, only : psb_desc_type, psb_ipk_, psb_success_
use psb_i_vect_mod, only : psb_i_base_vect_type, psb_i_vect_type

24
base/modules/psb_s_comm_mod.f90
Unescape Escape View File

@ -33,7 +33,7 @@ module psb_s_comm_mod
interface psb_ovrl
subroutine psb_sovrlm(x,desc_a,info,jx,ik,work,update,mode)
use psb_descriptor_type
use psb_desc_mod
real(psb_spk_), intent(inout), target :: x(:,:)
type(psb_desc_type), intent(in) :: desc_a
integer(psb_ipk_), intent(out) :: info
@ -41,7 +41,7 @@ module psb_s_comm_mod
integer(psb_ipk_), intent(in), optional :: update,jx,ik,mode
end subroutine psb_sovrlm
subroutine psb_sovrlv(x,desc_a,info,work,update,mode)
use psb_descriptor_type
use psb_desc_mod
real(psb_spk_), intent(inout), target :: x(:)
type(psb_desc_type), intent(in) :: desc_a
integer(psb_ipk_), intent(out) :: info
@ -49,7 +49,7 @@ module psb_s_comm_mod
integer(psb_ipk_), intent(in), optional :: update,mode
end subroutine psb_sovrlv
subroutine psb_sovrl_vect(x,desc_a,info,work,update,mode)
use psb_descriptor_type
use psb_desc_mod
use psb_s_vect_mod
type(psb_s_vect_type), intent(inout) :: x
type(psb_desc_type), intent(in) :: desc_a
@ -61,7 +61,7 @@ module psb_s_comm_mod
interface psb_halo
subroutine psb_shalom(x,desc_a,info,alpha,jx,ik,work,tran,mode,data)
use psb_descriptor_type
use psb_desc_mod
real(psb_spk_), intent(inout), target :: x(:,:)
type(psb_desc_type), intent(in) :: desc_a
integer(psb_ipk_), intent(out) :: info
@ -71,7 +71,7 @@ module psb_s_comm_mod
character, intent(in), optional :: tran
end subroutine psb_shalom
subroutine psb_shalov(x,desc_a,info,alpha,work,tran,mode,data)
use psb_descriptor_type
use psb_desc_mod
real(psb_spk_), intent(inout) :: x(:)
type(psb_desc_type), intent(in) :: desc_a
integer(psb_ipk_), intent(out) :: info
@ -81,7 +81,7 @@ module psb_s_comm_mod
character, intent(in), optional :: tran
end subroutine psb_shalov
subroutine psb_shalo_vect(x,desc_a,info,alpha,work,tran,mode,data)
use psb_descriptor_type
use psb_desc_mod
use psb_s_vect_mod
type(psb_s_vect_type), intent(inout) :: x
type(psb_desc_type), intent(in) :: desc_a
@ -96,7 +96,7 @@ module psb_s_comm_mod
interface psb_scatter
subroutine psb_sscatterm(globx, locx, desc_a, info, root)
use psb_descriptor_type
use psb_desc_mod
real(psb_spk_), intent(out) :: locx(:,:)
real(psb_spk_), intent(in) :: globx(:,:)
type(psb_desc_type), intent(in) :: desc_a
@ -104,7 +104,7 @@ module psb_s_comm_mod
integer(psb_ipk_), intent(in), optional :: root
end subroutine psb_sscatterm
subroutine psb_sscatterv(globx, locx, desc_a, info, root)
use psb_descriptor_type
use psb_desc_mod
real(psb_spk_), intent(out) :: locx(:)
real(psb_spk_), intent(in) :: globx(:)
type(psb_desc_type), intent(in) :: desc_a
@ -115,7 +115,7 @@ module psb_s_comm_mod
interface psb_gather
subroutine psb_ssp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keeploc)
use psb_descriptor_type
use psb_desc_mod
use psb_mat_mod
implicit none
type(psb_sspmat_type), intent(inout) :: loca
@ -126,7 +126,7 @@ module psb_s_comm_mod
logical, intent(in), optional :: keepnum,keeploc
end subroutine psb_ssp_allgather
subroutine psb_sgatherm(globx, locx, desc_a, info, root)
use psb_descriptor_type
use psb_desc_mod
real(psb_spk_), intent(in) :: locx(:,:)
real(psb_spk_), intent(out), allocatable :: globx(:,:)
type(psb_desc_type), intent(in) :: desc_a
@ -134,7 +134,7 @@ module psb_s_comm_mod
integer(psb_ipk_), intent(in), optional :: root
end subroutine psb_sgatherm
subroutine psb_sgatherv(globx, locx, desc_a, info, root)
use psb_descriptor_type
use psb_desc_mod
real(psb_spk_), intent(in) :: locx(:)
real(psb_spk_), intent(out), allocatable :: globx(:)
type(psb_desc_type), intent(in) :: desc_a
@ -142,7 +142,7 @@ module psb_s_comm_mod
integer(psb_ipk_), intent(in), optional :: root
end subroutine psb_sgatherv
subroutine psb_sgather_vect(globx, locx, desc_a, info, root)
use psb_descriptor_type
use psb_desc_mod
use psb_s_vect_mod
type(psb_s_vect_type), intent(inout) :: locx
real(psb_spk_), intent(out), allocatable :: globx(:)

10
base/modules/psb_s_linmap_mod.f90
Unescape Escape View File

@ -39,7 +39,7 @@ module psb_s_linmap_mod
use psb_const_mod
use psb_s_mat_mod, only : psb_sspmat_type
use psb_descriptor_type, only : psb_desc_type
use psb_desc_mod, only : psb_desc_type
use psb_base_linmap_mod
@ -133,7 +133,7 @@ module psb_s_linmap_mod
contains
function s_map_sizeof(map) result(val)
use psb_descriptor_type
use psb_desc_mod
use psb_s_mat_mod
implicit none
class(psb_slinmap_type), intent(in) :: map
@ -147,7 +147,7 @@ contains
function s_is_asb(map) result(val)
use psb_descriptor_type
use psb_desc_mod
implicit none
class(psb_slinmap_type), intent(in) :: map
logical :: val
@ -186,7 +186,7 @@ contains
subroutine psb_slinmap_transfer(mapin,mapout,info)
use psb_realloc_mod
use psb_descriptor_type
use psb_desc_mod
use psb_mat_mod, only : psb_move_alloc
implicit none
type(psb_slinmap_type) :: mapin,mapout
@ -200,7 +200,7 @@ contains
end subroutine psb_slinmap_transfer
subroutine s_free(map,info)
use psb_descriptor_type
use psb_desc_mod
implicit none
class(psb_slinmap_type) :: map
integer(psb_ipk_), intent(out) :: info

2
base/modules/psb_s_psblas_mod.f90
Unescape Escape View File

@ -30,7 +30,7 @@
!!$
!!$
module psb_s_psblas_mod
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_ipk_
use psb_desc_mod, only : psb_desc_type, psb_spk_, psb_ipk_
use psb_s_vect_mod, only : psb_s_vect_type
use psb_s_mat_mod, only : psb_sspmat_type

2
base/modules/psb_s_tools_mod.f90
Unescape Escape View File

@ -30,7 +30,7 @@
!!$
!!$
Module psb_s_tools_mod
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_ipk_
use psb_desc_mod, only : psb_desc_type, psb_spk_, psb_ipk_
use psb_s_vect_mod, only : psb_s_base_vect_type, psb_s_vect_type
use psb_s_mat_mod, only : psb_sspmat_type, psb_s_base_sparse_mat

24
base/modules/psb_z_comm_mod.f90
Unescape Escape View File

@ -33,7 +33,7 @@ module psb_z_comm_mod
interface psb_ovrl
subroutine psb_zovrlm(x,desc_a,info,jx,ik,work,update,mode)
use psb_descriptor_type
use psb_desc_mod
complex(psb_dpk_), intent(inout), target :: x(:,:)
type(psb_desc_type), intent(in) :: desc_a
integer(psb_ipk_), intent(out) :: info
@ -41,7 +41,7 @@ module psb_z_comm_mod
integer(psb_ipk_), intent(in), optional :: update,jx,ik,mode
end subroutine psb_zovrlm
subroutine psb_zovrlv(x,desc_a,info,work,update,mode)
use psb_descriptor_type
use psb_desc_mod
complex(psb_dpk_), intent(inout), target :: x(:)
type(psb_desc_type), intent(in) :: desc_a
integer(psb_ipk_), intent(out) :: info
@ -49,7 +49,7 @@ module psb_z_comm_mod
integer(psb_ipk_), intent(in), optional :: update,mode
end subroutine psb_zovrlv
subroutine psb_zovrl_vect(x,desc_a,info,work,update,mode)
use psb_descriptor_type
use psb_desc_mod
use psb_z_vect_mod
type(psb_z_vect_type), intent(inout) :: x
type(psb_desc_type), intent(in) :: desc_a
@ -61,7 +61,7 @@ module psb_z_comm_mod
interface psb_halo
subroutine psb_zhalom(x,desc_a,info,alpha,jx,ik,work,tran,mode,data)
use psb_descriptor_type
use psb_desc_mod
complex(psb_dpk_), intent(inout), target :: x(:,:)
type(psb_desc_type), intent(in) :: desc_a
integer(psb_ipk_), intent(out) :: info
@ -71,7 +71,7 @@ module psb_z_comm_mod
character, intent(in), optional :: tran
end subroutine psb_zhalom
subroutine psb_zhalov(x,desc_a,info,alpha,work,tran,mode,data)
use psb_descriptor_type
use psb_desc_mod
complex(psb_dpk_), intent(inout) :: x(:)
type(psb_desc_type), intent(in) :: desc_a
integer(psb_ipk_), intent(out) :: info
@ -81,7 +81,7 @@ module psb_z_comm_mod
character, intent(in), optional :: tran
end subroutine psb_zhalov
subroutine psb_zhalo_vect(x,desc_a,info,alpha,work,tran,mode,data)
use psb_descriptor_type
use psb_desc_mod
use psb_z_vect_mod
type(psb_z_vect_type), intent(inout) :: x
type(psb_desc_type), intent(in) :: desc_a
@ -96,7 +96,7 @@ module psb_z_comm_mod
interface psb_scatter
subroutine psb_zscatterm(globx, locx, desc_a, info, root)
use psb_descriptor_type
use psb_desc_mod
complex(psb_dpk_), intent(out) :: locx(:,:)
complex(psb_dpk_), intent(in) :: globx(:,:)
type(psb_desc_type), intent(in) :: desc_a
@ -104,7 +104,7 @@ module psb_z_comm_mod
integer(psb_ipk_), intent(in), optional :: root
end subroutine psb_zscatterm
subroutine psb_zscatterv(globx, locx, desc_a, info, root)
use psb_descriptor_type
use psb_desc_mod
complex(psb_dpk_), intent(out) :: locx(:)
complex(psb_dpk_), intent(in) :: globx(:)
type(psb_desc_type), intent(in) :: desc_a
@ -115,7 +115,7 @@ module psb_z_comm_mod
interface psb_gather
subroutine psb_zsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keeploc)
use psb_descriptor_type
use psb_desc_mod
use psb_mat_mod
implicit none
type(psb_zspmat_type), intent(inout) :: loca
@ -126,7 +126,7 @@ module psb_z_comm_mod
logical, intent(in), optional :: keepnum,keeploc
end subroutine psb_zsp_allgather
subroutine psb_zgatherm(globx, locx, desc_a, info, root)
use psb_descriptor_type
use psb_desc_mod
complex(psb_dpk_), intent(in) :: locx(:,:)
complex(psb_dpk_), intent(out), allocatable :: globx(:,:)
type(psb_desc_type), intent(in) :: desc_a
@ -134,7 +134,7 @@ module psb_z_comm_mod
integer(psb_ipk_), intent(in), optional :: root
end subroutine psb_zgatherm
subroutine psb_zgatherv(globx, locx, desc_a, info, root)
use psb_descriptor_type
use psb_desc_mod
complex(psb_dpk_), intent(in) :: locx(:)
complex(psb_dpk_), intent(out), allocatable :: globx(:)
type(psb_desc_type), intent(in) :: desc_a
@ -142,7 +142,7 @@ module psb_z_comm_mod
integer(psb_ipk_), intent(in), optional :: root
end subroutine psb_zgatherv
subroutine psb_zgather_vect(globx, locx, desc_a, info, root)
use psb_descriptor_type
use psb_desc_mod
use psb_z_vect_mod
type(psb_z_vect_type), intent(inout) :: locx
complex(psb_dpk_), intent(out), allocatable :: globx(:)

10
base/modules/psb_z_linmap_mod.f90
Unescape Escape View File

@ -39,7 +39,7 @@ module psb_z_linmap_mod
use psb_const_mod
use psb_z_mat_mod, only : psb_zspmat_type
use psb_descriptor_type, only : psb_desc_type
use psb_desc_mod, only : psb_desc_type
use psb_base_linmap_mod
@ -133,7 +133,7 @@ module psb_z_linmap_mod
contains
function z_map_sizeof(map) result(val)
use psb_descriptor_type
use psb_desc_mod
use psb_z_mat_mod
implicit none
class(psb_zlinmap_type), intent(in) :: map
@ -147,7 +147,7 @@ contains
function z_is_asb(map) result(val)
use psb_descriptor_type
use psb_desc_mod
implicit none
class(psb_zlinmap_type), intent(in) :: map
logical :: val
@ -186,7 +186,7 @@ contains
subroutine psb_zlinmap_transfer(mapin,mapout,info)
use psb_realloc_mod
use psb_descriptor_type
use psb_desc_mod
use psb_mat_mod, only : psb_move_alloc
implicit none
type(psb_zlinmap_type) :: mapin,mapout
@ -200,7 +200,7 @@ contains
end subroutine psb_zlinmap_transfer
subroutine z_free(map,info)
use psb_descriptor_type
use psb_desc_mod
implicit none
class(psb_zlinmap_type) :: map
integer(psb_ipk_), intent(out) :: info

2
base/modules/psb_z_psblas_mod.f90
Unescape Escape View File

@ -30,7 +30,7 @@
!!$
!!$
module psb_z_psblas_mod
use psb_descriptor_type, only : psb_desc_type, psb_dpk_, psb_ipk_
use psb_desc_mod, only : psb_desc_type, psb_dpk_, psb_ipk_
use psb_z_vect_mod, only : psb_z_vect_type
use psb_z_mat_mod, only : psb_zspmat_type

2
base/modules/psb_z_tools_mod.f90
Unescape Escape View File

@ -30,7 +30,7 @@
!!$
!!$
Module psb_z_tools_mod
use psb_descriptor_type, only : psb_desc_type, psb_dpk_, psb_ipk_
use psb_desc_mod, only : psb_desc_type, psb_dpk_, psb_ipk_
use psb_z_vect_mod, only : psb_z_base_vect_type, psb_z_vect_type
use psb_z_mat_mod, only : psb_zspmat_type, psb_z_base_sparse_mat

2
base/modules/psi_c_mod.f90
Unescape Escape View File

@ -30,7 +30,7 @@
!!$
!!$
module psi_c_mod
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_ipk_
use psb_desc_mod, only : psb_desc_type, psb_spk_, psb_ipk_
use psb_c_vect_mod, only : psb_c_base_vect_type
interface psi_swapdata

2
base/modules/psi_d_mod.f90
Unescape Escape View File

@ -30,7 +30,7 @@
!!$
!!$
module psi_d_mod
use psb_descriptor_type, only : psb_desc_type, psb_ipk_, psb_dpk_
use psb_desc_mod, only : psb_desc_type, psb_ipk_, psb_dpk_
use psb_d_vect_mod, only : psb_d_base_vect_type
interface psi_swapdata
subroutine psi_dswapdatam(flag,n,beta,y,desc_a,work,info,data)

2
base/modules/psi_i_mod.f90
Unescape Escape View File

@ -30,7 +30,7 @@
!!$
!!$
module psi_i_mod
use psb_descriptor_type, only : psb_desc_type, psb_ipk_, psb_mpik_
use psb_desc_mod, only : psb_desc_type, psb_ipk_, psb_mpik_
use psb_i_vect_mod, only : psb_i_base_vect_type
interface

2
base/modules/psi_mod.f90
Unescape Escape View File

@ -32,7 +32,7 @@
module psi_mod
use psi_serial_mod
use psb_descriptor_type
use psb_desc_mod
use psb_const_mod
use psb_error_mod
use psb_penv_mod

2
base/modules/psi_s_mod.f90
Unescape Escape View File

@ -30,7 +30,7 @@
!!$
!!$
module psi_s_mod
use psb_descriptor_type, only : psb_desc_type, psb_ipk_, psb_spk_
use psb_desc_mod, only : psb_desc_type, psb_ipk_, psb_spk_
use psb_s_vect_mod, only : psb_s_base_vect_type
interface psi_swapdata

2
base/modules/psi_z_mod.f90
Unescape Escape View File

@ -30,7 +30,7 @@
!!$
!!$
module psi_z_mod
use psb_descriptor_type, only : psb_desc_type, psb_ipk_, psb_dpk_
use psb_desc_mod, only : psb_desc_type, psb_ipk_, psb_dpk_
use psb_z_vect_mod, only : psb_z_base_vect_type
interface psi_swapdata

2
base/psblas/psb_camax.f90
Unescape Escape View File

@ -245,7 +245,7 @@ end function psb_camaxv
function psb_camax_vect(x, desc_a, info) result(res)
use psb_penv_mod
use psb_serial_mod
use psb_descriptor_type
use psb_desc_mod
use psb_check_mod
use psb_error_mod
use psb_c_vect_mod

2
base/psblas/psb_cdot.f90
Unescape Escape View File

@ -49,7 +49,7 @@
! jy - integer(optional). The column offset for sub( Y ).
!
function psb_cdot_vect(x, y, desc_a,info) result(res)
use psb_descriptor_type
use psb_desc_mod
use psb_c_base_mat_mod
use psb_check_mod
use psb_error_mod

8
base/psblas/psb_cnrm2.f90
Unescape Escape View File

@ -45,7 +45,7 @@
! jx - integer(optional). The column offset for sub( X ).
!
function psb_cnrm2(x, desc_a, info, jx) result(res)
use psb_descriptor_type
use psb_desc_mod
use psb_check_mod
use psb_error_mod
use psb_penv_mod
@ -174,7 +174,7 @@ end function psb_cnrm2
! info - integer. Return code
!
function psb_cnrm2v(x, desc_a, info) result(res)
use psb_descriptor_type
use psb_desc_mod
use psb_check_mod
use psb_error_mod
use psb_penv_mod
@ -257,7 +257,7 @@ end function psb_cnrm2v
function psb_cnrm2_vect(x, desc_a, info) result(res)
use psb_descriptor_type
use psb_desc_mod
use psb_check_mod
use psb_error_mod
use psb_penv_mod
@ -389,7 +389,7 @@ end function psb_cnrm2_vect
! info - integer. Return code
!
subroutine psb_cnrm2vs(res, x, desc_a, info)
use psb_descriptor_type
use psb_desc_mod
use psb_check_mod
use psb_error_mod
use psb_penv_mod

2
base/psblas/psb_damax.f90
Unescape Escape View File

@ -245,7 +245,7 @@ end function psb_damaxv
function psb_damax_vect(x, desc_a, info) result(res)
use psb_penv_mod
use psb_serial_mod
use psb_descriptor_type
use psb_desc_mod
use psb_check_mod
use psb_error_mod
use psb_d_vect_mod

2
base/psblas/psb_ddot.f90
Unescape Escape View File

@ -49,7 +49,7 @@
! jy - integer(optional). The column offset for sub( Y ).
!
function psb_ddot_vect(x, y, desc_a,info) result(res)
use psb_descriptor_type
use psb_desc_mod
use psb_d_base_mat_mod
use psb_check_mod
use psb_error_mod

8
base/psblas/psb_dnrm2.f90
Unescape Escape View File

@ -45,7 +45,7 @@
! jx - integer(optional). The column offset for sub( X ).
!
function psb_dnrm2(x, desc_a, info, jx) result(res)
use psb_descriptor_type
use psb_desc_mod
use psb_check_mod
use psb_error_mod
use psb_penv_mod
@ -174,7 +174,7 @@ end function psb_dnrm2
! info - integer. Return code
!
function psb_dnrm2v(x, desc_a, info) result(res)
use psb_descriptor_type
use psb_desc_mod
use psb_check_mod
use psb_error_mod
use psb_penv_mod
@ -257,7 +257,7 @@ end function psb_dnrm2v
function psb_dnrm2_vect(x, desc_a, info) result(res)
use psb_descriptor_type
use psb_desc_mod
use psb_check_mod
use psb_error_mod
use psb_penv_mod
@ -389,7 +389,7 @@ end function psb_dnrm2_vect
! info - integer. Return code
!
subroutine psb_dnrm2vs(res, x, desc_a, info)
use psb_descriptor_type
use psb_desc_mod
use psb_check_mod
use psb_error_mod
use psb_penv_mod

2
base/psblas/psb_samax.f90
Unescape Escape View File

@ -245,7 +245,7 @@ end function psb_samaxv
function psb_samax_vect(x, desc_a, info) result(res)
use psb_penv_mod
use psb_serial_mod
use psb_descriptor_type
use psb_desc_mod
use psb_check_mod
use psb_error_mod
use psb_s_vect_mod

2
base/psblas/psb_sdot.f90
Unescape Escape View File

@ -49,7 +49,7 @@
! jy - integer(optional). The column offset for sub( Y ).
!
function psb_sdot_vect(x, y, desc_a,info) result(res)
use psb_descriptor_type
use psb_desc_mod
use psb_s_base_mat_mod
use psb_check_mod
use psb_error_mod

8
base/psblas/psb_snrm2.f90
Unescape Escape View File

@ -45,7 +45,7 @@
! jx - integer(optional). The column offset for sub( X ).
!
function psb_snrm2(x, desc_a, info, jx) result(res)
use psb_descriptor_type
use psb_desc_mod
use psb_check_mod
use psb_error_mod
use psb_penv_mod
@ -174,7 +174,7 @@ end function psb_snrm2
! info - integer. Return code
!
function psb_snrm2v(x, desc_a, info) result(res)
use psb_descriptor_type
use psb_desc_mod
use psb_check_mod
use psb_error_mod
use psb_penv_mod
@ -257,7 +257,7 @@ end function psb_snrm2v
function psb_snrm2_vect(x, desc_a, info) result(res)
use psb_descriptor_type
use psb_desc_mod
use psb_check_mod
use psb_error_mod
use psb_penv_mod
@ -389,7 +389,7 @@ end function psb_snrm2_vect
! info - integer. Return code
!
subroutine psb_snrm2vs(res, x, desc_a, info)
use psb_descriptor_type
use psb_desc_mod
use psb_check_mod
use psb_error_mod
use psb_penv_mod

4
base/psblas/psb_sxdot.f90
Unescape Escape View File

@ -49,7 +49,7 @@
! jy - integer(optional). The column offset for sub( Y ).
!
function psb_sxdot(x, y,desc_a, info, jx, jy)
use psb_descriptor_type
use psb_desc_mod
use psb_check_mod
use psb_error_mod
use psb_penv_mod
@ -202,7 +202,7 @@ end function psb_sxdot
! info - integer. Return code
!
function psb_sxdotv(x, y,desc_a, info)
use psb_descriptor_type
use psb_desc_mod
use psb_check_mod
use psb_error_mod
use psb_penv_mod

2
base/psblas/psb_zamax.f90
Unescape Escape View File

@ -245,7 +245,7 @@ end function psb_zamaxv
function psb_zamax_vect(x, desc_a, info) result(res)
use psb_penv_mod
use psb_serial_mod
use psb_descriptor_type
use psb_desc_mod
use psb_check_mod
use psb_error_mod
use psb_z_vect_mod

2
base/psblas/psb_zdot.f90
Unescape Escape View File

@ -49,7 +49,7 @@
! jy - integer(optional). The column offset for sub( Y ).
!
function psb_zdot_vect(x, y, desc_a,info) result(res)
use psb_descriptor_type
use psb_desc_mod
use psb_z_base_mat_mod
use psb_check_mod
use psb_error_mod

8
base/psblas/psb_znrm2.f90
Unescape Escape View File

@ -45,7 +45,7 @@
! jx - integer(optional). The column offset for sub( X ).
!
function psb_znrm2(x, desc_a, info, jx) result(res)
use psb_descriptor_type
use psb_desc_mod
use psb_check_mod
use psb_error_mod
use psb_penv_mod
@ -174,7 +174,7 @@ end function psb_znrm2
! info - integer. Return code
!
function psb_znrm2v(x, desc_a, info) result(res)
use psb_descriptor_type
use psb_desc_mod
use psb_check_mod
use psb_error_mod
use psb_penv_mod
@ -257,7 +257,7 @@ end function psb_znrm2v
function psb_znrm2_vect(x, desc_a, info) result(res)
use psb_descriptor_type
use psb_desc_mod
use psb_check_mod
use psb_error_mod
use psb_penv_mod
@ -389,7 +389,7 @@ end function psb_znrm2_vect
! info - integer. Return code
!
subroutine psb_znrm2vs(res, x, desc_a, info)
use psb_descriptor_type
use psb_desc_mod
use psb_check_mod
use psb_error_mod
use psb_penv_mod

10
base/tools/psb_cdall.f90
Unescape Escape View File

@ -1,5 +1,5 @@
subroutine psb_cdall(ictxt, desc, info,mg,ng,parts,vg,vl,flag,nl,repl, globalcheck,lidx)
use psb_descriptor_type
use psb_desc_mod
use psb_serial_mod
use psb_const_mod
use psb_error_mod
@ -18,21 +18,21 @@ subroutine psb_cdall(ictxt, desc, info,mg,ng,parts,vg,vl,flag,nl,repl, globalche
interface
subroutine psb_cdals(m, n, parts, ictxt, desc, info)
use psb_descriptor_type
use psb_desc_mod
procedure(psb_parts) :: parts
integer(psb_ipk_), intent(in) :: m,n,ictxt
Type(psb_desc_type), intent(out) :: desc
integer(psb_ipk_), intent(out) :: info
end subroutine psb_cdals
subroutine psb_cdalv(v, ictxt, desc, info, flag)
use psb_descriptor_type
use psb_desc_mod
integer(psb_ipk_), intent(in) :: ictxt, v(:)
integer(psb_ipk_), intent(in), optional :: flag
integer(psb_ipk_), intent(out) :: info
Type(psb_desc_type), intent(out) :: desc
end subroutine psb_cdalv
subroutine psb_cd_inloc(v, ictxt, desc, info, globalcheck,idx)
use psb_descriptor_type
use psb_desc_mod
implicit None
integer(psb_ipk_), intent(in) :: ictxt, v(:)
integer(psb_ipk_), intent(out) :: info
@ -41,7 +41,7 @@ subroutine psb_cdall(ictxt, desc, info,mg,ng,parts,vg,vl,flag,nl,repl, globalche
integer(psb_ipk_), intent(in), optional :: idx(:)
end subroutine psb_cd_inloc
subroutine psb_cdrep(m, ictxt, desc,info)
use psb_descriptor_type
use psb_desc_mod
integer(psb_ipk_), intent(in) :: m,ictxt
Type(psb_desc_type), intent(out) :: desc
integer(psb_ipk_), intent(out) :: info

4
base/tools/psb_loc_to_glob.f90
Unescape Escape View File

@ -211,7 +211,7 @@ subroutine psb_loc_to_glob1v(x,desc_a,info,iact)
end subroutine psb_loc_to_glob1v
subroutine psb_loc_to_glob2s(x,y,desc_a,info,iact)
use psb_descriptor_type
use psb_desc_mod
use psb_tools_mod, psb_protect_name => psb_loc_to_glob2s
implicit none
type(psb_desc_type), intent(in) :: desc_a
@ -228,7 +228,7 @@ subroutine psb_loc_to_glob2s(x,y,desc_a,info,iact)
end subroutine psb_loc_to_glob2s
subroutine psb_loc_to_glob1s(x,desc_a,info,iact)
use psb_descriptor_type
use psb_desc_mod
use psb_tools_mod, psb_protect_name => psb_loc_to_glob1s
implicit none
type(psb_desc_type), intent(in) :: desc_a

Write Preview
Loading…
Cancel
Save