diff --git a/base/auxil/psi_a2a_fnd_owner.F90 b/base/auxil/psi_a2a_fnd_owner.F90 index 91aa146cb..deecd61dc 100644 --- a/base/auxil/psi_a2a_fnd_owner.F90 +++ b/base/auxil/psi_a2a_fnd_owner.F90 @@ -55,14 +55,7 @@ subroutine psi_a2a_fnd_owner(idx,iprc,idxmap,info,samesize) use psb_penv_mod use psb_realloc_mod use psb_indx_map_mod, psb_protect_name => psi_a2a_fnd_owner -#ifdef PSB_MPI_MOD - use mpi -#endif - implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_lpk_), intent(in) :: idx(:) integer(psb_ipk_), allocatable, intent(out) :: iprc(:) class(psb_indx_map), intent(in) :: idxmap diff --git a/base/auxil/psi_adjcncy_fnd_owner.F90 b/base/auxil/psi_adjcncy_fnd_owner.F90 index 3ee5b3e49..491e335ad 100644 --- a/base/auxil/psi_adjcncy_fnd_owner.F90 +++ b/base/auxil/psi_adjcncy_fnd_owner.F90 @@ -61,14 +61,8 @@ subroutine psi_adjcncy_fnd_owner(idx,iprc,adj,idxmap,info) use psb_realloc_mod use psb_timers_mod use psb_indx_map_mod, psb_protect_name => psi_adjcncy_fnd_owner -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_lpk_), intent(in) :: idx(:) integer(psb_ipk_), allocatable, intent(out) :: iprc(:) integer(psb_ipk_), intent(inout) :: adj(:) diff --git a/base/auxil/psi_bld_glb_dep_list.F90 b/base/auxil/psi_bld_glb_dep_list.F90 index bd7337b28..c93801d1e 100644 --- a/base/auxil/psi_bld_glb_dep_list.F90 +++ b/base/auxil/psi_bld_glb_dep_list.F90 @@ -31,18 +31,12 @@ ! subroutine psi_i_bld_glb_dep_list(ctxt,loc_dl,length_dl,c_dep_list,dl_ptr,info) use psi_mod, psb_protect_name => psi_i_bld_glb_dep_list -#ifdef PSB_MPI_MOD - use mpi -#endif use psb_penv_mod use psb_const_mod use psb_error_mod use psb_desc_mod use psb_sort_mod implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif ! ....scalar parameters... type(psb_ctxt_type), intent(in) :: ctxt integer(psb_ipk_), intent(in) :: loc_dl(:) diff --git a/base/auxil/psi_desc_index.F90 b/base/auxil/psi_desc_index.F90 index 338b860de..8c892e2d9 100644 --- a/base/auxil/psi_desc_index.F90 +++ b/base/auxil/psi_desc_index.F90 @@ -101,16 +101,10 @@ subroutine psi_i_desc_index(desc,index_in,dep_list,& use psb_realloc_mod use psb_error_mod use psb_const_mod -#ifdef PSB_MPI_MOD - use mpi -#endif use psb_penv_mod use psb_timers_mod use psi_mod, psb_protect_name => psi_i_desc_index implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif ! ...array parameters..... type(psb_desc_type) :: desc diff --git a/base/auxil/psi_fnd_owner.F90 b/base/auxil/psi_fnd_owner.F90 index 47ecc3573..f2760792e 100644 --- a/base/auxil/psi_fnd_owner.F90 +++ b/base/auxil/psi_fnd_owner.F90 @@ -54,14 +54,7 @@ subroutine psi_fnd_owner(nv,idx,iprc,desc,info) use psb_penv_mod use psb_realloc_mod use psi_mod, psb_protect_name => psi_fnd_owner -#ifdef PSB_MPI_MOD - use mpi -#endif - implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_ipk_), intent(in) :: nv integer(psb_lpk_), intent(in) :: idx(:) integer(psb_ipk_), allocatable, intent(out) :: iprc(:) diff --git a/base/auxil/psi_graph_fnd_owner.F90 b/base/auxil/psi_graph_fnd_owner.F90 index b748d24c1..64743d014 100644 --- a/base/auxil/psi_graph_fnd_owner.F90 +++ b/base/auxil/psi_graph_fnd_owner.F90 @@ -86,14 +86,7 @@ subroutine psi_graph_fnd_owner(idx,iprc,ladj,idxmap,info) use psb_realloc_mod use psb_timers_mod use psb_desc_mod, psb_protect_name => psi_graph_fnd_owner -#ifdef PSB_MPI_MOD - use mpi -#endif - implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_lpk_), intent(in) :: idx(:) integer(psb_ipk_), allocatable, intent(out) :: iprc(:), ladj(:) class(psb_indx_map), intent(in) :: idxmap diff --git a/base/auxil/psi_indx_map_fnd_owner.F90 b/base/auxil/psi_indx_map_fnd_owner.F90 index 593c93564..95fc97e65 100644 --- a/base/auxil/psi_indx_map_fnd_owner.F90 +++ b/base/auxil/psi_indx_map_fnd_owner.F90 @@ -58,14 +58,7 @@ subroutine psi_indx_map_fnd_owner(idx,iprc,idxmap,info,adj) use psb_penv_mod use psb_realloc_mod use psb_indx_map_mod, psb_protect_name => psi_indx_map_fnd_owner -#ifdef PSB_MPI_MOD - use mpi -#endif - implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_lpk_), intent(in) :: idx(:) integer(psb_ipk_), allocatable, intent(out) :: iprc(:) class(psb_indx_map), intent(in) :: idxmap diff --git a/base/auxil/psi_symm_dep_list.F90 b/base/auxil/psi_symm_dep_list.F90 index e88185cea..ae319fa8a 100644 --- a/base/auxil/psi_symm_dep_list.F90 +++ b/base/auxil/psi_symm_dep_list.F90 @@ -44,14 +44,7 @@ subroutine psi_symm_dep_list_inrv(rvsz,adj,ctxt,info) use psb_penv_mod use psb_realloc_mod use psb_indx_map_mod, psb_protect_name => psi_symm_dep_list_inrv -#ifdef PSB_MPI_MOD - use mpi -#endif - implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_mpk_), intent(inout) :: rvsz(0:) integer(psb_ipk_), allocatable, intent(inout) :: adj(:) type(psb_ctxt_type), intent(in) :: ctxt @@ -123,14 +116,7 @@ subroutine psi_symm_dep_list_norv(adj,ctxt,info) use psb_penv_mod use psb_realloc_mod use psb_indx_map_mod, psb_protect_name => psi_symm_dep_list_norv -#ifdef PSB_MPI_MOD - use mpi -#endif - implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_ipk_), allocatable, intent(inout) :: adj(:) type(psb_ctxt_type), intent(in) :: ctxt integer(psb_ipk_), intent(out) :: info diff --git a/base/auxil/psi_xtr_loc_dl.F90 b/base/auxil/psi_xtr_loc_dl.F90 index 09f5d3c7b..3fc5eef3c 100644 --- a/base/auxil/psi_xtr_loc_dl.F90 +++ b/base/auxil/psi_xtr_loc_dl.F90 @@ -109,18 +109,12 @@ subroutine psi_i_xtr_loc_dl(ctxt,is_bld,is_upd,desc_str,loc_dl,length_dl,info) ! dependence list of current process ! use psi_mod, psb_protect_name => psi_i_xtr_loc_dl -#ifdef PSB_MPI_MOD - use mpi -#endif use psb_penv_mod use psb_const_mod use psb_error_mod use psb_desc_mod use psb_sort_mod implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif ! ....scalar parameters... logical, intent(in) :: is_bld, is_upd type(psb_ctxt_type), intent(in) :: ctxt diff --git a/base/comm/internals/psi_cswapdata.F90 b/base/comm/internals/psi_cswapdata.F90 index e6c89e9fb..23d3a1058 100644 --- a/base/comm/internals/psi_cswapdata.F90 +++ b/base/comm/internals/psi_cswapdata.F90 @@ -94,13 +94,7 @@ submodule (psi_c_comm_v_mod) psi_c_swapdata_impl contains module subroutine psi_cswapdata_vect(flag,beta,y,desc_a,work,info,data) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info @@ -176,13 +170,7 @@ contains module subroutine psi_cswap_vidx_vect(ctxt,flag,beta,y,idx, & & totxch,totsnd,totrcv,work,info) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_ctxt_type), intent(in) :: ctxt integer(psb_ipk_), intent(in) :: flag @@ -421,13 +409,7 @@ contains ! ! module subroutine psi_cswapdata_multivect(flag,beta,y,desc_a,work,info,data) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info @@ -503,13 +485,7 @@ contains module subroutine psi_cswap_vidx_multivect(ctxt,flag,beta,y,idx, & & totxch,totsnd,totrcv,work,info) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_ctxt_type), intent(in) :: ctxt integer(psb_ipk_), intent(in) :: flag diff --git a/base/comm/internals/psi_cswapdata_a.F90 b/base/comm/internals/psi_cswapdata_a.F90 index ad84b7ef9..7d95d78f4 100644 --- a/base/comm/internals/psi_cswapdata_a.F90 +++ b/base/comm/internals/psi_cswapdata_a.F90 @@ -89,19 +89,13 @@ submodule (psi_c_comm_a_mod) psi_c_swapdata_a_impl contains module subroutine psi_cswapdatam(flag,n,beta,y,desc_a,work,info,data) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_mpk_), intent(in) :: n integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info -complex(psb_spk_) :: y(:,:), beta -complex(psb_spk_), target :: work(:) + complex(psb_spk_) :: y(:,:), beta + complex(psb_spk_), target :: work(:) type(psb_desc_type),target :: desc_a integer(psb_ipk_), optional :: data @@ -156,20 +150,14 @@ complex(psb_spk_), target :: work(:) module subroutine psi_cswapidxm(ctxt,flag,n,beta,y,idx, & & totxch,totsnd,totrcv,work,info) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_ctxt_type), intent(in) :: ctxt integer(psb_mpk_), intent(in) :: n integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info -complex(psb_spk_) :: y(:,:), beta -complex(psb_spk_), target :: work(:) + complex(psb_spk_) :: y(:,:), beta + complex(psb_spk_), target :: work(:) integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd, totrcv ! locals @@ -557,13 +545,7 @@ complex(psb_spk_), pointer, dimension(:) :: sndbuf, rcvbuf ! module subroutine psi_cswapdatav(flag,beta,y,desc_a,work,info,data) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info @@ -637,13 +619,7 @@ complex(psb_spk_), pointer, dimension(:) :: sndbuf, rcvbuf use psb_error_mod use psb_desc_mod use psb_penv_mod -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_ctxt_type), intent(in) :: ctxt integer(psb_ipk_), intent(in) :: flag diff --git a/base/comm/internals/psi_cswaptran_a.F90 b/base/comm/internals/psi_cswaptran_a.F90 index 25ed4fe47..bb26f981b 100644 --- a/base/comm/internals/psi_cswaptran_a.F90 +++ b/base/comm/internals/psi_cswaptran_a.F90 @@ -93,13 +93,7 @@ submodule (psi_c_comm_a_mod) psi_c_swaptran_a_impl contains module subroutine psi_cswaptranm(flag,n,beta,y,desc_a,work,info,data) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_mpk_), intent(in) :: n integer(psb_ipk_), intent(in) :: flag @@ -162,13 +156,7 @@ contains module subroutine psi_ctranidxm(ctxt,flag,n,beta,y,idx,& & totxch,totsnd,totrcv,work,info) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_ctxt_type), intent(in) :: ctxt integer(psb_mpk_), intent(in) :: n @@ -571,13 +559,7 @@ contains ! ! module subroutine psi_cswaptranv(flag,beta,y,desc_a,work,info,data) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info @@ -648,13 +630,7 @@ contains ! module subroutine psi_ctranidxv(ctxt,flag,beta,y,idx,& & totxch,totsnd,totrcv,work,info) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_ctxt_type), intent(in) :: ctxt integer(psb_ipk_), intent(in) :: flag diff --git a/base/comm/internals/psi_dswapdata.F90 b/base/comm/internals/psi_dswapdata.F90 index 95155e6d4..e106ceda6 100644 --- a/base/comm/internals/psi_dswapdata.F90 +++ b/base/comm/internals/psi_dswapdata.F90 @@ -94,13 +94,7 @@ submodule (psi_d_comm_v_mod) psi_d_swapdata_impl contains module subroutine psi_dswapdata_vect(flag,beta,y,desc_a,work,info,data) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info @@ -176,13 +170,7 @@ contains module subroutine psi_dswap_vidx_vect(ctxt,flag,beta,y,idx, & & totxch,totsnd,totrcv,work,info) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_ctxt_type), intent(in) :: ctxt integer(psb_ipk_), intent(in) :: flag @@ -421,13 +409,7 @@ contains ! ! module subroutine psi_dswapdata_multivect(flag,beta,y,desc_a,work,info,data) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info @@ -503,13 +485,7 @@ contains module subroutine psi_dswap_vidx_multivect(ctxt,flag,beta,y,idx, & & totxch,totsnd,totrcv,work,info) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_ctxt_type), intent(in) :: ctxt integer(psb_ipk_), intent(in) :: flag diff --git a/base/comm/internals/psi_dswapdata_a.F90 b/base/comm/internals/psi_dswapdata_a.F90 index e861ce3a4..3d3d065e3 100644 --- a/base/comm/internals/psi_dswapdata_a.F90 +++ b/base/comm/internals/psi_dswapdata_a.F90 @@ -89,19 +89,13 @@ submodule (psi_d_comm_a_mod) psi_d_swapdata_a_impl contains module subroutine psi_dswapdatam(flag,n,beta,y,desc_a,work,info,data) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_mpk_), intent(in) :: n integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info -real(psb_dpk_) :: y(:,:), beta -real(psb_dpk_), target :: work(:) + real(psb_dpk_) :: y(:,:), beta + real(psb_dpk_), target :: work(:) type(psb_desc_type),target :: desc_a integer(psb_ipk_), optional :: data @@ -156,20 +150,14 @@ real(psb_dpk_), target :: work(:) module subroutine psi_dswapidxm(ctxt,flag,n,beta,y,idx, & & totxch,totsnd,totrcv,work,info) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_ctxt_type), intent(in) :: ctxt integer(psb_mpk_), intent(in) :: n integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info -real(psb_dpk_) :: y(:,:), beta -real(psb_dpk_), target :: work(:) + real(psb_dpk_) :: y(:,:), beta + real(psb_dpk_), target :: work(:) integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd, totrcv ! locals @@ -557,13 +545,7 @@ real(psb_dpk_), pointer, dimension(:) :: sndbuf, rcvbuf ! module subroutine psi_dswapdatav(flag,beta,y,desc_a,work,info,data) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info @@ -637,13 +619,7 @@ real(psb_dpk_), pointer, dimension(:) :: sndbuf, rcvbuf use psb_error_mod use psb_desc_mod use psb_penv_mod -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_ctxt_type), intent(in) :: ctxt integer(psb_ipk_), intent(in) :: flag diff --git a/base/comm/internals/psi_dswaptran_a.F90 b/base/comm/internals/psi_dswaptran_a.F90 index 397acb083..e4c49bb4d 100644 --- a/base/comm/internals/psi_dswaptran_a.F90 +++ b/base/comm/internals/psi_dswaptran_a.F90 @@ -93,13 +93,7 @@ submodule (psi_d_comm_a_mod) psi_d_swaptran_a_impl contains module subroutine psi_dswaptranm(flag,n,beta,y,desc_a,work,info,data) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_mpk_), intent(in) :: n integer(psb_ipk_), intent(in) :: flag @@ -162,13 +156,7 @@ contains module subroutine psi_dtranidxm(ctxt,flag,n,beta,y,idx,& & totxch,totsnd,totrcv,work,info) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_ctxt_type), intent(in) :: ctxt integer(psb_mpk_), intent(in) :: n @@ -571,13 +559,7 @@ contains ! ! module subroutine psi_dswaptranv(flag,beta,y,desc_a,work,info,data) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info @@ -648,13 +630,7 @@ contains ! module subroutine psi_dtranidxv(ctxt,flag,beta,y,idx,& & totxch,totsnd,totrcv,work,info) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_ctxt_type), intent(in) :: ctxt integer(psb_ipk_), intent(in) :: flag diff --git a/base/comm/internals/psi_eswapdata_a.F90 b/base/comm/internals/psi_eswapdata_a.F90 index 8db52b035..cc60c2d58 100644 --- a/base/comm/internals/psi_eswapdata_a.F90 +++ b/base/comm/internals/psi_eswapdata_a.F90 @@ -89,19 +89,13 @@ submodule (psi_e_comm_a_mod) psi_e_swapdata_a_impl contains module subroutine psi_eswapdatam(flag,n,beta,y,desc_a,work,info,data) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_mpk_), intent(in) :: n integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info -integer(psb_epk_) :: y(:,:), beta -integer(psb_epk_), target :: work(:) + integer(psb_epk_) :: y(:,:), beta + integer(psb_epk_), target :: work(:) type(psb_desc_type),target :: desc_a integer(psb_ipk_), optional :: data @@ -156,20 +150,14 @@ integer(psb_epk_), target :: work(:) module subroutine psi_eswapidxm(ctxt,flag,n,beta,y,idx, & & totxch,totsnd,totrcv,work,info) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_ctxt_type), intent(in) :: ctxt integer(psb_mpk_), intent(in) :: n integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info -integer(psb_epk_) :: y(:,:), beta -integer(psb_epk_), target :: work(:) + integer(psb_epk_) :: y(:,:), beta + integer(psb_epk_), target :: work(:) integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd, totrcv ! locals @@ -557,13 +545,7 @@ integer(psb_epk_), pointer, dimension(:) :: sndbuf, rcvbuf ! module subroutine psi_eswapdatav(flag,beta,y,desc_a,work,info,data) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info @@ -637,13 +619,7 @@ integer(psb_epk_), pointer, dimension(:) :: sndbuf, rcvbuf use psb_error_mod use psb_desc_mod use psb_penv_mod -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_ctxt_type), intent(in) :: ctxt integer(psb_ipk_), intent(in) :: flag diff --git a/base/comm/internals/psi_eswaptran_a.F90 b/base/comm/internals/psi_eswaptran_a.F90 index b1f532472..6e54b3eda 100644 --- a/base/comm/internals/psi_eswaptran_a.F90 +++ b/base/comm/internals/psi_eswaptran_a.F90 @@ -93,13 +93,7 @@ submodule (psi_e_comm_a_mod) psi_e_swaptran_a_impl contains module subroutine psi_eswaptranm(flag,n,beta,y,desc_a,work,info,data) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_mpk_), intent(in) :: n integer(psb_ipk_), intent(in) :: flag @@ -162,13 +156,7 @@ contains module subroutine psi_etranidxm(ctxt,flag,n,beta,y,idx,& & totxch,totsnd,totrcv,work,info) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_ctxt_type), intent(in) :: ctxt integer(psb_mpk_), intent(in) :: n @@ -571,13 +559,7 @@ contains ! ! module subroutine psi_eswaptranv(flag,beta,y,desc_a,work,info,data) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info @@ -648,13 +630,7 @@ contains ! module subroutine psi_etranidxv(ctxt,flag,beta,y,idx,& & totxch,totsnd,totrcv,work,info) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_ctxt_type), intent(in) :: ctxt integer(psb_ipk_), intent(in) :: flag diff --git a/base/comm/internals/psi_i2swapdata_a.F90 b/base/comm/internals/psi_i2swapdata_a.F90 index 6ff8a1e26..700941254 100644 --- a/base/comm/internals/psi_i2swapdata_a.F90 +++ b/base/comm/internals/psi_i2swapdata_a.F90 @@ -89,19 +89,13 @@ submodule (psi_i2_comm_a_mod) psi_i2_swapdata_a_impl contains module subroutine psi_i2swapdatam(flag,n,beta,y,desc_a,work,info,data) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_mpk_), intent(in) :: n integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info -integer(psb_i2pk_) :: y(:,:), beta -integer(psb_i2pk_), target :: work(:) + integer(psb_i2pk_) :: y(:,:), beta + integer(psb_i2pk_), target :: work(:) type(psb_desc_type),target :: desc_a integer(psb_ipk_), optional :: data @@ -156,20 +150,14 @@ integer(psb_i2pk_), target :: work(:) module subroutine psi_i2swapidxm(ctxt,flag,n,beta,y,idx, & & totxch,totsnd,totrcv,work,info) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_ctxt_type), intent(in) :: ctxt integer(psb_mpk_), intent(in) :: n integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info -integer(psb_i2pk_) :: y(:,:), beta -integer(psb_i2pk_), target :: work(:) + integer(psb_i2pk_) :: y(:,:), beta + integer(psb_i2pk_), target :: work(:) integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd, totrcv ! locals @@ -557,13 +545,7 @@ integer(psb_i2pk_), pointer, dimension(:) :: sndbuf, rcvbuf ! module subroutine psi_i2swapdatav(flag,beta,y,desc_a,work,info,data) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info @@ -637,13 +619,7 @@ integer(psb_i2pk_), pointer, dimension(:) :: sndbuf, rcvbuf use psb_error_mod use psb_desc_mod use psb_penv_mod -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_ctxt_type), intent(in) :: ctxt integer(psb_ipk_), intent(in) :: flag diff --git a/base/comm/internals/psi_i2swaptran_a.F90 b/base/comm/internals/psi_i2swaptran_a.F90 index c6b1ee415..b55ea2f9b 100644 --- a/base/comm/internals/psi_i2swaptran_a.F90 +++ b/base/comm/internals/psi_i2swaptran_a.F90 @@ -93,13 +93,7 @@ submodule (psi_i2_comm_a_mod) psi_i2_swaptran_a_impl contains module subroutine psi_i2swaptranm(flag,n,beta,y,desc_a,work,info,data) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_mpk_), intent(in) :: n integer(psb_ipk_), intent(in) :: flag @@ -162,13 +156,7 @@ contains module subroutine psi_i2tranidxm(ctxt,flag,n,beta,y,idx,& & totxch,totsnd,totrcv,work,info) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_ctxt_type), intent(in) :: ctxt integer(psb_mpk_), intent(in) :: n @@ -571,13 +559,7 @@ contains ! ! module subroutine psi_i2swaptranv(flag,beta,y,desc_a,work,info,data) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info @@ -648,13 +630,7 @@ contains ! module subroutine psi_i2tranidxv(ctxt,flag,beta,y,idx,& & totxch,totsnd,totrcv,work,info) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_ctxt_type), intent(in) :: ctxt integer(psb_ipk_), intent(in) :: flag diff --git a/base/comm/internals/psi_iswapdata.F90 b/base/comm/internals/psi_iswapdata.F90 index d268fb557..c891dcb0f 100644 --- a/base/comm/internals/psi_iswapdata.F90 +++ b/base/comm/internals/psi_iswapdata.F90 @@ -94,13 +94,7 @@ submodule (psi_i_comm_v_mod) psi_i_swapdata_impl contains module subroutine psi_iswapdata_vect(flag,beta,y,desc_a,work,info,data) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info @@ -176,13 +170,7 @@ contains module subroutine psi_iswap_vidx_vect(ctxt,flag,beta,y,idx, & & totxch,totsnd,totrcv,work,info) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_ctxt_type), intent(in) :: ctxt integer(psb_ipk_), intent(in) :: flag @@ -421,13 +409,7 @@ contains ! ! module subroutine psi_iswapdata_multivect(flag,beta,y,desc_a,work,info,data) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info @@ -503,13 +485,7 @@ contains module subroutine psi_iswap_vidx_multivect(ctxt,flag,beta,y,idx, & & totxch,totsnd,totrcv,work,info) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_ctxt_type), intent(in) :: ctxt integer(psb_ipk_), intent(in) :: flag diff --git a/base/comm/internals/psi_lswapdata.F90 b/base/comm/internals/psi_lswapdata.F90 index ecd6e18bb..de165129b 100644 --- a/base/comm/internals/psi_lswapdata.F90 +++ b/base/comm/internals/psi_lswapdata.F90 @@ -94,13 +94,7 @@ submodule (psi_l_comm_v_mod) psi_l_swapdata_impl contains module subroutine psi_lswapdata_vect(flag,beta,y,desc_a,work,info,data) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info @@ -176,13 +170,7 @@ contains module subroutine psi_lswap_vidx_vect(ctxt,flag,beta,y,idx, & & totxch,totsnd,totrcv,work,info) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_ctxt_type), intent(in) :: ctxt integer(psb_ipk_), intent(in) :: flag @@ -421,13 +409,7 @@ contains ! ! module subroutine psi_lswapdata_multivect(flag,beta,y,desc_a,work,info,data) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info @@ -503,13 +485,7 @@ contains module subroutine psi_lswap_vidx_multivect(ctxt,flag,beta,y,idx, & & totxch,totsnd,totrcv,work,info) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_ctxt_type), intent(in) :: ctxt integer(psb_ipk_), intent(in) :: flag diff --git a/base/comm/internals/psi_mswapdata_a.F90 b/base/comm/internals/psi_mswapdata_a.F90 index 435ea717f..8d5abb1b4 100644 --- a/base/comm/internals/psi_mswapdata_a.F90 +++ b/base/comm/internals/psi_mswapdata_a.F90 @@ -89,19 +89,13 @@ submodule (psi_m_comm_a_mod) psi_m_swapdata_a_impl contains module subroutine psi_mswapdatam(flag,n,beta,y,desc_a,work,info,data) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_mpk_), intent(in) :: n integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info -integer(psb_mpk_) :: y(:,:), beta -integer(psb_mpk_), target :: work(:) + integer(psb_mpk_) :: y(:,:), beta + integer(psb_mpk_), target :: work(:) type(psb_desc_type),target :: desc_a integer(psb_ipk_), optional :: data @@ -156,20 +150,14 @@ integer(psb_mpk_), target :: work(:) module subroutine psi_mswapidxm(ctxt,flag,n,beta,y,idx, & & totxch,totsnd,totrcv,work,info) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_ctxt_type), intent(in) :: ctxt integer(psb_mpk_), intent(in) :: n integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info -integer(psb_mpk_) :: y(:,:), beta -integer(psb_mpk_), target :: work(:) + integer(psb_mpk_) :: y(:,:), beta + integer(psb_mpk_), target :: work(:) integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd, totrcv ! locals @@ -557,13 +545,7 @@ integer(psb_mpk_), pointer, dimension(:) :: sndbuf, rcvbuf ! module subroutine psi_mswapdatav(flag,beta,y,desc_a,work,info,data) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info @@ -637,13 +619,7 @@ integer(psb_mpk_), pointer, dimension(:) :: sndbuf, rcvbuf use psb_error_mod use psb_desc_mod use psb_penv_mod -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_ctxt_type), intent(in) :: ctxt integer(psb_ipk_), intent(in) :: flag diff --git a/base/comm/internals/psi_mswaptran_a.F90 b/base/comm/internals/psi_mswaptran_a.F90 index d6ea59abc..17b528e78 100644 --- a/base/comm/internals/psi_mswaptran_a.F90 +++ b/base/comm/internals/psi_mswaptran_a.F90 @@ -93,13 +93,7 @@ submodule (psi_m_comm_a_mod) psi_m_swaptran_a_impl contains module subroutine psi_mswaptranm(flag,n,beta,y,desc_a,work,info,data) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_mpk_), intent(in) :: n integer(psb_ipk_), intent(in) :: flag @@ -162,13 +156,7 @@ contains module subroutine psi_mtranidxm(ctxt,flag,n,beta,y,idx,& & totxch,totsnd,totrcv,work,info) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_ctxt_type), intent(in) :: ctxt integer(psb_mpk_), intent(in) :: n @@ -571,13 +559,7 @@ contains ! ! module subroutine psi_mswaptranv(flag,beta,y,desc_a,work,info,data) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info @@ -648,13 +630,7 @@ contains ! module subroutine psi_mtranidxv(ctxt,flag,beta,y,idx,& & totxch,totsnd,totrcv,work,info) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_ctxt_type), intent(in) :: ctxt integer(psb_ipk_), intent(in) :: flag diff --git a/base/comm/internals/psi_sswapdata.F90 b/base/comm/internals/psi_sswapdata.F90 index 8d9cad518..dac767c50 100644 --- a/base/comm/internals/psi_sswapdata.F90 +++ b/base/comm/internals/psi_sswapdata.F90 @@ -94,13 +94,7 @@ submodule (psi_s_comm_v_mod) psi_s_swapdata_impl contains module subroutine psi_sswapdata_vect(flag,beta,y,desc_a,work,info,data) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info @@ -176,13 +170,7 @@ contains module subroutine psi_sswap_vidx_vect(ctxt,flag,beta,y,idx, & & totxch,totsnd,totrcv,work,info) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_ctxt_type), intent(in) :: ctxt integer(psb_ipk_), intent(in) :: flag @@ -421,13 +409,7 @@ contains ! ! module subroutine psi_sswapdata_multivect(flag,beta,y,desc_a,work,info,data) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info @@ -503,13 +485,7 @@ contains module subroutine psi_sswap_vidx_multivect(ctxt,flag,beta,y,idx, & & totxch,totsnd,totrcv,work,info) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_ctxt_type), intent(in) :: ctxt integer(psb_ipk_), intent(in) :: flag diff --git a/base/comm/internals/psi_sswapdata_a.F90 b/base/comm/internals/psi_sswapdata_a.F90 index 4994b59b5..9f4516f69 100644 --- a/base/comm/internals/psi_sswapdata_a.F90 +++ b/base/comm/internals/psi_sswapdata_a.F90 @@ -89,19 +89,13 @@ submodule (psi_s_comm_a_mod) psi_s_swapdata_a_impl contains module subroutine psi_sswapdatam(flag,n,beta,y,desc_a,work,info,data) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_mpk_), intent(in) :: n integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info -real(psb_spk_) :: y(:,:), beta -real(psb_spk_), target :: work(:) + real(psb_spk_) :: y(:,:), beta + real(psb_spk_), target :: work(:) type(psb_desc_type),target :: desc_a integer(psb_ipk_), optional :: data @@ -156,20 +150,14 @@ real(psb_spk_), target :: work(:) module subroutine psi_sswapidxm(ctxt,flag,n,beta,y,idx, & & totxch,totsnd,totrcv,work,info) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_ctxt_type), intent(in) :: ctxt integer(psb_mpk_), intent(in) :: n integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info -real(psb_spk_) :: y(:,:), beta -real(psb_spk_), target :: work(:) + real(psb_spk_) :: y(:,:), beta + real(psb_spk_), target :: work(:) integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd, totrcv ! locals @@ -557,13 +545,7 @@ real(psb_spk_), pointer, dimension(:) :: sndbuf, rcvbuf ! module subroutine psi_sswapdatav(flag,beta,y,desc_a,work,info,data) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info @@ -637,13 +619,7 @@ real(psb_spk_), pointer, dimension(:) :: sndbuf, rcvbuf use psb_error_mod use psb_desc_mod use psb_penv_mod -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_ctxt_type), intent(in) :: ctxt integer(psb_ipk_), intent(in) :: flag diff --git a/base/comm/internals/psi_sswaptran_a.F90 b/base/comm/internals/psi_sswaptran_a.F90 index bcdc0c4c4..9aaea7e5e 100644 --- a/base/comm/internals/psi_sswaptran_a.F90 +++ b/base/comm/internals/psi_sswaptran_a.F90 @@ -93,13 +93,7 @@ submodule (psi_s_comm_a_mod) psi_s_swaptran_a_impl contains module subroutine psi_sswaptranm(flag,n,beta,y,desc_a,work,info,data) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_mpk_), intent(in) :: n integer(psb_ipk_), intent(in) :: flag @@ -162,13 +156,7 @@ contains module subroutine psi_stranidxm(ctxt,flag,n,beta,y,idx,& & totxch,totsnd,totrcv,work,info) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_ctxt_type), intent(in) :: ctxt integer(psb_mpk_), intent(in) :: n @@ -571,13 +559,7 @@ contains ! ! module subroutine psi_sswaptranv(flag,beta,y,desc_a,work,info,data) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info @@ -648,13 +630,7 @@ contains ! module subroutine psi_stranidxv(ctxt,flag,beta,y,idx,& & totxch,totsnd,totrcv,work,info) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_ctxt_type), intent(in) :: ctxt integer(psb_ipk_), intent(in) :: flag diff --git a/base/comm/internals/psi_zswapdata.F90 b/base/comm/internals/psi_zswapdata.F90 index 5c49c94bb..339fb008c 100644 --- a/base/comm/internals/psi_zswapdata.F90 +++ b/base/comm/internals/psi_zswapdata.F90 @@ -94,13 +94,7 @@ submodule (psi_z_comm_v_mod) psi_z_swapdata_impl contains module subroutine psi_zswapdata_vect(flag,beta,y,desc_a,work,info,data) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info @@ -176,13 +170,7 @@ contains module subroutine psi_zswap_vidx_vect(ctxt,flag,beta,y,idx, & & totxch,totsnd,totrcv,work,info) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_ctxt_type), intent(in) :: ctxt integer(psb_ipk_), intent(in) :: flag @@ -421,13 +409,7 @@ contains ! ! module subroutine psi_zswapdata_multivect(flag,beta,y,desc_a,work,info,data) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info @@ -503,13 +485,7 @@ contains module subroutine psi_zswap_vidx_multivect(ctxt,flag,beta,y,idx, & & totxch,totsnd,totrcv,work,info) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_ctxt_type), intent(in) :: ctxt integer(psb_ipk_), intent(in) :: flag diff --git a/base/comm/internals/psi_zswapdata_a.F90 b/base/comm/internals/psi_zswapdata_a.F90 index ac1972ee0..c1e9e8df8 100644 --- a/base/comm/internals/psi_zswapdata_a.F90 +++ b/base/comm/internals/psi_zswapdata_a.F90 @@ -89,19 +89,13 @@ submodule (psi_z_comm_a_mod) psi_z_swapdata_a_impl contains module subroutine psi_zswapdatam(flag,n,beta,y,desc_a,work,info,data) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_mpk_), intent(in) :: n integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info -complex(psb_dpk_) :: y(:,:), beta -complex(psb_dpk_), target :: work(:) + complex(psb_dpk_) :: y(:,:), beta + complex(psb_dpk_), target :: work(:) type(psb_desc_type),target :: desc_a integer(psb_ipk_), optional :: data @@ -156,20 +150,14 @@ complex(psb_dpk_), target :: work(:) module subroutine psi_zswapidxm(ctxt,flag,n,beta,y,idx, & & totxch,totsnd,totrcv,work,info) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_ctxt_type), intent(in) :: ctxt integer(psb_mpk_), intent(in) :: n integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info -complex(psb_dpk_) :: y(:,:), beta -complex(psb_dpk_), target :: work(:) + complex(psb_dpk_) :: y(:,:), beta + complex(psb_dpk_), target :: work(:) integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd, totrcv ! locals @@ -557,13 +545,7 @@ complex(psb_dpk_), pointer, dimension(:) :: sndbuf, rcvbuf ! module subroutine psi_zswapdatav(flag,beta,y,desc_a,work,info,data) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info @@ -637,13 +619,7 @@ complex(psb_dpk_), pointer, dimension(:) :: sndbuf, rcvbuf use psb_error_mod use psb_desc_mod use psb_penv_mod -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_ctxt_type), intent(in) :: ctxt integer(psb_ipk_), intent(in) :: flag diff --git a/base/comm/internals/psi_zswaptran_a.F90 b/base/comm/internals/psi_zswaptran_a.F90 index 9a882bd46..a6f1ea307 100644 --- a/base/comm/internals/psi_zswaptran_a.F90 +++ b/base/comm/internals/psi_zswaptran_a.F90 @@ -93,13 +93,7 @@ submodule (psi_z_comm_a_mod) psi_z_swaptran_a_impl contains module subroutine psi_zswaptranm(flag,n,beta,y,desc_a,work,info,data) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_mpk_), intent(in) :: n integer(psb_ipk_), intent(in) :: flag @@ -162,13 +156,7 @@ contains module subroutine psi_ztranidxm(ctxt,flag,n,beta,y,idx,& & totxch,totsnd,totrcv,work,info) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_ctxt_type), intent(in) :: ctxt integer(psb_mpk_), intent(in) :: n @@ -571,13 +559,7 @@ contains ! ! module subroutine psi_zswaptranv(flag,beta,y,desc_a,work,info,data) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info @@ -648,13 +630,7 @@ contains ! module subroutine psi_ztranidxv(ctxt,flag,beta,y,idx,& & totxch,totsnd,totrcv,work,info) -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_ctxt_type), intent(in) :: ctxt integer(psb_ipk_), intent(in) :: flag diff --git a/base/comm/psb_cscatter_a.F90 b/base/comm/psb_cscatter_a.F90 index dadf13c5c..5576f42b9 100644 --- a/base/comm/psb_cscatter_a.F90 +++ b/base/comm/psb_cscatter_a.F90 @@ -46,13 +46,7 @@ subroutine psb_cscatterm(globx, locx, desc_a, info, root) use psb_base_mod, psb_protect_name => psb_cscatterm -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif complex(psb_spk_), intent(out), allocatable :: locx(:,:) complex(psb_spk_), intent(in) :: globx(:,:) @@ -292,13 +286,7 @@ end subroutine psb_cscatterm ! subroutine psb_cscatterv(globx, locx, desc_a, info, root) use psb_base_mod, psb_protect_name => psb_cscatterv -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif complex(psb_spk_), intent(out), allocatable :: locx(:) complex(psb_spk_), intent(in) :: globx(:) diff --git a/base/comm/psb_cspgather.F90 b/base/comm/psb_cspgather.F90 index f31659a1d..540d085ce 100644 --- a/base/comm/psb_cspgather.F90 +++ b/base/comm/psb_cspgather.F90 @@ -49,13 +49,7 @@ subroutine psb_csp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keep use psb_mat_mod use psb_tools_mod use iso_c_binding -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_cspmat_type), intent(inout) :: loca type(psb_cspmat_type), intent(inout) :: globa type(psb_desc_type), intent(in) :: desc_a @@ -233,13 +227,7 @@ subroutine psb_lcsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,kee use psb_mat_mod use psb_tools_mod use iso_c_binding -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_cspmat_type), intent(inout) :: loca type(psb_lcspmat_type), intent(inout) :: globa type(psb_desc_type), intent(in) :: desc_a @@ -406,13 +394,7 @@ subroutine psb_lclcsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,k use psb_mat_mod use psb_tools_mod use iso_c_binding -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_lcspmat_type), intent(inout) :: loca type(psb_lcspmat_type), intent(inout) :: globa type(psb_desc_type), intent(in) :: desc_a diff --git a/base/comm/psb_dscatter_a.F90 b/base/comm/psb_dscatter_a.F90 index 739e1aaa8..e2e099924 100644 --- a/base/comm/psb_dscatter_a.F90 +++ b/base/comm/psb_dscatter_a.F90 @@ -46,13 +46,7 @@ subroutine psb_dscatterm(globx, locx, desc_a, info, root) use psb_base_mod, psb_protect_name => psb_dscatterm -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif real(psb_dpk_), intent(out), allocatable :: locx(:,:) real(psb_dpk_), intent(in) :: globx(:,:) @@ -292,13 +286,7 @@ end subroutine psb_dscatterm ! subroutine psb_dscatterv(globx, locx, desc_a, info, root) use psb_base_mod, psb_protect_name => psb_dscatterv -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif real(psb_dpk_), intent(out), allocatable :: locx(:) real(psb_dpk_), intent(in) :: globx(:) diff --git a/base/comm/psb_dspgather.F90 b/base/comm/psb_dspgather.F90 index e38cb89ad..8b16b528b 100644 --- a/base/comm/psb_dspgather.F90 +++ b/base/comm/psb_dspgather.F90 @@ -49,13 +49,7 @@ subroutine psb_dsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keep use psb_mat_mod use psb_tools_mod use iso_c_binding -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_dspmat_type), intent(inout) :: loca type(psb_dspmat_type), intent(inout) :: globa type(psb_desc_type), intent(in) :: desc_a @@ -233,13 +227,7 @@ subroutine psb_ldsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,kee use psb_mat_mod use psb_tools_mod use iso_c_binding -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_dspmat_type), intent(inout) :: loca type(psb_ldspmat_type), intent(inout) :: globa type(psb_desc_type), intent(in) :: desc_a @@ -406,13 +394,7 @@ subroutine psb_ldldsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,k use psb_mat_mod use psb_tools_mod use iso_c_binding -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_ldspmat_type), intent(inout) :: loca type(psb_ldspmat_type), intent(inout) :: globa type(psb_desc_type), intent(in) :: desc_a diff --git a/base/comm/psb_escatter_a.F90 b/base/comm/psb_escatter_a.F90 index f5cd08e8e..8da7a43ac 100644 --- a/base/comm/psb_escatter_a.F90 +++ b/base/comm/psb_escatter_a.F90 @@ -46,13 +46,7 @@ subroutine psb_escatterm(globx, locx, desc_a, info, root) use psb_base_mod, psb_protect_name => psb_escatterm -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_epk_), intent(out), allocatable :: locx(:,:) integer(psb_epk_), intent(in) :: globx(:,:) @@ -292,13 +286,7 @@ end subroutine psb_escatterm ! subroutine psb_escatterv(globx, locx, desc_a, info, root) use psb_base_mod, psb_protect_name => psb_escatterv -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_epk_), intent(out), allocatable :: locx(:) integer(psb_epk_), intent(in) :: globx(:) diff --git a/base/comm/psb_i2scatter_a.F90 b/base/comm/psb_i2scatter_a.F90 index 2da1bcab2..95ce8319f 100644 --- a/base/comm/psb_i2scatter_a.F90 +++ b/base/comm/psb_i2scatter_a.F90 @@ -46,13 +46,7 @@ subroutine psb_i2scatterm(globx, locx, desc_a, info, root) use psb_base_mod, psb_protect_name => psb_i2scatterm -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_i2pk_), intent(out), allocatable :: locx(:,:) integer(psb_i2pk_), intent(in) :: globx(:,:) @@ -292,13 +286,7 @@ end subroutine psb_i2scatterm ! subroutine psb_i2scatterv(globx, locx, desc_a, info, root) use psb_base_mod, psb_protect_name => psb_i2scatterv -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_i2pk_), intent(out), allocatable :: locx(:) integer(psb_i2pk_), intent(in) :: globx(:) diff --git a/base/comm/psb_ispgather.F90 b/base/comm/psb_ispgather.F90 index bfb43ce7c..5fdf4d04c 100644 --- a/base/comm/psb_ispgather.F90 +++ b/base/comm/psb_ispgather.F90 @@ -49,13 +49,7 @@ subroutine psb_isp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keep use psb_mat_mod use psb_tools_mod use iso_c_binding -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_ispmat_type), intent(inout) :: loca type(psb_ispmat_type), intent(inout) :: globa type(psb_desc_type), intent(in) :: desc_a @@ -233,13 +227,7 @@ subroutine psb_@LX@sp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,k use psb_mat_mod use psb_tools_mod use iso_c_binding -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_ispmat_type), intent(inout) :: loca type(psb_@LX@spmat_type), intent(inout) :: globa type(psb_desc_type), intent(in) :: desc_a @@ -406,13 +394,7 @@ subroutine psb_@LX@@LX@sp_allgather(globa, loca, desc_a, info, root, dupl,keepn use psb_mat_mod use psb_tools_mod use iso_c_binding -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_@LX@spmat_type), intent(inout) :: loca type(psb_@LX@spmat_type), intent(inout) :: globa type(psb_desc_type), intent(in) :: desc_a diff --git a/base/comm/psb_lspgather.F90 b/base/comm/psb_lspgather.F90 index 1e8dcf65d..fafa0be51 100644 --- a/base/comm/psb_lspgather.F90 +++ b/base/comm/psb_lspgather.F90 @@ -49,13 +49,7 @@ subroutine psb_lsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keep use psb_mat_mod use psb_tools_mod use iso_c_binding -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_lspmat_type), intent(inout) :: loca type(psb_lspmat_type), intent(inout) :: globa type(psb_desc_type), intent(in) :: desc_a @@ -233,13 +227,7 @@ subroutine psb_@LX@sp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,k use psb_mat_mod use psb_tools_mod use iso_c_binding -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_lspmat_type), intent(inout) :: loca type(psb_@LX@spmat_type), intent(inout) :: globa type(psb_desc_type), intent(in) :: desc_a @@ -406,13 +394,7 @@ subroutine psb_@LX@@LX@sp_allgather(globa, loca, desc_a, info, root, dupl,keepn use psb_mat_mod use psb_tools_mod use iso_c_binding -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_@LX@spmat_type), intent(inout) :: loca type(psb_@LX@spmat_type), intent(inout) :: globa type(psb_desc_type), intent(in) :: desc_a diff --git a/base/comm/psb_mscatter_a.F90 b/base/comm/psb_mscatter_a.F90 index 847320adb..8990e893e 100644 --- a/base/comm/psb_mscatter_a.F90 +++ b/base/comm/psb_mscatter_a.F90 @@ -46,13 +46,7 @@ subroutine psb_mscatterm(globx, locx, desc_a, info, root) use psb_base_mod, psb_protect_name => psb_mscatterm -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_mpk_), intent(out), allocatable :: locx(:,:) integer(psb_mpk_), intent(in) :: globx(:,:) @@ -292,13 +286,7 @@ end subroutine psb_mscatterm ! subroutine psb_mscatterv(globx, locx, desc_a, info, root) use psb_base_mod, psb_protect_name => psb_mscatterv -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_mpk_), intent(out), allocatable :: locx(:) integer(psb_mpk_), intent(in) :: globx(:) diff --git a/base/comm/psb_sscatter_a.F90 b/base/comm/psb_sscatter_a.F90 index ae8525d32..d587040a3 100644 --- a/base/comm/psb_sscatter_a.F90 +++ b/base/comm/psb_sscatter_a.F90 @@ -46,13 +46,7 @@ subroutine psb_sscatterm(globx, locx, desc_a, info, root) use psb_base_mod, psb_protect_name => psb_sscatterm -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif real(psb_spk_), intent(out), allocatable :: locx(:,:) real(psb_spk_), intent(in) :: globx(:,:) @@ -292,13 +286,7 @@ end subroutine psb_sscatterm ! subroutine psb_sscatterv(globx, locx, desc_a, info, root) use psb_base_mod, psb_protect_name => psb_sscatterv -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif real(psb_spk_), intent(out), allocatable :: locx(:) real(psb_spk_), intent(in) :: globx(:) diff --git a/base/comm/psb_sspgather.F90 b/base/comm/psb_sspgather.F90 index 14efe3539..cf0fc724e 100644 --- a/base/comm/psb_sspgather.F90 +++ b/base/comm/psb_sspgather.F90 @@ -49,13 +49,7 @@ subroutine psb_ssp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keep use psb_mat_mod use psb_tools_mod use iso_c_binding -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_sspmat_type), intent(inout) :: loca type(psb_sspmat_type), intent(inout) :: globa type(psb_desc_type), intent(in) :: desc_a @@ -233,13 +227,7 @@ subroutine psb_lssp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,kee use psb_mat_mod use psb_tools_mod use iso_c_binding -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_sspmat_type), intent(inout) :: loca type(psb_lsspmat_type), intent(inout) :: globa type(psb_desc_type), intent(in) :: desc_a @@ -406,13 +394,7 @@ subroutine psb_lslssp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,k use psb_mat_mod use psb_tools_mod use iso_c_binding -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_lsspmat_type), intent(inout) :: loca type(psb_lsspmat_type), intent(inout) :: globa type(psb_desc_type), intent(in) :: desc_a diff --git a/base/comm/psb_zscatter_a.F90 b/base/comm/psb_zscatter_a.F90 index 5321905ae..80d1ce4f3 100644 --- a/base/comm/psb_zscatter_a.F90 +++ b/base/comm/psb_zscatter_a.F90 @@ -46,13 +46,7 @@ subroutine psb_zscatterm(globx, locx, desc_a, info, root) use psb_base_mod, psb_protect_name => psb_zscatterm -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif complex(psb_dpk_), intent(out), allocatable :: locx(:,:) complex(psb_dpk_), intent(in) :: globx(:,:) @@ -292,13 +286,7 @@ end subroutine psb_zscatterm ! subroutine psb_zscatterv(globx, locx, desc_a, info, root) use psb_base_mod, psb_protect_name => psb_zscatterv -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif complex(psb_dpk_), intent(out), allocatable :: locx(:) complex(psb_dpk_), intent(in) :: globx(:) diff --git a/base/comm/psb_zspgather.F90 b/base/comm/psb_zspgather.F90 index 5533b5095..c422f4b53 100644 --- a/base/comm/psb_zspgather.F90 +++ b/base/comm/psb_zspgather.F90 @@ -49,13 +49,7 @@ subroutine psb_zsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keep use psb_mat_mod use psb_tools_mod use iso_c_binding -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_zspmat_type), intent(inout) :: loca type(psb_zspmat_type), intent(inout) :: globa type(psb_desc_type), intent(in) :: desc_a @@ -233,13 +227,7 @@ subroutine psb_lzsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,kee use psb_mat_mod use psb_tools_mod use iso_c_binding -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_zspmat_type), intent(inout) :: loca type(psb_lzspmat_type), intent(inout) :: globa type(psb_desc_type), intent(in) :: desc_a @@ -406,13 +394,7 @@ subroutine psb_lzlzsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,k use psb_mat_mod use psb_tools_mod use iso_c_binding -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_lzspmat_type), intent(inout) :: loca type(psb_lzspmat_type), intent(inout) :: globa type(psb_desc_type), intent(in) :: desc_a diff --git a/base/psblas/psb_cgetmatinfo.F90 b/base/psblas/psb_cgetmatinfo.F90 index eade65178..4a767f39f 100644 --- a/base/psblas/psb_cgetmatinfo.F90 +++ b/base/psblas/psb_cgetmatinfo.F90 @@ -37,13 +37,7 @@ function psb_cget_nnz(a,desc_a,info) result(res) use psb_base_mod, psb_protect_name => psb_cget_nnz use psi_mod -#ifdef PSB_MPI_MOD - use mpi -#endif - implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif + implicit none integer(psb_lpk_) :: res type(psb_cspmat_type), intent(in) :: a diff --git a/base/psblas/psb_dgetmatinfo.F90 b/base/psblas/psb_dgetmatinfo.F90 index 0b743a86d..8c83b1edc 100644 --- a/base/psblas/psb_dgetmatinfo.F90 +++ b/base/psblas/psb_dgetmatinfo.F90 @@ -37,13 +37,7 @@ function psb_dget_nnz(a,desc_a,info) result(res) use psb_base_mod, psb_protect_name => psb_dget_nnz use psi_mod -#ifdef PSB_MPI_MOD - use mpi -#endif - implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif + implicit none integer(psb_lpk_) :: res type(psb_dspmat_type), intent(in) :: a diff --git a/base/psblas/psb_sgetmatinfo.F90 b/base/psblas/psb_sgetmatinfo.F90 index 25c626ab1..a3efcef86 100644 --- a/base/psblas/psb_sgetmatinfo.F90 +++ b/base/psblas/psb_sgetmatinfo.F90 @@ -37,13 +37,7 @@ function psb_sget_nnz(a,desc_a,info) result(res) use psb_base_mod, psb_protect_name => psb_sget_nnz use psi_mod -#ifdef PSB_MPI_MOD - use mpi -#endif - implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif + implicit none integer(psb_lpk_) :: res type(psb_sspmat_type), intent(in) :: a diff --git a/base/psblas/psb_zgetmatinfo.F90 b/base/psblas/psb_zgetmatinfo.F90 index cdf74d0e3..c13c009d8 100644 --- a/base/psblas/psb_zgetmatinfo.F90 +++ b/base/psblas/psb_zgetmatinfo.F90 @@ -37,13 +37,7 @@ function psb_zget_nnz(a,desc_a,info) result(res) use psb_base_mod, psb_protect_name => psb_zget_nnz use psi_mod -#ifdef PSB_MPI_MOD - use mpi -#endif - implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif + implicit none integer(psb_lpk_) :: res type(psb_zspmat_type), intent(in) :: a diff --git a/base/tools/psb_c_glob_transpose.F90 b/base/tools/psb_c_glob_transpose.F90 index 9285c18a0..7c8d14e41 100644 --- a/base/tools/psb_c_glob_transpose.F90 +++ b/base/tools/psb_c_glob_transpose.F90 @@ -94,14 +94,8 @@ ! ! subroutine psb_lc_coo_glob_transpose(ain,desc_r,info,atrans,desc_c,desc_rx) -#ifdef PSB_MPI_MOD - use mpi -#endif use psb_base_mod, psb_protect_name => psb_lc_coo_glob_transpose Implicit None -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_lc_coo_sparse_mat), intent(inout) :: ain type(psb_desc_type), intent(inout), target :: desc_r type(psb_lc_coo_sparse_mat), intent(out), optional :: atrans @@ -392,14 +386,8 @@ subroutine psb_lc_coo_glob_transpose(ain,desc_r,info,atrans,desc_c,desc_rx) end subroutine psb_lc_coo_glob_transpose subroutine psb_c_coo_glob_transpose(ain,desc_r,info,atrans,desc_c,desc_rx) -#ifdef PSB_MPI_MOD - use mpi -#endif use psb_base_mod, psb_protect_name => psb_c_coo_glob_transpose Implicit None -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_c_coo_sparse_mat), intent(inout) :: ain type(psb_desc_type), intent(inout), target :: desc_r type(psb_c_coo_sparse_mat), intent(out), optional :: atrans diff --git a/base/tools/psb_c_remote_mat.F90 b/base/tools/psb_c_remote_mat.F90 index ecfac5098..762e53cd6 100644 --- a/base/tools/psb_c_remote_mat.F90 +++ b/base/tools/psb_c_remote_mat.F90 @@ -73,13 +73,7 @@ Subroutine psb_lc_remote_mat(a,desc_a,b,info) use psb_base_mod, psb_protect_name => psb_lc_remote_mat -#ifdef PSB_MPI_MOD - use mpi -#endif Implicit None -#ifdef PSB_MPI_H - include 'mpif.h' -#endif Type(psb_lc_coo_sparse_mat),Intent(inout) :: a Type(psb_lc_coo_sparse_mat),Intent(inout) :: b diff --git a/base/tools/psb_c_remote_vect.F90 b/base/tools/psb_c_remote_vect.F90 index 00e7415ae..9bfa74e60 100644 --- a/base/tools/psb_c_remote_vect.F90 +++ b/base/tools/psb_c_remote_vect.F90 @@ -65,14 +65,7 @@ ! subroutine psb_c_remote_vect(n,v,iv,desc_a,x,ix, info) use psb_base_mod, psb_protect_name => psb_c_remote_vect - -#ifdef PSB_MPI_MOD - use mpi -#endif Implicit None -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_ipk_), intent(in) :: n complex(psb_spk_), Intent(in) :: v(:) integer(psb_lpk_), Intent(in) :: iv(:) diff --git a/base/tools/psb_ccdbldext.F90 b/base/tools/psb_ccdbldext.F90 index 4f20bad67..d4267ee74 100644 --- a/base/tools/psb_ccdbldext.F90 +++ b/base/tools/psb_ccdbldext.F90 @@ -64,13 +64,7 @@ Subroutine psb_ccdbldext(a,desc_a,novr,desc_ov,info, extype) use psb_base_mod, psb_protect_name => psb_ccdbldext use psi_mod -#ifdef PSB_MPI_MOD - use mpi -#endif Implicit None -#ifdef PSB_MPI_H - include 'mpif.h' -#endif ! .. Array Arguments .. integer(psb_ipk_), intent(in) :: novr diff --git a/base/tools/psb_csphalo.F90 b/base/tools/psb_csphalo.F90 index 1b6102548..674eac405 100644 --- a/base/tools/psb_csphalo.F90 +++ b/base/tools/psb_csphalo.F90 @@ -74,13 +74,7 @@ Subroutine psb_csphalo(a,desc_a,blk,info,rowcnv,colcnv,& & rowscale,colscale,outfmt,data) use psb_base_mod, psb_protect_name => psb_csphalo -#ifdef PSB_MPI_MOD - use mpi -#endif Implicit None -#ifdef PSB_MPI_H - include 'mpif.h' -#endif Type(psb_cspmat_type),Intent(in) :: a Type(psb_cspmat_type),Intent(inout) :: blk @@ -540,13 +534,7 @@ Subroutine psb_lcsphalo(a,desc_a,blk,info,rowcnv,colcnv,& & rowscale,colscale,outfmt,data) use psb_base_mod, psb_protect_name => psb_lcsphalo -#ifdef PSB_MPI_MOD - use mpi -#endif Implicit None -#ifdef PSB_MPI_H - include 'mpif.h' -#endif Type(psb_lcspmat_type),Intent(in) :: a Type(psb_lcspmat_type),Intent(inout) :: blk @@ -883,13 +871,7 @@ Subroutine psb_lc_csr_halo(a,desc_a,blk,info,rowcnv,colcnv,& & rowscale,colscale,data,outcol_glob,col_desc) use psb_base_mod, psb_protect_name => psb_lc_csr_halo -#ifdef PSB_MPI_MOD - use mpi -#endif Implicit None -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_lc_csr_sparse_mat),Intent(in) :: a type(psb_lc_csr_sparse_mat),Intent(inout) :: blk @@ -1243,13 +1225,7 @@ Subroutine psb_c_lc_csr_halo(a,desc_a,blk,info,rowcnv,colcnv,& & rowscale,colscale,data,outcol_glob,col_desc) use psb_base_mod, psb_protect_name => psb_c_lc_csr_halo -#ifdef PSB_MPI_MOD - use mpi -#endif Implicit None -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_c_csr_sparse_mat),Intent(in) :: a type(psb_lc_csr_sparse_mat),Intent(inout) :: blk diff --git a/base/tools/psb_d_glob_transpose.F90 b/base/tools/psb_d_glob_transpose.F90 index f884222f6..a9c1d583e 100644 --- a/base/tools/psb_d_glob_transpose.F90 +++ b/base/tools/psb_d_glob_transpose.F90 @@ -94,14 +94,8 @@ ! ! subroutine psb_ld_coo_glob_transpose(ain,desc_r,info,atrans,desc_c,desc_rx) -#ifdef PSB_MPI_MOD - use mpi -#endif use psb_base_mod, psb_protect_name => psb_ld_coo_glob_transpose Implicit None -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_ld_coo_sparse_mat), intent(inout) :: ain type(psb_desc_type), intent(inout), target :: desc_r type(psb_ld_coo_sparse_mat), intent(out), optional :: atrans @@ -392,14 +386,8 @@ subroutine psb_ld_coo_glob_transpose(ain,desc_r,info,atrans,desc_c,desc_rx) end subroutine psb_ld_coo_glob_transpose subroutine psb_d_coo_glob_transpose(ain,desc_r,info,atrans,desc_c,desc_rx) -#ifdef PSB_MPI_MOD - use mpi -#endif use psb_base_mod, psb_protect_name => psb_d_coo_glob_transpose Implicit None -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_d_coo_sparse_mat), intent(inout) :: ain type(psb_desc_type), intent(inout), target :: desc_r type(psb_d_coo_sparse_mat), intent(out), optional :: atrans diff --git a/base/tools/psb_d_remote_mat.F90 b/base/tools/psb_d_remote_mat.F90 index 56f7b3d3c..2404ed658 100644 --- a/base/tools/psb_d_remote_mat.F90 +++ b/base/tools/psb_d_remote_mat.F90 @@ -73,13 +73,7 @@ Subroutine psb_ld_remote_mat(a,desc_a,b,info) use psb_base_mod, psb_protect_name => psb_ld_remote_mat -#ifdef PSB_MPI_MOD - use mpi -#endif Implicit None -#ifdef PSB_MPI_H - include 'mpif.h' -#endif Type(psb_ld_coo_sparse_mat),Intent(inout) :: a Type(psb_ld_coo_sparse_mat),Intent(inout) :: b diff --git a/base/tools/psb_d_remote_vect.F90 b/base/tools/psb_d_remote_vect.F90 index 38ea57b6c..1e6cf58b6 100644 --- a/base/tools/psb_d_remote_vect.F90 +++ b/base/tools/psb_d_remote_vect.F90 @@ -65,14 +65,7 @@ ! subroutine psb_d_remote_vect(n,v,iv,desc_a,x,ix, info) use psb_base_mod, psb_protect_name => psb_d_remote_vect - -#ifdef PSB_MPI_MOD - use mpi -#endif Implicit None -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_ipk_), intent(in) :: n real(psb_dpk_), Intent(in) :: v(:) integer(psb_lpk_), Intent(in) :: iv(:) diff --git a/base/tools/psb_dcdbldext.F90 b/base/tools/psb_dcdbldext.F90 index f16402b7c..f9a722c3e 100644 --- a/base/tools/psb_dcdbldext.F90 +++ b/base/tools/psb_dcdbldext.F90 @@ -64,13 +64,7 @@ Subroutine psb_dcdbldext(a,desc_a,novr,desc_ov,info, extype) use psb_base_mod, psb_protect_name => psb_dcdbldext use psi_mod -#ifdef PSB_MPI_MOD - use mpi -#endif Implicit None -#ifdef PSB_MPI_H - include 'mpif.h' -#endif ! .. Array Arguments .. integer(psb_ipk_), intent(in) :: novr diff --git a/base/tools/psb_dsphalo.F90 b/base/tools/psb_dsphalo.F90 index b40a7c514..7a66b98d7 100644 --- a/base/tools/psb_dsphalo.F90 +++ b/base/tools/psb_dsphalo.F90 @@ -74,13 +74,7 @@ Subroutine psb_dsphalo(a,desc_a,blk,info,rowcnv,colcnv,& & rowscale,colscale,outfmt,data) use psb_base_mod, psb_protect_name => psb_dsphalo -#ifdef PSB_MPI_MOD - use mpi -#endif Implicit None -#ifdef PSB_MPI_H - include 'mpif.h' -#endif Type(psb_dspmat_type),Intent(in) :: a Type(psb_dspmat_type),Intent(inout) :: blk @@ -540,13 +534,7 @@ Subroutine psb_ldsphalo(a,desc_a,blk,info,rowcnv,colcnv,& & rowscale,colscale,outfmt,data) use psb_base_mod, psb_protect_name => psb_ldsphalo -#ifdef PSB_MPI_MOD - use mpi -#endif Implicit None -#ifdef PSB_MPI_H - include 'mpif.h' -#endif Type(psb_ldspmat_type),Intent(in) :: a Type(psb_ldspmat_type),Intent(inout) :: blk @@ -883,13 +871,7 @@ Subroutine psb_ld_csr_halo(a,desc_a,blk,info,rowcnv,colcnv,& & rowscale,colscale,data,outcol_glob,col_desc) use psb_base_mod, psb_protect_name => psb_ld_csr_halo -#ifdef PSB_MPI_MOD - use mpi -#endif Implicit None -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_ld_csr_sparse_mat),Intent(in) :: a type(psb_ld_csr_sparse_mat),Intent(inout) :: blk @@ -1243,13 +1225,7 @@ Subroutine psb_d_ld_csr_halo(a,desc_a,blk,info,rowcnv,colcnv,& & rowscale,colscale,data,outcol_glob,col_desc) use psb_base_mod, psb_protect_name => psb_d_ld_csr_halo -#ifdef PSB_MPI_MOD - use mpi -#endif Implicit None -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_d_csr_sparse_mat),Intent(in) :: a type(psb_ld_csr_sparse_mat),Intent(inout) :: blk diff --git a/base/tools/psb_e_remote_vect.F90 b/base/tools/psb_e_remote_vect.F90 index 91423486f..2e69d7e98 100644 --- a/base/tools/psb_e_remote_vect.F90 +++ b/base/tools/psb_e_remote_vect.F90 @@ -65,14 +65,7 @@ ! subroutine psb_e_remote_vect(n,v,iv,desc_a,x,ix, info) use psb_base_mod, psb_protect_name => psb_e_remote_vect - -#ifdef PSB_MPI_MOD - use mpi -#endif Implicit None -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_ipk_), intent(in) :: n integer(psb_epk_), Intent(in) :: v(:) integer(psb_lpk_), Intent(in) :: iv(:) diff --git a/base/tools/psb_i2_remote_vect.F90 b/base/tools/psb_i2_remote_vect.F90 index c2a7706f3..55b931ebc 100644 --- a/base/tools/psb_i2_remote_vect.F90 +++ b/base/tools/psb_i2_remote_vect.F90 @@ -65,14 +65,7 @@ ! subroutine psb_i2_remote_vect(n,v,iv,desc_a,x,ix, info) use psb_base_mod, psb_protect_name => psb_i2_remote_vect - -#ifdef PSB_MPI_MOD - use mpi -#endif Implicit None -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_ipk_), intent(in) :: n integer(psb_i2pk_), Intent(in) :: v(:) integer(psb_lpk_), Intent(in) :: iv(:) diff --git a/base/tools/psb_icdasb.F90 b/base/tools/psb_icdasb.F90 index c8af1b17e..8034e5281 100644 --- a/base/tools/psb_icdasb.F90 +++ b/base/tools/psb_icdasb.F90 @@ -45,13 +45,7 @@ subroutine psb_icdasb(desc,info,ext_hv,mold) use psb_base_mod, psb_protect_name => psb_icdasb use psi_mod -#ifdef PSB_MPI_MOD - use mpi -#endif implicit none -#ifdef PSB_MPI_H - include 'mpif.h' -#endif !...Parameters.... type(psb_desc_type), intent(inout) :: desc integer(psb_ipk_), intent(out) :: info diff --git a/base/tools/psb_m_remote_vect.F90 b/base/tools/psb_m_remote_vect.F90 index 94cbba4dc..994e5a2cd 100644 --- a/base/tools/psb_m_remote_vect.F90 +++ b/base/tools/psb_m_remote_vect.F90 @@ -65,14 +65,7 @@ ! subroutine psb_m_remote_vect(n,v,iv,desc_a,x,ix, info) use psb_base_mod, psb_protect_name => psb_m_remote_vect - -#ifdef PSB_MPI_MOD - use mpi -#endif Implicit None -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_ipk_), intent(in) :: n integer(psb_mpk_), Intent(in) :: v(:) integer(psb_lpk_), Intent(in) :: iv(:) diff --git a/base/tools/psb_s_glob_transpose.F90 b/base/tools/psb_s_glob_transpose.F90 index bee763ac0..f9d2ceef5 100644 --- a/base/tools/psb_s_glob_transpose.F90 +++ b/base/tools/psb_s_glob_transpose.F90 @@ -94,14 +94,8 @@ ! ! subroutine psb_ls_coo_glob_transpose(ain,desc_r,info,atrans,desc_c,desc_rx) -#ifdef PSB_MPI_MOD - use mpi -#endif use psb_base_mod, psb_protect_name => psb_ls_coo_glob_transpose Implicit None -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_ls_coo_sparse_mat), intent(inout) :: ain type(psb_desc_type), intent(inout), target :: desc_r type(psb_ls_coo_sparse_mat), intent(out), optional :: atrans @@ -392,14 +386,8 @@ subroutine psb_ls_coo_glob_transpose(ain,desc_r,info,atrans,desc_c,desc_rx) end subroutine psb_ls_coo_glob_transpose subroutine psb_s_coo_glob_transpose(ain,desc_r,info,atrans,desc_c,desc_rx) -#ifdef PSB_MPI_MOD - use mpi -#endif use psb_base_mod, psb_protect_name => psb_s_coo_glob_transpose Implicit None -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_s_coo_sparse_mat), intent(inout) :: ain type(psb_desc_type), intent(inout), target :: desc_r type(psb_s_coo_sparse_mat), intent(out), optional :: atrans diff --git a/base/tools/psb_s_remote_mat.F90 b/base/tools/psb_s_remote_mat.F90 index a9bc2a7a5..eb9f15895 100644 --- a/base/tools/psb_s_remote_mat.F90 +++ b/base/tools/psb_s_remote_mat.F90 @@ -73,13 +73,7 @@ Subroutine psb_ls_remote_mat(a,desc_a,b,info) use psb_base_mod, psb_protect_name => psb_ls_remote_mat -#ifdef PSB_MPI_MOD - use mpi -#endif Implicit None -#ifdef PSB_MPI_H - include 'mpif.h' -#endif Type(psb_ls_coo_sparse_mat),Intent(inout) :: a Type(psb_ls_coo_sparse_mat),Intent(inout) :: b diff --git a/base/tools/psb_s_remote_vect.F90 b/base/tools/psb_s_remote_vect.F90 index cd7fe19ea..76b1ac4a4 100644 --- a/base/tools/psb_s_remote_vect.F90 +++ b/base/tools/psb_s_remote_vect.F90 @@ -65,14 +65,7 @@ ! subroutine psb_s_remote_vect(n,v,iv,desc_a,x,ix, info) use psb_base_mod, psb_protect_name => psb_s_remote_vect - -#ifdef PSB_MPI_MOD - use mpi -#endif Implicit None -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_ipk_), intent(in) :: n real(psb_spk_), Intent(in) :: v(:) integer(psb_lpk_), Intent(in) :: iv(:) diff --git a/base/tools/psb_scdbldext.F90 b/base/tools/psb_scdbldext.F90 index d7a5f7223..dcb973c1e 100644 --- a/base/tools/psb_scdbldext.F90 +++ b/base/tools/psb_scdbldext.F90 @@ -64,13 +64,7 @@ Subroutine psb_scdbldext(a,desc_a,novr,desc_ov,info, extype) use psb_base_mod, psb_protect_name => psb_scdbldext use psi_mod -#ifdef PSB_MPI_MOD - use mpi -#endif Implicit None -#ifdef PSB_MPI_H - include 'mpif.h' -#endif ! .. Array Arguments .. integer(psb_ipk_), intent(in) :: novr diff --git a/base/tools/psb_ssphalo.F90 b/base/tools/psb_ssphalo.F90 index c33a560b7..f7c36853a 100644 --- a/base/tools/psb_ssphalo.F90 +++ b/base/tools/psb_ssphalo.F90 @@ -74,13 +74,7 @@ Subroutine psb_ssphalo(a,desc_a,blk,info,rowcnv,colcnv,& & rowscale,colscale,outfmt,data) use psb_base_mod, psb_protect_name => psb_ssphalo -#ifdef PSB_MPI_MOD - use mpi -#endif Implicit None -#ifdef PSB_MPI_H - include 'mpif.h' -#endif Type(psb_sspmat_type),Intent(in) :: a Type(psb_sspmat_type),Intent(inout) :: blk @@ -540,13 +534,7 @@ Subroutine psb_lssphalo(a,desc_a,blk,info,rowcnv,colcnv,& & rowscale,colscale,outfmt,data) use psb_base_mod, psb_protect_name => psb_lssphalo -#ifdef PSB_MPI_MOD - use mpi -#endif Implicit None -#ifdef PSB_MPI_H - include 'mpif.h' -#endif Type(psb_lsspmat_type),Intent(in) :: a Type(psb_lsspmat_type),Intent(inout) :: blk @@ -883,13 +871,7 @@ Subroutine psb_ls_csr_halo(a,desc_a,blk,info,rowcnv,colcnv,& & rowscale,colscale,data,outcol_glob,col_desc) use psb_base_mod, psb_protect_name => psb_ls_csr_halo -#ifdef PSB_MPI_MOD - use mpi -#endif Implicit None -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_ls_csr_sparse_mat),Intent(in) :: a type(psb_ls_csr_sparse_mat),Intent(inout) :: blk @@ -1243,13 +1225,7 @@ Subroutine psb_s_ls_csr_halo(a,desc_a,blk,info,rowcnv,colcnv,& & rowscale,colscale,data,outcol_glob,col_desc) use psb_base_mod, psb_protect_name => psb_s_ls_csr_halo -#ifdef PSB_MPI_MOD - use mpi -#endif Implicit None -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_s_csr_sparse_mat),Intent(in) :: a type(psb_ls_csr_sparse_mat),Intent(inout) :: blk diff --git a/base/tools/psb_z_glob_transpose.F90 b/base/tools/psb_z_glob_transpose.F90 index 339d2804e..5558a4c51 100644 --- a/base/tools/psb_z_glob_transpose.F90 +++ b/base/tools/psb_z_glob_transpose.F90 @@ -94,14 +94,8 @@ ! ! subroutine psb_lz_coo_glob_transpose(ain,desc_r,info,atrans,desc_c,desc_rx) -#ifdef PSB_MPI_MOD - use mpi -#endif use psb_base_mod, psb_protect_name => psb_lz_coo_glob_transpose Implicit None -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_lz_coo_sparse_mat), intent(inout) :: ain type(psb_desc_type), intent(inout), target :: desc_r type(psb_lz_coo_sparse_mat), intent(out), optional :: atrans @@ -392,14 +386,8 @@ subroutine psb_lz_coo_glob_transpose(ain,desc_r,info,atrans,desc_c,desc_rx) end subroutine psb_lz_coo_glob_transpose subroutine psb_z_coo_glob_transpose(ain,desc_r,info,atrans,desc_c,desc_rx) -#ifdef PSB_MPI_MOD - use mpi -#endif use psb_base_mod, psb_protect_name => psb_z_coo_glob_transpose Implicit None -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_z_coo_sparse_mat), intent(inout) :: ain type(psb_desc_type), intent(inout), target :: desc_r type(psb_z_coo_sparse_mat), intent(out), optional :: atrans diff --git a/base/tools/psb_z_remote_mat.F90 b/base/tools/psb_z_remote_mat.F90 index c30f7896f..542c1dda0 100644 --- a/base/tools/psb_z_remote_mat.F90 +++ b/base/tools/psb_z_remote_mat.F90 @@ -73,13 +73,7 @@ Subroutine psb_lz_remote_mat(a,desc_a,b,info) use psb_base_mod, psb_protect_name => psb_lz_remote_mat -#ifdef PSB_MPI_MOD - use mpi -#endif Implicit None -#ifdef PSB_MPI_H - include 'mpif.h' -#endif Type(psb_lz_coo_sparse_mat),Intent(inout) :: a Type(psb_lz_coo_sparse_mat),Intent(inout) :: b diff --git a/base/tools/psb_z_remote_vect.F90 b/base/tools/psb_z_remote_vect.F90 index 083d23d7e..8e5a97d7f 100644 --- a/base/tools/psb_z_remote_vect.F90 +++ b/base/tools/psb_z_remote_vect.F90 @@ -65,14 +65,7 @@ ! subroutine psb_z_remote_vect(n,v,iv,desc_a,x,ix, info) use psb_base_mod, psb_protect_name => psb_z_remote_vect - -#ifdef PSB_MPI_MOD - use mpi -#endif Implicit None -#ifdef PSB_MPI_H - include 'mpif.h' -#endif integer(psb_ipk_), intent(in) :: n complex(psb_dpk_), Intent(in) :: v(:) integer(psb_lpk_), Intent(in) :: iv(:) diff --git a/base/tools/psb_zcdbldext.F90 b/base/tools/psb_zcdbldext.F90 index fe83b784d..a36ed261b 100644 --- a/base/tools/psb_zcdbldext.F90 +++ b/base/tools/psb_zcdbldext.F90 @@ -64,13 +64,7 @@ Subroutine psb_zcdbldext(a,desc_a,novr,desc_ov,info, extype) use psb_base_mod, psb_protect_name => psb_zcdbldext use psi_mod -#ifdef PSB_MPI_MOD - use mpi -#endif Implicit None -#ifdef PSB_MPI_H - include 'mpif.h' -#endif ! .. Array Arguments .. integer(psb_ipk_), intent(in) :: novr diff --git a/base/tools/psb_zsphalo.F90 b/base/tools/psb_zsphalo.F90 index 90151d451..336d90d86 100644 --- a/base/tools/psb_zsphalo.F90 +++ b/base/tools/psb_zsphalo.F90 @@ -74,13 +74,7 @@ Subroutine psb_zsphalo(a,desc_a,blk,info,rowcnv,colcnv,& & rowscale,colscale,outfmt,data) use psb_base_mod, psb_protect_name => psb_zsphalo -#ifdef PSB_MPI_MOD - use mpi -#endif Implicit None -#ifdef PSB_MPI_H - include 'mpif.h' -#endif Type(psb_zspmat_type),Intent(in) :: a Type(psb_zspmat_type),Intent(inout) :: blk @@ -540,13 +534,7 @@ Subroutine psb_lzsphalo(a,desc_a,blk,info,rowcnv,colcnv,& & rowscale,colscale,outfmt,data) use psb_base_mod, psb_protect_name => psb_lzsphalo -#ifdef PSB_MPI_MOD - use mpi -#endif Implicit None -#ifdef PSB_MPI_H - include 'mpif.h' -#endif Type(psb_lzspmat_type),Intent(in) :: a Type(psb_lzspmat_type),Intent(inout) :: blk @@ -883,13 +871,7 @@ Subroutine psb_lz_csr_halo(a,desc_a,blk,info,rowcnv,colcnv,& & rowscale,colscale,data,outcol_glob,col_desc) use psb_base_mod, psb_protect_name => psb_lz_csr_halo -#ifdef PSB_MPI_MOD - use mpi -#endif Implicit None -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_lz_csr_sparse_mat),Intent(in) :: a type(psb_lz_csr_sparse_mat),Intent(inout) :: blk @@ -1243,13 +1225,7 @@ Subroutine psb_z_lz_csr_halo(a,desc_a,blk,info,rowcnv,colcnv,& & rowscale,colscale,data,outcol_glob,col_desc) use psb_base_mod, psb_protect_name => psb_z_lz_csr_halo -#ifdef PSB_MPI_MOD - use mpi -#endif Implicit None -#ifdef PSB_MPI_H - include 'mpif.h' -#endif type(psb_z_csr_sparse_mat),Intent(in) :: a type(psb_lz_csr_sparse_mat),Intent(inout) :: blk