fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-06 22:55:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

Take out include mpif in multiple files, was failing with Intel

Browse Source
This commit is contained in:
sfilippone
2026-09-06 13:11:23 +02:00
parent 834f25843b
commit 4312b38e9c
70 changed files with 32 additions and 1041 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/auxil/psi_a2a_fnd_owner.F90
-7
View File
@@ -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
base/auxil/psi_adjcncy_fnd_owner.F90
-6
View File
@@ -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(:)
base/auxil/psi_bld_glb_dep_list.F90
-6
View File
@@ -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(:)
base/auxil/psi_desc_index.F90
-6
View File
@@ -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
base/auxil/psi_fnd_owner.F90
-7
View File
@@ -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(:)
base/auxil/psi_graph_fnd_owner.F90
-7
View File
@@ -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
base/auxil/psi_indx_map_fnd_owner.F90
-7
View File
@@ -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
base/auxil/psi_symm_dep_list.F90
-14
View File
@@ -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
base/auxil/psi_xtr_loc_dl.F90
-6
View File
@@ -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
base/comm/internals/psi_cswapdata.F90
-24
View File
@@ -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
base/comm/internals/psi_cswapdata_a.F90
+4 -28
View File
@@ -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
base/comm/internals/psi_cswaptran_a.F90
-24
View File
@@ -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
base/comm/internals/psi_dswapdata.F90
-24
View File
@@ -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
base/comm/internals/psi_dswapdata_a.F90
+4 -28
View File
@@ -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
base/comm/internals/psi_dswaptran_a.F90
-24
View File
@@ -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
base/comm/internals/psi_eswapdata_a.F90
+4 -28
View File
@@ -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
base/comm/internals/psi_eswaptran_a.F90
-24
View File
@@ -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
base/comm/internals/psi_i2swapdata_a.F90
+4 -28
View File
@@ -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
base/comm/internals/psi_i2swaptran_a.F90
-24
View File
@@ -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
base/comm/internals/psi_iswapdata.F90
-24
View File
@@ -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
base/comm/internals/psi_lswapdata.F90
-24
View File
@@ -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
base/comm/internals/psi_mswapdata_a.F90
+4 -28
View File
@@ -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
base/comm/internals/psi_mswaptran_a.F90
-24
View File
@@ -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
base/comm/internals/psi_sswapdata.F90
-24
View File
@@ -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
base/comm/internals/psi_sswapdata_a.F90
+4 -28
View File
@@ -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
base/comm/internals/psi_sswaptran_a.F90
-24
View File
@@ -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
base/comm/internals/psi_zswapdata.F90
-24
View File
@@ -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
base/comm/internals/psi_zswapdata_a.F90
+4 -28
View File
@@ -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
base/comm/internals/psi_zswaptran_a.F90
-24
View File
@@ -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
base/comm/psb_cscatter_a.F90
-12
View File
@@ -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(:)
base/comm/psb_cspgather.F90
-18
View File
@@ -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
base/comm/psb_dscatter_a.F90
-12
View File
@@ -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(:)
base/comm/psb_dspgather.F90
-18
View File
@@ -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
base/comm/psb_escatter_a.F90
-12
View File
@@ -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(:)
base/comm/psb_i2scatter_a.F90
-12
View File
@@ -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(:)
base/comm/psb_ispgather.F90
-18
View File
@@ -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
base/comm/psb_lspgather.F90
-18
View File
@@ -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
base/comm/psb_mscatter_a.F90
-12
View File
@@ -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(:)
base/comm/psb_sscatter_a.F90
-12
View File
@@ -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(:)
base/comm/psb_sspgather.F90
-18
View File
@@ -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
base/comm/psb_zscatter_a.F90
-12
View File
@@ -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(:)
base/comm/psb_zspgather.F90
-18
View File
@@ -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
base/psblas/psb_cgetmatinfo.F90
+1 -7
View File
@@ -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
base/psblas/psb_dgetmatinfo.F90
+1 -7
View File
@@ -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
base/psblas/psb_sgetmatinfo.F90
+1 -7
View File
@@ -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
base/psblas/psb_zgetmatinfo.F90
+1 -7
View File
@@ -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
base/tools/psb_c_glob_transpose.F90
-12
View File
@@ -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
base/tools/psb_c_remote_mat.F90
-6
View File
@@ -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
base/tools/psb_c_remote_vect.F90
-7
View File
@@ -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(:)
base/tools/psb_ccdbldext.F90
-6
View File
@@ -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
base/tools/psb_csphalo.F90
-24
View File
@@ -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
base/tools/psb_d_glob_transpose.F90
-12
View File
@@ -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
base/tools/psb_d_remote_mat.F90
-6
View File
@@ -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
base/tools/psb_d_remote_vect.F90
-7
View File
@@ -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(:)
base/tools/psb_dcdbldext.F90
-6
View File
@@ -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
base/tools/psb_dsphalo.F90
-24
View File
@@ -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
base/tools/psb_e_remote_vect.F90
-7
View File
@@ -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(:)
base/tools/psb_i2_remote_vect.F90
-7
View File
@@ -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(:)
base/tools/psb_icdasb.F90
-6
View File
@@ -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
base/tools/psb_m_remote_vect.F90
-7
View File
@@ -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(:)
base/tools/psb_s_glob_transpose.F90
-12
View File
@@ -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
base/tools/psb_s_remote_mat.F90
-6
View File
@@ -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
base/tools/psb_s_remote_vect.F90
-7
View File
@@ -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(:)
base/tools/psb_scdbldext.F90
-6
View File
@@ -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
base/tools/psb_ssphalo.F90
-24
View File
@@ -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
base/tools/psb_z_glob_transpose.F90
-12
View File
@@ -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
base/tools/psb_z_remote_mat.F90
-6
View File
@@ -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
base/tools/psb_z_remote_vect.F90
-7
View File
@@ -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(:)
base/tools/psb_zcdbldext.F90
-6
View File
@@ -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
base/tools/psb_zsphalo.F90
-24
View File
@@ -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